diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-13 03:21:14 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-13 03:21:14 +0000 |
| commit | 62ddc1e6b4ce78355af3ae88a43f3395724d8efb (patch) | |
| tree | b551e081f4a1259445e86b59aaf9cd7509dbf1d6 /drakpxelinux.pl | |
| parent | b249d1cb266a03178fd52d9985380b6a4627b0bf (diff) | |
| download | drakpxelinux-62ddc1e6b4ce78355af3ae88a43f3395724d8efb.tar drakpxelinux-62ddc1e6b4ce78355af3ae88a43f3395724d8efb.tar.gz drakpxelinux-62ddc1e6b4ce78355af3ae88a43f3395724d8efb.tar.bz2 drakpxelinux-62ddc1e6b4ce78355af3ae88a43f3395724d8efb.tar.xz drakpxelinux-62ddc1e6b4ce78355af3ae88a43f3395724d8efb.zip | |
move buttons to the right, add double clic support
Diffstat (limited to 'drakpxelinux.pl')
| -rw-r--r-- | drakpxelinux.pl | 82 |
1 files 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; |