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

fix get-color-from-user on Mac OS X

Browse Source 
Closes PR 15121

A better solution would be to implement the dialog, but given
how long it's been broken, maybe no one cares enough for that
to be worthwhile.
This commit is contained in:
Matthew Flatt 2015-10-02 15:56:42 -06:00
parent ac2d39e0e1
commit 5f63b8c95b
3 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gui-lib/mred/private/moredialogs.rkt
View File

@ -305,13 +305,16 @@
[(eq? (wx:color-from-user-platform-mode) 'dialog)
(wx:get-color-from-user message (and parent (mred->wx parent)) in-color)]
[else
(define color (if (member 'alpha style)
in-color
(make-object wx:color%
(send in-color red)
(send in-color green)
(send in-color blue)
1.0)))
(define color (cond
[in-color
(if (member 'alpha style)
in-color
(make-object wx:color%
(send in-color red)
(send in-color green)
(send in-color blue)
1.0))]
[else (make-object wx:color% 0 0 0)]))
(define ok? #f)
(define f (make-object dialog% "Choose Color" parent))
(define (done ok) (lambda (b e) (set! ok? ok) (send f show #f)))

3
gui-lib/mred/private/wx/cocoa/colordialog.rkt
View File

@ -16,8 +16,9 @@
(define-cocoa NSDeviceRGBColorSpace _id)
(define (get-color-from-user mode)
(define (get-color-from-user message parent color)
(promote-to-gui!)
(define mode 'get)
(cond
[(eq? mode 'show)
(tellv (tell NSColorPanel sharedColorPanel)

2
gui-lib/mred/private/wx/cocoa/procs.rkt
View File

@ -74,7 +74,7 @@
(define (find-graphical-system-path what)
#f)
(define (color-from-user-platform-mode) "Show Picker")
(define (color-from-user-platform-mode) #f) ; implementation in "colordialog.rkt" is incomplete
(define-unimplemented get-font-from-user)
(define (font-from-user-platform-mode) #f)