/usr/share/skycat/tclutil2.1.0/LabelWidget.tcl is in skycat 3.1.2+starlink1~b-3.
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 52 53 54 55 56 57 58 59 60 61 | # E.S.O. - VLT project/ ESO Archive
# "@(#) $Id: LabelWidget.tcl,v 1.1.1.1 2009/03/31 14:11:52 cguirao Exp $"
#
# LabelWidget.tcl - Base class of labeled widgets
#
# who when what
# -------------- --------- ----------------------------------------
# Allan Brighton 01 Jun 94 Created
# LabelWidget is an itcl widget for displaying a label.
# Another widget may be added in a derived class...
itcl::class util::LabelWidget {
inherit util::FrameWidget
# constructor
constructor {args} {
# label for the widget
itk_component add label {
label $w_.label
} {
keep -text -background -foreground -anchor
rename -width -labelwidth labelWidth LabelWidth
rename -font -labelfont labelFont LabelFont
}
eval itk_initialize $args
}
# -- options --
# disabled foreground color
itk_option define -disabledforeground disabledforeground DisabledForeground {grey}
# set the state to normal or disabled (greyed out)
itk_option define -state state State normal {
if {"$itk_option(-state)" == "normal"} {
$itk_component(label) config -foreground $itk_option(-foreground)
} else {
$itk_component(label) config -foreground $itk_option(-disabledforeground)
}
}
# widget orientation: horizontal, vertical
itk_option define -orient orient Orient {horizontal} {
if {"$itk_option(-orient)" == "horizontal"} {
set side_ left
} else {
set side_ top
}
if {"$itk_option(-text)" != ""} {
pack $itk_component(label) -side $side_ -fill x -ipadx 1m
}
}
# pack option
protected variable side_ {left}
}
|