From 74d5a8f2ef3df3519586acdb59c87ba342dd4499 Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Mon, 5 Aug 2002 11:13:25 +0000 Subject: - do not show empty wizard when save button clicked. --- perl-install/standalone/logdrake | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'perl-install') 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())); } -- cgit v1.2.1