gtk+-2 specs prohibid playing with policy

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);