[REBOL] Re: Compose/RealDeep

From: lmecir:mbox:vol:cz at: 1-Dec-2002 21:11

Hi Philippe,

I must say, that I don't know, what you are trying to achieve. First of all,
I would suggest you to post the code respecting Rebol style guide, because
that enables others to use cut and paste method.

I wrote a version of your code, that produces equal result as your original
function does, with exactly one exception - noLine is replaced by the
number.

HTH

-L

do-addArea: func [noLine [integer!]] [
    addArea: compose/deep [
        [
            compteurA: 0
            feel: make feel [
                engage: func [face act event nodeligne] compose [
                    (first [(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 (first [(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