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