renee+2007-09-13 12:18:41--

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit;
my $var = "test";

my $entry = $mw->Entry( -textvariable => \$var )->pack;
$entry->bind( '<Return>', \&aufruf );

MainLoop;

sub aufruf{
    print "Hallo ",$entry->get,"\n";
}

Ach ja klar, Return und nicht Enter.... *KopfAufTisch*