From 165f437ab7fe376afebe65ee3b7b6257e7be95b7 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 19 Aug 2008 14:56:10 +0000 Subject: (_gtk) revert r243693 from 2008-07-30 (was: "(_gtk) fix moving to position at install time with matchbox window manager") rationale: better fix position which will prevent flickering as a nice side effect --- perl-install/mygtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/mygtk2.pm') diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 53e8bbb22..f654b18da 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] /2, $position->[1] /2); + $w->move($position->[0], $position->[1]); } $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