Skip to content

Commit 27436b3

Browse files
committed
widtrib all.pl is now runnable outside of widget
1 parent f0bb386 commit 27436b3

File tree

1 file changed

+9
-0
lines changed

1 file changed

+9
-0
lines changed

demos/demos/widtrib/all.pl

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -328,4 +328,13 @@ sub all {
328328
# $TOP->WidgetDump;
329329
}
330330

331+
return 1 if caller;
332+
333+
require Tk::demos::widget_lib::WidgetDemo;
334+
$MW = MainWindow->new;
335+
$MW->Button(-text => 'Close', -command => sub { $MW->destroy })->pack;
336+
$DEMO_FILE = $0;
337+
all('All widgets');
338+
Tk::MainLoop();
339+
331340
__END__

0 commit comments

Comments
 (0)