/usr/share/skycat/cat4.1.0/EnterObject.tcl is in skycat 3.1.2+starlink1~b-8+b2.
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 62 63 64 65 66 67 68 69 70 71 72 73 | # E.S.O. - VLT project/ESO Archive
# @(#) $Id: EnterObject.tcl,v 1.1.1.1 2009/03/31 14:11:52 cguirao Exp $
#
# EnterObject.tcl - Widget for entering data to add to a local catalog.
#
# who when what
# -------- --------- ----------------------------------------------
# A.Brighton 26 Jun 96 created
itk::usual EnterObject {}
# EnterObject is a dialog widget for entering object data to add to a
# local catalog.
itcl::class cat::EnterObject {
inherit util::EntryForm
# constructor
constructor {args} {
eval itk_initialize $args
}
# called after options have been evaluated
protected method init {} {
EntryForm::init
wm title $w_ "Enter Object ($itk_option(-number))"
if {"$itk_option(-image)" != ""} {
$itk_component(buttons) append \
"Pick object..." \
[code $this pick_object]
}
}
# this method is called to pop up a dialog to allow the user to pick
# an object in the image
public method pick_object {} {
if {"$itk_option(-image)" != ""} {
if {[catch {set list [$itk_option(-image) pick_dialog [code $this picked_object]]} msg]} {
error_dialog $msg
return
}
}
}
# this is called when an object has been selected with the pick dialog
public method picked_object {list} {
lassign $list x y ra dec equinox fwhmX fwhmY symetry object background
set_entry ra $ra
set_entry dec $dec
}
# -- options --
# optional image handle (itcl class RtdImage or derived class)
itk_option define -image image Image {}
# -- protected vars --
}
|