home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 5 / amigaformatcd05.iso / mui / developer / oberon / txt / sticknotelocale.mod < prev    next >
Text File  |  1996-08-13  |  3KB  |  134 lines
  1. MODULE StickNoteLocale;
  2.  
  3. (****************************************************************
  4.    This file was created automatically by `KitCat V1.1ß'
  5.    Do NOT edit by hand!
  6. ****************************************************************)
  7.  
  8. IMPORT
  9.   lo := Locale, e := Exec, u := Utility, y := SYSTEM;
  10.  
  11. CONST
  12.   builtinlanguage = "deutsch";
  13.   version = 0;
  14.  
  15.   msgDescription* = 0;
  16.   msgDescriptionSTR = "Ermöglicht Haftnotizen auf der Workbench";
  17.  
  18.   frameNotes* = 100;
  19.   frameNotesSTR = "Notizen";
  20.  
  21.   gadTitle* = 200;
  22.   gadTitleSTR = "_Titel";
  23.  
  24.   gadShow* = 201;
  25.   gadShowSTR = "_Anzeigen";
  26.  
  27.   gadContent* = 202;
  28.   gadContentSTR = "_Inhalt";
  29.  
  30.   gadFirst* = 203;
  31.   gadFirstSTR = "_Erste";
  32.  
  33.   gadLast* = 204;
  34.   gadLastSTR = "_Letze";
  35.  
  36.   gadOK* = 205;
  37.   gadOKSTR = "_OK";
  38.  
  39.   gadNew* = 206;
  40.   gadNewSTR = "_Neue";
  41.  
  42.   gadRemove* = 207;
  43.   gadRemoveSTR = "Ent_fernen";
  44.  
  45.   gadShowNotes* = 208;
  46.   gadShowNotesSTR = "_Zeigen ...";
  47.  
  48.   gadNext* = 209;
  49.   gadNextSTR = "_>";
  50.  
  51.   gadPrev* = 210;
  52.   gadPrevSTR = "_<";
  53.  
  54.   errCreateWindow* = 1000;
  55.   errCreateWindowSTR = "Konnte Fenster nicht erstellen.\n";
  56.  
  57.   errCreateApplication* = 1001;
  58.   errCreateApplicationSTR = "Konnte Application nicht erstellen.\n";
  59.  
  60.   numStrings * = 15;
  61.   minId *      = 0;
  62.   maxId *      = 1001;
  63.  
  64. TYPE
  65.   AppString = STRUCT
  66.      id  : LONGINT;
  67.      str : e.STRPTR;
  68.   END;
  69.   AppStringArray = ARRAY numStrings OF AppString;
  70.  
  71. CONST
  72.   AppStrings = AppStringArray (
  73.     msgDescription, y.ADR (msgDescriptionSTR),
  74.     frameNotes, y.ADR (frameNotesSTR),
  75.     gadTitle, y.ADR (gadTitleSTR),
  76.     gadShow, y.ADR (gadShowSTR),
  77.     gadContent, y.ADR (gadContentSTR),
  78.     gadFirst, y.ADR (gadFirstSTR),
  79.     gadLast, y.ADR (gadLastSTR),
  80.     gadOK, y.ADR (gadOKSTR),
  81.     gadNew, y.ADR (gadNewSTR),
  82.     gadRemove, y.ADR (gadRemoveSTR),
  83.     gadShowNotes, y.ADR (gadShowNotesSTR),
  84.     gadNext, y.ADR (gadNextSTR),
  85.     gadPrev, y.ADR (gadPrevSTR),
  86.     errCreateWindow, y.ADR (errCreateWindowSTR),
  87.     errCreateApplication, y.ADR (errCreateApplicationSTR));
  88.  
  89. VAR
  90.   catalog : lo.CatalogPtr;
  91.  
  92.   PROCEDURE CloseCatalog*();
  93.     BEGIN
  94.       IF catalog # NIL THEN lo.CloseCatalog (catalog); catalog:=NIL END;
  95.    END CloseCatalog;
  96.  
  97.   PROCEDURE OpenCatalog*(loc:lo.LocalePtr; language:ARRAY OF CHAR);
  98.     VAR Tag : u.Tags4;
  99.     BEGIN
  100.       CloseCatalog();
  101.       IF (catalog = NIL) & (lo.base # NIL) THEN
  102.         Tag:= u.Tags4(lo.builtInLanguage, y.ADR(builtinlanguage),
  103.                       u.skip, u.done, lo.version, version, u.done, u.done);
  104.         IF language # "" THEN
  105.           Tag[1].tag:= lo.language; Tag[1].data:= y.ADR(language);
  106.         END;
  107.         catalog := lo.OpenCatalogA (loc, "StickNote.catalog", Tag);
  108.       END;
  109.     END OpenCatalog;
  110.  
  111.   PROCEDURE GetString* (num: LONGINT): e.STRPTR;
  112.     VAR
  113.       i: LONGINT;
  114.       default: e.STRPTR;
  115.     BEGIN
  116.       i := 0; WHILE (i < numStrings) AND (AppStrings[i].id # num) DO INC (i) END;
  117.  
  118.       IF i # numStrings THEN
  119.       default := AppStrings[i].str;
  120.       ELSE
  121.         default := NIL;
  122.       END;
  123.  
  124.       IF catalog # NIL THEN
  125.         RETURN y.VAL( e.STRPTR, lo.GetCatalogStr (catalog, num, default^));
  126.       ELSE
  127.         RETURN default;
  128.       END;
  129.     END GetString;
  130.  
  131. CLOSE
  132.   CloseCatalog();
  133. END StickNoteLocale.
  134.