#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Text;
use strict;

my $mw = MainWindow->new;
my $t = $mw->Scrolled('Text', -scrollbars=> 'se', 
                -height=> 5, 
		-background =>'white', 
		-wrap => 'none')
		->pack(-side=>'bottom', -fill=> 'both', -expand=> '1');

$t->tagConfigure('right', -justify => 'right');
$t->insert('end',"This is a right justified, none wrapping text.\n",'right');
$t->insert('end','Try to type some text over the left edge of the window here: ','right');
$t->focus;
MainLoop;