20 lines
399 B
Factor
20 lines
399 B
Factor
|
IN: temporary
|
||
|
|
USING: gadgets-search io test namespaces gadgets
|
||
|
|
sequences threads freetype timers kernel words ;
|
||
|
|
|
||
|
|
timers get [ init-timers ] unless
|
||
|
|
|
||
|
|
[
|
||
|
|
"set-word-prop" all-words <word-search> "search" set
|
||
|
|
"search" get graft
|
||
|
|
|
||
|
|
1000 sleep
|
||
|
|
do-timers
|
||
|
|
|
||
|
|
[ f ]
|
||
|
|
[ "search" get live-search-list control-value empty? ]
|
||
|
|
unit-test
|
||
|
|
|
||
|
|
"search" get ungraft
|
||
|
|
] with-freetype
|