October 22nd, 2008, 10:06 AM
|
 | Expert | | Join Date: Dec 2007
Posts: 400
Provided Answers: 1 | |
| re: how to make readonly text area in perl
Please be more clear while posting questions. If you are referring to Textbox in Perl-Tk, you can set this by using the '-state' option. After inserting required data in textbox, you may configure the state as 'disabled'. E.g. -
my $tx= $fr->Scrolled( 'Text', '-scrollbars' => 'e', '-background' => 'white',
-
)->pack( -fill => 'both', -expand => 1, -side => 'bottom' );
-
$tx->insert('insert', "characters of line1\n");
-
$tx->insert('insert',"characters of line2\n"');
-
$tx->insert('insert',"characters of line3\n");
-
$tx->insert('insert',"characters of line4\n");
-
$tx->configure('-state'=> 'disabled'); ## set the state as disabled (non-editable)
-
-
- Nithin
|
