summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-05-10 09:06:25 +0000
committerOlivier Blin <oblin@mandriva.org>2005-05-10 09:06:25 +0000
commitdf251f10157256275dd4910c4a4261854b4ca7fa (patch)
tree47c39149375a4e13dc533109eee619830c6cb4ef /perl-install
parent1b191913819100a0e449c2a5e2e6cf4dbed45e01 (diff)
downloaddrakx-df251f10157256275dd4910c4a4261854b4ca7fa.tar
drakx-df251f10157256275dd4910c4a4261854b4ca7fa.tar.gz
drakx-df251f10157256275dd4910c4a4261854b4ca7fa.tar.bz2
drakx-df251f10157256275dd4910c4a4261854b4ca7fa.tar.xz
drakx-df251f10157256275dd4910c4a4261854b4ca7fa.zip
shrink preview window on resolution change
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksplash4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 94fdb26c7..b50153e50 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -12,6 +12,7 @@ my $in = 'interactive'->vnew('su');
my $window = ugtk2->new('DrakSplash');
$window->{rwindow}->signal_connect(delete_event => \&close_window);
+my $preview_window = ugtk2->new('DrakSplash');
my $current_rect = [];
my $current_point;
@@ -80,7 +81,7 @@ gtkadd($window->{window},
gtkpack(Gtk2::HBox->new(0, 5),
gtksignal_connect(Gtk2::Button->new(N("Save theme")), clicked => \&save_theme),
gtksignal_connect(Gtk2::Button->new(N("Quit")), clicked => \&close_window)))),
-gtkshow(gtkadd(Gtk2::Window->new('toplevel'), $image_area));
+gtkshow(gtkadd($preview_window->{window}, $image_area));
update_scale_values();
@@ -122,6 +123,7 @@ sub set_resolution {
($theme{res_w}, $theme{res_h}) = $theme{res} =~ /([^x]+)x([^x]+)/;
read_theme_config();
$image_area->set_size_request($theme{res_w}, $theme{res_h});
+ $preview_window->shrink_topwindow();
}
sub save_theme() {