fix okapi sourcedir path

xulihang · Feb 6, 2021 · 994d11f · 994d11f
1 parent de9dd12
commit 994d11f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/BasicCAT/BasicCAT.b4j.meta b/BasicCAT/BasicCAT.b4j.meta
@@ -244,6 +244,6 @@ ModuleClosedNodes8=
 ModuleClosedNodes80=
 ModuleClosedNodes81=
 ModuleClosedNodes9=
-NavigationStack=RichTextArea,TextChanged_Event,560,0,RichTextArea,totalHeight,531,0,RichTextArea,AreaHeight,529,0,RichTextArea,addContextMenu,677,0,Main,MenuBar1_Action,455,0,tikal,getfcConfMap,138,6,Project,Class_Globals,4,0,Project,reimportFile,934,0,Project,createGitignore,451,0,Project,createProjectFiles,357,3,Preferences,categoryListView_SelectedIndexChanged,160,1
+NavigationStack=Project,save,226,0,Project,closeFile,266,0,Main,ListView1_ScrollPosition_Changed,1297,0,Main,isScrollBarVisible,1282,0,Main,addScrollChangedEvent,1327,0,Main,checkVisibleRange,1307,0,Project,openFile,262,6,tikal,merge,50,0,Project,checkWorkfile,702,0,Project,sourceTextArea_KeyPressed,1483,0,Project,generateTargetFileForOne,2541,0
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,22
+VisibleModules=1,2,3,4,5,6,7,8,9,10,11
diff --git a/BasicCAT/Project.bas b/BasicCAT/Project.bas
@@ -2545,7 +2545,7 @@ Sub generateTargetFileForOne(filename As String)
 			Dim targetPath As String
 			targetPath=File.Combine(File.Combine(path,"target"),filename)
 			Dim sourceDir As String
-			sourceDir=File.Combine(path,"source")
+			sourceDir=File.GetFileParent(File.Combine(File.Combine(path,"source"),filename))
 			tikal.merge(targetPath,sourceDir,outputDir)
 		End If
 	Else