1 files changed, 4 insertions, 8 deletions
diff --git a/ds9/library/grid.tcl b/ds9/library/grid.tcl
index 00eb9cd..5ba0ca5 100644
--- a/ds9/library/grid.tcl
+++ b/ds9/library/grid.tcl
@@ -1415,17 +1415,13 @@ proc ProcessGridCmd {varname iname} {
 }
 }
 
-proc GridCmdSet {which value} {
+proc GridCmdSet {which value {cmd {}}} {
     global grid
 
     set grid($which) $value
-}
-
-proc GridCmdCurrent {which value} {
-    global grid
-
-    set grid($which) $value
-    GridUpdateCurrent
+    if {$cmd != {}} {
+	eval $cmd
+    }
 }
 
 proc GridCmdFontStyle {which value} {