Merge ef17c7f

chisandrei · chisandrei · commit a40200f0de7d · 2024-08-26T17:15:14.000+02:00
diff --git a/src/Brick/BrEditor.class.st b/src/Brick/BrEditor.class.st
@@ -36,17 +36,17 @@ BrEditor >> beReadOnlyWithoutSelection [
 
 { #category : #accessing }
 BrEditor >> computeVerticalScrollExtent [
-	^ self lastVisibleSegment textEnd - self firstVisibleSegment textStart
+	^ self lastVisibleSegment index - self firstVisibleSegment index
 ]
 
 { #category : #accessing }
 BrEditor >> computeVerticalScrollOffset [
-	^ self firstVisibleSegment textStart
+	^ self firstVisibleSegment index
 ]
 
 { #category : #accessing }
 BrEditor >> computeVerticalScrollRange [
-	^ self text size
+	^ self text lineCount
 ]
 
 { #category : #'editor - accessing' }
@@ -165,12 +165,14 @@ BrEditor >> navigator [
 
 { #category : #'api - scrolling' }
 BrEditor >> onScrollBy: aWish [
-	| position linesOnScreen |
-	position := aWish delta y asInteger.
-	linesOnScreen := self lastVisibleSegment index - self firstVisibleSegment index.
-	position > self computeVerticalScrollExtent
-		ifTrue: [ self scrollToPosition: self lastVisibleSegment index + linesOnScreen ]
-		ifFalse: [ self scrollToPosition: self firstVisibleSegment index - linesOnScreen ]
+	| position current |
+	position := aWish delta y.
+	position := position positive
+			ifTrue: [ position roundUpTo: 1 ]
+			ifFalse: [ position roundDownTo: 1 ].
+	position asBeaconSignal emit.
+	current := self firstVisibleSegment index.
+	self scrollToPosition: position + current
 ]
 
 { #category : #'editor - operations' }
