/usr/share/saods9/blt3.0/scrollset.tcl is in saods9-blt 7.2+dfsg-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | namespace eval blt {
namespace eval Scrollset {
#empty
}
}
proc blt::Scrollset::ConfigureScrollbars { scrollset } {
set xscrollbar [$scrollset cget -xscrollbar]
set yscrollbar [$scrollset cget -yscrollbar]
set slave [$scrollset cget -window]
if { $slave != "" } {
set yscrollcmd [$scrollset cget -yscrollcommand]
if { $yscrollcmd == "" } {
set yscrollcmd [list $slave yview]
}
if { [catch $yscrollcmd] == 0 } {
$slave configure -yscrollcommand [list $scrollset set y]
}
set xscrollcmd [$scrollset cget -xscrollcommand]
if { $xscrollcmd == "" } {
set xscrollcmd [list $slave xview]
}
if { [catch $xscrollcmd] == 0 } {
$slave configure -xscrollcommand [list $scrollset set x]
}
}
if { $xscrollbar != "" } {
$xscrollbar configure -command [list $scrollset xview] \
-orient horizontal -highlightthickness 0
}
if { $yscrollbar != "" } {
$yscrollbar configure -command [list $scrollset yview] \
-orient vertical -highlightthickness 0
}
}
|