sub edit_text
{
        my ($self, $text) = @_;
$self->{password} =  $text;
        $self-> begin_undo_group;
        $self-> push_undo_action( 'edit_text', $self->text);
        $self-> text($text);
        $self-> end_undo_group;
} 

##</code><code>##

     $self->{password} =  $cap;
        
        $cap = $self-> {passwordChar} x length $cap if $self-> {writeOnly};
        $self-> {wholeLine} = $cap;