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

[1] · 2 · 3 · 4 · See whole thread