Draws rectangles on the red canvas & update the area text with the `draw` code. Updates the red canvas when you write something in the area.

2-way-drawing.red

view [
  do [start: end: 0x0 ]
  b: base red 100x100 draw [] on-down [
    start: event/offset
  ] on-up [
    end: event/offset
    append b/draw c: reduce ['box start end]
    append a/text form c
    append a/text newline
  ]
  a: area "" [b/draw: load probe a/text]
  
]