in reply to Re: editable text + syntax for addTextFramePage
in thread editable text + syntax for addTextFramePage
which can be called asuse Tk::TextUndo; use Tie::Tk::Text; sub Tk::Wizard::_my_text_frame { #... my $t = $frame->Scrolled( "TextUndo", )->pack; if ( $args->{-variable} ) { tie @{$args->{-variable}}, 'Tie::Tk::Text', $t; } #... }
$wiz->_my_text_frame( { -title => 'editable text', -boxedtext => \$originaltext, -variable => \@editedtext } );
|
|---|