diff options
author | Angelo Naselli <anaselli@linux.it> | 2014-12-02 19:04:17 +0100 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2014-12-02 19:04:17 +0100 |
commit | ddfb4a855432efa26ee8e00044074e9c19edd5b2 (patch) | |
tree | b4f19c55d2f884628e7e5029823849608140dc9c /lib/AdminPanel/rpmdragora.pm | |
parent | 9228b5b393f964b988ec472d046b61cbde41ba62 (diff) | |
download | manatools-ddfb4a855432efa26ee8e00044074e9c19edd5b2.tar manatools-ddfb4a855432efa26ee8e00044074e9c19edd5b2.tar.gz manatools-ddfb4a855432efa26ee8e00044074e9c19edd5b2.tar.bz2 manatools-ddfb4a855432efa26ee8e00044074e9c19edd5b2.tar.xz manatools-ddfb4a855432efa26ee8e00044074e9c19edd5b2.zip |
- Fixed package selection, when canceled now it is in the right status
Diffstat (limited to 'lib/AdminPanel/rpmdragora.pm')
-rw-r--r-- | lib/AdminPanel/rpmdragora.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lib/AdminPanel/rpmdragora.pm b/lib/AdminPanel/rpmdragora.pm index 3ae4f312..0cf9265a 100644 --- a/lib/AdminPanel/rpmdragora.pm +++ b/lib/AdminPanel/rpmdragora.pm @@ -341,10 +341,15 @@ sub interactive_list { my $mainw = $factory->createPopupDialog(); my $vbox = $factory->createVBox($mainw); my $lbltitle = $factory->createLabel($vbox, $loc->N("Dependencies")); - my $radiobuttongroup = $factory->createRadioButtonGroup($vbox); + my $left = $factory->createLeft($factory->createHBox($vbox)); + my $radiobuttongroup = $factory->createRadioButtonGroup($left); my $rbbox = $factory->createVBox($radiobuttongroup); - foreach my $item(@$list){ + foreach my $item (@$list) { my $radiobutton = $factory->createRadioButton($rbbox,$item); + if ($item eq $list->[0]) { + # select first by default + $radiobutton->setValue(1); + } $radiobutton->setNotify(0); $radiobuttongroup->addRadioButton($radiobutton); } @@ -364,7 +369,8 @@ sub interactive_list { my $widget = $event->widget(); if($widget == $submitButton) { - $choice = $radiobuttongroup->currentButton->label(); + # NOTE if for any reason radio button is not checked let's take the first package + $choice = $radiobuttongroup->currentButton() ? $radiobuttongroup->currentButton()->label() : $list->[0]; $choice =~s/\&//g; last; } |