diff --git a/src/Spec2-Commands/SpBrowseInstancesCommand.class.st b/src/Spec2-Commands/SpBrowseInstancesCommand.class.st index d3b880b0..7dcb08f5 100644 --- a/src/Spec2-Commands/SpBrowseInstancesCommand.class.st +++ b/src/Spec2-Commands/SpBrowseInstancesCommand.class.st @@ -23,5 +23,5 @@ SpBrowseInstancesCommand class >> shortName [ { #category : 'executing' } SpBrowseInstancesCommand >> execute [ - self target instanceSide inspectAllInstances + self target instanceSide allInstances inspect ] diff --git a/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st b/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st index 316e2ce6..b70ecd77 100644 --- a/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st +++ b/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st @@ -23,5 +23,5 @@ SpBrowseSubInstancesCommand class >> shortName [ { #category : 'executing' } SpBrowseSubInstancesCommand >> execute [ - self target instanceSide inspectSubInstances + self target instanceSide allSubInstances inspect ] diff --git a/src/Spec2-ListView/SpListViewPresenter.class.st b/src/Spec2-ListView/SpListViewPresenter.class.st index 5823dd83..4d4a4787 100644 --- a/src/Spec2-ListView/SpListViewPresenter.class.st +++ b/src/Spec2-ListView/SpListViewPresenter.class.st @@ -143,8 +143,10 @@ SpListViewPresenter class >> exampleWithIconsAndMorph [ It shows also the fact you can put any presenter inside, giving a huge power to your lists." + | application | + application := SpApplication new useBackend: #Gtk. ^ self new - application: (SpApplication new useBackend: #Gtk); + application: application; items: self environment allClasses; setup: [ :aPresenter | | presenter morph | @@ -157,7 +159,7 @@ SpListViewPresenter class >> exampleWithIconsAndMorph [ morph: ((morph := SimpleButtonMorph new) color: Color blue; target: [ - self inform: 'Clicked: ', morph label ]; + application inform: 'Clicked: ', morph label ]; actionSelector: #value; yourself); yourself);