home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 5
/
amigaformatcd05.iso
/
mui
/
developer
/
oberon
/
txt
/
muiapplication.mod
< prev
next >
Wrap
Text File
|
1996-08-13
|
7KB
|
163 lines
MODULE MUIApplication;
(* $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.cApplication;
TYPE
Class *= UNTRACED POINTER TO ClassDesc;
ClassDesc *= RECORD( SuperClass.ClassDesc ) END;
VAR
class * : I.IClassPtr;
PROCEDURE ( VAR c : ClassDesc ) mAddInputHandler*( VAR msg : m.pApplicationAddInputHandler ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationAddInputHandler;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mAddInputHandler;
PROCEDURE ( VAR c : ClassDesc ) mCheckRefresh*( VAR msg : m.pApplicationCheckRefresh ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationCheckRefresh;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mCheckRefresh;
PROCEDURE ( VAR c : ClassDesc ) mGetMenuCheck*( VAR msg : m.pApplicationGetMenuCheck ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationGetMenuCheck;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mGetMenuCheck;
PROCEDURE ( VAR c : ClassDesc ) mGetMenuState*( VAR msg : m.pApplicationGetMenuState ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationGetMenuState;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mGetMenuState;
PROCEDURE ( VAR c : ClassDesc ) mInput*( VAR msg : m.pApplicationInput ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationInput;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mInput;
PROCEDURE ( VAR c : ClassDesc ) mInputBuffered*( VAR msg : m.pApplicationInputBuffered ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationInputBuffered;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mInputBuffered;
PROCEDURE ( VAR c : ClassDesc ) mLoad*( VAR msg : m.pApplicationLoad ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationLoad;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mLoad;
PROCEDURE ( VAR c : ClassDesc ) mNewInput*( VAR msg : m.pApplicationNewInput ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationNewInput;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mNewInput;
PROCEDURE ( VAR c : ClassDesc ) mOpenConfigWindow*( VAR msg : m.pApplicationOpenConfigWindow ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationOpenConfigWindow;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mOpenConfigWindow;
PROCEDURE ( VAR c : ClassDesc ) mPushMethod*( VAR msg : m.pApplicationPushMethod ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationPushMethod;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mPushMethod;
PROCEDURE ( VAR c : ClassDesc ) mRemInputHandler*( VAR msg : m.pApplicationRemInputHandler ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationRemInputHandler;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mRemInputHandler;
PROCEDURE ( VAR c : ClassDesc ) mReturnID*( VAR msg : m.pApplicationReturnID ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationReturnID;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mReturnID;
PROCEDURE ( VAR c : ClassDesc ) mSave*( VAR msg : m.pApplicationSave ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationSave;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSave;
PROCEDURE ( VAR c : ClassDesc ) mSetConfigItem*( VAR msg : m.pApplicationSetConfigItem ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationSetConfigItem;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSetConfigItem;
PROCEDURE ( VAR c : ClassDesc ) mSetMenuCheck*( VAR msg : m.pApplicationSetMenuCheck ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationSetMenuCheck;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSetMenuCheck;
PROCEDURE ( VAR c : ClassDesc ) mSetMenuState*( VAR msg : m.pApplicationSetMenuState ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationSetMenuState;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSetMenuState;
PROCEDURE ( VAR c : ClassDesc ) mShowHelp*( VAR msg : m.pApplicationShowHelp ):e.APTR;
BEGIN
msg.msg.methodID := m.mApplicationShowHelp;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mShowHelp;
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.mApplicationAddInputHandler : RETURN c.mAddInputHandler( msg^(m.pApplicationAddInputHandler) );
| m.mApplicationCheckRefresh : RETURN c.mCheckRefresh( msg^(m.pApplicationCheckRefresh) );
| m.mApplicationGetMenuCheck : RETURN c.mGetMenuCheck( msg^(m.pApplicationGetMenuCheck) );
| m.mApplicationGetMenuState : RETURN c.mGetMenuState( msg^(m.pApplicationGetMenuState) );
| m.mApplicationInput : RETURN c.mInput( msg^(m.pApplicationInput) );
| m.mApplicationInputBuffered : RETURN c.mInputBuffered( msg^(m.pApplicationInputBuffered) );
| m.mApplicationLoad : RETURN c.mLoad( msg^(m.pApplicationLoad) );
| m.mApplicationNewInput : RETURN c.mNewInput( msg^(m.pApplicationNewInput) );
| m.mApplicationOpenConfigWindow : RETURN c.mOpenConfigWindow( msg^(m.pApplicationOpenConfigWindow) );
| m.mApplicationPushMethod : RETURN c.mPushMethod( msg^(m.pApplicationPushMethod) );
| m.mApplicationRemInputHandler : RETURN c.mRemInputHandler( msg^(m.pApplicationRemInputHandler) );
| m.mApplicationReturnID : RETURN c.mReturnID( msg^(m.pApplicationReturnID) );
| m.mApplicationSave : RETURN c.mSave( msg^(m.pApplicationSave) );
| m.mApplicationSetConfigItem : RETURN c.mSetConfigItem( msg^(m.pApplicationSetConfigItem) );
| m.mApplicationSetMenuCheck : RETURN c.mSetMenuCheck( msg^(m.pApplicationSetMenuCheck) );
| m.mApplicationSetMenuState : RETURN c.mSetMenuState( msg^(m.pApplicationSetMenuState) );
| m.mApplicationShowHelp : RETURN c.mShowHelp( msg^(m.pApplicationShowHelp) );
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 MUIApplication.