Add debug mode to PBAbstractProcess and make it reflect the state of the application debugMode.

Author: alejandroinfante

src/PythonBridge-Pharo/PBPharoPipenvProcess.class.st

@@ -103,13 +103,20 @@ PBPharoPipenvProcess >> process [
 
 { #category : #private }
 PBPharoPipenvProcess >> processArguments [
-	^ { 
-			'run'. 
-			'python'. self pythonMainFile fullName. 
-			'--port'. self settings pythonSocketAddress port asString . 
-			'--pharo'. self settings pharoSocketAddress port asString .
-			'--method'. PBPlatform current messageBrokerStrategy pythonMethodArg.
-			"'--log'"}
+	| args |
+	args := OrderedCollection new.
+	args
+		add: 'run';
+		add: 'python';
+		add: self pythonMainFile fullName;
+		add: '--port';
+		add: self settings pythonSocketAddress port asString;
+		add: '--pharo';
+		add: self settings pharoSocketAddress port asString;
+		add: '--method';
+		add: PBPlatform current messageBrokerStrategy pythonMethodArg.
+	self debugMode ifTrue: [ args add: '--log' ].
+	^ args
 ]
 
 { #category : #initialization }

src/PythonBridge/PBAbstractProcess.class.st

@@ -3,6 +3,7 @@ Class {
 	#superclass : #Object,
 	#instVars : [
 		'pythonMainFile',
+		'debugMode',
 		'settings',
 		'workingDirectory'
 	],
@@ -13,7 +14,7 @@ Class {
 PBAbstractProcess class >> application: application [
 	^ self 
 		settings: application settings 
-		workingDirectory: (PBPlatform current folderForApplication: application)
+		application: application
 ]
 
 { #category : #accessing }
@@ -23,7 +24,10 @@ PBAbstractProcess class >> platform [
 
 { #category : #accessing }
 PBAbstractProcess class >> settings: settings application: application [
-	^ self settings: settings workingDirectory: (PBPlatform current folderForApplication: application)
+	^ self 
+		settings: settings 
+		workingDirectory: (PBPlatform current folderForApplication: application)
+		debugMode: application class debugMode
 ]
 
 { #category : #accessing }
@@ -34,11 +38,30 @@ PBAbstractProcess class >> settings: settings workingDirectory: fileRef [
 		yourself
 ]
 
+{ #category : #accessing }
+PBAbstractProcess class >> settings: settings workingDirectory: fileRef debugMode: flag [
+	^ self new
+		settings: settings;
+		workingDirectory: fileRef;
+		debugMode: flag;
+		yourself
+]
+
 { #category : #hooks }
 PBAbstractProcess class >> workingDirectory [
 	^ self platform folderForApplication: PBApplication
 ]
 
+{ #category : #accessing }
+PBAbstractProcess >> debugMode [
+	^ debugMode
+]
+
+{ #category : #accessing }
+PBAbstractProcess >> debugMode: anObject [
+	debugMode := anObject
+]
+
 { #category : #accessing }
 PBAbstractProcess >> errorMessage [
 	self subclassResponsibility