From c037b498a3c2269f52d6d480d849bd840d7ed637 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 2 Jun 2017 12:35:17 -0400
Subject: fix command line cube play

---
 ds9/doc/release/r7.6.html | 1 +
 ds9/library/cube.tcl      | 6 +++++-
 ds9/library/source.tcl    | 4 ++--
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ds9/doc/release/r7.6.html b/ds9/doc/release/r7.6.html
index 45f76cc..6552eb8 100644
--- a/ds9/doc/release/r7.6.html
+++ b/ds9/doc/release/r7.6.html
@@ -96,6 +96,7 @@
         <li><tt>05.26.2017 CONTOURS: Fixed a problem with load/copy/paste contours.</tt></li>
         <li><tt><b>05.29.2017 RELEASE version 7.6b2</b></tt></li>
         <li><tt>06.01.2017 FITS: Fixed a problem with Healpix RING formats.</tt></li>
+        <li><tt>06.02.2017 CUBE: Fixed a problem with command line -cube play command.</tt></li>
         <li><tt><b>xx.xx.2017 RELEASE version 7.6b3</b></tt></li>
       </ol>
     </ol>
diff --git a/ds9/library/cube.tcl b/ds9/library/cube.tcl
index 0207212..9298a82 100644
--- a/ds9/library/cube.tcl
+++ b/ds9/library/cube.tcl
@@ -464,7 +464,11 @@ proc UpdateCubeDialog {} {
 	puts stderr "UpdateCubeDialog"
     }
 
-    CubeStop
+    # don't stop during init process
+    # user may have started via command line
+    if {!$ds9(init)} {
+	CubeStop
+    }
 
     if {![winfo exists $icube(top)]} {
 	return
diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl
index 0a5b7c3..13be58c 100644
--- a/ds9/library/source.tcl
+++ b/ds9/library/source.tcl
@@ -187,8 +187,8 @@ source $ds9(root)/library/wcs.tcl
 source $ds9(root)/library/xmfbox.tcl
 source $ds9(root)/library/xmlrpc.tcl
 source $ds9(root)/library/xpa.tcl
-source $ds9(root)/library/lex.tcl
-source $ds9(root)/library/parser.tcl
+#source $ds9(root)/library/lex.tcl
+#source $ds9(root)/library/parser.tcl
 
 switch [tk windowingsystem] {
     x11 {}
-- 
cgit v0.12