view release on metacpan or search on metacpan
RotCanvas.pm view on Meta::CPAN
use vars qw/$VERSION/;
$VERSION = 1.2;
use Tk::widgets qw/Canvas/;
use base qw/Tk::Derived Tk::Canvas/;
use strict;
use Carp;
Construct Tk::Widget 'RotCanvas';
view release on metacpan or search on metacpan
lib/Tk/RotatingGauge.pm view on Meta::CPAN
use POSIX qw{ floor };
use Tk;
use Tk::Canvas;
use base qw{ Tk::Derived Tk::Canvas };
Construct Tk::Widget 'RotatingGauge';
# -- builders & initializers
view release on metacpan or search on metacpan
lib/Tk/SMListbox.pm view on Meta::CPAN
## - Horizontal scanning is disabled, calls -xscancommand to let parent widget
## handle this.
{
package Tk::SMListbox::SMCListbox;
use base qw(Tk::Derived Tk::Listbox);
Tk::Widget->Construct('SMCListbox');
sub Populate {
my ($w, $args) = @_;
lib/Tk/SMListbox.pm view on Meta::CPAN
## SMHButton is like an ordinary Button, but with an addition option:
## -pixelwidth
## The new configure method makes sure the pixelwidth is always retained.
{
package Tk::SMListbox::SMHButton;
use base qw(Tk::Derived Tk::Button);
Tk::Widget->Construct('SMHButton');
sub Populate {
my ($w, $args) = @_;
$w->SUPER::Populate($args);
view release on metacpan or search on metacpan
package Tk::Stderr;
use strict;
use warnings;
use vars qw($VERSION @ISA);
($VERSION) = q$Revision: 1.2 $ =~ /Revision:\s+(\S+)/ or $VERSION = "0.0";
use base qw(Tk::Derived Tk::MainWindow);
use Tk::ROText;
use Tk::Frame;
=pod
view release on metacpan or search on metacpan
lib/Tk/StyledButton.pm view on Meta::CPAN
use Tk::JPEG;
use Tk::Photo;
use MIME::Base64;
use Carp;
use base qw(Tk::Derived Tk::Canvas);
use constant PI => 3.1415926;
use constant PI_OVER_2 => 1.5707963;
use constant SQUARE_EDGE_FACTOR => 1.5;
view release on metacpan or search on metacpan
lib/Tk/TM/wgBlank.pm view on Meta::CPAN
use Tk;
use Tk::TM::Common;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = '0.52';
@ISA = ('Tk::Derived','Tk::Frame');
Tk::Widget->Construct('tmBlank');
#######################
sub Populate {
view release on metacpan or search on metacpan
TableMatrix/Spreadsheet.pm view on Meta::CPAN
use Carp;
use Tk;
use Tk::TableMatrix;
use Tk::Derived;
use base qw/ Tk::Derived Tk::TableMatrix/;
$VERSION = '1.29';
Tk::Widget->Construct("Spreadsheet");
view release on metacpan or search on metacpan
lib/Tk/Terminal.pm view on Meta::CPAN
#boilerplating
my $sep = '/';
my $qsep = quotemeta($sep);
my $root = qr/^\//;
use base qw(Tk::Derived Tk::TextANSIColor);
Construct Tk::Widget 'Terminal';
=head1 SYNOPSIS
require Tk::Terminal;
view release on metacpan or search on metacpan
lib/Tk/Text/SuperText.pm view on Meta::CPAN
package Tk::Text::SuperText;
use Exporter ();
use Tk qw(800 Ev);
use Tk::Text;
use Tk::Derived;
#+20010117 JWT TextANSIColor support
my $ansicolor = 0;
eval 'use Term::ANSIColor; 1' or $ansicolor = -1;
lib/Tk/Text/SuperText.pm view on Meta::CPAN
flashMatchingChar removeMatch findMatchingChar jumpToMatchingChar escape tab
leftTab copy cut paste inlinePaste undo redo destroy keyPress menuSelect noOP
);
$VERSION = '0.12';
@ISA = qw(Tk::Derived Tk::Text Exporter);
use base qw(Tk::Text);
Construct Tk::Widget 'SuperText';
view release on metacpan or search on metacpan
lib/Tk/TextHighlight.pm view on Meta::CPAN
$TEXTWIDGET = $readonly ? 'Tk::ROText' : 'Tk::TextUndo';
$evalstr = "use $TEXTWIDGET; \$haveSuperText = 1; 1";
eval $evalstr;
}
die "e:TextHighlight could not load required widget ($TEXTWIDGET) ($@)!\n" if ($@);
$evalstr = "use base ('Tk::Derived', '$TEXTWIDGET')";
eval $evalstr;
die "e:TextHighlight could not load base widget ($TEXTWIDGET) ($@)!\n" if ($@);
};
Construct Tk::Widget 'TextHighlight';
view release on metacpan or search on metacpan
lib/Tk/TextVi.pm view on Meta::CPAN
#use Data::Dump qw|dump|;
use Tk;
use Tk::TextUndo ();
use base qw'Tk::Derived Tk::TextUndo';
use Carp qw'carp croak';
Construct Tk::Widget 'TextVi';
view release on metacpan or search on metacpan
Thumbnail.pm view on Meta::CPAN
package Tk::Thumbnail;
use Carp;
use File::Basename;
use Tk::widgets qw/ Animation JPEG LabEntry MultiMediaControls Pane PNG /;
use base qw/ Tk::Derived Tk::Pane /;
use vars qw/ $err $info /;
use strict;
Construct Tk::Widget 'Thumbnail';
view release on metacpan or search on metacpan
lib/Tk/TipEntry.pm view on Meta::CPAN
use Tk;
use Tk::Entry;
our $VERSION = '0.06';
use base qw(Tk::Derived Tk::Entry);
Construct Tk::Widget 'TipEntry';
=head1 NAME
view release on metacpan or search on metacpan
lib/Tk/Tree/JSON.pm view on Meta::CPAN
BEGIN {
use vars qw($VERSION @ISA);
require Tk::Tree;
require JSON;
require Tk::Derived;
$VERSION = '0.04';
@ISA = qw(Tk::Derived Tk::Tree);
}
Construct Tk::Widget 'JSON';
sub Tk::Widget::ScrolledJSON { shift->Scrolled('JSON' => @_) }
view release on metacpan or search on metacpan
lib/Tk/Tree/XML.pm view on Meta::CPAN
BEGIN {
use vars qw($VERSION @ISA);
require Tk::Tree;
require XML::Parser;
require Tk::Derived;
$VERSION = '0.01';
@ISA = qw(Tk::Derived Tk::Tree);
}
Construct Tk::Widget 'XML';
sub Tk::Widget::ScrolledXML { shift->Scrolled('XML' => @_) }
view release on metacpan or search on metacpan
Tk/VTree.pm view on Meta::CPAN
package Tk::VTree;
require 5.004;
use Tk::Derived;
use Tk::HList;
use strict;
use vars qw( @ISA $VERSION );
@ISA = qw( Tk::Derived Tk::HList );
$VERSION = '0.02';
BEGIN {
die "Patched version of HList.pm required"
unless( $Tk::HList::VERSION =~ /ctd/ || $Tk::HList::VERSION > 2.013 );
view release on metacpan or search on metacpan
TreeGraph.pm view on Meta::CPAN
use strict;
use vars qw($VERSION @ISA);
use Carp ;
use Tk::Derived ;
use Tk::Canvas ;
use Tk::Frame;
use AutoLoader qw/AUTOLOAD/ ;
@ISA = qw(Tk::Derived Tk::Canvas);
$VERSION = sprintf "%d.%03d", q$Revision: 1.30 $ =~ /(\d+)\.(\d+)/;
Tk::Widget->Construct('TreeGraph');
view release on metacpan or search on metacpan
package Tk::UpDown;
use Tk;
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
Win32RotLabel.pm view on Meta::CPAN
our $VERSION = 0.4;
use Tk;
use Tk::widgets qw/Label/;
use base qw/Tk::Derived Tk::Label/;
use Win32::API;
use strict;
use Carp;
view release on metacpan or search on metacpan
lib/Tk/Wizard.pm view on Meta::CPAN
require Exporter; # Exporting Tk's MainLoop so that
@ISA = ( "Exporter", ); # I can just use strict and Tk::Wizard without
@EXPORT = ("MainLoop"); # having to use Tk
}
use base qw[ Tk::Derived Tk::Toplevel ];
Tk::Widget->Construct('Wizard');
# See INTERNATIONALISATION
%LABELS = (
# Buttons
view release on metacpan or search on metacpan
WorldCanvas.pm view on Meta::CPAN
package Tk::WorldCanvas;
require Tk::Canvas;
require Tk::Derived;
use strict;
use Tk;
use vars qw($VERSION);
$VERSION = '1.2.7';
WorldCanvas.pm view on Meta::CPAN
#1.2.4 -- Sept 5, 2002 -- Added to POD
#1.2.5 -- Sept 6, 2002 -- Enhanced view window scaleing on canvas resize
#1.2.6 -- Nov 1, 2002 -- Fixed _view_area_canvas bug.
#1.2.7 -- Nov 19, 2002 -- handle fractional arguments to canvas(x|y)
@Tk::WorldCanvas::ISA = qw(Tk::Derived Tk::Canvas);
Construct Tk::Widget 'WorldCanvas';
sub ClassInit {
my ($worldcanvas, $mw) = @_;
view release on metacpan or search on metacpan
WizardMaker.pm view on Meta::CPAN
################################################################################
# Standard perl and Tk object magic. #
# We must override Tk functions ClassInit and Populate! #
################################################################################
use base qw/Tk::Derived Tk::Frame/;
Tk::Widget->Construct('WizardMaker');
# Tk standard function to initialize class
sub ClassInit{
view release on metacpan or search on metacpan
XMLViewer.pm view on Meta::CPAN
require Tk::ROText;
require Tk::Pixmap;
use strict;
use vars qw($VERSION);
use base qw(Tk::Derived Tk::ROText);
use XML::Parser;
BEGIN {
if ($] < 5.006) {
$INC{"warnings.pm"} = 1;
view release on metacpan or search on metacpan
lib/Tk/YADialog.pm view on Meta::CPAN
use warnings;
use vars qw($VERSION);
$VERSION = '0.05';
use Tk;
use base qw(Tk::Derived Tk::Toplevel);
Construct Tk::Widget 'YADialog';
=head1 SYNOPSIS
require Tk::YADialog;
view release on metacpan or search on metacpan
lib/Tk/YANoteBook.pm view on Meta::CPAN
$VERSION = '0.10';
use Tk;
require Tk::YANoteBook::NameTab;
use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'YANoteBook';
=head1 SYNOPSIS
require Tk::YANoteBook;
view release on metacpan or search on metacpan
mySplashScreen.pm view on Meta::CPAN
#export so that we don't need to call Tk::mySplashScreen, just mySplashScreen
@mySplashScreen::ISA = 'Tk::mySplashScreen';
#widgets to be used
use Tk::widgets ("Photo","Label","MainWindow");
#this is derived
use base ("Tk::Derived", "Tk::MainWindow");
#cast magic missile (make this a bona-fide Tk widget)
Construct Tk::MainWindow 'SplashScreen';
#default configSpecs
our %defaultSpecs = (
#'-image' => "./default.gif",
view release on metacpan or search on metacpan
use strict;
use warnings;
$h
use Tk 804;
use base qw/Tk::Derived Tk::Frame/;
Construct Tk::Widget '$pack';
our \%ZWIDGETS;
view release on metacpan or search on metacpan
lib/Tk/ECWarning.pm view on Meta::CPAN
$VERSION='0.00';
use Tk qw(Ev);
use strict;
use Carp;
use base qw(Tk::Derived Tk::Toplevel);
use Tk::widgets qw(Button Label Frame);
Construct Tk::Widget 'ECWarning';
sub Cancel {
view release on metacpan or search on metacpan
lib/App/MathImage/Tk/About.pm view on Meta::CPAN
use strict;
use warnings;
use Tk;
use Locale::TextDomain 1.19 ('App-MathImage');
use base 'Tk::Derived', 'Tk::Dialog';
Tk::Widget->Construct('AppMathImageTkAbout');
our $VERSION = 110;
# uncomment this to run the ### lines
view release on metacpan or search on metacpan
history/Tk-b11.announced.html view on Meta::CPAN
* Corrected initialization/malloc/free bug in Text Tag -data option.
* Down graded ConfigDefault not to propagate 'default' values if
ConfigSpec has 'undef' as default value. Changed default -foreground
-background to supplied by Tk::Derived to follow this model.
These changes allow subwidgets to default their own colours.
* Made '-class' universal and used it to set class for all Tk::Widgets.
Will allows Tix-like options db priming to affect subwidget defaults
(e.g. colours).