fix get-char-height' and get-char-width' in dc<%>

Closes PR 11526 original commit: 965e8f96d13d26cf34c9c5a42a7e27c29eeea989
2010-12-10 20:35:45 -07:00 · 2010-12-10 20:35:45 -07:00 · d4ffb4f39f
commit d4ffb4f39f
parent 313fe0d34c
1 changed files with 3 additions and 0 deletions
--- a/collects/tests/gracket/dc.rktl
+++ b/collects/tests/gracket/dc.rktl
@ -72,6 +72,9 @@
  (try-ok 'set-text-foreground (make-object color% "Yellow"))
  (try-ok 'set-text-mode 'transparent)

+  (try-ok 'get-char-height)
+  (try-ok 'get-char-width)
+
  (try 'try-color (make-object color% "Yellow") (make-object color%)))

 (st #f mdc ok?)