Fix inference again
parent
2513c2d3df
commit
460ce213af
|
@ -25,11 +25,11 @@ TUPLE: cairo-gadget < texture-gadget dim quot ;
|
|||
M: cairo-gadget cache-key* [ dim>> ] [ quot>> ] bi 2array ;
|
||||
|
||||
: render-cairo ( dim quot -- bytes format )
|
||||
>r 2^-bounds r> copy-cairo GL_BGRA ;
|
||||
>r 2^-bounds r> copy-cairo GL_BGRA ; inline
|
||||
|
||||
M: cairo-gadget render*
|
||||
[ dim>> dup ] [ quot>> ] bi
|
||||
render-cairo render-bytes* ;
|
||||
! M: cairo-gadget render*
|
||||
! [ dim>> dup ] [ quot>> ] bi
|
||||
! render-cairo render-bytes* ;
|
||||
|
||||
! maybe also texture>png
|
||||
! : cairo>png ( gadget path -- )
|
||||
|
|
|
@ -0,0 +1,5 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: help.html
|
||||
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
IN: opengl.gadgets.tests
|
||||
USING: tools.test opengl.gadgets ;
|
||||
|
||||
\ render* must-infer
|
|
@ -100,7 +100,7 @@ destructors accessors namespaces kernel cairo ;
|
|||
>r alien>> pango-layout r> with-variable ; inline
|
||||
|
||||
: with-pango-cairo ( quot -- )
|
||||
cr pango_cairo_create_layout swap with-layout ;
|
||||
cr pango_cairo_create_layout swap with-layout ; inline
|
||||
|
||||
MEMO: dummy-cairo ( -- cr )
|
||||
CAIRO_FORMAT_ARGB32 0 0 cairo_image_surface_create cairo_create ;
|
||||
|
|
|
@ -18,7 +18,7 @@ M: pango-cairo-backend construct-pango
|
|||
|
||||
: setup-layout ( gadget -- quot )
|
||||
[ font>> ] [ text>> ] bi
|
||||
'[ , layout-font , layout-text ] ;
|
||||
'[ , layout-font , layout-text ] ; inline
|
||||
|
||||
M: pango-cairo-gadget render* ( gadget -- )
|
||||
setup-layout [ layout-size dup ]
|
||||
|
|
Loading…
Reference in New Issue