Warning: this is an htmlized version!
The original is here, and
the conversion rules are here. 
# This file:
#   http://anggtwu.net/TCL/list-edit.tcl.html
#   http://anggtwu.net/TCL/list-edit.tcl
#          (find-angg "TCL/list-edit.tcl")
# Author: Eduardo Ochs <eduardoochs@gmail.com>
#
# (defun e () (interactive) (find-angg "TCL/list-edit.tcl"))

package-require-Tk;   # See: (find-es "tcl" "package-require-Tk")
wm geometry . 240x125+1000+50

pack [listbox .lb] -fill both
pack [text .txt]   -fill both -expand 1

foreach o {{Item 1} {Item 2} {Item 3}} {
  .lb insert end $o
}
.txt replace 1.0 end "Foo\nBar"


lindex {{} {This is a test block:
* (ee-set-fullscreen nil)
* (size 150 56)
*
* (eepitch-tclsh)
* (eepitch-kill)
* (eepitch-tclsh)
  source list-edit.tcl


}} 0 ;# End of the test block



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