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

OS X: disable reordering of tabs in the new tab-panel% widget

Browse Source 
Fixes racket/drracket#52

(cherry picked from commit f0d10e9cc8)
This commit is contained in:
Matthew Flatt 2016-04-17 20:54:40 -06:00
parent c94fa35bc5
commit c843108e8d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui-lib/mred/private/wx/cocoa/tab-panel.rkt
View File

@ -68,7 +68,8 @@
(queue-window*-event wxb (lambda (wx) (send wx do-callback))))))) (queue-window*-event wxb (lambda (wx) (send wx do-callback)))))))
;; The MMTabBarView widget doesn't support disabling, so we have to ;; The MMTabBarView widget doesn't support disabling, so we have to
;; implement it: ;; implement it. Also, we need to override a method to disable (for now)
;; reordering tabs.
(define-objc-mixin (EnableMixin Superclass) (define-objc-mixin (EnableMixin Superclass)
[wxb] [wxb]
(-a _id (hitTest: [_NSPoint pt]) (-a _id (hitTest: [_NSPoint pt])
@ -76,7 +77,9 @@
(if (and wx (if (and wx
(not (send wx is-enabled-to-root?))) (not (send wx is-enabled-to-root?)))
#f #f
(super-tell hitTest: #:type _NSPoint pt))))) (super-tell hitTest: #:type _NSPoint pt))))
(-a _BOOL (shouldStartDraggingAttachedTabBarButton: b withMouseDownEvent: evt)
#f))
;; A no-op mixin instead of `EnableMixin` for PSMTabBarControl: ;; A no-op mixin instead of `EnableMixin` for PSMTabBarControl:
(define-objc-mixin (EmptyMixin Superclass) (define-objc-mixin (EmptyMixin Superclass)