From fb42aa4b9858e87493180cc8384bb43d778e8f09 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Fri, 23 May 2014 16:44:10 -0400
Subject: [PATCH] experimental additions (currently disabled)
---
pd/src/pd.tk | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index c14371974..d94b93299 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -3456,7 +3456,7 @@ proc pdtk_canvas_draw_scrollbars {name} {
$name.c delete xscroll
$name.c delete yscroll
}
- if {$::xscrollable($name)} {
+ if { $::xscrollable($name) == 1 } {
set visible [$name.c xview]
set vx1 [lindex $visible 0]
set vx2 [lindex $visible 1]
@@ -3476,7 +3476,7 @@ proc pdtk_canvas_draw_scrollbars {name} {
$name.c bind $hscroll <Leave> {pdtk_canvas_leave_scrollbar %W %x %y}
#}
}
- if {$::yscrollable($name)} {
+ if { $::yscrollable($name) == 1 } {
set visible [$name.c yview]
set vy1 [lindex $visible 0]
set vy2 [lindex $visible 1]
@@ -3953,6 +3953,11 @@ proc pdtk_canvas_toggle_scrollbars {rootname x} {
}
}
+# proc pdtk_canvas_set_scrollless {rootname} {
+# # EXPERIMENTAL: set scroll to permanently disabled for array and scalar GOP windows
+# set ::scroll($rootname) -1
+#}
+
proc pdtk_set_canvas_background {rootname color} {
set ::canvas_color($rootname) $color
if {[info exists ::loaded($rootname)]} {
--
GitLab