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

color-picker: rewrite <color-picker>

db4
Eduardo Cavazos 2008-07-15 01:58:37 -05:00
parent 1f3f062bf6
commit 653dee57d9
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,8 @@
USING: kernel math math.functions math.parser models USING: kernel math math.functions math.parser models
models.filter models.range models.compose sequences ui models.filter models.range models.compose sequences ui
ui.gadgets ui.gadgets.frames ui.gadgets.labels ui.gadgets.packs ui.gadgets ui.gadgets.frames ui.gadgets.labels ui.gadgets.packs
ui.gadgets.sliders ui.render math.geometry.rect accessors ; ui.gadgets.sliders ui.render math.geometry.rect accessors
ui.gadgets.grids ;
IN: color-picker IN: color-picker
! Simple example demonstrating the use of models. ! Simple example demonstrating the use of models.
@ -33,12 +34,16 @@ M: color-preview model-changed
[ <color-slider> add-gadget ] each ; [ <color-slider> add-gadget ] each ;
: <color-picker> ( -- gadget ) : <color-picker> ( -- gadget )
[ <frame>
<color-sliders> @top frame, <color-sliders>
dup <color-model> <color-preview> @center frame, swap dup
[ [ truncate number>string ] map " " join ] <filter> [ @top grid-add* ]
<label-control> @bottom frame, [ <color-model> <color-preview> @center grid-add* ]
] make-frame ; [
[ [ truncate number>string ] map " " join ] <filter> <label-control>
@bottom grid-add*
]
tri* ;
: color-picker-window ( -- ) : color-picker-window ( -- )
[ <color-picker> "Color Picker" open-window ] with-ui ; [ <color-picker> "Color Picker" open-window ] with-ui ;