diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-05-10 09:06:25 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-05-10 09:06:25 +0000 |
| commit | df251f10157256275dd4910c4a4261854b4ca7fa (patch) | |
| tree | 47c39149375a4e13dc533109eee619830c6cb4ef /perl-install | |
| parent | 1b191913819100a0e449c2a5e2e6cf4dbed45e01 (diff) | |
| download | drakx-backup-do-not-use-df251f10157256275dd4910c4a4261854b4ca7fa.tar drakx-backup-do-not-use-df251f10157256275dd4910c4a4261854b4ca7fa.tar.gz drakx-backup-do-not-use-df251f10157256275dd4910c4a4261854b4ca7fa.tar.bz2 drakx-backup-do-not-use-df251f10157256275dd4910c4a4261854b4ca7fa.tar.xz drakx-backup-do-not-use-df251f10157256275dd4910c4a4261854b4ca7fa.zip | |
shrink preview window on resolution change
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draksplash | 4 |
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() { |