# This is a box that draws a line around itself package neb::Tree::ScreenBox; 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; our @ISA = ('neb::Tree::LayoutBox'); # The line uses up a row/column on each side of the box sub contents_width { my $self = shift; return $self->SUPER::contents_width-3; } sub contents_height { my $self = shift; return $self->SUPER::contents_height-2; } # Screen boxes have a local coordinate system sub contents_origin_x { return 1; } sub contents_origin_y { return 1; } 1;