home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / examples / easyplugins / space_os12_demo.e < prev    next >
Encoding:
Text File  |  2000-06-06  |  2.7 KB  |  89 lines
  1.  
  2. /*
  3.  
  4. */
  5.  
  6. OPT PREPROCESS
  7.  
  8. -> RST: Added conditional EASY_GT13 support
  9. #define EASY_OS12
  10.  
  11. #ifdef EASY_OS12
  12.   MODULE 'tools/easygui_os12', 'easyplugins/space_os12', 'hybrid/utility'
  13. #endif
  14. #ifndef EASY_OS12
  15.   OPT OSVERSION=37
  16.   MODULE 'tools/easygui', 'easyplugins/space', 'utility'
  17. #endif
  18.  
  19. MODULE 'utility/tagitem'
  20.  
  21. DEF space_1:PTR TO space_plugin,
  22.     space_2:PTR TO space_plugin,
  23.     space_3:PTR TO space_plugin,
  24.     space_4:PTR TO space_plugin
  25.  
  26. PROC main() HANDLE
  27.  
  28. #ifdef EASY_OS12
  29.     openUtility()
  30. #endif
  31. #ifndef EASY_OS12
  32.     IF (utilitybase:=OpenLibrary('utility.library', 37))=NIL THEN Raise("utlb")
  33. #endif
  34.  
  35.     NEW space_1.space([PLA_Space_Width,   32,
  36.                        PLA_Space_Height,  16,
  37.                        TAG_DONE])
  38.  
  39.     NEW space_2.space([PLA_Space_Width,   32,
  40.                        PLA_Space_Height,  16,
  41.                        PLA_Space_ResizeX, TRUE,
  42.                        TAG_DONE])
  43.  
  44.     NEW space_3.space([PLA_Space_Width,   32,
  45.                        PLA_Space_Height,  16,
  46.                        PLA_Space_ResizeY, TRUE,
  47.                        TAG_DONE])
  48.  
  49.     NEW space_4.space([PLA_Space_Width,   32,
  50.                        PLA_Space_Height,  16,
  51.                        PLA_Space_ResizeX, TRUE,
  52.                        PLA_Space_ResizeY, TRUE,
  53.                        TAG_DONE])
  54.  
  55.     easyguiA('space_plugin example', [ROWS,
  56.                                          [COLS,
  57.                                              [ROWS,
  58.                                                  [TEXT, '32 x 16, No Resize', NIL, TRUE, 1],
  59.                                                  [BEVELR, [PLUGIN, 1, space_1]],
  60.                                                  [BAR],
  61.                                                  [TEXT, '32 x 16, Resize X', NIL, TRUE, 1],
  62.                                                  [BEVELR, [PLUGIN, 1, space_2]]
  63.                                              ],
  64.                                              [BAR],
  65.                                              [ROWS,
  66.                                                  [TEXT, '32 x 16, Resize Y', NIL, TRUE, 1],
  67.                                                  [BEVELR, [PLUGIN, 1, space_3]],
  68.                                                  [BAR],
  69.                                                  [TEXT, '32 x 16, Resize X & Y', NIL, TRUE, 1],
  70.                                                  [BEVELR, [PLUGIN, 1, space_4]]
  71.                                              ]
  72.                                          ],
  73.                                          [SBUTTON, 0, 'Quit']
  74.                                      ])
  75.  
  76. EXCEPT DO
  77.  
  78.     END space_1, space_2, space_3, space_4
  79.  
  80. #ifdef EASY_OS12
  81.     closeUtility()
  82. #endif
  83. #ifndef EASY_OS12
  84.     IF utilitybase THEN CloseLibrary(utilitybase)
  85. #endif
  86.  
  87. ENDPROC
  88.  
  89.