Select Code to Download

use Tk::TextUndo;
use Tie::Tk::Text;
...
 }
#...
}

$wiz->_my_text_frame(
 {
...
   -variable => \@editedtext
 }
);