From d2b71feea6fa079e3e4a96a625ea5b269fa86d6e Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Fri, 23 Apr 2004 13:53:16 +0000
Subject: use gtkset_border_width(Gtk2::VBox->new, 5) to create a vbox and set
 a border_width at the same time

---
 perl-install/standalone/drakconnect | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 39e6c960b..f1e878be8 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -311,7 +311,7 @@ sub build_notebook {
     if ($intf->{pages}{'TCP/IP'}) {
 	gtkpack($gui->{sheet}{'TCP/IP'} = Gtk2::HBox->new,
                 gtkadd(gtkcreate_frame(N("IP configuration")), 
-                       gtkpack_(my $vbox = Gtk2::VBox->new,
+                       gtkpack_(gtkset_border_width(Gtk2::VBox->new, 5),
                                 if_($is_ethernet, 
                                     0, gtkpack__(Gtk2::HBox->new,
                                                  $gui->{intf}{BOOTPROTO} = gtksignal_connect(Gtk2::OptionMenu->new,
@@ -357,7 +357,6 @@ sub build_notebook {
                                   ),
                         ),
                );
-        $vbox->set_border_width(5);
 
 	if ($is_ethernet) {
          my $proto = $gui->{intf}{BOOTPROTO};
@@ -453,7 +452,7 @@ sub build_notebook {
 	if ($interface_kind =~ /^speedtouch|sagem$/) {
 	    $gui->{description} = $interface_kind eq 'speedtouch' ? 'Alcatel|USB ADSL Modem (Speed Touch)' : 'Analog Devices Inc.|USB ADSL modem';
 	}
-	gtkpack_($gui->{sheet}{Account} = Gtk2::VBox->new,
+	gtkpack_(gtkset_border_width($gui->{sheet}{Account} = Gtk2::VBox->new, 5),
 		 if_($interface eq 'modem',
 		     0, gtkpack(Gtk2::VBox->new(1,0),
 				 gtkpack__(Gtk2::HBox->new, Gtk2::Label->new(N("Authentication"))),
@@ -471,7 +470,6 @@ sub build_notebook {
 		      if_($interface =~ /^(isdn|modem)$/, [ N("Provider phone number"), $1 eq 'modem' ? 'phone' : 'phone_out' ]),
 		     ),
 		);
-        $gui->{sheet}{Account}->set_border_width(5);
 
 	my %auth_methods = map_index { $::i => $_ } N("PAP"), N("Terminal-based"), N("Script-based"), N("CHAP"), N("PAP/CHAP");
 	$gui->{intf}{auth}->set_popdown_strings(values %auth_methods);
@@ -480,7 +478,7 @@ sub build_notebook {
     }
     
     if ($intf->{pages}{Modem}) {
-	gtkpack($gui->{sheet}{Modem} = Gtk2::HBox->new(0,0),
+	gtkpack(gtkset_border_width($gui->{sheet}{Modem} = Gtk2::HBox->new(0,0), 5),
 		if_($interface eq 'modem',
 		    gtkpack__(Gtk2::VBox->new(0,5),
 			      (map { (gtkpack(Gtk2::VBox->new(1,0),
@@ -542,8 +540,6 @@ sub build_notebook {
 			     ),
 		   ),
 	       );
-        $gui->{sheet}{Modem}->set_border_width(5);
-
 	$protocol_radio[0]->signal_connect(toggled => sub { $gui->{intf_radio}{protocol} = 2; $apply->() });
 	$protocol_radio[1]->signal_connect(toggled => sub { $gui->{intf_radio}{protocol} = 3; $apply->() });
 	$volume_radio[0]->signal_connect(toggled => sub { $gui->{intf_radio}{Volume} = 1; $apply->() });
-- 
cgit v1.2.1