mcc view: add an help button (and ugtk2-ize main window buttons btw)

1 files changed, 18 insertions, 21 deletions

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index dbc3f934b..c1244a115 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -234,32 +234,29 @@ $window1->{window}->add(
                                                              }),
                                            ),
                                  0, Gtk2::HSeparator->new,
-                                 0, $bbox0 = new Gtk2::HButtonBox,
+                                 0, $bbox0 = gtkpack(Gtk2::HButtonBox->new,
+                                                     gtksignal_connect(Gtk2::Button->new_from_stock('gtk-help'), clicked => sub { 
+                                                                           exec("drakhelp Drakxtools-Guide.html/internet-connection.html") unless fork() }),
+                                                     my $button_apply = gtksignal_connect(gtkset_sensitive(Gtk2::Button->new(N("Apply")), 0),
+                                                                                          clicked => \&apply),
+                                                     gtksignal_connect(Gtk2::Button->new_from_stock('gtk-cancel'), clicked => \&quit_global),
+                                                     gtksignal_connect(Gtk2::Button->new_from_stock('gtk-ok'), clicked => sub {
+                                                                           my $dialog = _create_dialog(N("Please wait"));
+                                                                           gtkpack($dialog->vbox,
+                                                                                   Gtk2::Label->new(N("Please Wait... Applying the configuration")));
+                                                                           $dialog->show_all;
+                                                                           gtkflush();
+                                                                           apply();
+                                                                           $dialog->destroy;
+                                                                           update();
+                                                                           quit_global();
+                                                                       }),
+                                                    ),
                                  ),
                         );
 
 
 $button_expert->set_active($expert_mode);
-my $button_apply = new Gtk2::Button(N("Apply"));
-$button_apply->signal_connect(clicked => \&apply);
-$button_apply->set_sensitive(0);
-$bbox0->add($button_apply);
-
-my $button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
-$button_cancel->signal_connect(clicked => \&quit_global);
-$bbox0->add($button_cancel);
-my $button_ok = Gtk2::Button->new_from_stock('gtk-ok');
-$button_ok->signal_connect(clicked => sub {
-				 my $dialog = _create_dialog(N("Please wait"));
-				 $dialog->vbox->pack_start(new Gtk2::Label(N("Please Wait... Applying the configuration")),1,1,20);
-				 $dialog->show_all;
-				 gtkflush();
-				 apply();
-				 $dialog->destroy;
-				 update();
-				 quit_global();
-			     });
-$bbox0->add($button_ok);
 
 $combo1->signal_connect(realize => sub {
                             $combo1->entry->signal_connect(changed => sub {