#!/usr/bin/wish
#Test wyattized widgets

package require wylib

#set m [menubar [set w [init_win {}]].m]
        
button .b1 -text {A Button} -help {This is a test button} -command {puts "Test button"}
button .b2 -text {Another Button} -help {This is a test button too} -command {puts "Test button too"}
button .b3 -text {Repeating Button} -hel {This is a repeating button} -minimu 30 -rep 1 -command {puts "Repeat"}
pack .b1 .b2 .b3 -fill both -exp 1
bind .b1 <3> "puts {help:[.b1 cget -help]}"
bind .b2 <3> "puts {help:[.b2 cget -help]}"

entry .e1 -init {A value} -help {A test entry}
pack .e1 -fill both -exp 1

scale .s1 -orient h -help {A test scale}
pack .s1 -side top -exp 1 -fill x

#scrollbar .s2 -orient h 	;#-help {A test scale}
#pack .s2 -side top -exp 1 -fill x

text .t1 -width 30 -height 10
.t1 insert insert "Now is the time for\nall good men to come\nto the aid of their\ncountry."
pack .t1 -side top -exp 1 -fill both
focus .t1
