home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 5
/
amigaformatcd05.iso
/
mui
/
developer
/
oberon
/
txt
/
muilist.mod
< prev
next >
Wrap
Text File
|
1996-08-13
|
5KB
|
149 lines
MODULE MUIList;
(* $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 := MUIArea,
I := Intuition;
CONST
name *= m.cList;
TYPE
Class *= UNTRACED POINTER TO ClassDesc;
ClassDesc *= RECORD( SuperClass.ClassDesc ) END;
VAR
class * : I.IClassPtr;
PROCEDURE ( VAR c : ClassDesc ) mClear*( VAR msg : m.pListClear ):e.APTR;
BEGIN
msg.msg.methodID := m.mListClear;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mClear;
PROCEDURE ( VAR c : ClassDesc ) mCreateImage*( VAR msg : m.pListCreateImage ):e.APTR;
BEGIN
msg.msg.methodID := m.mListCreateImage;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mCreateImage;
PROCEDURE ( VAR c : ClassDesc ) mDeleteImage*( VAR msg : m.pListDeleteImage ):e.APTR;
BEGIN
msg.msg.methodID := m.mListDeleteImage;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mDeleteImage;
PROCEDURE ( VAR c : ClassDesc ) mExchange*( VAR msg : m.pListExchange ):e.APTR;
BEGIN
msg.msg.methodID := m.mListExchange;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mExchange;
PROCEDURE ( VAR c : ClassDesc ) mGetEntry*( VAR msg : m.pListGetEntry ):e.APTR;
BEGIN
msg.msg.methodID := m.mListGetEntry;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mGetEntry;
PROCEDURE ( VAR c : ClassDesc ) mInsert*( VAR msg : m.pListInsert ):e.APTR;
BEGIN
msg.msg.methodID := m.mListInsert;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mInsert;
PROCEDURE ( VAR c : ClassDesc ) mInsertSingle*( VAR msg : m.pListInsertSingle ):e.APTR;
BEGIN
msg.msg.methodID := m.mListInsertSingle;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mInsertSingle;
PROCEDURE ( VAR c : ClassDesc ) mJump*( VAR msg : m.pListJump ):e.APTR;
BEGIN
msg.msg.methodID := m.mListJump;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mJump;
PROCEDURE ( VAR c : ClassDesc ) mMove*( VAR msg : m.pListMove ):e.APTR;
BEGIN
msg.msg.methodID := m.mListMove;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mMove;
PROCEDURE ( VAR c : ClassDesc ) mNextSelected*( VAR msg : m.pListNextSelected ):e.APTR;
BEGIN
msg.msg.methodID := m.mListNextSelected;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mNextSelected;
PROCEDURE ( VAR c : ClassDesc ) mRedraw*( VAR msg : m.pListRedraw ):e.APTR;
BEGIN
msg.msg.methodID := m.mListRedraw;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mRedraw;
PROCEDURE ( VAR c : ClassDesc ) mRemove*( VAR msg : m.pListRemove ):e.APTR;
BEGIN
msg.msg.methodID := m.mListRemove;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mRemove;
PROCEDURE ( VAR c : ClassDesc ) mSelect*( VAR msg : m.pListSelect ):e.APTR;
BEGIN
msg.msg.methodID := m.mListSelect;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSelect;
PROCEDURE ( VAR c : ClassDesc ) mSort*( VAR msg : m.pListSort ):e.APTR;
BEGIN
msg.msg.methodID := m.mListSort;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSort;
PROCEDURE ( VAR c : ClassDesc ) mTestPos*( VAR msg : m.pListTestPos ):e.APTR;
BEGIN
msg.msg.methodID := m.mListTestPos;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mTestPos;
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.mListClear : RETURN c.mClear( msg^(m.pListClear) );
| m.mListCreateImage : RETURN c.mCreateImage( msg^(m.pListCreateImage) );
| m.mListDeleteImage : RETURN c.mDeleteImage( msg^(m.pListDeleteImage) );
| m.mListExchange : RETURN c.mExchange( msg^(m.pListExchange) );
| m.mListGetEntry : RETURN c.mGetEntry( msg^(m.pListGetEntry) );
| m.mListInsert : RETURN c.mInsert( msg^(m.pListInsert) );
| m.mListInsertSingle : RETURN c.mInsertSingle( msg^(m.pListInsertSingle) );
| m.mListJump : RETURN c.mJump( msg^(m.pListJump) );
| m.mListMove : RETURN c.mMove( msg^(m.pListMove) );
| m.mListNextSelected : RETURN c.mNextSelected( msg^(m.pListNextSelected) );
| m.mListRedraw : RETURN c.mRedraw( msg^(m.pListRedraw) );
| m.mListRemove : RETURN c.mRemove( msg^(m.pListRemove) );
| m.mListSelect : RETURN c.mSelect( msg^(m.pListSelect) );
| m.mListSort : RETURN c.mSort( msg^(m.pListSort) );
| m.mListTestPos : RETURN c.mTestPos( msg^(m.pListTestPos) );
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 MUIList.