# A Scrollbar has a width of 1 package neb::Tree::Scrollbar; use strict; use English; use Carp; use neb::Tree::Node; use neb::Tree::Container; use neb::Tree::Tag; use neb::Tree::ScreenObject; our @ISA = ('neb::Tree::ScreenObject'); sub width { my $self = shift; defined($self->SUPER::width) and 1 == $self->SUPER::width or $self->SUPER::width(1); return $self->SUPER::width; } 1;