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

ui.gadgets.borders: don't convert border-loc to fixnum.

master
John Benediktsson 2020-05-17 20:45:49 -07:00
parent 0b294c5d50
commit eb7aad96c0
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,8 +40,7 @@ M: border pref-dim*
[ border-major-dim ] [ border-minor-dim ] [ fill>> ] tri scale ; [ border-major-dim ] [ border-minor-dim ] [ fill>> ] tri scale ;
: border-loc ( border dim -- loc ) : border-loc ( border dim -- loc )
[ [ size>> ] [ align>> ] [ border-major-dim ] tri ] dip [ [ size>> ] [ align>> ] [ border-major-dim ] tri ] dip v- v* v+ ;
v- v* v+ [ >fixnum ] map ;
: border-child-rect ( border -- rect ) : border-child-rect ( border -- rect )
dup border-dim [ border-loc ] keep <rect> ; dup border-dim [ border-loc ] keep <rect> ;