Merge pull request #601 from pharo-graphics/599-Attempt-to-read-undec…

…lared-variable-BlInfiniteMouseScrollListener-when-loading-bloctoplo

Move system settings to the corresponding package

src/Bloc-Infinite/BlInfiniteMouseScrollListener.class.st

@@ -22,6 +22,21 @@ BlInfiniteMouseScrollListener class >> scrollingVelocity: anInteger [
 	ScrollingVelocity := anInteger
 ]
 
+{ #category : #settings }
+BlInfiniteMouseScrollListener class >> settingsOn: aBuilder [
+	<systemsettings>
+
+	(aBuilder range: #scrollingVelocity)
+		parent: Bloc groupSymbolForBloc;
+		target: self;
+		order: 5;
+		label: 'Scrolling velocity';
+		description:
+			'A positive integer used as a multiplier to increase mousewheel scrolling velocity ';
+		range: (1 to: 200 by: 1);
+		default: OSPlatform current defaultScrollingVelocity
+]
+
 { #category : #'mouse handlers' }
 BlInfiniteMouseScrollListener >> canScrollDown: anInfiniteElement [
 	"Return true if an infinite element can be scrolled down"

src/Bloc/Bloc.class.st

@@ -89,6 +89,7 @@ Bloc class >> preferableChildrenDataStructure: anChildrenCollectionClass [
 { #category : #settings }
 Bloc class >> preferencesOn: aBuilder [
 	<systemsettings>
+
 	(aBuilder group: self groupSymbolForBloc)
 		label: 'Bloc';
 		description: 'Bloc settings';
@@ -101,14 +102,6 @@ Bloc class >> preferencesOn: aBuilder [
 				domainValues: { BlChildrenArray . BlChildrenRope . BlChildrenLinkedList };
 				description: 'Choose which data structure should be used to store element''s children'.
 
-			(aBuilder range: #scrollingVelocity)
-				order: 5; 
-				target: BlInfiniteMouseScrollListener;
-				label: 'Scrolling velocity';
-				description: 'A positive integer used as a multiplier to increase mousewheel scrolling velocity ';
-				range: (1 to: 200 by: 1);
-				default: OSPlatform current defaultScrollingVelocity.
-
 			(aBuilder setting: #assertionsEnabled)
 				order: 6;
 				target: self;