From 7646ae71ddfe4fe0e980681578cae6761ab33441 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Wed, 4 Nov 2015 10:03:52 +0100
Subject: [PATCH] color-picker: small refactoring

---
 extra/color-picker/color-picker.factor | 24 ++++++++++--------------
 1 file changed, 10 insertions(+), 14 deletions(-)

diff --git a/extra/color-picker/color-picker.factor b/extra/color-picker/color-picker.factor
index 038134b309..46dbae8da1 100644
--- a/extra/color-picker/color-picker.factor
+++ b/extra/color-picker/color-picker.factor
@@ -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 ;