/usr/share/skycat/tclutil2.1.0/InputDialog.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 | # E.S.O. - VLT project/ ESO Archive
# "@(#) $Id: InputDialog.tcl,v 1.1.1.1 2009/03/31 14:11:52 cguirao Exp $"
#
# InputDialog.tcl - Dialog to display a message and get input from the user
#
# who when what
# -------------- --------- ----------------------------------------
# Allan Brighton 01 Jun 94 Created
itk::usual InputDialog {}
# An InputDialog is a dialog to display a message and get input from
# the user.
itcl::class util::InputDialog {
inherit util::DialogWidget
# create the dialog
constructor {args} {
# add an entry widget below the message
global ::$variable_
# Tk entry widget for input.
itk_component add entry {
entry $itk_component(ext).entry -relief sunken
}
pack $itk_component(entry) -side left -fill x -expand 1 \
-padx 2m -pady 2m -ipady 1m
eval itk_initialize $args
}
# called after options have been evaluated
protected method init {} {
DialogWidget::init
bind $itk_component(entry) <Return> \
"$itk_component(button$itk_option(-default)) flash; set $variable_ $itk_option(-default)"
}
# this method is redefined here to change the value
# that is returned from activate to be the contents of the entry widget
protected method set_result {} {
global ::$variable_
if {"[set $variable_]" == "$itk_option(-default)"} {
return [$itk_component(entry) get]
}
return {}
}
}
|