1 files changed, 26 insertions, 0 deletions
diff --git a/contrib/bluegnu2.0.3/lib/testSessionUtils.itcl b/contrib/bluegnu2.0.3/lib/testSessionUtils.itcl
new file mode 100644
index 0000000..4c960c4
--- /dev/null
+++ b/contrib/bluegnu2.0.3/lib/testSessionUtils.itcl
@@ -0,0 +1,26 @@
+#
+# Procedures and other definitions for application:
+#
+#             testSession
+#
+
+
+
+proc popQueue {args} {
+    global szDefaultQueue
+
+    if {[llength $args] == 1} {
+	set Queue [lindex $args 0]
+	if {[string compare [infoWhich $Queue] ""] == 0} {
+	    error "NOT a queue >$args<"
+	} else {
+	    eval [concat [infoWhich $Queue] pop]
+	}
+    } else {
+	if {[info exist szDefaultQueue]} {
+	    eval [concat $szDefaultQueue pop]
+	} else {
+	    error "NO default queue"
+	}
+    }
+}