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