rect>NSRect ( rect world -- NSRect )

Vocabulary

ui.backend.cocoa.views

Inputs

rect	an object
world	an object

Outputs

NSRect

an object

Definition

USING: accessors core-graphics.types kernel math sequences ;

IN: ui.backend.cocoa.views

: rect>NSRect ( rect world -- NSRect )
    [ [ loc>> first2 ] [ dim>> second ] bi* swap - ]
    [ drop dim>> first2 ] 2bi <CGRect> ;