Commit 4e91f0b3 authored by Денис Будяк's avatar Денис Будяк

Починил Яроклаву для Linux:

сделал обработку события отжатия только для пробела
parent 347f55d2
TFPETUCS32.Open Unix.KbdMouse.Mod Unix.X11.Mod Unix.Display.Mod ~
TFPETUCS32.Open WMEditors.Mod WMRussianIME.Mod ~
TFPETUCS32.Open FoxScanner.Mod Windows.Kernel32.Mod Windows.WinFS.Mod Windows.Display.Mod ~
......@@ -13,23 +14,3 @@ Compiler.Compile Compiler.Mod ~
Compiler.Compile Проба.Ya2 ~
фывфываsdfasdfasdfff ввавывм4ывафывааыавыафывывффываasdfasdfasdfфы
ё1234567890-=
йцукенгшщзхъ\
фывапролджэ
ячсмитьбю.
Ё!"№;%:?*()_+
ЙЦУКЕНГШЩЗХЪ♥
ФЫВАПРОЛДЖЭ
ЯЧСМИТЬБЮ,
`☼@#$°^&<„“<≈
qwertyuiop[]|
asdfghjkl<'
zxcvbnm<>
вафывафывафывафываф
\ No newline at end of file
......@@ -163,6 +163,13 @@ VAR
END;
km.flags := KeyState( ) + {Inputs.Release};
SendKeyboardMsg( km )
ELSE
IF kp.keycode = 041H THEN (* пробел *)
km.keysym := 020H; (* http://wiki.linuxquestions.org/wiki/List_of_Keysyms_Recognised_by_Xmodmap *)
km.ch := CHR( km.keysym );
km.flags := KeyState( ) + {Inputs.Release};
SendKeyboardMsg( km ) END;
(* KernelLog.String("Release..."); KernelLog.Hex(kp.keycode, 0); KernelLog.Ln; *)
END
| X11.ButtonPress: be := S.VAL(X11.ButtonEvent, event);
X11.lastEventTime := be.time;
......
......@@ -34,7 +34,7 @@ TYPE
ELSE (* это какая-то аномалия, возможно,
пользователь нажал пробел и переключился в Яос *)
ввелиЛиЧтоТоСПробелом := FALSE END END;
RETURN FALSE END END ОбработайСобытиеОтжатияКнопки;
END; RETURN FALSE END ОбработайСобытиеОтжатияКнопки;
(* Map characters from US-Keyboard to cyrillic keyboard *)
......
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