summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakroam
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakroam')
-rwxr-xr-xperl-install/standalone/drakroam36
1 files changed, 22 insertions, 14 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index 0eb796cb2..a782bcb63 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -154,12 +154,20 @@ $AvailableList = Gtk2::SimpleList->new(
);
$AvailableList->get_selection->set_mode('single');
-my $NetLabel = Gtk2::WrappedLabel->new;
-my $IpLabel = Gtk2::WrappedLabel->new;
-my $GwLabel = Gtk2::WrappedLabel->new;
-my $ModeLabel = Gtk2::WrappedLabel->new;
-my $WepLabel = Gtk2::WrappedLabel->new;
-my $SignalLabel = Gtk2::WrappedLabel->new;
+my $NetLabel = Gtk2::WrappedLabel->new(N("Network:"));
+my $IpLabel = Gtk2::WrappedLabel->new(N("IP:"));
+my $GwLabel = Gtk2::WrappedLabel->new(N("Gateway:"));
+my $ModeLabel = Gtk2::WrappedLabel->new(N("Mode:"));
+my $WepLabel = Gtk2::WrappedLabel->new(N("Encryption:"));
+my $SignalLabel = Gtk2::WrappedLabel->new(N("Signal:"));
+
+my $net_field = Gtk2::WrappedLabel->new;
+my $mode_field = Gtk2::WrappedLabel->new;
+my $ip_field = Gtk2::WrappedLabel->new;
+my $wep_field = Gtk2::WrappedLabel->new;
+my $gw_field = Gtk2::WrappedLabel->new;
+my $sig_field = Gtk2::WrappedLabel->new;
+
my $w = ugtk2->new('Drakroam');
gtkadd(gtkset_border_width($w->{window}, 2),
@@ -217,8 +225,8 @@ gtkadd(gtkset_border_width($w->{window}, 2),
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 ],
+ [ $NetLabel, $net_field, $IpLabel, $ip_field, $GwLabel, $gw_field ],
+ [ $ModeLabel, $mode_field, $WepLabel, $wep_field, $SignalLabel, $sig_field ],
),
gtkpack(create_hbox(),
gtksignal_connect(Gtk2::Button->new(N("Disconnect")), clicked => sub { &Disconnect }),
@@ -273,12 +281,12 @@ sub UpdateStatus() {
if (/^0.0.0.0\s*(\S*)\s/) { $CurrentGW = gethostbyaddr(inet_aton($1), AF_INET) }
else { $CurrentGW = "---.---.---.---" }
}
- $NetLabel->set_text(N("Network: %s", $CurrentNet));
- $ModeLabel->set_text(N("Mode: %s", $CurrentMode));
- $IpLabel->set_text(N("IP: %s", $CurrentIP));
- $WepLabel->set_text(N("Encryption: %s", $CurrentWEP));
- $GwLabel->set_text(N("Gateway: %s", $CurrentGW));
- $SignalLabel->set_text(N("Signal: %s", $CurrentSignal));
+ $net_field->set_text($CurrentNet);
+ $mode_field->set_text($CurrentMode);
+ $ip_field->set_text($CurrentIP);
+ $wep_field->set_text($CurrentWEP);
+ $gw_field->set_text($CurrentGW);
+ $sig_field->set_text($CurrentSignal);
}
sub UpdateAvailable() {