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 + ;