home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / Shareware City / Demos / TextPak Demo / Text Items / List Code < prev    next >
Encoding:
Text File  |  1994-10-28  |  730 b   |  29 lines  |  [TEXT/MPS ]
  1. {Code}object TrialList is TextPak_List
  2. has
  3.     myList;
  4.     
  5.     OffScreen()
  6.     do
  7.         self.SetList(self.myList, 5);
  8.         self.enable(true);
  9.         self.show(true);
  10.     end;
  11.     
  12.     UserClicked(lineNum)
  13.         lineNum is? INTEGER;
  14.         
  15.     do
  16.         ListResult.DisplayText("You clicked option " + lineNum.ToString() + 
  17.                     " which is " + (self.myList @ lineNum), 10, 10, 300);
  18.     end;
  19.  
  20. with
  21.     myList is [
  22.         "List Item One","List Item Two","List Item Three",
  23.         "List Item Four","List Item Five", "List Item Six",
  24.         "List Item Seven", "List Item Eight"];
  25.     X is 150; Y is 250; Width is 540; Height is 150;
  26.     omitFlag is false;
  27.     theLineHeight is 20;
  28.     Duration is -1;
  29. end;