Added GtLepiterWorkingCopy>>#gtViewDetailsIn:

feenkcom · Oct 22, 2024 · 0a4ed4d · 0a4ed4d
1 parent 0ce222f
commit 0a4ed4d
Show file tree

Hide file tree

Showing 2 changed files with 35 additions and 0 deletions.
diff --git a/src/GToolkit4Git/GtLepiterWorkingCopy.class.st b/src/GToolkit4Git/GtLepiterWorkingCopy.class.st
@@ -124,6 +124,23 @@ GtLepiterWorkingCopy >> gtAllLoadedExamples [
 	^ self icebergWorkingCopy gtAllLoadedExamples
 ]
 
+{ #category : #'*GToolkit4Git' }
+GtLepiterWorkingCopy >> gtViewDetailsIn: composite [
+	<gtView>
+	^ composite columnedList
+		title: 'Details';
+		priority: 10;
+		items: [ {
+			{ 'repository' . self repository }.
+			{ 'databases' . self databases }.
+			{ 'changes strategy' . self lepiterChangesStragegy }.
+		} ];
+		column: 'Key' text: #first;
+		column: 'Value' text: #second weight: 3;
+		send: #last;
+		actionUpdateButton
+]
+
 { #category : #accessing }
 GtLepiterWorkingCopy >> hasDatabases [
 	^ databases size > 0

diff --git a/src/GToolkit4Git/GtLepiterWorkingCopy.extension.st b/src/GToolkit4Git/GtLepiterWorkingCopy.extension.st
@@ -0,0 +1,18 @@
+Extension { #name : #GtLepiterWorkingCopy }
+
+{ #category : #'*GToolkit4Git' }
+GtLepiterWorkingCopy >> gtViewDetailsIn: composite [
+	<gtView>
+	^ composite columnedList
+		title: 'Details';
+		priority: 10;
+		items: [ {
+			{ 'repository' . self repository }.
+			{ 'databases' . self databases }.
+			{ 'changes strategy' . self lepiterChangesStragegy }.
+		} ];
+		column: 'Key' text: #first;
+		column: 'Value' text: #second weight: 3;
+		send: #last;
+		actionUpdateButton
+]