/usr/share/skycat/rtd3.2.1/RtdImageIcon.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 62 63 64 65 66 67 68 69 70 71 72 73 | #*******************************************************************************
# E.S.O. - VLT project
#
# "@(#) $Id: RtdImageIcon.tcl,v 1.1.1.1 2009/03/31 14:11:52 cguirao Exp $"
#
# RtdImageIcon.tcl - itcl widget to display current image in icon window
#
# See man page RtdImageIcon(n) for a complete description.
#
# who when what
# -------------- --------- ----------------------------------------
# Allan Brighton 08 Jun 96 Created
itk::usual RtdImageIcon {}
# RtdImageIcon is an itcl widget used to display the current image in the
# icon window.
itcl::class rtd::RtdImageIcon {
inherit util::TopLevelWidget
# constructor: create a new instance of this class
constructor {args} {
eval itk_initialize $args
# RtdImage widget
itk_component add image {
rtd::RtdImage $w_.image \
-name "IconImage" \
-scrollbars 0 \
-graphics 0 \
-drag_scroll 0 \
-displaymode 0 \
-fitwidth $itk_option(-width) \
-fitheight $itk_option(-height) \
-subsample $itk_option(-subsample) \
-verbose $itk_option(-verbose) \
-usexsync $itk_option(-usexsync) \
-usexshm $itk_option(-usexshm) \
-show_object_menu 0
}
pack $itk_component(image) -side right -anchor n
[$itk_option(-image) get_image] view add [$itk_component(image) get_image] 0
bind $this <Map> [code $itk_component(image) center]
}
# -- public vars --
# target RtdImage (itcl widget)
itk_option define -image image Image {}
# dimensions of pan frame
itk_option define -width width Width 48
itk_option define -height height Height 48
# flag: if true, pan image is "subsampled" when shrinking,
# otherwise the pixels are averaged
itk_option define -subsample subsample Subsample 1
# X shared memory option
itk_option define -usexshm useXshm UseXshm 1
# X synchronisation option
itk_option define -usexsync useXsync UseXsync 1
# flag: if true, print diagnostic messages
itk_option define -verbose verbose Verbose {0}
}
|