Sehr Umfangreiche Webseite zum Programmieren in C Perl CGI, Skripting, Linux, SystemprogrammierungPerl Perl Kurs Skripting Tk-Modul use Tk; Tcl/Tk Entry Tk Entry Steuerelement Perl Skript Tk-Modul Tk use Tk Perl mit dem Tk-Modul Teil 4

Steuerelement Entry          zurück zum Inhaltsverzeichnis

Jetzt verwenden Sie das Steuerelement Entry zur Eingabe von Text  ...

#!/usr/bin/perl -w

use strict;

use strict;

use Tk;

my $fenster = MainWindow->new;

my $eingabe = $fenster->Entry();
$eingabe->pack();

MainLoop;

So siehts aus (Linux/Unix):

Steuerelement Entry Linux/Unix

So siehts aus (MS Windows):

Steuerelement Entry MS Windows

Die Methode Entry bedarf in diesem Beispiel wohl keiner Erklärung. Nun will man aber auch mal eine Eingabe verarbeiten. Dazu werden Sie alle alle 3 bisher kennen gelernten Steuerelemente (Label,Button,Entry) in einem Programm verwenden ...

#!/usr/bin/perl -w

use strict;

use Tk;

my $fenster = MainWindow->new;

my $text=$fenster->Label("-text" => "Bitte geben sie Ihren Namen ein  : ",
                         "-height" => "5",
                         "-width"  => "40");

my $eingabe = $fenster->Entry();

my $schalter = $fenster->Button("-text" => "OK",
                                "-height" => "1",
                                "-width"  => "4",
                                "-command" =>  \&eingabe_bearbeiten);

my $schalter2 = $fenster->Button("-text" => "Ende",
                                 "-height" => "1",
                                 "-width"  => "4",
                                 "-command" => sub {exit 0});

$text->pack();
$eingabe->pack();
$schalter->pack();
$schalter2->pack();

MainLoop;

sub eingabe_bearbeiten {
 print "Hallo " . $eingabe->get , "\n";
 $eingabe->delete(0,100);
 #Löscht den Inhalt von Entry() ab Zeichen 0-100
}

So siehts aus (Linux/Unix):

Steuerelement Entry Linux/Unix

So siehts aus (MS Windows):

Steuerelement Entry MS Windows

Ich habe das Programm wieder so einfach wie nur möglich gehalten. Neu dürfte Ihnen der Button OK sein. Speziell die Option ...

"-command" => \&eingabe_bearbeiten

Hier sehen Sie nun eine Möglichkeit wie Sie Unterfunktionen aus den Steuerelementen aufrufen können. Im Fachjargon haben wir eine Callback-Funktion eingerichtet. Die Übersetzung ins deutsche erklärt  schon den Sinn dieser Funktion. Die Funktion wird aufgerufen und anschließend abgearbeitet und kehrt dann wieder zurück. Sie werden im Verlaufe dieses Tutorials noch mehr mit Callback-Funktionen zu tun haben.

In unserem Fall wird die Funktion eingabe_bearbeiten aufgerufen, die auf der Konsole ausgibt was Sie  in dem Fenster eingegeben haben und den Inhalt von Entry() im Fenster wieder löscht.

Mehr zu Entry : man Tk::Entry