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

64 characters per line or death!!!!

db4
Joe Groff 2008-01-27 22:17:11 -08:00
parent afb8ac566e
commit 7e0674bf03
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/ui/ui.factor
View File

@ -120,7 +120,9 @@ SYMBOL: ui-hook
[ dup update-hand draw-world ] each ; [ dup update-hand draw-world ] each ;
: notify ( gadget -- ) : notify ( gadget -- )
dup gadget-graft-state dup first { f f } { t t } ? pick set-gadget-graft-state { dup gadget-graft-state
dup first { f f } { t t } ?
pick set-gadget-graft-state {
{ { f t } [ dup activate-control graft* ] } { { f t } [ dup activate-control graft* ] }
{ { t f } [ dup activate-control ungraft* ] } { { t f } [ dup activate-control ungraft* ] }
} case ; } case ;