diff options
| author | damien <damien@mandriva.com> | 2000-09-14 12:44:43 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2000-09-14 12:44:43 +0000 |
| commit | aa6e56cc877cff389d61018ea6fcc04e44f02cbd (patch) | |
| tree | 672350f00e046352ef69d610e72ac838e97c1c01 /perl-install | |
| parent | d262062a7a03f6791dad8f30ffa51220cd29814a (diff) | |
| download | drakx-backup-do-not-use-aa6e56cc877cff389d61018ea6fcc04e44f02cbd.tar drakx-backup-do-not-use-aa6e56cc877cff389d61018ea6fcc04e44f02cbd.tar.gz drakx-backup-do-not-use-aa6e56cc877cff389d61018ea6fcc04e44f02cbd.tar.bz2 drakx-backup-do-not-use-aa6e56cc877cff389d61018ea6fcc04e44f02cbd.tar.xz drakx-backup-do-not-use-aa6e56cc877cff389d61018ea6fcc04e44f02cbd.zip | |
updated
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 48 |
1 files changed, 25 insertions, 23 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 2e54ff5ad..cd682d795 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -46,29 +46,31 @@ sub ask_from_list_with_helpW { my $b; $w->sync; $::isWizard and my $pixmap = new Gtk::Pixmap( gtkcreate_xpm($w->{window}, $::wizard_xpm)) || die "pixmap $! not found."; - $::isWizard and gtkset_usize($w->{rwindow}, 500, 400); - my $rc = "/etc/gtk/draknet.rc"; - -r $rc or $rc = common::dirname(__FILE__) . "/draknet.rc"; - Gtk::Rc->parse($rc); - my $style = $w->{rwindow}->style->copy(); - $style->bg_pixmap(0); - $style->bg_pixmap(1); - $style->bg_pixmap(2); - $style->bg_pixmap(3); - $style->bg_pixmap(4); - $style->bg(0, $style->white()); - $style->bg(1, $style->white()); - $style->bg(2, $style->white()); - $style->bg(3, $style->white()); - $style->bg(4, $style->white()); - $style->bg_gc(0, $style->white_gc); - $style->bg_gc(1, $style->white_gc); - $style->bg_gc(2, $style->white_gc); - $style->bg_gc(3, $style->white_gc); - $style->bg_gc(4, $style->white_gc); -# $style->engine = undef; -# $style->rc_style = undef; - $w->{rwindow}->set_style($style); + if ($::isWizard) { + gtkset_usize($w->{rwindow}, 500, 400); + my $rc = "/etc/gtk/draknet.rc"; + -r $rc or $rc = common::dirname(__FILE__) . "/draknet.rc"; + Gtk::Rc->parse($rc) ; + my $style = $w->{rwindow}->style->copy(); + $style->bg_pixmap(0); + $style->bg_pixmap(1); + $style->bg_pixmap(2); + $style->bg_pixmap(3); + $style->bg_pixmap(4); + $style->bg(0, $style->white()); + $style->bg(1, $style->white()); + $style->bg(2, $style->white()); + $style->bg(3, $style->white()); + $style->bg(4, $style->white()); + $style->bg_gc(0, $style->white_gc); + $style->bg_gc(1, $style->white_gc); + $style->bg_gc(2, $style->white_gc); + $style->bg_gc(3, $style->white_gc); + $style->bg_gc(4, $style->white_gc); + # $style->engine = undef; + # $style->rc_style = undef; + $w->{rwindow}->set_style($style); + } gtkadd($w->{window}, gtkpack2_(create_box_with_title($w, @$messages), 1, |