Commit fb42aa4b authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

experimental additions (currently disabled)

parent 079d1742
......@@ -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)]} {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment