From be542c85f1b44a7d32274f2e176d36c4f25c1300 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 20 Aug 2014 16:49:09 +0200
Subject: fix gtk3 port

fix various "undefined value for mandatory argument 'text'" crashes
---
 drakpxelinux.pl | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/drakpxelinux.pl b/drakpxelinux.pl
index 9d832ca..f106239 100755
--- a/drakpxelinux.pl
+++ b/drakpxelinux.pl
@@ -545,8 +545,7 @@ sub edit_box_item {
     $initrd->set_text($entry->{initrd});
     set_help_tip($initrd, 'initrd');
 
-    my $auto_install = Gtk3::Entry->new;
-    $auto_install->set_text($entry->{auto_install});
+    my $auto_install = gtknew('Entry', text => $entry->{auto_install} || '');
     set_help_tip($auto_install, 'auto_install');
     my $profile = get_selected_profile();
     my $profile_selection = $fdwidget->($auto_install, "", "auto_install", $entry->{label}, $profile);
@@ -573,12 +572,10 @@ sub edit_box_item {
 #    $network->set_text($entry->{network});
 #    set_help_tip($network, 'network');
 
-    my $server = Gtk3::Entry->new;
-    $server->set_text($entry->{server});
+    my $server = gtknew('Entry', text => $entry->{server} || '');
     set_help_tip($server, 'server');
 
-    my $directory = Gtk3::Entry->new;
-    $directory->set_text($entry->{directory});
+    my $directory = gtknew('Entry', text => $entry->{directory} || '');
     set_help_tip($directory, 'directory');
 
     my $file_dialogd = $fdwidget->($directory, "dir");
@@ -596,8 +593,7 @@ sub edit_box_item {
     $vga->entry->set_text($network::pxe::vga_bios_to_resolution{$entry->{vga}});
     set_help_tip($vga, 'vga');
 
-    my $display = Gtk3::Entry->new;
-    $display->set_text($entry->{display});
+    my $display = gtknew('Entry', text => $entry->{display} || '');
     set_help_tip($display, 'display');
 
     my $others = Gtk3::Entry->new;
@@ -623,7 +619,7 @@ sub edit_box_item {
 				       } else {
 					 $toggledhcp->set_active(0);
 					 $ipaddr->set_sensitive(1);
-					 $ipaddr->set_text($entry->{network});
+					 $ipaddr->set_text($entry->{network} || '');
 				       }
 
     $toggledhcp->signal_connect(clicked => sub {
-- 
cgit v1.2.1