home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 5
/
amigaformatcd05.iso
/
mui
/
developer
/
oberon
/
txt
/
muinumeric.mod
< prev
next >
Wrap
Text File
|
1996-08-13
|
3KB
|
86 lines
MODULE MUINumeric;
(* $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.cNumeric;
TYPE
Class *= UNTRACED POINTER TO ClassDesc;
ClassDesc *= RECORD( SuperClass.ClassDesc ) END;
VAR
class * : I.IClassPtr;
PROCEDURE ( VAR c : ClassDesc ) mDecrease*( VAR msg : m.pNumericDecrease ):e.APTR;
BEGIN
msg.msg.methodID := m.mNumericDecrease;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mDecrease;
PROCEDURE ( VAR c : ClassDesc ) mIncrease*( VAR msg : m.pNumericIncrease ):e.APTR;
BEGIN
msg.msg.methodID := m.mNumericIncrease;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mIncrease;
PROCEDURE ( VAR c : ClassDesc ) mScaleToValue*( VAR msg : m.pNumericScaleToValue ):e.APTR;
BEGIN
msg.msg.methodID := m.mNumericScaleToValue;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mScaleToValue;
PROCEDURE ( VAR c : ClassDesc ) mSetDefault*( VAR msg : m.pNumericSetDefault ):e.APTR;
BEGIN
msg.msg.methodID := m.mNumericSetDefault;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mSetDefault;
PROCEDURE ( VAR c : ClassDesc ) mStringify*( VAR msg : m.pNumericStringify ):e.APTR;
BEGIN
msg.msg.methodID := m.mNumericStringify;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mStringify;
PROCEDURE ( VAR c : ClassDesc ) mValueToScale*( VAR msg : m.pNumericValueToScale ):e.APTR;
BEGIN
msg.msg.methodID := m.mNumericValueToScale;
RETURN clf.DoSuperMethodA( c.class, c.object, msg )
END mValueToScale;
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.mNumericDecrease : RETURN c.mDecrease( msg^(m.pNumericDecrease) );
| m.mNumericIncrease : RETURN c.mIncrease( msg^(m.pNumericIncrease) );
| m.mNumericScaleToValue : RETURN c.mScaleToValue( msg^(m.pNumericScaleToValue) );
| m.mNumericSetDefault : RETURN c.mSetDefault( msg^(m.pNumericSetDefault) );
| m.mNumericStringify : RETURN c.mStringify( msg^(m.pNumericStringify) );
| m.mNumericValueToScale : RETURN c.mValueToScale( msg^(m.pNumericValueToScale) );
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 MUINumeric.