Posted to tcl by kostix at Mon May 07 19:22:19 GMT 2007view raw

  1. pack [entry .e -textvar fname]
  2. bind .e <Return> action
  3. proc action {} {
  4. if {[string equal $::fname xterm]} {
  5. exec xterm &
  6. } else {
  7. exec xterm -e $::fname &
  8. }
  9. }