From 1366ba7668973fede10bc34d0759b7cebd9d2099 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 10 Feb 2001 10:10:00 +0000
Subject: button behaviour now chosen, and implemented

---
 perl-install/interactive_newt.pm | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

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

diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index b260d60af..4ea1a2a4f 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -102,7 +102,7 @@ sub ask_from_entries_refW {
 	    $set = sub { $w->CheckboxSetValue(checkval($_[0])) };
 	    $get = sub { $w->CheckboxGetValue == ord '*' };
 	} elsif ($e->{type} eq 'button') {
-	    $w = Newt::Component::Button(-1, -1, $e->{text} || '');
+	    $w = Newt::Component::Button(-1, -1, may_apply($e->{format}, ${$e->{val}}));
 	} elsif ($e->{type} =~ /list/) {
 	    my ($h, $wi) = (5, 20);
 	    my $scroll = @{$e->{list}} > $h ? 1 << 2 : 0;
@@ -182,19 +182,23 @@ sub ask_from_entries_refW {
 	!$error;
     };
 
-    my ($canceled, $r);
+    my $canceled;
     do {
-	$r = $form->RunForm;
+	my $r = $form->RunForm;
+	foreach (@widgets) {
+	    if ($$r == ${$_->{w}}) {
+		$form->FormDestroy;
+		Newt::PopWindow;
+		$_->{e}{clicked}();
+		return ask_from_entries_refW($o, $common, $l, $l2);
+	    }
+	}
 	$canceled = $cancel && $$r == $$cancel;
+
     } until ($check->($common->{callbacks}{$canceled ? 'canceled' : 'complete'}));
 
     $form->FormDestroy;
     Newt::PopWindow;
-
-    foreach (@widgets) {
-	$_->{e}{clicked}() if $$r == ${$_->{w}};
-    }
-
     !$canceled;
 }
 
-- 
cgit v1.2.1