home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / LFC-SW2.LHA / StormWizard / Example-Source / Pascal-Source / Simple / basis.p < prev    next >
Encoding:
Text File  |  1996-08-31  |  3.8 KB  |  151 lines
  1. { Standard Rumpfprogramm. (Basis.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 Basis;
  12.  
  13. USES Exec,Intuition;
  14. {$incl 'dos.lib','workbench/startup.h','icon.lib','wb.lib','wizard.lib'};
  15.  
  16. CONST WIZARDFILE          = "basis.wizard";
  17.       WINDOW_MAIN         = 1;
  18.       WINDOW_MAIN_GADGETS = 2;
  19.  
  20. VAR   surface             : Ptr;
  21.       screen              : p_Screen;
  22.       newwin              : p_NewWindow;
  23.       window              : p_Window;
  24.       winhandle           : p_WizardWindowHandle;
  25.  
  26.       gads                : array[0..WINDOW_MAIN_GADGETS] of p_gadget;
  27.       msg                 : p_IntuiMessage;
  28.  
  29.       tags                : array[0..2] of tagitem;
  30.       wintags             : array[0..1] of tagitem;
  31.       flag                : boolean;
  32.  
  33.       { folgende Variablen dienen dazu den Startpfad des unseres
  34.         Programmes zu ermitteln (dort muß sich das WIZARDFILE befinden) }
  35.  
  36.       WBmsg               : p_WBStartup;
  37.       hlp                 : integer;
  38.       StartName           : String[108]; {Pfad+Name des Wizardfiles ablegen}
  39.  
  40. PROCEDURE CleanUp; {sauber aufräumen... }
  41. BEGIN
  42.  IF window<>NIL        THEN WZ_CloseWindow(winhandle);
  43.  IF winhandle<>NIL     THEN WZ_FreeWindowHandle(winhandle);
  44.  IF surface<>NIL       THEN WZ_CloseSurface(surface);
  45.  IF screen<>NIL        THEN UnlockPubScreen(NIL,screen);
  46.  IF WizardBase<>NIL    THEN CloseLibrary(WizardBase);
  47.  IF IntuitionBase<>NIL THEN CloseLibrary(IntuitionBase);
  48. END;
  49.  
  50. BEGIN
  51.  IF NOT FROMWB THEN exit;
  52.  
  53.  {-- besagten Startpfad ermitteln... --}
  54.  
  55.  StartName:='';
  56.  WBmsg:=StartupMessage;
  57.  
  58.  IF WBmsg^.sm_NumArgs>=1
  59.   THEN
  60.    BEGIN
  61.     hlp:=NameFromLock(WBmsg^.sm_ArgList^[1].wa_lock,^StartName,107);
  62.     IF (StartName[Length(StartName)])<>':'
  63.      THEN StartName:=StartName+'/'+WIZARDFILE
  64.      ELSE StartName:=StartName+WIZARDFILE;;
  65.    END
  66.   ELSE exit;
  67.  
  68.  {--  Initialisierung --}
  69.  
  70.  surface:=NIL;winhandle:=NIL;newwin:=NIL;window:=NIL;screen:=NIL;
  71.  
  72.  {-- Library öffnen --}
  73.  
  74.  WizardBase:=OpenLibrary('wizard.library',0);
  75.  IF WizardBase = NIL THEN exit;
  76.  
  77.  {-- Oberflächenbeschreibung laden --}
  78.  
  79.  surface:=WZ_OpenSurfaceA(StartName,NIL,NIL);
  80.  IF surface<>NIL
  81.   THEN
  82.    BEGIN
  83.     {-- Natürlich brauchen wir auch noch einen Screen --}
  84.  
  85.     screen:=LockPubScreen(NIL);
  86.     IF screen<>NIL
  87.      THEN
  88.       BEGIN
  89.  
  90.        {-- windowhandle reservieren, mit dem die Objekte durch die
  91.        wizard.library verwaltet werden                             --}
  92.  
  93.        winhandle:=WZ_AllocWindowHandleA(screen,0,surface,NIL);
  94.        IF surface<>NIL
  95.         THEN
  96.          BEGIN
  97.           Tags[0]:=TagItem(WWH_GadgetArray,Long(^gads));
  98.           Tags[1]:=TagItem(WWH_GadgetArraySize,sizeof(gads));
  99.           Tags[2].ti_tag:=tag_done;
  100.  
  101.           WinTags[0]:=TagItem(WA_AutoAdjust,1);
  102.           WinTags[1].ti_tag:=tag_done;
  103.  
  104.  
  105.           {-- Objekte anlegen --}
  106.  
  107.           newwin:=WZ_CreateWindowObjA(winhandle,1,^Tags);
  108.           IF newwin<>NIL
  109.            THEN
  110.             BEGIN
  111.  
  112.              {Fenster mi allen Objekten öffnen }
  113.  
  114.              window:=WZ_OpenWindowA(winhandle,newwin,^wintags);
  115.              IF window<>NIL
  116.               THEN
  117.                BEGIN
  118.  
  119.                 {-- Intuition-Message abfangen ... --}
  120.  
  121.                 flag:=false;
  122.                 REPEAT
  123.                  Msg:=Wait_Port(window^.UserPort);
  124.                  Msg:=Get_Msg(window^.Userport);
  125.                  IF Msg<>NIL
  126.                     THEN
  127.                      BEGIN
  128.                       Reply_Msg(Msg);
  129.                       IF  Msg^.Class=IDCMP_CLOSEWINDOW THEN flag:=true;
  130.                      END;
  131.  
  132.                 UNTIL flag;
  133.                END;
  134.             END;
  135.          END;
  136.       END;
  137.    END;
  138.  
  139.  CleanUp;
  140. END.
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.