view release on metacpan or search on metacpan
JListbox.pm view on Meta::CPAN
use vars qw($VERSION);
$VERSION = '.01';
use warnings;
require Tk::Derived;
require Tk::Listbox;
require Tk::Toplevel;
@ISA = qw(Tk::Derived Tk::Listbox Tk::Toplevel);
Construct Tk::Widget 'JListbox';
sub Populate{
my ($dw,$args) = @_;
view release on metacpan or search on metacpan
lib/Tk/JThumbnail.pm view on Meta::CPAN
use Carp;
use File::Basename;
use Tk; # qw/Ev $XS_VERSION/;
#DEPRECIATED!: use Tk::widgets qw/ Animation JPEG LabEntry MultiMediaControls Pane PNG /;
use Tk::widgets qw/ JPEG LabEntry Pane PNG Balloon /;
use base qw/ Tk::Derived Tk::Pane /;
use vars qw/ $VERSION $err $info $CORNER $haveAnimation/;
$VERSION = '2.4';
$haveAnimation = 0;
eval 'use Tk::widgets qw/ Animation /; $haveAnimation = 1; 1';
view release on metacpan or search on metacpan
$Tk::LCD::VERSION = '1.3';
package Tk::LCD;
use base qw/Tk::Derived Tk::Canvas/;
use vars qw/$ELW %SHAPE %shape %LLCD %ULCD/;
use subs qw/ldifference/;
use strict;
Construct Tk::Widget 'LCD';
view release on metacpan or search on metacpan
LabPopEntry.pm view on Meta::CPAN
use strict;
require Tk::LabEntry;
use vars qw(@ISA $VERSION);
@ISA = qw(Tk::Derived Tk::LabEntry);
$VERSION = 0.05;
Construct Tk::Widget 'LabPopEntry';
sub Populate{
view release on metacpan or search on metacpan
LineGraph.pm view on Meta::CPAN
package Tk::LineGraph;
use POSIX;
use Carp;
use Tk::widgets qw/Canvas/;
use base qw/Tk::Derived Tk::Canvas/;
require Tk::DialogBox;
require Tk::BrowseEntry;
use strict;
Construct Tk::Widget 'LineGraph';
view release on metacpan or search on metacpan
lib/Tk/ListBrowser.pm view on Meta::CPAN
use warnings;
use Carp;
use vars qw($VERSION);
$VERSION = '0.09';
use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'ListBrowser';
use Math::Round;
use Tk;
view release on metacpan or search on metacpan
Tk/ListboxDnD.pm view on Meta::CPAN
use warnings;
use vars qw($VERSION);
$VERSION = '1.300';
use base qw(Tk::Derived Tk::Listbox);
use Tk::widgets qw(Listbox );
Construct Tk::Widget 'ListboxDnD';
sub Populate
view release on metacpan or search on metacpan
LockDisplay.pm view on Meta::CPAN
use 5.004;
use Carp;
use Tk::Toplevel;
use strict;
use base qw/Tk::Derived Tk::Toplevel/;
Construct Tk::Widget 'LockDisplay';
sub Lock {
# Realize the dialog, start the screensaver and snooze timer events, clear the password entry, save the current
view release on metacpan or search on metacpan
lib/Tk/MARC/Editor.pm view on Meta::CPAN
# 0.1 2005.12.19
# - original version
use Tk qw(Ev);
use Tk::widgets qw(Text);
use base qw/Tk::Derived Tk::Text/;
use Carp;
use MARC::Record;
use MARC::Descriptions;
use MARC::Lint;
use MARC::Errorchecks;
view release on metacpan or search on metacpan
lib/Tk/MIMEApp.pm view on Meta::CPAN
package Tk::MIMEApp;
use base qw(Tk::Derived Tk::NoteBook);
use IO::File;
use MIME::Multipart::Parse::Ordered;
use Tk::MarkdownTk;
use YAML::Perl;
use Tk qw(Ev);
view release on metacpan or search on metacpan
lib/Tk/Checkbox.pm view on Meta::CPAN
use Carp;
use vars qw ($VERSION);
$VERSION = '2.7';
use base qw (Tk::Derived Tk::Frame);
########################################################################
Tk::Widget->Construct ('Checkbox');
#---------------------------------------------
view release on metacpan or search on metacpan
MListbox.pm view on Meta::CPAN
## - Calls an -updatecommand whenever something happens to it.
## - Horizontal scanning is disabled, calls -xscancommand to let parent widget
## handle this.
{
package Tk::CListbox;
use base qw(Tk::Derived Tk::Listbox);
Tk::Widget->Construct('CListbox');
sub Populate {
my ($w, $args) = @_;
MListbox.pm view on Meta::CPAN
## HButton is like an ordinary Button, but with an addition option:
## -pixelwidth
## The new configure method makes sure the pixelwidth is always retained.
{
package Tk::HButton;
use base qw(Tk::Derived Tk::Button);
Tk::Widget->Construct('HButton');
sub Populate {
my ($w, $args) = @_;
$w->SUPER::Populate($args);
view release on metacpan or search on metacpan
lib/Tk/MTDial.pm view on Meta::CPAN
PI=>4*atan2(1,1),
id=>0.85, # indicator distance from center
ir=>0.05, # indicator radius
};
use base qw/Tk::Derived Tk::Canvas/;
use strict;
use warnings;
Construct Tk::Widget 'MTDial';
view release on metacpan or search on metacpan
lib/Tk/Markdown.pm view on Meta::CPAN
=cut
our $VERSION = '0.08';
use base qw(Tk::Derived Tk::Text);
use Tk::Font;
#use Tk::Carp qw/fatalsToDialog warningsToDialog tkDeathsNonFatal/;
## commented out Tk::carp because it is not available in ppm.
Construct Tk::Widget 'Markdown';
view release on metacpan or search on metacpan
lib/Tk/MarkdownTk.pm view on Meta::CPAN
=cut
our $VERSION = '0.07';
use Tk::Markdown;
use base qw(Tk::Derived Tk::Markdown);
Construct Tk::Widget 'MarkdownTk';
view release on metacpan or search on metacpan
lib/Tk/Month.pm view on Meta::CPAN
use Time::Local;
use Text::Abbrev;
use Tk;
use Tk::Widget;
use base qw/ Tk::Derived Tk::Frame /;
Construct Tk::Widget 'Month';
sub debug {};
#sub debug { print STDERR @_; };
view release on metacpan or search on metacpan
Multi/Canvas.pm view on Meta::CPAN
use strict;
use vars qw($printCmd $defaultPrintCmd $VERSION);
use base qw(Tk::Derived Tk::Frame Tk::Multi::Any);
$VERSION = sprintf "%d.%03d", q$Revision: 2.5 $ =~ /(\d+)\.(\d+)/;
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
view release on metacpan or search on metacpan
lib/Tk/ObjEditor.pm view on Meta::CPAN
# the same terms as the Perl 5 programming language system itself.
#
package Tk::ObjEditor;
$Tk::ObjEditor::VERSION = '2.010';
use Carp;
use Tk::Derived;
use Tk::Frame;
use Tk::ObjScanner 2.010;
use Tk::Dialog;
use Tk::DialogBox;
use warnings;
lib/Tk/ObjEditor.pm view on Meta::CPAN
use vars qw/$VERSION @ISA/;
use Storable qw(dclone);
use base qw(Tk::Derived Tk::ObjScanner);
Tk::Widget->Construct('ObjEditor');
sub _isa {
return (reftype($_[0]) // '') eq $_[1] ;
view release on metacpan or search on metacpan
lib/Tk/ObjScanner.pm view on Meta::CPAN
# Furthermore to avoid memory leak if the user modifies its data
# structure, the ref kept must be weakened (See Scalar::Util man page)
use Carp;
use warnings;
use Tk::Derived;
use Tk::Frame;
use Data::Dumper;
use base qw(Tk::Derived Tk::Frame);
Tk::Widget->Construct('ObjScanner');
sub scan_object {
require Tk;
view release on metacpan or search on metacpan
PathEntry.pm view on Meta::CPAN
use strict;
use vars qw($VERSION);
$VERSION = '3.08';
use base qw(Tk::Derived Tk::Entry);
Construct Tk::Widget 'PathEntry';
sub ClassInit {
my($class,$mw) = @_;
view release on metacpan or search on metacpan
lib/Tk/Playlist.pm view on Meta::CPAN
use 5.005;
use strict;
use vars qw($VERSION @ISA);
use Tk;
use Tk::Derived;
use Tk::HList;
$VERSION = '0.01';
@ISA=qw(Tk::Derived Tk::HList);
Construct Tk::Widget 'Playlist';
sub Tk::Widget::ScrolledPlaylist { shift->Scrolled('Playlist'=>@_); }
view release on metacpan or search on metacpan
lib/Tk/PlotDataset.pm view on Meta::CPAN
use 5.005_03;
use Carp;
use POSIX;
use base qw/Tk::Derived Tk::Canvas/;
use Tk::Balloon;
use vars qw($VERSION);
$VERSION = '2.05';
view release on metacpan or search on metacpan
use vars qw($VERSION @ISA);
$VERSION = '5.09';
use Tk qw(Ev);
use Tk::Derived;
use Tk::Frame;
@ISA = qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'More';
sub Populate {
my ($cw, $args) = @_;
view release on metacpan or search on metacpan
lib/Tk/PodSingle.pm view on Meta::CPAN
it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.
=cut
use base qw(Tk::Derived Tk::Pod);
use strict;
Construct Tk::Widget 'PodSingle';
sub Populate
view release on metacpan or search on metacpan
lib/Tk/PodViewer.pm view on Meta::CPAN
use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.08';
use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'PodViewer';
use Tk;
require Tk::ROText;
view release on metacpan or search on metacpan
PopEntry.pm view on Meta::CPAN
use strict;
require Tk::Entry;
use vars qw(@ISA $VERSION);
@ISA = qw(Tk::Derived Tk::Entry);
$VERSION = 0.06;
Construct Tk::Widget 'PopEntry';
sub Populate{
view release on metacpan or search on metacpan
lib/Tk/PopList.pm view on Meta::CPAN
use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.14';
use base qw(Tk::Derived Tk::Poplevel);
use Tk;
require Tk::HList;
Construct Tk::Widget 'PopList';
view release on metacpan or search on metacpan
lib/Tk/QuickForm/CBaseClass.pm view on Meta::CPAN
use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.07';
use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'CBaseClass';
use Tie::Watch;
use Carp;
view release on metacpan or search on metacpan
lib/Tk/ROSyntaxText.pm view on Meta::CPAN
use warnings;
our $VERSION = '1.001';
use Tk;
use base qw{Tk::Derived Tk::ROText};
use Syntax::Highlight::Engine::Kate::All;
use Syntax::Highlight::Engine::Kate 0.06;
use Carp;
view release on metacpan or search on metacpan
ResizeButton.pm view on Meta::CPAN
# 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?)
use base qw(Tk::Derived Tk::Button);
Construct Tk::Widget 'ResizeButton';
sub ClassInit {
my ( $class, $mw ) = @_;