Fwd: (fwd) Re: (fwd) binding to a derived canvas widget
Steve Lidie <[email protected]>
| Newsgroups | gmane.comp.lang.perl.tk |
|---|---|
| Message-ID | <[email protected]> |
> From: Ch Lamprecht <[email protected]> > Newsgroups: comp.lang.perl.tk > Subject: Re: (fwd) binding to a derived canvas widget > Date: Fri, 31 Mar 2006 10:39:05 +0200 > > > Steve Lidie schrieb: >> To pique everyone's interest, I'll note at the outset that the below >> is a very, very, interesting problem. I have a solution, but I have >> no time until this weekend to give a proper answer. In short, we'll >> use bindtags(), maybe an overridden bind() method, to solve the >> problem .... > > Hi, > > did you think of something like this? > > sub ClassInit > { > my ($class, $mw) = @_; > $class->SUPER::ClassInit($mw); > $mw->bind($class, "<1>" =>'pick_one' ); > return $class; > } No, here the bind is to the Tk::MainWindow widget, the bind really should be on the Tk::CanvasDirTree widget. > sub bind{ > my $self = shift; > $self->CanvasBind(@_); > } Bingo! That is part of the answer, and explaining that will take some time. But fixing the point above, plus general comments on the CanvasDirTree mega-widget, means I have several co-mingled items to talk about :) I hope to get all that this evening ... Steve > > Christoph > -- > > perl -e "print scalar reverse q/[email protected]/" > -- end of forwarded message -- -++**==--++**==--++**==--++**==--++**==--++**==--++**== This message was posted through the Stanford campus mailing list server. If you wish to unsubscribe from this mailing list, send the message body of "unsubscribe ptk" to [email protected]