| # | Line 15 | Line 15 | |
|---|---|---|
| 15 | # within the current tree | |
| 16 | # name() : return the name of the object | |
| 17 | ||
| 18 | < | package TreeNode; |
| 18 | > | package ActiveDoc::TreeNode; |
| 19 | require 5.001; | |
| 20 | use ActiveDoc::TreeMonkey; | |
| 21 | use Utilities::List; | |
| # | Line 26 | Line 26 | sub new { | |
| 26 | $self={}; | |
| 27 | bless $self, $class; | |
| 28 | $self->{name}=$name; | |
| 29 | < | $self->{nodelist}=List->new(); |
| 30 | < | $self->{monkey}=TreeMonkey->new(); |
| 29 | > | $self->{nodelist}=Utilities::List->new(); |
| 30 | > | $self->{monkey}=ActiveDoc::TreeMonkey->new(); |
| 31 | $self->{parent}="/"; | |
| 32 | return $self; | |
| 33 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |