Tk-ListBrowser

 view release on metacpan or  search on metacpan

lib/Tk/ListBrowser.pm  view on Meta::CPAN

Tk::ListBrowser - Tk::IconList inspired chameleon list box.

=cut

use strict;
use warnings;
use Carp;
use vars qw($VERSION);
$VERSION = '0.09';

use base qw(Tk::Derived Tk::Frame);

Construct Tk::Widget 'ListBrowser';

use Math::Round;
use Tk;
require Tk::PopList;
require Tk::ListBrowser::Entry;
require Tk::ListBrowser::FilterEntry;
require Tk::ListBrowser::HashList;
require Tk::ListBrowser::Item;

lib/Tk/ListBrowser/FilterEntry.pm  view on Meta::CPAN

package Tk::ListBrowser::FilterEntry;

use strict;
use warnings;
use vars qw ($VERSION);
$VERSION =  0.09;

use base qw(Tk::Derived Tk::Entry);

Construct Tk::Widget 'FilterEntry';
use Tk;

sub Populate {
	my ($self,$args) = @_;
	$self->SUPER::Populate($args);
	$self->{FILTERINIT} = 1;
	$self->bind('<Button-1>', [$self, 'Button1']);
	$self->bind('<KeyRelease>', [$self, 'KeyRelease', Ev('A')]);

lib/Tk/ListBrowser/LBCanvas.pm  view on Meta::CPAN

package Tk::ListBrowser::LBCanvas;

use warnings;
use strict;
use vars qw ($VERSION);
use Carp;

$VERSION = 0.04;

use base qw(Tk::Derived Tk::Canvas);

Construct Tk::Widget 'LBCanvas';

sub Populate {
	my ($self,$args) = @_;
	$self->SUPER::Populate($args);
	$self->ConfigSpecs(
		-keycall => ['CALLBACK'],
		DEFAULT => [ $self ],
	);

lib/Tk/ListBrowser/LBHeader.pm  view on Meta::CPAN

package Tk::ListBrowser::LBHeader;

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = 0.09;

use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'LBHeader';

use Tk;

my $down_arrow = '#define down_width 10
#define down_height 10
static unsigned char down_bits[] = {
   0x00, 0x00, 0x00, 0x00, 0xff, 0x03, 0xfe, 0x01, 0xfc, 0x00, 0x78, 0x00,
   0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 };
';