a2-chemi-gs-1993/equates.asm

1 line
1.9 KiB
NASM

****************************************************************
* ChemiGS *
****************************************************************
* A Drawing Program for Chemical Structures *
* (c) 1992 by Urs Hochstrasser *
* Buendtenweg 6 *
* 5105 AUENSTEIN (SWITZERLAND) *
****************************************************************
* GLOBAL EQUATES
****************************************************************
*
* INCLUDE ...
*
copy 13:Ainclude:E16.CONTROL
copy 13:Ainclude:E16.DIALOG
copy 13:Ainclude:E16.EVENT
copy 13:Ainclude:E16.MEMORY
copy 13:Ainclude:E16.MISCTOOL
copy 13:Ainclude:E16.QDAUX
copy 13:Ainclude:E16.QUICKDRAW
copy 13:Ainclude:E16.RESOURCES
copy 13:Ainclude:E16.SCRAP
copy 13:Ainclude:E16.TYPES
copy 13:Ainclude:E16.WINDOW
copy 13:Ainclude:E16.PRINT
copy 13:Ainclude:E16.MENU
copy 13:Ainclude:E16.STDFILE
****************************************************************
*
* CONST
*
kTools gequ 1 Resource IDs
kMBarID gequ 1
kAboutWID gequ $FFA
kDataWID gequ $FF9
kToolWID gequ $FF8
kEasterWID gequ $FF7
kPrefWID gequ $FF6
kHelpWID gequ $FF5
kAlertRO gequ 1
kSaveChID gequ 2
kRevertID gequ 3
kToolPicID gequ 2
kButtonBarID gequ 3 formerly 5...
kChFontID gequ 1
kPicResID gequ $8002
rCursor gequ $8027
rFont gequ $C003
ptr GEQU 4
invalidAccess gequ $4E
kAppleM gequ 1 Apple Menu IDs
kFileM gequ 2 File Menu IDs
kEditM gequ 3 Edit Menu IDs
TextToolID gequ 12
TEditID gequ 20 Line Edit Cntl ID (In fact it's a TEdit)
hScrlID gequ 5 hor. scroll bar ID
vScrlID gequ 6 vert. scroll bar ID
MountnID gequ 8 display size control ID
SizeBxID gequ 9 size box control ID
TBarCID gequ 7 inactive ToolBar ctl ID
kDataWidth gequ 640
kDataHeigth gequ 400
kWInfoSize gequ 6 Window Information Block
segSize GEQU 32
FInfoSize gequ 116 used in GLOBALS, WINDOWS, FILE
miniFInfo gequ 56 used in DRAW, see also GLOBALS
kRulerH gequ 18