MVC::Viewer::ROText II

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis]

MVC::Viewer::ROText.pm
sub InitObject {
   my ($self, $args) = @_;
   my $model = undef;
   if (defined($args->{'-model'})) {
      $model = $args->{'-model'};
      delete $args->{'-model'};
   }
   $self->SUPER::InitObject($args);
   $self->init($model);
   $self->update($model);
}

sub update {
   my ($self, $model) = @_;
   $self->delete('1.0', 'end');
   $self->insert('end', $model->get());
   $self->see('end');
}

1;

*Bei den von Tk::Widget abgeleiteten Modulen geht die Initialisierungskette nicht über die Methode init, sondern über InitObject. Dies ist ein glücklicher Umstand, da es sonst bei multiple inheritance nicht ganz einfach ist, alle beteiligten Klassen an der Initialisierung teilhaben zu lassen.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000