Thread [Tk] GUI für eine Konsolenanwendung implementieren (27 answers)
Opened by vitek at 2014-03-28 14:24

hlubenow
 2014-03-31 23:11
#174559 #174559
User since
2009-02-22
875 articles
BenutzerIn
[default_avatar]
Leider hast Du noch nicht verstanden, was ich zu erklären versucht habe.
In Perl/Tk verarbeitet man Textausgaben mit einem Tk::Text-Widget, Texteingaben mit einem Tk::Entry-Widget. Beispiel:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl

use warnings;
use strict;

use Tk;
my $mw = Tk::MainWindow->new();
$mw->title("Window");
$mw->optionAdd("*font", "Arial 15 normal");
my $text = $mw->Text(-width => 80, -height => 10,
                         -fg => 'black', -bg => 'white');
$text->pack(-padx => 10, -pady => 10);
my $eingabe = $mw->Entry(-width => 60, -fg => 'black', -bg => 'white');
$eingabe->bind("<Return>", sub { processInput($eingabe, $text);} );
$eingabe->focus();
$eingabe->pack(-pady => 10);
$mw->MainLoop();

sub processInput {
    my $eingabe = shift;
    my $text = shift;
    my $s = $eingabe->get();
    $eingabe->delete(0, "end");
    $text->insert("end", "$s\n");
}

Last edited: 2014-03-31 23:15:21 +0200 (CEST)

View full thread [Tk] GUI für eine Konsolenanwendung implementieren