Merge pull request #1015 from Ducasse/improvingObjectTranscript

- Adding object transcript in the baseline

src/BaselineOfNewTools/BaselineOfNewTools.class.st

@@ -115,6 +115,8 @@ BaselineOfNewTools >> baseline: spec [
 
 			package: 'NewTools-ShortcutsBrowser';
 
+			package: 'NewTools-ObjectTranscript';
+
 			package: 'ColorPicker';
 			package: 'ColorPicker-Tests' with: [ spec requires: #( ColorPicker ) ].
 
@@ -195,6 +197,8 @@ BaselineOfNewTools >> baseline: spec [
 			group: 'ShortcutsBrowser' with: #( 'NewTools-ShortcutsBrowser' );
 
 			group: 'ColorPickerGroup' with: #('ColorPicker' 'ColorPicker-Tests');
+
+
 
 			group: 'default' with: #( 
 						'Playground' 

src/NewTools-ObjectTranscript/StObjectTranscriptPresenter.class.st

@@ -1,16 +1,28 @@
 "
 I'm a presenter showing StObjectTranscriptLogger log elements. 
 
+
+```
+StObjectTranscriptLogger open
+ 
+StObjectTranscriptLogger openWithLogger: StObjectTranscripLogger instance
+```
+
+To open from another presenter use the following expression
+
+```
+(self application toolNamed: #objectTranscript) open
+```
+
+
 You can show/hide the inspector and the inspector can either display the currently selected log entry or the complete list so that we can perform collection operations for complex filters
 
 
 ```
 	| cb |
 	StObjectTranscriptLogger start.
-	cb := self new.
-	cb logger: StObjectTranscriptLogger instance.
-	'this is a message only interesting from the logger domain' emit.
-	cb open.
+	cb := self open.
+	'Pharo is super nice!' emit.
 ``` 
 
 
@@ -68,6 +80,38 @@ StObjectTranscriptPresenter class >> example [
 	^ cb
 ]
 
+{ #category : 'accessing' }
+StObjectTranscriptPresenter class >> example2 [
+	"self example2"
+
+	self open. 
+	'Hello Pharo is cool,' emit.
+
+]
+
+{ #category : 'instance creation' }
+StObjectTranscriptPresenter class >> open [ 
+	"Make sure that the object transcript logger is on and open a presenter on it."
+
+	StObjectTranscriptLogger start.
+	^ self openWithLogger: StObjectTranscriptLogger instance
+]
+
+{ #category : 'instance creation' }
+StObjectTranscriptPresenter class >> openWithLogger: aLogger [
+
+	^ self new logger: aLogger; open 
+
+
+]
+
+{ #category : 'registration' }
+StObjectTranscriptPresenter class >> registerToolsOn: registry [
+
+	registry register: self as: #objectTranscript
+
+]
+
 { #category : 'settings' }
 StObjectTranscriptPresenter class >> settings: aBuilder [
 
@@ -94,27 +138,43 @@ StObjectTranscriptPresenter class >> showInspector: aBoolean [
 	ShowInspector := aBoolean
 ]
 
+{ #category : 'registration' }
+StObjectTranscriptPresenter class >> worldMenuOn: aBuilder [
+	<worldMenu>
+
+	(aBuilder item: #'Browse') 
+		parent: #Browse;
+		label: 'Object Transcript';
+		order: 5; 
+		iconName: #playground;
+		action: [ StObjectTranscriptPresenter open].	
+
+]
+
 { #category : 'actions' }
 StObjectTranscriptPresenter >> addActions [
 
 	logList 
 		addActionWith: [ :item | item
 			name: 'Toggle inspector entities';
 			iconName: #smallHelp;
-			action: [ 
-				inspectSelectedItem := inspectSelectedItem not.
-				inspectSelectedItem 
-						ifTrue: [ self inspect: logList selectedItem ]
-						ifFalse: [ self inspect: logger recordings ] ] ];
+			action: [ self hideShowInspector ] ];
 		addActionWith: [ :item | item
 			name: 'Hide/Show inspector';
 			iconName: #inspect;
 			action: [ self showInspector: showInspector not ] ];
 		addActionWith: [ :item | item
 			name: 'Flush entities';
 			iconName: #delete;
-			action: [ self flush ]]
-
+			action: [ self flush ]];
+		addActionWith: [ :item | item
+			name: 'Start logger';
+			iconName: #start;
+			action: [ self startLogger ]];
+		addActionWith: [ :item | item
+			name: 'Stop logger';
+			iconName: #stop;
+			action: [ self stopLogger ]]
 
 ]
 
@@ -153,6 +213,15 @@ StObjectTranscriptPresenter >> flush [
 	self populateItemsFrom: logger
 ]
 
+{ #category : 'actions' }
+StObjectTranscriptPresenter >> hideShowInspector [
+
+	inspectSelectedItem := inspectSelectedItem not.
+				inspectSelectedItem 
+						ifTrue: [ self inspect: logList selectedItem ]
+						ifFalse: [ self inspect: logger recordings ]
+]
+
 { #category : 'initialization' }
 StObjectTranscriptPresenter >> initialize [
 
@@ -252,6 +321,18 @@ StObjectTranscriptPresenter >> showInspector: aBoolean [
 	self layout: self defaultLayout.
 ]
 
+{ #category : 'actions' }
+StObjectTranscriptPresenter >> startLogger [
+
+	logger start
+]
+
+{ #category : 'actions' }
+StObjectTranscriptPresenter >> stopLogger [
+
+	logger stop
+]
+
 { #category : 'accessing' }
 StObjectTranscriptPresenter >> windowTitle [