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

ui.render: small simplification

factor-shell
Björn Lindqvist 2017-07-01 07:51:10 +02:00
parent f0fac14c14
commit 3b78ec7b6f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/render/render.factor
View File

@ -104,9 +104,9 @@ M: gadget gadget-foreground dup interior>> pen-foreground ;
] with-translation ; ] with-translation ;
: draw-border ( object -- ) : draw-border ( object -- )
dup boundary>> dup [ dup boundary>> [
origin get [ draw-boundary ] with-translation origin get [ draw-boundary ] with-translation
] [ 2drop ] if ; ] [ drop ] if* ;
PRIVATE> PRIVATE>