diff --git a/src/Squot.package/SqueakWorkingCopy.class/class/requestFSReferenceForName..st b/src/Squot.package/SqueakWorkingCopy.class/class/requestFSReferenceForName..st index 4a47f2132..1134da603 100644 --- 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 \ No newline at end of file + ^ chosen ifNotNil: [ | reference | + reference := chosen asFSReference. + reference children ifNotEmpty: [ + self inform: 'Please choose an empty directory.'. + ^ self requestFSReferenceForName: aString]. + reference] \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json b/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json index 2060f6eef..b07a1ebcc 100644 --- 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",