home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 18
/
aminetcdnumber181997.iso
/
Aminet
/
dev
/
e
/
EasyGUI_v33b2.lha
/
Src
/
EasyGUI
/
ticker_test.e
< prev
Wrap
Text File
|
1997-02-13
|
330b
|
20 lines
MODULE 'tools/easygui', 'tools/exceptions',
'plugins/ticker'
PROC main() HANDLE
DEF t=NIL:PTR TO ticker
NEW t
easyguiA('Ticker!',
[ROWS,
[TEXT,'Ticker test:',NIL,TRUE,10],
[PLUGIN,{tickaction},t]
])
EXCEPT DO
END t
report_exception()
ENDPROC
PROC tickaction(i,t)
WriteF('Tick!\n')
ENDPROC