Posted to tcl by patthoyts at Tue Jun 24 10:38:58 GMT 2008view pretty
package require Tk
pack [text .t -width 20 -height 5]
.t tag configure TEST -relief solid -borderwidth 4
.t insert end "Tk [info patchlevel]\n" {} Two\n TEST
tkwait window .
exit
package require Tk
pack [text .t -width 20 -height 5]
.t tag configure TEST -relief solid -borderwidth 4
.t insert end "Tk [info patchlevel]\n" {} Two\n TEST
tkwait window .
exit