summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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() {