Thread Probleme mit bind events: bind klappt nicht (12 answers)
Opened by Hellmaker at 2005-10-18 15:14

renee
 2005-10-18 17:22
#44792 #44792
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das funktioniert:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl

use strict;

use warnings;
use Tk;

my $mw = MainWindow -> new();
my $text = $mw -> Text() -> pack();
$mw -> bind( "<Alt-Key-o>" => sub { print "funktioniert\n" } );

MainLoop;


getestet auf
WinXP
Perl 5.8.6
Tk 804.027
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/

View full thread Probleme mit bind events: bind klappt nicht