From 171364a0b3c2efe456d7dfbdd69abe3c6b051ff1 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 15 Mar 2006 22:37:35 +0000 Subject: use new wizards API --- drakpxelinux.pl | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'drakpxelinux.pl') diff --git a/drakpxelinux.pl b/drakpxelinux.pl index 595d1fd..9ece3c1 100644 --- a/drakpxelinux.pl +++ b/drakpxelinux.pl @@ -301,8 +301,7 @@ sub wizard_add_entry { # my $WALLRDZ = "/tmp/all.rdz"; my $WVMLINUZ = "/mnt/nfs/isolinux/alt0/vmlinuz"; # my $WVMLINUZ = "/tmp/vmlinuz"; - my $w = wizards->new; - my $wiz = { + my $wiz = wizards->new({ name => N("Add a PXE entry"), pages => { welcome => { @@ -374,8 +373,8 @@ sub wizard_add_entry { next => 0, }, } - }; - $w->process($wiz, $in); + }); + $wiz->process($in); $::isWizard = 0; gtkset_mousecursor_normal(); } @@ -736,8 +735,7 @@ sub wizard_pxe_server() { undef $::WizardWindow; $::isWizard = 1; use wizards; - my $w = wizards->new; - my $wiz = { + my $wiz = wizards->new({ name => N("PXE Wizard"), needed => { "tftp-server", "pxe", "dhcpd" }, pages => { @@ -782,8 +780,8 @@ sub wizard_pxe_server() { next => 0 }, }, - }; - $w->process($wiz, $in); + }); + $wiz->process($in); gtkset_mousecursor_normal(); } -- cgit v1.2.1