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

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