Index: lib/Padre/Wx/Action.pm
===================================================================
--- lib/Padre/Wx/Action.pm	(revision 15175)
+++ lib/Padre/Wx/Action.pm	(working copy)
@@ -171,7 +171,8 @@
 	my $shortcut = $self->shortcut;
 
 	if ( $shortcut
-		and ( ( $shortcut eq 'F12' ) or ( $self->id == -1 or Padre::Constant::WIN32() ) ) )
+		and ( ( $shortcut eq 'F12' ) 
+                      or ( $self->id == -1 or Padre::Constant::WIN32() or Padre::Constant::MAC()) ) )
 	{
 		$label .= "\t" . $shortcut;
 	}