# Version von mkCmd/mkCmd_wait mit neuem xterm-Fenster f. Dauer des Prozesses
#
# Copyright (C) 2000  G. Lamprecht, W. Lotz, R. Weibezahn; IWD, Bremen University

proc mkCmd_wait {w c a}  {# same as mkCmd, but waits for program termination!
  global vv wait_mkCmd xtem_path
  TestPut 4 "<$w><$c><$a>"

  if {[catch "which $c"]>0} {# program not found
    writescr $w "\n\n$vv(xtq01)\n*** $vv(ut56): \"$c\"\n$vv(xtq01)\n"; mybell 4; return
  }

  eval set res [catch "exec xterm -e $xtem_path/xtem_prog $c $a" message]

  return
}

proc killprocess {pid}  {}
