--- /dev/null
+! Copyright (C) 2022 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: models models.search namespaces tools.test
+ui.gadgets.panes ui.gadgets.worlds ui.tools.button-list ;
+IN: models.search.tests
+
+{ } [
+ world-buttons <model> "Active Buttons"
+ <active-buttons-popup> gadget.
+] unit-test
\ No newline at end of file
'[ _ curry filter ] <smart-arrow> ; inline
: <string-search> ( values search quot -- model )
- '[ @ [ >case-fold ] bi@ subseq-index? ] <search> ; inline
+ '[ swap @ [ >case-fold ] bi@ subseq? ] <search> ; inline