CGRect-translate-x ( CGRect x -- CGRect' )

Vocabulary

core-text

Inputs

CGRect	an object
x	an object

Outputs

CGRect'

an object

Definition

USING: core-graphics.types kernel math ;

IN: core-text

: CGRect-translate-x ( CGRect x -- CGRect' )
    [ dup CGRect-x ] dip - over set-CGRect-x ;