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

Add article and word help icons

db4
Slava Pestov 2009-02-17 14:26:01 -06:00
parent d67f08549c
commit 940782cf93
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/definitions/icons/icons.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs classes.predicate fry generic io.pathnames kernel USING: assocs classes.predicate fry generic io.pathnames kernel
macros sequences vocabs words words.symbol words.constant macros sequences vocabs words words.symbol words.constant
lexer parser ; lexer parser help.topics ;
IN: definitions.icons IN: definitions.icons
GENERIC: definition-icon ( definition -- path ) GENERIC: definition-icon ( definition -- path )
@ -30,6 +30,8 @@ ICON: symbol symbol-word
ICON: constant constant-word ICON: constant constant-word
ICON: word normal-word ICON: word normal-word
ICON: vocab-link unopen-vocab ICON: vocab-link unopen-vocab
ICON: word-link word-help-article
ICON: link help-article
PRIVATE> PRIVATE>

2
basis/tools/apropos/apropos.factor
View File

@ -11,7 +11,7 @@ IN: tools.apropos
dup [ vocab-spec? ] all? [ dup [ vocab-spec? ] all? [
$vocabs $vocabs
] [ ] [
[ <$link> ] map $list [ <$pretty-link> 1array ] map $table
] if ] if
] if ; ] if ;

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

@ -2,14 +2,16 @@
! 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.topics kernel USING: accessors arrays assocs definitions fry help.topics kernel
colors.constants math.rectangles models.filter namespaces sequences colors.constants math.rectangles models.filter namespaces sequences
sorting ui.gadgets ui.gadgets.glass ui.gadgets.labeled sorting definitions.icons ui.gadgets ui.gadgets.glass
ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.search-tables ui.gadgets.labeled ui.gadgets.scrollers ui.gadgets.tables
ui.gadgets.wrappers ui.gestures ui.operations ui.pens.solid ; ui.gadgets.search-tables ui.gadgets.wrappers ui.gestures ui.operations
ui.pens.solid ui.images ;
IN: ui.tools.browser.popups IN: ui.tools.browser.popups
SINGLETON: link-renderer SINGLETON: link-renderer
M: link-renderer row-columns drop second 1array ; M: link-renderer row-columns
drop first2 [ definition-icon <image-name> ] dip 2array ;
M: link-renderer row-value drop first ; M: link-renderer row-value drop first ;