From bdb89adb3629a491d23f94014f3b7f1b0f5badfd Mon Sep 17 00:00:00 2001 From: damien Date: Tue, 14 Aug 2001 14:01:11 +0000 Subject: corrected activation button --- perl-install/standalone/draknet | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet index e6be72764..75ac12561 100755 --- a/perl-install/standalone/draknet +++ b/perl-install/standalone/draknet @@ -473,8 +473,11 @@ Configure them first by clicking on 'Configure'")),1,1,0); $i++; } my $c = $_; - $vbox_local->pack_start(gtksignal_connect(my $b = new Gtk::Button(ethisup($c) ? _("desactivate") : _("activate")), clicked => - sub {system("/sbin/if".(ethisup($c)?"down":"up")." eth$c");gtkbuttonset($_[0], ethisup($c)?_("desactivate"):_("activate"));}),0,0,0); + $vbox_local->pack_start(gtkpack__(new Gtk::HBox(0,0), + gtksignal_connect(my $b = new Gtk::Button(ethisup($c) ? _("desactivate now") : _("activate now")), clicked => sub { + system("/sbin/if".(ethisup($c)?"down":"up")." eth$c"); + gtkbuttonset($_[0], ethisup($c)?_("desactivate now"):_("activate now")); + })),0,0,0); # $clist1->append($_+1, "eth$_", $intf->{"eth$_"}{IPADDR}, $intf->{"eth$_"}{BOOTPROTO}, $all_cards[$_]->[1]); # $clist1->set_selectable($_, 0); # require Data::Dumper; -- cgit v1.2.1