summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl20
1 files changed, 18 insertions, 2 deletions
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