summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-27 10:58:06 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-27 10:58:06 +0000
commit69907ed1e861483d4063a1eec3662690681651a7 (patch)
tree57be1d65269228481701e476bcf25c4a06ba6366 /perl-install/my_gtk.pm
parent0a2ecf8b913dea899159f455cd5b9db7d39e6031 (diff)
downloaddrakx-69907ed1e861483d4063a1eec3662690681651a7.tar
drakx-69907ed1e861483d4063a1eec3662690681651a7.tar.gz
drakx-69907ed1e861483d4063a1eec3662690681651a7.tar.bz2
drakx-69907ed1e861483d4063a1eec3662690681651a7.tar.xz
drakx-69907ed1e861483d4063a1eec3662690681651a7.zip
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm4
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);