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

test for get-char-width and get-char-height

Browse Source
This commit is contained in:
Matthew Flatt 2015-03-28 09:35:18 -06:00
parent bb3265bad0
commit a5ad0d011e
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gui-test/tests/gracket/dc.rktl
View File

@ -838,6 +838,20 @@
load-file load-file
p))) p)))
;; ----------------------------------------
;; Check `get-char-width` and backing scales:
(let ([dc1 (send (make-bitmap 10 10) make-dc)]
[dc2 (send (make-bitmap 10 10 #:backing-scale 2) make-dc)])
;; Sizes don't have to be the same, since they can depend on resolution,
;; but they should be close:
(test (round (send dc1 get-char-width))
'scale-2-width
(round (send dc2 get-char-width)))
(test (round (send dc1 get-char-height))
'scale-2-height
(round (send dc2 get-char-height))))
;; ---------------------------------------- ;; ----------------------------------------
;; No error on too-large bitmap: ;; No error on too-large bitmap: