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

racket/gui cocoa: fix swapping of buttons with the 'border style

Browse Source 
Register a button as a default button every time that it is shown,
so that multiple buttons in a frame can have the 'border style
(as long as only one is shown at a time).
This commit is contained in:
Matthew Flatt 2013-04-20 08:50:12 -06:00
parent 82457258e2
commit a9cc79c89b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wx/cocoa/button.rkt
View File

@ -150,8 +150,10 @@
[no-show? (memq 'deleted style)]
[callback cb])
(when (memq 'border style)
(tellv (get-cocoa-window) setDefaultButtonCell: (tell button-cocoa cell)))
(define default-button? (memq 'border style))
(define/override (show-children)
(when default-button?
(tellv (get-cocoa-window) setDefaultButtonCell: (tell button-cocoa cell))))
(tellv button-cocoa setTarget: button-cocoa)
(tellv button-cocoa setAction: #:type _SEL (selector clicked:))