help button recognizes helpContext

dk · Nov 5, 2024 · 826dab1 · 826dab1
1 parent af8c09d
commit 826dab1
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/Prima/Dialog/FileDialog.pm b/Prima/Dialog/FileDialog.pm
@@ -978,6 +978,7 @@ sub init
 		text        => '~Help',
 		size        => [ 96, 36],
 		growMode    => gm::GrowLoX | gm::GrowLoY,
+		delegations => [qw(Click)],
 	) if $self-> {showHelp};
 
 	$self-> Name-> current(1);
@@ -1452,6 +1453,8 @@ sub Open_Click
 	$self-> ok;
 }
 
+sub Help_Click { shift->help }
+
 sub filter
 {
 	if ( $#_) {
@@ -1662,6 +1665,7 @@ sub init
 		name        => 'Help',
 		text        => '~Help',
 		size        => [ 80, 30],
+		delegations => [qw(Click)],
 	) if $self-> {showHelp};
 
 	$self-> {curpaths} = {};
@@ -1717,6 +1721,8 @@ sub OK_Click
 	$self-> ok;
 }
 
+sub Help_Click { shift->help }
+
 sub directory
 {
 	return $_[0]-> Dir-> path unless $#_;