ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/ActiveDoc/TreeNode.pm
(Generate patch)

Comparing COMP/SCRAM/src/ActiveDoc/TreeNode.pm (file contents):
Revision 1.1 by williamc, Wed Aug 18 15:38:29 1999 UTC vs.
Revision 1.3 by williamc, Mon Sep 20 16:27:58 1999 UTC

# Line 6 | Line 6
6   # -----------
7   # new(name)             : The name is just a plain string
8   # setparent(parentnode) : Set the parent node
9 < # getparent()           : return the parent node
9 > # parent()              : return the parent node
10   # grow(node)            : grow a new node extending from this node
11   # nodeList()            : return a list of attatched nodes
12   # setassociate(Object)  : Associate node with an object reference
# 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;
22  
23   sub new {
24          my $class=shift;
# Line 23 | Line 26 | sub new {
26          $self={};
27          bless $self, $class;
28          $self->{name}=$name;
29 <        $self->{nodelist}=List->(new);
30 <        $self->{monkey}=TreeMonkey->new();
31 <        $self->{parent}="";
29 >        $self->{nodelist}=Utilities::List->new();
30 >        $self->{monkey}=ActiveDoc::TreeMonkey->new();
31 >        $self->{parent}="/";
32          return $self;
33   }
34  
# Line 34 | Line 37 | sub setparent() {
37          $self->{parent}=shift;
38   }
39  
40 < sub getparent() {
40 > sub parent() {
41          my $self=shift;
42          return $self->{parent};
43   }
# Line 48 | Line 51 | sub grow {
51  
52   sub nodeList {
53          my $self=shift;
54 <        return $self->{nodelist}
54 >        return $self->{nodelist};
55   }
56  
57   sub associate {
# Line 61 | Line 64 | sub setassociate {
64          $self->{associate}=shift;
65   }
66  
67 + sub name {
68 +        my $self=shift;
69 +        return $self->{name};
70 + }
71 +
72   #
73   # find -
74   #
# Line 69 | Line 77 | sub find {
77          my $string=shift;
78          
79          # get our tree monkey to do the job
80 <        $self-{monkey}->goto($self); #start at this node
81 <        $self->{monkey>->find{$string};
80 >        $self->{monkey}->goto($self); #start at this node
81 >        $self->{monkey}->find($string);
82   }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines