summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/logdrake24
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()));
}