home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 18
/
aminetcdnumber181997.iso
/
Aminet
/
dev
/
e
/
EasyGUI_v33b2.lha
/
Src
/
EasyGUI
/
testqual.e
< prev
next >
Wrap
Text File
|
1997-02-13
|
397b
|
15 lines
MODULE 'tools/easygui', 'devices/inputevent'
PROC main()
easyguiA('Qualifier Test',
[SBUTTON,{buttonaction},'Press Me! (With/Without Shift)'])
ENDPROC
PROC buttonaction(qual,data,info)
IF qual AND (IEQUALIFIER_LSHIFT OR IEQUALIFIER_RSHIFT)
PrintF('You were pressing a shift key when you clicked on me!\n')
ELSE
PrintF('Nope, no shift key this time...\n')
ENDIF
ENDPROC