MODULE MUIColorfield;

(* $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.cColorfield;

TYPE
  Class     *= UNTRACED POINTER TO ClassDesc;
  ClassDesc *= RECORD( SuperClass.ClassDesc ) END;

VAR
  class * : I.IClassPtr;

  PROCEDURE Dispatch * ( cl : I.IClassPtr; obj : I.ObjectPtr; msg : I.MsgPtr ):e.APTR;
    BEGIN
      RETURN SuperClass.Dispatch( cl,obj, msg);
    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 MUIColorfield.