Next February 2001 Slide #43

Delegation

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


Next Copyright © 2001 M-J. Dominus