diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-05 17:44:41 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-05 17:44:41 (GMT) |
commit | 5049d4662dc3bedcf9f8cdf5aeb2df2eeacae9fe (patch) | |
tree | b3cec007cc9b6c60554c7f18fc28e9075bc87dff | |
parent | f22781f8773743906bb5ccdc4fd0b38945591cd2 (diff) | |
download | blt-5049d4662dc3bedcf9f8cdf5aeb2df2eeacae9fe.zip blt-5049d4662dc3bedcf9f8cdf5aeb2df2eeacae9fe.tar.gz blt-5049d4662dc3bedcf9f8cdf5aeb2df2eeacae9fe.tar.bz2 |
fix version number vs prefs issue
-rw-r--r-- | ds9/library/ds9.tcl | 6 | ||||
-rw-r--r-- | ds9/library/help.tcl | 2 | ||||
-rw-r--r-- | ds9/library/prefs.tcl | 2 | ||||
-rw-r--r-- | ds9/library/util.tcl | 2 |
4 files changed, 7 insertions, 5 deletions
diff --git a/ds9/library/ds9.tcl b/ds9/library/ds9.tcl index c1e9fb4..9954af1 100644 --- a/ds9/library/ds9.tcl +++ b/ds9/library/ds9.tcl @@ -12,8 +12,10 @@ proc DS9Def {} { win32 {set ds9(title) [file rootname $ds9(app)]} } - # for beta version, MUST have space - set ds9(version) {8.0.1} + # Must be major,minor + set ds9(version) {8.0} + # For display purposes only + set ds9(version,display) {8.0.1} set ds9(top) . set ds9(mb) .mb diff --git a/ds9/library/help.tcl b/ds9/library/help.tcl index fb9967a..11c95aa 100644 --- a/ds9/library/help.tcl +++ b/ds9/library/help.tcl @@ -19,7 +19,7 @@ proc HelpDef {} { set help(vo) "$ds9(root)/doc/ref/vo.html" set help(authors) "William Joye (Smithsonian Astrophysical Observatory)\nEric Mandel (Smithsonian Astrophysical Observatory)\nSteve Murray (Smithsonian Astrophysical Observatory)\n" - set help(about) "SAOImageDS9\nVersion $ds9(version)\n\nAuthors\n$help(authors)\nSAOImage DS9 development has been made possible by funding from NASA's Applied Information Systems Research Program, Chandra X-ray Science Center (CXC), and the High Energy Astrophysics Science Archive Center (HEASARC). Additional funding was provided by the JWST Mission office at Space Telescope Science Institute to improve capabilities for 3D data visualization.\n\nColormaps\nh5utils: Steven Johnson (MIT)\nViridis: Eric Firing (UW)\nCubehelix: Dave Green (Cavendish)\nGist: David Munro (LLNL)\nTopographic: Tom Patterson (US National Park Service) " + set help(about) "SAOImageDS9\nVersion $ds9(version,display)\n\nAuthors\n$help(authors)\nSAOImage DS9 development has been made possible by funding from NASA's Applied Information Systems Research Program, Chandra X-ray Science Center (CXC), and the High Energy Astrophysics Science Archive Center (HEASARC). Additional funding was provided by the JWST Mission office at Space Telescope Science Institute to improve capabilities for 3D data visualization.\n\nColormaps\nh5utils: Steven Johnson (MIT)\nViridis: Eric Firing (UW)\nCubehelix: Dave Green (Cavendish)\nGist: David Munro (LLNL)\nTopographic: Tom Patterson (US National Park Service) " } proc HelpRef {} { diff --git a/ds9/library/prefs.tcl b/ds9/library/prefs.tcl index f2dfb59..9ca01f8 100644 --- a/ds9/library/prefs.tcl +++ b/ds9/library/prefs.tcl @@ -47,7 +47,7 @@ proc LoadPrefs {} { if {$minor>0} { set minor [expr $minor-1] } else { - set major [expr $minor-1] + set major [expr $major-1] set minor 9 } } diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index b1af02c..9994119 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -1673,7 +1673,7 @@ proc ProcessSendThemeCmd {proc id param {sock {}} {fn {}}} { proc ProcessSendVersionCmd {proc id param {sock {}} {fn {}}} { global ds9 - $proc $id "$ds9(title) [lindex $ds9(version) 0]\n" + $proc $id "$ds9(title) $ds9(version,display)\n" } proc XMLQuote {val} { |