From cf0928953b5061e115f6a974158553d4b5a56b17 Mon Sep 17 00:00:00 2001
From: Seb Shader <sebfumaster@aol.com>
Date: Sat, 29 Oct 2022 00:04:32 -0700
Subject: [PATCH] unbind horizontal scrolling buttons (triggering vertical
 ones)

---
 color-themes-plugin.tcl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/color-themes-plugin.tcl b/color-themes-plugin.tcl
index f9c094f..597b6e9 100644
--- a/color-themes-plugin.tcl
+++ b/color-themes-plugin.tcl
@@ -335,6 +335,10 @@ proc ::color-themes::opendialog {} {
                 {event generate %W <MouseWheel> -delta 1 -y %y}
             bind .colortheme_dialog.theme_list.c.f$counter.c <Button-5> \
                 {event generate %W <MouseWheel> -delta -1 -y %y}
+            bind .colortheme_dialog.theme_list.c.f$counter.c <Shift-Button-4> \
+                {break}
+            bind .colortheme_dialog.theme_list.c.f$counter.c <Shift-Button-5> \
+                {break}
         }
         bind .colortheme_dialog.theme_list.c.f$counter.c <Motion> \
             [list {::color-themes::motion} $counter]
@@ -521,6 +525,10 @@ proc ::color-themes::opendialog {} {
             {event generate %W <MouseWheel> -delta 1 -y %y}
         bind .colortheme_dialog.theme_list.c <Button-5> \
             {event generate %W <MouseWheel> -delta -1 -y %y}
+        bind .colortheme_dialog.theme_list.c <Shift-Button-4> \
+            {break}
+        bind .colortheme_dialog.theme_list.c <Shift-Button-5> \
+            {break}
     }
     bind .colortheme_dialog.theme_list.c <Leave> {
         if {${::color-themes::hover_theme} ne "" && \