summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-04-23 13:53:16 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-04-23 13:53:16 +0000
commitd2b71feea6fa079e3e4a96a625ea5b269fa86d6e (patch)
tree43a42136e7754199d30b3d53702a5016e172c4eb /perl-install/standalone
parentf28d850401a26239b89895fedc2c043408abf0df (diff)
downloaddrakx-backup-do-not-use-d2b71feea6fa079e3e4a96a625ea5b269fa86d6e.tar
drakx-backup-do-not-use-d2b71feea6fa079e3e4a96a625ea5b269fa86d6e.tar.gz
drakx-backup-do-not-use-d2b71feea6fa079e3e4a96a625ea5b269fa86d6e.tar.bz2
drakx-backup-do-not-use-d2b71feea6fa079e3e4a96a625ea5b269fa86d6e.tar.xz
drakx-backup-do-not-use-d2b71feea6fa079e3e4a96a625ea5b269fa86d6e.zip
use gtkset_border_width(Gtk2::VBox->new, 5) to create a vbox and set a
border_width at the same time
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakconnect10
1 files changed, 3 insertions, 7 deletions
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->() });