diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakroam | 6 |
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), |