diff options
author | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
commit | a4c42bfb2337d37da89d789cb8cc226367994e32 (patch) | |
tree | c3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/Tk/demos | |
parent | 8274475057f024d35332ac47c2e2f23ea156e6ed (diff) |
perl 5.14.2 from siep
git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Ball.pm | 5 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Plot.pm | 5 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl | 20 |
3 files changed, 24 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Ball.pm b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Ball.pm index c05605e4aaa..0f85f121091 100644 --- a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Ball.pm +++ b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Ball.pm @@ -1,5 +1,6 @@ -package Ball; +package # hide from CPAN indexer + Ball; # Ball.pm, a class module that allows concurrent simulation (canvas) instances. # @@ -18,7 +19,7 @@ package Ball; # Tidied up by SOL. use vars qw/$VERSION/; -$VERSION = '4.004'; # $Id: //depot/Tkutf8/demos/demos/widget_lib/Ball.pm#4 $ +$VERSION = '4.005'; # $Id: //depot/Tkutf8/demos/demos/widget_lib/Ball.pm#4 $ use Tk::Canvas; use Tk::Widget; diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Plot.pm b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Plot.pm index c5416b0e535..25ace4a805b 100644 --- a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Plot.pm +++ b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Plot.pm @@ -1,5 +1,6 @@ -package Plot; +package # hide from CPAN indexer + Plot; # Class "Plot": constructor, methods, destructor, global class data, # etcetera. @@ -12,7 +13,7 @@ package Plot; require 5.005_03; use vars qw/$VERSION @ISA/; -$VERSION = '4.008'; # sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/; +$VERSION = '4.009'; # sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/; use Tk::Frame; use base qw/Tk::Frame/; diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl b/Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl index 2152465c462..482bb46ea5b 100644 --- a/Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl +++ b/Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl @@ -27,7 +27,7 @@ All Tk widgets at a glance in one Toplevel. The left column contains the class name, the middle column a sample representation of this widget, and the right column a button to the widget's Pod (requires Tk::Pod from CPAN). -There are two sections: core Tk modules which come with stock Tk $Tk::VERSION and a sample of non-standard Tk modules from CPAN. The non-standard modules are only displayed if installed, otherwise they are skipped. +There are three sections: core Tk modules and Tix modules which come with stock Tk $Tk::VERSION and a sample of non-standard Tk modules from CPAN. The non-standard modules are only displayed if installed, otherwise they are skipped. EOF -geometry_manager => 'pack', -title => 'All widgets', @@ -74,6 +74,7 @@ EOF -width => rand(4)+1, ); } + $w->configure(-scrollregion => [$w->bbox("all")]); }, }, {class => 'Checkbutton', w_args => [-text => 'This is a checkbutton']}, @@ -113,7 +114,22 @@ EOF {class => 'TextList', w_args => [@txt_geom], action => $insert_lb, scrolled => 'oe'}, {class => 'TextUndo', w_args => [@txt_geom], action => $insert_txt, scrolled => 'oe'}, # XXX Toplevel - qw(FloatEntry HList IconList InputO + + {separator => 'Tix modules'}, + + 'FloatEntry', + {class => 'HList', action => sub { + my $w = shift; + my $b = $w->Balloon; + my %binfo; + for my $path ('1', '1.1', '1.2', '2', '2.1') { + $w->add($path, -text => $path); + $binfo{$path} = "BalloonInfo: $path"; + } + $b->attach($w, -balloonposition => "mouse", -msg => \%binfo); + }, + }, + qw(IconList InputO LabEntry LabFrame LabRadio NBFrame Optionmenu Panedwindow ProgressBar TList Table Tiler TixGrid Tree |