Add Choose new repository location menu item

hpi-swa · Dec 22, 2023 · adc5f9e · adc5f9e
1 parent e1573d3
commit adc5f9e
Show file tree

Hide file tree

Showing 5 changed files with 18 additions and 8 deletions.
diff --git a/....package/SquotBrowser.class/instance/actionChooseNewRepositoryLocationForActiveProject.st b/....package/SquotBrowser.class/instance/actionChooseNewRepositoryLocationForActiveProject.st
@@ -0,0 +1,4 @@
+actions
+actionChooseNewRepositoryLocationForActiveProject
+	(self activeWorkingCopyIfNilInformAnd: [^ self]) requestAndMoveToNewRepositoryLocation.
+	self everythingChanged.
diff --git a/src/Squot.package/SquotBrowser.class/instance/activeWorkingCopy..st b/src/Squot.package/SquotBrowser.class/instance/activeWorkingCopy..st
@@ -3,9 +3,4 @@ activeWorkingCopy: aWorkingCopy
 	activeWorkingCopy ifNotNil: [activeWorkingCopy removeDependent: self].
 	activeWorkingCopy := aWorkingCopy.
 	activeWorkingCopy ifNotNil: [activeWorkingCopy addDependent: self].
-	self
-		changed: #activeWorkingCopy;
-		changed: #refList;
-		changed: #commitList.
-	self activeRef: nil.
-	self activeCommit: (self activeWorkingCopy ifNotNil: #headCommit).
+	self everythingChanged.
diff --git a/src/Squot.package/SquotBrowser.class/instance/everythingChanged.st b/src/Squot.package/SquotBrowser.class/instance/everythingChanged.st
@@ -0,0 +1,8 @@
+updating
+everythingChanged
+	self
+		changed: #activeWorkingCopy;
+		changed: #refList;
+		changed: #commitList;
+		activeRef: nil;
+		activeCommit: (self activeWorkingCopy ifNotNil: #headCommit).
diff --git a/src/Squot.package/SquotBrowser.class/instance/projectListMenu..st b/src/Squot.package/SquotBrowser.class/instance/projectListMenu..st
@@ -4,6 +4,7 @@ projectListMenu: aMenu
 		aMenu
 			target: self;
 			add: 'Rename this project' action: #actionRenameActiveProject;
+			add: 'Choose new repository location' action: #actionChooseNewRepositoryLocationForActiveProject;
 			add: 'Remove this project' action: #actionRemoveActiveProject;
 			add: 'Manage remotes'
 			target: SquotRemotesBrowser

diff --git a/src/Squot.package/SquotBrowser.class/methodProperties.json b/src/Squot.package/SquotBrowser.class/methodProperties.json
@@ -8,6 +8,7 @@
 		"unload" : "mad 9/26/2023 15:50",
 		"unregisterFromWorldMenu" : "mad 9/19/2023 13:45" },
 	"instance" : {
+		"actionChooseNewRepositoryLocationForActiveProject" : "mad 12/22/2023 18:15",
 		"actionCloneProject" : "mad 9/21/2023 11:43",
 		"actionCommit" : "mad 10/22/2023 00:35",
 		"actionCompareActiveCommitToImage" : "mad 11/29/2023 16:48",
@@ -49,7 +50,7 @@
 		"activeRef:" : "mad 9/14/2023 19:21",
 		"activeRefCommit" : "mad 9/14/2023 19:24",
 		"activeWorkingCopy" : "mad 9/19/2023 12:38",
-		"activeWorkingCopy:" : "mad 9/20/2023 15:41",
+		"activeWorkingCopy:" : "mad 12/22/2023 17:59",
 		"activeWorkingCopyIfNilInformAnd:" : "mad 9/19/2023 12:25",
 		"addMappersProjectListMenu:" : "mad 9/19/2023 16:06",
 		"buildBranchButton:" : "mad 9/14/2023 19:42",
@@ -77,6 +78,7 @@
 		"commitMenu:forRef:" : "mad 11/29/2023 16:49",
 		"currentBranchIfNilInformAnd:" : "mad 9/26/2023 16:56",
 		"doesRef:comeBeforeRef:" : "mad 9/19/2023 14:45",
+		"everythingChanged" : "mad 12/22/2023 17:59",
 		"ifRepositoryDoesNotExist:" : "mad 11/30/2023 17:08",
 		"mergeCommitIntoHead:" : "mad 9/21/2023 13:47",
 		"mergeCommitIntoHead:displayName:" : "mad 12/13/2023 18:05",
@@ -96,7 +98,7 @@
 		"openDialogToShowChangeSetsFromCommit:to:" : "mad 10/22/2023 00:56",
 		"openDialogToShowChangeSetsFromImageTo:" : "mad 11/29/2023 16:48",
 		"otherMenu:" : "mad 10/24/2023 17:14",
-		"projectListMenu:" : "mad 12/8/2023 17:24",
+		"projectListMenu:" : "mad 12/22/2023 17:57",
 		"refChanged:" : "mad 9/15/2023 11:04",
 		"refList" : "mad 11/30/2023 21:44",
 		"refListMenu:" : "mad 12/13/2023 19:10",