From 8501f3c1936799c90ffcf6b58a52f902828d4b92 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 11 Jan 2001 11:51:17 +0000
Subject: (main): third argument is a function to call before leaving in case
 of "cancel" clicked.

---
 perl-install/my_gtk.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 41f7385a2..a8cd90bff 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -42,8 +42,8 @@ sub new {
     $o->{rwindow}->set_modal(1) if $my_gtk::grab || $o->{grab};
     $o;
 }
-sub main($;$) {
-    my ($o, $f) = @_;
+sub main {
+    my ($o, $completed, $canceled) = @_;
     gtkset_mousecursor_normal();
     my $timeout = Gtk->timeout_add(1000, sub { gtkset_mousecursor_normal(); 1 });
     my $b = before_leaving { Gtk->timeout_remove($timeout) };
@@ -52,7 +52,7 @@ sub main($;$) {
     do {
 	local $::setstep = 1;
 	Gtk->main;
-    } while ($o->{retval} && $f && !&$f());
+    } while ($o->{retval} ? $completed && !$completed->() : $canceled && !$canceled->());
     $o->destroy;
     $o->{retval}
 }
-- 
cgit v1.2.1