From 07a3df2b9aa0666ce3b9df700ad56e4de44516a1 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 7 Apr 2005 16:27:39 +0000 Subject: hide roaming frame by default, not tested --- perl-install/standalone/drakroam | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakroam') 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), -- cgit v1.2.1