Same fix for warnings: the debugger system was always instantiated tw…

…ice.
pharo-project · Oct 8, 2021 · 3ee7a33 · 3ee7a33
1 parent cdbe9b7
commit 3ee7a33
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/src/Debugger-Oups/OupsDebuggerSystem.class.st b/src/Debugger-Oups/OupsDebuggerSystem.class.st
@@ -63,7 +63,7 @@ OupsDebuggerSystem >> handleWarningDebugRequest: aWarningDebugRequest [
 	"A WarningDebugRequest has been submitted. Ask what to do to the default UIManager. Typically, the UIManager will call back my #openDebuggerOnRequest: method to open a debugger"
 
 	[ 
-	self defaultUIManager handleWarningDebugRequest: aWarningDebugRequest ]
+	self defaultUIManager handleWarningDebugRequest: aWarningDebugRequest fromDebuggerSystem: self]
 		on: Error
 		do: [ self signalDebuggerError: aWarningDebugRequest ]
 ]

diff --git a/src/Polymorph-Widgets/MorphicUIManager.class.st b/src/Polymorph-Widgets/MorphicUIManager.class.st
@@ -371,9 +371,9 @@ MorphicUIManager >> handleError: anError log: shouldLog [
 ]
 
 { #category : #'handle debug requests' }
-MorphicUIManager >> handleWarningDebugRequest: aWarningDebugRequest [
+MorphicUIManager >> handleWarningDebugRequest: aWarningDebugRequest fromDebuggerSystem: anOupsDebuggerSystem [
 	<debuggerCompleteToSender>
-	OupsDebuggerSystem new openDebuggerOnRequest: aWarningDebugRequest
+	anOupsDebuggerSystem openDebuggerOnRequest: aWarningDebugRequest
 ]
 
 { #category : #'ui requests' }

diff --git a/src/UIManager/CommandLineUIManager.class.st b/src/UIManager/CommandLineUIManager.class.st
@@ -204,7 +204,7 @@ CommandLineUIManager >> handleError: anError log: shouldLog [
 ]
 
 { #category : #'handle debug requests' }
-CommandLineUIManager >> handleWarningDebugRequest: aWarningDebugRequest [
+CommandLineUIManager >> handleWarningDebugRequest: aWarningDebugRequest fromDebuggerSystem: anOupsDebuggerSystem [
 
 	self warningDefaultAction: aWarningDebugRequest exception
 ]

diff --git a/src/UIManager/UIManager.class.st b/src/UIManager/UIManager.class.st
@@ -414,7 +414,7 @@ UIManager >> handleError: anError log: shouldLog [
 ]
 
 { #category : #'debug requests' }
-UIManager >> handleWarningDebugRequest: aWarningDebugRequest [
+UIManager >> handleWarningDebugRequest: aWarningDebugRequest fromDebuggerSystem: anOupsDebuggerSystem [
 	"Handle warning notification. Should be overidden by subclass."
 
 	self subclassResponsibility