[REBOL] Request-color use

From: ronald::gruss::libertysurf::fr at: 9-May-2001 22:47

Hi,

How could I change the filter color in the script below using request-color ?
I'm not used enough to rebol to understand everything in request-color's source.

Thanks in advance.

image1: load-image %./images/couleurprimaire.gif
image2: load-image %./images/couleursecondaire.gif

faces: layout [
 size 450x480
 backdrop water
 img: image 300x300 image1
 below
 across
 button image1 70x70 [img/image: image1 show img]
 button image2 70x70 [img/image: image2 show img]
 return

; pad 0x20 space 0x2
 label yellow "Utiliser les boutons pour changer l'image à analyser"
 return

 label yellow "Maintenir le bouton gauche de la souris enfoncé pour déplacer les filtres"
; at image1/size * 0x1 + 10x120
 return
 pos: vh2 90x24
]

vid-face: get-style 'face

append faces/pane v-face: make vid-face [
 size: 90x90
 pos/text: offset: 340x20
 edge: make edge [color: 250.120.40 size: 4x4]
 color: font: para: text: data: image: none
 effect: [multiply 255.0.0]
 feel: make feel [
  engage: func [f a e] [  ;intercepts target face events
   if find [over away] a [
    pos/text: f/offset: confine f/offset + e/offset - f/data f/size
     0x0 f/parent-face/size
    f/effect: [multiply 255.0.0]
    show [f pos]
   ]

   if a = 'down [f/data: e/offset]
  ]
 ]
]

view faces

Bye bye

[1] · 2 · 3 · 4 · See whole thread