home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / LFC-SW2.LHA / StormWizard / Example-Source / Pascal-Source / Simple / config.p < prev    next >
Encoding:
Text File  |  1996-08-31  |  4.9 KB  |  175 lines
  1. { Auslesen des Konfigurationsstrings (Config.p)
  2.  
  3.   $VER:             1.0 (30.08.96)
  4.  
  5.   Autor
  6.   Pascal-Version:   Falk Zühlsdorff  (EMail: ai036@rz.tu-ilmenau.de)
  7.                     CDproV3.x, APrintV3.x,...,
  8.                     P.U.R.I.T.Y.-Pascal-FD, Amiga Zentrum Thüringen e.V.
  9. }
  10.  
  11. Program Config;
  12.  
  13. USES Exec,Intuition,Utility;
  14. {$incl 'dos.lib','workbench/startup.h','icon.lib','wb.lib','wizard.lib'};
  15.  
  16. CONST WIZARDFILE               = "config.wizard";
  17.       WINDOW_MAIN              = 1;
  18.       WINDOW_MAIN_GADGETS      = 5;
  19.       MAIN_BUTTON_FIRST        = 3;
  20.       MAIN_BUTTON_SECOND       = 4;
  21.       MAIN_ARGS_CONFIGDISPLAY  = 2;
  22.  
  23. VAR   surface                  : Ptr;
  24.       screen                   : p_Screen;
  25.       newwin                   : p_NewWindow;
  26.       window                   : p_Window;
  27.       winhandle                : p_WizardWindowHandle;
  28.  
  29.       gads                     : array[0..WINDOW_MAIN_GADGETS] of p_gadget;
  30.       msg                      : p_IntuiMessage;
  31.  
  32.       tags                     : array[0..2] of tagitem;
  33.       tags2                    : array[0..1] of tagitem;
  34.       flag                     : boolean;
  35.  
  36.       helpstr                  : STR;
  37.       dummy                    : LONG;
  38.  
  39.       { folgende Variablen dienen dazu den Startpfad des unseres
  40.         Programmes zu ermitteln (dort muß sich das WIZARDFILE befinden) }
  41.  
  42.       WBmsg                    : p_WBStartup;
  43.       hlp                      : integer;
  44.       StartName                : String[108]; {Pfad+Name des Wizardfiles ablegen}
  45.  
  46. PROCEDURE CleanUp; {sauber aufräumen... }
  47. BEGIN
  48.  IF window<>NIL        THEN WZ_CloseWindow(winhandle);
  49.  IF winhandle<>NIL     THEN WZ_FreeWindowHandle(winhandle);
  50.  IF surface<>NIL       THEN WZ_CloseSurface(surface);
  51.  IF screen<>NIL        THEN UnlockPubScreen(NIL,screen);
  52.  IF WizardBase<>NIL    THEN CloseLibrary(WizardBase);
  53.  IF UtilityBase<>NIL   THEN CloseLibrary(UtilityBase);
  54.  IF IntuitionBase<>NIL THEN CloseLibrary(IntuitionBase);
  55. END;
  56.  
  57. BEGIN
  58.  IF NOT FROMWB THEN exit;
  59.  
  60.  {-- besagten Startpfad ermitteln... --}
  61.  
  62.  StartName:='';
  63.  WBmsg:=StartupMessage;
  64.  
  65.  IF WBmsg^.sm_NumArgs>=1
  66.   THEN
  67.    BEGIN
  68.     hlp:=NameFromLock(WBmsg^.sm_ArgList^[1].wa_lock,^StartName,107);
  69.     IF (StartName[Length(StartName)])<>':'
  70.      THEN StartName:=StartName+'/'+WIZARDFILE
  71.      ELSE StartName:=StartName+WIZARDFILE;;
  72.    END
  73.   ELSE exit;
  74.  
  75.  {--  Initialisierung --}
  76.  
  77.  surface:=NIL;winhandle:=NIL;newwin:=NIL;window:=NIL;screen:=NIL;
  78.  
  79.  {-- Library öffnen --}
  80.  
  81.  WizardBase:=OpenLibrary('wizard.library',0);
  82.  IF WizardBase = NIL THEN exit;
  83.  
  84.  {-- Oberflächenbeschreibung laden --}
  85.  
  86.  surface:=WZ_OpenSurfaceA(StartName,NIL,NIL);
  87.  IF surface<>NIL
  88.   THEN
  89.    BEGIN
  90.     {-- Natürlich brauchen wir auch noch einen Screen --}
  91.  
  92.     screen:=LockPubScreen(NIL);
  93.     IF screen<>NIL
  94.      THEN
  95.       BEGIN
  96.  
  97.        {-- windowhandle reservieren, mit dem die Objekte durch die
  98.        wizard.library verwaltet werden                             --}
  99.  
  100.        winhandle:=WZ_AllocWindowHandleA(screen,0,surface,NIL);
  101.        IF surface<>NIL
  102.         THEN
  103.          BEGIN
  104.           Tags[0]:=TagItem(WWH_GadgetArray,Long(^gads));
  105.           Tags[1]:=TagItem(WWH_GadgetArraySize,sizeof(gads));
  106.           Tags[2].ti_tag:=tag_done;
  107.  
  108.           tags2[0]:=TagItem(WA_AutoAdjust,1);
  109.           tags2[1].ti_tag:=tag_done;
  110.  
  111.  
  112.           {-- Objekte anlegen --}
  113.  
  114.           newwin:=WZ_CreateWindowObjA(winhandle,1,^Tags);
  115.           IF newwin<>NIL
  116.            THEN
  117.             BEGIN
  118.  
  119.              {Fenster mi allen Objekten öffnen }
  120.  
  121.              window:=WZ_OpenWindowA(winhandle,newwin,^tags2);
  122.              IF window<>NIL
  123.               THEN
  124.                BEGIN
  125.  
  126.                 {-- Intuition-Message abfangen ... --}
  127.  
  128.                 flag:=false;
  129.                 REPEAT
  130.                  Msg:=Wait_Port(window^.UserPort);
  131.                  Msg:=Get_Msg(window^.Userport);
  132.                  IF Msg<>NIL
  133.                     THEN
  134.                      BEGIN
  135.                       Reply_Msg(Msg);
  136.                       CASE Msg^.Class OF
  137.                        IDCMP_CLOSEWINDOW: flag:=true;
  138.                        IDCMP_IDCMPUPDATE:
  139.                         CASE GetTagData(GA_ID,0,p_tagitem(msg^.iaddress)) OF
  140.                          MAIN_BUTTON_FIRST:
  141.                           BEGIN
  142.                            tags2[0]:=TagItem(WARGSA_Arg0,long(WZ_GadgetConfig(winhandle,gads[MAIN_BUTTON_FIRST])));
  143.                            dummy:=SetGadgetAttrsA(gads[MAIN_ARGS_CONFIGDISPLAY],window,NIL,^tags2);
  144.                           END;
  145.  
  146.                          MAIN_BUTTON_SECOND:
  147.                           BEGIN
  148.                            tags2[0]:=TagItem(WARGSA_Arg0,long(WZ_GadgetConfig(winhandle,gads[MAIN_BUTTON_SECOND])));
  149.  
  150.                            dummy:=SetGadgetAttrsA(gads[MAIN_ARGS_CONFIGDISPLAY],window,NIL,^tags2);
  151.                           END;
  152.                         ELSE;END;
  153.                       ELSE;END;
  154.                      END;
  155.  
  156.                 UNTIL flag;
  157.                END;
  158.             END;
  159.          END;
  160.       END;
  161.    END;
  162.  
  163.  CleanUp;
  164. END.
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.