see plug-ins/perl/Changes

1999-12-10 20:51:58 +00:00
parent bacd04b48b
commit 4f1e315aba
12 changed files with 226 additions and 300 deletions
--- a/plug-ins/perl/UI/UI.pm
+++ b/plug-ins/perl/UI/UI.pm
@ -127,6 +127,7 @@ sub GTK_OBJECT_GET_ARG {
 }

 sub GTK_OBJECT_INIT {
+   shift unless ref $self; # care for "old" Gtk modules
   my $self = shift;
   (my $label = new Gtk::Label "")->show;
   $self->add($label);