summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 14:18:41 +0000
committerAurélien Lefebvre <alefebvre@mandriva.com>2009-08-17 14:18:41 +0000
commit23116b12dd7a005537b3be1df55a469b0445dbbd (patch)
treec8ee3fa03744ac76aebe4aafadf24a0592d80720 /perl-install
parent16b86cca6fa2a49687d9fc75781726c1c2d6ac90 (diff)
downloaddrakx-23116b12dd7a005537b3be1df55a469b0445dbbd.tar
drakx-23116b12dd7a005537b3be1df55a469b0445dbbd.tar.gz
drakx-23116b12dd7a005537b3be1df55a469b0445dbbd.tar.bz2
drakx-23116b12dd7a005537b3be1df55a469b0445dbbd.tar.xz
drakx-23116b12dd7a005537b3be1df55a469b0445dbbd.zip
- drakbug: Top textbox shrinked
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS2
-rwxr-xr-xperl-install/standalone/drakbug2
2 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index b1dc54cb7..2a6757751 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- drakbug
+ o Top textbox shrinked
- drakhelp
o fix firefox launch bug #29775
- added the ability to add up/down buttons in add_modify_remove list
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 9c2ae61ed..e6d7a69c6 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -142,7 +142,7 @@ gtkadd($window->{window},
gtkpack_(Gtk2::VBox->new(0, 5),
0, gtknew('Title1', label => $mandrake_release, width => $width),
1, create_scrolled_window(
- gtknew('TextView', editable => 0, height => 200,
+ gtknew('TextView', editable => 0, height => 150,
text => [
if_($prog,
if_($error,
pt">}) { my $interactiveClass = "install_steps_$o->{interactive}"; require "$interactiveClass.pm"; @ISA = ($interactiveClass, @ISA); for (my $f = $o->{steps}{first}; $f; $f = $o->{steps}{$f}{next}) { my $auto_name = member($f, @{$o->{interactiveSteps}}) ? 'noauto' : 'auto'; $o->{steps}{$f}{$auto_name} = 1; } goto &{$::{$interactiveClass . "::"}{new}}; } else { @ISA = ('install_steps_auto_install_non_interactive', @ISA); (bless {}, ref($type) || $type)->install_steps::new($o); } } sub configureNetwork { my ($_o) = @_; log::l("install_steps_auto_install::configureNetwork"); modules::load_category('network/main|gigabit|usb'); goto &install_steps::configureNetwork; } sub exitInstall { my ($o, $alldone) = @_; return if $o->{autoExitInstall}; if ($o->{interactive}) { $o->SUPER::exitInstall($alldone); } else { install_steps::exitInstall($o); print "\a"; print "Auto installation complete (the postInstall is not done yet though)\n"; print "Press <Enter> to reboot\n"; <STDIN>; } } #-###################################################################################### #- install_steps_auto_install_non_interactive package #-###################################################################################### package install_steps_auto_install_non_interactive; use install_steps; use lang; use modules; use common; use log; sub enteringStep { my ($o, $step) = @_; my ($s, $t) = (N_("Entering step `%s'\n"), $o->{steps}{$step}{text}); ($s, $t) = (translate($s), translate($t)) if $ENV{LANG} !~ /ja|ko|zh/; print sprintf($s, $t); $o->install_steps::enteringStep($step); } sub rebootNeeded { my ($_o) = @_; print "\nWhile partitioning, the partition table re-read failed, needing a reboot\n"; print "This is plain wrong for an auto_install\n"; errorInStep(); } sub ask_warn { log::l(ref($_[1]) ? join " ", @{$_[1]} : $_[1]); } sub wait_message {