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

[REBOL] Compose/RealDeep

From: info::id-net::ch at: 1-Dec-2002 13:42

Hello, I composed a function that produces a block. This block is a the WITH of a Area. I added a 'my-block path to the area' face. (---> face/self/my-block) The my-block must keep the number of the line where the Area is located on the layout. The problem is that i cant compose/deep to make the "NoLine" reduced. I tried to use "reduce compose/deep", "compose/deep" or compose but in the different cases, either something else is changed (the 'engage function actually, producing an error), or the noLine is not reduced. I tried to compose it separated, too : Compose a part of those blocks besides. Nothing works.... Someone got an idea ? Philippe Oehler do-addArea: func [noLine [integer!]] [ addArea: [ [ compteurA: 0 feel: make feel [ engage: func [face act event nodeligne] compose [ (copy second get in ctx-text/edit 'engage) if system/view/focal-face = face/self [ face/self/my-counter: face/self/my-counter + 1 if face/self/my-counter = 1 [ face/self/user-data: copy face/self/text face/self/my-block: noLine ] either (face/self/user-data = face/self/text) [print "same"][print "change"] print face/self/my-block: noLine ] ] ] ]] ;print mold ajoutArea halt ]