diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-11-28 19:18:04 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-11-28 19:18:04 (GMT) |
commit | fc2b70087ac1940778bf65d83ba459f028dc3167 (patch) | |
tree | a162df2c8ebf27f6bbfd7c01ea9790a50f2c3e56 /ds9/library/command.tcl | |
parent | 08bdd35723fdae895d4a816ea2cc60662e02fe15 (diff) | |
download | blt-fc2b70087ac1940778bf65d83ba459f028dc3167.zip blt-fc2b70087ac1940778bf65d83ba459f028dc3167.tar.gz blt-fc2b70087ac1940778bf65d83ba459f028dc3167.tar.bz2 |
backward compatible -title command
Diffstat (limited to 'ds9/library/command.tcl')
-rw-r--r-- | ds9/library/command.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ds9/library/command.tcl b/ds9/library/command.tcl index 2494049..ef28c4f 100644 --- a/ds9/library/command.tcl +++ b/ds9/library/command.tcl @@ -34,7 +34,7 @@ proc ProcessCommandLineFirst {} { -title { incr i set ds9(title) [lindex $argv $i] - set t "SAOImage[string toupper $ds9(title)]" + set t "SAOImage $ds9(title)" wm title $ds9(top) "$t" wm iconname $ds9(top) "$t" } |