annotate Mac/BuildScript/seticon.m @ 80661:94de77bd0b4b 2.7

Issue #16194: document imp.load_dynamic problems when read several extension modules from the same binary object file.
author Andrew Svetlov <andrew.svetlov@gmail.com>
date Thu, 29 Nov 2012 19:51:28 +0200
parents da7448ebce8b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
52643
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
1 /*
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
2 * Simple tool for setting an icon on a file.
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
3 */
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
4 #import <Cocoa/Cocoa.h>
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
5 #include <stdio.h>
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
6
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
7 int main(int argc, char** argv)
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
8 {
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
9 if (argc != 3) {
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
10 fprintf(stderr, "Usage: seticon ICON TARGET");
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
11 return 1;
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
12 }
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
13
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
14 NSAutoreleasePool* pool = [[NSAutoreleasePool alloc] init];
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
15 NSString* iconPath = [NSString stringWithUTF8String:argv[1]];
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
16 NSString* filePath = [NSString stringWithUTF8String:argv[2]];
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
17
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
18 [NSApplication sharedApplication];
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
19
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
20 [[NSWorkspace sharedWorkspace]
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
21 setIcon: [[NSImage alloc] initWithContentsOfFile: iconPath]
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
22 forFile: filePath
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
23 options: 0];
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
24 [pool release];
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
25 return 0;
da7448ebce8b Merge seticon.m file, for some reason 'svnmerge'
Ronald Oussoren <ronaldoussoren@mac.com>
parents:
diff changeset
26 }