view release on metacpan or search on metacpan
Tk/CheckBox.pm view on Meta::CPAN
use strict;
use Carp;
$VERSION = '0.01';
use base qw (Tk::Derived Tk::Frame);
Tk::Widget->Construct ('CheckBox');
*textvariable = \&Tk::CheckBox::TextVariable;
*get = \&Tk::CheckBox::CurrentState;
view release on metacpan or search on metacpan
DataControl.pm view on Meta::CPAN
use Tk;
use Tk::Balloon;
use strict;
use base qw(Tk::Derived Tk::Frame);
use vars qw($VERSION);
use Carp;
$VERSION = '0.01';
view release on metacpan or search on metacpan
DoCommand.pm view on Meta::CPAN
package Tk::DoCommand;
use vars qw/$VERSION/;
$VERSION = '0.1';
use Tk::widgets qw/ROText/;
use base qw/Tk::Derived Tk::ROText/;
use strict;
use warnings;
use Carp;
use IO::Handle;
view release on metacpan or search on metacpan
lib/Tk/DocumentTree.pm view on Meta::CPAN
use strict;
use vars qw($VERSION);
$VERSION = '0.08';
use base qw(Tk::Derived Tk::Frame);
require Tk::ITree;
use File::Basename;
use Tk;
use Config;
view release on metacpan or search on metacpan
DynaTabFrame.pm view on Meta::CPAN
use Tk;
use Tk ':variables';
use Tk::Balloon;
use base qw (Tk::Derived Tk::Frame);
use vars qw ($VERSION);
use strict;
use Carp;
$VERSION = '0.23';
view release on metacpan or search on metacpan
use warnings;
require Tk::TableMatrix;
require Exporter;
@ISA = qw(Exporter Tk::Derived Tk::TableMatrix);
$VERSION = '0.01';
Construct Tk::Widget 'EMatrix';
view release on metacpan or search on metacpan
lib/Tk/EntryCheck.pm view on Meta::CPAN
use vars qw( $VERSION );
$VERSION = '0.04';
use base qw( Tk::Derived Tk::Entry );
Construct Tk::Widget 'EntryCheck';
# ------------------------------------------------------------
sub ClassInit {
my( $class, $parent ) = @_;
view release on metacpan or search on metacpan
lib/Tk/FcyEntry.pm view on Meta::CPAN
use strict;
use warnings;
use Tk;
use Tk::Widget;
use Tk::Derived;
use Tk::Entry;
use base qw/ Tk::Derived Tk::Entry /;
{
local($^W)=0; # suppress Entry overriden warning
Construct Tk::Widget 'Entry';
}
view release on metacpan or search on metacpan
lib/Tk/FileBrowser.pm view on Meta::CPAN
use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.11';
use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'FileBrowser';
use POSIX qw( strftime );
use Config;
view release on metacpan or search on metacpan
lib/Tk/FileEntry.pm view on Meta::CPAN
use 5.008008;
use strict;
use warnings;
use Tk;
use Tk::widgets qw/ Frame Derived Widget Label Entry Button /;
use base qw/ Tk::Derived Tk::Frame /;
our $VERSION = '2.4';
Construct Tk::Widget 'FileEntry';
view release on metacpan or search on metacpan
lib/Tk/FileTree.pm view on Meta::CPAN
use strict;
use vars qw($VERSION);
$VERSION = '1.01';
use Tk;
use Tk::Derived;
use Tk::Tree;
use Tk::ItemStyle;
use Cwd;
use DirHandle;
use File::Spec qw();
use base qw(Tk::Derived Tk::Tree);
use strict;
Construct Tk::Widget 'FileTree';
sub ClassInit
view release on metacpan or search on metacpan
FilterEntry.pm view on Meta::CPAN
use strict;
use Tk;
use Tk::Entry;
use base qw(Tk::Derived Tk::Entry);
Construct Tk::Widget 'FilterEntry';
sub ClassInit {
my ($class, $mw) = @_;
view release on metacpan or search on metacpan
lib/Tk/FlatCheckbox.pm view on Meta::CPAN
#
# XXX borderwidth ist krampfig ... check it
package Tk::FlatCheckbox;
use Tk::Derived;
use Tk::Canvas;
use strict;
use vars qw($VERSION @ISA);
@ISA = qw(Tk::Derived Tk::Canvas);
Construct Tk::Widget 'FlatCheckbox';
$VERSION = '0.08';
my %trace;
view release on metacpan or search on metacpan
FmtEntry.pm view on Meta::CPAN
package Tk::FmtEntry;
use vars qw/$VERSION/;
$VERSION = '0.1';
use Tk::widgets qw/Entry/;
use base qw/Tk::Derived Tk::Entry/;
use strict;
use warnings;
use Carp;
Construct Tk::Widget 'FmtEntry';
view release on metacpan or search on metacpan
lib/Tk/ForDummies/Graph/Areas.pm view on Meta::CPAN
#==================================================================
use vars qw($VERSION);
$VERSION = '1.10';
use base qw/Tk::Derived Tk::Canvas::GradientColor/;
use Tk::Balloon;
use Tk::ForDummies::Graph::Utils qw (:DUMMIES :DISPLAY);
use Tk::ForDummies::Graph qw (:DUMMIES);
view release on metacpan or search on metacpan
use Tk::Submethods
'addtag' => [qw(withtag above all below closest overlapping enclosed)],
'select' => [qw(adjust from to)];
# Tk::Derived::configure and ::cget call these, as they cannot call SUPER::
use vars qw(*configure_self *cget_self *destroy);
*configure_self = \&configure;
*cget_self = \&cget;
# Tk objects usually has a destroy method
use base qw(Tk::Cloth::Item);
Construct Tk::Cloth::Object 'Grid';
sub Tk_type { 'grid' }
package Tk::Cloth::Tag;
# with Tk::Derived in @ISA, Tag did not work anymore
use base qw(Tk::Cloth::Item Tk::Cloth::Object);
Construct Tk::Cloth::Object 'Tag';
sub Tk_type { 'tag' }
sub BackTrace { shift->cloth->BackTrace(@_); }
Construct Tk::Widget 'Cloth';
# Make sure we can create items on the cloth
use vars qw(*bind *raise *lower *focus);
use base qw(Tk::Cloth::Object Tk::Derived Tk::Canvas);
*bind = Tk::Widget->can('bind');
*raise = Tk::Widget->can('raise');
*lower = Tk::Widget->can('lower');
*focus = Tk::Widget->can('focus');
view release on metacpan or search on metacpan
Tk/Gauge.pm view on Meta::CPAN
package Tk::Gauge;
use 5.8.2;
use Tk 804.027;
use Tk::widgets qw/ Trace /;
use base qw/ Tk::Derived Tk::Canvas /;
use strict;
Construct Tk::Widget 'Gauge';
# Class global definitions.
view release on metacpan or search on metacpan
#
# A graphical Chartmaker at Canvas (Realtime)
# -------------------------------------------------------
use Carp;
use base qw/Tk::Derived Tk::Canvas/;
use Math::Trig qw(rad2deg acos);
use Tie::Watch;
use strict;
Construct Tk::Widget 'Graph';
view release on metacpan or search on metacpan
lib/Tk/GraphViz.pm view on Meta::CPAN
use Tk 800.020;
use Tk::Font;
use Tk::IO;
use base qw(Tk::Derived Tk::Canvas);
use IO qw(Handle File Pipe);
use Carp;
use IPC::Open3;
view release on metacpan or search on metacpan
lib/Tk/HListbox.pm view on Meta::CPAN
use warnings;
use POSIX qw(ceil);
use Carp;
use Tk;
use Tk::ItemStyle;
use base qw(Tk::Derived Tk::HList);
use vars qw($VERSION $DEFAULTFONT);
$VERSION = '3.00';
Tk::Widget->Construct('HListbox');
view release on metacpan or search on metacpan
lib/Tk/HMListbox.pm view on Meta::CPAN
## - Horizontal scanning is disabled, calls -xscancommand to let parent widget
## handle this.
{
package Tk::HMListbox::HMCListbox;
use base qw(Tk::Derived Tk::HListbox);
Tk::Widget->Construct('HMCListbox');
sub Populate {
my ($w, $args) = @_;
lib/Tk/HMListbox.pm view on Meta::CPAN
## HMButton is like an ordinary Button, but with an addition option:
## -pixelwidth
## The new configure method makes sure the pixelwidth is always retained.
{
package Tk::HMListbox::HMButton;
use base qw(Tk::Derived Tk::Button);
Tk::Widget->Construct('HMButton');
sub Populate {
my ($w, $args) = @_;
$w->SUPER::Populate($args);
view release on metacpan or search on metacpan
use Carp;
use vars qw($VERSION);
$VERSION = '3.002'; # $Id: //depot/Tk-HTML/HTML.pm#3 $
@ISA = qw(Tk::Derived Tk::ROText);
use strict;
Construct Tk::Widget 'HTMLText';
sub Font
view release on metacpan or search on metacpan
HexEntry.pm view on Meta::CPAN
package Tk::HexEntry;
use Tk ();
use Tk::Frame;
use Tk::Derived;
use strict;
use vars qw(@ISA $VERSION);
@ISA = qw(Tk::Derived Tk::Frame);
$VERSION = sprintf("%d.%02d", q$Revision: 0.01 $ =~ /(\d+)\.(\d+)/);
Construct Tk::Widget 'HexEntry';
{ my $foo = $Tk::FireButton::INCBITMAP;
view release on metacpan or search on metacpan
HistEntry.pm view on Meta::CPAN
######################################################################
package Tk::HistEntry::Simple;
require Tk::Entry;
use vars qw(@ISA);
@ISA = qw(Tk::Derived Tk::Entry Tk::HistEntry);
#use base qw(Tk::Derived Tk::Entry Tk::HistEntry);
Construct Tk::Widget 'SimpleHistEntry';
sub CreateArgs {
my($package, $parent, $args) = @_;
$args->{-class} = "SimpleHistEntry" unless exists $args->{-class};
HistEntry.pm view on Meta::CPAN
######################################################################
package Tk::HistEntry::Browse;
require Tk::BrowseEntry;
use vars qw(@ISA);
@ISA = qw(Tk::Derived Tk::BrowseEntry Tk::HistEntry);
#use base qw(Tk::Derived Tk::BrowseEntry Tk::HistEntry);
Construct Tk::Widget 'HistEntry';
sub CreateArgs {
my($package, $parent, $args) = @_;
$args->{-class} = "HistEntry" unless exists $args->{-class};
view release on metacpan or search on metacpan
lib/Tk/HyperText.pm view on Meta::CPAN
# Look to the end of this file for the POD documentation #
##########################################################
use strict;
use warnings;
use base qw(Tk::Derived Tk::ROText);
use Tk::PNG;
use Tk::JPEG;
use Tk::BrowseEntry;
use Tk::Listbox;
use Tk::Text;
lib/Tk/HyperText.pm view on Meta::CPAN
0.11 Feb 23, 2016
- Add dependency on HTML::TokeParser.
0.10 Sep 18, 2015
- Add dependency on Tk::Derived.
0.09 Nov 11, 2013
- Reformatted as per CPAN::Changes::Spec -neilbowers
0.08 Nov 1, 2013
view release on metacpan or search on metacpan
lib/Tk/HyperlinkButton.pm view on Meta::CPAN
use warnings;
use Browser::Open qw/ open_browser /;
use Tk;
use Tk::widgets qw/ Button /;
use base qw/ Tk::Derived Tk::Button /;
Construct Tk::Widget 'HyperlinkButton';
our $VERSION = '0.02';
view release on metacpan or search on metacpan
IDEdragShadow.pm view on Meta::CPAN
use strict;
use Tk;
use base qw/ Tk::Derived Tk::Frame/;
Tk::Widget->Construct("IDEdragShadow");
sub Populate {
view release on metacpan or search on metacpan
lib/Tk/ITree.pm view on Meta::CPAN
use vars qw($VERSION);
$VERSION = '0.03';
use Tk ();
use Tk::Derived;
use Tk::HList;
use base qw(Tk::Derived Tk::HList);
use strict;
Construct Tk::Widget 'ITree';
sub Tk::Widget::ScrlTree { shift->Scrolled('ITree' => @_) }
view release on metacpan or search on metacpan
ImageButton.pm view on Meta::CPAN
use strict;
use Tk;
require Tk::Label;
use base qw(Tk::Derived Tk::Label);
Construct Tk::Widget 'ImageButton';
sub ClassInit
{
view release on metacpan or search on metacpan
t/01_Create.t view on Meta::CPAN
## Check Inheritance Structure
isa_ok($jcb, 'Tk::JComboBox', "Test object identity");
isa_ok($jcb, 'Tk::CWidget', "Test inheritance from CWidget");
isa_ok($jcb, 'Tk::Frame', "Test inheritance from Tk::Frame");
isa_ok($jcb, 'Tk::Derived', "Test inheritance from Tk::Derived");
isa_ok($jcb, 'Tk::Widget', "Test inheritance from Tk::Widget");
############################################################
## Mode Checks