Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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