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




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


# See: (find-prepared-intro)
#      (find-eev "eev-rctool" "new_block_tclshrc")
proc ee {} { global env; uplevel #0 source $env(EEVTMPDIR)/ee.tcl }


# «package-require-Tk»  (to ".package-require-Tk")
# See: (find-es "tcl" "package-require-Tk")
#      (find-angg ".emacs" "size" "Tk")
#
proc package-require-Tk {} { package-require-Tk-with-geometry +1010+0 }
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: