Leser: 2
2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!perl
use strict;
use warnings;
use Tk;
use Perl6::Say;
use Data::Dumper qw/Dumper/;
my $mw = tkinit();
my $f = $mw->Frame()->pack();
my $e1 = $f->Entry()->pack();
my $e2 = $f->Entry()->pack();
my $b = $f->Button( -text => 'bla', -command => sub{
say Dumper $f->children();
})->pack();
$mw->MainLoop();
2 Einträge, 1 Seite |