summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm38
1 files changed, 0 insertions, 38 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index f8f994f2a..f4209c073 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -51,28 +51,6 @@ sub ask_from_list_with_helpW {
$::isWizard and my $pixmap = new Gtk::Pixmap( gtkcreate_xpm($w->{window}, $::wizard_xpm)) || die "pixmap $! not found.";
if ($::isWizard) {
gtkset_usize($w->{rwindow}, 500, 400);
-# my $rc = "/etc/gtk/draknet.rc";
-# -r $rc or $rc = common::dirname(__FILE__) . "/draknet.rc";
-# Gtk::Rc->parse($rc) ;
-# my $style = $w->{rwindow}->style->copy();
-# $style->bg_pixmap(0);
-# $style->bg_pixmap(1);
-# $style->bg_pixmap(2);
-# $style->bg_pixmap(3);
-# $style->bg_pixmap(4);
-# $style->bg(0, $style->white());
-# $style->bg(1, $style->white());
-# $style->bg(2, $style->white());
-# $style->bg(3, $style->white());
-# $style->bg(4, $style->white());
-# $style->bg_gc(0, $style->white_gc);
-# $style->bg_gc(1, $style->white_gc);
-# $style->bg_gc(2, $style->white_gc);
-# $style->bg_gc(3, $style->white_gc);
-# $style->bg_gc(4, $style->white_gc);
- # $style->engine = undef;
- # $style->rc_style = undef;
-# $w->{rwindow}->set_style($style);
}
gtkadd($w->{window},
gtkpack2_(create_box_with_title($w, @$messages),
@@ -93,22 +71,6 @@ sub ask_from_list_with_helpW {
$::isWizard ? (0, $w->create_okcancel()) : (),
),
);
-# gtk_widget_set_style(EventBox2, style);
-# {
-# nowizard:
-# gtkadd($w->{window},
-# gtkpack(create_box_with_title($w, @$messages),
-# gtkadd(@$l < 3 && sum(map { length $_ } @$l) < 60 ? create_hbox() : create_vbox(),
-# map {
-# $b = new Gtk::Button($_);
-# $b->signal_connect(clicked => [ $f, $_ ]);
-# $tips->set_tip($b, $help->{$_}) if $help && $help->{$_};
-# $_ eq $def and $defW = $b;
-# $b;
-# } @$l, ),
-# ),
-# );
-# }
$defW->grab_focus if $defW;
$r = $w->main;