Tk-MK

 view release on metacpan or  search on metacpan

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

use Tk;
use Tk::Canvas;
use Tk::Frame;

use strict;
use Carp;

use vars qw ($VERSION);
$VERSION = '2.7';

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

########################################################################
Tk::Widget->Construct ('Checkbox');

#---------------------------------------------
sub ClassInit {
	my ($class, $window) = (@_);
	$class->SUPER::ClassInit($window);

	# Note these keyboard-Keys are only usable, if the widget gets 'focus'

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

use Tk::HList;
use Tk::ItemStyle;
use Tk qw(Ev);

use strict;
use Carp;

use vars qw ($VERSION);
$VERSION = '2.2';

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

use constant DEFAULT_COLUMN_SEPARATOR	=> '|';
########################################################################
Construct Tk::Widget 'DHList';

# Class Variables
my ($DataStyles, $HeaderStyle);

#---------------------------------------------
# internal Setup function

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

use Tk::HListplus;
use Tk::ItemStyle;
use Tk qw(Ev);

use strict;
use Carp;

use vars qw ($VERSION);
$VERSION = '1.2';

#use base qw (Tk::Derived Tk::HList);
use base qw (Tk::Derived Tk::HListplus);

########################################################################
Construct Tk::Widget 'DHList_v1';

#---------------------------------------------
# internal Setup function
#---------------------------------------------
sub ClassInit
{
    my ($class, $window) = @_;

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

use Tk::Tree;
use Tk::ItemStyle;
use Tk qw(Ev);

use strict;
use Carp;

use vars qw ($VERSION);
$VERSION = '1.01';

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

########################################################################
Construct Tk::Widget 'DTree';

#---------------------------------------------
# internal Setup function
#---------------------------------------------
sub ClassInit
{
    my ($class, $window) = @_;

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

# Summary:  This widget creates a button for use in an HList header which
#           provides methods for resizing a column. This was heavily 
#	    leveraged from Columns.pm by Damion Wilson.
# Author:   Shaun Wandler, Updated by Slaven Rezic and Frank Herrmann, Michael Krause
# Date:     2009/04/07
# Revision: 0.6
#########################################################################=
# Note: For space reason all other documentation of Tk::HeaderResizeButton has
# been removed See Tk::HeaderResizeButton-Pod for details.
#
use base qw(Tk::Derived Tk::Button);

Construct Tk::Widget 'HeaderResizeButton';

sub ClassInit {
    my ($class, $window) = @_;

    $class->SUPER::ClassInit($window);
	$window->bind($class, '<ButtonRelease-1>', 'ButtonRelease');
	$window->bind($class, '<ButtonPress-1>',   'ButtonPress');
	$window->bind($class, '<Motion>',          'ButtonOver');

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

# # return unless defined $w;
# # my $Ev = $w->XEvent;
# # my $d  = $Ev->d;
# # $w->Tk::focus() if ($d eq 'NotifyAncestor' ||  $d eq 'NotifyNonlinear' ||  $d eq 'NotifyInferior');
# 	
# }

########################################################################
package Tk::HListplus;

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

Construct Tk::Widget 'HListplus';

# needed to include also the aliased commands
use Tk::Submethods ( 'header'    => [qw(configure cget create delete exists size)] );


#---------------------------------------------
# internal Setup function
#---------------------------------------------

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

# XXX needs lot of work:
# DONE (MK) * position columnbar correctly and only use MoveColumnBar to move it instead
# 	of destroying it and re-creating with CreateColumnBar
# (for what?) * use Subwidget('scrolled') if it exists
# DONE (MK) * don't give error if -command is not specified
# DONE (MK) * don't let the user hide columns (minwidth?)
# DONE (MK) * double-click on column should not more execute the single-click command callback
# DONE (MK) * configurable closedcolWidth, ResizeWidth

use base qw(Tk::Derived Tk::Button);
use strict;

Construct Tk::Widget 'HdrResizeButton';

sub ClassInit
{
	my ($class, $mw) = @_;
	$class->SUPER::ClassInit($mw);
	$mw->bind( $class, '<ButtonRelease-1>', 'ButtonRelease' );
	$mw->bind( $class, '<ButtonPress-1>',   'ButtonPress' );

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

use Tk;
use Tk::Menubutton;
use Tk::Menu;

use strict;
use Carp qw(:DEFAULT cluck);

use vars qw ($VERSION);
$VERSION = '2.0';

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


use constant CLEAR_OPTION_TAG	=>	'__CLEAR__OPTIONBOX_ENTRY__';

########################################################################
Tk::Widget->Construct ('Optionbox');

my $ClearXPM;

#---------------------------------------------

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

########################################################################
# For changing some aspects here we clone the TK-Tree Widget
########################################################################
package Tk::PopUpSelectBox::SelectTree;

use vars qw($VERSION);
$VERSION = '0.01';

use Tk qw(Ev);
use Tk::Derived;
use Tk::HList;
use base  qw(Tk::Derived Tk::HList);

#---------------------------------------------
Tk::Widget->Construct ('SelectTree');

my $minus_data = <<'minus_data_EOP';
	/* XPM */
	static char *xpm[] = {
	"13 13 2 1",
	". c none",
	"X c black",

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

package Tk::ProgressBarPlus;

use vars qw($VERSION);
$VERSION = '3.0141'; # $Id: //depot/Tk8/Tk/ProgressBar.pm#14 $

use Tk;
use Tk::Canvas;
use Carp;
use strict;

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

Construct Tk::Widget 'ProgressBarPlus';

sub ClassInit {
    my ($class,$mw) = @_;

    $class->SUPER::ClassInit($mw);

    $mw->bind($class,'<Configure>', ['_layoutRequest',1]);
}

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

use Tk;
use Tk::Button;
use Tk::Frame;

use strict;
use Carp;

use vars qw ($VERSION);
$VERSION = '1.00';

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

########################################################################
Tk::Widget->Construct ('Statusbox');

#---------------------------------------------
sub ClassInit {
	my ($class, $window) = (@_);

	$class->SUPER::ClassInit($window);
}

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

use vars qw($VERSION);
$VERSION = '0.4';

# standards
use Carp;
use Time::HiRes qw(usleep);

# Tk related
use Tk;
use Tk qw(Ev);
use Tk::Derived;
use Tk::ItemStyle;
use Tk::Compound;
use Tk::DialogBox;
use Tk::LabEntry;


#--------------------------------------------------------------------------------------------------
#use base  qw(Tk::Derived Tk::Tree);
use base  qw(Tk::Derived Tk::Tree);
Tk::Widget->Construct ('Treeplus');

#--------------------------------------------------------------------------------------------------
my (%IconData, %Icons);
# Several internal constants
use constant MAX_HISTORY_SIZE				=> '10';
#
use constant DEFAULT_CLIPBOARD_SEPARATOR	=> '|';
#
use constant _HL_INDICATOR_NONE 			=> '0';