home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / examples / easyplugins / popmisc_os12_demo.e < prev    next >
Encoding:
Text File  |  2000-06-06  |  2.3 KB  |  79 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.   OPT LARGE
  13.   MODULE 'tools/easygui_os12', 'easyplugins/popmisc_os12', 'hybrid/utility'
  14. #endif
  15. #ifndef EASY_OS12
  16.   OPT OSVERSION=37
  17.   MODULE 'tools/easygui', 'easyplugins/popmisc', 'utility'
  18. #endif
  19.  
  20. MODULE 'utility/tagitem'
  21.  
  22. DEF poptask:PTR TO popmisc_plugin,
  23.     popport:PTR TO popmisc_plugin,
  24.     poplib:PTR TO popmisc_plugin,
  25.     popdevice:PTR TO popmisc_plugin,
  26.     popresource:PTR TO popmisc_plugin,
  27.     popmemnode:PTR TO popmisc_plugin
  28.  
  29. PROC main() HANDLE
  30.  
  31. #ifdef EASY_OS12
  32.     openUtility()
  33. #endif
  34. #ifndef EASY_OS12
  35.     IF (utilitybase:=OpenLibrary('utility.library', 37))=NIL THEN Raise("utlb")
  36. #endif
  37.  
  38.     NEW poptask.popmisc(),
  39.         popport.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_PortsList,
  40.                          TAG_DONE]),
  41.         poplib.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_LibrariesList,
  42.                          TAG_DONE]),
  43.         popdevice.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_DevicesList,
  44.                            TAG_DONE]),
  45.         popresource.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_ResourcesList,
  46.                            TAG_DONE]),
  47.         popmemnode.popmisc([PLA_PopMisc_ListType, PLV_PopMisc_MemNodesList,
  48.                            TAG_DONE])
  49.  
  50.     easyguiA('popmisc_plugin example', [COLS,
  51.                                            [ROWS,
  52.                                                [PLUGIN, {dummy}, poptask, TRUE],
  53.                                                [PLUGIN, {dummy}, popport, TRUE],
  54.                                                [PLUGIN, {dummy}, poplib, TRUE]
  55.                                            ],
  56.                                            [ROWS,
  57.                                                [PLUGIN, {dummy}, popdevice, TRUE],
  58.                                                [PLUGIN, {dummy}, popresource, TRUE],
  59.                                                [PLUGIN, {dummy}, popmemnode, TRUE]
  60.                                            ]
  61.                                        ])
  62.  
  63. EXCEPT DO
  64.  
  65.     END poptask, popport, poplib, popdevice, popresource, popmemnode
  66.  
  67. #ifdef EASY_OS12
  68.     closeUtility()
  69. #endif
  70. #ifndef EASY_OS12
  71.     IF utilitybase THEN CloseLibrary(utilitybase)
  72. #endif
  73.  
  74. ENDPROC
  75.  
  76. PROC dummy() IS EMPTY
  77.  
  78.  
  79.