WAT IF TEST

guillep · guillep · commit a3e0edcf4a33 · 2025-06-27T12:17:44.000+02:00
diff --git a/src/NewTools-MethodBrowsers/StMessageBrowser.class.st b/src/NewTools-MethodBrowsers/StMessageBrowser.class.st
@@ -512,6 +512,7 @@ StMessageBrowser >> messages [
 { #category : 'api' }
 StMessageBrowser >> messages: aCollection [
 
+	aCollection isArray ifTrue: [self haltIfTest].
 	messageList messages: aCollection.
 	self toolbarPresenter updatePresenter.
 ]

Original file line number	Diff line number	Diff line change
`@@ -512,6 +512,7 @@ StMessageBrowser >> messages [`
`512`	`512`	`{ #category : 'api' }`
`513`	`513`	`StMessageBrowser >> messages: aCollection [`
`514`	`514`
	`515`	`+ aCollection isArray ifTrue: [self haltIfTest].`
`515`	`516`	`messageList messages: aCollection.`
`516`	`517`	`self toolbarPresenter updatePresenter.`
`517`	`518`	`]`