File sample.tclshrc artifact 79de25f768 part of check-in 4fd859be75

#!/bin/sh
# FILE: "/diska/home/joze/src/tclreadline/sample.tclshrc"
# LAST MODIFICATION: "Fri Aug 20 15:39:58 1999 (joze)"
# (C) 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# vim:set ft=tcl: \
exec tclsh "$0" "$@"


if {$tcl_interactive} {
    package require tclreadline
    namespace import ::tclreadline::Print
#    ::tclreadline::Print no
    ::tclreadline::Loop
}