# This file:
#   http://angg.twu.net/.tclshrc-old.html
#   http://angg.twu.net/.tclshrc-old
#           (find-angg ".tclshrc-old")
#      See: (find-angg ".tclshrc")
# Author: Eduardo Ochs <eduardoochs@gmail.com>
#
# (defun e () (interactive) (find-angg ".tclshrc-old"))

# (find-es "tcl" "tclreadline")
# (find-status "tclreadline")
# (find-vldifile "tclreadline.list")
# (find-fline "/usr/doc/tclreadline/")
# (find-fline "/usr/lib/tclreadline1.0/")
# (eeman "3tclrl tclreadline" "::tclreadline::prompt1")

# Here is an e-script that will happily break with readline:
# (find-es "tcl" "info_complete")

if {1 && $tcl_interactive} {
  if {[file exists /usr/lib/tclreadline1.0/pkgIndex.tcl]} {
    package require tclreadline
    proc ::tclreadline::prompt1 {} { return "% " }

    # uncomment the folling line, if you want
    # to change tclreadline's print behaviour
    # frequently with less typing.
    #
    # namespace import tclreadline::Print

    # store maximal this much lines in the history file
    #
    set tclreadline::historyLength 200

    # disable tclreadline's script completer
    #
    # ::tclreadline::readline customcompleter ""
    ::tclreadline::readline customcompleter ""

    # go to tclrealdine's main loop.
    #
    tclreadline::Loop
  }
}

proc withreadline {} {
  uplevel #0 {
    package require tclreadline
    tclreadline::Loop
  }
}


# «prompts»
# (find-es "tcl" "prompts")
# Temporary until I find eepitch-tclsh (2007feb18)
#
set tcl_prompt2 {puts -nonewline "> "}


# Beginning of the eev block:
# See: (find-eev "eev-rctool" "new_block_tclshrc")
#      (find-eev-update-links)
#
proc ee {} { global env; uplevel #0 source $env(EEVTMPDIR)/ee.tcl }
#
# End of the eev block.


proc package-require-Tk-with-geometry {geometry} {
  package require Tk
  wm withdraw .
  wm geometry . $geometry
  wm deiconify .
}


# Local Variables:
# coding:  utf-8-unix
# mode:    tcl
# End: