my ($border,$width,$height) =
    $self->{border},
      $self->$w(),
    $self->$b();

##</code><code>##

    my($border,$width,$height) =
        ($self->{border}, $w->($self), $b->($self));