border ( gadget dim orientation -- gadget' )

Vocabulary

ui.gadgets.flex-borders.private

Inputs

gadget	an object
dim	an object
orientation	an object

Outputs

gadget'

an object

Definition

USING: accessors ui.gadgets ui.gadgets.tracks ;

IN: ui.gadgets.flex-borders.private

:: border ( gadget dim orientation -- gadget' )
    orientation <track> <gadget> dim >>dim f track-add
    gadget 1 track-add <gadget> dim >>dim f track-add ;