Always use absolute paths for git paths

hpi-swa · Oct 19, 2023 · 7df61bf · 7df61bf
1 parent 025304c
commit 7df61bf
Show file tree

Hide file tree

Showing 8 changed files with 18 additions and 5 deletions.
diff --git a/src/Squot.package/SquotAssetBrowser.class/instance/requestPath.st b/src/Squot.package/SquotAssetBrowser.class/instance/requestPath.st
@@ -2,7 +2,7 @@ requests
 requestPath
 	| path |
 	[path := SquotPathUtilities
-		request: 'Path:'
+		requestAbsolute: 'Path:'
 		initialAnswer: self initialPathRequestAnswer.
 	path isNil or: [self isValidPath: path]] whileFalse: [
 		self inform: ('The path ''{1}'' is already taken, please pick another.'

diff --git a/src/Squot.package/SquotAssetBrowser.class/methodProperties.json b/src/Squot.package/SquotAssetBrowser.class/methodProperties.json
@@ -36,7 +36,7 @@
 		"mappers" : "mad 9/20/2023 18:21",
 		"open" : "mad 9/20/2023 15:51",
 		"paths" : "mad 9/20/2023 19:47",
-		"requestPath" : "mad 9/20/2023 19:55",
+		"requestPath" : "mad 10/18/2023 16:48",
 		"selectedAsset" : "mad 9/20/2023 19:26",
 		"selectedAsset:" : "mad 9/20/2023 19:25",
 		"selectedAssetName" : "mad 9/20/2023 20:13",

diff --git a/src/Squot.package/SquotPathUtilities.class/class/requestAbsolute..st b/src/Squot.package/SquotPathUtilities.class/class/requestAbsolute..st
@@ -0,0 +1,3 @@
+requests
+requestAbsolute: aString
+	^ self requestAbsolute: aString initialAnswer: nil
diff --git a/src/Squot.package/SquotPathUtilities.class/class/requestAbsolute.initialAnswer..st b/src/Squot.package/SquotPathUtilities.class/class/requestAbsolute.initialAnswer..st
@@ -0,0 +1,3 @@
+requests
+requestAbsolute: aString initialAnswer: aPath
+	^ self toAbsolute: (self request: aString initialAnswer: aPath)
diff --git a/src/Squot.package/SquotPathUtilities.class/class/toAbsolute..st b/src/Squot.package/SquotPathUtilities.class/class/toAbsolute..st
@@ -0,0 +1,4 @@
+requests
+toAbsolute: aPath
+	aPath ifNil: [^ aPath].
+	^ FSPath root resolve: aPath
diff --git a/src/Squot.package/SquotPathUtilities.class/methodProperties.json b/src/Squot.package/SquotPathUtilities.class/methodProperties.json
@@ -6,6 +6,9 @@
 		"delimiters" : "mad 10/18/2023 16:50",
 		"fromString:" : "mad 10/18/2023 16:57",
 		"request:" : "mad 9/20/2023 19:23",
-		"request:initialAnswer:" : "mad 9/20/2023 19:23" },
+		"request:initialAnswer:" : "mad 9/20/2023 19:23",
+		"requestAbsolute:" : "mad 10/18/2023 16:48",
+		"requestAbsolute:initialAnswer:" : "mad 10/18/2023 16:47",
+		"toAbsolute:" : "mad 10/18/2023 16:47" },
 	"instance" : {
 		 } }
diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/instance/actionEditPackagePath.st b/src/Squot.package/SquotTonelPackageBrowser.class/instance/actionEditPackagePath.st
@@ -4,7 +4,7 @@ actionEditPackagePath
 	mapper := self selectedMapper.
 	packageName := mapper package name.
 	newPath := (SquotPathUtilities
-					request:
+					requestAbsolute:
 						('The package will be stored in a subdirectory of the path below, named ''{1}''. ',
 						'Thus, the package is currently stored in the directory ''{2}''.' format: {
 							packageName.

diff --git a/src/Squot.package/SquotTonelPackageBrowser.class/methodProperties.json b/src/Squot.package/SquotTonelPackageBrowser.class/methodProperties.json
@@ -4,7 +4,7 @@
 		"openOnWorkingCopy:" : "mad 9/19/2023 15:47" },
 	"instance" : {
 		"actionAddPackage" : "mad 10/1/2023 17:57",
-		"actionEditPackagePath" : "mad 9/20/2023 19:28",
+		"actionEditPackagePath" : "mad 10/18/2023 16:48",
 		"actionRemovePackage" : "mad 9/20/2023 17:31",
 		"buildAddPackageButton:" : "mad 9/19/2023 16:23",
 		"buildAutoSaveNote:" : "mad 10/1/2023 17:58",