# This is a vbox that draws a line around itself package neb::Tree::ScreenVBox; use strict; use English; use Carp; use neb::Tree::Node; use neb::Tree::Container; use neb::Tree::Tag; use neb::Tree::ScreenObject; use neb::Tree::LayoutBox; use neb::Tree::VBox; our @ISA = ('neb::Tree::VBox'); # The line uses up a row/column on each side of the box sub contents_width { my $self = shift; return $self->SUPER::contents_width+2; } sub contents_height { my $self = shift; return $self->SUPER::contents_height-2; } sub contents_origin_x { my $self = shift; return $self->SUPER::contents_origin_x+1; } sub contents_origin_y { my $self = shift; return $self->SUPER::contents_origin_y+1; } 1;