Apple-2-Tools/AppleWin
1
0
Fork 0
mirror of https://github.com/AppleWin/AppleWin.git synced 2025-02-26 21:30:36 +00:00
Code Issues Projects Releases Wiki Activity

Add Ctrl-0, Ctrl-1, Ctrl-3 for #678

Browse Source
This commit is contained in:
michaelangel007 2019-08-23 08:46:43 -07:00
parent 93bd7c678f
commit 32b42b2aeb
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
source/Frame.cpp
View File

@ -1392,7 +1392,28 @@ LRESULT CALLBACK FrameWndProc (
if (!IsJoyKey && if (!IsJoyKey &&
(g_nAppMode != MODE_LOGO)) // !MODE_LOGO - not emulating so don't pass to the VM's keyboard (g_nAppMode != MODE_LOGO)) // !MODE_LOGO - not emulating so don't pass to the VM's keyboard
{ {
KeybQueueKeypress(wparam, NOT_ASCII); // GH#678 Alternate key(s) to toggle max speed
// Ctrl-0 Speed fastest
// Ctrl-1 Speed 100%
// Ctrl-3 Toggle speed fastest / 100%
if( KeybGetCtrlStatus() && wparam >= '0' && wparam <= '9' )
{
switch (wparam)
{
case '0': g_dwSpeed = SPEED_MAX ; break; // Don't use g_bScrollLock_FullSpeed but g_dwSpeed
case '1': g_dwSpeed = SPEED_NORMAL; break;
case '3': g_dwSpeed = (g_dwSpeed != SPEED_MAX)
? SPEED_MAX
: SPEED_NORMAL
;
break;
default:
KeybQueueKeypress(wparam, NOT_ASCII);
break;
}
}
else
KeybQueueKeypress(wparam, NOT_ASCII);
if (!autorep) if (!autorep)
KeybAnyKeyDown(WM_KEYDOWN, wparam, extended); KeybAnyKeyDown(WM_KEYDOWN, wparam, extended);
@ -1407,6 +1428,7 @@ LRESULT CALLBACK FrameWndProc (
case WM_CHAR: case WM_CHAR:
if ((g_nAppMode == MODE_RUNNING) || (g_nAppMode == MODE_STEPPING) || (g_nAppMode == MODE_LOGO)) if ((g_nAppMode == MODE_RUNNING) || (g_nAppMode == MODE_STEPPING) || (g_nAppMode == MODE_LOGO))
{ {
// Ctrl-1 is NOT handled here but in WM_KEYDOWN
if (!g_bDebuggerEatKey) if (!g_bDebuggerEatKey)
{ {
#if DEBUG_KEY_MESSAGES #if DEBUG_KEY_MESSAGES