/[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.3 by jlenton, Wed Apr 9 19:59:22 2003 UTC revision 1.4 by jlenton, Wed Apr 9 23:52:49 2003 UTC
# Line 29  sub new Line 29  sub new
29      return $self;      return $self;
30  }  }
31    
32  sub free  sub location
33  {  {
34      my $self = shift;      my $self = shift;
35      $self->parent->remove($self);      my $location = shift;
36    
37        $self->{LOCATION} = $location
38            if defined $location;
39    
40        return $self->{LOCATION} or '';
41  }  }
42    
43  sub code  sub code

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