1 line
1.7 KiB
NASM
1 line
1.7 KiB
NASM
keep MENU
|
|
|
|
****************************************************************
|
|
* ChemiGS *
|
|
****************************************************************
|
|
* A Drawing Program for Chemical Structures *
|
|
* (c) 1992-93 by Urs Hochstrasser *
|
|
* Buendtenweg 6 *
|
|
* 5105 AUENSTEIN (SWITZERLAND) *
|
|
****************************************************************
|
|
|
|
* Module MENU
|
|
|
|
|
|
****************************************************************
|
|
*
|
|
* USES ...
|
|
*
|
|
mcopy Menu.macros
|
|
copy equates.asm
|
|
|
|
****************************************************************
|
|
*
|
|
* SUBROUTINES
|
|
*
|
|
|
|
HandleMenu start
|
|
using Globals
|
|
lda gTaskDta get Menu Item ID
|
|
sec turn into index by substracting 250
|
|
sbc #250
|
|
asl a and multiplying by 2
|
|
tax
|
|
jsr (menuTable,x) call the routine
|
|
~HiliteMenu #0,gTaskDta+2 hilite the selected menu
|
|
rts
|
|
|
|
menuTable dc i2'Ignore' Undo (250)
|
|
dc i2'Ignore' Cut (251)
|
|
dc i2'Ignore' Copy (252)
|
|
dc i2'Ignore' Paste (253)
|
|
dc i2'Ignore' Clear (254)
|
|
dc i2'DoClose' Close (255)
|
|
dc i2'DoAbout' About... (256)
|
|
dc i2'DoQuit' Quit (257)
|
|
dc i2'DoNew' New (258)
|
|
dc i2'DoOpen' Open (259)
|
|
dc i2'DoSave' Save (260)
|
|
dc i2'DoSaveAs' Save As... (261)
|
|
dc i2'DoRevert' Revert (262)
|
|
dc i2'DoPSetup' Page Setup... (263)
|
|
dc i2'DoPrint' Print... (264)
|
|
dc i2'Ignore' Select All (265) ???????
|
|
dc i2'Ignore' Bring To Front (266)
|
|
dc i2'Ignore' Choose Font (267)
|
|
dc i2'Ignore' Show Clipboard (268)
|
|
dc i2'Ignore' Send To Back (269)
|
|
dc i2'Ignore' Group (270)
|
|
dc i2'Ignore' Ungroup (271)
|
|
dc i2'Ignore' Size (272)
|
|
dc i2'DoPrefs' Preferences (273)
|
|
dc i2'Test' Grid (274)
|
|
dc i2'Test' Select All (275)
|
|
dc i2'DoHelp' Help (276)
|
|
dc i2'Test' Test Beep
|
|
|
|
end
|