/*
**      Newton Developer Technical Support Sample Code
**
**      ListPicker,  Demostratest the protoListPicker that uses and array with a popUp
**
**      by Stephen Harris, Newton Developer Technical Support
**
**      Copyright © 1993-1996 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.
*/

//This sample demonstrates the use of a listPicker with a column that does a 
//popUp action of two current item and allows change.  

//The data for the listpicker is in an array that exist in the application.


//App stuff
constant kAppTitle := "The ListPicker";


//Define a basic entry frame for data
DefConst('kCanonicalEntry,
  '{
		first: nil,
		second: nil,
	});

//Generate the Random data for the Picker
DefConst('kRandomDataGeneratorFunc, func()
	begin
		local item := clone(kCanonicalEntry);

		item.first := Capitalize(GetRandomWord(4, 12));
		item.second := Capitalize(GetRandomWord(4, 12));
		item;
	end);


		
