$wiz->_my_text_frame(
 {
   -title     => 'editable text',
   -boxedtext => \$originaltext,
   -variable => \@editedtext
 }
);