home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / examples / easyplugins / xygadget_os12_demo.e < prev   
Encoding:
Text File  |  2000-06-06  |  2.0 KB  |  80 lines
  1.  
  2. /*
  3.  
  4. */
  5.  
  6. OPT PREPROCESS
  7.  
  8. -> RST: Added conditional EASY_OS12 support
  9. #define EASY_OS12
  10.  
  11. #ifdef EASY_OS12
  12.   MODULE 'tools/easygui_os12', 'easyplugins/xygadget_os12', 'hybrid/utility'
  13. #endif
  14. #ifndef EASY_OS12
  15.   OPT OSVERSION=37
  16.   MODULE 'tools/easygui', 'easyplugins/xygadget', 'utility'
  17. #endif
  18.  
  19. MODULE 'utility/tagitem'
  20.  
  21. DEF xygadget_1:PTR TO xygadget_plugin,
  22.     xygadget_2:PTR TO xygadget_plugin,
  23.     disabled=TRUE
  24.  
  25. PROC main() HANDLE
  26.  
  27. #ifdef EASY_OS12
  28.     openUtility()
  29. #endif
  30. #ifndef EASY_OS12
  31.     IF (utilitybase:=OpenLibrary('utility.library', 37))=NIL THEN Raise("utlb")
  32. #endif
  33.  
  34.     NEW xygadget_1.xygadget([PLA_XYGadget_Text, 'Testing',
  35.                              PLA_XYGadget_Disabled, disabled,
  36.                              TAG_DONE])
  37.  
  38.     NEW xygadget_2.xygadget([PLA_XYGadget_Text, 'A second gadget',
  39.                              PLA_XYGadget_Disabled, disabled,
  40.                              TAG_DONE])
  41.  
  42.     easyguiA('xygadget_plugin example', [ROWS,
  43.                                             [PLUGIN, {gadget_pressed}, xygadget_1, TRUE],
  44.                                             [PLUGIN, {gadget_pressed}, xygadget_2, TRUE],
  45.                                             [COLS,
  46.                                                 [CHECK, {toggle_disabled}, '_Disabled?', disabled, FALSE, -1, "d"],
  47.                                                 [SPACEH],
  48.                                                 [BUTTON, 0, 'Quit']
  49.                                             ]
  50.                                         ])
  51.  
  52. EXCEPT DO
  53.  
  54.     END xygadget_1, xygadget_2
  55.  
  56. #ifdef EASY_OS12
  57.     closeUtility()
  58. #endif
  59. #ifndef EASY_OS12
  60.     IF utilitybase THEN CloseLibrary(utilitybase)
  61. #endif
  62.  
  63. ENDPROC
  64.  
  65. PROC toggle_disabled()
  66.  
  67.     IF disabled THEN disabled:=FALSE ELSE disabled:=TRUE
  68.  
  69.     xygadget_1.set(PLA_XYGadget_Disabled, disabled)
  70.     xygadget_2.set(PLA_XYGadget_Disabled, disabled)
  71.  
  72. ENDPROC
  73.  
  74. PROC gadget_pressed(gh:PTR TO guihandle, xygadget:PTR TO xygadget_plugin)
  75.  
  76.     WriteF('You pressed the gadget with \a\s\a on it.\n\n', xygadget.get(PLA_XYGadget_Text))
  77.  
  78. ENDPROC
  79.  
  80.