diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2017-09-18 21:16:13 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2017-09-18 21:16:13 (GMT) |
| commit | c12545d99c1f762218a2687f9ef48d6de9febef5 (patch) | |
| tree | 3ce1a225002e34c95e7ec8051907c60c4f7b0789 /ds9/library/info.tcl | |
| parent | b8675e2b5b56786b6f6277b5517ec08591cd0eab (diff) | |
| download | blt-c12545d99c1f762218a2687f9ef48d6de9febef5.zip blt-c12545d99c1f762218a2687f9ef48d6de9febef5.tar.gz blt-c12545d99c1f762218a2687f9ef48d6de9febef5.tar.bz2 | |
Update info box when new file loaded
Diffstat (limited to 'ds9/library/info.tcl')
| -rw-r--r-- | ds9/library/info.tcl | 30 |
1 files changed, 14 insertions, 16 deletions
diff --git a/ds9/library/info.tcl b/ds9/library/info.tcl index 3bc7434..bc0d1c7 100644 --- a/ds9/library/info.tcl +++ b/ds9/library/info.tcl @@ -148,13 +148,13 @@ proc CreateInfoPanel {} { -textvariable infobox(angle) -anchor center } -proc UpdateFrameInfoBox {which} { +proc LayoutFrameInfoBox {which} { global ds9 global view global debug if {$debug(tcl,events)} { - puts stderr "UpdateFrameInfoBox" + puts stderr "LayoutFrameInfoBox" } switch -- $which { @@ -383,11 +383,11 @@ proc EnterInfoBox {which} { global debug if {$debug(tcl,events)} { - puts stderr "EnterInfo $which" + puts stderr "EnterInfoBox $which" } - UpdateFrameInfoBox [$which get type] - UpdateWCSInfoBox $which + LayoutFrameInfoBox [$which get type] + LayoutWCSInfoBox $which set infobox(frame) "[msgcat::mc {Frame}] [string range $which 5 end]" set infobox(angle) [$which get rotate] @@ -483,8 +483,9 @@ proc RefreshInfoBox {which} { global debug if {$debug(tcl,info)} { - puts stderr "RefreshInfoBox" + puts stderr "RefreshInfoBox $which" } + DumpCallStack if {$which != {}} { switch -- $current(mode) { @@ -508,30 +509,27 @@ proc RefreshInfoBox {which} { examine - iexam { EnterInfoBox $which - ClearInfoBoxCoords + UpdateInfoBoxFrame $which } } } return } -proc UpdateInfoBoxBase {} { +proc UpdateInfoBoxFrame {which} { global debug if {$debug(tcl,info)} { - puts stderr "UpdateInfoBoxBase" + puts stderr "UpdateInfoBoxFrame $which" } - global current global infobox - if {$current(frame) != {}} { - $current(frame) get info infobox - } + $which get info infobox } proc UpdateInfoBox {which x y sys} { global debug if {$debug(tcl,info)} { - puts stderr "UpdateInfoBox $sys" + puts stderr "UpdateInfoBox $which $sys" } global ds9 @@ -746,7 +744,7 @@ proc LayoutInfoPanelHorz {} { set ds9(info,row,value,green) $row set ds9(info,row,value,blue) $row incr row - UpdateFrameInfoBox base + LayoutFrameInfoBox base # unit if {$view(info,bunit)} { @@ -1013,7 +1011,7 @@ proc LayoutInfoPanelVert {} { incr row set ds9(info,row,value,blue) $row incr row - UpdateFrameInfoBox base + LayoutFrameInfoBox base # units if {$view(info,bunit)} { |