summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-04-07 16:27:39 +0000
committerOlivier Blin <oblin@mandriva.org>2005-04-07 16:27:39 +0000
commit07a3df2b9aa0666ce3b9df700ad56e4de44516a1 (patch)
tree3e6f5365cd2336e51067e039947cc39c731cfeb2 /perl-install/standalone
parent8b3d9bda98d7cb10fcbcb6a2154bdb8a0d1082d3 (diff)
downloaddrakx-07a3df2b9aa0666ce3b9df700ad56e4de44516a1.tar
drakx-07a3df2b9aa0666ce3b9df700ad56e4de44516a1.tar.gz
drakx-07a3df2b9aa0666ce3b9df700ad56e4de44516a1.tar.bz2
drakx-07a3df2b9aa0666ce3b9df700ad56e4de44516a1.tar.xz
drakx-07a3df2b9aa0666ce3b9df700ad56e4de44516a1.zip
hide roaming frame by default, not tested
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakroam6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index acd6e9448..18571fb93 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -45,6 +45,7 @@ my $IFConfig = '/sbin/ifconfig';
my $IFUp = '/sbin/ifup';
my $IFDown = '/sbin/ifdown';
my $DHClient = '/sbin/dhclient';
+my $enable_roaming = member('--roaming', @ARGV); #- not tested yet ...
# initialize variables
my $ScanInterval = 30; # tell deamon to search for new nets every x seconds
@@ -163,7 +164,8 @@ my $SignalLabel = Gtk2::WrappedLabel->new;
my $w = ugtk2->new('Drakroam');
gtkadd(gtkset_border_width($w->{window}, 2),
gtkpack_(Gtk2::VBox->new,
- 0, gtkadd(gtkset_border_width(Gtk2::Frame->new(N("Roaming")), 2),
+ if_($enable_roaming,
+ 0, gtkadd(gtkset_border_width(Gtk2::Frame->new(N("Roaming")), 2),
gtkpack(create_hbox(),
gtkpack(Gtk2::VBox->new,
my $RoamStatus = Gtk2::Label->new(N("Roaming: %s", N("off"))),
@@ -180,7 +182,7 @@ gtkadd(gtkset_border_width($w->{window}, 2),
)
)
)
- ),
+ )),
1, gtkadd(gtkset_border_width(Gtk2::Frame->new(N("Known Networks (Drag up/down or edit)")), 2),
gtkpack_(Gtk2::VBox->new,
1, create_scrolled_window($KnownList),