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;
}