1#!/bin/sh 2# -*- tcl -*- \ 3exec tclsh "$0" ${1+"$@"} 4lappend auto_path [file join [file dirname [file dirname [file dirname [info script]]]] modules] 5package require term::ansi::send 6term::ansi::send::import vt 7 8array set as { 9 {} {Default } 10 bold {Bold } 11 underline {Underline} 12 revers {Revers } 13} 14 15vt::init 16vt::clear 17vt::wr \n 18vt::wr { } 19vt::sda_bgcyan 20vt::wr {[ Attributes ]} 21vt::sda_reset 22vt::wr \n\n 23 24vt::wr " \016lqqqqqqqqqqqk\017\n" 25 26foreach a {{} underline bold revers} { 27 28 vt::sda_fgdefault 29 vt::wr { } 30 vt::wr "\016x\017" 31 if {$a != {}} vt::sda_$a 32 vt::wr " $as($a) " 33 vt::sda_reset 34 vt::wr "\016x\017\n" 35} 36 37vt::wr " \016mqqqqqqqqqqqj\017\n\n" 38 39exit 40