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

color-table: adding hex color column.

locals-and-roots
John Benediktsson 2016-04-30 15:06:14 -07:00
parent 57403b72ae
commit 53f5961534
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
extra/color-table/color-table.factor
View File

@ -1,8 +1,9 @@
! 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 colors.constants combinators.smart formatting USING: accessors colors.constants colors.hex combinators
kernel literals models sorting.human sorting.slots strings ui combinators.smart formatting kernel literals models
ui.gadgets.scrollers ui.gadgets.tables ; sorting.human sorting.slots strings ui ui.gadgets.scrollers
ui.gadgets.tables ;
IN: color-table IN: color-table
! ui.gadgets.tables demo ! ui.gadgets.tables demo
@ -18,15 +19,17 @@ M: color-renderer filled-column
drop 0 ; drop 0 ;
M: color-renderer column-titles M: color-renderer column-titles
drop { "Color" "Name" "Red" "Green" "Blue" } ; drop { "Color" "Name" "Red" "Green" "Blue" "Hex" } ;
M: color-renderer row-columns M: color-renderer row-columns
drop [ drop [
full-block-string swap full-block-string swap
dup named-color dup named-color {
[ red>> "%.5f" sprintf ] [ red>> "%.5f" sprintf ]
[ green>> "%.5f" sprintf ] [ green>> "%.5f" sprintf ]
[ blue>> "%.5f" sprintf ] tri [ blue>> "%.5f" sprintf ]
[ rgba>hex ]
} cleave
] output>array ; ] output>array ;
M: color-renderer row-color M: color-renderer row-color
@ -44,5 +47,5 @@ M: color-renderer row-value
10 >>min-rows 10 >>min-rows
10 >>max-rows ; 10 >>max-rows ;
MAIN-WINDOW: color-table-demo { { title "Colors" } { pref-dim { 450 300 } } } MAIN-WINDOW: color-table-demo { { title "Colors" } { pref-dim { 500 300 } } }
<color-table> <scroller> >>gadgets ; <color-table> <scroller> >>gadgets ;