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

ui.tools.browser.popups: fix in/out links popups.

db4
John Benediktsson 2013-03-12 09:10:16 -07:00
parent ca6b18d945
commit e35c142195
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/ui/tools/browser/popups/popups.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs definitions fry help kernel USING: accessors arrays assocs colors.constants
colors.constants math.rectangles models.arrow namespaces sequences definitions.icons fry help help.topics kernel math.rectangles
sorting definitions.icons tools.crossref ui.gadgets ui.gadgets.glass models.arrow namespaces sequences tools.crossref ui.gadgets
ui.gadgets.labeled ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.glass ui.gadgets.labeled ui.gadgets.search-tables
ui.gadgets.search-tables ui.gadgets.wrappers ui.gestures ui.operations ui.gadgets.tables ui.gadgets.wrappers ui.gestures ui.images
ui.pens.solid ui.images ; ui.operations ui.pens.solid ;
FROM: ui.gadgets.wrappers => wrapper ; FROM: ui.gadgets.wrappers => wrapper ;
IN: ui.tools.browser.popups IN: ui.tools.browser.popups
@ -18,12 +18,11 @@ M: link-renderer row-value drop first ;
TUPLE: links-popup < wrapper ; TUPLE: links-popup < wrapper ;
: match? ( value str -- ? )
swap second subseq? ;
: <links-table> ( model quot -- table ) : <links-table> ( model quot -- table )
'[ @ sort-articles ] <arrow> '[
link-renderer [ second ] <search-table> @ sort-articles
[ dup article-title ] { } map>assoc
] <arrow> link-renderer [ second ] <search-table>
[ invoke-primary-operation ] >>action [ invoke-primary-operation ] >>action
[ hide-glass ] >>hook [ hide-glass ] >>hook
t >>selection-required? t >>selection-required?