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

color-picker: small refactoring

db4
Björn Lindqvist 2015-11-04 10:03:52 +01:00
parent b035e8ec13
commit 7646ae71dd
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/color-picker/color-picker.factor
View File

@ -30,20 +30,16 @@ M: color-preview model-changed
[ [ range-model ] map <product> ] [ [ range-model ] map <product> ]
bi ; bi ;
: color>str ( seq -- str )
vtruncate v>integer first3 3dup "%d %d %d #%02x%02x%02x" sprintf ;
: <color-picker> ( -- gadget ) : <color-picker> ( -- gadget )
vertical <track> vertical <track> { 5 5 } >>gap
{ 5 5 } >>gap
<color-sliders> <color-sliders>
[ f track-add ] [ f track-add ]
[ [
[ <color-model> <color-preview> 1 track-add ] [ <color-model> <color-preview> 1 track-add ]
[ [ [ color>str ] <arrow> <label-control> f track-add ] bi
[
vtruncate v>integer
first3 3dup "%d %d %d #%02x%02x%02x" sprintf
] <arrow> <label-control>
f track-add
] bi
] bi* ; ] bi* ;
MAIN-WINDOW: color-picker-window { { title "Color Picker" } } MAIN-WINDOW: color-picker-window { { title "Color Picker" } }