Fix memory leak
parent
b0dcb68f70
commit
a50ad9240c
|
@ -122,7 +122,7 @@ SYMBOL: ui-hook
|
|||
: notify ( gadget -- )
|
||||
dup gadget-graft-state dup first { f f } { t t } ? pick set-gadget-graft-state {
|
||||
{ { f t } [ dup activate-control graft* ] }
|
||||
{ { t f } [ dup activate-control ungraft* ] }
|
||||
{ { t f } [ dup deactivate-control ungraft* ] }
|
||||
} case ;
|
||||
|
||||
: notify-queued ( -- )
|
||||
|
|
Loading…
Reference in New Issue