From 6c8268ece27f3349dcc6b8e60718fcd63e930a63 Mon Sep 17 00:00:00 2001 From: "Andre A. Gomes" Date: Wed, 11 Sep 2024 17:40:35 +0300 Subject: [PATCH] renderer/gtk: Fix indentation. --- source/renderer/gtk.lisp | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/source/renderer/gtk.lisp b/source/renderer/gtk.lisp index 1fb85cf48e3..12cae1eb661 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