need help with Tk's bind/tags

2009-07-31 Thread Daniel Burgaud
Hi, I have: foreach my $i (a list from a database server) { $TK{'item'}->tag( 'bind', "I$i", '<1>' => sub { &SelectItem($i) } ); } Is there a function or array that will lists all the binds/tags for a particular widget? Though the list is available by querying the database server ag

Need help removing blinking cursor on a TK Scrolled

2009-07-31 Thread Daniel Burgaud
Hi I have a Scrolled ROText: $scrolled = $mw->Scrolled( 'ROText', -relief => 'flat', -borderwidth => 1, -scrollbars => 'e', -cursor => 'top_left_arrow', -w

RE: problem with Tk Frame not filling the whole frame.

2009-07-31 Thread Jack
Again - sorry for the top post.. I'm not completely sure of what you want, but I think you want some sort of "bar" down the left side. You have to turn the expand option to off for that to "not" allocate anymore space in the x direction on a resize. Otherwise the packer will split it 50/50 with th

problem with Tk Frame not filling the whole frame.

2009-07-31 Thread Daniel Burgaud
Hi, I have a Frame and within this Frame, I have 2 more Frames: $mainFrame = $mw->Frame()->pack(-expand=>1, fill = 'both'); $frameLeft = $mainFrame->Frame( -borderwidth => 1, width => 50, )->pack( -side => 'left', -expand => 1, -fill => 'y'); $frameRight = $mainFrame->Frame( -borderwidth => 1,