home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / ACE / Prgs / GUI / events.b < prev   
Text File  |  1994-09-18  |  914b  |  62 lines
  1. window 1,"Events",(0,0)-(500,150)
  2.  
  3. menu 1,0,1,"Project"
  4. menu 1,1,1,"New"
  5. menu 1,2,1,"Open"
  6. menu 1,3,1,"Quit","Q"
  7.  
  8. gadget 1,ON,"Quit",(100,100)-(150,116),BUTTON
  9.  
  10. on menu gosub menu_handler
  11. on gadget gosub gadget_handler
  12. on window gosub quit
  13. on break gosub quit
  14. on mouse gosub handle_mouse
  15. on timer(1) gosub timer_handler
  16.  
  17. menu on
  18. gadget on
  19. window on
  20. break on
  21. mouse on
  22. timer on
  23.  
  24. while -1
  25.   SLEEP
  26.   k$ = inkey$
  27.   if k$<>"" then print k$
  28. wend
  29.  
  30.  
  31. '..trap handlers
  32. menu_handler:
  33.   x=menu(0) : y=menu(1)
  34.   locate 1,1:print x,y
  35.   if x=1 and y=3 then quit
  36. return
  37.  
  38. gadget_handler:
  39.   locate 2,1:print gadget(1)
  40.   goto quit
  41. return
  42.  
  43. timer_handler:
  44.   beep
  45. return
  46.  
  47. handle_mouse:
  48.   row=csrlin:col=pos
  49.   locate 2,40
  50.   print "                ";
  51.   locate 2,40
  52.   print "Mouse:";mouse(1);mouse(2)
  53.   locate row,col
  54. return
  55.  
  56. quit:
  57.   if not MsgBox("Really Quit?","YES","NO!") then RETURN
  58.   menu clear
  59.   gadget close 1
  60.   window close 1
  61. end
  62.