feat(history): add an API to get scrolling periods

Author: Julesboul

DebuggingSpy-Tests/DSRecordHistoryTest.class.st

@@ -295,6 +295,55 @@ DSRecordHistoryTest >> testBuildWindows [
 	self assert: (windows at: 8) first name equals: 'StDebugger'.
 ]
 
+{ #category : 'tests' }
+DSRecordHistoryTest >> testCollectScrollingPeriods [
+
+	| scrollList |
+	history records: {
+			(DSMouseEnterWindowRecord new
+				 dateTime: '2026-03-25T10:01:17' asDateAndTime;
+				 windowId: 1).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:02:44' asDateAndTime;
+				 windowId: 1).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:06:08' asDateAndTime;
+				 windowId: 1).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:09:23' asDateAndTime;
+				 windowId: 1).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:13:41' asDateAndTime;
+				 windowId: 1).
+			(DSMouseLeaveWindowRecord new
+				 dateTime: '2026-03-25T10:20:16' asDateAndTime;
+				 windowId: 1).
+			(DSMouseEnterWindowRecord new
+				 dateTime: '2026-03-25T10:21:41' asDateAndTime;
+				 windowId: 2).
+			(DSDoItRecord new
+				 dateTime: '2026-03-25T10:26:09' asDateAndTime;
+				 windowId: 2).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:13:41' asDateAndTime;
+				 windowId: 2).
+			(DSStepIntoRecord new
+				 dateTime: '2026-03-25T10:14:01' asDateAndTime;
+				 windowId: 2) }.
+
+	scrollList := history collectScrollingPeriods.
+
+	self assert: scrollList size equals: 2.
+	self assert: scrollList first key equals: {
+			'2026-03-25T10:02:44' asDateAndTime.
+			'2026-03-25T10:13:41' asDateAndTime }.
+	self assert: scrollList first value equals: 1.
+	self assert: scrollList second key equals: {
+			'2026-03-25T10:13:41' asDateAndTime.
+			'2026-03-25T10:13:41' asDateAndTime }.
+	self assert: scrollList second value equals: 2
+]
+
 { #category : 'tests' }
 DSRecordHistoryTest >> testCollectTimeDiscrepancies [
 
@@ -638,6 +687,56 @@ DSRecordHistoryTest >> testFixWindowRecordKeysNames [
 	self assert: (windowsHistory keys detect: [ :k | k windowId = 2 ]) windowName isNil
 ]
 
+{ #category : 'tests' }
+DSRecordHistoryTest >> testGetSumOfScrollingPeriods [
+
+	| scrollList |
+	history records: {
+			(DSMouseEnterWindowRecord new
+				 dateTime: '2026-03-25T10:01:17' asDateAndTime;
+				 windowId: 1).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:02:44' asDateAndTime;
+				 windowId: 1).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:06:08' asDateAndTime;
+				 windowId: 1).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:09:23' asDateAndTime;
+				 windowId: 1).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:13:41' asDateAndTime;
+				 windowId: 1).
+			(DSMouseLeaveWindowRecord new
+				 dateTime: '2026-03-25T10:20:16' asDateAndTime;
+				 windowId: 1).
+			(DSMouseEnterWindowRecord new
+				 dateTime: '2026-03-25T10:21:41' asDateAndTime;
+				 windowId: 2).
+			(DSDoItRecord new
+				 dateTime: '2026-03-25T10:26:09' asDateAndTime;
+				 windowId: 2).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:13:41' asDateAndTime;
+				 windowId: 2).
+			(DSStepIntoRecord new
+				 dateTime: '2026-03-25T10:14:01' asDateAndTime;
+				 windowId: 2).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:26:35' asDateAndTime;
+				 windowId: 1).
+			(DSScrollingRecord new
+				 dateTime: '2026-03-25T10:27:39' asDateAndTime;
+				 windowId: 1) }.
+
+
+	scrollList := history getSumOfScrollingPeriods.
+
+	self assert: scrollList size equals: 2.
+	self assert: (scrollList at: 1) equals: (Duration seconds: 721).
+	self assert: (scrollList at: 2) equals: (Duration seconds: 0)
+]
+
 { #category : 'tests' }
 DSRecordHistoryTest >> testMergeContinuousEvents [
 

DebuggingSpy/DSRecordHistory.class.st

@@ -119,6 +119,30 @@ DSRecordHistory >> buildWindows [
 				                   ((w respondsTo: #type) and: [ #( 'Finish' 'Post-task' 'Survey' ) includes: w type ]) or: [ w windowId = -1 ] ] ]
 ]
 
+{ #category : 'API-history' }
+DSRecordHistory >> collectScrollingPeriods [
+
+	| i scrollingPeriods |
+	i := 1.
+	scrollingPeriods := OrderedCollection new.
+
+	[ i <= records size ] whileTrue: [
+			(records at: i) class = DSScrollingRecord ifTrue: [
+					| start stop |
+					start := (records at: i) dateTime.
+					stop := (records at: i) dateTime.
+					i := i + 1.
+					[ i <= records size and: [ (records at: i) class = DSScrollingRecord ] ] whileTrue: [
+							stop := (records at: i) dateTime.
+							i := i + 1 ].
+					scrollingPeriods add: {
+							start.
+							stop } -> (records at: i - 1) windowId ].
+			i := i + 1 ].
+
+	^ scrollingPeriods
+]
+
 { #category : 'private - history' }
 DSRecordHistory >> collectTimeDiscrepancies [
 	"Returns a dictionary which contains all delta between two records above than 5s"
@@ -339,6 +363,21 @@ DSRecordHistory >> fixWindowRecordKeysNames [
 		(self findWindowRecordKeyForID: id) windowName: name ]
 ]
 
+{ #category : 'API-history' }
+DSRecordHistory >> getSumOfScrollingPeriods [
+
+	| scrollingPeriods |
+	scrollingPeriods := self collectScrollingPeriods.
+	scrollingPeriods := scrollingPeriods collect: [ :association |
+		                    association key second - association key first -> association value ].
+
+	scrollingPeriods := scrollingPeriods groupedBy: [ :association | association value ].
+
+	scrollingPeriods := scrollingPeriods collect: [ :array | array collect: [ :association | association key ] ].
+
+	^ scrollingPeriods collect: [ :value | value sum ]
+]
+
 { #category : 'API-history' }
 DSRecordHistory >> haltAnalysisMap [