#!/usr/bin/wish

package require wylib

#set val "Howdy there pardner"
set val "Howdy there pardner.  Now is the time for all good men to come to the aid of their country."

entry .e -textv ::val -width 80
pack .e -side top -exp 1 -fill x

puts "Val:$val"
focus .e

.e history Now is the time

bind .e <Return> ".e push; .e delete 0 end"

#update
#sleep 2
#.e first -notify 0
