On Mon, 11 Dec 2000, Mark Swarbrick wrote:
> Yes, I am using the place command. I'm building this with Visual Tcl and the
> place command is what it is using, so I guess what you say doesn't apply...?
> So I'm back where I started - I've got a nice gui all built but tabbing to the
> entry boxes is really messed up. Surely there is an easy way to change this.
> Sure hope someone can help me.
>
> ...Mark
>
> On Sat, 02 Dec 2000, Rick Macdonald wrote:
> > Ah, if you are using the "place" geometry manager in vTcl, probably none
> > of the vTcl instructions above apply...
Well, I've never used the place command, so I don't know how to fix it
within vTcl. Hopefully someone who does is listening!
If you're really desperate, here is a function from TkGnats that, given a
list of widgets, sets the tab traversal order to the order of the list:
proc set_text_traversal {tlist} {
set ll [llength $tlist]
if {$ll < 2} {
return
}
for {set x 1} {$x<$ll} {incr x} {
set w [lindex $tlist $x]
set prevw [lindex $tlist [expr $x-1]]
bind $prevw <Tab> "focus $w
break"
bind $prevw <Control-n> "focus $w"
}
bind [lindex $tlist [expr $ll-1]] <Tab> "focus [lindex $tlist 0]
break"
bind [lindex $tlist [expr $ll-1]] <Control-n> "focus [lindex $tlist
0]"
bind [lindex $tlist 0] <Shift-Tab> "focus [lindex $tlist [expr $ll-1]]
break"
bind [lindex $tlist 0] <Control-p> "focus [lindex $tlist [expr
$ll-1]]"
for {set x 0} {$x < [expr $ll-1]} {incr x} {
set w [lindex $tlist $x]
set nextw [lindex $tlist [expr $x+1]]
bind $nextw <Shift-Tab> "focus $w
break"
bind $nextw <Control-p> "focus $w"
}
}
...RickM...
_______________________________________________
vtcl-user mailing list
[EMAIL PROTECTED]
http://lists.sourceforge.net/mailman/listinfo/vtcl-user
