Leser: 15
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!perl
use strict;
use warnings;
use utf8;
use Tk;
my $mw = Tk::MainWindow->new();
$mw->Label(
-text => 'bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla',
)->pack(-fill => 'both', -expand => 1,);
$mw->MainLoop();
2012-06-21T10:05:44 Molafein ROText nehmen ... - unschön, auch weil es den Cursor und den Eingabefokus fangen kann.
2012-06-22T06:25:08 MolafDas Verhalten von Label soll doch emuliert werden - Cursor setzen zum Kopieren ist aber kein Feature von Label (auch wenn ich es nicht schlimm fände).
2012-06-21T09:17:20 pktmHi!
Ist es möglich, dass ein Text in einem Label automatisch umbricht, wenn dessen Größe geändert wird?
Wenn ich das Fenster kleiner mache, möchte ich gerne, dass der Text automatisch umbricht.
Wie geht sowas? Oder muss ich dafür ein anderes Widget nehmen?
1 2
my $tx = $mw->Text()->pack(-fill => 'both', -expand => 1,); $tx->insert('end', 'bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla');