home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / LFC-SW2.LHA / StormWizard / Example-Source / Pascal-Source / Simple / menuhelp.p < prev    next >
Encoding:
Text File  |  1996-08-31  |  4.3 KB  |  160 lines
  1. { Empfangen von Menü-Help-Nachrichten (menuhelp.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.   Hinweis:          Menu / Menupunkt anwählen + HELP-Taste drücken ...
  11.  
  12. }
  13.  
  14. Program menuhelp;
  15.  
  16. USES Exec,Intuition,Utility;
  17. {$incl 'dos.lib','workbench/startup.h','icon.lib','wb.lib','wizard.lib'};
  18.  
  19. CONST WIZARDFILE               = "menuhelp.wizard";
  20.       WINDOW_MAIN              = 1;
  21.       WINDOW_MAIN_GADGETS      = 2;
  22.       MENU_PROJECT             = $FFE0;
  23.       ITEM_HELPTEST            = $F800;
  24.  
  25. VAR   surface                  : Ptr;
  26.       screen                   : p_Screen;
  27.       newwin                   : p_NewWindow;
  28.       window                   : p_Window;
  29.       winhandle                : p_WizardWindowHandle;
  30.  
  31.       gads                     : array[0..WINDOW_MAIN_GADGETS] of p_gadget;
  32.       msg                      : p_IntuiMessage;
  33.  
  34.       tags                     : array[0..2] of tagitem;
  35.       tags2                    : array[0..2] of tagitem;
  36.       flag                     : boolean;
  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 UtilityBase<>NIL   THEN CloseLibrary(UtilityBase);
  53.  IF IntuitionBase<>NIL THEN CloseLibrary(IntuitionBase);
  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;
  77.  
  78.  {-- Library öffnen --}
  79.  
  80.  WizardBase:=OpenLibrary('wizard.library',0);
  81.  IF WizardBase = NIL THEN exit;
  82.  
  83.  {-- Oberflächenbeschreibung laden --}
  84.  
  85.  surface:=WZ_OpenSurfaceA(StartName,NIL,NIL);
  86.  IF surface<>NIL
  87.   THEN
  88.    BEGIN
  89.     {-- Natürlich brauchen wir auch noch einen Screen --}
  90.  
  91.     screen:=LockPubScreen(NIL);
  92.     IF screen<>NIL
  93.      THEN
  94.       BEGIN
  95.  
  96.        {-- windowhandle reservieren, mit dem die Objekte durch die
  97.        wizard.library verwaltet werden                             --}
  98.  
  99.        winhandle:=WZ_AllocWindowHandleA(screen,0,surface,NIL);
  100.        IF surface<>NIL
  101.         THEN
  102.          BEGIN
  103.           Tags[0]:=TagItem(WWH_GadgetArray,Long(^gads));
  104.           Tags[1]:=TagItem(WWH_GadgetArraySize,sizeof(gads));
  105.           Tags[2].ti_tag:=tag_done;
  106.  
  107.           tags2[0]:=TagItem(WA_AutoAdjust,1);
  108.           tags2[1]:=TagItem(WA_MenuHelp,1);
  109.           tags2[2].ti_tag:=tag_done;
  110.  
  111.           {-- Objekte anlegen --}
  112.  
  113.           newwin:=WZ_CreateWindowObjA(winhandle,1,^Tags);
  114.           IF newwin<>NIL
  115.            THEN
  116.             BEGIN
  117.  
  118.              {Fenster mi allen Objekten öffnen }
  119.  
  120.              window:=WZ_OpenWindowA(winhandle,newwin,^tags2);
  121.              IF window<>NIL
  122.               THEN
  123.                BEGIN
  124.  
  125.                 {-- Intuition-Message abfangen ... --}
  126.  
  127.                 flag:=false;
  128.                 REPEAT
  129.                  Msg:=Wait_Port(window^.UserPort);
  130.                  Msg:=Get_Msg(window^.Userport);
  131.                  IF Msg<>NIL
  132.                     THEN
  133.                      BEGIN
  134.                       Reply_Msg(Msg);
  135.                       CASE Msg^.Class OF
  136.                        IDCMP_CLOSEWINDOW: flag:=true;
  137.                        IDCMP_MENUHELP: SetWindowTitles(window,WZ_MenuHelp(winhandle,msg^.code),STR(-1));
  138.                       ELSE;END;
  139.                      END;
  140.  
  141.                 UNTIL flag;
  142.                END;
  143.             END;
  144.          END;
  145.       END;
  146.    END;
  147.  
  148.  CleanUp;
  149. END.
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.