You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
337 B
29 lines
337 B
package Milkbone::Tree; |
|
|
|
use Tk::Tree; |
|
use base qw(Tk::Tree); |
|
use Milkbone; |
|
|
|
Construct Tk::Widget "MBTree"; |
|
|
|
# we don't need no stinkin' anchors! |
|
|
|
sub anchorSet |
|
{ |
|
|
|
} |
|
|
|
sub Populate |
|
{ |
|
my ($self, $args) = @_; |
|
$self->SUPER::Populate($args); |
|
|
|
$self->bind('<ButtonPress-1>', [\&on_lclick, $self]); |
|
} |
|
|
|
sub on_lclick |
|
{ |
|
my ($self) = @_; |
|
|
|
|
|
} |