diff --git a/DebuggingSpy-Browser-Tests/DSRecordBrowserPresenterTest.class.st b/DebuggingSpy-Browser-Tests/DSRecordBrowserPresenterTest.class.st
index 7e65221..cd701a2 100644
--- a/DebuggingSpy-Browser-Tests/DSRecordBrowserPresenterTest.class.st
+++ b/DebuggingSpy-Browser-Tests/DSRecordBrowserPresenterTest.class.st
@@ -16,10 +16,15 @@ DSRecordBrowserPresenterTest >> filesPresenter [
 
 { #category : 'helpers' }
 DSRecordBrowserPresenterTest >> generateRecordsFile [
+
+	^ self generateRecordsFileFor: self getRecordExamples
+]
+
+{ #category : 'helpers' }
+DSRecordBrowserPresenterTest >> generateRecordsFileFor: someRecords [
 	"Generates a file of records and returns its file reference."
 
-	| records recordFileRef writeStream |
-	records := self getRecordExamples.
+	| recordFileRef writeStream |
 
 	recordFileRef := self temporaryDirectory / ('ds-spy-test-' , UUID new asString).
 	recordFileRef ensureCreateFile.
@@ -27,10 +32,10 @@ DSRecordBrowserPresenterTest >> generateRecordsFile [
 
 	writeStream nextPut: $[.
 
-	records doWithIndex: [ :record :index |
+	someRecords doWithIndex: [ :record :index |
 			writeStream nextPutAll: (STON toString: record).
 
-			index = records size ifFalse: [
+			index = someRecords size ifFalse: [
 					writeStream nextPut: $,.
 					writeStream crlf ] ].
 
@@ -83,6 +88,12 @@ DSRecordBrowserPresenterTest >> setUp [
 	browser := DSRecordBrowserPresenter new
 ]
 
+{ #category : 'helpers' }
+DSRecordBrowserPresenterTest >> statisticsPresenter [
+
+	^ browser presenterAt: #statisticsPresenter
+]
+
 { #category : 'running' }
 DSRecordBrowserPresenterTest >> tearDown [
 
@@ -153,15 +164,18 @@ DSRecordBrowserPresenterTest >> testColorAssociations [
 	| associations |
 	associations := {
 		                ((Color fromHexString: '#1f48ff') -> 'Browser').
-		                ((Color fromHexString: '#ff0fef') -> 'Debug point browser').
+		                ((Color fromHexString: '#772980') -> 'Debug point browser').
 		                ((Color fromHexString: '#345e54') -> 'Epicea').
 		                ((Color fromHexString: '#00e5ff') -> 'Iceberg').
-		                ((Color fromHexString: '#ff8f1f') -> 'Critique browser').
+		                ((Color fromHexString: '#ff9100') -> 'Critique browser').
 		                ((Color fromHexString: '#ff2200') -> 'Debugger').
 		                ((Color fromHexString: '#fad314') -> 'Inspector').
 		                ((Color fromHexString: '#70B77E') -> 'Playground').
-		                ((Color fromHexString: '#292929') -> 'Rewriter') }.
+		                ((Color fromHexString: '#ffffff') -> 'Rewriter').
+		                ((Color fromHexString: '#ec45ff') -> 'Debugging Spy').
+		                ((Color fromHexString: '#b3b3b3') -> 'Unknown window') }.
 
+	self assert: associations size equals: DSRecordBrowserPresenter colorAssociations size.
 	self assert: (associations allSatisfy: [ :asso | DSRecordBrowserPresenter colorAssociations includes: asso ])
 ]
 
@@ -215,7 +229,8 @@ DSRecordBrowserPresenterTest >> testGetHistoryFrom [
 
 	| fileRef |
 	fileRef := self generateRecordsFile.
-	self assert: (browser getHistoryFrom: fileRef) class equals: DSRecordHistory
+	self assert: (browser getHistoryFrom: fileRef) class equals: DSRecordHistory.
+	self assert: (browser getHistoryFrom: nil) isNil
 ]
 
 { #category : 'tests' }
@@ -332,10 +347,10 @@ DSRecordBrowserPresenterTest >> testUpdateLastRecord [
 { #category : 'tests' }
 DSRecordBrowserPresenterTest >> testUpdateRecordsTable [
 
-	| fileRef presenterMock |
+	| fileRef |
 	fileRef := self generateRecordsFile.
-	presenterMock := MockObject new on: #selectedItem respond: fileRef.
-	browser updateRecordsTable: presenterMock.
+	browser selectedHistory: (browser getHistoryFrom: fileRef).
+	browser updateRecordsTable.
 
 	self assert: self recordsTablePresenter roots first key class equals: DSBrowseRecord.
 	self assert: (self recordsTablePresenter roots at: 2) key class equals: DSMouseEnterWindowRecord.
@@ -354,6 +369,39 @@ DSRecordBrowserPresenterTest >> testUpdateRecordsTableWhenAddingFile [
 	self assert: self recordsTablePresenter roots last key class equals: DSInspectItRecord
 ]
 
+{ #category : 'tests' }
+DSRecordBrowserPresenterTest >> testUpdateStatisticsPresenter [
+
+	| children |
+	self assert: browser updateStatisticsPresenter equals: browser.
+
+	browser selectedHistory: (browser getHistoryFrom: self generateRecordsFile).
+	browser updateStatisticsPresenter.
+
+	children := self statisticsPresenter children.
+	self assert: children size equals: 5.
+
+	self assert: children keys first label equals: 'Number of events: 4'.
+	self assert: children keys second label equals: 'Number of windows: 4'.
+	self assert: children keys third label equals: 'Time taken: 00:00:03'.
+	self assert: children keys fourth label equals: 'Idle time: 00:00:00'.
+	self assert: children keys last label equals: 'Absolute time taken: 00:00:03'
+]
+
+{ #category : 'tests' }
+DSRecordBrowserPresenterTest >> testUpdateWindowsPresenter [
+
+	| records fileRef windows |
+	records := self getRecordExamples.
+	fileRef := self generateRecordsFileFor: records.
+	browser selectedHistory: (browser getHistoryFrom: fileRef).
+	browser updateWindowsPresenter.
+
+	windows := self windowsPresenter roots.
+	self assert: windows size equals: 4.
+	self assert: (windows allSatisfy: [ :window | window class = DSWindowRecord ])
+]
+
 { #category : 'tests' }
 DSRecordBrowserPresenterTest >> testWindowColorFrom [
 
@@ -368,3 +416,9 @@ DSRecordBrowserPresenterTest >> timelinePresenter [
 
 	^ browser presenterAt: #graphicTimeline 
 ]
+
+{ #category : 'helpers' }
+DSRecordBrowserPresenterTest >> windowsPresenter [
+
+	^ browser presenterAt: #windowsPresenter
+]
diff --git a/DebuggingSpy-Browser/DSAbstractEventRecord.extension.st b/DebuggingSpy-Browser/DSAbstractEventRecord.extension.st
index 5696c56..471e082 100644
--- a/DebuggingSpy-Browser/DSAbstractEventRecord.extension.st
+++ b/DebuggingSpy-Browser/DSAbstractEventRecord.extension.st
@@ -15,3 +15,31 @@ DSAbstractEventRecord class >> getLeafSubClasses [
 
 	^ classes
 ]
+
+{ #category : '*DebuggingSpy-Browser' }
+DSAbstractEventRecord >> printAsFormattedTime [
+	"Returns the specified date and time as a string of format hh:mm:ss.nnnnnnnnn"
+
+	^ (String new: 18 streamContents: [ :aStream | dateTime asTime print24: true showSeconds: true on: aStream ]) asText allBold
+]
+
+{ #category : '*DebuggingSpy-Browser' }
+DSAbstractEventRecord >> type [
+	"Returns the record's type to be displayed in the windows presenter."
+
+	^ self class name
+]
+
+{ #category : '*DebuggingSpy-Browser' }
+DSAbstractEventRecord >> window [
+	"Returns the record's window from the browser selected history."
+
+	^ DSRecordBrowserPresenter uniqueInstance getWindowFromRecord: self
+]
+
+{ #category : '*DebuggingSpy-Browser' }
+DSAbstractEventRecord >> windowColor [
+	"Returns the record's window color."
+
+	^ self window windowColor
+]
diff --git a/DebuggingSpy-Browser/DSRecordBrowserPresenter.class.st b/DebuggingSpy-Browser/DSRecordBrowserPresenter.class.st
index ac5a71a..9e34ca9 100644
--- a/DebuggingSpy-Browser/DSRecordBrowserPresenter.class.st
+++ b/DebuggingSpy-Browser/DSRecordBrowserPresenter.class.st
@@ -11,12 +11,14 @@ Class {
 		'files',
 		'recordsTablePresenter',
 		'timerWindow',
-		'graphicTimeline',
 		'recordsFilter',
 		'toolbarPresenter',
 		'fileListPresenter',
 		'startRecordButtonPresenter',
-		'stopRecordButtonPresenter'
+		'stopRecordButtonPresenter',
+		'windowsPresenter',
+		'statisticsPresenter',
+		'selectedHistory'
 	],
 	#classInstVars : [
 		'uniqueInstance'
@@ -37,7 +39,7 @@ DSRecordBrowserPresenter class >> colorAssociations [
 ]
 
 { #category : 'accessing' }
-DSRecordBrowserPresenter class >> defaultExtent [
+DSRecordBrowserPresenter class >> defaultPreferredExtent [
 
 	^ 1000 @ 600
 ]
@@ -72,6 +74,7 @@ DSRecordBrowserPresenter class >> resetBrowser [
 DSRecordBrowserPresenter class >> toggleBrowser [
 	"Opens the browser or closes it depending on its state. If it needs to be created, then creates and opens it."
 
+	<script>
 	uniqueInstance ifNotNil: [
 			uniqueInstance hasWindow ifTrue: [
 					^ uniqueInstance window isOpen
@@ -87,6 +90,13 @@ DSRecordBrowserPresenter class >> uniqueInstance [
 	^ uniqueInstance ifNil: [ uniqueInstance := self new ]
 ]
 
+{ #category : 'windows' }
+DSRecordBrowserPresenter class >> windowColor [
+
+	<DSWindowColor>
+	^ Color fromHexString: '#ec45ff'
+]
+
 { #category : 'accessing' }
 DSRecordBrowserPresenter class >> windowColorFrom: anObject [
 	"If the specified object is nil, returns the default windowColor, else return its window color."
@@ -95,6 +105,12 @@ DSRecordBrowserPresenter class >> windowColorFrom: anObject [
 	^ anObject windowColor
 ]
 
+{ #category : 'accessing' }
+DSRecordBrowserPresenter class >> windowType [
+
+	^ 'Debugging Spy'
+]
+
 { #category : 'files' }
 DSRecordBrowserPresenter >> addFile: aFileReference [
 	"Adds a file in the presenter and set is as selected, which updates the records displayed."
@@ -126,15 +142,14 @@ DSRecordBrowserPresenter >> colorReferential [
 	^ self newTreeTable
 		  addColumn: (SpStringTableColumn new
 				   title: 'Color';
-				   evaluated: [ ];
+				   evaluated: [ :association | '' ];
 				   displayBackgroundColor: [ :association | association key ];
 				   yourself);
 		  addColumn: (SpStringTableColumn new
 				   title: 'Window type';
 				   evaluated: [ :association | association value ];
-				   displayColor: [ :aRecord | Color white ];
 				   yourself);
-		  roots: self class colorAssociations;
+		  roots: (self class colorAssociations sort: [ :a :b | a key hue <= b key hue ]);
 		  beResizable;
 		  yourself
 ]
@@ -144,10 +159,12 @@ DSRecordBrowserPresenter >> connectPresenters [
 	"Updates the records and the timeline whenever the selected file is changed."
 
 	fileListPresenter whenSelectionChangedDo: [ :presenter |
-			self updateRecordsTable: presenter.
-			self updateTimelineChart ].
+			selectedHistory := self getHistoryFrom: presenter selectedItem.
+			self updateRecordsTable.
+			self updateWindowsPresenter.
+			self updateStatisticsPresenter ].
 
-	recordsFilter whenChangedDo: [ fileListPresenter selectedItem ifNotNil: [ self updateRecordsTable: fileListPresenter ] ]
+	recordsFilter whenChangedDo: [ self updateRecordsTable ]
 ]
 
 { #category : 'layout' }
@@ -165,7 +182,8 @@ DSRecordBrowserPresenter >> defaultLayout [
 				   add: (SpBoxLayout newTopToBottom
 						    add: (SpTabLayout new
 								     add: recordsTablePresenter label: 'Records';
-								     add: graphicTimeline label: 'Timeline';
+								     add: windowsPresenter label: 'Windows';
+								     add: statisticsPresenter label: 'Statistics';
 								     yourself);
 						    yourself);
 				   yourself)
@@ -212,6 +230,7 @@ DSRecordBrowserPresenter >> filterRecordsButton [
 DSRecordBrowserPresenter >> getHistoryFrom: aFileReference [
 	"Returns the generated history using the specified file reference which should countains DSSpy records."
 
+	aFileReference ifNil: [ ^ nil ].
 	^ DSRecordHistory on: (DSSpy materialize: aFileReference)
 ]
 
@@ -229,26 +248,11 @@ DSRecordBrowserPresenter >> getRecordColorAssociationsFrom: aWindowRecordCollect
 	^ recordColorsAssociations sorted: [ :recordA :recordB | recordA key dateTime < recordB key dateTime ]
 ]
 
-{ #category : 'helpers' }
-DSRecordBrowserPresenter >> getTimelinePointsFrom: aHistory [
-	"Returns a list of plots for the timeline chart."
-
-	^ aHistory windows collectWithIndex: [ :windowRecord :index |
-			  RSTimeLinePlot new
-				  entries: {
-						  windowRecord events first dateTime asNanoSeconds.
-						  windowRecord events last dateTime asNanoSeconds }
-				  at: index;
-				  color: windowRecord windowColor ]
-]
-
 { #category : 'helpers' }
 DSRecordBrowserPresenter >> getWindowFromRecord: aRecord [
 	"Returns the record's corresponding window record in the history."
 
-	| rawRecords |
-	rawRecords := DSSpy materialize: fileListPresenter selectedItem.
-	^ ((DSRecordHistory on: rawRecords) windows select: [ :window | window windowId = aRecord windowId ]) first
+	^ (selectedHistory windows select: [ :window | window windowId = aRecord windowId ]) first
 ]
 
 { #category : 'initialization' }
@@ -259,8 +263,9 @@ DSRecordBrowserPresenter >> initializePresenters [
 	toolbarPresenter := self toolbar.
 	fileListPresenter := self fileList.
 	recordsTablePresenter := self recordsTable.
-	graphicTimeline := self newRoassal.
-	recordsFilter := self recordsFilter
+	recordsFilter := self recordsFilter.
+	windowsPresenter := self windowsPresenter.
+	statisticsPresenter := self statisticsPresenter
 ]
 
 { #category : 'operations' }
@@ -281,7 +286,7 @@ DSRecordBrowserPresenter >> listAddedFilesActions [
 					  iconName: #history;
 					  description: 'Inspect the record history';
 					  shortcutKey: $h meta;
-					  action: [ (self getHistoryFrom: fileListPresenter selectedItem) inspect ] ];
+					  action: [ selectedHistory inspect ] ];
 		  addActionWith: [ :anItem |
 				  anItem
 					  name: 'Remove';
@@ -320,23 +325,23 @@ DSRecordBrowserPresenter >> recordsTable [
 	"Instanciates a new records table that displays data based on the selected file's records."
 
 	^ self newTreeTable
+		  addColumn: (SpStringTableColumn new
+				   displayBackgroundColor: [ :association | association key windowColor ];
+				   width: 4;
+				   beNotSortable;
+				   evaluated: [ :association | '' ];
+				   yourself);
 		  addColumn: (SpStringTableColumn new
 				   title: 'Event';
-				   displayBackgroundColor: [ :association | association value ];
 				   evaluated: [ :association | association key eventName asString ];
-				   displayColor: [ :aRecord | Color white ];
 				   yourself);
 		  addColumn: (SpStringTableColumn new
-				   title: 'Event type';
-				   displayBackgroundColor: [ :association | association value ];
+				   title: 'Type';
 				   evaluated: [ :association | association key class asString ];
-				   displayColor: [ :aRecord | Color white ];
 				   yourself);
 		  addColumn: (SpStringTableColumn new
 				   title: 'Time';
-				   displayBackgroundColor: [ :association | association value ];
-				   evaluated: [ :association | association key dateTime asTime print24 ];
-				   displayColor: [ :aRecord | Color white ];
+				   evaluated: [ :association | association key printAsFormattedTime ];
 				   yourself);
 		  beResizable;
 		  actions: self recordsTableActions;
@@ -381,6 +386,18 @@ DSRecordBrowserPresenter >> removeFile: aFileReference [
 	fileListPresenter selectItem: (files ifNotEmpty: [ files last ])
 ]
 
+{ #category : 'accessing' }
+DSRecordBrowserPresenter >> selectedHistory [
+
+	^ selectedHistory
+]
+
+{ #category : 'accessing' }
+DSRecordBrowserPresenter >> selectedHistory: anHistory [
+
+	selectedHistory := anHistory
+]
+
 { #category : 'layout' }
 DSRecordBrowserPresenter >> startRecordButton [
 	"Instanciates a button that starts the DSSpy recording session on click."
@@ -406,6 +423,15 @@ DSRecordBrowserPresenter >> startRecording [
 	self updateToolbar
 ]
 
+{ #category : 'layout' }
+DSRecordBrowserPresenter >> statisticsPresenter [
+	"Instanciates a new records table that displays data based on the selected file's records."
+
+	^ SpGridLayout new
+		  beColumnNotHomogeneous;
+		  yourself
+]
+
 { #category : 'layout' }
 DSRecordBrowserPresenter >> stopRecordButton [
 	"Instanciates a button that stops the DSSpy recording session on click."
@@ -429,34 +455,6 @@ DSRecordBrowserPresenter >> stopRecording [
 	timerWindow := nil
 ]
 
-{ #category : 'layout' }
-DSRecordBrowserPresenter >> timelineChart [
-	"Returns a chart that represents a timeline using the file list presenter's data for its plots."
-
-	| history names chart data |
-	fileListPresenter selectedItem ifNil: [ ^ nil ].
-
-	history := self getHistoryFrom: fileListPresenter selectedItem.
-	names := history windows collect: [ :i | i windowType ].
-
-	data := self getTimelinePointsFrom: history.
-	data size < 2 ifTrue: [ ^ nil ].
-
-	chart := RSCompositeChart new.
-	chart addAll: data.
-
-	chart verticalTick fromNames: names.
-
-	chart horizontalTick
-		useNiceLabel;
-		numberOfTicks: history windows size // 2;
-		useDiagonalLabel;
-		labelConversion: [ :v | (DateAndTime fromSeconds: v // 1000000000) asTime ]. "Plots are instancied using their dateTime as nano seconds to prevent events which last less than a second to be hided, so we convert them into seconds to get the label."
-
-	chart build.
-	^ chart
-]
-
 { #category : 'accessing' }
 DSRecordBrowserPresenter >> timerWindow [
 
@@ -489,31 +487,34 @@ DSRecordBrowserPresenter >> updateLastRecord: aRecord [
 ]
 
 { #category : 'operations' }
-DSRecordBrowserPresenter >> updateRecordsTable: filesPresenter [
+DSRecordBrowserPresenter >> updateRecordsTable [
 	"Updates the records' table presenter and add to each record its corresponding color."
 
-	| fileRef recordColorAssociations |
+	| recordColorAssociations |
 	recordColorAssociations := Array new.
-	fileRef := filesPresenter selectedItem.
 
-	fileRef ifNotNil: [
-			recordColorAssociations := self getRecordColorAssociationsFrom: (self getHistoryFrom: fileRef) windows.
+	selectedHistory ifNotNil: [
+			recordColorAssociations := self getRecordColorAssociationsFrom: selectedHistory windows.
 			recordColorAssociations := recordColorAssociations reject: [ :association |
 				                           recordsFilter chosenItems includes: association key class ] ].
 
-	recordsTablePresenter roots: recordColorAssociations 
+	recordsTablePresenter roots: recordColorAssociations
 ]
 
 { #category : 'operations' }
-DSRecordBrowserPresenter >> updateTimelineChart [
-	"Regenerates the timeline chart using the selected record's data"
+DSRecordBrowserPresenter >> updateStatisticsPresenter [
+	"Updates the different fields in the statistics presenter depending on the selected history."
+
+	| stats |
+	selectedHistory ifNil: [ ^ self ].
+	stats := {
+		         ('Number of events: ' , selectedHistory records size asString).
+		         ('Number of windows: ' , selectedHistory windows size asString).
+		         ('Time taken: ' , (Time fromSeconds: selectedHistory timeTaken) print24).
+		         ('Idle time: ' , (Time fromSeconds: selectedHistory computeIdleTime) print24).
+		         ('Absolute time taken: ' , (Time fromSeconds: selectedHistory absoluteTimeTaken) print24) }.
 
-	| chart |
-	chart := self timelineChart.
-	chart
-		ifNil: [ graphicTimeline script: [ :canvas |  ] ]
-		ifNotNil: [ graphicTimeline script: [ :canvas | chart renderIn: canvas ] ].
-	graphicTimeline refresh
+	stats doWithIndex: [ :stat :index | statisticsPresenter add: stat asPresenter atPoint: 1 @ index ]
 ]
 
 { #category : 'layout' }
@@ -523,6 +524,13 @@ DSRecordBrowserPresenter >> updateToolbar [
 	stopRecordButtonPresenter enabled: DSSpy recordingSession
 ]
 
+{ #category : 'operations' }
+DSRecordBrowserPresenter >> updateWindowsPresenter [
+	"Updates the windows presenter by setting its roots using the selected item from files presenter."
+
+	selectedHistory ifNil: [ windowsPresenter roots: {  } ] ifNotNil: [ windowsPresenter roots: selectedHistory windows ]
+]
+
 { #category : 'accessing' }
 DSRecordBrowserPresenter >> windowIcon [
 
@@ -534,3 +542,56 @@ DSRecordBrowserPresenter >> windowTitle [
 
 	^ 'Debugging record browser'
 ]
+
+{ #category : 'layout' }
+DSRecordBrowserPresenter >> windowsPresenter [
+	"Instanciates a new table that displays the windows and their events as children. For each column, the manipulated object could be either a DSWindowRecord or a record that inherits from DSAbstractEventRecord."
+
+	^ self newTreeTable
+		  addColumn: (SpStringTableColumn new
+				   width: 4;
+				   beNotSortable;
+				   evaluated: [ :item | '' ];
+				   yourself);
+		  addColumn: (SpStringTableColumn new
+				   width: 20;
+				   beNotExpandable;
+				   beNotSortable;
+				   displayBackgroundColor: [ :anItem | anItem windowColor ];
+				   evaluated: [ :item | '' ];
+				   yourself);
+		  addColumn: (SpStringTableColumn new
+				   title: 'Window / Event';
+				   evaluated: [ :anItem | anItem asString ];
+				   yourself);
+		  addColumn: (SpStringTableColumn new
+				   title: 'Type';
+				   evaluated: [ :anItem | anItem type ];
+				   yourself);
+		  addColumn: (SpStringTableColumn new
+				   title: 'Time';
+				   evaluated: [ :anItem | anItem printAsFormattedTime ];
+				   yourself);
+		  beResizable;
+		  actions: self windowsPresenterActions;
+		  children: [ :item |
+				  item class = DSWindowRecord
+					  ifTrue: [ item events ]
+					  ifFalse: [ {  } ] ];
+		  yourself
+]
+
+{ #category : 'layout' }
+DSRecordBrowserPresenter >> windowsPresenterActions [
+	"Return a list of actions which can be done on a record from the table. For example, inspect the selected record."
+
+	^ SpActionGroup new
+		  addActionWith: [ :anItem |
+				  anItem
+					  name: 'Inspect';
+					  iconName: #inspect;
+					  description: 'Inspect the selected element.';
+					  shortcutKey: $i meta;
+					  action: [ windowsPresenter selectedItem inspect ] ];
+		  yourself
+]
diff --git a/DebuggingSpy-Browser/DSWindowRecord.extension.st b/DebuggingSpy-Browser/DSWindowRecord.extension.st
index 99ca3e7..dcb587f 100644
--- a/DebuggingSpy-Browser/DSWindowRecord.extension.st
+++ b/DebuggingSpy-Browser/DSWindowRecord.extension.st
@@ -1,5 +1,19 @@
 Extension { #name : 'DSWindowRecord' }
 
+{ #category : '*DebuggingSpy-Browser' }
+DSWindowRecord >> printAsFormattedTime [
+	"Returns the formatted time to be displayed in the windows presenter."
+
+	^ nil
+]
+
+{ #category : '*DebuggingSpy-Browser' }
+DSWindowRecord >> type [
+	"Returns the window's type to be displayed in the windows presenter."
+
+	^ self windowType , ' (' , events size asString , ' events)'
+]
+
 { #category : '*DebuggingSpy-Browser' }
 DSWindowRecord >> windowColor [
 	"Returns the toolinfo associated window color, and the default color if undefined."
diff --git a/DebuggingSpy-Browser/DebugPointBrowserPresenter.extension.st b/DebuggingSpy-Browser/DebugPointBrowserPresenter.extension.st
index 122134e..7ccb3a1 100644
--- a/DebuggingSpy-Browser/DebugPointBrowserPresenter.extension.st
+++ b/DebuggingSpy-Browser/DebugPointBrowserPresenter.extension.st
@@ -4,7 +4,7 @@ Extension { #name : 'DebugPointBrowserPresenter' }
 DebugPointBrowserPresenter class >> windowColor [
 
 	<DSWindowColor>
-	^ Color fromHexString: '#ff0fef'
+	^ Color fromHexString: '#772980'
 ]
 
 { #category : '*DebuggingSpy-Browser' }
diff --git a/DebuggingSpy-Browser/PharoShortcuts.extension.st b/DebuggingSpy-Browser/PharoShortcuts.extension.st
index ac2408d..4eee33c 100644
--- a/DebuggingSpy-Browser/PharoShortcuts.extension.st
+++ b/DebuggingSpy-Browser/PharoShortcuts.extension.st
@@ -3,5 +3,5 @@ Extension { #name : 'PharoShortcuts' }
 { #category : '*DebuggingSpy-Browser' }
 PharoShortcuts >> openDebuggingSpyBrowserShortcut [
 
-	^ $d meta , $s meta
+	^ $o meta , $d meta
 ]
diff --git a/DebuggingSpy-Browser/StCritiquePackageSelectorPresenter.extension.st b/DebuggingSpy-Browser/StCritiquePackageSelectorPresenter.extension.st
index c21d065..976836d 100644
--- a/DebuggingSpy-Browser/StCritiquePackageSelectorPresenter.extension.st
+++ b/DebuggingSpy-Browser/StCritiquePackageSelectorPresenter.extension.st
@@ -4,7 +4,7 @@ Extension { #name : 'StCritiquePackageSelectorPresenter' }
 StCritiquePackageSelectorPresenter class >> windowColor [
 
 	<DSWindowColor>
-	^ Color fromHexString: '#ff8f1f'
+	^ Color fromHexString: '#ff9100'
 ]
 
 { #category : '*DebuggingSpy-Browser' }
diff --git a/DebuggingSpy-Browser/StRewriterExpressionFinderPresenter.extension.st b/DebuggingSpy-Browser/StRewriterExpressionFinderPresenter.extension.st
index 97b859e..d563b91 100644
--- a/DebuggingSpy-Browser/StRewriterExpressionFinderPresenter.extension.st
+++ b/DebuggingSpy-Browser/StRewriterExpressionFinderPresenter.extension.st
@@ -4,7 +4,7 @@ Extension { #name : 'StRewriterExpressionFinderPresenter' }
 StRewriterExpressionFinderPresenter class >> windowColor [
 
 	<DSWindowColor>
-	^ Color fromHexString: '#292929'
+	^ Color fromHexString: '#ffffff'
 ]
 
 { #category : '*DebuggingSpy-Browser' }
diff --git a/DebuggingSpy-Tests/DSRecordHistoryTest.class.st b/DebuggingSpy-Tests/DSRecordHistoryTest.class.st
index dac60e6..1e4bad8 100644
--- a/DebuggingSpy-Tests/DSRecordHistoryTest.class.st
+++ b/DebuggingSpy-Tests/DSRecordHistoryTest.class.st
@@ -44,7 +44,7 @@ DSRecordHistoryTest >> setUp [
 DSRecordHistoryTest >> testAbsoluteTimeTaken [
 
 	history records: self getRecordsExample.
-	self assert: history absoluteTimeTaken equals: 22
+	self assert: history absoluteTimeTaken equals: 22 * 60
 ]
 
 { #category : 'tests' }
@@ -374,6 +374,30 @@ DSRecordHistoryTest >> testCollectTimeDiscrepancies [
 	self assert: deltaDict third key second class equals: DSClipboardCopyRecord
 ]
 
+{ #category : 'tests' }
+DSRecordHistoryTest >> testComputeIdleTime [
+
+	history records: {
+			(DSMouseEnterWindowRecord new dateTime: '2024-09-23T15:02:44' asDateAndTime).
+			(DSDoItRecord new dateTime: '2024-09-23T15:02:47' asDateAndTime) }.
+
+	self assert: history computeIdleTime equals: 0.
+
+	history records: {
+			(DSMouseEnterWindowRecord new dateTime: '2024-09-23T15:02:44' asDateAndTime).
+			(DSDoItRecord new dateTime: '2024-09-23T15:02:47' asDateAndTime).
+			(DSStepIntoRecord new dateTime: '2024-09-23T15:02:54' asDateAndTime).
+			(DSDebugItRecord new dateTime: '2024-09-23T15:02:56' asDateAndTime).
+			(DSMouseLeaveWindowRecord new dateTime: '2024-09-23T15:03:00' asDateAndTime).
+			(DSWindowClosedRecord new dateTime: '2024-09-23T15:03:03' asDateAndTime).
+			(DSMouseEnterWindowRecord new dateTime: '2024-09-23T15:06:07' asDateAndTime).
+			(DSPrintItRecord new dateTime: '2024-09-23T15:06:10' asDateAndTime).
+			(DSClipboardCopyRecord new dateTime: '2024-09-23T15:06:26' asDateAndTime).
+			(DSMethodRemovedRecord new dateTime: '2024-09-23T15:06:30' asDateAndTime) }.
+
+	self assert: history computeIdleTime equals: 7 + 184 + 16
+]
+
 { #category : 'tests' }
 DSRecordHistoryTest >> testCountDebugActions [
 
@@ -1126,6 +1150,24 @@ DSRecordHistoryTest >> testStopTime [
 	self assert: history stopTime equals: '15:24:44' asTime
 ]
 
+{ #category : 'tests' }
+DSRecordHistoryTest >> testTimeTaken [
+
+	history records: {
+			(DSMouseEnterWindowRecord new dateTime: '2024-09-23T15:02:44' asDateAndTime).
+			(DSDoItRecord new dateTime: '2024-09-23T15:02:47' asDateAndTime).
+			(DSStepIntoRecord new dateTime: '2024-09-23T15:02:54' asDateAndTime).
+			(DSDebugItRecord new dateTime: '2024-09-23T15:02:56' asDateAndTime).
+			(DSMouseLeaveWindowRecord new dateTime: '2024-09-23T15:03:00' asDateAndTime).
+			(DSWindowClosedRecord new dateTime: '2024-09-23T15:03:03' asDateAndTime).
+			(DSMouseEnterWindowRecord new dateTime: '2024-09-23T15:06:07' asDateAndTime).
+			(DSPrintItRecord new dateTime: '2024-09-23T15:06:10' asDateAndTime).
+			(DSClipboardCopyRecord new dateTime: '2024-09-23T15:06:26' asDateAndTime).
+			(DSMethodRemovedRecord new dateTime: '2024-09-23T15:06:30' asDateAndTime) }.
+
+	self assert: history timeTaken equals: 3 * 60 + 46 - (7 + 184 + 16)
+]
+
 { #category : 'tests' }
 DSRecordHistoryTest >> testToolInfosFor [
 
diff --git a/DebuggingSpy/DSRecordHistory.class.st b/DebuggingSpy/DSRecordHistory.class.st
index 90c86c2..749d0e6 100644
--- a/DebuggingSpy/DSRecordHistory.class.st
+++ b/DebuggingSpy/DSRecordHistory.class.st
@@ -57,8 +57,7 @@ DSRecordHistory class >> windowLeaveEventTypes [
 DSRecordHistory >> absoluteTimeTaken [
 	"The absolute time taken to perform the recording of user events, including unmonitoring activities (interruptions or activities outside the IDE)."
 
-	^ ((records last dateTime asSeconds - records first dateTime asSeconds)
-	   / 60) asFloat
+	^ records last dateTime asSeconds - records first dateTime asSeconds
 ]
 
 { #category : 'API-history' }
@@ -165,6 +164,16 @@ DSRecordHistory >> collectTimeDiscrepancies [
 	^ deltas
 ]
 
+{ #category : 'API-history' }
+DSRecordHistory >> computeIdleTime [
+	"Returns the sum of all time discrepancies durations and returns the result as a number of seconds."
+
+	| associations |
+	associations := self collectTimeDiscrepancies collect: [ :association | association value asSeconds ].
+	associations ifEmpty: [ ^ 0 ].
+	^ associations sum
+]
+
 { #category : 'API-history' }
 DSRecordHistory >> countDebugActions [
 
@@ -609,8 +618,8 @@ DSRecordHistory >> timeTaken [
 	- last log minus the first log timestamp minus time gaps (or discrepancies)
 	- time gaps are calculated as the sum of time differences between two following events with a time delta > 5 min.
 	We consider that, if the user did not do anything (basically typing or moving the mouse) for more than 5 min, the she was away from the task."
-	^ ((records last dateTime asSeconds - records first dateTime asSeconds
-	   - self collectTimeDiscrepancies) / 60) asFloat
+
+	^ self absoluteTimeTaken - self computeIdleTime
 ]
 
 { #category : 'accessing' }