Reset scroll on Go

src/left.tal

@@ -52,6 +52,7 @@
 	( | listen )
 	;on-console-arg .Console/vector DEO2
 	BRK
+
 	&soft ( -> )
 	<draw-menu>
 	<draw-spacer>
@@ -62,7 +63,7 @@
 	( name ) "Left 0a
 	( details ) "A 20 "Text 20 "Editor 0a
 	( author ) "By 20 "Hundred 20 "Rabbits 0a
-	( date ) "9 20 "Jul 20 "2024 $1 01
+	( date ) "15 20 "Jul 20 "2024 $1 01
 	( > ) 83 =appicon
 
 @manifest 07 "Left $1
@@ -134,6 +135,7 @@
 	DUP #08 NEQ ?{ POP erase BRK }
 	DUP #7f NEQ ?{ POP delete BRK }
 	insert BRK
+
 	&move ( byte -- )
 	( convert to arrow ) #11 SUB #40 SFT #10 SWP SFT
 	( ) .selection/a LDZ2 ROT arrow-to-addr <select-a>
@@ -142,7 +144,7 @@
 @on-console-arg ( -> )
 	.Console/read DEI .filepath skey ?{ BRK }
 	;on-console .Console/vector DEO2
-	file-open untrap BRK
+	file-open-reset untrap BRK
 
 @on-button-trap ( -> )
 	<clear-filepath>
@@ -152,8 +154,9 @@
 	DUP .filepath skey ?&open
 	POP #01 <draw-filepath>
 	BRK
+
 	&open ( c -> )
-	file-open
+	file-open-reset
 	&escape ( c -> )
 	POP untrap BRK
 
@@ -187,6 +190,7 @@
 	POP2 SWP DUP #f0 AND ?on-button-arrow
 	#02 AND ?on-button-alt
 	insert BRK
+
 	&run ( cmd* -> )
 	JSR2 POP2 BRK
 
@@ -207,22 +211,29 @@
 	( | standard )
 	.selection/a LDZ2 ROT arrow-to-addr <select-a>
 	BRK
+
 	&on-cal ( button -> )
 	POP .scroll/x LDZ2 #0040 ADD2 <scroll-to-x>
 	BRK
+
 	&on-car ( button -> )
 	POP .scroll/x LDZ2 #0040 SUB2 <scroll-to-x>
 	BRK
+
 	&on-shift ( button -> )
 	.selection/b LDZ2 ROT arrow-to-addr <select-b>
 	BRK
+
 	&on-au ( button -> )
 	POP select-prev-marker BRK
+
 	&on-ad ( button -> )
 	POP select-next-marker BRK
+
 	&on-ul-block ( button -> )
 	POP get-from <select-a>
 	BRK
+
 	&on-dr-block ( button -> )
 	POP get-to <select-a>
 	BRK
@@ -249,6 +260,7 @@
 	#43 ;cursor-icn <update-cursor>
 	[ LIT2 00 -Mouse/state ] DEO
 	BRK
+
 	&trap ( -> )
 	POP2 !trap-menu
 
@@ -267,10 +279,12 @@
 	( ) DUP #04 NEQ ?{ capture-selection }
 	POP2 [ LIT2 00 -Mouse/state ] DEO
 	BRK
+
 	&on-down1 ( a b -> )
 	[ LIT2 04 -Controller/button ] DEI EQU ?&on-drag
 	touch-to-addr <select-a>
 	POP2 BRK
+
 	&on-drag ( a b -> )
 	touch-to-addr <select-b>
 	POP2 BRK
@@ -983,10 +997,10 @@
 		#0001 SUB2 LDAk [ LIT "/ ] NEQ ?{
 			NIP2
 			( null ) [ LITr 00 ] STH2
-			INC2r STAr !file-open }
+			INC2r STAr !file-open-reset }
 		NEQ2k ?&>w
 	&skip ( -- )
-	POP2 [ LIT2 ". 00 ] SWP2 STA2 !file-open
+	POP2 [ LIT2 ". 00 ] SWP2 STA2 !file-open-reset
 
 @go-selection ( -- )
 	get-from LDA2 [ LIT2 ".. ] EQU2 ?go-directory
@@ -1005,7 +1019,7 @@
 
 	&e ( cap buffer )
 	#00 STHr STZ
-	POP2 POP2 !file-open
+	POP2 POP2 !file-open-reset
 
 (
 @|document )
@@ -1025,6 +1039,10 @@
 	#01 <draw-filepath>
 	update-nav !reqdraw-textarea
 
+@file-open-reset ( -- )
+	reset-each/reset-scroll
+	( >> )
+
 @file-open ( -- )
 	#0000 <set-scroll-y>
 	<reset-search>