1 files changed, 9 insertions, 0 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl
index 04073f2..6ae250f 100644
--- a/ds9/library/util.tcl
+++ b/ds9/library/util.tcl
@@ -357,6 +357,15 @@ proc ProcessSendCmdCurrent2 {key cmd cmd2} {
     }
 }
 
+proc ProcessSendCmdCurrentYesNo {key cmd} {
+    global parse
+    global current
+
+    if {$current($key) != {}} {
+	$parse(proc) $parse(id) "[ToYesNo [$current($key) $cmd]]"
+    }
+}
+
 proc ProcessSendCmdSend {ext cmd} {
     global parse
     global current