diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 22:03:52 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 22:03:52 (GMT) |
| commit | 610507887cbc040d7a6679171f2410fb8ad58e71 (patch) | |
| tree | ac2fe5bc93e264b91b6f77f838f4846f27e490ee /ds9/library/header.tcl | |
| parent | b8395e8e32cccb75565a170160772857087901de (diff) | |
| download | blt-610507887cbc040d7a6679171f2410fb8ad58e71.zip blt-610507887cbc040d7a6679171f2410fb8ad58e71.tar.gz blt-610507887cbc040d7a6679171f2410fb8ad58e71.tar.bz2 | |
fix header command
Diffstat (limited to 'ds9/library/header.tcl')
| -rw-r--r-- | ds9/library/header.tcl | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/ds9/library/header.tcl b/ds9/library/header.tcl index 110f912..ab15a77 100644 --- a/ds9/library/header.tcl +++ b/ds9/library/header.tcl @@ -64,22 +64,27 @@ proc DisplayHeaderMenu {} { } if {$slb(count) <= 1} { - DisplayHeader $current(frame) 1 $fn + DisplayHeader 1 $fn } else { if {[SLBDialog slb {Select Header} 40]} { - DisplayHeader $current(frame) $slb(value) $slb(item) + DisplayHeader $slb(value) $slb(item) } } } } -proc DisplayHeader {frame id title} { +proc DisplayHeader {id title} { global current - set varname "hd-$frame-$id" + set frame $current(frame) + set varname "hd-$current(frame)-$id" global $varname - SimpleTextDialog $varname $title 80 40 insert top \ - [$current(frame) get fits header $id] + + set hh {} + if {[$frame has fits]} { + set hh [$frame get fits header $id] + } + SimpleTextDialog $varname $title 80 40 insert top $hh # create a special text tag for keywords upvar #0 $varname var @@ -152,7 +157,7 @@ proc ProcessHeaderCmd {varname iname} { proc DisplayHeaderCmd {id} { global current - DisplayHeader $current(frame) $id [$current(frame) get fits file name $id] + DisplayHeader $id [$current(frame) get fits file name $id] } proc CloseHeaderCmd {id} { |