Button - #45110 (Graphische Oberflächen)

renee

2003-11-17 11:39

User since
2003-08-04
14371 Artikel
ModeratorIn

Also so kommst Du beim Drücken der Maustaste in die Schleife:

Code: (dl )

#! /usr/bin/perl

use Tk;

$bool = 1;

my $window = MainWindow->new();
my $button = $window->Button(-text => 'Drück mich');
$button->bind("<ButtonPress-1>",sub{while($bool){print "Hello";}});
$button->pack();

MainLoop;

Wie man das bei einem ButtonRelease wieder beendet, weiß ich auch nicht so genau, aber vielleicht hilft bald dieser Thread weiter...\n\n

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/