Making a Scrollable Widget
in [TCL]
|
Prev: TclOO and inheritance - example from the wiki does not work anymore ...
Next: Tk apearance with Mac OSX ?
From: Keith on 15 Feb 2010 10:05 I have never been able to figure out how to make a scrollable widget except for text widgets. I would like to make these widgets scrollable: foreach e {1 2 3 4 5 6 7 8 } { label $t.text.a$e -text "$SSP(index,$e)" -fg $fg(1) -font $fn(2) -width 20 -anchor w -justify left -bg white tk_optionMenu $t.text.b$e SSP(dly,$e) 0 1 2 5 10 30 -2 -5 -10 checkbutton $t.text.c$e -variable SSP(att,$e) -onvalue 1 -offvalue 0 -anchor center tk_optionMenu $t.text.d$e SSP(hld,$e) 0 1 2 3 4 5 6 7 8 9 10 15 20 25 30 50 100 150 200 255 checkbutton $t.text.e$e -variable SSP(lout,$e) -onvalue 1 -offvalue 0 -anchor center entry $t.text.f$e -width 6 -textvariable SSP(qk,$e) -bg white -font $fn(2) -bd 4 tk_optionMenu $t.text.g$e SSP(sk,$e) 0 1 2 3 4 5 6 7 8 9 . entry $t.text.h$e -width 6 -textvariable SSP(num,$e) -bg white -font $fn(2) -bd 4 } foreach e {a b c d e f g h } { pack $t.text.$e } Is there a good example on the web? Does I use a pane widget, canvas or text widget? Keith "Lost in the Widgets" -- Best Regards, Keith http://home.comcast.net/~kilowattradio/ Tired of Google Groups? http://home.comcast.net/~kilowattradio/usenet.html
From: Jeremy on 15 Feb 2010 10:33 Perhaps you want to use BWidgets ScrollableWindow or ScrollablePane widget. http://wiki.tcl.tk/13702 There is also a patch in the Tk repo to make the normal Grid have options to scroll, which would be pretty nice, but you have to patch your version of Tk to make that work... so, until Tk has something native, you're probably stuck using something like the BWidget class mentioned above. Jeremy
From: APN on 15 Feb 2010 10:36
On Feb 15, 8:05 pm, Keith <kilowattra...(a)use-reply-to.invalid> wrote: > I have never been able to figure out how to make a scrollable widget except for text widgets. > > I would like to make these widgets scrollable: > > foreach e {1 2 3 4 5 6 7 8 } { > label $t.text.a$e -text "$SSP(index,$e)" -fg $fg(1) -font $fn(2) -width 20 -anchor w -justify left -bg white > tk_optionMenu $t.text.b$e SSP(dly,$e) 0 1 2 5 10 30 -2 -5 -10 > checkbutton $t.text.c$e -variable SSP(att,$e) -onvalue 1 -offvalue 0 -anchor center > tk_optionMenu $t.text.d$e SSP(hld,$e) 0 1 2 3 4 5 6 7 8 9 10 15 20 25 30 50 100 150 200 255 > checkbutton $t.text.e$e -variable SSP(lout,$e) -onvalue 1 -offvalue 0 -anchor center > entry $t.text.f$e -width 6 -textvariable SSP(qk,$e) -bg white -font $fn(2) -bd 4 > tk_optionMenu $t.text.g$e SSP(sk,$e) 0 1 2 3 4 5 6 7 8 9 . > entry $t.text.h$e -width 6 -textvariable SSP(num,$e) -bg white -font $fn(2) -bd 4} > > foreach e {a b c d e f g h } { > pack $t.text.$e > > } > > Is there a good example on the web? Does I use a pane widget, canvas or text widget? > > Keith "Lost in the Widgets" > -- > Best Regards, Keithhttp://home.comcast.net/~kilowattradio/ > Tired of Google Groups?http://home.comcast.net/~kilowattradio/usenet.html tklib has the autoscroll widget you can use for this. /Ashok |