blob: a8f881d28989ac2f9b92accb2c299b03bda018a1 (
plain)
1
2
3
4
5
6
7
8
|
#!/usr/bin/env tclsh
## -*- tcl -*-
lappend auto_path [file join [file dirname [file dirname [file dirname [info script]]]] modules]
package require term::ansi::send
term::ansi::send::import vt
vt::title [join $argv]
exit
|