update previousTaSelectionEnd in the right way

xulihang · Aug 10, 2020 · 29ba970 · 29ba970
1 parent 5e5cc1b
commit 29ba970
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/BasicCAT/BasicCAT.b4j.meta b/BasicCAT/BasicCAT.b4j.meta
@@ -211,6 +211,6 @@ ModuleClosedNodes7=
 ModuleClosedNodes70=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Project,targetTextArea_SelectedTextChanged,1140,6,RichTextArea,TextChanged_Event,376,0,RichTextArea,Class_Globals,27,2,RichTextArea,SelectedTextChanged_Event,384,6,RichTextArea,DesignerCreateView,73,0,Project,addKeyEvent,1127,0,Project,sourceTextArea_KeyPressed,1277,0,Project,Class_Globals,18,2,Project,targetTextArea_KeyPressed,1348,6,Project,changeSegment,1373,6
+NavigationStack=RichTextArea,Class_Globals,27,2,RichTextArea,SelectedTextChanged_Event,384,6,RichTextArea,DesignerCreateView,73,0,Project,addKeyEvent,1127,0,Project,Class_Globals,18,2,Project,targetTextArea_KeyPressed,1348,6,Project,sourceTextArea_KeyPressed,1285,0,Project,targetTextArea_TextChanged,997,0,Project,onSelectionChanged,1165,0,Project,changeSegment,1376,6
 SelectedBuild=0
 VisibleModules=1,2,3,4,5,6,7,8,9,10,11
diff --git a/BasicCAT/Project.bas b/BasicCAT/Project.bas
@@ -1360,7 +1360,6 @@ End Sub
 
 Sub changeSegment(offset As Int,targetTextArea As RichTextArea)
 	Try
-		previousTaSelectionEnd=-1
 		'targetTextArea.Text=targetTextArea.Text.Replace(CRLF,"")
 		saveTranslation(targetTextArea)
 		Dim pane As Pane
@@ -1381,6 +1380,7 @@ Sub changeSegment(offset As Int,targetTextArea As RichTextArea)
 			Case 1
 			    nextTA.setSelection(0,0)
 		End Select
+		previousTaSelectionEnd=nextTA.SelectionEnd
 		lastEntry=Main.editorLV.Items.IndexOf(nextPane)
 		lastFilename=currentFilename
 		showTM(nextTA)