1 files changed, 19 insertions, 0 deletions
diff --git a/tcllib/examples/term/menu b/tcllib/examples/term/menu
new file mode 100755
index 0000000..5e01187
--- /dev/null
+++ b/tcllib/examples/term/menu
@@ -0,0 +1,19 @@
+#!/usr/bin/env tclsh
+## -*- tcl -*-
+
+lappend auto_path [file join [file dirname [file dirname [file dirname [info script]]]] modules]
+package require term::ansi::send
+package require term::ansi::code::macros
+term::ansi::send::import         vt
+term::ansi::code::macros::import mt
+
+vt::init
+vt::clear
+
+puts \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
+
+vt::showat  3  5 [mt::menu {Exit E Up U Down D}]
+vt::showat 10 10 [mt::menu {Exit E Up < Down > Previous P Next N}]
+
+puts ""
+exit