diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 3dbd34372..5cbfbf95d 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -212,18 +212,17 @@ gtkadd($window, createScrolledWindow($log_text) )) : (1, $log_text), if_(!$::isExplain, 0, gtkadd (gtkset_border_width(gtkset_layout(new Gtk::HButtonBox,-end), 5), - if_ (!$::isFile, gtksignal_connect(new Gtk::Button (_("Mail alert")), clicked => sub { eval { alert_config() }; - if ($@ =~ /wizcancel/) { - $::Wizard_no_previous = 1; - $::Wizard_no_cancel = 1; - #$::Wizard_finished = 1; -# undef $::isWizard; - $::WizardWindow->destroy if defined $::WizardWindow; - undef $::WizardWindow; -} })), - gtksignal_connect(new Gtk::Button (_("Save")), clicked => \&save), - gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => \&quit) - ) + if_(!$::isFile, gtksignal_connect(new Gtk::Button (_("Mail alert")), + clicked => sub { eval { alert_config() }; + if ($@ =~ /wizcancel/) { + $::Wizard_no_previous = 1; + $::Wizard_no_cancel = 1; + $::WizardWindow->destroy if defined $::WizardWindow; + undef $::WizardWindow; + } })), + gtksignal_connect(new Gtk::Button (_("Save")), clicked => \&save), + gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => \&quit) + ) ) ) @@ -496,6 +495,7 @@ print F $r; sub save { #$file_dialog = new Gtk::FileSelection(_("Save as..")); #$file_dialog->show(); + $::isWizard=0; $yy = $in->ask_file(_("Save as.."),"/root") or return; output($yy,$log_text->get_chars(0,$log_text->get_length())); } |