Anonymous user
Simple windowed application: Difference between revisions
Add Perl example with Tk library.
m (→{{header|Tcl}}: Remove white space.) |
(Add Perl example with Tk library.) |
||
Line 189:
)
createDialog buttonClick
=={{header|Perl}}==
{{library|Tk}}
use Tk;
$main = MainWindow->new;
$l = $main->Label('-text' => 'There have been no clicks yet.')->pack;
$count = 0;
$main->Button(
-text => ' Click Me ',
-command => sub { $l->configure(-text => 'Number of clicks: '.(++$count).'.'); },
)->pack;
MainLoop();
=={{header|Python}}==
| |||