3 |
use Carp; |
use Carp; |
4 |
use English; |
use English; |
5 |
use neb; |
use neb; |
6 |
|
use XML::Parser; |
7 |
|
use neb::LayoutParser; |
8 |
|
|
9 |
our @ISA = qw'neb'; |
our @ISA = qw'neb'; |
10 |
|
|
25 |
{ |
{ |
26 |
my $self = shift; |
my $self = shift; |
27 |
|
|
28 |
$_->auto_align |
# We assume that all top-level screen objects start at (1,1) |
29 |
foreach ($self->parse->screen_children); |
# (There can be only one form, anyway...) |
30 |
|
$_->lam_x(1), $_->lam_y(1), $_->auto_align |
31 |
|
foreach (grep {ref} $self->parse->screen_children); |
32 |
|
|
33 |
$self->parse->cleanup; |
$self->parse->cleanup; |
34 |
|
|