diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install2.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_any.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 4 | ||||
| -rw-r--r-- | perl-install/my_gtk.pm | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 650ade256..97287e91c 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -161,7 +161,7 @@ $o = $::o = { QUEUE => "lp", SPOOLDIR => "/var/spool/lpd/lp", DBENTRY => "PostScript", - PAPERSIZE => "legal", + PAPERSIZE => "letter", CRLF => 0, AUTOSENDEOF => 1, diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index b4e432f30..a2f139522 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -540,7 +540,7 @@ sub kderc_largedisplay($) { my ($inputfile, $outputfile) = ("$prefix$_/.kderc", "$prefix$_/.kderc.new"); my %subst = ( contrast => "Contrast=7\n", kfmiconstyle => "kfmIconStyle=Large\n", - kpaneliconstyle => "kpanelIconStyle=Large\n", + kpaneliconstyle => "kpanelIconStyle=Normal\n", #- to change to Large when icons looks better kdeiconstyle => "KDEIconStyle=Large\n", ); diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 634a2cc72..186fcddcd 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -774,7 +774,7 @@ sub setupXfree { require Xconfigurator; #- by default do not use existing configuration, so new card will be detected. if ($o->{isUpgrade} && -r "$o->{prefix}/etc/X11/XF86Config") { - unless ($::beginner || !$o->ask_yesorno('', _("Use existing configuration for X11?"), 0)) { + if ($::beginner || $o->ask_yesorno('', _("Use existing configuration for X11?"), 1)) { Xconfig::getinfoFromXF86Config($o->{X}, $o->{prefix}); } } @@ -790,7 +790,7 @@ sub setupXfree { $::noauto = $::noauto; #- no warning Xconfigurator::main($o->{prefix}, $o->{X}, $o, $o->{allowFB}, sub { - install_any::pkg_install($o, "XFree86-$_[0]"); + install_any::pkg_install($o, "XFree86-$_[0]"); }); } $o->setupXfreeAfter; diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index d6df3696e..56e186e70 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -499,7 +499,7 @@ sub _ask_from_list { $list->set_column_auto_resize(0, 1); $o->{ok_clicked} = $leave; - $o->{cancel_clicked} = sub { die "ask_from_list cancel" }; + $o->{cancel_clicked} = sub { $o->destroy; die "ask_from_list cancel" }; #- make sure windows doesn't live any more. gtkadd($o->{window}, gtkpack($o->create_box_with_title(@$messages), gtkpack_(new Gtk::VBox(0,7), |