From fabe84079a4db93f3ca7df20b18815efe817721e Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 3 Aug 2018 15:38:52 -0400
Subject: fix cube dialog issue

---
 ds9/library/cube.tcl | 68 +++++++++++++++++++++++++++++-----------------------
 1 file changed, 38 insertions(+), 30 deletions(-)

diff --git a/ds9/library/cube.tcl b/ds9/library/cube.tcl
index 4e1c830..760d9ac 100644
--- a/ds9/library/cube.tcl
+++ b/ds9/library/cube.tcl
@@ -565,45 +565,53 @@ proc UpdateCubeDialog {} {
     }
 
     # show it
-    if {[$current(frame) has fits]} {
-	if {$naxes <= 3} {
-	    # special case, no checkbox
-	    grid columnconfigure $w.param 1 -weight 1
-	    grid columnconfigure $w.param 2 -weight 0
-	    grid x $dcube(twcs) -padx 2 -pady 2 -sticky ew
-	    switch $cube(system) {
-		image {
-		    grid x $dcube(slider,2) \
-			-padx 2 -pady 2 -sticky ew
-		}
-		default {
-		    grid $dcube(wcsentry,2) $dcube(slider,2) \
-			-padx 2 -pady 2 -sticky ew
-		}
-	    }
-	} else {
-	    grid columnconfigure $w.param 1 -weight 0
-	    grid columnconfigure $w.param 2 -weight 1
-	    grid $dcube(taxis) x $dcube(twcs) -padx 2 -pady 2 -sticky ew
-	    for {set ii 2} {$ii<$naxes} {incr ii} {
+    if {$current(frame) != {}} {
+	if {[$current(frame) has fits]} {
+	    if {$naxes <= 3} {
+		# special case, no checkbox
+		grid columnconfigure $w.param 1 -weight 1
+		grid columnconfigure $w.param 2 -weight 0
+		grid x $dcube(twcs) -padx 2 -pady 2 -sticky ew
 		switch $cube(system) {
 		    image {
-			grid $dcube(chk,$ii) x \
-			    $dcube(slider,$ii) -padx 2 -pady 2 -sticky ew
+			grid x $dcube(slider,2) \
+			    -padx 2 -pady 2 -sticky ew
 		    }
 		    default {
-			grid $dcube(chk,$ii) $dcube(wcsentry,$ii) \
-			    $dcube(slider,$ii) -padx 2 -pady 2 -sticky ew
+			grid $dcube(wcsentry,2) $dcube(slider,2) \
+			    -padx 2 -pady 2 -sticky ew
+		    }
+		}
+	    } else {
+		grid columnconfigure $w.param 1 -weight 0
+		grid columnconfigure $w.param 2 -weight 1
+		grid $dcube(taxis) x $dcube(twcs) -padx 2 -pady 2 -sticky ew
+		for {set ii 2} {$ii<$naxes} {incr ii} {
+		    switch $cube(system) {
+			image {
+			    grid $dcube(chk,$ii) x \
+				$dcube(slider,$ii) -padx 2 -pady 2 -sticky ew
+			}
+			default {
+			    grid $dcube(chk,$ii) $dcube(wcsentry,$ii) \
+				$dcube(slider,$ii) -padx 2 -pady 2 -sticky ew
+			}
 		    }
 		}
 	    }
+	} else {
+	    # nothing loaded, no checkbox
+	    grid columnconfigure $w.param 1 -weight 1
+	    grid columnconfigure $w.param 2 -weight 0
+	    grid x $dcube(twcs) -padx 2 -pady 2 -sticky ew
+	    grid x $dcube(slider,2) -padx 2 -pady 2 -sticky ew
 	}
     } else {
-	# nothing loaded, no checkbox
-	grid columnconfigure $w.param 1 -weight 1
-	grid columnconfigure $w.param 2 -weight 0
-	grid x $dcube(twcs) -padx 2 -pady 2 -sticky ew
-	grid x $dcube(slider,2) -padx 2 -pady 2 -sticky ew
+	    # no frame, no checkbox
+	    grid columnconfigure $w.param 1 -weight 1
+	    grid columnconfigure $w.param 2 -weight 0
+	    grid x $dcube(twcs) -padx 2 -pady 2 -sticky ew
+	    grid x $dcube(slider,2) -padx 2 -pady 2 -sticky ew
     }
 
     # set intervals
-- 
cgit v0.12