Artifact
05641714ac0a64e3504cc58891af52d754424e5c:
Attachment "fixed.tcl" to
ticket [405154ffff]
added by
dkf
2001-03-02 16:45:00.
set m [frame .main]
frame $m.button
button $m.button.quit -text "Quit" -command {exit}
set f [frame $m.view]
set c $f.canvas
scrollbar $f.scry -orient vertical -command [list $c yview]
scrollbar $f.scrx -orient horizontal -command [list $c xview]
canvas $c -width 5c -height 5c -relief sunken -borderwidth 1 \
-yscrollcommand [list $f.scry set] \
-xscrollcommand [list $f.scrx set]
grid rowconfig $f 0 -weight 1 -minsize 0
grid columnconfig $f 1 -weight 1 -minsize 0
grid $f.scry $c -sticky news
grid x $f.scrx -sticky news
pack $m.button.quit -side left -fill both
pack $m.button -fill both -side top
pack $f -side bottom -fill both -expand y
pack $m -expand y -fill both
label $c.label -text "Label"
entry $c.entry
$c create window 0 0 -window $c.label
$c create window 5c 5c -window $c.entry
$c config -scrollregion [$c bbox all]
