// Text of project picker written on 5/9/95 at 14:36
// Beginning of file picker.t

// Before Script for "baseView"
// Copyright © 1993-1995 by Apple Computer, Inc. All Rights Reserved.


baseView :=
    {title: "DynaPick",
     viewBounds: {left: 0, top: 24, right: 192, bottom: 304},
     debug: "baseView",
     _proto: @157
    };

nosePicker :=
    {viewBounds: {left: 19, top: 67, right: 177, bottom: 169},
     labelCommands: ["First Thang","Second Thang","Third Thang","Fourth Thang"],
     pickerSetup:
       func()
       begin
            //This function creates the view that
            // "pops up" *every time* the view is tapped.
       
            local lameArray := [];
       
            for i := 1 to 5 do
               Append(lameArray,GetRandomWord(8,20));
            //Sticks in random choices
       
            labelCommands := Clone(lameArray);
            true //See protolabelpicker docs
       end,
     debug: "nosePicker",
     _proto: @190
    };
AddStepForm(baseView, nosePicker);
StepDeclare(baseView, nosePicker, 'nosePicker);




constant |layout_picker.t| := baseView;
// End of file picker.t