Opened by ahnungsloser at 2004-07-07 22:02
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
Hm. Interessanterweise haben bei mir weder xviewMoveto() noch xviewScroll() irgendetwas sichtbares gemacht, obwohl der Text laenger als das Widget war.
Aber man kann sich ja auch mit einem "Poor Man's Ticker" behelfen. :)
Nur das -expand => 1 hat bei meinem Label irgendwie keine Auswirkungen ... komisch.
Aber man kann sich ja auch mit einem "Poor Man's Ticker" behelfen. :)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $Text = 'Dies ist ein langer Text, der im Label gescrollt wird. ';
my $Mw = MainWindow->new(-title => 'TkTicker');
my $LabelW = $Mw->Label(-textvariable => \$Text)->pack(-expand => 1, -fill => 'x');
$Mw->repeat (100, \&tick);
$Mw->MainLoop;
sub tick {
my $width = $LabelW->cget('width');
return unless $width < length $Text;
$Text = substr($Text,1,length($Text)-1) . substr($Text,0,1);
}
Nur das -expand => 1 hat bei meinem Label irgendwie keine Auswirkungen ... komisch.