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

avoid an NSTableColumn warning

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-08 07:58:53 -07:00
parent 0e344def40
commit dbce2e2878
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui-lib/mred/private/wx/cocoa/list-box.rkt
View File

@ -282,7 +282,7 @@
(define/public (append-column title) (define/public (append-column title)
(atomically (atomically
(let ([col (as-objc-allocation (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 content-cocoa addTableColumn: col)
(tellv (tell col headerCell) setStringValue: #:type _NSString title) (tellv (tell col headerCell) setStringValue: #:type _NSString title)
(set! column-cocoas (append column-cocoas (list col))) (set! column-cocoas (append column-cocoas (list col)))