[Pharo-dev] Making Seaside work in Pharo 4

[Stephan Eggermont]

In Issue 13739, build 40145 classesInTheSelectedPackage in Nautilus was 
removed. What is the correct way to replace it? WABrowser uses a
nautilus browser to show a web-based browser.
(build 609, Seaside #'release3.1' pharo4, from ci)
WABrowserTest>>testContentsNotifying
        | model |
        model := WABrowser browserClass new.
	model systemCategoryListIndex: (model systemCategoryList indexOf: 
'Seaside-Tests-Pharo-Development').
        model classListIndex: (model classList indexOf: #WABrowserTest).
	model messageCategoryListIndex: (model messageCategoryList indexOf: 
#'-- all --').
        [
                self assert:
                        (model contents: 'sampleMethod
                        ^ 1 + 1'
                        notifying: self).
                self assert: message isNil ]
                ensure: [ WABrowserTest removeSelectorSilently: #sampleMethod ]

Stephan