home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 4
/
FreshFish_May-June1994.bin
/
new
/
amigalibdisks
/
d996
/
startup-menu
/
source
/
sm
/
sm.h
< prev
next >
Wrap
Text File
|
1994-04-05
|
1KB
|
51 lines
{* SMPrefs.h - constant defines, global variables etc. for SMPrefs.PAS
* Jan '94 Lee Kindness
* Highspeed Pascal
*}
TYPE
pMyNode = ^tMyNode;
tMyNode = record
LSK_Node : tNode; { system node structure }
LSK_Name : string;
LSK_Cmd : string;
LSK_Key : string[2];
end;
tPointerArray = Array[0..35] of Word;
pPointerArray = ^tPointerArray;
CONST
{ size labels }
S_WB_T = 1;
S_WB_L = 2;
S_WB_R = 3;
S_WB_B = 4;
GAD_W = 5;
GAD_H = 6;
TBS = 7;
Vers : string = '$VER: Startup-Menu v1.00 5.2.94'#0;
PREFSNAME : string = 'Startup-Menu.prefs';
PREFSDIRH : string = 'S:';
vi : pointer = NIL;
TheWindow : pWindow = NIL;
TheScreen : pScreen = NIL;
MyPens : Array[0..8] of Word = ($FFFF); (* Get default *)
Var
GList, pGad : pGadget;
Gadgetflags : tNewGadget;
MyTextFont : pTextFont;
Sizes : Array[1..7] Of Integer;
WindowIDCMP : LONG;
RememberKey : pRemember;
CurrentList : pList;
tmpstr : string;
DummyReq : tRequester;
waitpointer : pPointerArray;