From dbce2e2878125c59dc21beb7db0528687119ae51 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 8 Jan 2016 07:58:53 -0700 Subject: [PATCH] avoid an NSTableColumn warning --- gui-lib/mred/private/wx/cocoa/list-box.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gui-lib/mred/private/wx/cocoa/list-box.rkt b/gui-lib/mred/private/wx/cocoa/list-box.rkt index 778e0307..1fc24333 100644 --- a/gui-lib/mred/private/wx/cocoa/list-box.rkt +++ b/gui-lib/mred/private/wx/cocoa/list-box.rkt @@ -282,7 +282,7 @@ (define/public (append-column title) (atomically (let ([col (as-objc-allocation - (tell (tell NSTableColumn alloc) initWithIdentifier: content-cocoa))]) + (tell (tell NSTableColumn alloc) initWithIdentifier: #:type _NSString title))]) (tellv content-cocoa addTableColumn: col) (tellv (tell col headerCell) setStringValue: #:type _NSString title) (set! column-cocoas (append column-cocoas (list col)))