misc-deps
/
lux
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dock icon

This commit is contained in:
Jay McCarthy 2014-11-21 13:07:23 -08:00
parent 4a58b7fe53
commit 71df7257cb
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
chaos/gui.rkt
View File

@ -27,6 +27,7 @@
(set-box! db og))))]) (set-box! db og))))])
(define (make-gui #:mode [mode 'draw] (define (make-gui #:mode [mode 'draw]
#:icon [icon #f]
#:width [init-w 800] #:width [init-w 800]
#:height [init-h 600]) #:height [init-h 600])
(define events-ch (make-async-channel)) (define events-ch (make-async-channel))
@ -79,6 +80,15 @@
(send f center) (send f center)
(send f show #t) (send f show #t)
(when icon
(define icon-bm
(if (is-a? icon bitmap%)
icon
(read-bitmap icon)))
(when (eq? 'macosx (system-type 'os))
(local-require drracket/private/dock-icon)
(set-dock-tile-bitmap icon-bm)))
(define depth-box (box 0)) (define depth-box (box 0))
(gui depth-box events-ch drawer f refresh!)) (gui depth-box events-ch drawer f refresh!))
@ -90,6 +100,8 @@
(#:mode (#:mode
(or/c (one-of/c 'draw 'compat-gl 'core-gl) (or/c (one-of/c 'draw 'compat-gl 'core-gl)
(is-a?/c gl-config%)) (is-a?/c gl-config%))
#:icon
(or/c path-string? (is-a?/c bitmap%))
#:width #:width
exact-nonnegative-integer? exact-nonnegative-integer?
#:height #:height