head	1.1;
access;
symbols
	tcllib-1-13:1.1
	tcllib-1-12:1.1
	tklib-0-5:1.1
	tcllib-1-11-1:1.1
	tcllib-1-11:1.1
	tcllib-1-10:1.1
	tcllib-1-9:1.1;
locks; strict;
comment	@# @;


1.1
date	2006.07.25.03.47.09;	author andreas_kupries;	state Exp;
branches;
next	;


desc
@@


1.1
log
@
	* bind.tcl: Added methods 'default' and 'unlisten', changed action
	  callbacks to take the invoking character sequence.
	* term_bind.man: Documented above changes.

	* imenu.tcl:  New packages, terminal widgets, menu and paging text
	* ipager.tcl: display.

	* imenu.man: Documentation for the new packages above.
	* ipager.man:

	* ../../examples/term/imenu: Examples for the new packages.
	* ../../examples/term/ipager:
@
text
@#!/bin/sh
# -*- tcl -*- \
exec tclsh "$0" ${1+"$@@"}
lappend auto_path [file join [file dirname [file dirname [file dirname [info script]]]] modules]

#puts [join $auto_path \n]
#exit

set f [lindex $argv 0]
set c [open $f r]
set t [read $c]
close $c

package require term::ansi::send
package require term::ansi::ctrl::unix
package require term::interact::pager

term::ansi::send::import vt
vt::init
vt::clear

term::interact::pager p $t -line 2 -column 2 -height 30

term::ansi::ctrl::unix::raw
p interact
term::ansi::ctrl::unix::cooked

exit
@
