home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / e / EasyGUI_v33b2.lha / Src / EasyGUI / led_test.e < prev    next >
Text File  |  1997-02-10  |  1KB  |  56 lines
  1. MODULE 'tools/easygui', 'tools/exceptions',
  2.        'graphics/text',
  3.        'plugins/led'
  4.  
  5. DEF going=FALSE, title
  6.  
  7. PROC main() HANDLE
  8.   DEF l=NIL:PTR TO led
  9.   NEW l.led(2,[0,0]:INT,TRUE)
  10.   easyguiA('BOOPSI in EasyGUI!',
  11.     [ROWS,
  12.       title:=[TEXT,'LED Boopsi image tester...',NIL,TRUE,1],
  13.       [COLS,
  14.          [EQROWS,
  15.            [BUTTON,{runaction},'Run',l],
  16.            [BUTTON,{stopaction},'Stop']
  17.          ],
  18.          [PLUGIN,0,l]
  19.       ]
  20.     ])
  21. EXCEPT DO
  22.   END l
  23.   report_exception()
  24. ENDPROC
  25.  
  26. PROC runaction(l:PTR TO led,gh) HANDLE
  27.   DEF h,m
  28.   IF going
  29.     settext(gh,title,'I''m busy counting!')
  30.   ELSE
  31.     going:=TRUE
  32.     settext(gh,title,'Started counting...')
  33.     Delay(10)
  34.     FOR h:=0 TO 12
  35.       FOR m:=0 TO 59
  36.         l.values:=[h,m]:INT
  37.         l.redisplay()
  38.         l.colon:=(l.colon=FALSE)
  39.         checkgui(gh)
  40.         Delay(10)
  41.         settext(gh,title,'Counting...')
  42.       ENDFOR
  43.     ENDFOR
  44.     settext(gh,title,'Finished!')
  45.     going:=FALSE
  46.   ENDIF
  47. EXCEPT
  48.   going:=FALSE
  49.   settext(gh,title,'You stopped me!')
  50.   IF exception<>"STOP" THEN ReThrow()
  51. ENDPROC
  52.  
  53. PROC stopaction(i)
  54.   IF going THEN Raise("STOP")
  55. ENDPROC
  56.