2020-02-15 23:56:05 +00:00
|
|
|
U0 MessageLoop()
|
|
|
|
|
{
|
2020-02-20 23:40:10 +00:00
|
|
|
I64 arg1,arg2,message_code;
|
|
|
|
|
"Use $LK,"message_code",A="MN:MESSAGE_CMD"$ defines in your programs instead of hardcoded nums.\n"
|
|
|
|
|
"<ESC> to Exit\n";
|
2020-02-15 23:56:05 +00:00
|
|
|
|
2020-02-20 23:40:10 +00:00
|
|
|
//We don't want the mouse bttns to reposition the cursor,
|
|
|
|
|
//so we inhibit the window mgr from processing them.
|
2020-02-15 23:56:05 +00:00
|
|
|
|
2020-02-20 23:40:10 +00:00
|
|
|
Fs->win_inhibit=WIF_SELF_MS_L|WIF_SELF_MS_R;
|
2020-02-15 23:56:05 +00:00
|
|
|
|
2020-02-20 23:40:10 +00:00
|
|
|
do {
|
|
|
|
|
message_code=GetMessage(&arg1,&arg2,~(1<<MESSAGE_NULL));
|
|
|
|
|
"CMD:%02X ARG1:%08X ARG2:%016X\n",message_code,arg1,arg2;
|
|
|
|
|
} while (message_code!=MESSAGE_KEY_DOWN || arg1!=CH_ESC && arg1!=CH_SHIFT_ESC);
|
|
|
|
|
GetMessage(,,1<<MESSAGE_KEY_UP);
|
2020-02-15 23:56:05 +00:00
|
|
|
|
2020-02-20 23:40:10 +00:00
|
|
|
Fs->win_inhibit=WIG_USER_TASK_DEFAULT;
|
2020-02-15 23:56:05 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
MessageLoop;
|
|
|
|
|
|
|
|
|
|
// Press <CTRL-SHIFT-L> and "Insert $LK,"ASCII",A="MN:CH_CTRLA"$/$LK,"ScanCode",A="FI:::/Doc/CharOverview.DD"$".
|
