ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/gtk.pl
(Generate patch)

Comparing kgsueme/kgsueme/gtk.pl (file contents):
Revision 1.26 by pcg, Sat Jun 28 04:26:15 2003 UTC vs.
Revision 1.27 by pcg, Tue Jul 22 21:45:44 2003 UTC

… …
131} 131}
132 132
133sub destroy { 133sub destroy {
134 my ($self) = @_; 134 my ($self) = @_;
135 warn "destroy($self)";#d# 135 warn "destroy($self)";#d#
136
137 delete $self->{app};
136 138
137 for (keys %$self) { 139 for (keys %$self) {
138 warn "$self->{$_} destroy" if UNIVERSAL::can ($self->{$_}, "destroy"); 140 warn "$self->{$_} destroy" if UNIVERSAL::can ($self->{$_}, "destroy");
139 (delete $self->{$_})->destroy 141 (delete $self->{$_})->destroy
140 if UNIVERSAL::can ($self->{$_}, "destroy"); 142 if UNIVERSAL::can ($self->{$_}, "destroy");

Diff Legend

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