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

Redo word icons for better layout in UI

db4
Slava Pestov 2009-02-12 16:52:44 -06:00
parent 4d69475cac
commit b0e14989ee
10 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
basis/definitions/icons/class-predicate-word.tiff
View File

Binary file not shown.

BIN
basis/definitions/icons/class-word.tiff
View File

Binary file not shown.

BIN
basis/definitions/icons/constant-word.tiff
View File

Binary file not shown.

BIN
basis/definitions/icons/generic-word.tiff
View File

Binary file not shown.

BIN
basis/definitions/icons/macro-word.tiff
View File

Binary file not shown.

BIN
basis/definitions/icons/normal-word.tiff
View File

Binary file not shown.

BIN
basis/definitions/icons/parsing-word.tiff
View File

Binary file not shown.

BIN
basis/definitions/icons/primitive-word.tiff
View File

Binary file not shown.

BIN
basis/definitions/icons/symbol-word.tiff
View File

Binary file not shown.

12
basis/tools/vocabs/browser/browser.factor
View File

@ -10,7 +10,7 @@ tools.vocabs vocabs vocabs.loader words words.symbol
combinators.smart definitions.icons ; combinators.smart definitions.icons ;
IN: tools.vocabs.browser IN: tools.vocabs.browser
: <$definition> ( definition -- element ) : <$pretty-link> ( definition -- element )
[ [
[ definition-icon 1array \ $image prefix ] [ definition-icon 1array \ $image prefix ]
[ drop " " ] [ drop " " ]
@ -19,7 +19,7 @@ IN: tools.vocabs.browser
] output>array ; ] output>array ;
: vocab-row ( vocab -- row ) : vocab-row ( vocab -- row )
[ <$definition> ] [ vocab-summary ] bi 2array ; [ <$pretty-link> ] [ vocab-summary ] bi 2array ;
: vocab-headings ( -- headings ) : vocab-headings ( -- headings )
{ {
@ -82,7 +82,7 @@ C: <vocab-author> vocab-author
[ [
"Tuple classes" $subheading "Tuple classes" $subheading
[ [
[ <$definition> ] [ <$pretty-link> ]
[ superclass <$link> ] [ superclass <$link> ]
[ "slots" word-prop [ name>> ] map " " join <$snippet> ] [ "slots" word-prop [ name>> ] map " " join <$snippet> ]
tri 3array tri 3array
@ -95,7 +95,7 @@ C: <vocab-author> vocab-author
[ [
"Predicate classes" $subheading "Predicate classes" $subheading
[ [
[ <$definition> ] [ <$pretty-link> ]
[ superclass <$link> ] [ superclass <$link> ]
bi 2array bi 2array
] map ] map
@ -106,7 +106,7 @@ C: <vocab-author> vocab-author
: (describe-classes) ( classes heading -- ) : (describe-classes) ( classes heading -- )
'[ '[
_ $subheading _ $subheading
[ <$definition> 1array ] map $table [ <$pretty-link> 1array ] map $table
] unless-empty ; ] unless-empty ;
: describe-builtin-classes ( classes -- ) : describe-builtin-classes ( classes -- )
@ -159,7 +159,7 @@ C: <vocab-author> vocab-author
] unless-empty ; ] unless-empty ;
: word-row ( word -- element ) : word-row ( word -- element )
[ <$definition> ] [ <$pretty-link> ]
[ stack-effect dup [ effect>string <$snippet> ] when ] [ stack-effect dup [ effect>string <$snippet> ] when ]
bi 2array ; bi 2array ;