From 62ddc1e6b4ce78355af3ae88a43f3395724d8efb Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Wed, 13 Jul 2005 03:21:14 +0000
Subject: move buttons to the right, add double clic support

---
 drakpxelinux.pl | 82 +++++++++++++++++++++++++++++++++------------------------
 1 file changed, 48 insertions(+), 34 deletions(-)

diff --git a/drakpxelinux.pl b/drakpxelinux.pl
index d0916ca..1f4cc34 100644
--- a/drakpxelinux.pl
+++ b/drakpxelinux.pl
@@ -827,6 +827,18 @@ $labelscombo->set_popdown_strings("", sort(@o));
 $labelscombo->entry->set_text($defaultlabel);
 set_help_tip($labelscombo, 'labels');
 
+$treeview->signal_connect(button_press_event => sub {
+                            my (undef, $event) = @_;
+                            my $model = $treeview->get_model;
+                            my $selection = $treeview->get_selection;
+                            my $iter = $selection->get_selected;
+                            if ($iter) {
+                              my $path = $model->get_path($iter);
+                              my $i = ($path->get_indices)[0];
+                              edit_box_item($model, $treeview) if $event->type eq '2button-press';
+                            }
+                          });
+
 my $okcancel = create_okcancel({
 				cancel_clicked => sub { ugtk2->exit },
 				ok_clicked => \&write_conf,
@@ -835,42 +847,44 @@ my $okcancel = create_okcancel({
 
 # main interface
 $W->add(gtkpack_(Gtk2::VBox->new(0,0),
-		 1, create_scrolled_window($treeview),
-		 0, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 3),
-                             0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Add a PXE entry")), 'addpxe'), clicked => sub {
-						    eval { wizard_add_entry($model, $treeview) };
-						    my $err = $@;
-						    $::WizardWindow->destroy if defined $::WizardWindow;
-						    undef $::WizardWindow;
-						    if ($err && $err !~ /wizcancel/) {
-                                                      err_dialog(N("Error"), N("The PXE entry wizard has unexpectedly failed:")
-                                                                 . "\n\n" . $err);
-                                                    }
-                                                  }),
-                             0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Remove PXE entry")), 'removepxe'), clicked => sub {
-                                                    remove_item($model, $treeview) }
-						 ),
-			     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, Gtk2::VSeparator->new,
-                             0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Reconfigure 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 has unexpectedly failed:")
-                                                                 . "\n\n" . $err);
-                                                    }
-                                                  }),
-			     0, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => \&show_help),
+		 1, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0),
+                             1, create_scrolled_window($treeview),
+                             0, gtkpack_(create_vbox('start'),
+					 0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Add a PXE entry")), 'addpxe'), clicked => sub {
+								eval { wizard_add_entry($model, $treeview) };
+								my $err = $@;
+								$::WizardWindow->destroy if defined $::WizardWindow;
+								undef $::WizardWindow;
+								if ($err && $err !~ /wizcancel/) {
+								  err_dialog(N("Error"), N("The PXE entry wizard has unexpectedly failed:")
+									     . "\n\n" . $err);
+								}
+							      }),
+					 0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Remove PXE entry")), 'removepxe'), clicked => sub {
+								remove_item($model, $treeview) }
+							     ),
+					 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, Gtk2::HSeparator->new,
+				#	 create_vbox('end'),
+					 0, gtksignal_connect(set_help_tip(Gtk2::Button->new(N("Reconfigure 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 has unexpectedly failed:")
+									     . "\n\n" . $err);
+								}
+							      }),
+					 0, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => \&show_help),
+					),
+			     if_($::isEmbedded, 0, $okcancel),
 			    ),
-		 if_($::isEmbedded, 0, $okcancel),
 		),
        );
-
 $W->show_all;
 Gtk2->main;
-- 
cgit v1.2.1