|
MVC/Model/Text.pm |
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, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |