summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-04-05 18:30:59 +0000
committerOlivier Blin <oblin@mandriva.org>2005-04-05 18:30:59 +0000
commit996d9312b30bfdffd6f5e69b30380884f527e693 (patch)
tree4f04362a6e4541c0cbcba4c112e5f2869efd9c49 /perl-install
parent2a6231253a2b22185bb645a79036334776c694a7 (diff)
downloaddrakx-996d9312b30bfdffd6f5e69b30380884f527e693.tar
drakx-996d9312b30bfdffd6f5e69b30380884f527e693.tar.gz
drakx-996d9312b30bfdffd6f5e69b30380884f527e693.tar.bz2
drakx-996d9312b30bfdffd6f5e69b30380884f527e693.tar.xz
drakx-996d9312b30bfdffd6f5e69b30380884f527e693.zip
hide unavailable features, add close button
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakroam35
1 files changed, 13 insertions, 22 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index f6065f4f9..9c9aaeee5 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -38,8 +38,6 @@ require_root_capability();
# global settings
my $route = '/sbin/route';
-my $AboutFile = 'ABOUT';
-my $HelpFile = 'README';
my $IWList = '/sbin/iwlist';
my $IWConfig = '/sbin/iwconfig';
my $IFConfig = '/sbin/ifconfig';
@@ -164,18 +162,6 @@ 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("Status")), 2),
- gtkpack(Gtk2::VBox->new,
- create_packtable({ col_spacings => 5, row_spacings => 5, homogenous => 1 },
- [ $NetLabel, $IpLabel, $GwLabel ],
- [ $ModeLabel, $WepLabel, $SignalLabel ],
- ),
- gtkpack(create_hbox(),
- gtksignal_connect(Gtk2::Button->new(N("Disconnect")), clicked => sub { &Disconnect }),
- gtksignal_connect(Gtk2::Button->new(N("Refresh")), clicked => sub { &UpdateStatus })
- )
- )
- ),
0, gtkadd(gtkset_border_width(Gtk2::Frame->new(N("Roaming")), 2),
gtkpack(create_hbox(),
gtkpack(Gtk2::VBox->new,
@@ -225,14 +211,19 @@ gtkadd(gtkset_border_width($w->{window}, 2),
)
)
),
- 0, gtkpack(create_hbox(),
- gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub { &Dialog($HelpFile) }),
- gtksignal_connect(Gtk2::Button->new(N("About")), clicked => sub { &Dialog($AboutFile) }),
- gtksignal_connect(Gtk2::Button->new(N("Save and close")), clicked => sub {
- &WriteConfig;
- Gtk2->main_quit;
- })
- )
+ 0, gtkadd(gtkset_border_width(Gtk2::Frame->new(N("Status")), 2),
+ gtkpack(Gtk2::VBox->new,
+ create_packtable({ col_spacings => 5, row_spacings => 5, homogenous => 1 },
+ [ $NetLabel, $IpLabel, $GwLabel ],
+ [ $ModeLabel, $WepLabel, $SignalLabel ],
+ ),
+ gtkpack(create_hbox(),
+ gtksignal_connect(Gtk2::Button->new(N("Disconnect")), clicked => sub { &Disconnect }),
+ gtksignal_connect(Gtk2::Button->new(N("Refresh")), clicked => sub { &UpdateStatus }),
+ gtksignal_connect(Gtk2::Button->new(N("Close")), clicked => sub { Gtk2->main_quit })
+ )
+ )
+ ),
)
);