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

Diff of /papo/neb/neb/LayoutParser.pm

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

revision 1.3 by fheinz, Tue Apr 15 14:36:05 2003 UTC revision 1.4 by fheinz, Tue Apr 15 21:21:32 2003 UTC
# Line 8  use neb::Tree::Stuff; Line 8  use neb::Tree::Stuff;
8  use neb::Tree::Perl;  use neb::Tree::Perl;
9  use neb::Tree::Block;  use neb::Tree::Block;
10  use neb::Tree::Vars;  use neb::Tree::Vars;
11    use neb::Tree::ScreenObject;
12    use neb::Tree::Form;
13    use neb::Tree::Label;
14    use neb::Tree::Scrollbar;
15    use neb::Tree::RepeatableScreenObject;
16    use neb::Tree::Button;
17  use neb::Tree::LayoutBox;  use neb::Tree::LayoutBox;
18  use neb::Tree::HBox;  use neb::Tree::HBox;
19  use neb::Tree::VBox;  use neb::Tree::VBox;
20  use neb::Tree::VolatileHBox;  use neb::Tree::VolatileHBox;
21  use neb::Tree::VolatileVBox;  use neb::Tree::VolatileVBox;
22    use neb::Tree::ScreenVBox;
23    
24  # esto engancha como se llaman las clases con como se llaman los tags  # esto engancha como se llaman las clases con como se llaman los tags
25  # que invocan las clases.  # que invocan las clases.
26  my %classes = ( 'lam:hbox' => 'VolatileHBox',  my %classes = ( 'lam:hbox' => 'VolatileHBox',
27                  'lam:vbox' => 'VolatileVBox',                  'lam:vbox' => 'VolatileVBox',
28                  'form' => 'VBox',                  'form' => 'Form',
29                    'page' => 'VBox',
30                    'box' => 'ScreenVBox',
31                  'label' => 'ScreenObject',                  'label' => 'ScreenObject',
32                  'entry' => 'ScreenObject',                  'scrollbar' => 'Scrollbar',
33                  'button' => 'ScreenObject',                  'entry' => 'RepeatableScreenObject',
34                  'label' => 'ScreenObject');                  'button' => 'Button',
35                    'label' => 'Label');
36    
37  # create a regexp to find out whether we handle a given tag  # create a regexp to find out whether we handle a given tag
38  my $handled_tags = '^(' . join("|", map quotemeta, keys %classes) . ')$';  my $handled_tags = '^(' . join("|", map quotemeta, keys %classes) . ')$';

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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