Perl Tk

Hi..

Now I am using Perl Tk, I used the Text widget, for getting user comments or Description.

I want to justify the text, like left, right and center,

for me I faced some problem in handling "-justify" option in Text widget.

It showed Bad option in "-justify" option.

Note : I am using Perl v5.8.8.


My Code

Code:

$txt = $mw->Text( -background =>'white',
                  -width=>400,
                  -height=>300,
                  -spacing1 => 1,
                  -justify=>'left', #This option is not working for me.
                  -selectbackground => 'skyblue',
                  -insertwidth => 5,
                  -borderwidth =>3,
                  -highlightcolor => 'blue',        ### after visit
                  -highlightbackground => 'red' ,   ### default before visit
                  -padx => 5,
                  -pady => 5,
              )-> pack ();
$txt->focus();

Error Message

Bad option `-justify' at /usr/lib/perl5/Tk/Widget.pm line 205.
at Tk_sample.pl line 182
malformed bucket chain in Tcl_DeleteHashEntry

How can I solve this problem?

 

try googleing the error, if no help shows up, then maybe look for a widget.pm patch. if you cant get one then look for an alternative to justify=>