home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / examples / easyplugins / multitext_os12_demo.e < prev    next >
Encoding:
Text File  |  2000-06-06  |  3.0 KB  |  108 lines
  1.  
  2. /*
  3.  
  4.     multitext_demo.e
  5.  
  6. */
  7.  
  8. OPT PREPROCESS
  9.  
  10. -> RST: Added conditional EASY_OS12 support
  11. #define EASY_OS12
  12.  
  13. #ifdef EASY_OS12
  14.   MODULE 'tools/easygui_os12', 'easyplugins/multitext_os12', 'hybrid/utility'
  15. #endif
  16. #ifndef EASY_OS12
  17.   OPT OSVERSION=37
  18.   MODULE 'tools/easygui', 'easyplugins/multitext', 'utility'
  19. #endif
  20.  
  21. MODULE 'graphics/text',
  22.        'utility/tagitem', 'diskfont'
  23.  
  24. DEF multitext_a:PTR TO multitext_plugin,
  25.     multitext_b:PTR TO multitext_plugin,
  26.     multitext_c:PTR TO multitext_plugin,
  27.     disabled=FALSE, bars=FALSE,
  28.     courier=NIL, font1_ta:PTR TO textattr,
  29.     times=NIL, font2_ta:PTR TO textattr
  30.  
  31. PROC main() HANDLE
  32.  
  33. #ifdef EASY_OS12
  34.     openUtility()
  35. #endif
  36. #ifndef EASY_OS12
  37.     IF (utilitybase:=OpenLibrary('utility.library', 37))=NIL THEN Raise("utlb")
  38. #endif
  39.     IF (diskfontbase:=OpenLibrary('diskfont.library', 33))=NIL THEN Raise("dflb")
  40.  
  41.     font1_ta:=['topaz.font', 11, FSF_BOLD, NIL]:textattr
  42.     font2_ta:=['diamond.font', 12, FS_NORMAL, NIL]:textattr
  43.  
  44.     courier:=OpenDiskFont(font1_ta)
  45.     times:=OpenDiskFont(font2_ta)
  46.  
  47.     NEW multitext_a.multitext([PLA_MultiText_Text, ['First test:', 'multitext_plugin', 'with many lines'],
  48.                                TAG_DONE]),
  49.         multitext_b.multitext([PLA_MultiText_Text, ['Second test:', 'multitext_plugin', 'with many lines'],
  50.                                PLA_MultiText_Font, font1_ta,
  51.                                PLA_MultiText_Justification, PLV_MultiText_JustifyLeft,
  52.                                TAG_DONE]),
  53.         multitext_c.multitext([PLA_MultiText_Text, ['Third test:', 'multitext_plugin', 'with many lines'],
  54.                                PLA_MultiText_Font, font2_ta,
  55.                                PLA_MultiText_Justification, PLV_MultiText_JustifyRight,
  56.                                TAG_DONE])
  57.  
  58.     easyguiA('multitext_plugin example',
  59.              [ROWS,
  60.                  [PLUGIN, 1, multitext_a],
  61.                  [PLUGIN, 1, multitext_b],
  62.                  [PLUGIN, 1, multitext_c],
  63.                  [COLS,
  64.                     [CHECK, {toggle_disabled}, '_Disabled?', disabled, FALSE, -1, "d"],
  65.                     [CHECK, {toggle_bars}, '_Bars?', bars, FALSE, -1, "b"],
  66.                     [SPACEH],
  67.                     [BUTTON, 0, 'Quit']
  68.                  ]
  69.              ])
  70.  
  71. EXCEPT DO
  72.  
  73.     END multitext_a, multitext_b, multitext_c
  74.  
  75.     IF courier THEN CloseFont(courier)
  76.     IF times THEN CloseFont(times)
  77.  
  78.     IF diskfontbase THEN CloseLibrary(diskfontbase)
  79. #ifdef EASY_OS12
  80.     closeUtility()
  81. #endif
  82. #ifndef EASY_OS12
  83.     IF utilitybase THEN CloseLibrary(utilitybase)
  84. #endif
  85.  
  86. ENDPROC
  87.  
  88. PROC toggle_disabled()
  89.  
  90.     IF disabled THEN disabled:=FALSE ELSE disabled:=TRUE
  91.  
  92.     multitext_a.set(PLA_MultiText_Disabled, disabled)
  93.     multitext_b.set(PLA_MultiText_Disabled, disabled)
  94.     multitext_c.set(PLA_MultiText_Disabled, disabled)
  95.  
  96. ENDPROC
  97.  
  98. PROC toggle_bars()
  99.  
  100.     IF bars THEN bars:=FALSE ELSE bars:=TRUE
  101.  
  102.     multitext_a.set(PLA_MultiText_DrawBar, bars)
  103.     multitext_b.set(PLA_MultiText_DrawBar, bars)
  104.     multitext_c.set(PLA_MultiText_DrawBar, bars)
  105.  
  106. ENDPROC
  107.  
  108.