#!/opt/GCLutils/tcl/bin/wish -f # # Script: xterminator # # Description: Starts remote xterm on given host, maintaining last five # as history list # Requires rcmd script or similar # Modified from example in Ousterhaut book. # # Author: Ade Rixon, ar@rsi.co.uk # set id 0 entry .entry -width 20 -relief sunken -textvariable host pack .entry -padx 1m -pady 1m bind .entry { set id [expr $id+1] if {$id > 5} { destroy .b[expr $id - 5] } button .b$id -command "exec rcmd $host xterm -title $host -name $host" \ -text $host pack .b$id -fill x .b$id invoke .entry delete 0 end }