Frank Herrmann > Tk-ResizeButton-0.01 > Tk::ResizeButton

Download:
Tk-ResizeButton-0.01.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  2
Open  1
View/Report Bugs
Source  

NAME ^

Tk::ResizeButton - provides a resizeable button to be used in an HList column header.

SYNOPSIS ^

    use Tk;
    use Tk::HList;
    use Tk::ResizeButton;

    my $mw = MainWindow->new();

    # CREATE MY HLIST
    my $hlist = $mw->Scrolled('HList',
         -columns=>2, 
         -header => 1
         )->pack(-side => 'left', -expand => 'yes', -fill => 'both');

    # CREATE COLUMN HEADER 0
    my $headerstyle   = $hlist->ItemStyle('window', -padx => 0, -pady => 0);
    my $header0 = $hlist->ResizeButton( 
          -text => 'Test Name', 
          -relief => 'flat', -pady => 0, 
          -command => sub { print "Hello, world!\n";}, 
          -widget => \$hlist,
          -column => 0
    );
    $hlist->header('create', 0, 
          -itemtype => 'window',
          -widget => $header0, 
          -style=>$headerstyle
    );

    # CREATE COLUMN HEADER 1
    my $header1 = $hlist->ResizeButton( 
          -text => 'Status', 
          -relief => 'flat', 
          -pady => 0,
          -command => sub { print "Hello, world!\n";}, 
          -widget => \$hlist, 
          -column => 1
    );
    $hlist->header('create', 1,
          -itemtype => 'window',
          -widget   => $header1, 
          -style    =>$headerstyle
    );

DESCRIPTION ^

The ResizeButton widget provides a resizeable button widget for use in an HList column header. When placed in the column header, the edge of the widget can be selected and dragged to a new location to change the size of the HList column. When resizing the column, a column bar will also be placed over the HList indicating the eventual size of the HList column. A command can also be bound to the button to do things like sorting the column.

The widget takes all the options that Button does. In addition, the following options must be specified:

-widget

A reference to the HList widget must by provided via the -widget option. This allows the ResizeButton to update the column width after resizing.

-column

The column number that this ResizeButton is associated with must also be provided to resize the appropriate column.

AUTHOR ^

Shaun Wandler <wandler@unixmail.compaq.com>

UPDATES ^

Updated by Slaven Rezic and Frank Herrmann

position columnbar correctly and only use MoveColumnBar to move it instead of destroying it and re-creating with CreateColumnBar
use Subwidget('scrolled') if it exists
don't give error if -command is not specified
don't let the user hide columns (minwidth?)

KEYWORDS ^

Tk::HList

syntax highlighting: