proc showText {win heading geom tlist} {

	global  bitmapdir


# make sure we do NOT create windows whose names start with upcase
# letters (illegal in Tk 3.2)

  set win_title $win
  regsub -all {_} $win_title " " win_title
  set win [translit A-Z a-z $win]

  catch {destroy $win}
  toplevel $win
  wm title $win [string range $win_title 1 end]
  wm iconbitmap $win @$bitmapdir/picklist.xbm

  wm geom $win ${geom}+200+200
  set w [lindex [split $geom x] 0]
  set h [lindex [split $geom x] 1]
  wm minsize $win $w $h

  frame $win.l -background antiquewhite
  frame $win.f -background antiquewhite
  frame $win.b -relief sunken -borderwidth 1 -background antiquewhite

  set font [getFont $win mediumhelb]
  label $win.l.l -text $heading -anchor center -font $font -background antiquewhite
  scrollbar $win.f.vert -orient vertical -command "$win.f.text yview" 	-relief sunken -background ivory -troughcolor bisque -activebackground mistyrose
  scrollbar $win.horz -orient horizontal -command "$win.f.text xview" 	-relief sunken -background ivory -troughcolor bisque -activebackground mistyrose
  set font [getFont $win mediumcou]
  set sfont [getFont $win courier]

  listbox $win.f.text -yscroll "$win.f.vert set" -xscroll "$win.horz set"   -relief sunken -font $font -background ivory
  
  foreach lem $tlist {
    $win.f.text insert end "\n$lem"
  }

  button $win.b.ok -text "Done" -relief raised -borderwidth 2  -command "destroy $win" -padx 0 -pady 0 -background white -foreground red -activebackground black -activeforeground yellow
  button $win.b.prt -text "Print" -relief raised -border 2  -command "printBox $win.f.text" -padx 0 -pady 0 -background lavender -activebackground lavender -activeforeground magenta2
  button $win.b.shrink -text "Smaller" -relief raised -border 2  -command "$win.f.text configure -font $sfont; $win.b.shrink configure -state disabled" -padx 0 -pady 0 -background lavender -activebackground lavender -activeforeground magenta2

  button $win.b.mail -text "Mail to:" -relief raised -border 2  -command "mailText $win.f.text \[$win.b.recip get\]" -padx 0 -pady 0 -background lavender -activebackground lavender -activeforeground magenta2
  entry $win.b.recip -relief sunken -border 2 -width 20 -background ivory

  button $win.b.save -text "Save as:" -relief raised -border 2  -command "saveText $win.f.text \[$win.b.filen get\]" -padx 0 -pady 0 -background lavender -activebackground lavender -activeforeground magenta2
  entry $win.b.filen -relief sunken -border 2 -width 20 -background ivory

  pack $win.l -side top -fill x
  pack $win.f -side top -fill both -expand true
  pack $win.horz -side top -fill x
  pack $win.b -side bottom -fill x
 

  pack $win.l.l    -side top -fill x -anchor nw
  pack $win.f.vert -side right -fill both  
  pack $win.f.text -side left -fill both -expand true

  pack $win.b.shrink -side left -ipadx 20 -ipady 2
  pack $win.b.prt -side left -ipadx 20 -ipady 2
  pack $win.b.mail -side left -ipadx 30 -ipady 2
  pack $win.b.recip -side left -ipady 2
  pack $win.b.save -side left -ipadx 20 -ipady 2
  pack $win.b.filen -side left -ipady 2
  pack $win.b.ok -side right -ipadx 20 -ipady 2

}
