'Compose' into feel -engage function
[1/3] 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]
]
]
[2/3] from: al:bri:xtra at: 14-Jan-2002 8:06
Phillippe wrote:
> For example, (first tempo1) is not reduce.
Try:
compose/deep
and your problem should be solved.
Andrew Martin
ICQ: 26227169 http://valley.150m.com/
[3/3] from: nitsch-lists:netcologne at: 13-Jan-2002 23:50
RE: [REBOL] Re: 'Compose' into feel -engage function
[Al--Bri--xtra--co--nz] wrote:
> Phillippe wrote:
> > For example, (first tempo1) is not reduce.
>
> Try:
> compose/deep
> and your problem should be solved.
>
except code is
tblEvent: parse (to-string event/offset) "x"
if (to-integer first tblEvent) < 125 [var47: 1]
if (to-integer first tblEvent) > 165 [var47: 2]
and the if-brackets are evaluated by compose/deep also :-o
([
if (to-integer first tblEvent) < 125 [var47: 1]
if (to-integer first tblEvent) > 165 [var47: 2]
])
helps
; ups, looks like lpc ;-)
but Andrew solved the major problem ;-)
> Andrew Martin
> ICQ: 26227169 http://valley.150m.com/
> -><-
>
-Volker