Differences From Artifact [b13fd6d64932ce95]:

File editor.rx part of check-in [2cec1ea458] - finish color support in editor by crc on 2010-11-16 15:26:21. [annotate] [view]

To Artifact [5b5166fc8e6f6e4a]:

File editor.rx part of check-in [1595b01ef7] - editor: use new each@ combinator and types' vocabulary by charleschilders on 2010-11-29 23:01:12. [annotate] [view]

@@ -54,9 +54,10 @@
     @blk    -1 =if 1st then
     @blk    @#blocks >if blk -- then ;
 
   ( display a block ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-  : rows    20 [ dup 80 color.text [ @ emit ] buffer.each 80 + cr ] times ;
+  : rows
+    20 [ dup 80 color.text [ @ emit ] ^types'BUFFER each@ 80 + cr ] times ;
   : mode?   @mode [ "INS" ] [ "CMD" ] choose ;
   : .block  @column @line @blk mode? "(%s) #%d - %d:%d  " puts ;
   : bar     ^console'red 80 [ '- emit ] times cr ;
   : vb      @blk toBlock rows drop bar color.status .block ^console'normal ;