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