home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / amosfactory / ext / lha / intui.lha / examples / window+menus.AMOS / window+menus.amosSourceCode
Encoding:
AMOS Source Code  |  1996-04-06  |  1.4 KB  |  46 lines
  1. Amos To Back 
  2.  Extension_25_021E $200,$100,$2000,$0,$0,$0,$0,$0,$0
  3.  Extension_25_0070 $1,$2,$4,$8,$1400,,,,
  4.  Extension_25_0006 0,0,10,640,240,100,50,640,240
  5.  Extension_25_0096 "Project"
  6. '
  7. ' $1=Checkit  $8=MenuToggle  $100=Checked
  8. '
  9.  Extension_25_00BE "New","N",$1,$8,$100,
  10.  Extension_25_00BE "Quit","Q",,,,
  11.  Extension_25_00BE "About","A",,,,
  12.  Extension_25_00BE "Rename","",,,,
  13.  Extension_25_0096 "Prefs"
  14.  Extension_25_00BE "Prefs","",,,,
  15.  Extension_25_00BE "Printer","",,,,
  16.  Extension_25_00BE "Load Prefs","",,,,
  17.  Extension_25_00BE "","",,,,
  18.  Extension_25_00BE "Save Prefs","",,,,
  19.  Extension_25_00BE "Save As","",,,,
  20.  Extension_25_00DC "Sub Item 1","S",,,,
  21.  Extension_25_00DC "Sub Item 2","S",,,,
  22.  Extension_25_00DC "Sub Item 3","S",,,,
  23.  Extension_25_00DC "Sub Item 4","S",,,,
  24.  Extension_25_00FE(0)
  25.  Extension_25_01BA 1
  26.  Extension_25_014C "Select A Menu Item",50,20
  27.  Extension_25_014C "Click The Close Gadget To Quit",50,30
  28. Repeat 
  29. EV= Extension_25_0210 
  30. If EV=$100
  31. _MENU= Extension_25_0110 
  32. ITEM= Extension_25_011E 
  33. SUBITEM= Extension_25_04F8 
  34. A$=Str$(ITEM)
  35. B$=Str$(SUBITEM)
  36. If _MENU=1
  37. If ITEM>0 : Extension_25_014C "You Picked Menu 1 Item Number "+A$+"     ",10,80 : End If 
  38. End If 
  39. If _MENU=2
  40. If ITEM>0 : Extension_25_014C "You Picked Menu 2 Item Number "+A$+"     ",10,80 : End If 
  41. If SUBITEM>0 : Extension_25_014C " You Picked Menu 2 Sub Item Number "+B$,10,80 : End If 
  42. End If 
  43. End If 
  44. Until EV=$200
  45.  Extension_25_002C 0
  46. Amos To Front