From 940782cf935f995921088740d4b70ba893669b8e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 17 Feb 2009 14:26:01 -0600
Subject: [PATCH] Add article and word help icons

---
 basis/definitions/icons/icons.factor        |  4 +++-
 basis/tools/apropos/apropos.factor          |  2 +-
 basis/ui/tools/browser/popups/popups.factor | 10 ++++++----
 3 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/basis/definitions/icons/icons.factor b/basis/definitions/icons/icons.factor
index c5b997b5fe..fb25ccf715 100644
--- a/basis/definitions/icons/icons.factor
+++ b/basis/definitions/icons/icons.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: assocs classes.predicate fry generic io.pathnames kernel
 macros sequences vocabs words words.symbol words.constant
-lexer parser ;
+lexer parser help.topics ;
 IN: definitions.icons
 
 GENERIC: definition-icon ( definition -- path )
@@ -30,6 +30,8 @@ ICON: symbol symbol-word
 ICON: constant constant-word
 ICON: word normal-word
 ICON: vocab-link unopen-vocab
+ICON: word-link word-help-article
+ICON: link help-article
 
 PRIVATE>
 
diff --git a/basis/tools/apropos/apropos.factor b/basis/tools/apropos/apropos.factor
index 28cb26395e..c7126c10d0 100644
--- a/basis/tools/apropos/apropos.factor
+++ b/basis/tools/apropos/apropos.factor
@@ -11,7 +11,7 @@ IN: tools.apropos
         dup [ vocab-spec? ] all? [
             $vocabs
         ] [
-            [ <$link> ] map $list
+            [ <$pretty-link> 1array ] map $table
         ] if
     ] if ;
 
diff --git a/basis/ui/tools/browser/popups/popups.factor b/basis/ui/tools/browser/popups/popups.factor
index 3d1351876a..8150dc1a08 100644
--- a/basis/ui/tools/browser/popups/popups.factor
+++ b/basis/ui/tools/browser/popups/popups.factor
@@ -2,14 +2,16 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs definitions fry help.topics kernel
 colors.constants math.rectangles models.filter namespaces sequences
-sorting ui.gadgets ui.gadgets.glass ui.gadgets.labeled
-ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.search-tables
-ui.gadgets.wrappers ui.gestures ui.operations ui.pens.solid ;
+sorting definitions.icons ui.gadgets ui.gadgets.glass
+ui.gadgets.labeled ui.gadgets.scrollers ui.gadgets.tables
+ui.gadgets.search-tables ui.gadgets.wrappers ui.gestures ui.operations
+ui.pens.solid ui.images ;
 IN: ui.tools.browser.popups
 
 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 ;