Select Code to Download

 sub edit_text
{
        my ($self, $text) = @_;
...
        $self-> text($text);
        $self-> end_undo_group;
}

     $self->{password} =  $cap;
        
        $cap = $self-> {passwordChar} x length $cap if $self-> {writeO
+nly};
        $self-> {wholeLine} = $cap;