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

'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