Posted to tcl by mjanssen at Fri Dec 08 22:19:28 GMT 2006view pretty

package require Tk
   
 # this widget is containing or normal text
 text .t
 pack .t

 # this widget will contain the result, but is not visible yet
 text .r 
.t insert 1.0 test
  
proc display_result {} {
  pack forget .t
  pack .r
  .r delete 1.0 end
  .r insert 1.0 {this is the result}
  bind .r <KeyPress> {pack forget .r ; pack .t ; break}
}
  
display_result