summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbug1
-rwxr-xr-xperl-install/standalone/drakconnect2
-rwxr-xr-xperl-install/standalone/draksplash2
-rwxr-xr-xperl-install/standalone/logdrake1
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);