suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cocoa: fix message% 'app icon

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-16 09:48:24 -07:00
parent 3751452530
commit d518084f88
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/wx/cocoa/message.rkt
View File

@ -16,20 +16,14 @@
;; ---------------------------------------- ;; ----------------------------------------
(import-class NSTextField NSImageView NSWorkspace) (import-class NSTextField NSImageView NSWorkspace NSRunningApplication)
(define _OSType _uint32) (define _OSType _uint32)
(define-cocoa NSFileTypeForHFSTypeCode (_fun _OSType -> _id)) (define-cocoa NSFileTypeForHFSTypeCode (_fun _OSType -> _id))
(define (get-app-icon) (define (get-app-icon)
(tell (tell NSWorkspace sharedWorkspace) (tell (tell NSRunningApplication currentApplication) icon))
iconForFile:
(tell (tell (tell NSWorkspace sharedWorkspace)
activeApplication)
objectForKey:
#:type _NSString
"NSApplicationPath")))
(define (make-icon label) (define (make-icon label)
(let ([icon (let ([icon