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:
parent
a8b318da7a
commit
16b75b1f00
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user