[REBOL] 'Compose' into feel -engage function
From: info::id-net::ch at: 13-Jan-2002 18:42
Hello,
I got a problem with the 'compose word.
I use 'compose with append to layout for texts and pairs, when the text or
pair is created before the append and often in a recursive way.
But i can't compose some parameters in the feel [engage ] function.
The code below is working for (coor). The () are reduce, but into the
feel-engage function i can't passing arguments.
For example, (first tempo1) is not reduce.
Do I have to use another word, like "append layout reduce compose/deep" or
something like that ?
coor: 35x100
append lt-ecran-mil-AGEND compose
[
at (coor) box1: box 270x35
effect [
draw [
;fill-pen 23.23.23
;polygon 80x32 180x0 269x0 269x33
pen black
line 125x33 165x0
]
]
feel [engage: func [ face action event ]
[
if event/type = 'down [do [ print (first tempo1)]
tblEvent: parse (to-string event/offset) "x"
if (to-integer first tblEvent) < 125 [var47: 1]
if (to-integer first tblEvent) > 165 [var47: 2]
]
]
