From 72563460959a6142747e58c1132a214d6f46d3c2 Mon Sep 17 00:00:00 2001
From: Sven Van Caekenberghe <sven@beta9.be>
Date: Mon, 21 Oct 2024 15:57:05 +0200
Subject: [PATCH] Added IceWorkingCopy>>#gtActionRepairFor:

---
 src/GToolkit4Git/IceWorkingCopy.extension.st | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/GToolkit4Git/IceWorkingCopy.extension.st b/src/GToolkit4Git/IceWorkingCopy.extension.st
index 9557b3d..22c42d9 100644
--- 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 |