home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 5
/
amigaformatcd05.iso
/
mui
/
developer
/
oberon
/
txt
/
muiwindow.mod
< prev
next >
Wrap
Text File
|
1996-08-13
|
4KB
|
107 lines
MODULE MUIWindow;
(* $StackChk- $NilChk- $RangeChk- $CaseChk- $OvflChk- $ReturnChk- $ClearVars- *)
(* This module is generated by "GenMuiO" © 1995 by Albert Weinert *)
IMPORT
clf := Classface,
e := Exec,
m := Mui,
RootClass,
SuperClass := MUISemaphore,
I := Intuition;
CONST
name *= m.cWindow;
TYPE
Class *= UNTRACED POINTER TO ClassDesc;
ClassDesc *= RECORD( SuperClass.ClassDesc ) END;
VAR
class * : I.IClassPtr;
PROCEDURE ( VAR c : ClassDesc ) mGetMenuCheck*( VAR msg : m.pWindowGetMenuCheck ):e.APTR;
BEGIN
msg.msg.methodID := m.mWindowGetMenuCheck;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mGetMenuCheck;
PROCEDURE ( VAR c : ClassDesc ) mGetMenuState*( VAR msg : m.pWindowGetMenuState ):e.APTR;
BEGIN
msg.msg.methodID := m.mWindowGetMenuState;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mGetMenuState;
PROCEDURE ( VAR c : ClassDesc ) mScreenToBack*( VAR msg : m.pWindowScreenToBack ):e.APTR;
BEGIN
msg.msg.methodID := m.mWindowScreenToBack;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mScreenToBack;
PROCEDURE ( VAR c : ClassDesc ) mScreenToFront*( VAR msg : m.pWindowScreenToFront ):e.APTR;
BEGIN
msg.msg.methodID := m.mWindowScreenToFront;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mScreenToFront;
PROCEDURE ( VAR c : ClassDesc ) mSetCycleChain*( VAR msg : m.pWindowSetCycleChain ):e.APTR;
BEGIN
msg.msg.methodID := m.mWindowSetCycleChain;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSetCycleChain;
PROCEDURE ( VAR c : ClassDesc ) mSetMenuCheck*( VAR msg : m.pWindowSetMenuCheck ):e.APTR;
BEGIN
msg.msg.methodID := m.mWindowSetMenuCheck;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSetMenuCheck;
PROCEDURE ( VAR c : ClassDesc ) mSetMenuState*( VAR msg : m.pWindowSetMenuState ):e.APTR;
BEGIN
msg.msg.methodID := m.mWindowSetMenuState;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSetMenuState;
PROCEDURE ( VAR c : ClassDesc ) mToBack*( VAR msg : m.pWindowToBack ):e.APTR;
BEGIN
msg.msg.methodID := m.mWindowToBack;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mToBack;
PROCEDURE ( VAR c : ClassDesc ) mToFront*( VAR msg : m.pWindowToFront ):e.APTR;
BEGIN
msg.msg.methodID := m.mWindowToFront;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mToFront;
PROCEDURE Dispatch * ( cl : I.IClassPtr; obj : I.ObjectPtr; msg : I.MsgPtr ):e.APTR;
VAR c : Class;
BEGIN
IF msg.methodID # I.new THEN
c := RootClass.BoopsiToObj( cl, obj )(Class);
END;
CASE msg.methodID OF
| m.mWindowGetMenuCheck : RETURN c.mGetMenuCheck( msg^(m.pWindowGetMenuCheck) );
| m.mWindowGetMenuState : RETURN c.mGetMenuState( msg^(m.pWindowGetMenuState) );
| m.mWindowScreenToBack : RETURN c.mScreenToBack( msg^(m.pWindowScreenToBack) );
| m.mWindowScreenToFront : RETURN c.mScreenToFront( msg^(m.pWindowScreenToFront) );
| m.mWindowSetCycleChain : RETURN c.mSetCycleChain( msg^(m.pWindowSetCycleChain) );
| m.mWindowSetMenuCheck : RETURN c.mSetMenuCheck( msg^(m.pWindowSetMenuCheck) );
| m.mWindowSetMenuState : RETURN c.mSetMenuState( msg^(m.pWindowSetMenuState) );
| m.mWindowToBack : RETURN c.mToBack( msg^(m.pWindowToBack) );
| m.mWindowToFront : RETURN c.mToFront( msg^(m.pWindowToFront) );
ELSE
RETURN SuperClass.Dispatch( cl, obj, msg );
END;
END Dispatch;
BEGIN
class := m.GetClass( name );
IF class = NIL THEN HALT( 205 ) END; (* Error : Object not Found *)
CLOSE
IF class # NIL THEN m.FreeClass( class ) END;
END MUIWindow.