diff options
-rw-r--r-- | drakpxelinux.pl | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/drakpxelinux.pl b/drakpxelinux.pl index 85af02c..bf26980 100644 --- a/drakpxelinux.pl +++ b/drakpxelinux.pl @@ -566,6 +566,19 @@ sub edit_box_item { ); }; + my $ipaddr = Gtk2::Entry->new; + $ipaddr->set_sensitive(0); + my $toggledhcp = Gtk2::CheckButton->new(N("DHCP")); + $toggledhcp->set_active(1); + $toggledhcp->signal_connect(clicked => sub { + my $s = $toggledhcp->get_active; + if ($s eq "1") { + $ipaddr->set_sensitive(0); + } else { + $ipaddr->set_sensitive(1); + } + }); + # ok, lets create the dialog box :-) gtkpack_($dialog->vbox, 0, gtkadd(Gtk2::Frame->new(N("PXE entry")), @@ -589,7 +602,8 @@ sub edit_box_item { gtkpack_(gtkset_border_width(Gtk2::VBox->new, 3), 0, $label_and_widgets->(N("Installation method"), $automatic, ""), 0, $label_and_widgets->(N("Network Interface"), $interface, ""), - 0, $label_and_widgets->(N("IP address"), $network, ""), + 0, $toggledhcp, + 0, $ipaddr, 0, $label_and_widgets->(N("Remote Server name"), $server, ""), 0, $label_and_widgets->(N("Remote installation Directory"), $directory, ""), ), |