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) . ')$'; |