@@ -35,11 +35,11 @@ return "Tcl $version for [string totitle $os] on $cpu" } proc pretty_print_buildinfo {buildinfo} { set desc [list] - foreach tag [list min static notk statictk threaded zip] { + foreach tag [list min static notk statictk unthreaded threaded zip] { if {[lsearch -exact $buildinfo $tag] != -1} { switch -- $tag { "min" { lappend desc "Minimally Built" } @@ -53,10 +53,13 @@ lappend desc "Tk linked to Kit" } "threaded" { lappend desc "Threaded" } + "unthreaded" { + lappend desc "Without Threads" + } "zip" { lappend desc "Kit Filesystem in Zip" } } } @@ -156,13 +159,15 @@ lappend allkitinfo($key) [array get kitinfo] } puts $fd "" puts $fd "
" -puts $fd "The following table represents the status of the test results from the KitCreator test suite.
" puts $fd "Tclkit for [pretty_print_key $key] | " puts $fd "Kit Size | " @@ -213,9 +218,10 @@ puts $fd "
---|
Generated on [clock format [clock seconds]]
" puts $fd " " puts $fd "" close $fd