From 6fd82215767171a7fdd12ba0c7c80f4ebf6fa0a6 Mon Sep 17 00:00:00 2001 From: CyrilFerlicot Date: Fri, 17 May 2024 16:25:36 +0200 Subject: [PATCH] Fix more deprecations --- src/Spec2-CommonWidgets/SpChooserPresenter.class.st | 7 ++----- .../SpTransmissionComponentListExample.class.st | 4 ++-- 2 files changed, 4 insertions(+), 7 deletions(-) diff --git a/src/Spec2-CommonWidgets/SpChooserPresenter.class.st b/src/Spec2-CommonWidgets/SpChooserPresenter.class.st index b9a5e8f9..abb40fc6 100644 --- a/src/Spec2-CommonWidgets/SpChooserPresenter.class.st +++ b/src/Spec2-CommonWidgets/SpChooserPresenter.class.st @@ -48,11 +48,8 @@ SpChooserPresenter class >> exampleClasses [ { #category : 'examples' } SpChooserPresenter class >> examplePackages [ - ^ (self - sourceItems: RPackageOrganizer default packages - chosenItems: - { (RPackageOrganizer default packageNamed: 'Spec2-CommonWidgets') } - displayBlock: #packageName) open + ^ (self sourceItems: self packageOrganizer packages chosenItems: { (self packageOrganizer packageNamed: 'Spec2-CommonWidgets') } displayBlock: #packageName) + open ] { #category : 'instance creation' } diff --git a/src/Spec2-Examples/SpTransmissionComponentListExample.class.st b/src/Spec2-Examples/SpTransmissionComponentListExample.class.st index 30901d5e..7e855cd3 100644 --- a/src/Spec2-Examples/SpTransmissionComponentListExample.class.st +++ b/src/Spec2-Examples/SpTransmissionComponentListExample.class.st @@ -96,9 +96,9 @@ SpTransmissionComponentListExample >> initializePresenters [ display: [ :package | package name ]; displayIcon: [ self iconNamed: #package ]; sortingBlock: [ :a :b | a name < b name ]; - items: RPackageOrganizer default packages. + items: self class packageOrganizer packages. - classesPresenter := self newComponentList. + classesPresenter := self newComponentList ] { #category : 'initialization' }