(* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
   
 | $VER: EAGuiMacros.def 3.00 (23.11.94) by Stefan Schulz [sts]
 
 | Desc: Interface to EAGUI.library
 
 | Dist: This Module is © Copyright 1994 by Stefan Schulz
 
 | Rqrs: Amiga OS 2.0 or higher
 |       EAGUI.library V3
 |       EAGUI - Environment Adaptive Graphic User Interface
 |       Copyright © 1993, 1994 by Marcel Offermans and Frank Groen
 
 | Lang: M2Amiga
 | Trns: M2Amiga Modula 2 Software Development System
 |       © Copyright by A+L AG, CH-2540 Grenchen
 
 | Hist: Version \date\
 |
 |       3.00   \23.11.94\
 |              interface adapted to EAGUI.library V3
 |              names changed to M2-Standard
 |
 |       1.00   \01.05.94\
 |              initial Version
 
 * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)

DEFINITION MODULE EAGuiMacros;

(*$ DEFINE Locale:= FALSE

    StackParms:= FALSE
    NilChk    := FALSE
    EntryClear:= FALSE
    LargeVars := FALSE
    
*)

(* IMPORTS ********************************************************************** *)

IMPORT  d       : EAGuiD;

IMPORT  ud      : UtilityD;

(* ****************************************************************************** *)


PROCEDURE HGroup          (     tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE VGroup          (     tags        : ud.TagItemPtr     ) : d.OPTR;

(*$ IF  Locale  *)
PROCEDURE GTString        (     text        : d.StrPtr;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTText          (     text        : d.StrPtr;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTButton        (     text        : d.StrPtr;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
(*$ ELSE        *)
PROCEDURE GTString        (     text        : ARRAY OF CHAR;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTText          (     text        : ARRAY OF CHAR;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTButton        (     text        : ARRAY OF CHAR;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
(*$ ENDIF       *)

PROCEDURE GTScroller      (     tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTSlider        (     tags        : ud.TagItemPtr     ) : d.OPTR;

(*$ IF  Locale  *)
PROCEDURE GTCheckBox      (     text        : d.StrPtr;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTInteger       (     text        : d.StrPtr;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTNumber        (     text        : d.StrPtr;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTListView      (     text        : d.StrPtr;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
(*$ ELSE        *)
PROCEDURE GTCheckBox      (     text        : ARRAY OF CHAR;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTInteger       (     text        : ARRAY OF CHAR;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTNumber        (     text        : ARRAY OF CHAR;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTListView      (     text        : ARRAY OF CHAR;
                                tags        : ud.TagItemPtr     ) : d.OPTR;
(*$ ENDIF       *)

PROCEDURE GTMX            (     tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTCycle         (     tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE GTPalette       (     tags        : ud.TagItemPtr     ) : d.OPTR;
PROCEDURE EmptyBox        (     weight      : LONGINT;
                                tags        : ud.TagItemPtr     ) : d.OPTR;



END EAGuiMacros.def