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

pack [entry .e -textvar fname]
bind .e <Return> action
proc action {} {
  if {[string equal $::fname xterm]} {
    exec xterm &
  } else {
    exec xterm -e $::fname &
  }
}