diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-09 16:01:00 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-09 16:01:00 +0000 |
| commit | bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce (patch) | |
| tree | 508433b3a3d1eea11fa8b96623b7cdde3616a01e /perl-install/mouse.pm | |
| parent | 2403c1c4d98749fbef5740c7dcaccc017da890a9 (diff) | |
| download | drakx-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.tar drakx-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.tar.gz drakx-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.tar.bz2 drakx-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.tar.xz drakx-bdd3c581cde1d9fed4cf5c42062a83cec3fbb1ce.zip | |
switch from gtk2-perl to gtk2-perl-xs
Diffstat (limited to 'perl-install/mouse.pm')
| -rw-r--r-- | perl-install/mouse.pm | 5 |
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 }); } }; |