Re^2: Perl tk [ Tk::Text -justify option is not working

Hi.. I used Text widget so I wrote my code like.

$align -> command(-label =>"Left",-command=>sub
{
     #$txt->configure( -justify =>'left');
     $txt->tagConfigure('left', -justify => 'left');
}   );

$align -> command(-label =>"Right",-command=>sub
{
    #$txt->configure(-justify=>'right');
    $txt->tagConfigure('right', -justify => 'right');
}   );

$align -> command(-label =>"Center",-command=>sub
{
     #$txt->configure(-justify=>'center');
     $txt->tagConfigure('center', -justify => 'center');
}  );
[download]

but the text in the Text widget are not aligned to left,right or center.
How can I achieve the text alignment option in Text widget?

Comment on Re^2: Perl tk [ Tk::Text -justify option is not working Download Code

Replies are listed 'Best First'.
Re^3: Perl tk [ Tk::Text -justify option is not working by zentara (Cardinal) on Aug 02, 2010 at 17:48 UTC
I don't see a running code example, but the Tk demo "widget" has a text example which shows centered tag usage. `$t->tag(qw/configure center -justify center/);` [download] I'm not really a human, but I play one on earth. Old Perl Programmer Haiku	[reply] [d/l]