Attachment " tkMacOSXMenus.c" to
ticket [2978063fff]
added by
zdia
2010-03-29 01:00:56.
25 TkMenuInit();
26 NSString *applicationName = [[NSBundle mainBundle]
27 objectForInfoDictionaryKey:@"CFBundleName"];
28 if (!applicationName) {
29 applicationName = [[NSProcessInfo processInfo] processName];
30 }
31 NSString *aboutName = (applicationName &&
32 ![applicationName isEqualToString:@"Wish"] &&
33 ![applicationName hasPrefix:@"tclsh"]) ?
34 applicationName : @"Tcl & Tk";
35 _servicesMenu = [NSMenu menuWithTitle:NSLocalizedString(@"Services", nil)];
36 _defaultApplicationMenuItems = [[NSArray arrayWithObjects:
37 [NSMenuItem separatorItem],
38 [NSMenuItem itemWithTitle:
39 [NSString stringWithFormat:NSLocalizedString(@"Preferences%C", nil), 0x2026]
40 action:@selector(preferences:) keyEquivalent:@","],
41 [NSMenuItem separatorItem],
42 [NSMenuItem itemWithTitle:NSLocalizedString(@"Services", nil) submenu:_servicesMenu],
43 [NSMenuItem separatorItem],
44 [NSMenuItem itemWithTitle:
45 [NSString stringWithFormat:NSLocalizedString(@"Hide %@", nil), applicationName]
46 action:@selector(hide:) keyEquivalent:@"h"],
47 [NSMenuItem itemWithTitle:NSLocalizedString(@"Hide Others", nil)
48 action:@selector(hideOtherApplications:) keyEquivalent:@"h"
49 keyEquivalentModifierMask:
50 NSCommandKeyMask|NSAlternateKeyMask],
51 [NSMenuItem itemWithTitle:NSLocalizedString(@"Show All", nil)
52 action:@selector(unhideAllApplications:)],
53 [NSMenuItem separatorItem],
54 [NSMenuItem itemWithTitle:
55 [NSString stringWithFormat:NSLocalizedString(@"Quit %@", nil), applicationName]
56 action: @selector(terminate:) keyEquivalent:@"q"],
57 nil] retain];
58 _defaultApplicationMenu = [TKMenu menuWithTitle:applicationName
59 menuItems:_defaultApplicationMenuItems];
60 [_defaultApplicationMenu insertItem:
61 [NSMenuItem itemWithTitle:
62 [NSString stringWithFormat:NSLocalizedString(@"About %@", nil), aboutName]
63 action:@selector(orderFrontStandardAboutPanel:)] atIndex:0];