From df251f10157256275dd4910c4a4261854b4ca7fa Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 10 May 2005 09:06:25 +0000 Subject: shrink preview window on resolution change --- perl-install/standalone/draksplash | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone') 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() { -- cgit v1.2.1