Hi. I really appriciate your help. It worked for me. 16.05.2017, 20:29, "Shlomi Fish" <shlo...@shlomifish.org>:
> Hi! > > On Tue, 16 May 2017 20:11:52 +0900 > Masayoshi Fujimoto <m.fujim...@yandex.ru> wrote: > >> Hi. >> >> I would like to get $celebrity. >> >> How should I do? > > I have modified your code based on > https://metacpan.org/pod/distribution/Tk/pod/Entry.pod to get what seems to be > the desired result: > > « ««««««««««««««««« > #!/usr/local/bin/perl > > use strict; > > use warnings; > > use autodie; > > use v5.10; > > use Tk; > > my $top = MainWindow->new(); > > my $f1 = $top->Frame()->pack(); > > my $f2 = $top->Frame()->pack(); > > $f1->Label(-text => "Celebrity:")->pack(-side => "left"); > > my $celebrity = $f1->Entry(); > > $celebrity->pack(-side => "left"); > > my $name = "Ayumi Kinoshita"; > > $f2->Button(-text => "OK",-command => [ \&onButton, > $celebrity,$name])->pack(-side => "left"); > > $f2->Button(-text => "Cancel",-command => sub {exit;})->pack(); > > MainLoop(); > > sub onButton { > > my ($celebrity,$name) = @_; > > say $celebrity; > > say $name; > > say "Celebrity string = <", $celebrity->get(), ">"; > > } > > »»»»»»»»»»»»»»»»» > > One note is http://perl-begin.org/tutorials/bad-elements/#prototypes , > otherwise your code seems pretty solid. > > Regards, > > Shlomi -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
