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

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

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