From 950d5143d7d7113ff4894ee29eab8be20ba23c54 Mon Sep 17 00:00:00 2001
From: Seb Shader <sebfumaster@aol.com>
Date: Thu, 25 Aug 2022 05:43:24 -0700
Subject: [PATCH] add mousewheel scrolling to x11

---
 color-themes-plugin.tcl | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/color-themes-plugin.tcl b/color-themes-plugin.tcl
index a4ef68b..60b6d1e 100644
--- a/color-themes-plugin.tcl
+++ b/color-themes-plugin.tcl
@@ -318,6 +318,13 @@ proc ::color-themes::opendialog {} {
         grid .colortheme_dialog.theme_list.c.f$counter.c
         bind .colortheme_dialog.theme_list.c.f$counter.c <MouseWheel> \
             [list {::color-themes::scroll} $counter %y %D $boxincr]
+        if {$::windowingsystem eq "x11"} {
+                # from http://wiki.tcl.tk/3893
+            bind .colortheme_dialog.theme_list.c.f$counter.c <Button-4> \
+                {event generate %W <MouseWheel> -delta  1}
+            bind .colortheme_dialog.theme_list.c.f$counter.c <Button-5> \
+                {event generate %W <MouseWheel> -delta -1}
+        }
         bind .colortheme_dialog.theme_list.c.f$counter.c <Motion> \
             [list {::color-themes::motion} $counter]
         bind .colortheme_dialog.theme_list.c.f$counter.c <ButtonPress> \
@@ -498,7 +505,13 @@ proc ::color-themes::opendialog {} {
     bind .colortheme_dialog.theme_list.c <MouseWheel> {
         .colortheme_dialog.theme_list.c yview scroll [expr {- (%D)}] units
     }
-    
+    if {$::windowingsystem eq "x11"} {
+        # from http://wiki.tcl.tk/3893
+        bind .colortheme_dialog.theme_list.c <Button-4> \
+            {event generate %W <MouseWheel> -delta  1}
+        bind .colortheme_dialog.theme_list.c <Button-5> \
+            {event generate %W <MouseWheel> -delta -1}
+    }
     bind .colortheme_dialog.theme_list.c <Leave> {
         if {${::color-themes::hover_theme} ne "" && \
         ${::color-themes::selected_theme} ne ${::color-themes::hover_theme}} {
@@ -548,4 +561,4 @@ if {![array exists ::pd_colors]} {
     } else {
         ::color-themes::init .menubar.file.preferences
     }
-}
\ No newline at end of file
+}