# A label has height 1 and width equals string length package neb::Tree::Label; 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; my $length = length($self->attribute('text')); defined($self->SUPER::width) and $length == $self->SUPER::width or $self->SUPER::width($length); return $self->SUPER::width; } sub height { return 1; } 1;