Parent Directory | Revision Log | 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; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |