home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / examples / easygui / testqual_os12.e < prev    next >
Encoding:
Text File  |  2000-06-05  |  584 b   |  29 lines

  1.  
  2. OPT PREPROCESS
  3.  
  4. -> RST: Added conditional EASY_OS12 support
  5. #define EASY_OS12
  6.  
  7. #ifdef EASY_OS12
  8.   MODULE 'tools/easygui_os12'
  9. #endif
  10. #ifndef EASY_OS12
  11.   OPT OSVERSION=37
  12.   MODULE 'tools/easygui'
  13. #endif
  14.  
  15. MODULE 'devices/inputevent'
  16.  
  17. PROC main()
  18.   easyguiA('Qualifier Test',
  19.           [SBUTTON,{buttonaction},'Press Me! (With/Without Shift)'])
  20. ENDPROC
  21.  
  22. PROC buttonaction(qual,data,info)
  23.   IF qual AND (IEQUALIFIER_LSHIFT OR IEQUALIFIER_RSHIFT)
  24.     WriteF('You were pressing a shift key when you clicked on me!\n')
  25.   ELSE
  26.     WriteF('Nope, no shift key this time...\n')
  27.   ENDIF
  28. ENDPROC
  29.