Posted to tcl by patthoyts at Tue Jun 24 10:38:58 GMT 2008view raw

  1. package require Tk
  2. pack [text .t -width 20 -height 5]
  3. .t tag configure TEST -relief solid -borderwidth 4
  4. .t insert end "Tk [info patchlevel]\n" {} Two\n TEST
  5. tkwait window .
  6. exit