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

I accidentally the UI

db4
Slava Pestov 2008-11-28 02:31:21 -06:00
parent 9c40cb4a05
commit 1c3e4f070a
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/ui/gadgets/gadgets-tests.factor
View File

@ -152,6 +152,13 @@ M: mock-gadget ungraft*
{ { f f } { f t } { t f } { t t } } [ notify-combo ] assoc-each { { f f } { f t } { t f } { t t } } [ notify-combo ] assoc-each
] with-string-writer print ] with-string-writer print
[ { { 10 30 } } ] [
<gadget> { 0 1 } >>orientation
{ { 10 20 } }
{ { 100 30 } }
orient
] unit-test
\ <gadget> must-infer \ <gadget> must-infer
\ unparent must-infer \ unparent must-infer
\ add-gadget must-infer \ add-gadget must-infer

2
basis/ui/gadgets/gadgets.factor
View File

@ -93,7 +93,7 @@ M: gadget children-on nip children>> ;
: dim-sum ( seq -- dim ) { 0 0 } [ v+ ] reduce ; : dim-sum ( seq -- dim ) { 0 0 } [ v+ ] reduce ;
: orient ( gadget seq1 seq2 -- seq ) : orient ( gadget seq1 seq2 -- seq )
rot orientation>> '[ [ _ ] 2dip set-axis ] 2map ; rot orientation>> '[ _ set-axis ] 2map ;
: each-child ( gadget quot -- ) : each-child ( gadget quot -- )
[ children>> ] dip each ; inline [ children>> ] dip each ; inline