diff options
| author | Angelo Naselli <anaselli@linux.it> | 2014-12-02 19:08:32 +0100 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2014-12-02 19:08:32 +0100 |
| commit | 697ac4014d834baa023daffc75a3f0d2ae871d92 (patch) | |
| tree | 68e006b2faff428c6fb2ad6fbc4196fb7d9f3f4c /lib | |
| parent | ddfb4a855432efa26ee8e00044074e9c19edd5b2 (diff) | |
| download | manatools-697ac4014d834baa023daffc75a3f0d2ae871d92.tar manatools-697ac4014d834baa023daffc75a3f0d2ae871d92.tar.gz manatools-697ac4014d834baa023daffc75a3f0d2ae871d92.tar.bz2 manatools-697ac4014d834baa023daffc75a3f0d2ae871d92.tar.xz manatools-697ac4014d834baa023daffc75a3f0d2ae871d92.zip | |
removed interactive_packtable
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/AdminPanel/rpmdragora.pm | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/lib/AdminPanel/rpmdragora.pm b/lib/AdminPanel/rpmdragora.pm index 0cf9265a..f954d028 100644 --- a/lib/AdminPanel/rpmdragora.pm +++ b/lib/AdminPanel/rpmdragora.pm @@ -90,7 +90,6 @@ our @EXPORT = qw( interactive_list interactive_list_ interactive_msg - interactive_packtable myexit readconf remove_wait_msg @@ -310,30 +309,6 @@ sub interactive_msg { return $retVal; } -sub interactive_packtable { - my ($title, $parent_window, $top_label, $lines, $action_buttons) = @_; - - carp "AdminPanel::rpmdragora::interactive_packtable is deprecated and is going to be removed"; - - my $w = ugtk2->new($title, grab => 1, transient => $parent_window); - local $::main_window = $w->{real_window}; - $w->{rwindow}->set_position($parent_window ? 'center_on_parent' : 'center'); - my $packtable = create_packtable({}, @$lines); - - gtkadd($w->{window}, - gtkpack_(Gtk2::VBox->new(0, 5), - if_($top_label, 0, Gtk2::Label->new($top_label)), - 1, create_scrolled_window($packtable), - 0, gtkpack__(create_hbox(), @$action_buttons))); - my $preq = $packtable->size_request; - my ($xpreq, $ypreq) = ($preq->width, $preq->height); - my $wreq = $w->{rwindow}->size_request; - my ($xwreq, $ywreq) = ($wreq->width, $wreq->height); - $w->{rwindow}->set_default_size(max($typical_width, min($typical_width*2.5, $xpreq+$xwreq)), - max(200, min(450, $ypreq+$ywreq))); - $w->main; -} - sub interactive_list { my ($title, $contents, $list, $callback, %options) = @_; |