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) = @_;


}