|
sub set { my ($self, $text) = @_; $text = "" unless defined $text; if ($text ne $self->{text}) { $self->{text} = $text; $self->update(); } } sub append { my ($self, $text) = @_; if (defined ($text) && $text ne "") { $self->{text} .= $text; $self->update(); } } 1; |
Mit set oder append ist es möglich, den
aktuellen Zustand des Text-Modells sichtbar zu verändern.
Entsprechend ist es notwendig, die Methode update
jeweils anschließend aufzurufen, um Änderungen an die
Viewer weiterzugeben.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |