GUI für kleine Programme gesucht (gelöst) - #156687 (Graphische Oberflächen)

hlubenow

2012-03-08 01:12

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Guest Markus
Welche Gui verwendet wird ist eigentlich egal (dank activestate jedoch kein TK, sondern mind. Tkx), auch Farbgebung und Co ist mir egal.

Verdammt, von Tkx hatte ich ja noch gar nichts gehört. Ich hatte eigentlich gehofft, daß Perl/Tk dauerhaft bestehenbleiben würde. Immerhin hat sich das schon sehr lange bewährt.

Ich kenne also nur Tk, hier ein Snippet zur Dateiauswahl:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

use Tk;
use Tk::FileSelect;
use Cwd;

my $mw = MainWindow->new();
$mw->title("Some Window");
my $button = $mw->Button(-text => "Choose file",
                         -command => sub {&selectFile($mw)});
$button->pack(-padx => 20, -pady => 20);
MainLoop();

sub selectFile {
    my $mw = shift;
    my $diag = $mw->FileSelect(-directory => getcwd());
    my $file = $diag->Show();
    print "Selected file is: $file.\n";
}

Vielleicht kannst/willst Du ja Tk doch noch nachinstallieren. Schwer zu sagen, ob Tk oder Tkx die Zukunft ist.

Edit: Wahrscheinlich ist Tk::FileDialog sogar noch etwas neuer und komfortabler als das hier verwendete Tk::FileSelect.
Last edited: 2012-03-08 01:18:22 +0100 (CET)