home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / useful / os20 / cdity / devicelock.lha / DeviceLock / Txt / DLstrings.mod < prev   
Text File  |  1993-12-05  |  4KB  |  150 lines
  1. MODULE DLstrings ;  (* OLK / 13.01.93 / adapted by [tom] *)
  2.  
  3. IMPORT e := Exec,
  4.        gt:= GadTools,
  5.        l := Locale,
  6.        u := Utility,
  7.        s := SYSTEM ;
  8.  
  9. CONST (* MODULE *)
  10.  
  11.   NrOfMenus    =  6; (* [tom] *)
  12.   CatName = "DeviceLock.catalog" ;
  13.  
  14.   NrOfStrings = 34 ;
  15.  
  16.   MenuProject  *= 0 ;
  17.   MenuProjectLockAll  *= 1 ;
  18.   MenuProjectUnlockAll  *= 2 ;
  19.   MenuProjectAbout  *= 4 ;
  20.   MenuProjectHide  *= 6 ;
  21.   MenuProjectQuit  *= 7 ;
  22.   WarnCannotAddKeyCode  *= 200 ;
  23.   WarnNotValidKeyCode  *= 201 ;
  24.   WarnStringTooLong  *= 202 ;
  25.   WarnCorruptNumber  *= 203 ;
  26.   WarnCorruptBoolean  *= 204 ;
  27.   WarnCommentIsNoComment  *= 205 ;
  28.   WarnUnknownOption  *= 206 ;
  29.   MsgAbout  *= 300 ;
  30.   MsgError  *= 301 ;
  31.   MsgFailed  *= 302 ;
  32.   MsgKeepUnlock  *= 303 ;
  33.   MsgProblem  *= 304 ;
  34.   MsgWarning  *= 305 ;
  35.   MsgAllRightsReserved  *= 306 ;
  36.   ErrGivenSettingsNotValid  *= 400 ;
  37.   ErrCantOpenOrReadGivenSettings  *= 401 ;
  38.   ErrWrongPrefs  *= 402 ;
  39.   ErrCantFindAnyPrefs  *= 403 ;
  40.   ErrWBReadArgs *= 404 ;
  41.   ErrZeroDrives  *= 405 ;
  42.   ErrCantExLock  *= 406 ;
  43.   ErrCantExUnlock  *= 407 ;
  44.   GadProceedQuit  *= 500 ;
  45.   GadLockAll  *= 501 ;
  46.   GadKeepUnlock  *= 502 ;
  47.   GadOK  *= 503 ;
  48.   ProbCantLock  *= 600 ;
  49.   ProbCantUnlock  *= 601 ;
  50.  
  51.  
  52. TYPE (* MODULE *)
  53.  
  54.   AppString = RECORD
  55.                 id : LONGINT ;
  56.                 sp : e.STRPTR ;
  57.               END ;
  58.  
  59.   AppArray  = ARRAY NrOfStrings OF AppString ;
  60.  
  61.  
  62. CONST (* AppStrings *)
  63.  
  64.   AppStrings = AppArray(
  65.                   0, s.ADR("Project"),
  66.                   1, s.ADR("LOCK"),
  67.                   2, s.ADR("UNLOCK"),
  68.                   4, s.ADR("Version, Copyright ..."),
  69.                   6, s.ADR("Hide"),
  70.                   7, s.ADR("Quit ..."),
  71.                   200, s.ADR("Cannot add\n'%s'."),
  72.                   201, s.ADR("'%s'\nis not a valid hotkey."),
  73.                   202, s.ADR("String was too long, stripped down to\n'%s'."),
  74.                   203, s.ADR("Converting '%s' into number failed.\nTreated as 0."),
  75.                   204, s.ADR("I cannot interpret BOOLEAN value '%s'.\nTreated as FALSE."),
  76.                   205, s.ADR("'%s' invalid format.\nThese line is ignored."),
  77.                   206, s.ADR("Unknown option '%s'."),
  78.                   300, s.ADR("DeviceLock: Version, Copyright"),
  79.                   301, s.ADR("DeviceLock: Error"),
  80.                   302, s.ADR("%s failed"),
  81.                   303, s.ADR("Keep actual Lock-state or UNLOCK?"),
  82.                   304, s.ADR("DeviceLock: Problem"),
  83.                   305, s.ADR("DeviceLock: Warning"),
  84.                   306, s.ADR("All Rights reserved."),
  85.                   400, s.ADR("Specified settings are no »DeviceLock.Prefs«."),
  86.                   401, s.ADR("I can't find/read given settings."),
  87.                   402, s.ADR("No valid »DeviceLock.Prefs« in path."),
  88.                   403, s.ADR("I can't find »DeviceLock.Prefs« in path."),
  89.                   404, s.ADR("Problems while reading ToolTypes."),
  90.                   405, s.ADR("No drive specifications."),
  91.                   406, s.ADR("Can't execute »lock ... on«."),
  92.                   407, s.ADR("Can't execute »lock ... off«."),
  93.                   500, s.ADR("Proceed|No further warnings|Quit"),
  94.                   501, s.ADR("LOCK"),
  95.                   502, s.ADR("UNLOCK|Keep|Oops, back to the program"),
  96.                   503, s.ADR("OK"),
  97.                   600, s.ADR("Can't lock '%s'."),
  98.                   601, s.ADR("Can't unlock '%s'.")
  99.                 ) ;
  100.  
  101.  
  102. VAR (* MODULE *)
  103.  
  104.   i       : INTEGER ;
  105.   CurrCat : l.CatalogPtr ;
  106.  
  107.  
  108. PROCEDURE GetString* (ID : LONGINT) : e.STRPTR ;
  109. BEGIN
  110.   FOR i := 0 TO (NrOfStrings - 1) DO
  111.     IF AppStrings[i].id = ID THEN
  112.       IF CurrCat # NIL THEN
  113.         RETURN l.GetCatalogStr (CurrCat, AppStrings[i].id, AppStrings[i].sp^)
  114.       ELSE
  115.         RETURN AppStrings[i].sp
  116.       END
  117.     END
  118.   END ;
  119.   RETURN NIL
  120. END GetString ;
  121.  
  122. PROCEDURE FillMenu* (VAR men : ARRAY OF gt.NewMenu);
  123. BEGIN
  124.   FOR i := 0 TO (NrOfMenus - 1) DO
  125.     IF CurrCat # NIL THEN
  126.       men[AppStrings[i].id].label := l.GetCatalogStr (CurrCat, AppStrings[i].id, AppStrings[i].sp^)
  127.     ELSE
  128.       men[AppStrings[i].id].label := AppStrings[i].sp
  129.     END
  130.   END;
  131. END FillMenu;
  132.  
  133.  
  134. BEGIN (* MODULE *)
  135.  
  136.   IF l.base # NIL THEN
  137.     CurrCat := l.OpenCatalog (NIL, CatName, u.end)
  138.   END
  139.  
  140.  
  141. CLOSE (* MODULE *)
  142.  
  143.   IF CurrCat # NIL THEN
  144.     l.CloseCatalog (CurrCat) ;
  145.     CurrCat := NIL
  146.   END
  147.  
  148.  
  149. END (* MODULE *) DLstrings.
  150.