DEFINITION MODULE MuiSupport;

(*$ DEFINE Locale:=FALSE *)

(*
**  MuiSupport 2.0
**
**  done by Christian "Kochtopf" Scholz
**
**  just the DoMethod-PROCEDURE because there was none shipped with M2Amiga
**  (or i haven't found it ;-)
**
**  Note that DoMethod returns nothing ( e.g. for setting up a Notify )
**  and DOMethod does ( e.g. for the event-loop )
**
**  Then there is the fail-PROCEDURE (orig. defined in demo.h)
**  A init-PROCEDURE is not needed.
**
**  $Log: MuiSupport.def $
# Revision 1.1  1995/09/25  15:32:52  olf
# Initial revision
#
# Revision 1.6  1994/08/16  20:33:19  Kochtopf
# StrPtr aus Arts importiert
#
# Revision 1.5  1994/08/11  17:00:11  Kochtopf
# *** empty log message ***
#
# Revision 1.4  1994/02/09  14:50:03  Kochtopf
# Versionsnummer in 2.0 geaendert.
#
# Revision 1.3  1994/02/02  09:37:18  Kochtopf
# app bei fail in VAR-Parameter geaendert.
#
# Revision 1.2  1994/02/01  16:49:10  Kochtopf
# kleine Veraenderungen.
#
**
*)

IMPORT R;
FROM Arts IMPORT StrPtr;
FROM SYSTEM IMPORT ADDRESS;
FROM IntuitionD IMPORT IClassPtr;

TYPE APTR = ADDRESS;

PROCEDURE DoMethod(obj{R.A2} : APTR; msg{R.A1} : APTR);
PROCEDURE DOMethod(obj{R.A2} : APTR; msg{R.A1} : APTR) : LONGINT;
(*$ IF Locale *)
PROCEDURE fail(VAR app : APTR; str : StrPtr);
(*$ ELSE *)
PROCEDURE fail(VAR app : APTR; str : ARRAY OF CHAR);
(*$ ENDIF *)

END MuiSupport.

