aboutsummaryrefslogtreecommitdiffstats
path: root/lib/AdminPanel
diff options
context:
space:
mode:
Diffstat (limited to 'lib/AdminPanel')
-rw-r--r--lib/AdminPanel/rpmdragora.pm25
1 files changed, 0 insertions, 25 deletions
diff --git a/lib/AdminPanel/rpmdragora.pm b/lib/AdminPanel/rpmdragora.pm
index 0cf9265..f954d02 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) = @_;