diff options
author | Andre A. Gomes <andremegafone@gmail.com> | 2024-09-11 17:40:35 +0300 |
---|---|---|
committer | Andre A. Gomes <andremegafone@gmail.com> | 2024-09-11 17:40:35 +0300 |
commit | 6c8268ece27f3349dcc6b8e60718fcd63e930a63 (patch) | |
tree | d8c1966dc50a3335684f5f75c33af5b774f78cd8 | |
parent | d319402ef27f63e2e6e7bcead52e1ad81d560cd4 (diff) |
renderer/gtk: Fix indentation.
-rw-r--r-- | source/renderer/gtk.lisp | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/source/renderer/gtk.lisp b/source/renderer/gtk.lisp index 1fb85cf48..12cae1eb6 100644 --- a/source/renderer/gtk.lisp +++ b/source/renderer/gtk.lisp @@ -698,16 +698,10 @@ Return nil when key must be discarded, e.g. for modifiers." (:down 5) (:left 6) (:right 7) - (:smooth - (cond - ((>= 0 (gdk:gdk-event-scroll-delta-y event)) - 4) - ((< 0 (gdk:gdk-event-scroll-delta-y event)) - 5) - ((>= 0 (gdk:gdk-event-scroll-delta-x event)) - 6) - ((< 0 (gdk:gdk-event-scroll-delta-x event)) - 7))))) + (:smooth (cond ((>= 0 (gdk:gdk-event-scroll-delta-y event)) 4) + ((< 0 (gdk:gdk-event-scroll-delta-y event)) 5) + ((>= 0 (gdk:gdk-event-scroll-delta-x event)) 6) + ((< 0 (gdk:gdk-event-scroll-delta-x event)) 7))))) (key-string (format nil "button~s" button)) (modifiers (input-modifier-translator sender (scroll-event-modifiers event)))) (when key-string |