home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d9xx / d996 / startup-menu.lha / Startup-Menu / Source / SMPrefs / SMEditor.h < prev    next >
Text File  |  1994-04-05  |  3KB  |  130 lines
  1. {* SMPrefs.h - constant defines, global variables etc. for SMPrefs.PAS 
  2.  * Jan '94 Lee Kindness
  3.  * Highspeed Pascal 
  4.  *}
  5.  
  6. TYPE
  7.  
  8.     pMyNode = ^tMyNode;
  9.     tMyNode = record
  10.         LSK_Node : tNode; { system node structure }
  11.         LSK_Name : string;
  12.         LSK_Cmd  : string;
  13.         LSK_Key  : string[2];
  14.         end;
  15.     
  16. CONST
  17.  
  18. { Gadget ID's }
  19.     G_NI       = 1; { NULL initialised gadget   }
  20.  
  21. { Button gadgets }
  22.     G_B_TOP    = 2;
  23.     G_B_UP     = 3;
  24.     G_B_DOWN   = 4;
  25.     G_B_BOTTOM = 5;
  26.     G_B_SORT   = 6;
  27.     G_B_NEW    = 7;
  28.     G_B_REMOVE = 8;
  29.     G_B_COPY   = 9;
  30.     G_B_SAVE   = 10;
  31.     G_B_CANCEL = 11;
  32.     G_B_SAVEAS = 12;
  33.     G_B_LOAD   = 13;
  34.     G_B_INFO   = 14;
  35.     G_B_FONT   = 22;
  36. { string gadgets }
  37.     G_S_TXT    = 15;
  38.     G_S_CMD    = 16;
  39.     G_S_KEY    = 17;
  40.     G_S_SCRID  = 18;
  41. { listview gadget }
  42.     G_LV       = 19;
  43. { Integer kind gadget }
  44.     G_IK_ACROS = 20;
  45. { number display gadget }
  46.     G_ND_DOWN  = 21;
  47. { text display gadget }
  48.     G_TD_FONT  = 23;
  49.     G_B_CMDREQ = 24;
  50.     G_B_TITREQ = 25;
  51.     G_B_PALREQ = 26;
  52. { CreateContext() gadget }
  53.     G_CC       = 27; 
  54.     
  55. { size labels }
  56.  
  57.     S_Gad_H = 1;
  58.     S_G1_L  = 2;
  59.     S_G2_L  = 3;
  60.     S_G3_L  = 4;
  61.     S_WB_T  = 6;
  62.     S_WB_L  = 7;
  63.     S_WB_R  = 8;
  64.     S_WB_B  = 9;
  65.     S_G1_W  = 10;
  66.     S_G2_W  = 11;
  67.     S_G3_W  = 12;
  68.     S_G_H   = 13;
  69.     S_LV_H  = 14;
  70.     TBS     = 15;
  71.     extra   = 16;
  72.     S_SCRID_W = 17;
  73.         
  74.     Vers       : string = '$VER: SMPrefs v1.00 5.2.94'#0;
  75.    Win_Title  : string = 'SMPrefs v1.00'#0;
  76.    Scr_Title  : string = 'SMPrefs v1.00. ©94 Lee Kindness'#0;
  77.    G_B_TOPtxt    : string = 'Top'#0;
  78.    G_B_UPtxt     : string = 'Up'#0;
  79.    G_B_DOWNtxt   : string = 'Down'#0;
  80.    G_B_BOTTOMtxt : string = 'Bottom'#0;
  81.    G_B_SORTtxt   : string = 'Sort'#0;
  82.    G_B_NEWtxt    : string = 'New'#0;
  83.    G_B_REMOVEtxt : string = 'Remove'#0;
  84.    G_B_COPYtxt   : string = 'Copy'#0;
  85.    G_B_SAVEtxt   : string = 'Save'#0;
  86.    G_B_SAVEAStxt : string = 'Save As...'#0;
  87.     G_B_LOADtxt   : string = 'Open...'#0;
  88.    G_B_CANCELtxt : string = 'Cancel'#0;
  89.    G_B_INFOtxt   : string = '?'#0;
  90.    G_S_TXTtxt    : string = 'Gadget Text'#0;
  91.    G_S_CMDtxt    : string = 'Command'#0;
  92.    G_S_KEYtxt    : string = 'Key'#0;
  93.    G_LVtxt       : string = 'Gadget button texts'#0;
  94.    G_IK_ACROStxt : string = 'Across'#0;
  95.    G_B_FONTtxt   : string = 'Font...'#0;
  96.    G_B_CMDREQtxt : string = 'Command...'#0;
  97.    G_ND_DOWNtxt  : string = 'Down'#0;
  98.    Sampstr       : string = 'WorkBench, pick this one now OK'#0;
  99.    Sampstr2      : string = '337'#0;
  100.    fontstr       : string = 'topaz.font'#0;
  101.    PREFSNAME     : string = 'Startup-Menu.prefs';
  102.    PREFSDIRH     : string = 'S:';
  103.    vi            : pointer = NIL;
  104.    TheWindow     : pWindow = NIL;
  105.     CurrentTop    : Longint =0;
  106.     CurrentOrd    : Longint = -1;
  107.     Listviewrows  : Longint = 13; 
  108.          
  109. Var
  110.    Gads         : Array [G_NI..G_CC] Of pGadget;
  111.    Gadgetflags  : tNewGadget;
  112.    My_Font      : tTextAttr;
  113.    BevelTags    : Array[1..3] Of tTagItem;
  114.    Sizes        : Array[1..17] Of Integer;
  115.    DummyReq     : tRequester;
  116.    WindowIDCMP  : LONG;
  117.    RememberKey  : pRemember;
  118.    ListRemKey   : pRemember;
  119.    CurrentList  : pList;
  120.     CurrentNode  : pMyNode;
  121.     pred, succ, 
  122.     tmpnode, 
  123.     newnode      : pMyNode;
  124.     i, oldord    : longint;
  125.     pubname, 
  126.     filename, 
  127.     tmpstr, ts   : string;
  128.     wl, tl : long;
  129.  
  130.