1 files changed, 1 insertions(+), 19 deletions(-)

M src/dexe.tal

@@ 103,7 103,7 @@
 BRK
 
 @manifest
-	05 "File $1
+	05 "Dexe $1
 		01 "n =file-new "New $1
 		01 "r =file-rename "Rename $1
 		01 "o =file-open "Open $1


@@ 454,7 454,6 @@ JMP2
 	( valid )
 	DUP2k .selection/from STZ2 .selection/to STZ2
 	#00 .selection/nibble STZ
-	;follow-selection JSR2
 	;redraw JSR2
 	&skip
 	POP2


@@ 471,27 470,10 @@ JMP2r
 	.selection/to LDZ2 .selection/from LDZ2 GTH2 ,&not-before JCN
 		.selection/from LDZ2 .selection/to STZ2
 		&not-before
-	;follow-selection JSR2
 	;redraw ( .. )
 
 JMP2
 
-@follow-selection ( -- )
-
-	.selection/from LDZ2 ;data .selection/scroll LDZ2 #30 SFT2 ADD2 LTH2 ,&up JCN
-	.selection/to LDZ2 ;data [ .frame/rows LDZ2 #30 SFT2 #0001 SUB2 ] ADD2 .selection/scroll LDZ2 #30 SFT2 ADD2 GTH2 ,&down JCN
-	JMP2r
-
-	&up
-		.selection/from LDZ2 #0001 SUB2 
-			;data SUB2 #03 SFT2 ;set-scroll JMP2
-
-	&down
-		.selection/to LDZ2 [ .frame/rows LDZ2 #30 SFT2 ] SUB2 #0008 ADD2 
-			;data SUB2 #03 SFT2 ;set-scroll ( .. )
-
-JMP2
-
 @set-scroll ( scroll* -- )
 
 	DUP2 #40 SFT2 ;data ADD2 .selection/key STZ2