From b102c516cf91b71193bb44c83cdf4a87c49fa165 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@monsoon-hp.(none)>
Date: Sat, 3 Mar 2012 20:10:29 -0500
Subject: [PATCH] disabled zooming until I can figure out syncing of locations
between c code and tk
---
src/pd.tk | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/pd.tk b/src/pd.tk
index ecdb1d07d..b236d0886 100644
--- a/src/pd.tk
+++ b/src/pd.tk
@@ -2545,8 +2545,8 @@ 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"
+ #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\]"
@@ -3242,7 +3242,7 @@ proc pdtk_canvas_ctrlkey {name key shift} {
if {$key == "l" || $key == "L"} {menu_clear_console}
if {$key == "r" || $key == "R"} {menu_toggle_console}
if {$key == "E"} {menu_tooltips $topname}
- if {$key == "Return"} {pdtk_zoom_reset $topname}
+ #if {$key == "Return"} {pdtk_zoom_reset $topname}
if {!$ignore} {
if {$key == "w" || $key == "W"} {menu_really_close $topname}
if {$key == "s" || $key == "S"} {menu_saveas $topname}
--
GitLab