Fix memory leak

db4
Slava Pestov 2008-01-29 02:04:14 -06:00
parent b0dcb68f70
commit a50ad9240c
1 changed files with 1 additions and 1 deletions

View File

@ -122,7 +122,7 @@ SYMBOL: ui-hook
: 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 deactivate-control ungraft* ] }
} case ; } case ;
: notify-queued ( -- ) : notify-queued ( -- )