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

ui.gadgets: more accessors updates

db4
Eduardo Cavazos 2008-07-12 18:02:32 -05:00
parent 49f58ce15b
commit 32ca39ce85
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/ui/gadgets/gadgets.factor
View File

@ -219,7 +219,7 @@ M: gadget layout* drop ;
{ t f } (queue-graft) ; { t f } (queue-graft) ;
: graft-later ( gadget -- ) : graft-later ( gadget -- )
dup gadget-graft-state { dup graft-state>> {
{ { f t } [ drop ] } { { f t } [ drop ] }
{ { t t } [ drop ] } { { t t } [ drop ] }
{ { t f } [ unqueue-graft ] } { { t f } [ unqueue-graft ] }
@ -227,7 +227,7 @@ M: gadget layout* drop ;
} case ; } case ;
: ungraft-later ( gadget -- ) : ungraft-later ( gadget -- )
dup gadget-graft-state { dup graft-state>> {
{ { f f } [ drop ] } { { f f } [ drop ] }
{ { t f } [ drop ] } { { t f } [ drop ] }
{ { f t } [ unqueue-graft ] } { { f t } [ unqueue-graft ] }
@ -292,7 +292,7 @@ SYMBOL: in-layout?
over unparent over unparent
dup pick (>>parent) dup pick (>>parent)
[ ((add-gadget)) ] 2keep [ ((add-gadget)) ] 2keep
gadget-graft-state second [ graft ] [ drop ] if ; graft-state>> second [ graft ] [ drop ] if ;
: add-gadget ( gadget parent -- ) : add-gadget ( gadget parent -- )
not-in-layout not-in-layout