#!/usr/bin/wish
package require wylib

wm geometry . 400x50

set v1 "Hello there, this is a test"

entry .e1 -textv v1
frame .b -bd 0
button .b.b1 -text Quit -command exit
button .b.mod -text Write -command "set ::v1 Howdy"

pack .b -side bottom -fill x 
pack .e1 -side top -fill both -exp 1
pack .b.b1 -side left -fill x -exp 1
pack .b.mod -side left -fill x

bind .e1 <<Modified>> {puts "modified: %W [%W modified]"}
#after 2000 {puts HI; set ::v1 HOWDY}

focus .e1

bind .e1 <Button-3> "edwin::edwin .test_edwin -dest .e1"
