mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 06:50:20 -08:00
Code Issues Projects Releases Wiki Activity

repair regression with keyboard manipulations of controls

Browse source
This commit is contained in:
David Botton 2022-07-29 14:09:14 -04:00
parent 8899a6d857
commit ed92847b69
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder.lisp
View file

@ -471,8 +471,6 @@ replaced."
(ctrl (getf data :ctrl-key))
(meta (getf data :meta-key))
(shift (getf data :shift-key)))
(print key)
(print shift)
(cond ((equal key "ArrowUp")
(if shift
(set-geometry control :height (1- (height control)))