From e75b311a337c4691ac20a7a4926de2080c6670d4 Mon Sep 17 00:00:00 2001
From: Sebastian Shader <sebfumaster@aol.com>
Date: Sat, 16 Dec 2023 12:27:42 -0600
Subject: [PATCH] better scrolling on windows (still not smooth..)

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

diff --git a/color-themes-plugin.tcl b/color-themes-plugin.tcl
index 7d99f12..626ba60 100644
--- a/color-themes-plugin.tcl
+++ b/color-themes-plugin.tcl
@@ -339,6 +339,11 @@ 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 "win32"} {
+            .colortheme_dialog.theme_list.c.f$counter.c configure \
+                -yscrollincrement 1
+        }
         if {$::windowingsystem eq "x11"} {
                 # from http://wiki.tcl.tk/3893
             bind .colortheme_dialog.theme_list.c.f$counter.c <Button-4> \
@@ -529,6 +534,9 @@ proc ::color-themes::opendialog {} {
     }
     bind .colortheme_dialog.theme_list.c <MouseWheel> \
         [list {::color-themes::mainscroll} %y %D $boxincr]
+    if {$::windowingsystem eq "win32"} {
+        .colortheme_dialog.theme_list.c configure -yscrollincrement 1
+    }
     if {$::windowingsystem eq "x11"} {
         # from http://wiki.tcl.tk/3893
         bind .colortheme_dialog.theme_list.c <Button-4> \