/usr/share/tkrat2.2/util/rat_compat.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 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 | # rat_compat.tcl --
#
# Contains code emulating newver tcl features for older versions.
#
#
# TkRat software and its included text is Copyright 1996-2004 by
# Martin Forssén
#
# The full text of the legal notice is contained in the file called
# COPYRIGHT, included with this distribution.
package provide rat_compat 1.0
namespace eval rat_compat {
namespace export labelframe init8_3
}
# rat_compat::labelframe --
#
# Creates a labeled frame
#
# Arguments:
# w - name of frame to create
# args - extra arguments
proc rat_compat::labelframe {w args} {
frame $w -bd 2 -relief ridge
array set args_array $args
foreach a [array names args_array] {
if {"-text" == $a} {
label $w.labelframe_label -text $args_array($a) -anchor w
pack $w.labelframe_label -side top -fill x
} else {
$w configure $ $args_array($a)
}
}
return $w
}
# rat_compat::init8_3 --
#
# Setup compatibility fro tcl/tk 8.3
#
# Arguments:
proc rat_compat::init8_3 {} {
rename rat_compat::labelframe ::labelframe
}
|