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

[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] ] ]