/[papo]/papo/neb/neb/Tree/Node.pm
ViewVC logotype

Diff of /papo/neb/neb/Tree/Node.pm

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

revision 1.2 by jlenton, Wed Apr 9 15:29:14 2003 UTC revision 1.3 by jlenton, Wed Apr 9 19:59:22 2003 UTC
# Line 29  sub new Line 29  sub new
29      return $self;      return $self;
30  }  }
31    
 sub parent  
 {  
     my $self = shift;  
     my $parent = shift;  
     $self->{PARENT} = $parent  
         if (defined $parent);  
   
     return $self->{PARENT};  
 }  
   
32  sub free  sub free
33  {  {
34      my $self = shift;      my $self = shift;
35      $self->parent->remove($self);      $self->parent->remove($self);
36  }  }
37    
 sub bind_parent  
 {  
     my $self = shift;  
   
     $self->parent(@_);  
     $self->parent->add_content($self);  
   
     return $self->parent;  
 }  
   
38  sub code  sub code
39  {  {
40      my $self = shift;      my $self = shift;

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

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