Re: scrollbar question
- From: "madman" <overlog@xxxxxxxxx>
- Date: 29 Mar 2007 11:02:03 -0700
Gerald and Uwe, thanks a lot for the help. The text widget was not the
way to go. As suggested I used the ScrolledWindow widget. Below is the
code:
package require BWidget
toplevel .manBox
wm geometry .manBox +300+5
ScrolledWindow .manBox.sw
pack .manBox.sw -fill both -expand true
ScrollableFrame .manBox.sw.grid
..manBox.sw setwidget .manBox.sw.grid
set c1_result 1.0
set c2_result 2.0
set c3_result 3.0
set c1 [label .manBox.sw.grid.frame.c1_0 -text "Port #"]
set c2 [label .manBox.sw.grid.frame.c2_0 -text "Diff #"]
set c3 [label .manBox.sw.grid.frame.c3_0 -text "Port E"]
grid $c1 -row 0 -column 1
grid $c2 -row 0 -column 2
grid $c3 -row 0 -column 3
for {set i 1} {$i <= 25} {incr i} {
set c1 [label .manBox.sw.grid.frame.c1_$i -textvariable c1_result]
set c2 [label .manBox.sw.grid.frame.c2_$i -textvariable c2_result]
set c3 [label .manBox.sw.grid.frame.c3_$i -textvariable c3_result]
grid $c1 -row $i -column 1
grid $c2 -row $i -column 2
grid $c3 -row $i -column 3
}
.
- References:
- scrollbar question
- From: madman
- scrollbar question
- Prev by Date: Re: OPPORTUNITY FOR EXPERT Tcl/Tk DEVELOPER
- Next by Date: Re: reusing "code entities" without oop
- Previous by thread: Re: scrollbar question
- Next by thread: OPPORTUNITY FOR EXPERT Tcl/Tk DEVELOPER
- Index(es):