diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
| commit | 69907ed1e861483d4063a1eec3662690681651a7 (patch) | |
| tree | 57be1d65269228481701e476bcf25c4a06ba6366 /perl-install/my_gtk.pm | |
| parent | 0a2ecf8b913dea899159f455cd5b9db7d39e6031 (diff) | |
| download | drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.gz drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.bz2 drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.xz drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.zip | |
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 887bc3e0f..55cf17094 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -59,14 +59,14 @@ sub destroy($) { sub DESTROY { goto &destroy } sub sync($) { my ($o) = @_; - $o->show; + show($o); my $h = Gtk->idle_add(sub { Gtk->main_quit; 1 }); map { Gtk->main } (1..4); Gtk->idle_remove($h); } sub flush(;$) { - Gtk->main_iteration while Gtk::Gdk->events_pending; + Gtk->main_iteration while Gtk->events_pending; } sub bigsize($) { $_[0]{rwindow}->set_usize(600,400); |