view release on metacpan or search on metacpan
lib/App/Codit.pm view on Meta::CPAN
use Tk;
use App::Codit::CodeTextManager;
use Config;
my $mswin = $Config{'osname'} eq 'MSWin32';
use base qw(Tk::Derived Tk::AppWindow);
Construct Tk::Widget 'Codit';
=head1 NAME
App::Codit - IDE for and in Perl
view release on metacpan or search on metacpan
Tk/Scope.pm view on Meta::CPAN
package Tk::Scope;
use strict;
use Tk;
use Tk::widgets qw(Canvas Scrollbar DialogBox);
use Audio::Data;
use base qw(Tk::Derived Tk::Canvas);
use File::Temp qw(tempfile);
Construct Tk::Widget 'Scope';
sub ClassInit
view release on metacpan or search on metacpan
lib/CPAN/Audit/DB.pm view on Meta::CPAN
use warnings;
our $VERSION = '20260607.001';
sub db {
{"dists" => {"ActivePerl" => {"advisories" => [{"affected_versions" => ["==5.16.1.1601"],"cves" => ["CVE-2012-5377"],"description" => "Untrusted search path vulnerability in the installation functionality in ActivePerl 5.16.1.1601, when installed in...
}
__PACKAGE__;
view release on metacpan or search on metacpan
Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt view on Meta::CPAN
Tk::DTree
Tk::DataTree
Tk::Date
Tk::DateEntry
Tk::DatePick
Tk::Derived
Tk::Dial
Tk::Dialog
Tk::DialogBox
Tk::DiffText
Tk::DirSelect
view release on metacpan or search on metacpan
lib/GSM/Gnokii/Tk/GSMTree.pm view on Meta::CPAN
use Carp;
use GSM::Gnokii;
use Tk;
use Tk::Widget;
use Tk::Derived;
use Tk::Tree;
use vars qw( @ISA );
@ISA = qw( Tk::Derived Tk::Tree );
Construct Tk::Widget "GSMTree";
use List::Util qw( first );
use Data::Peek;
view release on metacpan or search on metacpan
examples/ImageProcessing/HistogramWidget.pm view on Meta::CPAN
use Tk;
use Graphics::VTK;
use Carp;
use base qw(Tk::Derived Tk::Frame);
Tk::Widget->Construct("HistogramWidget");
# creates a meta object which clips a region of the input, and
# draws a histogram for the data.
view release on metacpan or search on metacpan
lib/Log/Dispatch/TkText.pm view on Meta::CPAN
use vars qw($VERSION);
use Tk;
use Tk::ROText ;
use Log::Dispatch::ToTk;
use base qw(Tk::Derived Tk::ROText);
$VERSION = '2.01';
Tk::Widget->Construct('LogText');
view release on metacpan or search on metacpan
_Deparsed_XSubs.pm view on Meta::CPAN
package Tk::Clipboard {
sub getSelected;
}
package Tk::Derived {
sub BLACK();
sub NORMAL_BG();
}
package Tk::Event {
view release on metacpan or search on metacpan
Tk/MonitorBar.pm view on Meta::CPAN
use Tk;
use Tk::ProgressBar;
use Carp;
use strict;
use base qw(Tk::Derived Tk::ProgressBar);
Construct Tk::Widget 'MonitorBar';
sub _arrange {
my $c = shift;
view release on metacpan or search on metacpan
contrib/stdio/Stdio.pm view on Meta::CPAN
package Tk::Stdio;
use strict;
use warnings;
use vars qw($VERSION @ISA);
($VERSION) = q$Revision: 1.0 $ =~ /Revision:\s+(\S+)/ or $VERSION = "0.0";
use base qw(Tk::Derived Tk::MainWindow);
use Tk::Text;
use Tk::Frame;
=pod
view release on metacpan or search on metacpan
PPresenter/tkTimerLabel.pm view on Meta::CPAN
# Copyright (C) 2000-2002, Free Software Foundation FSF.
package PPresenter::tkTimerLabel;
use strict;
use Tk::Derived;
use Tk::Label;
use base qw(Tk::Derived Tk::Label);
Construct Tk::Widget 'TimerLabel';
sub Populate
{ my ($w, $args) = @_;
view release on metacpan or search on metacpan
lib/Tcl/pTk.pm view on Meta::CPAN
(one of the test cases in the source distribution).
=item Derived Widgets
Derived widgets are sub-classes of existing widgets that provide some additional functions. Derived widgets are created in
Tcl::pTk using very similar syntax to perl/Tk (i.e. using the Tcl::pTk::Derived package, similar to the Tk::Derived package).
Examples of these types of widgets are Tree, TextEdit, TextUndo, ROText, and DirTree.
=back
=head1 A behind-the-scenes look at auto-wrapped widgets
view release on metacpan or search on metacpan
lib/Test/Unit/TkTestRunner.pm view on Meta::CPAN
use Tk::ROText;
use Tk::DialogBox;
use Carp;
use strict;
use base qw(Tk::Derived Tk::Canvas);
Construct Tk::Widget 'ArrayBar';
sub ClassInit {
my ($class, $mw) = @_;
view release on metacpan or search on metacpan
AbstractCanvas.pm view on Meta::CPAN
# 524JDkqX: Tk::AbstractCanvas.pm by PipStuart <Pip@CPAN.Org>, derived from Tk::WorldCanvas (by JosephSkrovan <Joseph@Skrovan.Com>
# which was based on a version by RudyAlbachten <Rudy@Albachten.Com>) and Tk::RotCanvas (by AlaQumsieh <AQumsieh@CPAN.Org>).
package Tk::AbstractCanvas; # This module provides an alternative to Tk::Canvas which is able to zoom, pan, and rotate.
require Tk::Derived;
require Tk::Canvas;
use strict;use warnings;use utf8;
use Tk;
use Carp;
our $VERSION = '1.82';my $d8VS='H7DMAlTk';
@Tk::AbstractCanvas::ISA = qw(Tk::Derived Tk::Canvas); Construct Tk::Widget 'AbstractCanvas';
sub Tk::Widget::ScrlACnv { shift->Scrolled('AbstractCanvas'=>@_) }
my %_can_rotate_about_center = ( # If objects can't rotate about their center, their center can at least rotate about another point on the canvas.
line => 1,
polygon => 1,
);
view release on metacpan or search on metacpan
lib/ActivityBar.pm view on Meta::CPAN
use vars qw($VERSION);
$VERSION = '0.01';
use strict;
use base qw(Tk::Derived Tk::ProgressBar);
Construct Tk::Widget 'ActivityBar';
### OVERRIDING FUNCTIONS
view release on metacpan or search on metacpan
lib/Tk/Airports.pm view on Meta::CPAN
require Tk;
require Tk::Toplevel;
require Tk::HList;
our @ISA = qw(Tk::Derived Tk::Toplevel);
our $VERSION = '0.062';
Construct Tk::Widget 'Airports';
########
view release on metacpan or search on metacpan
lib/Tk/AppWindow.pm view on Meta::CPAN
use warnings;
use Carp;
use vars qw($VERSION);
$VERSION="0.22";
use base qw(Tk::Derived Tk::MainWindow);
Construct Tk::Widget 'AppWindow';
use File::Basename;
require Tk::AppWindow::BaseClasses::Callback;
require Tk::Balloon;
view release on metacpan or search on metacpan
BarberPole.pm view on Meta::CPAN
use constant PI_OVER_180 => 3.141592659 / 180;
$VERSION = 0.01;
use Tk;
use base qw/Tk::Derived Tk::Canvas/;
Construct Tk::Widget 'BarberPole';
sub Populate {
my ($c, $args) = @_;
view release on metacpan or search on metacpan
lib/Tk/Bounded.pm view on Meta::CPAN
$VERSION = '$Revision: 58 $' =~ /\D(\d+)\s*\$$/;
use attributes;
use Carp;
use base qw/Tk::Derived/;
use Tk qw/Ev lsearch/;
# Deriving from Tk::Derived class is not well documented.
# We need a Populate function in order to add some config specs, but derived
# base class (as not derived from the widget class) cannot handle it. Workaround
# it by calling the Populate function in the package that use it. To do so, add
# a _super wrapper function into user's class namespace, that, in turn calls the
view release on metacpan or search on metacpan
lib/Tk/Canvas/GradientColor.pm view on Meta::CPAN
#=============================================================================
use vars qw($VERSION);
$VERSION = '1.06';
use base qw/Tk::Derived Tk::Canvas/;
use POSIX qw( ceil );
Construct Tk::Widget 'GradientColor';
my $COLOR_TAG = 'bg_gradient_color_canvas';
view release on metacpan or search on metacpan
CanvasDirTree.pm view on Meta::CPAN
our $VERSION = '0.04';
use warnings;
use strict;
use Tk::widgets qw/Canvas/;
use base qw/Tk::Derived Tk::Canvas/;
use File::Spec;
use Tk::JPEG;
use Tk::PNG;
Construct Tk::Widget 'CanvasDirTree';
CanvasDirTree.pm view on Meta::CPAN
#################################################################
sub Populate {
my ($self, $args) = @_;
#-------------------------------------------------------------------
#take care of args which don't belong to the SUPER, see Tk::Derived
foreach my $extra ('backimage','imx','imy','font','indfilla',
'indfilln','fontcolorn','fontcolora','floatback') {
my $xtra_arg = delete $args->{ "-$extra" }; #delete and read same time
if( defined $xtra_arg ) { $self->{$extra} = $xtra_arg }
}
CanvasDirTree.pm view on Meta::CPAN
None.
=head1 SEE ALSO
See "perldoc Tk::Canvas" for the standard Canvas options
See perldoc Tk::Derived for information on how this module was derived.
=head1 AUTHOR
zentara, E<lt>zentara@zentara.netE<gt>
view release on metacpan or search on metacpan
lib/Tk/Chart/Areas.pm view on Meta::CPAN
#==================================================================
use vars qw($VERSION);
$VERSION = '1.06';
use base qw/ Tk::Derived Tk::Canvas::GradientColor /;
use Tk::Balloon;
use Tk::Chart::Utils qw / :DUMMIES :DISPLAY /;
use Tk::Chart qw / :DUMMIES /;
view release on metacpan or search on metacpan
use Carp;
use Tk;
use Tk::Widget;
use Tk::Derived;
use Tk::Canvas;
use vars qw( @ISA );
@ISA = qw/Tk::Derived Tk::Canvas/;
Construct Tk::Widget "Clock";
my $ana_base = 73; # Size base for 100%
* Countdown clock API, incl action when done.
* Better docs for the attributes
=head1 SEE ALSO
Tk(3), Tk::Canvas(3), Tk::Widget(3), Tk::Derived(3)
=head1 AUTHOR
H.Merijn Brand <h.m.brand@xs4all.nl>
view release on metacpan or search on metacpan
lib/Tk/CodeText.pm view on Meta::CPAN
use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.68';
use base qw(Tk::Derived Tk::Frame);
use Tk::CodeText::Kamelon;
use Tk;
use Tie::Watch;
require Tk::CodeText::StatusBar;
view release on metacpan or search on metacpan
lib/Tk/ColorEntry.pm view on Meta::CPAN
use warnings;
use vars qw($VERSION);
$VERSION = '0.11';
use Tk;
use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'ColorEntry';
require Tk::PopColor;
view release on metacpan or search on metacpan
lib/Tk/ColoredButton.pm view on Meta::CPAN
#====================================================================
use vars qw($VERSION);
$VERSION = '1.05';
use base qw/Tk::Derived Tk::Canvas::GradientColor/;
use Tk::Balloon;
use English '-no_match_vars';
Construct Tk::Widget 'ColoredButton';
view release on metacpan or search on metacpan
lib/Tk/Axis.pm view on Meta::CPAN
use vars qw($VERSION @ISA);
$VERSION = substr(q$Revision: 1.5 $, 10) + 1;
@ISA = qw(Tk::Derived Tk::Canvas);
Construct Tk::Widget 'Axis';
# Added since v 0.1
lib/Tk/Axis.pm view on Meta::CPAN
# It is used as follows
#
# require Axis;
#
sub Populate #using Populate from Tk::Derived
{
my ($w,$args) = @_;
$w->SUPER::Populate($args);
$w->ConfigSpecs(
'-xmin' => ['PASSIVE',undef,undef,0],
view release on metacpan or search on metacpan
use Tk::Tree;
use Tk::Compound;
use Tk::ItemStyle;
use Tk::ResizeButton;
use Term::ANSIColor;
use base qw/Tk::Derived Tk::Frame/;
use strict;
Construct Tk::Widget 'DBITree';
view release on metacpan or search on metacpan
DBIx/Table.pm view on Meta::CPAN
use Tk::HList;
use Tk::Compound;
use Tk::ResizeButton;
use Data::Dumper;
use base qw/Tk::Derived Tk::Frame/;
use strict;
Construct Tk::Widget 'DBITable';
view release on metacpan or search on metacpan
TextList/Reindex.pm view on Meta::CPAN
use vars qw($VERSION);
$VERSION = '4.006'; # $Id: //depot/Tkutf8/TextList/Reindex.pm#4 $
use Tk;
use base qw(Tk::Derived);
sub Populate
{
my ($w, $args) = @_;