diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-08-11 06:08:24 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-08-11 06:08:24 +0000 |
| commit | e4ce61518ac20e6618ea983731ceb5346d707c88 (patch) | |
| tree | f21c86d7213853fd0729ef3f0c751b3358b93a54 /perl-install | |
| parent | ce12d58b78f6f7343473f714e5b93f80b5df3737 (diff) | |
| download | drakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.tar drakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.tar.gz drakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.tar.bz2 drakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.tar.xz drakx-backup-do-not-use-e4ce61518ac20e6618ea983731ceb5346d707c88.zip | |
only one item can be selected in the known list
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakroam | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index 8a4272bcb..a375d82a0 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -115,12 +115,12 @@ gtkadd(gtkset_border_width($w->{window}, 2), 1, create_scrolled_window($KnownList), 0, gtkpack(create_hbox(), gtksignal_connect(Gtk2::Button->new("Remove"), clicked => sub { - my @selected = $KnownList->get_selected_indices; - splice @{$KnownList->{data}}, "@selected", 1; + my ($selected) = $KnownList->get_selected_indices; + splice @{$KnownList->{data}}, $selected, 1; }), gtksignal_connect(Gtk2::Button->new("Connect"), clicked => sub { - my @selected = $KnownList->get_selected_indices; - &ConnectNow(@selected); + my ($selected) = $KnownList->get_selected_indices; + &ConnectNow($selected); }), gtksignal_connect(Gtk2::Button->new("Save"), clicked => sub { &WriteConfig }) ) |