Thread Perl Tk Dialog: automatischer Zeilenumbruch (5 answers)
Opened by micha_ at 2006-09-20 18:12

micha_
 2006-09-20 18:12
#45844 #45844
User since
2006-09-20
1 Artikel
BenutzerIn
[default_avatar]
Hi Leute, ich hätte da ein Problem mit dem Widget Dialog. Und zwar wird mir der Text, den ich über die Option -text übergebe immer bei der 27. Stelle automatisch umgebrochen. Hab schon versucht das Dialogfenster zu vergössern und die Schrift zu verkleinern hat aber nix geholfen.

Hier der Code (Auszug):
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
my $dialog;
$dialog=$mw->Dialog(-title=> "Mein Dialog",
-bitmap=> 'warning',
-buttons=>["Yes","No"],
-width=>60,
-height=>20,
-font=>'Helvetica 12');

my $text="ein seeeeeeeeeeeeeeeeeeeeeeeeeeeeeehr langer Text";
$dialog->configure(-text=>"$text");
$dialog->Show();

Auf dem Dialog siehts dann so aus (nur Beispielhaft):

ein
seeeeeeeeeee
eeeeehr langer
Text

Eine weitere allgemeine Frage im Zusammenhang mit Perl Tk. Wie finde ich eigentlich die möglichen Optionen (und die möglichen Parameter für die Optionen) für ein Widget. Habe zum Beispiel nix gefunden, als ich für die Option -bitmap die möglichen Werte in der Dokumentation gesucht habe (zB. mit >man Tk::Dialog). Oder die Möglichkeit auch -font als Option für Dialog zu verwenden, hab ich erst im Web gefunden. Ich vermute das hängt mit der Vererbung zusammen
oder? Aber wie komme ich anhand der Doku darauf, gibt es vielleicht so eine Doku wie bei Java, wo klar herauszusehen ist wovon ein Element seine Fähigkeiten erbt. Ich bin noch einer ziemlicher Frischling bezüglich Perl und könnte da ein bisschen Hilfe zur Selbsthilfe gebrauchen.

Danke schonmal im Voraus\n\n

<!--EDIT|micha_|1158761593-->

View full thread Perl Tk Dialog: automatischer Zeilenumbruch