@@ 492,9 492,8 @@ JMP2r
DUP2 set-scroll-y
&no-above
POP2
- !draw-textarea
-( .. )
+!draw-textarea
@select-word ( addr* -- )
@@ 542,9 541,8 @@ JMP2r
#00 .search STZ
&no-unsearch
update-nav
- !draw-textarea
-( .. )
+!draw-textarea
@set-selection ( from* to* -- changed )
@@ 701,8 699,6 @@ JMP2r
!draw-textarea
-( .. )
-
(
@|nav )
@@ 797,9 793,8 @@ JMP2r
draw-spacer
draw-scrollbar
draw-navbar
- !draw-textarea
-( .. )
+( fall-through )
@draw-textarea ( -- )
@@ 1176,9 1171,8 @@ JMP2r
( draw )
#01 draw-filepath
update-nav
- !draw-textarea
-( .. )
+!draw-textarea
&untitled-txt "untitled.txt $1
@file-goto ( -- )