Fix baseline + remove TracingPoint when window is closed

Author: Nyan11

src/BaselineOfExecutableRequirements/BaselineOfExecutableRequirements.class.st

@@ -1,57 +1,64 @@
-Class {
-	#name : 'BaselineOfExecutableRequirements',
-	#superclass : 'BaselineOf',
-	#category : 'BaselineOfExecutableRequirements',
-	#package : 'BaselineOfExecutableRequirements'
-}
-
-{ #category : 'baselines' }
-BaselineOfExecutableRequirements >> baseline: spec [
-	"Common baseline for all Pharo versions"
-
-	<baseline>
-	spec for: #common do: [ self baselineForCommon: spec ]
-]
-
-{ #category : 'baselines' }
-BaselineOfExecutableRequirements >> baselineForCommon: spec [
-
-	<baseline>
-	spec preLoadDoIt: #preload:package:.
-	spec postLoadDoIt: #postload:package:.
-
-	"Dependencies"
-	self coreDependencies: spec.
-
-	"Packages"
-	self corePackages: spec
-]
-
-{ #category : 'baselines' }
-BaselineOfExecutableRequirements >> coreDependencies: spec [
-
-	"No dependencies"
-]
-
-{ #category : 'baselines' }
-BaselineOfExecutableRequirements >> corePackages: spec [
-
-	spec package: 'ExecutableRequirements'.
-
-	"tests packages"
-	spec package: 'ExecutableRequirements-Tests' with: [ spec requires: #( 'ExecutableRequirements' ) ]
-]
-
-{ #category : 'baselines' }
-BaselineOfExecutableRequirements >> postload: loader package: packageSpec [
-	"do nothing"
-
-	
-]
-
-{ #category : 'baselines' }
-BaselineOfExecutableRequirements >> preload: loader package: packageSpec [
-	"do nothing"
-
-	
-]
+Class {
+	#name : 'BaselineOfExecutableRequirements',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfExecutableRequirements',
+	#package : 'BaselineOfExecutableRequirements'
+}
+
+{ #category : 'baselines' }
+BaselineOfExecutableRequirements >> baseline: spec [
+	"Common baseline for all Pharo versions"
+
+	<baseline>
+	spec for: #common do: [ self baselineForCommon: spec ]
+]
+
+{ #category : 'baselines' }
+BaselineOfExecutableRequirements >> baselineForCommon: spec [
+
+	<baseline>
+	spec preLoadDoIt: #preload:package:.
+	spec postLoadDoIt: #postload:package:.
+
+	"Dependencies"
+	self coreDependencies: spec.
+
+	"Packages"
+	self corePackages: spec
+]
+
+{ #category : 'baselines' }
+BaselineOfExecutableRequirements >> coreDependencies: spec [
+
+	"No dependencies"
+]
+
+{ #category : 'baselines' }
+BaselineOfExecutableRequirements >> corePackages: spec [
+
+	spec package: 'ExecutableRequirements'.
+	
+	spec
+		package: 'ExecutableRequirements-Examples'
+		with: [ spec requires: #( 'ExecutableRequirements' ) ].
+	spec
+		package: 'ExecutableRequirements-Tests'
+		with: [ spec requires: #( 'ExecutableRequirements' ) ].
+	spec
+		package: 'ExecutableRequirements-UI'
+		with: [ spec requires: #( 'ExecutableRequirements' ) ]
+]
+
+{ #category : 'baselines' }
+BaselineOfExecutableRequirements >> postload: loader package: packageSpec [
+	"do nothing"
+
+	
+]
+
+{ #category : 'baselines' }
+BaselineOfExecutableRequirements >> preload: loader package: packageSpec [
+	"do nothing"
+
+	
+]

src/BaselineOfExecutableRequirements/package.st

@@ -1 +1 @@
-Package { #name : 'BaselineOfExecutableRequirements' }
+Package { #name : 'BaselineOfExecutableRequirements' }

src/ExecutableRequirements-UI/ExReqUIPresenter.class.st

@@ -36,6 +36,13 @@ ExReqUIPresenter >> defaultLayout [
 		  yourself
 ]
 
+{ #category : 'as yet unclassified' }
+ExReqUIPresenter >> ensureAllTracingPointsAreRemoved [
+
+	self repositoryReport ifNil: [ ^ self ].
+	self repositoryReport removeTracingPoints
+]
+
 { #category : 'initialization - deprecated' }
 ExReqUIPresenter >> initializePresenter [
 
@@ -58,6 +65,15 @@ ExReqUIPresenter >> isRefreshOnGoing: anObject [
 	isRefreshOnGoing := anObject
 ]
 
+{ #category : 'showing' }
+ExReqUIPresenter >> open [
+
+	| window |
+	window := super open.
+	window whenWillCloseDo: [ self ensureAllTracingPointsAreRemoved ].
+	^ window
+]
+
 { #category : 'accessing' }
 ExReqUIPresenter >> refreshIcons [