steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.gadgets: formatting.

master
John Benediktsson 2020-05-16 10:07:35 -07:00
parent 33e72abff9
commit b3412e8930
4 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/gadgets/line-support/line-support.factor
View File

@ -19,7 +19,8 @@ TUPLE: line-gadget < gadget
GENERIC: line-leading* ( gadget -- n ) GENERIC: line-leading* ( gadget -- n )
M: line-gadget line-leading* font>> font-metrics leading>> ; M: line-gadget line-leading*
font>> font-metrics leading>> ;
GENERIC: line-leading ( gadget -- n ) GENERIC: line-leading ( gadget -- n )
@ -32,7 +33,8 @@ M: line-gadget line-leading
GENERIC: line-height* ( gadget -- n ) GENERIC: line-height* ( gadget -- n )
M: line-gadget line-height* font>> font-metrics height>> ceiling ; M: line-gadget line-height*
font>> font-metrics height>> ceiling >integer ;
GENERIC: line-height ( gadget -- n ) GENERIC: line-height ( gadget -- n )

4
basis/ui/gadgets/packs/packs.factor
View File

@ -6,7 +6,9 @@ ui.baseline-alignment.private ui.gadgets ;
IN: ui.gadgets.packs IN: ui.gadgets.packs
TUPLE: pack < aligned-gadget TUPLE: pack < aligned-gadget
{ align initial: 0 } { fill initial: 0 } { gap initial: { 0 0 } } ; { align initial: 0 }
{ fill initial: 0 }
{ gap initial: { 0 0 } } ;
<PRIVATE <PRIVATE