diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakbug | 1 | ||||
-rwxr-xr-x | perl-install/standalone/drakconnect | 2 | ||||
-rwxr-xr-x | perl-install/standalone/draksplash | 2 | ||||
-rwxr-xr-x | perl-install/standalone/logdrake | 1 |
4 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 17736e89f..43690b90d 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -43,7 +43,6 @@ foreach (@ARGV) { my $window = ugtk2->new('drakbug', center => 1); my $window_g = $window->{window}; -#$window->{rwindow}->set_policy($false,$false,$true); $window->{rwindow}->set_border_width(5); $window->{rwindow}->set_title(N("Mandrake Bug Report Tool")); $window->{window}->signal_connect("delete_event", sub { ugtk2->exit(0) }); diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 8381bf2a3..badc76f5a 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -295,7 +295,7 @@ sub build_list() { $ip = /inet addr:(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/o ? $1 : N("Bad Ip"); $_ = `LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig`; $state = /eth$i/ ? "up" : "down"; - } else { + } else { $ip = $intf->{"eth$i"}{IPADDR}; $state = "n/a"; } diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index 61cd50d98..cebc80d3b 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -493,7 +493,7 @@ sub kill_preview() { sub show_prev { my ($file, $txt_tl_x, $txt_tl_y, $txt_width, $txt_height, $prog_tl_x, $prog_tl_y, $prog_width, $prog_height) = @_; $prev_window - or $prev_window = new Gtk2::Window('toplevel') and $prev_window->set_policy(0, 1, 1); + or $prev_window = new Gtk2::Window('toplevel'); #-PO First %s is theme name, second %s (in parenthesis) is resolution $prev_window->set_title(N("%s BootSplash (%s) preview", $theme{name}, $theme{res}{res})); $prev_pic = gtkcreate_pixbuf($file); diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index e7382effa..44455baef 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -49,7 +49,6 @@ my $my_win = ugtk2->new('logdrake'); unless ($::isEmbedded) { $my_win->{rwindow}->set_title(N("logdrake")); $my_win->{window}->set_border_width(5); - #$my_win->{rwindow}->set_policy(1, 1, 1); #$my_win->{window}->set_default_size(540,460); } $my_win->{window}->signal_connect(delete_event => \&quit); |