1#!/bin/sh 2# -*- tcl -*- \ 3exec tclsh "$0" ${1+"$@"} 4lappend auto_path [file join [file dirname [file dirname [file dirname [info script]]]] modules] 5 6package require term::ansi::send 7package require term::ansi::ctrl::unix 8package require term::interact::menu 9 10term::ansi::send::import vt 11vt::init 12vt::clear 13 14term::interact::menu m { 15 {[ 0] uri} a 16 {[ 1] aes} b 17 {[ 2] irc} c 18 {[ 3] log} d 19 {[ 4] rc4} e 20 {[ 5] md5} f 21 {[ 6] ntp} g 22 {[ 7] rcs} h 23 {[ 8] tie} i 24 {[ 9] tar} j 25 {[10] taser} k 26} -line 2 -column 2 -height 5 \ 27 -hilitleft 1 -hilitright 2 -framed 1 28 29term::ansi::ctrl::unix::raw 30set res [m interact] 31term::ansi::ctrl::unix::cooked 32 33puts $res 34exit 35