From f382a783dff05adc71f02d53e3e4296b3cc04da6 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Sat, 4 Aug 2012 16:30:57 -0400
Subject: [PATCH] disabled zoom inside K12 mode
---
src/pd.tk | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/pd.tk b/src/pd.tk
index c82511766..1b4f8a514 100644
--- a/src/pd.tk
+++ b/src/pd.tk
@@ -2956,8 +2956,10 @@ proc pdtk_canvas_new {name width height geometry editable} {
bind $name.c <Button-5> "pdtk_canvas_scroll $name.c y +1"
bind $name.c <Shift-Button-4> "pdtk_canvas_scroll $name.c x -1"
bind $name.c <Shift-Button-5> "pdtk_canvas_scroll $name.c x +1"
- bind $name.c <Control-Button-4> "pdtk_zoom $name 1"
- bind $name.c <Control-Button-5> "pdtk_zoom $name -1"
+ if { $k12_mode == 0 } {
+ bind $name.c <Control-Button-4> "pdtk_zoom $name 1"
+ bind $name.c <Control-Button-5> "pdtk_zoom $name -1"
+ }
} default {
bind $name.c <MouseWheel> \
"pdtk_canvas_scroll $name.c y \[expr -abs(%D)/%D\]"
--
GitLab