home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / util / boot / Startup_Menu.lha / Startup-Menu / Source / SM / SM.h < prev    next >
Encoding:
Text File  |  1994-04-05  |  1.1 KB  |  51 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.     pMyNode = ^tMyNode;
  8.     tMyNode = record
  9.         LSK_Node : tNode; { system node structure }
  10.         LSK_Name : string;
  11.         LSK_Cmd  : string;
  12.         LSK_Key  : string[2];
  13.     end;
  14.     
  15.     tPointerArray = Array[0..35] of Word;
  16.     pPointerArray = ^tPointerArray;
  17.     
  18. CONST
  19.     
  20. { size labels }
  21.  
  22.     S_WB_T  = 1;
  23.     S_WB_L  = 2;
  24.     S_WB_R  = 3;
  25.     S_WB_B  = 4;
  26.     GAD_W  = 5;
  27.     GAD_H  = 6;
  28.     TBS = 7;
  29.  
  30.     Vers       : string = '$VER: Startup-Menu v1.00 5.2.94'#0;
  31.    PREFSNAME  : string = 'Startup-Menu.prefs';
  32.    PREFSDIRH  : string = 'S:';
  33.    vi         : pointer = NIL;
  34.    TheWindow  : pWindow = NIL;
  35.    TheScreen  : pScreen = NIL;
  36.    MyPens : Array[0..8] of Word = ($FFFF); (* Get default *)
  37.  
  38.          
  39. Var
  40.    GList, pGad  : pGadget;
  41.    Gadgetflags  : tNewGadget;
  42.    MyTextFont   : pTextFont;
  43.    Sizes        : Array[1..7] Of Integer;
  44.    WindowIDCMP  : LONG;
  45.    RememberKey  : pRemember;
  46.    CurrentList  : pList;
  47.     tmpstr       : string;
  48.     DummyReq     : tRequester;
  49.     waitpointer  : pPointerArray;
  50.  
  51.