diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-04-07 16:27:39 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-04-07 16:27:39 +0000 |
| commit | 07a3df2b9aa0666ce3b9df700ad56e4de44516a1 (patch) | |
| tree | 3e6f5365cd2336e51067e039947cc39c731cfeb2 /perl-install/standalone | |
| parent | 8b3d9bda98d7cb10fcbcb6a2154bdb8a0d1082d3 (diff) | |
| download | drakx-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-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), |