From 640255572c30658ad75a7ed7948617dd56fdeaa4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 10 Jul 2000 16:33:21 +0000 Subject: no_comment --- perl-install/install_steps_gtk.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'perl-install/install_steps_gtk.pm') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index a7dd7621b..c4751a9d9 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -767,9 +767,10 @@ sub create_steps_window { $pixmap->signal_connect(enter_notify_event => sub { print "HERE\n" }); if ($step->{reachable}) { - gtksignal_connect(gtkadd(new Gtk::Button, $b), - clicked => sub { die "setstep $step_name\n" }); - } else { $b } + my $button = new Gtk::Button + $button->set_relief('none'); + gtksignal_connect(gtkadd($button, $b), clicked => sub { die "setstep $step_name\n" }); + $button; } grep { !eval $o->{steps}{$_}{hidden}; } @{$o->{orderedSteps}}), @@ -777,7 +778,7 @@ sub create_steps_window { my $t = $_; my $w = new Gtk::Button(''); $w->set_name($t); -# $w->set_usize(0, 7); + $w->set_usize(0, 7); gtksignal_connect($w, clicked => sub { $::setstep or return; #- just as setstep s install_theme($o, $t); die "theme_changed\n" -- cgit v1.2.1