Remove telemetry

src/Bloc/BlBaseEventProcessor.class.st

@@ -9,8 +9,9 @@ Class {
 	#category : #'Bloc-Space - Events'
 }
 
-{ #category : #'as yet unclassified' }
-BlBaseEventProcessor class >> space:  aSpace [
+{ #category : #'instance creation' }
+BlBaseEventProcessor class >> space: aSpace [
+
 	^ self new
 		space: aSpace;
 		yourself
@@ -49,12 +50,3 @@ BlBaseEventProcessor >> space [
 BlBaseEventProcessor >> space: aSpace [
 	space := aSpace
 ]
-
-{ #category : #accessing }
-BlBaseEventProcessor >> telemetry [
-	<return: #BlTelemetry>
-
-	^ self space
-		ifNil: [ BlNullTelemetry uniqueInstance ]
-		ifNotNil: [ :aSpace | aSpace telemetry ]
-]

src/Bloc/BlElement.class.st

@@ -445,19 +445,25 @@ BlElement >> applyLayoutSafelyIn: aRectangle context: aBlElementBoundsUpdateCont
 	"Fast exit if I or any of my children did not request layout update
 	and if my current bounds are the same as aRectangle"
 	(self isLayoutRequested or: [
-		self layout mayInfluencePosition not
-			or: [ extentChanged or: [ newPosition ~= self position ] ] ])
+		self layout mayInfluencePosition not or: [
+			extentChanged or: [ newPosition ~= self position ] ] ])
 		ifFalse: [ ^ self ].
 
 	"! actually change my position and extent !"
-	self position: newPosition extent: newExtent context: aBlElementBoundsUpdateContext.
-
-	"if my extent did not change and if I or any of my children did not request layout we do nothing"
-	(extentChanged or: [ self isLayoutRequested or: [ self layout mayInfluencePosition ] ])
+	self
+		position: newPosition
+		extent: newExtent
+		context: aBlElementBoundsUpdateContext.
+
+	"if my extent did not change and if I or any of my children did not
+	request layout we do nothing"
+	(extentChanged or: [
+		self isLayoutRequested or: [
+			self layout mayInfluencePosition ] ])
 		ifTrue: [
-			self telemetry
-				timeSync: [ 'Layout ', self class name ]
-				during: [ self onLayout: aRectangle context: aBlElementBoundsUpdateContext ] ].
+			self
+				onLayout: aRectangle
+				context: aBlElementBoundsUpdateContext ].
 
 	"we are done, mark that there are no layout requests pending"
 	self privateRequestingLayout: false
@@ -3820,15 +3826,6 @@ BlElement >> taskQueue [
 	^ taskQueue
 ]
 
-{ #category : #accessing }
-BlElement >> telemetry [
-	<return: #BlTelemetry>
-
-	^ self space
-		ifNil: [ BlNullTelemetry uniqueInstance ]
-		ifNotNil: [ :aSpace | aSpace telemetry ]
-]
-
 { #category : #'children accessing' }
 BlElement >> topMostParent [
 	"Return a topmost parent in a scene graph.

src/Bloc/BlKeyboardProcessor.class.st

@@ -113,24 +113,16 @@ BlKeyboardProcessor >> processKeyDown: anEvent [
 
 	self buffer add: anEvent.
 
-	aTarget := self telemetry
-		timeSync: [ 'Find key down target ' ]
-		during: [ self findTarget ].
-
+	aTarget := self findTarget.
 	anEvent target: aTarget.
-
-	self telemetry
-		timeSync: [ 'Fire key down event ' ]
-		during: [ self fireEvent: anEvent ].
+	self fireEvent: anEvent.
 
 	aShortcutEvent := BlShortcutEvent new.
 	aShortcutEvent buffer: self buffer.
 	aShortcutEvent target: aTarget.
 	aShortcutEvent modifiers: anEvent modifiers.
 
-	self telemetry
-		timeSync: [ 'Fire shortcut event ' ]
-		during: [ self fireEvent: aShortcutEvent ].
+	self fireEvent: aShortcutEvent.
 
 	previousShortcutTime := self space time now.
 
@@ -146,15 +138,9 @@ BlKeyboardProcessor >> processKeyUp: anEvent [
 
 	self buffer remove: anEvent.
 
-	aTarget := self telemetry
-		timeSync: [ 'Find key up target ' ]
-		during: [ self findTarget ].
-
+	aTarget := self findTarget.
 	anEvent target: aTarget.
-
-	self telemetry
-		timeSync: [ 'Fire key up event ' ]
-		during: [ self fireEvent: anEvent ].
+	self fireEvent: anEvent.
 
 	self buffer isEmpty
 		ifTrue: [ preventKeystrokes := false ]

src/Bloc/BlSpace.class.st

@@ -50,7 +50,6 @@ Class {
 		'frame',
 		'elementsNeedingPaint',
 		'elementsNeedingLayout',
-		'telemetry',
 		'reference',
 		'iconStencil',
 		'rootElement',
@@ -1199,7 +1198,6 @@ BlSpace >> initialize [
 	tasks := BlSpaceTaskQueue space: self.
 	time := BlTime real.
 	frame := BlSpaceFrame new.
-	telemetry := BlNullTelemetry uniqueInstance.
 
 	rootElement := self defaultRoot.
 
@@ -1663,18 +1661,6 @@ BlSpace >> taskQueue [
 	^ tasks
 ]
 
-{ #category : #'NOT-USED-telemetry' }
-BlSpace >> telemetry [
-	<return: #BlTelemetry>
-
-	^ telemetry
-]
-
-{ #category : #'NOT-USED-telemetry' }
-BlSpace >> telemetry: aBlTelemetry [
-	telemetry := aBlTelemetry
-]
-
 { #category : #accessing }
 BlSpace >> time [
 	<return: #BlTime>

src/Bloc/BlSpaceFrameEventPhase.class.st

@@ -30,11 +30,8 @@ BlSpaceFrameEventPhase >> runOn: aSpace [
 				"we have to test for existance of the host space before handling each event because
 				it is possible that a space is closed due to an event"
 
-				theSpace telemetry
-					timeSync: [ 'Process event {1}' format: { anEvent } ]
-					during: [
-						theSpace hostSpaceDo: [
-							theSpace eventDispatcher dispatchEvent: anEvent ] ]  ] ].
+				theSpace hostSpaceDo: [
+					theSpace eventDispatcher dispatchEvent: anEvent ] ] ].
 
 			theSpace hostSpaceDo: [ :aHostSpace | aHostSpace generateEvents ].
 			theSpace mouseProcessor generateEvents ]