home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / Finger 1.3.5 / source / Finger / BaseGlobals.p < prev    next >
Encoding:
Text File  |  1992-02-24  |  1.4 KB  |  75 lines  |  [TEXT/PJMM]
  1. unit BaseGlobals;
  2.  
  3. { This code is part of the Finger/Fingerd source code, written in THINK Pascal 4 }
  4. { Copyright 1991-1992 Peter N Lewis }
  5. { If you use this code, you must give me credit in your about box and documentation }
  6.  
  7. interface
  8.  
  9.     const
  10.         growzone_size = 10000;
  11.         global_strh_id = 128;
  12.         save_changes_alert_id = 135;
  13.         fail_alert_id = 150;
  14.         fail_strh_id = -1;
  15.  
  16.         pref_name = 1;
  17.         pref_launch_str = 2;
  18.         pref_no_file = 3;
  19.         help_menu_text = 4;
  20.         special_string = 5;
  21.         quiting_str = 6;
  22.         closing_str = 7;
  23.  
  24.         M_Apple = 128;
  25.         M_File = 129;
  26.         M_Edit = 130;
  27.         M_About = 1;
  28.  
  29.         CAbout = 'abou';
  30.         CNew = 'new ';
  31.         Copen = 'open';
  32.         Csave = 'save';
  33.         Csaveas = 'svas';
  34.         CClose = 'clos';
  35.         CPageSetup = 'pgsu';
  36.         CPrint = 'prnt';
  37.         CPreferences = 'pref';
  38.         CHelp = 'help';
  39.         CQuit = 'quit';
  40.         CUndo = 'undo';
  41.         CCut = 'cut ';
  42.         CCopy = 'copy';
  43.         CPaste = 'past';
  44.         CClear = 'clea';
  45.         CSelectAll = 'sela';
  46.  
  47.     var
  48.         M_HM_Help_I: integer;
  49.         MH_Apple, MH_File, MH_Edit: menuHandle;
  50.         quitNow: boolean;
  51.  
  52.     function GetGlobalString (i: integer): str255;
  53.     procedure AlertUser (i: integer);
  54.  
  55. implementation
  56.  
  57.     function GetGlobalString (i: integer): str255;
  58.         var
  59.             s: str255;
  60.     begin
  61.         GetIndString(s, global_strh_id, i);
  62.         GetGlobalString := s;
  63.     end;
  64.  
  65.     procedure AlertUser (i: integer);
  66.         var
  67.             s: str255;
  68.             a: integer;
  69.     begin
  70.         GetIndString(s, fail_strh_id, i);
  71.         ParamText(s, '', '', '');
  72.         a := Alert(fail_alert_id, nil);
  73.     end;
  74.  
  75. end.