diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-07-06 15:51:47 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-07-06 15:51:47 (GMT) |
commit | 9a01b0d78f888a16206af097666ce42564e52096 (patch) | |
tree | 857286a162f9c7e95518b4b16c4662b2c78176c3 /ds9/library | |
parent | f1631ce68254486ef6df336441649a19a79cef51 (diff) | |
download | blt-9a01b0d78f888a16206af097666ce42564e52096.zip blt-9a01b0d78f888a16206af097666ce42564e52096.tar.gz blt-9a01b0d78f888a16206af097666ce42564e52096.tar.bz2 |
fix windows XPA issues
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/ds9.tcl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ds9/library/ds9.tcl b/ds9/library/ds9.tcl index 195f8c0..f98fe51 100644 --- a/ds9/library/ds9.tcl +++ b/ds9/library/ds9.tcl @@ -6,7 +6,12 @@ proc DS9Def {} { global ds9 global pds9 - set ds9(title) "$ds9(app)" + switch $ds9(wm) { + x11 - + aqua {set ds9(title) $ds9(app)} + win32 {set ds9(title) [file rootname $ds9(app)]} + } + # for beta version, MUST have space set ds9(version) {7.6 b4} @@ -397,6 +402,8 @@ switch $tcl_platform(platform) { if { [info exists env(XPA_VERBOSITY)] == 0 } { set env(XPA_VERBOSITY) 0 } +# lower XPA connection timeout +set env(XPA_CONNECT_TIMEOUT) 3 # set filter ptype to contained (default is process) set env(FILTER_PTYPE) c # set filter error proc so it will not kill ds9 |