contrib/bluegnu2.0.3/lib/testSessionUtils.itcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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"
	}
    }
}