Reintroduce P3Client>>#verbose: now using P3LogEvent

svenvc · Sep 21, 2020 · b605a13 · b605a13
1 parent e0909b9
commit b605a13
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/P3/P3Client.class.st b/P3/P3Client.class.st
@@ -953,6 +953,17 @@ P3Client >> user: string [
 	settings at: #user put: string
 ]
 
+{ #category : #accessing }
+P3Client >> verbose: flag [
+	"Enable logging to the Transcript when flag is true.
+	Disable logging to the Transcript when flag is false.
+	Note that P3 uses object logging, with which can do much more than output plain strings."
+
+	flag
+		ifTrue: [ P3LogEvent logToTranscript ] 
+		ifFalse: [ P3LogEvent stopLoggingToTranscript ]
+]
+
 { #category : #'input/output' }
 P3Client >> writeDescribeMessage: aName type: aChar [
 	"Type $S to describe a prepared statement; or $P to describe a portal."