add default dropbox path, #5

Author: ThomasMaul

Project/Sources/Classes/FileTransfer_Dropbox.4dm

@@ -4,12 +4,22 @@ property _timeout : Integer
 
 Class constructor()
 	This:C1470.onData:=New object:C1471("text"; "")
+	This:C1470._return:=Char:C90(10)
+	var $path : Text
 	If (Is macOS:C1572)
-		This:C1470._return:=Char:C90(10)
-		This:C1470._Path:="dbxcli"
+		$path:=Get 4D folder:C485(Current resources folder:K5:16)+"dropbox"+Folder separator:K24:12+"dbxcli"
+		If (Test path name:C476($path)=Is a document:K24:1)
+			This:C1470._Path:=Convert path system to POSIX:C1106($path)
+		Else 
+			This:C1470._Path:="dbxcli"
+		End if 
 	Else 
-		This:C1470._return:=Char:C90(10)  //Char(13)+Char(10)
-		This:C1470._Path:="dbxcli.exe"
+		$path:=Get 4D folder:C485(Current resources folder:K5:16)+"dropbox"+Folder separator:K24:12+"dbxcli.exe"
+		If (Test path name:C476($path)=Is a document:K24:1)
+			This:C1470._Path:=Convert path system to POSIX:C1106($path)
+		Else 
+			This:C1470._Path:="dbxcli.exe"
+		End if 
 	End if 
 	This:C1470._timeout:=0
 

Project/Sources/Methods/test_dropbox.4dm

@@ -5,7 +5,7 @@ var $result; $status; $checkstop : Object
 
 $ftp:=cs:C1710.FileTransfer_Dropbox.new()
 
-$ftp.setPath(" /Users/thomas/Desktop/dbxcli")
+//$ftp.setPath(" /Users/thomas/Desktop/dbxcli")
 // $path:=Get 4D folder(Current resources folder)+"Dropbox"+Folder separator+"dbxcli.exe"
 
 If (False:C215)

Project/Sources/catalog.4DCatalog

@@ -2,7 +2,7 @@
 <!DOCTYPE base SYSTEM "http://www.4d.com/dtd/2007/base.dtd" >
 <base name="FileTransfer_Curl" uuid="1275CFA301E24C3FAF5C0CCA0B40F474" collation_locale="de">
 	<schema name="DEFAULT_SCHEMA"/>
-	<base_extra __stringCompHash="icu:72.1.0" __keywordBuildingHash="icu:72.1.0">
+	<base_extra>
 		<journal_file journal_file_enabled="false"/>
 	</base_extra>
 </base>