Return-Path: pbiereic@eso.org
Message-Id: <199610161139.NAA16670@te1.hq.eso.org>
Return-Path: <pbiereic@te1>
To: abrighto@eso.org
cc: pbiereic
Subject: RTD 2.5
Date: Wed, 16 Oct 1996 13:38:59 +0200
From: Peter BIEREICHEL * ESO * +49 89 32006-266 <pbiereic@eso.org>

Hi Allan,

new version - new problems:

- - EntryForm.tcl should have a method to update the values (this should be
done when Rtd receives a new image event).

- - $w_.wcs_info must be added to RtdImage::list_windows.

- - There are still windows which are not transient (WCS, FITS header, Pick Object,
dialog windows,...).
Probably it is better to set Transient {1} in TopLevelWidget.tcl.

- - "Clear" was added to the Toolbox menu: You also clear the rapid
frame region which causes a lot of troubles.
The help text for clear should say: Clear _all_ graphics

- - "File clear" stops rapid frame. This is ok but there is no way to start
it afterwards.

- - The version number displayed is 2.4 (should be 2.5)

- - Rapid frame in separate window after "rtd -debug 1": Sometimes it works,
sometimes not.

- - "File, Save As../Print.." should give an error when the image is cleared

- - Try to draw graphics in the upper part of the main frame when the image is cleared

- --------------------------------------------------------------

- - I have still problems to terminate a polygon drawing (due to shelp when
double clicking). For the ISAAC RTD I have modified TopLevelWidget.tcl:

# set the text of the short help message (display now)
# Note: embedded bitmaps can be specified as follows:
#
# short_help "some text {bitmap mybitmap} other text ..."

method short_help {msg} {
if {[info exists itk_component(short_help)]} {
# no display after button-1 press (makes double-press impossible)
set mf [lindex $msg 0]
if {"$mf" == "NotifyGrab" || "$mf" == "NotifyUngrab"} {
return
}
set w $itk_component(short_help)
.............

method add_short_help {w msg} {
bind $w <Enter> "+[code $short_help_win_ short_help "%m $msg"]"
bind $w <Leave> "+[code $short_help_win_ short_help {"%m"}]"
}

- --------------------------------------------------------------

- - Clicking with the middle button in the main window shows the
following problem (similar when the image is cleared)

/usr/local/lib/rtd/library/demos/rtd.tcl: image does not support world coords
while executing
"$image_ convert coords $sx1 $sy1 screen wx1 wy1 wcs"
(object "::rtd::Rtd::.rtd.image" method "::rtd::RtdImage::debug" body line 29)
invoked from within
"::rtd::Rtd::.rtd.image debug 456 254"
(in namespace "::rtd::RtdImage" body line 1)
invoked from within
"@scope ::rtd::RtdImage {::rtd::Rtd::.rtd.image debug 456 254}"
(command bound to event)

- --------------------------------------------------------------

- - The following message was displayed after "rtd -debug 1" and
starting a rapid frame in a separate image:

/usr/local/lib/rtd/library/demos/rtd.tcl: syntax error in expression "<<2|<<1|"
while executing
"expr $ro<<2|$fx<<1|$fy"
invoked from within
"$compass_ config -bitmap "comp[expr $ro<<2|$fx<<1|$fy]..."
invoked from within
"if {$itk_option(-show_trans)} {
global ::$w_.var
set ro [set $w_.var(rotate)]
set fx [set $w_.var(flipx)]
set fy [set $w_.var(fli ..."
(object "::rtd::RtdImagePanel::.rtd.image.rapid.info.trans" method "::rtd::RtdImageTrans::update_compass" body line 2)
invoked from within
"update_compass"
invoked from within
"if {$itk_option(-show_trans)} {
set $w_.var(rotate) [$image_ rotate]
set $w_.var(flipx) [$image_ flip x]
set $w_.var(flipy) [$image_ fl ..."

------- End of Forwarded Message