line-gadget
Factor handbook » UI framework » Implementing new gadgets » Gadget line support

Next:

line-gadget? ( object -- ? )

Vocabulary
ui.gadgets.line-support

Class description
Base class for gadgets that implements display of sequences of text.

Line gadgets have the following slots:

font	a font.
selection-color	a color.
min-rows	The preferred minimum number of visible rows when the gadget is contained in a viewport.
max-rows	The preferred maximum number of visible rows when the gadget is cotnained in a viewport.
min-cols	The preferred minimum number of visible columns when the gadget is contained in a viewport.
max-cols	The preferred maximum number of visible columns when the gadget is contained in a viewport.

Definition

USING: ui.gadgets ;

IN: ui.gadgets.line-support

TUPLE: line-gadget < gadget
    font selection-color min-rows max-rows min-cols max-cols
    line-leading line-height pref-viewport-dim ;

Methods

USING: accessors kernel ui.gadgets.line-support ;

M: line-gadget line-height
    [ line-height>> ] [
        [ line-height* ] [ ] [ layout-state>> ] tri
        [ drop ] [ dupd line-height<< ] if
    ] ?unless ;


USING: accessors math math.functions ui.gadgets.line-support
ui.text ;

M: line-gadget line-height*
    font>> font-metrics height>> ceiling >integer ;


USING: accessors kernel ui.gadgets.line-support ;

M: line-gadget line-leading
    [ line-leading>> ] [
        [ line-leading* ] [ ] [ layout-state>> ] tri
        [ drop ] [ dupd line-leading<< ] if
    ] ?unless ;


USING: accessors ui.gadgets.line-support ui.text ;

M: line-gadget line-leading* font>> font-metrics leading>> ;


USING: kernel ui.gadgets ui.gadgets.line-support ;

M: line-gadget pref-dim* { 0 0 } swap line-gadget-dim ;


USING: accessors kernel ui.gadgets.line-support
ui.gadgets.scrollers ;

M: line-gadget pref-viewport-dim
    [ pref-viewport-dim>> ] [
        [ pref-viewport-dim* ] [ ] [ layout-state>> ] tri
        [ drop ] [ dupd pref-viewport-dim<< ] if
    ] ?unless ;