@@ -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 " KitCreator Build Status" +puts $fd " KitCreator Build and Test Status" puts $fd " " puts $fd " " +puts $fd "

KitCreator Build and Test Status

" +puts $fd "

The following table represents the status of the test results from the KitCreator test suite.

" puts $fd " " foreach key [lsort -dictionary [array names allkitinfo]] { puts $fd " " puts $fd " " puts $fd " " @@ -213,9 +218,10 @@ puts $fd " " } } puts $fd "
Tclkit for [pretty_print_key $key]Kit Size
" +puts $fd "

Generated on [clock format [clock seconds]]

" puts $fd " " puts $fd "" close $fd