Artifact f943d31ad395b056723c9ff6ecfaf71aac03ccdc:

• File build/test/tests/07-tk.tcl — part of check-in [eaf3feab27] at 2010-09-26 04:48:55 on branch trunk — Added support for starting Xvfb before beginning tests (to test Tk)

  Added Tk test (user: rkeene, size: 326) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

# Determine if we should have Tk
set buildflags [split [lindex $argv 1] -]
foreach flag [list notk min] {
	if {[lsearch -exact $buildflags $flag] != -1} {
		exit 0
	}
}

package require Tk

label .l
pack .l

if {[winfo children .] == ".l"} {
	exit 0
}

puts "Winfo Children: [winfo children .]"

exit 1