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

cocoa: avoid explicit NSTabViewDelegate

Browse Source 
--- not in pre-10.6, seems to crash in 64-bit mode, and not
     necessary to declare
 Closes PR 11418
This commit is contained in:
Matthew Flatt 2010-11-14 15:46:41 -07:00
parent a8b318da7a
commit 16b75b1f00
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/cocoa/README.txt
View File

@ -3,7 +3,7 @@ Allocation rules:
* Use `as-objc-allocation' when creating a Cocoa object. When the * Use `as-objc-allocation' when creating a Cocoa object. When the
resulting reference becomes unreachable, the Cocoa object will be resulting reference becomes unreachable, the Cocoa object will be
releaset. released.
* Use `with-autorelease' in atomic mode around calls that autorelease * Use `with-autorelease' in atomic mode around calls that autorelease
and where the release should take effect immediate. Do not create and where the release should take effect immediate. Do not create

4
collects/mred/private/wx/cocoa/tab-panel.rkt
View File

@ -28,7 +28,6 @@
(define-objc-class MyTabView NSTabView (define-objc-class MyTabView NSTabView
#:mixins (FocusResponder KeyMouseResponder CursorDisplayer) #:mixins (FocusResponder KeyMouseResponder CursorDisplayer)
#:protocols (NSTabViewDelegate)
[wxb] [wxb]
(-a _void (tabView: [_id cocoa] didSelectTabViewItem: [_id item-cocoa]) (-a _void (tabView: [_id cocoa] didSelectTabViewItem: [_id item-cocoa])
(queue-window*-event wxb (lambda (wx) (send wx do-callback))))) (queue-window*-event wxb (lambda (wx) (send wx do-callback)))))
@ -50,7 +49,8 @@
(define tabv-cocoa (as-objc-allocation (define tabv-cocoa (as-objc-allocation
(tell (tell MyTabView alloc) init))) (tell (tell MyTabView alloc) init)))
(define cocoa (if (not (memq 'border style)) (define cocoa (if (not (memq 'border style))
(tell (tell NSView alloc) init) (as-objc-allocation
(tell (tell NSView alloc) init))
tabv-cocoa)) tabv-cocoa))
(define control-cocoa (define control-cocoa