From 9ca19cd44807375ceeb68b8b703fe8d36aae51f4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 12 Feb 2003 08:06:55 +0000
Subject: - fix non obvious "not a CODE reference" errors when embedded  
 (fortunately, gc will fix perl-GTK2 if this syntax is still authorized) -
 (configure_lan) : fix gtk+-2 port and remove old commented out debugging code

---
 perl-install/standalone/drakconnect | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index b79d8ee57..2722d45b2 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -208,7 +208,7 @@ $table1->attach($button2, 2, 3, 2, 3, 'fill', 'fill',0,0);
 
 my $hbox_frame1_button = new Gtk2::HBox(0,0);
 my $button1 = new Gtk2::Button(N("Configure Internet Access..."));
-$button1->signal_connect(clicked => [ \&configure_net, '', $netcnx, $netc, $intf ]);
+$button1->signal_connect(clicked => sub { configure_net('', $netcnx, $netc, $intf) } );
 $hbox_frame1_button->pack_start($button1, 0, 0, 0);
 $vbox_frame1->pack_start($hbox_frame1_button,0,0,0);
 
@@ -237,7 +237,7 @@ build_list();
 
 my $hbox3 = new Gtk2::HBox(0,0);
 my $button3 = new Gtk2::Button(N("Configure Local Area Network..."));
-$button3->signal_connect(clicked => [ \&configure_lan, '', $netcnx, $netc, $intf ]);
+$button3->signal_connect(clicked => sub { configure_lan('', $netcnx, $netc, $intf) });
 $hbox3->pack_start($button3, 0, 0, 0);
 $vbox2->pack_start($hbox3, 0, 0, 0);
 
@@ -492,10 +492,8 @@ Configure them first by clicking on 'Configure'")),1,1,0);
 					 ),0,0,0);
 	#	$list->append($_+1, "eth$_", $intf->{"eth$_"}{IPADDR}, $intf->{"eth$_"}{BOOTPROTO}, $all_cards[$_]->[1]);
 	#	$list->set_selectable($_, 0);
-#	require Data::Dumper;
-#	print "------------\n" . Data::Dumper->Dump([$b],['b']) . "\n";
 	my $hbox_local = new Gtk2::HBox(0,0);
-	my $pix = gtkpng("/usr/share/libDrakX/pixmaps/eth_card_mini.png");
+	my $pix = gtkcreate_img("/usr/share/libDrakX/pixmaps/eth_card_mini.png");
 	$hbox_local->pack_start($pix,0,0,0);
 	$hbox_local->pack_start(new Gtk2::Label("eth$_"),0,0,0);
 	$hbox_local->show_all;
-- 
cgit v1.2.1