/*
**      Newton Developer Technical Support Sample Code
**
**      newtLabelPicker, a label picker for newtApps
**
**      by Maurice Sharp, Newton Developer Technical Support
**
**      Copyright © 1995 by Apple Computer, Inc.  All rights reserved.
**
**      You may incorporate this sample code into your applications without
**      restriction.  This sample code has been provided "AS IS" and the
**      responsibility for its operation is 100% yours.  You are not
**      permitted to modify and redistribute the source as "DTS Sample Code."
**      If you are going to re-distribute the source, we require that you
**      make it clear in the source that the code was descended from
**      Apple-provided sample code, but that you've made changes.
*/

//------------------------------------------------------------
// 	Application wide constants
//------------------------------------------------------------

DefConst('kSoupName, SPrintObject(kAppSymbol)) ;
constant kClassSymbol := kAppSymbol ;

constant kUserSoupName := kAppName ;
constant kSoupDescription := "Data for the " & kAppName & " application.";


//------------------------------------------------------------
// 	Soup data constants
//------------------------------------------------------------

// array of choices for popper1 slot
constant kPopper1Labels := '[
	"First value", "Second value", "Another value", "Burma!!!!"] ;
	
// array for choices for the popper2 slot
constant kPopper2Labels := '[
	"The operation", "The other operation", "The other other operation"] ;


//------------------------------------------------------------
// 	Install/Remove Scripts
//------------------------------------------------------------

InstallScript := func(partFrame)
begin
	local theForm := partFrame.theForm ;
	partFrame.removeFrame := theForm:NewtInstallScript(theForm) ;
end ;

RemoveScript := func(partFrame)
begin
	local removeFrame := partFrame.removeFrame ;
	removeFrame:NewtRemoveScript(removeFrame) ;
end ;