diff options
author | Antoine Ginies <aginies@mandriva.com> | 2004-08-12 02:33:06 +0000 |
---|---|---|
committer | Antoine Ginies <aginies@mandriva.com> | 2004-08-12 02:33:06 +0000 |
commit | 56f1db53834e39a0a0b9c84f5278464807fbfe75 (patch) | |
tree | 0b9263e6e79a0bb661c78bd38609c0c797536732 | |
parent | 837b6f5d5bfef81e8d0692f422d7301a95a5fd07 (diff) | |
download | drakpxelinux-56f1db53834e39a0a0b9c84f5278464807fbfe75.tar drakpxelinux-56f1db53834e39a0a0b9c84f5278464807fbfe75.tar.gz drakpxelinux-56f1db53834e39a0a0b9c84f5278464807fbfe75.tar.bz2 drakpxelinux-56f1db53834e39a0a0b9c84f5278464807fbfe75.tar.xz drakpxelinux-56f1db53834e39a0a0b9c84f5278464807fbfe75.zip |
ok, agree perl_checker is a good way to check perl code, but please
check our patch dont break the application.......
-rw-r--r-- | drakpxelinux.pl | 24 |
1 files changed, 6 insertions, 18 deletions
diff --git a/drakpxelinux.pl b/drakpxelinux.pl index 932b942..da0f15d 100644 --- a/drakpxelinux.pl +++ b/drakpxelinux.pl @@ -269,7 +269,7 @@ label $a->{label} sub create_model { get_items(); - my $model = Gtk2::ListStore->new(("Glib::String")); + my $model = Gtk2::ListStore->new(("Glib::String") x13); foreach my $a (@listpxe) { my $iter = $model->append; $model->set($iter, @@ -1002,24 +1002,7 @@ $W->add(gtkpack_(Gtk2::VBox->new(0,0), if_(! $::isEmbedded, 0, $banner ), 1, create_scrolled_window($treeview), 0, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 3), - 0, Gtk2::Label->new(N("boot:")), - 0, $labelscombo, 0, Gtk2::VSeparator->new(), - 0, gtksignal_connect(set_help_tip(new Gtk2::Button(N("Wizard PXE server")), 'wizardsrv'), - clicked => sub { - eval { wizard_pxe_server() }; - my $err = $@; - $::WizardWindow->destroy if defined $::WizardWindow; - undef $::WizardWindow; - if ($err && $err !~ /wizcancel/) { - err_dialog(N("Error"), N("The PXE server wizard had unexpectly failled:") - . "\n\n" . $err); - } - }), - 0, Gtk2::VSeparator->new, - 0, gtksignal_connect(new Gtk2::Button(N("Help")), - clicked => sub { show_help } - ), 0, Gtk2::VSeparator->new, 0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Add PXE entry")), 'addpxe'), clicked => sub { eval { wizard_add_entry($model, $treeview) }; @@ -1037,6 +1020,11 @@ $W->add(gtkpack_(Gtk2::VBox->new(0,0), 0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Edit PXE entry")), 'editb'), clicked => sub { edit_box_item($model, $treeview); } ), + 0, Gtk2::Label->new(N("boot:")), + 0, $labelscombo, + 0, gtksignal_connect(new Gtk2::Button(N("Help")), + clicked => sub { show_help } + ), ), if_($::isEmbedded, 0, $okcancel), ), |