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

Merge pull request #3 from LiberalArtist/chaos/gui 

make-gui shouldn't ignore its #:width and #:height args
This commit is contained in:
Jay McCarthy 2016-12-27 20:25:06 -05:00 committed by GitHub
parent e1c16adcc8 efb994e7e8
commit dc48fe9f7e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
chaos/gui.rkt
View File

@ -30,8 +30,8 @@
#:start-fullscreen? [start-fullscreen? #f] #:start-fullscreen? [start-fullscreen? #f]
#:icon [icon #f] #:icon [icon #f]
#:frame-style [frame-style '()] #:frame-style [frame-style '()]
#:width [the-init-w #f] #:width [the-init-w 800]
#:height [the-init-h #f]) #:height [the-init-h 600])
(define-values (start-x start-y init-w init-h) (define-values (start-x start-y init-w init-h)
(cond (cond
[start-fullscreen? [start-fullscreen?
@ -39,7 +39,7 @@
(define-values (w h) (get-display-size #t)) (define-values (w h) (get-display-size #t))
(values (* -1 x) (* -1 y) w h)] (values (* -1 x) (* -1 y) w h)]
[else [else
(values #f #f 800 600)])) (values #f #f the-init-w the-init-h)]))
;; xxx start-x/y isn't working ;; xxx start-x/y isn't working