From 79bcb7783916ecd828626865dd3cfed2d0ba8684 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 30 Jul 2008 13:18:52 +0000
Subject: (_gtk) fix moving to position at install time with matchbox window
 manager

---
 perl-install/mygtk2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index cfcd1cd52..e6ea6d493 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -111,7 +111,7 @@ sub _gtk {
 
     $w->set_size_request(delete $opts->{width} || -1, delete $opts->{height} || -1) if exists $opts->{width} || exists $opts->{height};
     if (my $position = delete $opts->{position}) {
-	$w->move($position->[0], $position->[1]);
+	$w->move($position->[0] /2, $position->[1] /2);
     }
     $w->set_name(delete $opts->{widget_name}) if exists $opts->{widget_name};
     $w->can_focus(delete $opts->{can_focus}) if exists $opts->{can_focus};
-- 
cgit v1.2.1