WAT definitivo

Author: guillep

src/NewTools-MethodBrowsers-Tests/StMessageBrowserTest.class.st

@@ -21,6 +21,7 @@ StMessageBrowserTest >> setUp [
 StMessageBrowserTest >> tearDown [
 
 	StMBTestClass2 removeSelector: #aSelectorWithASingleMethodImplementation.
+	1halt.
 	StMBTestClass compile: 'aSelectorWithASingleMethodImplementation
 
 	^ self'.
@@ -117,6 +118,7 @@ StMessageBrowserTest >> testAskingSendersOfASelectorShouldRespectSelectedScope [
 { #category : 'tests - compiling' }
 StMessageBrowserTest >> testCompilingMethodElseWhereChangeTheText [
 
+1halt.
 	messageBrowser := StMessageBrowser browseImplementorsOf: #aSelectorWithASingleMethodImplementation.
 
 	self assert: messageBrowser presenter textPresenter text equals: (StMBTestClass >> #aSelectorWithASingleMethodImplementation) sourceCode.
@@ -174,6 +176,7 @@ StMessageBrowserTest >> testOpeningImplementorsAndChangingScopeShowsCorrectTitle
 { #category : 'tests - title' }
 StMessageBrowserTest >> testOpeningImplementorsShowsCorrectTitle [
 
+1halt.
 	messageBrowser := StMessageBrowser browseImplementorsOf: #aSelectorWithASingleMethodImplementation.
 
 	self assert: messageBrowser title equals: 'Implementors of #aSelectorWithASingleMethodImplementation [1]'

src/NewTools-MethodBrowsers/StMessageBrowser.class.st

@@ -205,6 +205,11 @@ StMessageBrowser class >> browseSendersOf: aSymbol inScope: aScope [
 	^ self browse: aSymbol senders asSendersOf: aSymbol inScope: aScope
 ]
 
+{ #category : 'instance creation' }
+StMessageBrowser class >> on: aClyNavigationEnvironment systemScope: aClySystemEnvironmentScope [ 
+	self shouldBeImplemented.
+]
+
 { #category : 'instance creation - old' }
 StMessageBrowser class >> openMessageList: messageList name: aString autoSelect: aSelector refreshingBlockSelector: aRefreshingBlockSelector [
 
@@ -506,12 +511,15 @@ StMessageBrowser >> intervalOf: aSelector inCommentText: aText [
 
 { #category : 'api' }
 StMessageBrowser >> messages [
+
 	^ messageList messages
 ]
 
 { #category : 'api' }
 StMessageBrowser >> messages: aCollection [
 
+	aCollection isArray ifTrue: [
+		thisContext shortStack traceCr ].
 	messageList messages: aCollection.
 	self toolbarPresenter updatePresenter.
 ]

src/NewTools-MethodBrowsers/StMessageListPresenter.class.st

@@ -277,6 +277,7 @@ StMessageListPresenter >> messages [
 StMessageListPresenter >> messages: aCollection [
 
 	self cacheHierarchyForClasses: aCollection.
+	1haltOnce.
 	listPresenter items: cachedHierarchy keys asOrderedCollection.
 	allMessages := listPresenter items.
 	listPresenter listSize > 0 ifTrue: [