18 |
button $w.ok -text OK -command "destroy $w" |
button $w.ok -text OK -command "destroy $w" |
19 |
pack $w.msg $w.frame $w.ok -side top -fill both |
pack $w.msg $w.frame $w.ok -side top -fill both |
20 |
|
|
21 |
entry $w.frame.e1 -relief sunken -scroll "$w.frame.s1 set" |
entry $w.frame.e1 -relief sunken -xscrollcommand "$w.frame.s1 set" |
22 |
scrollbar $w.frame.s1 -relief sunken -orient horiz -command \ |
scrollbar $w.frame.s1 -relief sunken -orient horiz -command \ |
23 |
"$w.frame.e1 view" |
"$w.frame.e1 xview" |
24 |
frame $w.frame.f1 |
frame $w.frame.f1 |
25 |
entry $w.frame.e2 -relief sunken -scroll "$w.frame.s2 set" |
entry $w.frame.e2 -relief sunken -xscrollcommand "$w.frame.s2 set" |
26 |
scrollbar $w.frame.s2 -relief sunken -orient horiz -command \ |
scrollbar $w.frame.s2 -relief sunken -orient horiz -command \ |
27 |
"$w.frame.e2 view" |
"$w.frame.e2 xview" |
28 |
frame $w.frame.f2 |
frame $w.frame.f2 |
29 |
entry $w.frame.e3 -relief sunken -scroll "$w.frame.s3 set" |
entry $w.frame.e3 -relief sunken -xscrollcommand "$w.frame.s3 set" |
30 |
scrollbar $w.frame.s3 -relief sunken -orient horiz -command \ |
scrollbar $w.frame.s3 -relief sunken -orient horiz -command \ |
31 |
"$w.frame.e3 view" |
"$w.frame.e3 xview" |
32 |
pack $w.frame.e1 $w.frame.s1 $w.frame.f1 $w.frame.e2 $w.frame.s2 \ |
pack $w.frame.e1 $w.frame.s1 $w.frame.f1 $w.frame.e2 $w.frame.s2 \ |
33 |
$w.frame.f2 $w.frame.e3 $w.frame.s3 -side top -fill x |
$w.frame.f2 $w.frame.e3 $w.frame.s3 -side top -fill x |
34 |
|
|