From d518084f88e3d07e373752463c5f8965a677d8cc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 16 Dec 2010 09:48:24 -0700 Subject: [PATCH] cocoa: fix message% 'app icon --- collects/mred/private/wx/cocoa/message.rkt | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/collects/mred/private/wx/cocoa/message.rkt b/collects/mred/private/wx/cocoa/message.rkt index d8f0bdc051..eb3b7ace56 100644 --- a/collects/mred/private/wx/cocoa/message.rkt +++ b/collects/mred/private/wx/cocoa/message.rkt @@ -16,20 +16,14 @@ ;; ---------------------------------------- -(import-class NSTextField NSImageView NSWorkspace) +(import-class NSTextField NSImageView NSWorkspace NSRunningApplication) (define _OSType _uint32) (define-cocoa NSFileTypeForHFSTypeCode (_fun _OSType -> _id)) (define (get-app-icon) - (tell (tell NSWorkspace sharedWorkspace) - iconForFile: - (tell (tell (tell NSWorkspace sharedWorkspace) - activeApplication) - objectForKey: - #:type _NSString - "NSApplicationPath"))) + (tell (tell NSRunningApplication currentApplication) icon)) (define (make-icon label) (let ([icon