|
@@ -1118,10 +1118,8 @@ eventLoop:
|
|
|
NSFlagsChanged:
|
|
|
begin
|
|
|
modFlags := ev.modifierFlags;
|
|
|
- if (modFlags and NSAlphaShiftKeyMask) > 0 then
|
|
|
- keyboardDown(K_CAPSLOCK)
|
|
|
- else
|
|
|
- keyboardUp(K_CAPSLOCK);
|
|
|
+ if ((modFlags and NSAlphaShiftKeyMask) > 0) or ((modFlags and 256) > 0) then
|
|
|
+ keyboardDown(K_CAPSLOCK);
|
|
|
if (modFlags and NSShiftKeyMask) > 0 then
|
|
|
begin
|
|
|
if (modFlags and 2) > 0 then
|