Guest User

Untitled

a guest
May 21st, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.76 KB | None | 0 0
  1. ; rea: make deep-reactor! [
  2. rea: object [
  3. a: [1 2 3 4 5]
  4. s: "abbccbba"
  5. on-deep-change*: func [
  6. owner
  7. word
  8. target
  9. action
  10. new
  11. index
  12. part
  13.  
  14. ][
  15. print "################"
  16. print "on-deep-change*"
  17. print ["owner: " mold owner]
  18. print ["word: " word]
  19. print ["target: " mold target]
  20. print ["action: " action]
  21. print ["new: " mold new]
  22. print ["index: " index]
  23. print ["part: " part]
  24. ]
  25. on-change*: func [
  26. word
  27. old
  28. nnew
  29. ][
  30. print "################"
  31. print "on-change*"
  32. print ["word: " word]
  33. print ["old: " mold :old]
  34. print ["new: " mold :nnew]
  35. ]
  36. ]
  37. rea/a
  38. rea/a/1: 11
  39. rea/s/2: #"z"
  40. ? rea
  41. trim/with/all rea/s #"a"
  42.  
  43. ; rea/a: [1]
  44. ; rea/a/1: 0 ; won't trigger on-deep-change in the old console
Add Comment
Please, Sign In to add comment