February 2001

Slide #43

Delegation

        package Widget;

        sub expose {
          my ($self) = @_;
          $self->redraw;
          my @subwidgets = @{$self->subwidgets};
          for my $sw (@subwidgets) {
            $sw->expose;
          }
        }