#
# My elsbeth config file
#


# For code that should run with each new window that pops up, we just add some
# extra code to the elsbeth_new_text procedure.
if {![catch {info body elsbeth_new_text} code]} {
proc elsbeth_new_text {tl} [concat $code { ; 

# Don't display the pathname with each file...that just makes things too long
# in the frame widget below the text.
  $tl.t_fm.fpl invoke

  if {[string match "*/|*" $TH(File,$tl.t)]} {
# I find that command output is better viewed with a horizontally scrollable
# text widget...there's nothing special about 80-column output...but that's
# just my preference :>
    $tl.t configure -width 40
    th_toggle_scrollbar $tl.t x bottom
    $tl.t_fm.fnl invoke
  }

# Shift the window to the left edge of the screen. (I do this because often the
# window comes up on my screen partially cut off at the right.)
#  if {[winfo class $tl] == "Toplevel"} {th_geometry_change $tl 2 0}
}]}


# Add the 'ps' command to the list of known commands.
global TH ; lappend TH(Completions,File,Commands) "ps -auxww"
