411 REFERENCE · Wikibooks
Rebol Programming/request-color
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
REQUEST-COLOR /color clr /offset xy
DESCRIPTION:
Requests a color value.
REQUEST-COLOR is a function value.
REFINEMENTS
/color
clr -- (Type: any)
/offset
xy -- (Type: any)
SOURCE CODE
request-color: func [
"Requests a color value."
/color clr /offset xy /local result
][
if none? :color-lay [
color-lay: layout [
across origin 5x4 space 8x2
x: box 80x30 ibevel return
t: field center middle 80 font-size 10 return
pad 8
r: slider 16x278 gray red effect [gradient 0x1 255.0.0 0.0.0] [setc 1 r/data]
g: slider 16x278 gray green effect [gradient 0x1 0.255.0 0.0.0] [setc 2 g/data]
b: slider 16x278 gray blue effect [gradient 0x1 0.0.255 0.0.0] [setc 3 b/data]
return
pad 8 btn-enter "OK" 64 [result: x/color hide-popup]
return
pad 8 btn-cancel "None" escape 64 [hide-popup]
]
]
x/color: either tuple? clr [clr] [0.0.0]
r/data: 1 - (x/color/1 / 255)
g/data: 1 - (x/color/2 / 255)
b/data: 1 - (x/color/3 / 255)
refresh
either offset [inform/offset color-lay xy] [inform color-lay]
result
]