home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 18
/
aminetcdnumber181997.iso
/
Aminet
/
dev
/
m2
/
CycloneModules.lha
/
modules
/
txt
/
WizardD.def
< prev
next >
Wrap
Text File
|
1996-12-10
|
16KB
|
491 lines
(*$ Implementation- *)
DEFINITION MODULE WizardD;
FROM SYSTEM IMPORT ADDRESS,ADR;
FROM ExecD IMPORT MinNode,MinList;
FROM IntuitionD IMPORT MenuPtr,WindowPtr,DrawInfoPtr,GadgetPtr;
(*
** $VER: wizard.h 37.123 (10.05.96)
**
** © 1996 HAAGE & PARTNER, All Rights Reserved
** Autor: Thomas Mittelsdorf
**
** Converted for Cyclone Modula-2 Compiler by Marcel Timmermans
** 10.12.96
*)
CONST
WIZARDNAME = "wizard.library";
WZRD_TEXTPEN = 8002H;
WZRD_SHINEPEN = 8003H;
WZRD_SHADOWPEN = 8004H;
WZRD_FILLPEN = 8005H;
WZRD_FILLTEXTPEN = 8006H;
WZRD_BACKGROUNDPEN = 8007H;
WZRD_HIGHLIGHTTEXTPEN = 8008H;
WZRD_BARDETAILPEN = 8009H;
WZRD_BARBLOCKPEN = 800AH;
WZRD_BARTRIMPEN = 800BH;
WZRDFRAME_NONE = 0;
WZRDFRAME_ICON = 1;
WZRDFRAME_BUTTON = 2;
WZRDFRAME_STRING = 3;
WZRDFRAME_DOUBLEICON = 4;
WZRDFRAME_SICON = 5;
WZRDFRAME_SBUTTON = 6;
WZRDFRAME_SSTRING = 7;
WZRDFRAME_SDOUBLEICON = 8;
WZRDPLACE_LEFT = 0001H;
WZRDPLACE_RIGHT = 0002H;
WZRDPLACE_CENTER = 0010H;
WARROW_LEFT = 0;
WARROW_RIGHT = 1;
WARROW_UP = 2;
WARROW_DOWN = 3;
WGHF_IgnoreOS = 1;
WGHF_FullControl = 2;
TYPE
(* WizardNode ******************************************************)
WizardNodePtr = POINTER TO WizardNode;
WizardNode = RECORD
Node : MinNode;
Entrys : SHORTCARD;
Flags : SHORTCARD;
Intern : ARRAY[0..37] OF SHORTCARD;
END;
(* Standard Node ***************************************************)
(* Diese Node ist für Listviews und Hierarchy *)
WizardDefaultNodePtr = POINTER TO WizardDefaultNode;
WizardDefaultNode = RECORD
wizardNode : WizardNode;
Intern : ARRAY[0..23] OF SHORTCARD;
END;
(*******************************************************************)
WizardWindowHandlePtr = POINTER TO WizardWindowHandle;
WizardWindowHandle = RECORD
Node : MinNode;
Window : WindowPtr;
MenuStrip : MenuPtr;
DrawInfo : DrawInfoPtr;
VisualInfo : ADDRESS;
ScreenTitle : ADDRESS;
SizeImageWidth : INTEGER;
SizeImageHeight : INTEGER;
Objects : MinList;
RootGadget : GadgetPtr;
RootTopGadget : GadgetPtr;
RootLeftGadget : GadgetPtr;
RootBottomGadget : GadgetPtr;
RootRightGadget : GadgetPtr;
UserStruct : ADDRESS;
END;
WizardNewImagePtr = POINTER TO WizardNewImage;
WizardNewImage = RECORD
Flags : CARDINAL;
Name : CARDINAL; (* geben Sie hier immer eine NULL an *)
Width : CARDINAL;
Height : CARDINAL;
Depth : CARDINAL;
Compression : CARDINAL;
Reserved : LONGCARD;
ColorLength : LONGCARD;
ImageLength : LONGCARD;
END;
CONST
WIF_Interleaved = 4;
WIFStandard = 8;
TYPE
(* Vimage-Struktur und seine Tags, sowie Kommandos *)
(* *********************************************** *)
WizardVImagePtr = POINTER TO WizardVImage;
WizardVImage = RECORD
Flags : CARDINAL;
Counter : CARDINAL;
MinWidth : CARDINAL;
MinHeight : CARDINAL;
RelCoords : POINTER TO CARDINAL;
END;
(* Danach folgen die Zeiger für ImageBeschreibungen *)
CONST
WVIF_MinWidth = 1;
WVIF_MinHeight = 2;
WVIF_AreaInit = 4;
WVIF_Recursion = 8;
WVIB_MinWidth = 0;
WVIB_MinHeight = 1;
WVIB_AreaInit = 2;
WVIB_Recursion = 3;
WVICMD_END = 0;
WVICMD_COLOR = 1;
WVICMD_COLOR2 = 2;
WVICMD_MOVE = 3;
WVICMD_DRAW = 4;
WVICMD_RECTFILL = 5;
WVICMD_WRITEPIXEL = 6;
WVICMD_IMAGE = 7;
WVICMD_TEXT = 8;
WVICMD_SETDRMD = 9;
WVICMD_TEXTIMAGE = 10;
WVICMD_TEXTMOVE = 11;
WVICMD_TAGCOLOR = 12;
WVICMD_TEXTPLACE = 13;
WVICMD_SETAFPT = 14;
WVICMD_SNAPCURSOR = 15;
WVICMD_SNAPX = 16;
WVICMD_SNAPY = 17;
WVICMD_TAGMOVE = 18;
WVICMD_TAGIMAGE = 19;
WVICMD_BITMAP_TO_RP = 20;
WVICMD_FILLBORDER = 21;
WVICMD_BEEP = 22;
WVICMD_AREAINIT = 23;
WVICMD_AREAMOVE = 24;
WVICMD_AREADRAW = 25;
WVICMD_AREAEND = 26;
WVICMD_TAGAREAPTRN = 27;
(* Tags der wizard.library *)
WZRD_TagDummy = 80180000H;
WVIA_TagDummy = (WZRD_TagDummy+100);
WVIA_Text = (WVIA_TagDummy+0);
WVIA_TextFont = (WVIA_TagDummy+1);
WVIA_TextPlace = (WVIA_TagDummy+2);
WVIA_TextPen = (WVIA_TagDummy+3);
WVIA_TextStyles = (WVIA_TagDummy+4);
WVIA_TextHighLights = (WVIA_TagDummy+5);
WVIA_TextImages = (WVIA_TagDummy+6);
WVIA_TagImage = (WVIA_TagDummy+7);
WVIA_TagImageCode = (WVIA_TagDummy+8);
WVIA_ImageCode = (WVIA_TagDummy+9);
WVIA_Color0 = (WVIA_TagDummy+10);
WVIA_Color1 = (WVIA_TagDummy+11);
WVIA_Color2 = (WVIA_TagDummy+12);
WVIA_Color3 = (WVIA_TagDummy+13);
WVIA_Color4 = (WVIA_TagDummy+14);
WVIA_Color5 = (WVIA_TagDummy+15);
WVIA_Color6 = (WVIA_TagDummy+16);
WVIA_Color7 = (WVIA_TagDummy+17);
WVIA_TPoint0 = (WVIA_TagDummy+18);
WVIA_TPoint1 = (WVIA_TagDummy+19);
WVIA_TPoint2 = (WVIA_TagDummy+20);
WVIA_TPoint3 = (WVIA_TagDummy+21);
WVIA_TPoint4 = (WVIA_TagDummy+22);
WVIA_TPoint5 = (WVIA_TagDummy+23);
WVIA_TPoint6 = (WVIA_TagDummy+24);
WVIA_TPoint7 = (WVIA_TagDummy+25);
WVIA_AreaPtrn = (WVIA_TagDummy+26);
WVIA_TmpRas = (WVIA_TagDummy+27);
WVIA_BitMapWidth = (WVIA_TagDummy+28);
WVIA_BitMapHeight = (WVIA_TagDummy+29);
WVIA_BitMap0 = (WVIA_TagDummy+30);
WVIA_BitMap1 = (WVIA_TagDummy+31);
WVIA_BitMap2 = (WVIA_TagDummy+32);
WVIA_BitMap3 = (WVIA_TagDummy+33);
WVIA_BitMap4 = (WVIA_TagDummy+34);
WVIA_BitMap5 = (WVIA_TagDummy+35);
WVIA_BitMap6 = (WVIA_TagDummy+36);
WVIA_BitMap7 = (WVIA_TagDummy+37);
WVIA_PureText = (WVIA_TagDummy+38);
WVIA_TagAreaPtSz = (WVIA_TagDummy+39);
WVIA_TagAreaPtrn0 = (WVIA_TagDummy+40);
WVIA_TagAreaPtrn1 = (WVIA_TagDummy+41);
WVIA_TagAreaPtrn2 = (WVIA_TagDummy+42);
WVIA_TagAreaPtrn3 = (WVIA_TagDummy+43);
(* Tags für den Aufruf von WZ_OpenSurface() *)
SFH_Locale = (WZRD_TagDummy+200);
SFH_Catalog = (WZRD_TagDummy+201);
SFH_AutoInit = (WZRD_TagDummy+202);
(* Tags für den Aufruf von WZ_CreateWindowObj() *)
WWH_GadgetArray = (WZRD_TagDummy+300);
WWH_GadgetArraySize = (WZRD_TagDummy+301);
WWH_PreviousGadget = (WZRD_TagDummy+302);
WWH_StringHook = (WZRD_TagDummy+303);
WWH_StackSize = (WZRD_TagDummy+304); (* für WZ_AllocWindowHandle *)
(* Classes in V1.0 *)
WCLASS_GROUPEND = 0;
WCLASS_LAYOUT = 0;
WCLASS_HGROUP = 1;
WCLASS_VGROUP = 2;
WCLASS_BUTTON = 3;
WCLASS_STRING = 4;
WCLASS_LABEL = 5;
WCLASS_CHECKBOX = 6;
WCLASS_MX = 7;
WCLASS_INTEGER = 8;
WCLASS_HSCROLLER = 9;
WCLASS_VSCROLLER = 10;
WCLASS_ARROW = 11;
WCLASS_LISTVIEW = 12;
WCLASS_MULTILISTVIEW = 13;
WCLASS_TOGGLE = 14;
WCLASS_LINE = 15;
WCLASS_COLORFIELD = 16;
WCLASS_ARGS = 17;
WCLASS_GAUGE = 18;
WCLASS_CYCLE = 19;
WCLASS_VECTORBUTTON = 20;
WCLASS_DATE = 21;
WCLASS_SPACE = 22;
WCLASS_IMAGE = 23;
WCLASS_IMAGEBUTTON = 24;
WCLASS_IMAGETOGGLE = 25;
WCLASS_IMAGEPOPUP = 26;
WCLASS_TEXTPOPUP = 27;
WCLASS_PALETTE = 28;
WCLASS_VECTORPOPUP = 29;
WCLASS_HIERARCHY = 30;
WCLASS_HSLIDER = 31;
WCLASS_VSLIDER = 32;
WCLASS_LAST = 33;
(* Flags, die Sie in dem Tag WGA_Flags angeben können *)
WGF_GadgetHelp = (0002H);
WGF_Disabled = (0100H);
WGF_Immediate = (0004H);
WGF_KeyControl = (0200H);
WGRPF_EqualSize = (8000H);
WGRPF_DockMode = (4000H);
WSPCF_Transparent = (8000H);
WTGF_SimpleMode = (8000H);
WLVF_ReadOnly = (8000H);
WLVF_DoubleClicks = (4000H);
WSCF_NewLook = (8000H);
WITF_SimpleMode = (8000H);
WIPF_NewLook = (8000H);
WTPF_NewLook = (8000H);
WVPF_NewLook = (8000H);
WSLF_NewLook = (8000H);
(* alle folgenden Tags sind Universal-Tags für alle Wizardgadgets *)
WGA_Label = (WZRD_TagDummy+400);
WGA_Label2 = (WZRD_TagDummy+401);
WGA_TextFont = (WZRD_TagDummy+402);
WGA_Flags = (WZRD_TagDummy+403);
WGA_Priority = (WZRD_TagDummy+404);
WGA_RelHeight = (WZRD_TagDummy+405);
WGA_MinWidth = (WZRD_TagDummy+406);
WGA_MinHeight = (WZRD_TagDummy+407);
WGA_Link = (WZRD_TagDummy+408);
WGA_LinkData = (WZRD_TagDummy+409);
WGA_HelpText = (WZRD_TagDummy+410);
WGA_Config = (WZRD_TagDummy+411);
WGA_NewImage = (WZRD_TagDummy+412);
WGA_SelNewImage = (WZRD_TagDummy+413);
WGA_Group = (WZRD_TagDummy+414);
WGA_GroupPage = (WZRD_TagDummy+415);
WGA_Locale = (WZRD_TagDummy+416);
WGA_Screen = (WZRD_TagDummy+417);
WGA_Bounds = (WZRD_TagDummy+418);
(* Notify - Tags *)
WNOTIFYA_Type = (WZRD_TagDummy+450);
(* Class-Tags *)
WGROUPA_ActivePage = (WZRD_TagDummy+500);
WGROUPA_MaxPage = (WZRD_TagDummy+501);
WGROUPA_HBorder = (WZRD_TagDummy+502);
WGROUPA_VBorder = (WZRD_TagDummy+503);
WGROUPA_BHOffset = (WZRD_TagDummy+504);
WGROUPA_BVOffset = (WZRD_TagDummy+505);
WGROUPA_Space = (WZRD_TagDummy+506);
WGROUPA_VarSpace = (WZRD_TagDummy+507);
WGROUPA_FrameType = (WZRD_TagDummy+508);
WSTRINGA_MaxChars = (WZRD_TagDummy+509);
WSTRINGA_String = (WZRD_TagDummy+510);
WCHECKBOXA_Checked = (WZRD_TagDummy+511);
WMXA_Active = (WZRD_TagDummy+512);
WGROUPA_HighLights = (WZRD_TagDummy+513);
WGROUPA_HighlightPen = (WZRD_TagDummy+514);
WLABELA_FrameType = (WZRD_TagDummy+515);
WLABELA_Space = (WZRD_TagDummy+516);
WLABELA_BGPen = (WZRD_TagDummy+517);
WLABELA_TextPlace = (WZRD_TagDummy+518);
WLABELA_Lines = (WZRD_TagDummy+519);
WINTEGERA_Long = (WZRD_TagDummy+520);
WINTEGERA_MinLong = (WZRD_TagDummy+521);
WINTEGERA_MaxLong = (WZRD_TagDummy+522);
WSCROLLERA_Top = (WZRD_TagDummy+523);
WSCROLLERA_Visible = (WZRD_TagDummy+524);
WSCROLLERA_Total = (WZRD_TagDummy+525);
WSTRINGA_Justification = (WZRD_TagDummy+526);
WINTEGERA_Justification = (WZRD_TagDummy+527);
WARROWA_Type = (WZRD_TagDummy+528);
WLISTVIEWA_Top = (WZRD_TagDummy+534);
WLISTVIEWA_Selected = (WZRD_TagDummy+535);
WLISTVIEWA_List = (WZRD_TagDummy+536);
WLISTVIEWA_Visible = (WZRD_TagDummy+538);
WLISTVIEWA_DoubleClick = (WZRD_TagDummy+539);
WTOGGLEA_Checked = (WZRD_TagDummy+540);
WLINEA_Type = (WZRD_TagDummy+541);
WLINEA_Label = (WZRD_TagDummy+542);
WCOLORFIELDA_Pen = (WZRD_TagDummy+543);
WARGSA_TextPlace = (WZRD_TagDummy+544);
WARGSA_FrameType = (WZRD_TagDummy+545);
WARGSA_Arg0 = (WZRD_TagDummy+546);
WARGSA_Arg1 = (WZRD_TagDummy+547);
WARGSA_Arg2 = (WZRD_TagDummy+548);
WARGSA_Arg3 = (WZRD_TagDummy+549);
WARGSA_Arg4 = (WZRD_TagDummy+550);
WARGSA_Arg5 = (WZRD_TagDummy+551);
WARGSA_Arg6 = (WZRD_TagDummy+552);
WARGSA_Arg7 = (WZRD_TagDummy+553);
WARGSA_Arg8 = (WZRD_TagDummy+554);
WARGSA_Arg9 = (WZRD_TagDummy+555);
WGAUGEA_Total = (WZRD_TagDummy+556);
WGAUGEA_Current = (WZRD_TagDummy+557);
WGAUGEA_Format = (WZRD_TagDummy+558);
WCYCLEA_Active = (WZRD_TagDummy+559);
WCYCLEA_Labels = (WZRD_TagDummy+560);
WARROWA_Step = (WZRD_TagDummy+561);
WVECTORBUTTONA_Type = (WZRD_TagDummy+562);
WDATEA_Day = (WZRD_TagDummy+563);
WDATEA_Month = (WZRD_TagDummy+564);
WDATEA_Year = (WZRD_TagDummy+565);
WARGSA_Format = (WZRD_TagDummy+566);
WLABELA_HighlightPen = (WZRD_TagDummy+567);
WBUTTONA_Label = (WZRD_TagDummy+568);
WLABELA_HighLights = (WZRD_TagDummy+569);
WLABELA_Label = (WZRD_TagDummy+570);
WIMAGEA_BGPen = (WZRD_TagDummy+571);
WIMAGEA_FrameType = (WZRD_TagDummy+572);
WIMAGEA_HBorder = (WZRD_TagDummy+573);
WIMAGEA_VBorder = (WZRD_TagDummy+574);
WIMAGEA_NewImage = (WZRD_TagDummy+575);
WIMAGEBUTTONA_BGPen = (WZRD_TagDummy+576);
WIMAGEBUTTONA_SelBGPen = (WZRD_TagDummy+577);
WIMAGEBUTTONA_FrameType = (WZRD_TagDummy+578);
WIMAGEBUTTONA_HBorder = (WZRD_TagDummy+579);
WIMAGEBUTTONA_VBorder = (WZRD_TagDummy+580);
WIMAGEBUTTONA_NewImage = (WZRD_TagDummy+581);
WIMAGEBUTTONA_SelNewImage = (WZRD_TagDummy+582);
WIMAGETOGGLEA_BGPen = (WZRD_TagDummy+583);
WIMAGETOGGLEA_SelBGPen = (WZRD_TagDummy+584);
WIMAGETOGGLEA_FrameType = (WZRD_TagDummy+585);
WIMAGETOGGLEA_HBorder = (WZRD_TagDummy+586);
WIMAGETOGGLEA_VBorder = (WZRD_TagDummy+587);
WIMAGETOGGLEA_NewImage = (WZRD_TagDummy+588);
WIMAGETOGGLEA_SelNewImage = (WZRD_TagDummy+589);
WIMAGETOGGLEA_Checked = (WZRD_TagDummy+590);
WSTRINGA_Hook = (WZRD_TagDummy+591);
WIMAGEPOPUPA_BGPen = (WZRD_TagDummy+593);
WIMAGEPOPUPA_FrameType = (WZRD_TagDummy+594);
WIMAGEPOPUPA_HBorder = (WZRD_TagDummy+595);
WIMAGEPOPUPA_VBorder = (WZRD_TagDummy+596);
WIMAGEPOPUPA_TextPlace = (WZRD_TagDummy+597);
WIMAGEPOPUPA_NewImage = (WZRD_TagDummy+598);
WIMAGEPOPUPA_Labels = (WZRD_TagDummy+599);
WIMAGEPOPUPA_Selected = (WZRD_TagDummy+600);
WTEXTPOPUPA_TextPlace = (WZRD_TagDummy+601);
WTEXTPOPUPA_Labels = (WZRD_TagDummy+602);
WTEXTPOPUPA_Selected = (WZRD_TagDummy+603);
WTEXTPOPUPA_Name = (WZRD_TagDummy+604);
WPALETTEA_Colors = (WZRD_TagDummy+605);
WPALETTEA_Selected = (WZRD_TagDummy+606);
WPALETTEA_Offset = (WZRD_TagDummy+607);
WGROUPA_BGPen = (WZRD_TagDummy+608);
WGROUPA_DockMinVisible = (WZRD_TagDummy+609);
WGROUPA_Styles = (WZRD_TagDummy+610);
WLABELA_Styles = (WZRD_TagDummy+611);
WVECTORPOPUPA_Type = (WZRD_TagDummy+612);
WVECTORPOPUPA_Labels = (WZRD_TagDummy+613);
WVECTORPOPUPA_TextPlace = (WZRD_TagDummy+614);
WVECTORPOPUPA_Selected = (WZRD_TagDummy+615);
WHIERARCHYA_ImageType = (WZRD_TagDummy+617);
WHIERARCHYA_ImageWidth = (WZRD_TagDummy+618);
WHIERARCHYA_Top = (WZRD_TagDummy+619);
WHIERARCHYA_List = (WZRD_TagDummy+620);
WHIERARCHYA_Selected = (WZRD_TagDummy+621);
WHIERARCHYA_Visible = (WZRD_TagDummy+622);
WHIERARCHYA_DoubleClick = (WZRD_TagDummy+623);
WSLIDERA_Min = (WZRD_TagDummy+627);
WSLIDERA_Max = (WZRD_TagDummy+628);
WSLIDERA_Level = (WZRD_TagDummy+629);
WTOGGLEA_Label = (WZRD_TagDummy+630);
WLAYOUTA_RootGadget = (WZRD_TagDummy+631);
WLAYOUTA_Type = (WZRD_TagDummy+632);
WLAYOUTA_BorderLeft = (WZRD_TagDummy+633);
WLAYOUTA_BorderRight = (WZRD_TagDummy+634);
WLAYOUTA_BorderTop = (WZRD_TagDummy+635);
WLAYOUTA_BorderBottom = (WZRD_TagDummy+636);
WLAYOUTA_StackSwap = (WZRD_TagDummy+637);
WARGSA_TextPen = (WZRD_TagDummy+638);
WARGSA_BackgroundPen = (WZRD_TagDummy+639);
(* Tags für WZ_InitNode() *)
WNODEA_Flags = (WZRD_TagDummy+1000);
WNF_SELECTED = (0001H); (* Node ist selektiert, MultiListView *)
WNF_TREE = (0020H); (* Das ist eine Node eines Baumes *)
WNF_AUTOMATIC = (0040H); (* Baumkontrolle geht an BOOPSI-Object *)
WNF_VISIBLE = (0080H); (* Baum dieser Node wird dargestellt *)
(* Tags für WZ_InitNodeEntry() *)
WENTRYA_Type = (WZRD_TagDummy+1100);
WENTRYA_TextPen = (WZRD_TagDummy+1101);
WENTRYA_TextSPen = (WZRD_TagDummy+1102);
WENTRYA_TextStyle = (WZRD_TagDummy+1103);
WENTRYA_TextSStyle = (WZRD_TagDummy+1104);
WENTRYA_TextString = (WZRD_TagDummy+1105);
WENTRYA_TreeParentNode = (WZRD_TagDummy+1106);
WENTRYA_TreeChilds = (WZRD_TagDummy+1107);
WENTRYA_TreeString = (WZRD_TagDummy+1108);
WENTRYA_TreePen = (WZRD_TagDummy+1109); // V 38
WENTRYA_TreeSPen = (WZRD_TagDummy+1110); // V 38
WENTRYA_TreeStyle = (WZRD_TagDummy+1111); // V 38
WENTRYA_TreeSStyle = (WZRD_TagDummy+1112); // V 38
WENTRYA_TextFont = (WZRD_TagDummy+1113); // V 38
WENTRYA_TextJustification=(WZRD_TagDummy+1114);// V 38
WENTRYA_TreeFont = (WZRD_TagDummy+1115); // V 38
WNE_TEXT = 1;
WNE_TREE = 3;
END WizardD.