summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2004-08-12 02:33:06 +0000
committerAntoine Ginies <aginies@mandriva.com>2004-08-12 02:33:06 +0000
commit56f1db53834e39a0a0b9c84f5278464807fbfe75 (patch)
tree0b9263e6e79a0bb661c78bd38609c0c797536732
parent837b6f5d5bfef81e8d0692f422d7301a95a5fd07 (diff)
downloaddrakpxelinux-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.pl24
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),
),