90 lines
1.7 KiB
HolyC
90 lines
1.7 KiB
HolyC
//See $LK,"Menus",A="HI:Menus"$
|
|
|
|
#define M_OPTION1 1
|
|
#define M_OPTION2 2
|
|
|
|
U0 PullDownMenuDemo()
|
|
{
|
|
I64 msg_code,a1,a2;
|
|
CMenuEntry *tempse;
|
|
|
|
MenuPush(
|
|
"File {"
|
|
" Open(,'O');"
|
|
" Save(,'S');"
|
|
" Exit(,CH_SHIFT_ESC);"
|
|
"}"
|
|
"Edit {"
|
|
" Cut(,,SC_DELETE|SCF_SHIFT);"
|
|
" Paste(,,SC_INS|SCF_SHIFT);"
|
|
"}"
|
|
"Misc {"
|
|
" Beep(,CH_SPACE);"
|
|
" Opt1(MSG_CMD,M_OPTION1);"
|
|
" Opt2(MSG_CMD,M_OPTION2);"
|
|
"}"
|
|
"Help {"
|
|
" Help(,,0x3B0000003B);"
|
|
" About(,,0x23B0000023B);"
|
|
"}");
|
|
|
|
"A pull-down menu will appear "
|
|
"if you move the mouse to the top "
|
|
"of the screen.\n\n";
|
|
|
|
do {
|
|
msg_code=GetMsg(&a1,&a2,1<<MSG_KEY_DOWN+1<<MSG_CMD);
|
|
"\nCmd:%d A1:%X A2:%X\n\n",msg_code,a1,a2;
|
|
|
|
switch (msg_code) {
|
|
case MSG_KEY_DOWN:
|
|
switch (a1) {//ASCII
|
|
case CH_SPACE:
|
|
Beep;
|
|
break;
|
|
case 0:
|
|
switch (a2.u8[0]) {//a2=Scan code
|
|
case SC_F1:
|
|
if (a2&SCF_SHIFT)
|
|
"About PullDown Demo\n";
|
|
else
|
|
"Test the menu.\n";
|
|
break;
|
|
case SC_DELETE:
|
|
if (a2&SCF_SHIFT)
|
|
"Cut\n";
|
|
break;
|
|
case SC_INS:
|
|
if (a2&SCF_SHIFT)
|
|
"Paste\n";
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case MSG_CMD:
|
|
//I Recommend making your menu
|
|
//drive by key strokes, but you can
|
|
//use the $LK,"MSG_CMD",A="MN:MSG_CMD"$ val.
|
|
switch (a1) {
|
|
case M_OPTION1:
|
|
"Option # 1\n";
|
|
if (tempse=MenuEntryFind(Fs->cur_menu,"Misc/Opt1"))
|
|
tempse->checked=!tempse->checked;
|
|
break;
|
|
case M_OPTION2:
|
|
"Option # 2\n";
|
|
if (tempse=MenuEntryFind(Fs->cur_menu,"Misc/Opt2"))
|
|
tempse->checked=!tempse->checked;
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
|
|
} while (msg_code!=MSG_KEY_DOWN||(a1!=CH_SHIFT_ESC && a1!=CH_ESC));
|
|
MenuPop;
|
|
}
|
|
|
|
PullDownMenuDemo;
|