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