Added IceWorkingCopy>>#gtActionRepairFor:

feenkcom · Oct 21, 2024 · 7256346 · 7256346
1 parent 667acb2
commit 7256346
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/GToolkit4Git/IceWorkingCopy.extension.st b/src/GToolkit4Git/IceWorkingCopy.extension.st
@@ -1,5 +1,16 @@
 Extension { #name : #IceWorkingCopy }
 
+{ #category : #'*GToolkit4Git' }
+IceWorkingCopy >> gtActionRepairFor: composite [
+	<gtAction>
+	self isDetached ifFalse: [ ^ composite noAction ].
+	^ composite button
+		icon: BrGlamorousVectorIcons repair;
+		tooltip: 'Adopt repository head as reference commit';
+		priority: 30;
+		action: [ :element | element phlow spawnObject: (self referenceCommit: self repository headCommit) ]		
+]
+
 { #category : #'*GToolkit4Git' }
 IceWorkingCopy >> gtAllLoadedExamples [
 	^ self loadedPackages flatCollect: [ :anIcePackage |