summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/demos
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-05-21 00:15:27 +0000
committerKarl Berry <karl@freefriends.org>2012-05-21 00:15:27 +0000
commita4c42bfb2337d37da89d789cb8cc226367994e32 (patch)
treec3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/Tk/demos
parent8274475057f024d35332ac47c2e2f23ea156e6ed (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.pm5
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Plot.pm5
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl20
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