#!/usr/local/cmb/wishx -f
#set id 0
button .done -text "All Done" -command exit
entry .ent1 -width 30 -relief sunken -textvariable cmd
pack .done .ent1 -padx 1m -pady 1m 
set id 0
bind .ent1 <Return> {
   set id [expr $id + 1]
   if {$id > 7} {
      destroy .b[expr $id - 7]
   }
   button .b$id -command "exec <@stdin >@stdout $cmd" \
      -text $cmd
   pack .b$id -fill x
   .b$id invoke
   .ent1 delete 0 end
}