summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-09 16:01:00 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-09 16:01:00 +0000
commitbdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce (patch)
tree508433b3a3d1eea11fa8b96623b7cdde3616a01e /perl-install/mouse.pm
parent2403c1c4d98749fbef5740c7dcaccc017da890a9 (diff)
downloaddrakx-backup-do-not-use-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.tar
drakx-backup-do-not-use-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.tar.gz
drakx-backup-do-not-use-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.tar.bz2
drakx-backup-do-not-use-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.tar.xz
drakx-backup-do-not-use-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.zip
switch from gtk2-perl to gtk2-perl-xs
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 63787d556..0a0a0503c 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -456,7 +456,6 @@ sub test_mouse {
($darea->allocation->width-$w)/2,
($darea->allocation->height-$height)/2 + $y,
$layout);
- $layout->unref;
};
my $draw_pixbuf = sub {
my ($p, $x, $y, $w, $h) = @_;
@@ -501,8 +500,8 @@ sub test_mouse {
$draw_pixbuf->($xpms{ad}, 102, 131, 6, 8);
}
$draw_pixbuf->($xpms{middle}, 98, 67, 13, 62);
- $timeout and Gtk2->timeout_remove($timeout);
- $timeout = Gtk2->timeout_add(100, sub { $drawarea->(); $timeout = 0; 0 });
+ $timeout and Glib::Source->remove($timeout);
+ $timeout = Glib::Timeout->add(100, sub { $drawarea->(); $timeout = 0; 0 });
}
};