From 1e3a4e7a0607ab4e6f8af6717eed1792fd38fab3 Mon Sep 17 00:00:00 2001
From: marc_culler <marc.culler@gmail.com>
Date: Fri, 24 Nov 2023 20:32:20 +0000
Subject: Add touchpad bindings to the canvas items demo.

---
 library/demos/items.tcl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/library/demos/items.tcl b/library/demos/items.tcl
index 5f51a90..bdd2cc2 100644
--- a/library/demos/items.tcl
+++ b/library/demos/items.tcl
@@ -34,6 +34,14 @@ canvas $c -scrollregion {0c 0c 30c 24c} -width 15c -height 10c \
 ttk::scrollbar $w.frame.vscroll -command "$c yview"
 ttk::scrollbar $w.frame.hscroll -orient horizontal -command "$c xview"
 
+#Touchpad scrolling
+bind $c <Control-MouseWheel> {
+    lassign [tk::PreciseScrollDeltas %D] deltaX deltaY
+    if {$deltaX != 0 || $deltaY != 0} {
+	tk::CanvasScrollByPixels %W $deltaX $deltaY
+    }
+}
+
 grid $c -in $w.frame \
     -row 0 -column 0 -rowspan 1 -columnspan 1 -sticky news
 grid $w.frame.vscroll \
-- 
cgit v0.12