cocoa: avoid explicit NSTabViewDelegate

--- 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

View File

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

View File

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