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