summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-12 08:06:55 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-12 08:06:55 +0000
commit9ca19cd44807375ceeb68b8b703fe8d36aae51f4 (patch)
tree10b56368bafe1ccfad828826399766a0a4e98bf8 /perl-install
parent2f0f0240cd7cbeba6fb8227a388e999c525e5243 (diff)
downloaddrakx-9ca19cd44807375ceeb68b8b703fe8d36aae51f4.tar
drakx-9ca19cd44807375ceeb68b8b703fe8d36aae51f4.tar.gz
drakx-9ca19cd44807375ceeb68b8b703fe8d36aae51f4.tar.bz2
drakx-9ca19cd44807375ceeb68b8b703fe8d36aae51f4.tar.xz
drakx-9ca19cd44807375ceeb68b8b703fe8d36aae51f4.zip
- 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
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect8
1 files changed, 3 insertions, 5 deletions
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;