BlScrollableElement: allow subclasses to redefine the event handler a…

…nd the scroll flinger

src/Bloc-Infinite/BlScrollableElement.class.st

@@ -93,6 +93,12 @@ BlScrollableElement >> computeVerticalScrollRange [
 	^ self scrolledElement height + self scrolledElement margin height + self padding height
 ]
 
+{ #category : #initialization }
+BlScrollableElement >> defaultEventHandler [
+
+	^ BlScrollableElementEventHandler new
+]
+
 { #category : #initialization }
 BlScrollableElement >> defaultHorizontalAlignment [
 	"By default alignment should not influence on layout process,
@@ -107,6 +113,13 @@ BlScrollableElement >> defaultLayout [
 	^ BlFrameLayout new
 ]
 
+{ #category : #initialization }
+BlScrollableElement >> defaultScrollFlinger [
+
+	"Return class, actuall instantiation happens in initialize"
+	^ BlScrollFlinger
+]
+
 { #category : #initialization }
 BlScrollableElement >> defaultVerticalAlignment [
 	"By default alignment should not influence on layout process,
@@ -143,13 +156,12 @@ BlScrollableElement >> horizontalAlignment: aBlElementAlignment [
 BlScrollableElement >> initialize [
 	super initialize.
 
-	scrollFlinger := BlScrollFlinger on: self.
+	scrollFlinger := self defaultScrollFlinger on: self.
 	scrollPosition := 0.0@0.0.
 	scrollState := #idle.
 	horizontalAlignment := self defaultHorizontalAlignment.
 	verticalAlignment := self defaultVerticalAlignment.
-
-	self addEventHandler: BlScrollableElementEventHandler new
+	self addEventHandler: self defaultEventHandler
 ]
 
 { #category : #layout }