move visualization to gt4git feenkcom/gtoolkit#4140

feenkcom · Nov 3, 2024 · cb8b9e5 · cb8b9e5
1 parent 3c6420e
commit cb8b9e5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 36 deletions.
diff --git a/src/Iceberg-Git-CLI/PureGitTrackedFile.class.st b/src/Iceberg-Git-CLI/PureGitTrackedFile.class.st
@@ -124,6 +124,11 @@ PureGitTrackedFile >> gtVersionsFor: aView [
 		column: 'Lines count' text: [ :each | each lines size ] width: 50
 ]
 
+{ #category : #'as yet unclassified' }
+PureGitTrackedFile >> maxLinesCount [
+	^ self versions max: [:each | each lines size]
+]
+
 { #category : #accessing }
 PureGitTrackedFile >> path [
 	^ self file path

diff --git a/src/Iceberg-Git-CLI/PureGitTrackedFileVersion.class.st b/src/Iceberg-Git-CLI/PureGitTrackedFileVersion.class.st
@@ -20,42 +20,6 @@ PureGitTrackedFileVersion >> commit: aCommit [
 	commit := aCommit
 ]
 
-{ #category : #'as yet unclassified' }
-PureGitTrackedFileVersion >> gtViewKumpelFor: composite [
-	<gtView>
-	^ composite explicit
-		title: 'Kumpel';
-		priority: 60;
-		tooltip: 'Show line history over time';
-		stencil: [ | container colors |
-			colors := BrExplicitIdentityNormalizer new
-					colors: BrGlamorousColors distinctTenLightColors;
-					defaultColor: Color veryLightGray.
-			container := BlElement new.
-			container
-				constraintsDo: [ :c | 
-					c horizontal matchParent.
-					c vertical matchParent ].
-			trackedFile uniqueTrackedLines
-				do: [ :trackedLine | 
-					| element |
-					element := trackedLine asKumpelGraphElement.
-					element
-						background: (colors value: (trackedFile authorOfTrackedLine: trackedLine)).
-					element
-						border: (colors value: (trackedFile authorOfTrackedLine: trackedLine)).
-					container addChild: element ].
-			container
-				addChild: (BlElement new
-						background: (Color black alpha: 0.3);
-						zIndex: 100;
-						size: PureGitTrackedLine versionWidth @ (PureGitTrackedLine lineHeight * (lines size));
-						relocate: ((versionNumber - 1)
-								* (PureGitTrackedLine versionWidth + PureGitTrackedLine versionMargin))
-								@ 0).
-			container ]
-]
-
 { #category : #'as yet unclassified' }
 PureGitTrackedFileVersion >> lines [ 
 	^ lines