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

fix Same for Retina displays

Browse Source
This commit is contained in:
Matthew Flatt 2014-01-11 11:02:08 -06:00
parent b8feb283cd
commit e02a1af037
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/games/same/same.rkt
View File

@ -74,7 +74,7 @@
(define same-canvas% (define same-canvas%
(class canvas% (class canvas%
(inherit get-dc get-client-size) (inherit get-dc get-client-size make-bitmap)
(define/private (get-width) (let-values ([(w h) (get-client-size)]) w)) (define/private (get-width) (let-values ([(w h) (get-client-size)]) w))
(define/private (get-height) (let-values ([(w h) (get-client-size)]) h)) (define/private (get-height) (let-values ([(w h) (get-client-size)]) h))
(define/private (get-x-step) (/ (get-width) board-width)) (define/private (get-x-step) (/ (get-width) board-width))