home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / LFC-SW2.LHA / StormWizard / Include / pascal / Unit-Source / wizard-unit.p < prev   
Encoding:
Text File  |  1996-06-07  |  21.8 KB  |  573 lines

  1. { Unit:               Wizard
  2.   Language:           MaxonPascal, KickPascal
  3.  
  4.   Original C-Include: wizard.h 37.123 (10.05.96)
  5.                       © 1996 HAAGE & PARTNER,  All Rights Reserved
  6.  
  7.   $VER:               1.1 (08.06.96)
  8.  
  9.   Author:             Falk Zuehlsdorff (ai036@rz.tu-ilmenau.de)
  10. }
  11.  
  12. UNIT Wizard;
  13.  
  14. INTERFACE;
  15.  
  16. USES Intuition,Gadtools;
  17.  
  18. CONST WIZARDNAME            = "wizard.library";
  19.  
  20.       WZRD_TEXTPEN          = $8002;
  21.       WZRD_SHINEPEN         = $8003;
  22.       WZRD_SHADOWPEN        = $8004;
  23.       WZRD_FILLPEN          = $8005;
  24.       WZRD_FILLTEXTPEN      = $8006;
  25.       WZRD_BACKGROUNDPEN    = $8007;
  26.       WZRD_HIGHLIGHTTEXTPEN = $8008;
  27.       WZRD_BARDETAILPEN     = $8009;           { OS V39 }
  28.       WZRD_BARBLOCKPEN      = $800A;           { OS V39 }
  29.       WZRD_BARTRIMPEN       = $800B;           { OS V39 }
  30.  
  31.       WZRDFRAME_NONE        = 0;
  32.       WZRDFRAME_ICON        = 1;
  33.       WZRDFRAME_BUTTON      = 2;
  34.       WZRDFRAME_STRING      = 3;
  35.       WZRDFRAME_DOUBLEICON  = 4;
  36.       WZRDFRAME_SICON       = 5;
  37.       WZRDFRAME_SBUTTON     = 6;
  38.       WZRDFRAME_SSTRING     = 7;
  39.       WZRDFRAME_SDOUBLEICON = 8;
  40.  
  41.       WZRDPLACE_LEFT        = $1;
  42.       WZRDPLACE_RIGHT       = $2;
  43.       WZRDPLACE_CENTER      = $10;
  44.  
  45.       WARROW_LEFT           = 0;
  46.       WARROW_RIGHT          = 1;
  47.       WARROW_UP             = 2;
  48.       WARROW_DOWN           = 3;
  49.  
  50.       WGHF_IgnoreOS         = 1;
  51.       WGHF_FullControl      = 2;
  52.  
  53. TYPE
  54.  
  55. { WizardNode ------------------------------------------------------ }
  56.  
  57.  
  58.       p_WizardNode          = ^WizardNode;
  59.  
  60.       WizardNode            = RECORD
  61.                                Node   : MinNode;
  62.                                Entrys : byte;
  63.                                Flags  : byte;
  64.                                Intern : array [0..38] of byte;
  65.                               END;
  66.  
  67. { Standard Node --------------------------------------------------- }
  68. { Diese Node ist für Listviews und Hierarchy                        }
  69.  
  70.      p_WizardDefaultNode    = ^WizardDefaultNode;
  71.  
  72.      WizardDefaultNode      = RECORD
  73.                                WizardNode : WizardNode;
  74.                                Intern : array [0..24] of byte;
  75.                               END;
  76.  
  77. {------------------------------------------------------------------ }
  78.  
  79.      p_WizardWindowHandle   = ^WizardWindowHandle;
  80.      p_winhaddress          = ^winhaddress;
  81.      winhaddress            = p_WizardWindowHandle;
  82.  
  83.      WizardWindowHandle     = RECORD
  84.                                Node              : MinNode;
  85.                                Window            : p_Window;
  86.                                MenuStrip         : p_Menu;
  87.                                DrawInfo          : p_DrawInfo;
  88.                                VisualInfo        : PTR;
  89.                                ScreenTitle       : STR;
  90.                                SizeImageWidth    : Integer;
  91.                                SizeImageHeight   : Integer;
  92.                                Objects           : MinList;
  93.                                RootGadget        : p_Gadget;
  94.                                RootTopGadget     : p_Gadget;
  95.                                RootLeftGadget    : p_Gadget;
  96.                                RootBottomGadget  : p_Gadget;
  97.                                RootRightGadget   : p_Gadget;
  98.                                UserStruct        : PTR;
  99.                               END;
  100.  
  101.      p_WizardNewImage       = ^WizardNewImage;
  102.  
  103.      WizardNewImage         = RECORD
  104.                                Flags       : word;
  105.                                Name        : word; { immer auf NULL setzen ! }
  106.                                Width       : word;
  107.                                Height      : word;
  108.                                Depth       : word;
  109.                                Compression : word;
  110.                                Reserved    : long;
  111.                                ColorLength : long;
  112.                                ImageLength : long;
  113.                               END;
  114.  
  115. CONST WIF_Interleaved       =  4;
  116.       WIFStandard           =  8;
  117.  
  118. { Vimage-Struktur und seine Tags, sowie Kommandos ----------------- }
  119.  
  120. TYPE   p_WizardVImage       = ^WizardVImage;
  121.  
  122.        WizardVImage         = RECORD
  123.                                Flags     : word;
  124.                                Counter   : word;
  125.                                MinWidth  : word;
  126.                                MinHeight : word;
  127.                                RelCoords : ^word;
  128.                               END;
  129.  
  130. CONST WVIF_MinWidth         = 1;
  131.       WVIF_MinHeight        = 2;
  132.       WVIF_AreaInit         = 4;
  133.       WVIF_Recursion        = 8;
  134.  
  135.       WVIB_MinWidth         = 0;
  136.       WVIB_MinHeight        = 1;
  137.       WVIB_AreaInit         = 2;
  138.       WVIB_Recursion        = 3;
  139.  
  140.       WVICMD_END            = 0;
  141.       WVICMD_COLOR          = 1;
  142.       WVICMD_COLOR2         = 2;
  143.       WVICMD_MOVE           = 3;
  144.       WVICMD_DRAW           = 4;
  145.       WVICMD_RECTFILL       = 5;
  146.       WVICMD_WRITEPIXEL     = 6;
  147.       WVICMD_IMAGE          = 7;
  148.       WVICMD_TEXT           = 8;
  149.       WVICMD_SETDRMD        = 9;
  150.       WVICMD_TEXTIMAGE      = 10;
  151.       WVICMD_TEXTMOVE       = 11;
  152.       WVICMD_TAGCOLOR       = 12;
  153.       WVICMD_TEXTPLACE      = 13;
  154.       WVICMD_SETAFPT        = 14;
  155.       WVICMD_SNAPCURSOR     = 15;
  156.       WVICMD_SNAPX          = 16;
  157.       WVICMD_SNAPY          = 17;
  158.       WVICMD_TAGMOVE        = 18;
  159.       WVICMD_TAGIMAGE       = 19;
  160.       WVICMD_BITMAP_TO_RP   = 20;
  161.       WVICMD_FILLBORDER     = 21;
  162.       WVICMD_BEEP           = 22;
  163.       WVICMD_AREAINIT       = 23;
  164.       WVICMD_AREAMOVE       = 24;
  165.       WVICMD_AREADRAW       = 25;
  166.       WVICMD_AREAEND        = 26;
  167.       WVICMD_TAGAREAPTRN    = 27;
  168.  
  169. { Tags der wizard.library ----------------------------------------- }
  170.  
  171.       WZRD_TagDummy         = $80180000;
  172.  
  173.       WVIA_TagDummy         = (WZRD_TagDummy+100);
  174.  
  175.       WVIA_Text             = (WVIA_TagDummy+0);
  176.       WVIA_TextFont         = (WVIA_TagDummy+1);
  177.       WVIA_TextPlace        = (WVIA_TagDummy+2);
  178.       WVIA_TextPen          = (WVIA_TagDummy+3);
  179.       WVIA_TextStyles       = (WVIA_TagDummy+4);
  180.       WVIA_TextHighLights   = (WVIA_TagDummy+5);
  181.       WVIA_TextImages       = (WVIA_TagDummy+6);
  182.  
  183.       WVIA_TagImage         = (WVIA_TagDummy+7);
  184.       WVIA_TagImageCode     = (WVIA_TagDummy+8);
  185.  
  186.       WVIA_ImageCode        = (WVIA_TagDummy+9);
  187.  
  188.       WVIA_Color0           = (WVIA_TagDummy+10);
  189.       WVIA_Color1           = (WVIA_TagDummy+11);
  190.       WVIA_Color2           = (WVIA_TagDummy+12);
  191.       WVIA_Color3           = (WVIA_TagDummy+13);
  192.       WVIA_Color4           = (WVIA_TagDummy+14);
  193.       WVIA_Color5           = (WVIA_TagDummy+15);
  194.       WVIA_Color6           = (WVIA_TagDummy+16);
  195.       WVIA_Color7           = (WVIA_TagDummy+17);
  196.  
  197.       WVIA_TPoint0          = (WVIA_TagDummy+18);
  198.       WVIA_TPoint1          = (WVIA_TagDummy+19);
  199.       WVIA_TPoint2          = (WVIA_TagDummy+20);
  200.       WVIA_TPoint3          = (WVIA_TagDummy+21);
  201.       WVIA_TPoint4          = (WVIA_TagDummy+22);
  202.       WVIA_TPoint5          = (WVIA_TagDummy+23);
  203.       WVIA_TPoint6          = (WVIA_TagDummy+24);
  204.       WVIA_TPoint7          = (WVIA_TagDummy+25);
  205.  
  206.       WVIA_AreaPtrn         = (WVIA_TagDummy+26);
  207.       WVIA_TmpRas           = (WVIA_TagDummy+27);
  208.  
  209.       WVIA_BitMapWidth      = (WVIA_TagDummy+28);
  210.       WVIA_BitMapHeight     = (WVIA_TagDummy+29);
  211.       WVIA_BitMap0          = (WVIA_TagDummy+30);
  212.       WVIA_BitMap1          = (WVIA_TagDummy+31);
  213.       WVIA_BitMap2          = (WVIA_TagDummy+32);
  214.       WVIA_BitMap3          = (WVIA_TagDummy+33);
  215.       WVIA_BitMap4          = (WVIA_TagDummy+34);
  216.       WVIA_BitMap5          = (WVIA_TagDummy+35);
  217.       WVIA_BitMap6          = (WVIA_TagDummy+36);
  218.       WVIA_BitMap7          = (WVIA_TagDummy+37);
  219.  
  220.       WVIA_PureText         = (WVIA_TagDummy+38);
  221.  
  222.       WVIA_TagAreaPtSz      = (WVIA_TagDummy+39);
  223.       WVIA_TagAreaPtrn0     = (WVIA_TagDummy+40);
  224.       WVIA_TagAreaPtrn1     = (WVIA_TagDummy+41);
  225.       WVIA_TagAreaPtrn2     = (WVIA_TagDummy+42);
  226.       WVIA_TagAreaPtrn3     = (WVIA_TagDummy+43);
  227.  
  228. {      Tags für den Aufruf von WZ_OpenSurface();      }
  229.  
  230.       SFH_Locale            = (WZRD_TagDummy+200);
  231.       SFH_Catalog           = (WZRD_TagDummy+201);
  232.       SFH_AutoInit          = (WZRD_TagDummy+202);
  233.  
  234. {      Tags für den Aufruf von WZ_CreateWindowObj();      }
  235.  
  236.       WWH_GadgetArray       = (WZRD_TagDummy+300);
  237.       WWH_GadgetArraySize   = (WZRD_TagDummy+301);
  238.       WWH_PreviousGadget    = (WZRD_TagDummy+302);
  239.       WWH_StringHook        = (WZRD_TagDummy+303);
  240.       WWH_StackSize         = (WZRD_TagDummy+304); { für WZ_AllocWindowHandle }
  241.  
  242. {      Classes in V1.0 }
  243.  
  244.       WCLASS_GROUPEND       = 0;
  245.  
  246.       WCLASS_LAYOUT         = 0;
  247.       WCLASS_HGROUP         = 1;
  248.       WCLASS_VGROUP         = 2;
  249.       WCLASS_BUTTON         = 3;
  250.       WCLASS_STRING         = 4;
  251.       WCLASS_LABEL          = 5;
  252.       WCLASS_CHECKBOX       = 6;
  253.       WCLASS_MX             = 7;
  254.       WCLASS_INTEGER        = 8;
  255.       WCLASS_HSCROLLER      = 9;
  256.       WCLASS_VSCROLLER      = 10;
  257.       WCLASS_ARROW          = 11;
  258.       WCLASS_LISTVIEW       = 12;
  259.       WCLASS_MULTILISTVIEW  = 13;
  260.       WCLASS_TOGGLE         = 14;
  261.       WCLASS_LINE           = 15;
  262.       WCLASS_COLORFIELD     = 16;
  263.       WCLASS_ARGS           = 17;
  264.       WCLASS_GAUGE          = 18;
  265.       WCLASS_CYCLE          = 19;
  266.       WCLASS_VECTORBUTTON   = 20;
  267.       WCLASS_DATE           = 21;
  268.       WCLASS_SPACE          = 22;
  269.       WCLASS_IMAGE          = 23;
  270.       WCLASS_IMAGEBUTTON    = 24;
  271.       WCLASS_IMAGETOGGLE    = 25;
  272.       WCLASS_IMAGEPOPUP     = 26;
  273.       WCLASS_TEXTPOPUP      = 27;
  274.       WCLASS_PALETTE        = 28;
  275.       WCLASS_VECTORPOPUP    = 29;
  276.       WCLASS_HIERARCHY      = 30;
  277.       WCLASS_HSLIDER        = 31;
  278.       WCLASS_VSLIDER        = 32;
  279.       WCLASS_LAST           = 33;
  280.  
  281. {      Flags, die Sie in dem Tag WGA_Flags angeben können }
  282.  
  283.       WGF_GadgetHelp        = 2;      {(1<<1)}
  284.       WGF_Disabled          = 256;    {(1<<8)}
  285.       WGF_Immediate         = 4;      {(1<<2)}
  286.       WGF_KeyControl        = 512;    {(1<<9)}
  287.       WGRPF_EqualSize       = 32768;  {(1<<15)}
  288.       WGRPF_DockMode        = 16384;  {(1<<14)}
  289.       WSPCF_Transparent     = 32768;  {(1<<15)}
  290.       WTGF_SimpleMode       = 32768;  {(1<<15)}
  291.       WLVF_ReadOnly         = 32768;  {(1<<15)}
  292.       WLVF_DoubleClicks     = 16384;  {(1<<14)}
  293.       WSCF_NewLook          = 32768;  {(1<<15)}
  294.       WITF_SimpleMode       = 32768;  {(1<<15)}
  295.       WIPF_NewLook          = 32768;  {(1<<15)}
  296.       WTPF_NewLook          = 32768;  {(1<<15)}
  297.       WVPF_NewLook          = 32768;  {(1<<15)}
  298.       WSLF_NewLook          = 32768;  {(1<<15)}
  299.  
  300. {      alle folgenden Tags sind Universal-Tags für alle Wizardgadgets }
  301.  
  302.       WGA_Label             = (WZRD_TagDummy+400);
  303.       WGA_Label2            = (WZRD_TagDummy+401);
  304.       WGA_TextFont          = (WZRD_TagDummy+402);
  305.       WGA_Flags             = (WZRD_TagDummy+403);
  306.       WGA_Priority          = (WZRD_TagDummy+404);
  307.       WGA_RelHeight         = (WZRD_TagDummy+405);
  308.       WGA_MinWidth          = (WZRD_TagDummy+406);
  309.       WGA_MinHeight         = (WZRD_TagDummy+407);
  310.       WGA_Link              = (WZRD_TagDummy+408);
  311.       WGA_LinkData          = (WZRD_TagDummy+409);
  312.       WGA_HelpText          = (WZRD_TagDummy+410);
  313.       WGA_Config            = (WZRD_TagDummy+411);
  314.       WGA_NewImage          = (WZRD_TagDummy+412);
  315.       WGA_SelNewImage       = (WZRD_TagDummy+413);
  316.       WGA_Group             = (WZRD_TagDummy+414);
  317.       WGA_GroupPage         = (WZRD_TagDummy+415);
  318.       WGA_Locale            = (WZRD_TagDummy+416);
  319.       WGA_Screen            = (WZRD_TagDummy+417);
  320.       WGA_Bounds            = (WZRD_TagDummy+418);
  321.  
  322. {      Notify - Tags }
  323.  
  324.       WNOTIFYA_Type         = (WZRD_TagDummy+450);
  325.  
  326. {      Class-Tags }
  327.  
  328.       WGROUPA_ActivePage    = (WZRD_TagDummy+500);
  329.       WGROUPA_MaxPage       = (WZRD_TagDummy+501);
  330.       WGROUPA_HBorder       = (WZRD_TagDummy+502);
  331.       WGROUPA_VBorder       = (WZRD_TagDummy+503);
  332.       WGROUPA_BHOffset      = (WZRD_TagDummy+504);
  333.       WGROUPA_BVOffset      = (WZRD_TagDummy+505);
  334.       WGROUPA_Space         = (WZRD_TagDummy+506);
  335.       WGROUPA_VarSpace      = (WZRD_TagDummy+507);
  336.       WGROUPA_FrameType     = (WZRD_TagDummy+508);
  337.  
  338.       WSTRINGA_MaxChars     = (WZRD_TagDummy+509);
  339.       WSTRINGA_String       = (WZRD_TagDummy+510);
  340.  
  341.       WCHECKBOXA_Checked    = (WZRD_TagDummy+511);
  342.  
  343.       WMXA_Active           = (WZRD_TagDummy+512);
  344.       WGROUPA_HighLights    = (WZRD_TagDummy+513);
  345.       WGROUPA_HighlightPen  = (WZRD_TagDummy+514);
  346.  
  347.       WLABELA_FrameType     = (WZRD_TagDummy+515);
  348.       WLABELA_Space         = (WZRD_TagDummy+516);
  349.       WLABELA_BGPen         = (WZRD_TagDummy+517);
  350.       WLABELA_TextPlace     = (WZRD_TagDummy+518);
  351.       WLABELA_Lines         = (WZRD_TagDummy+519);
  352.  
  353.       WINTEGERA_Long        = (WZRD_TagDummy+520);
  354.       WINTEGERA_MinLong     = (WZRD_TagDummy+521);
  355.       WINTEGERA_MaxLong     = (WZRD_TagDummy+522);
  356.  
  357.       WSCROLLERA_Top        = (WZRD_TagDummy+523);
  358.       WSCROLLERA_Visible    = (WZRD_TagDummy+524);
  359.       WSCROLLERA_Total      = (WZRD_TagDummy+525);
  360.  
  361.       WSTRINGA_Justification  = (WZRD_TagDummy+526);
  362.       WINTEGERA_Justification = (WZRD_TagDummy+527);
  363.  
  364.       WARROWA_Type          = (WZRD_TagDummy+528);
  365.  
  366.       WLISTVIEWA_Top         = (WZRD_TagDummy+534);
  367.       WLISTVIEWA_Selected    = (WZRD_TagDummy+535);
  368.       WLISTVIEWA_List        = (WZRD_TagDummy+536);
  369.       WLISTVIEWA_Visible     = (WZRD_TagDummy+538);
  370.       WLISTVIEWA_DoubleClick = (WZRD_TagDummy+539);
  371.  
  372.       WTOGGLEA_Checked      = (WZRD_TagDummy+540);
  373.  
  374.       WLINEA_Type           = (WZRD_TagDummy+541);
  375.       WLINEA_Label          = (WZRD_TagDummy+542);
  376.  
  377.       WCOLORFIELDA_Pen      = (WZRD_TagDummy+543);
  378.  
  379.       WARGSA_TextPlace      = (WZRD_TagDummy+544);
  380.       WARGSA_FrameType      = (WZRD_TagDummy+545);
  381.       WARGSA_Arg0           = (WZRD_TagDummy+546);
  382.       WARGSA_Arg1           = (WZRD_TagDummy+547);
  383.       WARGSA_Arg2           = (WZRD_TagDummy+548);
  384.       WARGSA_Arg3           = (WZRD_TagDummy+549);
  385.       WARGSA_Arg4           = (WZRD_TagDummy+550);
  386.       WARGSA_Arg5           = (WZRD_TagDummy+551);
  387.       WARGSA_Arg6           = (WZRD_TagDummy+552);
  388.       WARGSA_Arg7           = (WZRD_TagDummy+553);
  389.       WARGSA_Arg8           = (WZRD_TagDummy+554);
  390.       WARGSA_Arg9           = (WZRD_TagDummy+555);
  391.  
  392.       WGAUGEA_Total         = (WZRD_TagDummy+556);
  393.       WGAUGEA_Current       = (WZRD_TagDummy+557);
  394.       WGAUGEA_Format        = (WZRD_TagDummy+558);
  395.  
  396.       WCYCLEA_Active        = (WZRD_TagDummy+559);
  397.       WCYCLEA_Labels        = (WZRD_TagDummy+560);
  398.  
  399.       WARROWA_Step          = (WZRD_TagDummy+561);
  400.  
  401.       WVECTORBUTTONA_Type   = (WZRD_TagDummy+562);
  402.  
  403.       WDATEA_Day            = (WZRD_TagDummy+563);
  404.       WDATEA_Month          = (WZRD_TagDummy+564);
  405.       WDATEA_Year           = (WZRD_TagDummy+565);
  406.  
  407.       WARGSA_Format         = (WZRD_TagDummy+566);
  408.  
  409.       WLABELA_HighlightPen  = (WZRD_TagDummy+567);
  410.  
  411.       WBUTTONA_Label        = (WZRD_TagDummy+568);
  412.  
  413.       WLABELA_HighLights    = (WZRD_TagDummy+569);
  414.       WLABELA_Label         = (WZRD_TagDummy+570);
  415.  
  416.       WIMAGEA_BGPen         = (WZRD_TagDummy+571);
  417.       WIMAGEA_FrameType     = (WZRD_TagDummy+572);
  418.       WIMAGEA_HBorder       = (WZRD_TagDummy+573);
  419.       WIMAGEA_VBorder       = (WZRD_TagDummy+574);
  420.       WIMAGEA_NewImage      = (WZRD_TagDummy+575);
  421.  
  422.       WIMAGEBUTTONA_BGPen       = (WZRD_TagDummy+576);
  423.       WIMAGEBUTTONA_SelBGPen    = (WZRD_TagDummy+577);
  424.       WIMAGEBUTTONA_FrameType   = (WZRD_TagDummy+578);
  425.       WIMAGEBUTTONA_HBorder     = (WZRD_TagDummy+579);
  426.       WIMAGEBUTTONA_VBorder     = (WZRD_TagDummy+580);
  427.       WIMAGEBUTTONA_NewImage    = (WZRD_TagDummy+581);
  428.       WIMAGEBUTTONA_SelNewImage = (WZRD_TagDummy+582);
  429.  
  430.       WIMAGETOGGLEA_BGPen       = (WZRD_TagDummy+583);
  431.       WIMAGETOGGLEA_SelBGPen    = (WZRD_TagDummy+584);
  432.       WIMAGETOGGLEA_FrameType   = (WZRD_TagDummy+585);
  433.       WIMAGETOGGLEA_HBorder     = (WZRD_TagDummy+586);
  434.       WIMAGETOGGLEA_VBorder     = (WZRD_TagDummy+587);
  435.       WIMAGETOGGLEA_NewImage    = (WZRD_TagDummy+588);
  436.       WIMAGETOGGLEA_SelNewImage = (WZRD_TagDummy+589);
  437.       WIMAGETOGGLEA_Checked     = (WZRD_TagDummy+590);
  438.  
  439.       WSTRINGA_Hook             = (WZRD_TagDummy+591);
  440.  
  441.       WIMAGEPOPUPA_BGPen     = (WZRD_TagDummy+593);
  442.       WIMAGEPOPUPA_FrameType = (WZRD_TagDummy+594);
  443.       WIMAGEPOPUPA_HBorder   = (WZRD_TagDummy+595);
  444.       WIMAGEPOPUPA_VBorder   = (WZRD_TagDummy+596);
  445.       WIMAGEPOPUPA_TextPlace = (WZRD_TagDummy+597);
  446.       WIMAGEPOPUPA_NewImage  = (WZRD_TagDummy+598);
  447.       WIMAGEPOPUPA_Labels    = (WZRD_TagDummy+599);
  448.       WIMAGEPOPUPA_Selected  = (WZRD_TagDummy+600);
  449.  
  450.       WTEXTPOPUPA_TextPlace = (WZRD_TagDummy+601);
  451.       WTEXTPOPUPA_Labels    = (WZRD_TagDummy+602);
  452.       WTEXTPOPUPA_Selected  = (WZRD_TagDummy+603);
  453.       WTEXTPOPUPA_Name      = (WZRD_TagDummy+604);
  454.  
  455.       WPALETTEA_Colors      = (WZRD_TagDummy+605);
  456.       WPALETTEA_Selected    = (WZRD_TagDummy+606);
  457.       WPALETTEA_Offset      = (WZRD_TagDummy+607);
  458.  
  459.       WGROUPA_BGPen          = (WZRD_TagDummy+608);
  460.       WGROUPA_DockMinVisible = (WZRD_TagDummy+609);
  461.       WGROUPA_Styles         = (WZRD_TagDummy+610);
  462.  
  463.       WLABELA_Styles          = (WZRD_TagDummy+611);
  464.  
  465.       WVECTORPOPUPA_Type      = (WZRD_TagDummy+612);
  466.       WVECTORPOPUPA_Labels    = (WZRD_TagDummy+613);
  467.       WVECTORPOPUPA_TextPlace = (WZRD_TagDummy+614);
  468.       WVECTORPOPUPA_Selected  = (WZRD_TagDummy+615);
  469.  
  470.       WHIERARCHYA_ImageType   = (WZRD_TagDummy+617);
  471.       WHIERARCHYA_ImageWidth  = (WZRD_TagDummy+618);
  472.       WHIERARCHYA_Top         = (WZRD_TagDummy+619);
  473.       WHIERARCHYA_List        = (WZRD_TagDummy+620);
  474.       WHIERARCHYA_Selected    = (WZRD_TagDummy+621);
  475.       WHIERARCHYA_Visible     = (WZRD_TagDummy+622);
  476.       WHIERARCHYA_DoubleClick = (WZRD_TagDummy+623);
  477.  
  478.       WSLIDERA_Min            = (WZRD_TagDummy+627);
  479.       WSLIDERA_Max            = (WZRD_TagDummy+628);
  480.       WSLIDERA_Level          = (WZRD_TagDummy+629);
  481.  
  482.       WTOGGLEA_Label          = (WZRD_TagDummy+630);
  483.  
  484.       WLAYOUTA_RootGadget     = (WZRD_TagDummy+631);
  485.       WLAYOUTA_Type           = (WZRD_TagDummy+632);
  486.       WLAYOUTA_BorderLeft     = (WZRD_TagDummy+633);
  487.       WLAYOUTA_BorderRight    = (WZRD_TagDummy+634);
  488.       WLAYOUTA_BorderTop      = (WZRD_TagDummy+635);
  489.       WLAYOUTA_BorderBottom   = (WZRD_TagDummy+636);
  490.       WLAYOUTA_StackSwap      = (WZRD_TagDummy+637);
  491.  
  492.       WARGSA_TextPen          = (WZRD_TagDummy+638);
  493.       WARGSA_BackgroundPen    = (WZRD_TagDummy+639);
  494.  
  495.  
  496. {      Tags für WZ_InitNode();      }
  497.  
  498.       WNODEA_Flags            = (WZRD_TagDummy+1000);
  499.  
  500.       WNF_SELECTED            = 1;   {(1<<0)  Node ist selektiert, MultiListView  }
  501.       WNF_TREE                = 32;  {(1<<5)  Das ist eine Node eines Baumes      }
  502.       WNF_AUTOMATIC           = 64;  {(1<<6)  Baumkontrolle geht an BOOPSI-Object }
  503.       WNF_VISIBLE             = 128; {(1<<7)  Baum dieser Node wird dargestellt   }
  504.  
  505. {      Tags für WZ_InitNodeEntry();      }
  506.  
  507.       WENTRYA_Type             = (WZRD_TagDummy+1100);
  508.  
  509.       WENTRYA_TextPen           = (WZRD_TagDummy+1101);
  510.       WENTRYA_TextSPen          = (WZRD_TagDummy+1102);
  511.       WENTRYA_TextStyle         = (WZRD_TagDummy+1103);
  512.       WENTRYA_TextSStyle        = (WZRD_TagDummy+1104);
  513.       WENTRYA_TextString        = (WZRD_TagDummy+1105);
  514.       WENTRYA_TreeParentNode    = (WZRD_TagDummy+1106);
  515.       WENTRYA_TreeChilds        = (WZRD_TagDummy+1107);
  516.       WENTRYA_TreeString        = (WZRD_TagDummy+1108);
  517.       WENTRYA_TreePen           = (WZRD_TagDummy+1109);       { V 38 }
  518.       WENTRYA_TreeSPen          = (WZRD_TagDummy+1110);       { V 38 }
  519.       WENTRYA_TreeStyle         = (WZRD_TagDummy+1111);       { V 38 }
  520.       WENTRYA_TreeSStyle        = (WZRD_TagDummy+1112);       { V 38 }
  521.       WENTRYA_TextFont          = (WZRD_TagDummy+1113);       { V 38 }
  522.       WENTRYA_TextJustification = (WZRD_TagDummy+1114);       { V 38 }
  523.       WENTRYA_TreeFont          = (WZRD_TagDummy+1115);       { V 38 }
  524.  
  525.       WNE_TEXT                  = 1;
  526.       WNE_TREE                  = 3;
  527.  
  528. {======================================================================}
  529.  
  530. TYPE p_Long = ^Long;
  531.  
  532. Var WizardBase : Ptr;
  533.  
  534. LIBRARY WizardBase :
  535.  
  536.  -30  : FUNCTION  WZ_OpenSurfaceA(A0:STR;A1:PTR;A2:p_TagItem) : PTR;
  537.  -36  : PROCEDURE WZ_CloseSurface(A0:PTR);
  538.  -42  : FUNCTION  WZ_AllocWindowHandleA(D0:p_Screen;D1:Long;A0:PTR;A1:p_TagItem) : p_WizardWindowHandle;
  539.  -48  : FUNCTION  WZ_CreateWindowObjA(A0:p_WizardWindowHandle;D0:Long;A1:p_TagItem) : p_NewWindow;
  540.  -54  : FUNCTION  WZ_OpenWindowA(A0:p_WizardWindowHandle;A1:p_NewWindow;A2:p_TagItem) : p_Window;
  541.  -60  : PROCEDURE WZ_CloseWindow(A0:p_WizardWindowHandle);
  542.  -66  : PROCEDURE WZ_FreeWindowHandle(A0:p_WizardWindowHandle);
  543.  -72  : PROCEDURE WZ_LockWindow(A0:p_WizardWindowHandle);
  544.  -78  : FUNCTION  WZ_UnlockWindow(A0:p_WizardWindowHandle) : Long;
  545.  -84  : PROCEDURE WZ_LockWindows(A0:PTR);
  546.  -90  : PROCEDURE WZ_UnlockWindows(A0:PTR);
  547.  -96  : FUNCTION  WZ_GadgetHelp(A0:p_WizardWindowHandle;A1:PTR) : STR;
  548.  -102 : FUNCTION  WZ_GadgetConfig(A0:p_WizardWindowHandle;A1:p_gadget) : STR;
  549.  -108 : FUNCTION  WZ_MenuHelp(A0:p_WizardWindowHandle;D0:Long) : STR;
  550.  -114 : FUNCTION  WZ_MenuConfig(A0:p_WizardWindowHandle;D0:Long) : STR;
  551.  -120 : FUNCTION  WZ_InitEasyStruct(A0:PTR;A1:p_EasyStruct;D0:Long;D1:Long) : p_EasyStruct;
  552.  -126 : FUNCTION  WZ_SnapShotA(A0:PTR;A1:p_TagItem) : boolean;
  553.  -132 : FUNCTION  WZ_GadgetKey(A0:p_WizardWindowHandle;D0:Long;D1:Long;A1:p_TagItem) : boolean;
  554.  -138 : FUNCTION  WZ_DrawVImageA(A0:p_WizardVImage;D0,D1,D2,D3,D4:Integer;D5:p_RastPort;D6:p_DrawInfo;A1:p_TagItem) : boolean;
  555.  -144 : FUNCTION  WZ_EasyRequestArgs(A0:PTR;A1:p_Window;D0:Long;A2:Ptr) : long;
  556.  -150 : FUNCTION  WZ_GetNode(A0:p_Minlist;D0:Long) : p_WizardNode;
  557.  -172 : FUNCTION  WZ_ListCount(A0:p_MinList) : Long;   
  558.  -162 : FUNCTION  WZ_NewObjectA(D0:Long;A0:p_TagItem) : p_Gadget;
  559.  -168 : FUNCTION  WZ_GadgetHelpMsg(A0:p_WizardWindowHandle;A1:p_winhaddress;A2:PTR;D0:Integer;D1:Integer;D2:Word) :boolean;
  560.  -174 : FUNCTION  WZ_ObjectID(A0:Ptr;A2:p_Long;A1:STR) : boolean;
  561.  -180 : PROCEDURE WZ_InitNodeA(A0:p_WizardNode;D0:Long;A1:p_TagItem);
  562.  -186 : PROCEDURE WZ_InitNodeEntryA(A0:p_WizardNode;D0:Long;A1:p_TagItem);
  563.  
  564. end;
  565.  
  566. IMPLEMENTATION
  567.  
  568. end.
  569.  
  570.  
  571.  
  572.  
  573.