/[papo]/papo/neb/lam.pm
ViewVC logotype

Diff of /papo/neb/lam.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by jlenton, Mon Apr 14 22:31:39 2003 UTC revision 1.2 by fheinz, Tue Apr 15 14:36:05 2003 UTC
# Line 3  use strict; Line 3  use strict;
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    
# Line 23  sub execute Line 25  sub execute
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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26