@@ -59,11 +59,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 unthreaded threaded zip] { + foreach tag [list min static notk nomk4 statictk unthreaded threaded zip] { if {[lsearch -exact $buildinfo $tag] != -1} { switch -- $tag { "min" { lappend desc "Minimally Built" } @@ -71,10 +71,13 @@ lappend desc "Statically Linked" } "notk" { lappend desc "Without Tk" } + "nomk4" { + lappend desc "Without Metakit4" + } "statictk" { lappend desc "Tk linked to Kit" } "threaded" { lappend desc "Threaded"