copy-row ( OLD NEW -- )

Vocabulary

ui.gadgets.frame-buffer

Inputs

OLD	an object
NEW	an object

Outputs

None

Definition

USING: sequences ;

IN: ui.gadgets.frame-buffer

:: copy-row ( OLD NEW -- )
    OLD NEW min-length :> LEN OLD LEN head-slice 0 NEW copy ;