cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [GUI] added scaling of gemtext using mousewheel events (not fired on GNU/linux, maybe in other OS).

This commit is contained in:
cage 2023-08-16 18:16:05 +02:00
parent 8a88a51586
commit 8730bbd192
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/gui/client/main-window.lisp
View File

@ -1603,6 +1603,14 @@ local file paths."
(declare (ignore e)) (declare (ignore e))
(funcall (reload-iri-clsr main-window))) (funcall (reload-iri-clsr main-window)))
:exclusive t) :exclusive t)
(gui:bind target
#$<Control-MouseWheel>$
(lambda (e)
(let ((clockwise (< (gui:event-delta e) 0)))
(if clockwise
(scale-gemtext main-window 0.1)
(scale-gemtext main-window -0.1))))
:exclusive t)
(gui:bind target (gui:bind target
#$<Control-4>$ #$<Control-4>$
(lambda (e) (lambda (e)