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

cocoa: change `radio-box%' implementation of no selected buttons

Browse Source 
(not sure how I missed the `setAllowsEmptySelection' method before,
  but maybe there was some reason to avoid it that I've forgotten
  --- so *don't* merge to 5.1)

original commit: e1303dc4006951d7c9e1ebee31d0f5a76ab3c40e
This commit is contained in:
Matthew Flatt 2011-02-04 08:49:22 -07:00
parent f04e67e91f
commit 8b7ca50605
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/private/wx/cocoa/radio-box.rkt
View File

@ -28,7 +28,7 @@
(-a _void (clicked: [_id sender])
;; In case we were in 0-item mode, switch to Radio mode to
;; ensure that only one button is selected:
(tellv self setMode: #:type _int NSRadioModeMatrix)
(tellv self setAllowsEmptySelection: #:type _BOOL #f)
(queue-window*-event wxb (lambda (wx) (send wx clicked)))))
(define-objc-class MyImageButtonCell NSButtonCell
@ -129,13 +129,12 @@
(define/public (set-selection i)
(if (= i -1)
(begin
;; Need to change to NSListModeMatrix to disable all.
(tellv (get-cocoa) setMode: #:type _int NSListModeMatrix)
(tellv (get-cocoa) setAllowsEmptySelection: #:type _BOOL #t)
(tellv (get-cocoa) deselectAllCells))
(begin
(tellv (get-cocoa) setMode: #:type _int NSRadioModeMatrix)
(tellv (get-cocoa) selectCellAtRow: #:type _NSInteger (if horiz? 0 i)
column: #:type _NSInteger (if horiz? i 0)))))
column: #:type _NSInteger (if horiz? i 0))
(tellv (get-cocoa) setAllowsEmptySelection: #:type _BOOL #f))))
(define/public (get-selection)
(let ([c (tell (get-cocoa) selectedCell)]
[pos (if horiz?