Ensure clone directory is empty

hpi-swa · May 23, 2024 · da6717c · da6717c
1 parent 7e01464
commit da6717c
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/Squot.package/SqueakWorkingCopy.class/class/requestFSReferenceForName..st b/src/Squot.package/SqueakWorkingCopy.class/class/requestFSReferenceForName..st
@@ -7,4 +7,9 @@ requestFSReferenceForName: aString
 	defaultDirectoryReference ensureCreateDirectory.
 	chosen := UIManager default chooseDirectory: 'Repository location:' from: defaultDirectory.
 	(defaultDirectoryExisted not and: [chosen ~= defaultDirectory]) ifTrue: [defaultDirectoryReference delete].
-	^ chosen ifNotNil: #asFSReference
+	^ chosen ifNotNil: [ | reference |
+		reference := chosen asFSReference.
+		reference children ifNotEmpty: [
+			self inform: 'Please choose an empty directory.'.
+			^ self requestFSReferenceForName: aString].
+		reference]
diff --git a/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json b/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json
@@ -23,7 +23,7 @@
 		"registeredNames" : "mad 9/19/2023 12:16",
 		"registry" : "mad 9/19/2023 11:59",
 		"registry:" : "mad 9/19/2023 11:59",
-		"requestFSReferenceForName:" : "mad 11/13/2023 12:55",
+		"requestFSReferenceForName:" : "mad 5/23/2024 21:15",
 		"requestUnregisteredName" : "mad 11/13/2023 12:01",
 		"requestUnregisteredNameFrom:" : "mad 12/8/2023 19:56",
 		"requestUnregisteredNameFrom:title:" : "mad 12/8/2023 19:56",