home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Newton Sample Code 1.2 / Proto Templates / DynaPicker-1 / picker.text < prev    next >
Encoding:
Text File  |  1994-03-09  |  999 b   |  44 lines  |  [TEXT/MPS ]
  1.  
  2. // ---- End Project Data ----
  3.  
  4.  
  5. // ---- File picker.t ----
  6. baseView :=
  7.    {title: "DynaPick",
  8.     viewBounds: {left: 0, top: 24, right: 192, bottom: 304},
  9.     _proto: protoApp,
  10.     debug: "baseView"
  11.    };
  12.  
  13. nosePicker := /* child of baseView */
  14.    {viewBounds: {left: 19, top: 67, right: 177, bottom: 169},
  15.     labelCommands: ["First Thang","Second Thang","Third Thang","Fourth Thang"],
  16.     pickerSetup:
  17.       func()
  18.       begin
  19.            //This function creates the view that
  20.            // "pops up" *every time* the view is tapped.
  21.       
  22.            local lameArray := [];
  23.       
  24.            for i := 1 to 5 do
  25.               Append(lameArray,GetRandomWord(8,20));
  26.            //Sticks in random choices
  27.       
  28.            labelCommands := Clone(lameArray);
  29.            true //See protolabelpicker docs
  30.       end,
  31.     _proto: protoLabelPicker,
  32.     debug: "nosePicker"
  33.    };
  34. // View nosePicker is declared to baseView
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42. // ---- Beginning of section for non used Layout files ----
  43.  
  44. // End of output