horizontal scrollbar doesn't work: an example

Here is an example of my problem:

Type some long line (longer than the width of the window) and some shorter, too
and then press F1 to test the behavior of the horizontal scrollbar and the
none wrapped right-side justified text. The scrollbar won't work. Why?

use Tk;
use Tk::Text;
use strict;

my $mw = MainWindow->new;
my $t = $mw->Scrolled('Text', -wrap => 'none')->pack(-side => 'bottom', -fill => 'both', -expand => 1);
$t->tagConfigure('right', -justify => 'right');
$t->bind('<Key-F1>' => sub {
    my $string = $t->get('1.0', 'end');
    chomp $string;
    $t->delete('1.0','end');
    $t->insert('end', $string,'right');});

MainLoop;

-----Original Message-----
From: Hidasi Zsolt 
Sent: Thursday, March 03, 2005 12:53 PM
To: '[email protected]'
Subject: horizontal scrollbar doesn't work in right justified text
widget


Hi,

Is there anybody who could help me in this subject:

horizontal scrollbar doesn't work in right justified text widget?

Thanks

Zsolt

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to [email protected]