diff --git a/collects/racket/draw/private/dc.rkt b/collects/racket/draw/private/dc.rkt index f1bda36391..3d6fdf6586 100644 --- a/collects/racket/draw/private/dc.rkt +++ b/collects/racket/draw/private/dc.rkt @@ -511,6 +511,7 @@ [(unsmoothed) CAIRO_ANTIALIAS_NONE] [(partly-smoothed) CAIRO_ANTIALIAS_GRAY] [(smoothed) CAIRO_ANTIALIAS_SUBPIXEL])) + (cairo_font_options_set_hint_metrics o2 CAIRO_HINT_METRICS_OFF) (pango_cairo_context_set_font_options context o2) (cairo_font_options_destroy o2))) diff --git a/collects/racket/draw/unsafe/cairo.rkt b/collects/racket/draw/unsafe/cairo.rkt index 81e15cd63f..42f5acc05d 100644 --- a/collects/racket/draw/unsafe/cairo.rkt +++ b/collects/racket/draw/unsafe/cairo.rkt @@ -161,6 +161,7 @@ (define-cairo cairo_get_font_options (_fun _cairo_t _cairo_font_options_t -> _void)) (define-cairo cairo_set_font_options (_fun _cairo_t _cairo_font_options_t -> _void)) (define-cairo cairo_font_options_set_antialias (_fun _cairo_font_options_t _int -> _void)) +(define-cairo cairo_font_options_set_hint_metrics (_fun _cairo_font_options_t _int -> _void)) (define-cairo cairo_show_glyphs (_fun _cairo_t _cairo_glyph_t-pointer _int -> _void)) @@ -306,4 +307,10 @@ CAIRO_EXTEND_REFLECT CAIRO_EXTEND_PAD) +(define-enum + 0 + CAIRO_HINT_METRICS_DEFAULT + CAIRO_HINT_METRICS_OFF + CAIRO_HINT_METRICS_ON) + (define/provide CAIRO_CONTENT_COLOR_ALPHA #x3000)