Merge pull request #35 from plantec/34-Drag-scroll-bar-in-a-medium-si…

…zed-string-is-too-slow Speedup in AlbTextEditorLineSegmentPieceMap
pharo-graphics · Nov 17, 2023 · d16d812 · d16d812
2 parents 5301dd1 + f8e030c
commit d16d812
Showing 1 changed file with 7 additions and 9 deletions.
diff --git a/src/Album/AlbTextEditorLineSegmentPieceMap.class.st b/src/Album/AlbTextEditorLineSegmentPieceMap.class.st
@@ -44,20 +44,18 @@ AlbTextEditorLineSegmentPieceMap >> initialize [
 
 { #category : 'accessing' }
 AlbTextEditorLineSegmentPieceMap >> pieceForElement: aBlElement ifAbsent: anAbsentBlock [
-	<return: #AlbTextEditorAbstractSegmentPiece or: #Object>
-	map associations do: [ :eachAssociation |
-		(eachAssociation value includes: aBlElement) 
-			ifTrue: [ ^ eachAssociation key ] ].
 
-	^ anAbsentBlock value
+	^ self
+		  pieceForElement: aBlElement
+		  ifPresent: [ :aPiece | ^ aPiece ]
+		  ifAbsent: anAbsentBlock
 ]
 
 { #category : 'accessing' }
 AlbTextEditorLineSegmentPieceMap >> pieceForElement: aBlElement ifPresent: aBlock ifAbsent: anAbsentBlock [
-	<return: #AlbTextEditorAbstractSegmentPiece or: #Object>
-	map associations do: [ :eachAssociation |
-		(eachAssociation value includes: aBlElement) 
-			ifTrue: [ ^ aBlock value: eachAssociation key ] ].
+
+	map keysAndValuesDo: [ :k :v |
+		(v includes: aBlElement) ifTrue: [ ^ aBlock value: k ] ].
 
 	^ anAbsentBlock value
 ]