view release on metacpan or  search on metacpan

lib/Tk/FileBrowser/Header.pm  view on Meta::CPAN

package Tk::FileBrowser::Header;

=head1 NAME

Tk::FileBrowser::Header - Resizeable header for any HList like widget

=cut

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

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

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 };
';

my $empty_icon = '#define empty_width 10
#define empty_height 10
static unsigned char empty_bits[] = {
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 };
';

my $up_arrow = '#define up_width 10
#define up_height 10
static unsigned char up_bits[] = {
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x00, 0x78, 0x00, 0xfc, 0x00,
   0xfe, 0x01, 0xff, 0x03, 0x00, 0x00, 0x00, 0x00 };
';


=head1 SYNOPSIS

 require Tk::HList;
 require Tk::FileBrowser::Header;
 my $hlist = $window->HList(
 	-columns => 1,
 	-header => 1
 )->pack;
 my $h = $hlist->Header(
    -column => 0,
    -text => 'Header',
 );
 $hlist->headerCreate(0, -itemtype => 'window', -widget => $h);

=head1 DESCRIPTION

A resizeable header suitable for any HList like widget. Also a sort indicator is provided.

=head1 CONFIG VARIABLES

=over 4

=item Switch: B<-column>

Obligatory! Only available at ceate time.

Column number of the column for this header.

=item Switch: B<-sortcall>

Callback, called whenever the user clicks the header. Gives name and -sortorder as parameters.

=item Switch: B<-sortorder>