TK: Sub-Aufruf aus button nur ohne Parameter mögl?: $frame->Button(... -command => $sub) - #45535 (Graphische Oberflächen)

renee

2006-06-01 16:12

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=Ishka,01.06.2006, 13:56]wobei man bedenken muß, das der erste Parameter in der Sub dann $frmBtnR3 ist und erst der zweite "Login".[/quote]
nö... Das ist - soweit ich weiß - nur bei bind so...

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();
$mw->Button(-command => [\&change_text,"test"], -text => 'Drueck mich')->pack();

MainLoop;

sub change_text{
    print $_,"\n" for(@_);
}

Nach einem Buttonklick:

Code: (dl )

1
2

C:\>tk.pl
test

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/