/usr/share/tkrat2.2/util/rat_flowmsg.tcl is in tkrat 1:2.2cvs20100105-true-dfsg-6.
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 | # rat_flowmsg.tcl
#
# Create a message-widget which fills the available horizontal space
package provide rat_flowmsg 1.0
namespace eval rat_flowmsg {
}
# rat_flowmsg::create
#
# Creates the flowing message
#
# Arguments:
# The same as the message widget
proc rat_flowmsg::create {w args} {
eval [concat message $w -highlightthickness 0 -bd 0 -padx 0 $args]
set p [winfo parent $w]
bind $w <Configure> "$w configure -width \[expr \[winfo width $p\] - 2*(\[$w cget -bd\]+\[$w cget -padx\]+\[$w cget -highlightthickness\])\]"
}
|