… | … | ||
---|---|---|---|
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 |