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.12 by pcg, Sun Jun 1 10:13:28 2003 UTC vs.
Revision 1.13 by pcg, Sun Jun 1 11:02:41 2003 UTC

… …
99 &$method; 99 &$method;
100} 100}
101 101
102sub destroy { 102sub destroy {
103 my ($self) = @_; 103 my ($self) = @_;
104 warn "destroy($self) (completely harmless debug cruft argl)\n";#d#
104 105
105 for (keys %$self) { 106 for (keys %$self) {
106 (delete $self->{$_})->destroy 107 (delete $self->{$_})->destroy
108 if UNIVERSAL::can ($self->{$_}, "destroy");
107 if (UNIVERSAL::isa ($self->{$_}, Glib::Object) 109# if (UNIVERSAL::isa ($self->{$_}, Glib::Object)
108 && UNIVERSAL::isa ($self->{$_}, gtk::widget)) 110# && UNIVERSAL::isa ($self->{$_}, gtk::widget))
109 && $self->{$_}->can("destroy"); 111# && $self->{$_}->can("destroy");
110 } 112 }
111} 113}
112 114
113sub DESTROY { 115sub DESTROY {
114 my ($self) = @_; 116 my ($self) = @_;
117 warn "DESTROY($self) (completely harmless debug cruft argl)\n";#d#
115} 118}
116 119
117package gtk::text; 120package gtk::text;
118 121
119use base gtk::widget; 122use base gtk::widget;

Diff Legend

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