diff options
| -rw-r--r-- | AdminPanel/rpmdragora.pm | 74 |
1 files changed, 35 insertions, 39 deletions
diff --git a/AdminPanel/rpmdragora.pm b/AdminPanel/rpmdragora.pm index c9e0c057..b96ed53d 100644 --- a/AdminPanel/rpmdragora.pm +++ b/AdminPanel/rpmdragora.pm @@ -312,46 +312,42 @@ sub interactive_packtable { sub interactive_list { my ($title, $contents, $list, $callback, %options) = @_; - my $d = ugtk2->new($title, grab => 1, if_(exists $options{transient}, transient => $options{transient})); - $d->{rwindow}->set_position($options{transient} ? 'center_on_parent' : 'center_always'); - my @radios = gtkradio('', @$list); - my $vbradios = $callback ? create_packtable( - {}, - mapn { - my $n = $_[1]; - [ $_[0], - gtksignal_connect( - Gtk2::Button->new(but(N("Info..."))), - clicked => sub { $callback->($n) }, - ) ]; - } \@radios, $list, - ) : gtkpack__(Gtk2::VBox->new(0, 0), @radios); + + my $factory = yui::YUI::widgetFactory; + my $mainw = $factory->createPopupDialog(); + my $vbox = $factory->createVBox($mainw); + my $lbltitle = $factory->createLabel($vbox, N("Dependencies")); + my $radiobuttongroup = $factory->createRadioButtonGroup($vbox); + my $rbbox = $factory->createVBox($radiobuttongroup); + foreach my $item(@$list){ + my $radiobutton = $factory->createRadioButton($rbbox,$item); + $radiobutton->setNotify(0); + $radiobuttongroup->addRadioButton($radiobutton); + } + my $submitButton = $factory->createIconButton($vbox,"", N("OK")); my $choice; - my $button_ok; - gtkadd( - $d->{window}, - gtkpack__( - Gtk2::VBox->new(0,5), - Gtk2::Label->new($contents), - int(@$list) > 8 ? gtkset_size_request(create_scrolled_window($vbradios), 250, 320) : $vbradios, - gtkpack__( - create_hbox(), - if_(!$options{nocancel}, - gtksignal_connect( - Gtk2::Button->new(N("Cancel")), clicked => sub { Gtk2->main_quit }), - ), - gtksignal_connect( - $button_ok=Gtk2::Button->new(N("Ok")), clicked => sub { - each_index { $_->get_active and $choice = $::i } @radios; - Gtk2->main_quit; - } - ) - ) - ) - ); - $d->{window}->set_focus($button_ok); - $d->main; - $choice; + + while(1) { + my $event = $mainw->waitForEvent(); + my $eventType = $event->eventType(); + #event type checking + if ($eventType == $yui::YEvent::CancelEvent) { + $mainw->destroy(); + last; + } + elsif ($eventType == $yui::YEvent::WidgetEvent) { + # widget selected + my $widget = $event->widget(); + + if($widget == $submitButton) { + $choice = $radiobuttongroup->currentButton->label(); + $choice =~s/\&//g; + last; + } + } + } + $mainw->destroy(); + return $choice; } sub interactive_list_ { interactive_list(@_, if_($::main_window, transient => $::main_window)) } |