Not logged in

Differences From Artifact [5dabacf7a1874106]:

File editor.rx part of check-in [ac5dbf5f28] - editor now checks screeen dimensions, displays error if too small by crc on 2010-11-15 20:07:05. [annotate] [view]

To Artifact [e71e73dd81dd0d1a]:

File editor.rx part of check-in [b85ceef2f2] - hide 'eval' by crc on 2010-11-15 20:11:03. [annotate] [view]


@@ -18,22 +18,16 @@
 (  z      Exit RxE                                                            )
 (  z      Exit RxE                                                            )
 ( TAB     Switch between edit and command mode                                )
 ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-
 {{
   2 elements buffer count
   : restore ( -   )  &key :devector ok ;
   : get     ( -c  )  @buffer @ ;
   : next    ( -c  )  @count 0 =if 32 restore ;then count -- get buffer ++ ;
   : replace ( -   )  &next &key :is ;
----reveal---
   : eval    ( an- ) !count !buffer replace ;
-}}
 
-
-( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-{{
   7 elements #blocks offset blk line column mode active
   : toBlock   1600 * @offset + ;
   : thisBlock @blk toBlock ;
   : toLine    80 * thisBlock + ;