Mercurial > cpython-lru_cache-weakref
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 |
| 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 } |
