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

Add min-dim slot to border gadgets

db4
Slava Pestov 2009-02-11 04:56:01 -06:00
parent bd5fb06cdf
commit 3dfae1781f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/gadgets/borders/borders.factor
View File

@ -7,7 +7,8 @@ IN: ui.gadgets.borders
TUPLE: border < gadget TUPLE: border < gadget
{ size initial: { 0 0 } } { size initial: { 0 0 } }
{ fill initial: { 0 0 } } { fill initial: { 0 0 } }
{ align initial: { 1/2 1/2 } } ; { align initial: { 1/2 1/2 } }
{ min-dim initial: { 0 0 } } ;
: new-border ( child class -- border ) : new-border ( child class -- border )
new-gadget swap add-gadget ; inline new-gadget swap add-gadget ; inline
@ -20,7 +21,8 @@ TUPLE: border < gadget
<border> { 1 1 } >>fill ; <border> { 1 1 } >>fill ;
M: border pref-dim* M: border pref-dim*
[ size>> 2 v*n ] [ gadget-child pref-dim ] bi v+ ; [ [ size>> 2 v*n ] [ gadget-child pref-dim ] bi v+ ]
[ min-dim>> ] bi vmax ;
M: border baseline M: border baseline
[ size>> second ] [ gadget-child baseline ] bi + ; [ size>> second ] [ gadget-child baseline ] bi + ;