home *** CD-ROM | disk | FTP | other *** search
- { Unit: Wizard
- Language: MaxonPascal, KickPascal
-
- Original C-Include: wizard.h 37.123 (10.05.96)
- © 1996 HAAGE & PARTNER, All Rights Reserved
-
- $VER: 1.1 (08.06.96)
-
- Author: Falk Zuehlsdorff (ai036@rz.tu-ilmenau.de)
- }
-
- UNIT Wizard;
-
- INTERFACE;
-
- USES Intuition,Gadtools;
-
- CONST WIZARDNAME = "wizard.library";
-
- WZRD_TEXTPEN = $8002;
- WZRD_SHINEPEN = $8003;
- WZRD_SHADOWPEN = $8004;
- WZRD_FILLPEN = $8005;
- WZRD_FILLTEXTPEN = $8006;
- WZRD_BACKGROUNDPEN = $8007;
- WZRD_HIGHLIGHTTEXTPEN = $8008;
- WZRD_BARDETAILPEN = $8009; { OS V39 }
- WZRD_BARBLOCKPEN = $800A; { OS V39 }
- WZRD_BARTRIMPEN = $800B; { OS V39 }
-
- 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 = $1;
- WZRDPLACE_RIGHT = $2;
- WZRDPLACE_CENTER = $10;
-
- WARROW_LEFT = 0;
- WARROW_RIGHT = 1;
- WARROW_UP = 2;
- WARROW_DOWN = 3;
-
- WGHF_IgnoreOS = 1;
- WGHF_FullControl = 2;
-
- TYPE
-
- { WizardNode ------------------------------------------------------ }
-
-
- p_WizardNode = ^WizardNode;
-
- WizardNode = RECORD
- Node : MinNode;
- Entrys : byte;
- Flags : byte;
- Intern : array [0..38] of byte;
- END;
-
- { Standard Node --------------------------------------------------- }
- { Diese Node ist für Listviews und Hierarchy }
-
- p_WizardDefaultNode = ^WizardDefaultNode;
-
- WizardDefaultNode = RECORD
- WizardNode : WizardNode;
- Intern : array [0..24] of byte;
- END;
-
- {------------------------------------------------------------------ }
-
- p_WizardWindowHandle = ^WizardWindowHandle;
- p_winhaddress = ^winhaddress;
- winhaddress = p_WizardWindowHandle;
-
- WizardWindowHandle = RECORD
- Node : MinNode;
- Window : p_Window;
- MenuStrip : p_Menu;
- DrawInfo : p_DrawInfo;
- VisualInfo : PTR;
- ScreenTitle : STR;
- SizeImageWidth : Integer;
- SizeImageHeight : Integer;
- Objects : MinList;
- RootGadget : p_Gadget;
- RootTopGadget : p_Gadget;
- RootLeftGadget : p_Gadget;
- RootBottomGadget : p_Gadget;
- RootRightGadget : p_Gadget;
- UserStruct : PTR;
- END;
-
- p_WizardNewImage = ^WizardNewImage;
-
- WizardNewImage = RECORD
- Flags : word;
- Name : word; { immer auf NULL setzen ! }
- Width : word;
- Height : word;
- Depth : word;
- Compression : word;
- Reserved : long;
- ColorLength : long;
- ImageLength : long;
- END;
-
- CONST WIF_Interleaved = 4;
- WIFStandard = 8;
-
- { Vimage-Struktur und seine Tags, sowie Kommandos ----------------- }
-
- TYPE p_WizardVImage = ^WizardVImage;
-
- WizardVImage = RECORD
- Flags : word;
- Counter : word;
- MinWidth : word;
- MinHeight : word;
- RelCoords : ^word;
- END;
-
- 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 = $80180000;
-
- 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 = 2; {(1<<1)}
- WGF_Disabled = 256; {(1<<8)}
- WGF_Immediate = 4; {(1<<2)}
- WGF_KeyControl = 512; {(1<<9)}
- WGRPF_EqualSize = 32768; {(1<<15)}
- WGRPF_DockMode = 16384; {(1<<14)}
- WSPCF_Transparent = 32768; {(1<<15)}
- WTGF_SimpleMode = 32768; {(1<<15)}
- WLVF_ReadOnly = 32768; {(1<<15)}
- WLVF_DoubleClicks = 16384; {(1<<14)}
- WSCF_NewLook = 32768; {(1<<15)}
- WITF_SimpleMode = 32768; {(1<<15)}
- WIPF_NewLook = 32768; {(1<<15)}
- WTPF_NewLook = 32768; {(1<<15)}
- WVPF_NewLook = 32768; {(1<<15)}
- WSLF_NewLook = 32768; {(1<<15)}
-
- { 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 = 1; {(1<<0) Node ist selektiert, MultiListView }
- WNF_TREE = 32; {(1<<5) Das ist eine Node eines Baumes }
- WNF_AUTOMATIC = 64; {(1<<6) Baumkontrolle geht an BOOPSI-Object }
- WNF_VISIBLE = 128; {(1<<7) 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;
-
- {======================================================================}
-
- TYPE p_Long = ^Long;
-
- Var WizardBase : Ptr;
-
- LIBRARY WizardBase :
-
- -30 : FUNCTION WZ_OpenSurfaceA(A0:STR;A1:PTR;A2:p_TagItem) : PTR;
- -36 : PROCEDURE WZ_CloseSurface(A0:PTR);
- -42 : FUNCTION WZ_AllocWindowHandleA(D0:p_Screen;D1:Long;A0:PTR;A1:p_TagItem) : p_WizardWindowHandle;
- -48 : FUNCTION WZ_CreateWindowObjA(A0:p_WizardWindowHandle;D0:Long;A1:p_TagItem) : p_NewWindow;
- -54 : FUNCTION WZ_OpenWindowA(A0:p_WizardWindowHandle;A1:p_NewWindow;A2:p_TagItem) : p_Window;
- -60 : PROCEDURE WZ_CloseWindow(A0:p_WizardWindowHandle);
- -66 : PROCEDURE WZ_FreeWindowHandle(A0:p_WizardWindowHandle);
- -72 : PROCEDURE WZ_LockWindow(A0:p_WizardWindowHandle);
- -78 : FUNCTION WZ_UnlockWindow(A0:p_WizardWindowHandle) : Long;
- -84 : PROCEDURE WZ_LockWindows(A0:PTR);
- -90 : PROCEDURE WZ_UnlockWindows(A0:PTR);
- -96 : FUNCTION WZ_GadgetHelp(A0:p_WizardWindowHandle;A1:PTR) : STR;
- -102 : FUNCTION WZ_GadgetConfig(A0:p_WizardWindowHandle;A1:p_gadget) : STR;
- -108 : FUNCTION WZ_MenuHelp(A0:p_WizardWindowHandle;D0:Long) : STR;
- -114 : FUNCTION WZ_MenuConfig(A0:p_WizardWindowHandle;D0:Long) : STR;
- -120 : FUNCTION WZ_InitEasyStruct(A0:PTR;A1:p_EasyStruct;D0:Long;D1:Long) : p_EasyStruct;
- -126 : FUNCTION WZ_SnapShotA(A0:PTR;A1:p_TagItem) : boolean;
- -132 : FUNCTION WZ_GadgetKey(A0:p_WizardWindowHandle;D0:Long;D1:Long;A1:p_TagItem) : boolean;
- -138 : FUNCTION WZ_DrawVImageA(A0:p_WizardVImage;D0,D1,D2,D3,D4:Integer;D5:p_RastPort;D6:p_DrawInfo;A1:p_TagItem) : boolean;
- -144 : FUNCTION WZ_EasyRequestArgs(A0:PTR;A1:p_Window;D0:Long;A2:Ptr) : long;
- -150 : FUNCTION WZ_GetNode(A0:p_Minlist;D0:Long) : p_WizardNode;
- -172 : FUNCTION WZ_ListCount(A0:p_MinList) : Long;
- -162 : FUNCTION WZ_NewObjectA(D0:Long;A0:p_TagItem) : p_Gadget;
- -168 : FUNCTION WZ_GadgetHelpMsg(A0:p_WizardWindowHandle;A1:p_winhaddress;A2:PTR;D0:Integer;D1:Integer;D2:Word) :boolean;
- -174 : FUNCTION WZ_ObjectID(A0:Ptr;A2:p_Long;A1:STR) : boolean;
- -180 : PROCEDURE WZ_InitNodeA(A0:p_WizardNode;D0:Long;A1:p_TagItem);
- -186 : PROCEDURE WZ_InitNodeEntryA(A0:p_WizardNode;D0:Long;A1:p_TagItem);
-
- end;
-
- IMPLEMENTATION
-
- end.
-
-
-
-
-