From b8feee1e1e0883126b2e905a6f4dbf5d38546f80 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 18 Nov 2003 21:14:20 +0000 Subject: smaller wizard window in move --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 2c187dcd1..f228b39ff 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -837,7 +837,7 @@ sub new { if ($::isInstall) { $::WizardTable->set_size_request($::windowwidth * 0.90, $::windowheight * ($::logoheight ? 0.73 : 0.9)); - $::WizardWindow->set_uposition($::stepswidth + $::windowwidth * 0.04, $::logoheight + $::windowheight * ($::logoheight ? 0.12 : 0.05)); + $::WizardWindow->set_uposition($::stepswidth + $::windowwidth * 0.04 + ($::move && 50), $::logoheight + $::windowheight * ($::logoheight ? 0.12 : 0.05)); $::WizardWindow->signal_connect(key_press_event => sub { my (undef, $event) = @_; my $d = ${{ $Gtk2::Gdk::Keysyms{F2} => 'screenshot' }}{$event->keyval}; -- cgit v1.2.1