Make #gtViewKumpelFor: canvassable [feenkcom/gtoolkit#4140]

feenkcom · Nov 4, 2024 · 503c2eb · 503c2eb
1 parent e749d8d
commit 503c2eb
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/src/GToolkit4Git/PureGitTrackedFile.extension.st b/src/GToolkit4Git/PureGitTrackedFile.extension.st
@@ -96,13 +96,13 @@ PureGitTrackedFile >> gtViewKumpelFor: composite [
 	^ composite explicit
 		title: 'Kumpel';
 		priority: 60;
+		tooltip: 'Show line history over time';
 		stencil: [ | container colors strongColors lightColors |
-			lightColors := BrGlamorousColors distinctTenLightColors
-					, {Color veryLightGray}.
-			strongColors := BrGlamorousColors distinctTenStrongColors , {Color gray}.
+			lightColors := BrGlamorousColors distinctTenLightColors , { Color veryLightGray }.
+			strongColors := BrGlamorousColors distinctTenStrongColors , { Color gray }.
 			colors := BrExplicitIdentityNormalizer new
-					candidates: (1 to: 10);
-					defaultCandidate: 11.
+					colors: (1 to: 10);
+					defaultColor: 11.
 			container := BlElement new.
 			self uniqueTrackedLines
 				do: [ :trackedLine | 
@@ -123,9 +123,9 @@ PureGitTrackedFile >> gtViewKumpelFor: composite [
 						do: [ :e | e target phlow spawnObject: trackedLine ].
 					container addChild: element ].
 			container
-				size: ((self versions size *  (PureGitTrackedLine versionWidth + PureGitTrackedLine versionMargin)) - PureGitTrackedLine versionMargin)
+				size: ((self versions size *  (PureGitTrackedLine versionWidth + PureGitTrackedLine versionMargin))
+							- PureGitTrackedLine versionMargin)
 						@ (PureGitTrackedLine lineHeight * self maxLinesCount).
-			container beInSeparateCompositionLayer asScrollableElement
-				margin: (BlInsets all: 10) ];
-		tooltip: 'Show line history over time'
+			container beInSeparateCompositionLayer asCanvassableElement
+				margin: (BlInsets all: 10) ]
 ]
diff --git a/src/GToolkit4Git/PureGitTrackedFileVersion.extension.st b/src/GToolkit4Git/PureGitTrackedFileVersion.extension.st
@@ -32,6 +32,6 @@ PureGitTrackedFileVersion >> gtViewKumpelFor: composite [
 						relocate: ((versionNumber - 1)
 								* (PureGitTrackedLine versionWidth + PureGitTrackedLine versionMargin))
 								@ 0).
-			container beInSeparateCompositionLayer asScrollableElement
+			container beInSeparateCompositionLayer asCanvassableElement
 				margin: (BlInsets all: 10) ]
 ]