/usr/share/amsn/BWidget_mods.tcl is in amsn-data 0.98.9-1.
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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | #
# BWidget modifications by the aMSN team
#
# Cannot 'select plugins' or open 'preferences' more than once.
# Error says the proc cannot be renamed because it already exists.
# This dirty hack checks first whether it exists already, though I think
# it should be fixed some better way (forcing me to understand this code
# better first...)
#
# See several forum topics, e.g.:
# - http://www.amsn-project.net/forums/viewtopic.php?p=11765
# - http://www.amsn-project.net/forums/viewtopic.php?t=1982
# - http://www.amsn-project.net/forums/viewtopic.php?t=1980
# and several others
::Version::setSubversionId {$Id: BWidget_mods.tcl 11423 2009-07-30 19:09:06Z kakaroto $}
proc Widget::create { class path {rename 1} } {
if {$rename && [llength [info procs ::$path:cmd]] == 0} {
rename $path ::$path:cmd
}
proc ::$path { cmd args } \
[subst {return \[eval \[linsert \$args 0 ${class}::\$cmd [list $path]\]\]}]
return $path
}
################################################
# 'Missing' BWidget commands #
################################################
ScrollableFrame::use
proc ::ScrollableFrame::compute_width { path } {
$path configure -width [winfo reqwidth [$path getframe]]
}
proc ::ScrollableFrame::compute_height { path } {
$path configure -height [winfo reqheight [$path getframe]]
}
proc ::ScrollableFrame::compute_size { path } {
$path compute_width
$path compute_height
}
# This bug was fixed in BWidget 1.9
if {[package require BWidget] == "1.8" } {
proc ::ScrollableFrame::_frameConfigure {canvas frame width height} {
$canvas:cmd configure -scrollregion [$canvas:cmd bbox all]
}
}
|