| … | … | ||
|---|---|---|---|
| 119 | sub set_max_para { | 119 | sub set_max_para { |
| 120 | my ($self, $max_par) = @_; | 120 | my ($self, $max_par) = @_; |
| 121 | $self->{txt}{max_par} = $max_par; | 121 | $self->{txt}{max_par} = $max_par; |
| 122 | } | 122 | } |
| 123 | 123 | ||
| 124 | sub clear { | ||
| 125 | my ($self) = @_; | ||
| 126 | $self->{txt}->clear; | ||
| 127 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |