add "complete" callback support in order to provide an easy way to

check for errors and reports them through popups

1 files changed, 2 insertions, 1 deletions

diff --git a/drakwizard.pl b/drakwizard.pl
index 46854b0c..4da1cd41 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -91,6 +91,7 @@ sub wizard {
 	    exit() if ! $::testing
 	}
     }
+    $::in = $in; # so that steps "complete" callbacks can call interactive->ask_warn() :-(
     
     my $next = 'welcome';
     my @steps;
@@ -119,7 +120,7 @@ sub wizard {
 		push @$data2, $d
 	    }
 	}
-	my $a = $in->ask_from($o->{name}, $page->{name}, $data2);
+	my $a = $in->ask_from($o->{name}, $page->{name}, $data2, if_($page->{complete}, complete => $page->{complete}));
 	if ($a) {
 	    push @steps, $next if !$page->{ignore} && $steps[-1] ne $next;
 	    $next = defined $page->{post} ? $page->{post}() : 0;