Commit 833e6ec5 authored by bp's avatar bp
Browse files

fixed test for this bit

git-svn-id: https://forth-ev.de/repos/bigforth@1680 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 0f93c583
......@@ -698,7 +698,7 @@ how: : dispose clicks HandleOff
dup 1 <> IF 2* THEN ;
: shift@ ( -- kbshift ) 0
VK_MENU 1+ VK_SHIFT ?DO
I GetKeyState wextend 0< IF I >kshift or THEN
I GetKeyState $8000 and IF I >kshift or THEN
LOOP ;
public: displays ptr grab-key
private:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment