summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakgw14
1 files changed, 8 insertions, 6 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 0a6fe6805..81841214c 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -615,17 +615,16 @@ Click on Configure to launch the setup wizard.", $setup_state));
my $bbox1 = new Gtk::HButtonBox;
$vbox1->pack_start($bbox1,0,0,0);
$bbox1->set_layout(-end);
- my $button_cancel = new Gtk::Button _("Cancel");
- $button_cancel->signal_connect ( clicked => sub {
- kill(USR1, $::CCPID);
- });
- $bbox1->add($button_cancel);
my $button_conf = new Gtk::Button _("Configure");
$button_conf->signal_connect ( clicked => sub {
system("/usr/sbin/drakgw --wizard");
});
$bbox1->add($button_conf);
-
+ my $button_cancel = new Gtk::Button _("Cancel");
+ $button_cancel->signal_connect ( clicked => sub {
+ kill(USR1, $::CCPID);
+ });
+ $bbox1->add($button_cancel);
$window1->show_all();
Gtk->main_iteration while Gtk->events_pending;
$::isEmbedded and kill USR2, $::CCPID;
@@ -641,6 +640,9 @@ Click on Configure to launch the setup wizard.", $setup_state));
#-------------------------------------------------
#- $Log$
+#- Revision 1.34 2001/04/06 15:09:15 yduret
+#- swap cancel/configure button
+#-
#- Revision 1.33 2001/04/06 14:12:06 gc
#- - correct yvounetification in i18n stuff
#- - remove some remaining debugging printings