From db2f449b9d37bb2da5809225939e770fd63ef50b Mon Sep 17 00:00:00 2001
From: Don Roberts <roberts@refactory.com>
Date: Wed, 21 Aug 2024 11:44:09 -0500
Subject: [PATCH] Clicking jumps to scroll location on editor scroll bars

---
 src/Brick/BrEditor.class.st | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/src/Brick/BrEditor.class.st b/src/Brick/BrEditor.class.st
index 5563cce3..c323179c 100644
--- 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,10 @@ BrEditor >> navigator [
 
 { #category : #'api - scrolling' }
 BrEditor >> onScrollBy: aWish [
-	| position linesOnScreen |
+	| position current |
 	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 ]
+	current := self firstVisibleSegment index.
+	self scrollToPosition: position + current
 ]
 
 { #category : #'editor - operations' }