use Tk;
use Tk::AbstractCanvas;


my $mw=MainWindow->new(-title=>'RotateText-Test');
my $w = $mw->screenwidth;
my $h = $mw->screenheight;
$mw->geometry( $w."x".$h);
$mw->resizable(1,1);


my $canvas = $mw->Scrolled('AbstractCanvas',
 -background => "white",
 -scrollbars => "osoe",
 -height => 0,
 -relief => "solid",
 -width => 0,
	-scrollregion=>[0,0,1,1],
	)->pack(-anchor=>'nw', -side=>'top', -fill=>'both', -expand=>1);



my $text = $canvas->createText(0,0,-anchor=>'center',-fill => 'red',-text => 'Hello Monks !!!',);
#my $text = $canvas->createText(2,10,-anchor=>'center',-fill => 'red',width => 1,-text => 'Hello Monks !!!',); ## this rotates but not the characters :(
$canvas->rotate($text,90,$x,$y);

$canvas->viewAll(); 


MainLoop; 
();