From 598057f07928b42e4b24a52c40e72f9fbc036d5f Mon Sep 17 00:00:00 2001
From: Manolo Gouy <Manolo>
Date: Thu, 16 Jun 2011 12:35:32 +0000
Subject: Fix STR #2665: Mac OS: use bundle name when available.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@8807 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
---
 src/Fl_cocoa.mm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Fl_cocoa.mm b/src/Fl_cocoa.mm
index a92eee0b5..b10390af6 100644
--- a/src/Fl_cocoa.mm
+++ b/src/Fl_cocoa.mm
@@ -2915,7 +2915,9 @@ static void createAppleMenu(void)
   NSMenuItem *menuItem;
   NSString *title;
 
-  NSString *nsappname = [[NSProcessInfo processInfo] processName];
+  NSString *nsappname = [[[NSBundle mainBundle] infoDictionary] objectForKey:@"CFBundleName"];
+  if (nsappname == nil)
+    nsappname = [[NSProcessInfo processInfo] processName];
   appleMenu = [[NSMenu alloc] initWithTitle:@""];
   /* Add menu items */
   title = [[NSString stringWithUTF8String:Fl_Mac_App_Menu::about] stringByAppendingString:nsappname];
-- 
cgit v1.2.3