duration<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: duration<< ( value object -- )

Methods

USING: accessors classes.struct classes.struct.private qtkit ;

M: QTTimeRange duration<<
    T{ struct-slot-spec
        { name "duration" }
        { offset 24 }
        { class QTTime }
        { initial
            S{ QTTime
                { timeValue 0 }
                { timeScale 0 }
                { flags 0 }
            }
        }
        { type QTTime }
    } write-struct-slot ; inline


USING: accessors kernel math papier.sprites slots.private ;

M: animation-frame duration<<
    [ integer>fixnum-strict ] dip 3 set-slot ; inline


USING: accessors slots.private webapps.mason.backend ;

M: benchmark duration<< 4 set-slot ; inline


USING: accessors cuesheet slots.private ;

M: index duration<< 3 set-slot ; inline