home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / eagui30.lha / EAGUI / Modula2 / txt / EAGuiMacros.def < prev    next >
Encoding:
Modula Definition  |  1994-12-01  |  3.8 KB  |  100 lines
  1. (* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
  2.    
  3.  | $VER: EAGuiMacros.def 3.00 (23.11.94) by Stefan Schulz [sts]
  4.  
  5.  | Desc: Interface to EAGUI.library
  6.  
  7.  | Dist: This Module is © Copyright 1994 by Stefan Schulz
  8.  
  9.  | Rqrs: Amiga OS 2.0 or higher
  10.  |       EAGUI.library V3
  11.  |       EAGUI - Environment Adaptive Graphic User Interface
  12.  |       Copyright © 1993, 1994 by Marcel Offermans and Frank Groen
  13.  
  14.  | Lang: M2Amiga
  15.  | Trns: M2Amiga Modula 2 Software Development System
  16.  |       © Copyright by A+L AG, CH-2540 Grenchen
  17.  
  18.  | Hist: Version \date\
  19.  |
  20.  |       3.00   \23.11.94\
  21.  |              interface adapted to EAGUI.library V3
  22.  |              names changed to M2-Standard
  23.  |
  24.  |       1.00   \01.05.94\
  25.  |              initial Version
  26.  
  27.  * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)
  28.  
  29. DEFINITION MODULE EAGuiMacros;
  30.  
  31. (*$ DEFINE Locale:= FALSE
  32.  
  33.     StackParms:= FALSE
  34.     NilChk    := FALSE
  35.     EntryClear:= FALSE
  36.     LargeVars := FALSE
  37.     
  38. *)
  39.  
  40. (* IMPORTS ********************************************************************** *)
  41.  
  42. IMPORT  d       : EAGuiD;
  43.  
  44. IMPORT  ud      : UtilityD;
  45.  
  46. (* ****************************************************************************** *)
  47.  
  48.  
  49. PROCEDURE HGroup          (     tags        : ud.TagItemPtr     ) : d.OPTR;
  50. PROCEDURE VGroup          (     tags        : ud.TagItemPtr     ) : d.OPTR;
  51.  
  52. (*$ IF  Locale  *)
  53. PROCEDURE GTString        (     text        : d.StrPtr;
  54.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  55. PROCEDURE GTText          (     text        : d.StrPtr;
  56.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  57. PROCEDURE GTButton        (     text        : d.StrPtr;
  58.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  59. (*$ ELSE        *)
  60. PROCEDURE GTString        (     text        : ARRAY OF CHAR;
  61.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  62. PROCEDURE GTText          (     text        : ARRAY OF CHAR;
  63.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  64. PROCEDURE GTButton        (     text        : ARRAY OF CHAR;
  65.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  66. (*$ ENDIF       *)
  67.  
  68. PROCEDURE GTScroller      (     tags        : ud.TagItemPtr     ) : d.OPTR;
  69. PROCEDURE GTSlider        (     tags        : ud.TagItemPtr     ) : d.OPTR;
  70.  
  71. (*$ IF  Locale  *)
  72. PROCEDURE GTCheckBox      (     text        : d.StrPtr;
  73.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  74. PROCEDURE GTInteger       (     text        : d.StrPtr;
  75.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  76. PROCEDURE GTNumber        (     text        : d.StrPtr;
  77.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  78. PROCEDURE GTListView      (     text        : d.StrPtr;
  79.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  80. (*$ ELSE        *)
  81. PROCEDURE GTCheckBox      (     text        : ARRAY OF CHAR;
  82.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  83. PROCEDURE GTInteger       (     text        : ARRAY OF CHAR;
  84.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  85. PROCEDURE GTNumber        (     text        : ARRAY OF CHAR;
  86.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  87. PROCEDURE GTListView      (     text        : ARRAY OF CHAR;
  88.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  89. (*$ ENDIF       *)
  90.  
  91. PROCEDURE GTMX            (     tags        : ud.TagItemPtr     ) : d.OPTR;
  92. PROCEDURE GTCycle         (     tags        : ud.TagItemPtr     ) : d.OPTR;
  93. PROCEDURE GTPalette       (     tags        : ud.TagItemPtr     ) : d.OPTR;
  94. PROCEDURE EmptyBox        (     weight      : LONGINT;
  95.                                 tags        : ud.TagItemPtr     ) : d.OPTR;
  96.  
  97.  
  98.  
  99. END EAGuiMacros.def
  100.