diff --git a/Molecule-Examples/MolMyAlarmComponentImpl.class.st b/Molecule-Examples/MolMyAlarmComponentImpl.class.st index 68f878f7..deaa0163 100644 --- a/Molecule-Examples/MolMyAlarmComponentImpl.class.st +++ b/Molecule-Examples/MolMyAlarmComponentImpl.class.st @@ -36,8 +36,6 @@ MolMyAlarmComponentImpl >> componentInitialize [ time := Time hour: 7 minute: 30 second: 0. bell := 'Ring ring'. activate := false. - - self forEvents: MolMyLocalTimeEvents useProducer: #default. ] { #category : #'life cycle' } diff --git a/Molecule-Examples/MolMyClockComponentImpl.class.st b/Molecule-Examples/MolMyClockComponentImpl.class.st index 44c0dd3e..fd42179f 100644 --- a/Molecule-Examples/MolMyClockComponentImpl.class.st +++ b/Molecule-Examples/MolMyClockComponentImpl.class.st @@ -28,9 +28,6 @@ MolMyClockComponentImpl >> componentInitialize [ useManualTime := false. timeZone := TimeZone local. delta := Time hour: 0 minute: 0 second: 0. - - self forServices: MolMyServerTimeServices useProvider: #default. - self forEvents: MolMyGlobalTimeEvents useProducer: #default. ] { #category : #'life cycle' } diff --git a/Molecule-Tests/MolComponentImplTest.class.st b/Molecule-Tests/MolComponentImplTest.class.st index 24a9d195..2d30929b 100644 --- a/Molecule-Tests/MolComponentImplTest.class.st +++ b/Molecule-Tests/MolComponentImplTest.class.st @@ -27,8 +27,8 @@ MolComponentImplTest >> testAugmentedClassToAComponentProperties [ "Component name" self assert: component componentName equals: nil. - component componentName: #default. - self assert: component componentName equals: #default. + component componentName: MolUtils defaultComponentName. + self assert: component componentName equals: MolUtils defaultComponentName. "Component connector, just test if accessors exists because componentConnector is managed on component instanciation" self assert: component componentConnector equals: nil. @@ -153,17 +153,17 @@ MolComponentImplTest >> testEventsSubscribers [ "Test initial events producer contents : default component name" self assert: component eventsSubscribers size equals: 1. - self assert: (component eventsSubscribers at: MolUsedEvents) equals: #default. + self assert: (component eventsSubscribers at: MolUsedEvents) equals: MolUtils defaultComponentName. MolUtils activateComponent: MolCompleteComponentImpl named: #myComponentA. self assert: component eventsSubscribers size equals: 1. - self assert: (component eventsSubscribers at: MolUsedEvents) equals: #default. + self assert: (component eventsSubscribers at: MolUsedEvents) equals: MolUtils defaultComponentName. MolUtils passivateComponent: MolCompleteComponentImpl named: #myComponentA. self assert: component eventsSubscribers size equals: 1. - self assert: (component eventsSubscribers at: MolUsedEvents) equals: #default. + self assert: (component eventsSubscribers at: MolUsedEvents) equals: MolUtils defaultComponentName. MolUtils removeComponent: MolCompleteComponentImpl named: #myComponentA. @@ -201,7 +201,7 @@ MolComponentImplTest >> testForEventsAddProducer [ self assert: component eventsSubscribers size equals: 1. self assert: (component eventsSubscribers at: MolUsedEvents) equals: #(#default #producerA #producerB). - component forEvents: MolUsedEvents addProducer: #default. + component forEvents: MolUsedEvents addProducer: MolUtils defaultComponentName. self assert: component eventsSubscribers size equals: 1. self assert: (component eventsSubscribers at: MolUsedEvents) equals: #(#default #producerA #producerB). ] @@ -216,7 +216,7 @@ MolComponentImplTest >> testForEventsRemoveAllProducers [ component forEvents: MolUsedEvents removeAllProducers: #(#producerA #producerB #producerC #producerD #producerE #producerF). self assert: component eventsSubscribers size equals: 1. - self assert: (component eventsSubscribers at: MolUsedEvents) equals: #default. + self assert: (component eventsSubscribers at: MolUsedEvents) equals: MolUtils defaultComponentName. component forEvents: MolUsedEvents addAllProducers: #(#producerA #producerB #producerC). component forEvents: MolUsedEvents removeAllProducers: #(#producerA). @@ -256,7 +256,7 @@ MolComponentImplTest >> testForEventsRemoveProducer2 [ | component | component := MolCompleteComponentImpl start: #myComponentA. - component forEvents: MolUsedEvents removeProducer: #default. + component forEvents: MolUsedEvents removeProducer: MolUtils defaultComponentName. self assert: component eventsSubscribers size equals: 1. self assert: (component eventsSubscribers at: MolUsedEvents) equals: nil. ] @@ -307,9 +307,9 @@ MolComponentImplTest >> testForEventsUseProducer [ self assert: component eventsSubscribers size equals: 1. self assert: (component eventsSubscribers at: MolUsedEvents) equals: nil. - component forEvents: MolUsedEvents useProducer: #default. + component forEvents: MolUsedEvents useProducer: MolUtils defaultComponentName. self assert: component eventsSubscribers size equals: 1. - self assert: (component eventsSubscribers at: MolUsedEvents) equals: #default. + self assert: (component eventsSubscribers at: MolUsedEvents) equals: MolUtils defaultComponentName. ] { #category : #'test - connecting - events producers' } @@ -537,17 +537,17 @@ MolComponentImplTest >> testParametersProviders [ "Test initial events producer contents : default component name" self assert: component parametersProviders size equals: 1. - self assert: (component parametersProviders at: MolUsedParameters) equals: #default. + self assert: (component parametersProviders at: MolUsedParameters) equals: MolUtils defaultComponentName. MolUtils activateComponent: MolCompleteComponentImpl named: #myComponentA. self assert: component parametersProviders size equals: 1. - self assert: (component parametersProviders at: MolUsedParameters) equals: #default. + self assert: (component parametersProviders at: MolUsedParameters) equals: MolUtils defaultComponentName. MolUtils passivateComponent: MolCompleteComponentImpl named: #myComponentA. self assert: component parametersProviders size equals: 1. - self assert: (component parametersProviders at: MolUsedParameters) equals: #default. + self assert: (component parametersProviders at: MolUsedParameters) equals: MolUtils defaultComponentName. MolUtils removeComponent: MolCompleteComponentImpl named: #myComponentA. @@ -567,17 +567,17 @@ MolComponentImplTest >> testServicesProviders [ "Test initial events producer contents : default component name" self assert: component servicesProviders size equals: 1. - self assert: (component servicesProviders at: MolUsedServices) equals: #default. + self assert: (component servicesProviders at: MolUsedServices) equals: MolUtils defaultComponentName. MolUtils activateComponent: MolCompleteComponentImpl named: #myComponentA. self assert: component servicesProviders size equals: 1. - self assert: (component servicesProviders at: MolUsedServices) equals: #default. + self assert: (component servicesProviders at: MolUsedServices) equals: MolUtils defaultComponentName. MolUtils passivateComponent: MolCompleteComponentImpl named: #myComponentA. self assert: component servicesProviders size equals: 1. - self assert: (component servicesProviders at: MolUsedServices) equals: #default. + self assert: (component servicesProviders at: MolUsedServices) equals: MolUtils defaultComponentName. MolUtils removeComponent: MolCompleteComponentImpl named: #myComponentA. @@ -602,7 +602,7 @@ MolComponentImplTest >> testStart2 [ component := MolCompleteComponentImpl start. self assert: (MolUtils instanceOf: MolCompleteComponentImpl) notNil. self assert: component isComponent. - self assert: component componentName equals: #default. + self assert: component componentName equals: MolUtils defaultComponentName. component := MolCompleteComponentImpl start: #compA. self assert: (MolUtils instanceOf: MolCompleteComponentImpl named: #compA) notNil. diff --git a/Molecule-Tests/MolEventSubscriberTest.class.st b/Molecule-Tests/MolEventSubscriberTest.class.st index bf5a6fd1..f51ae78d 100644 --- a/Molecule-Tests/MolEventSubscriberTest.class.st +++ b/Molecule-Tests/MolEventSubscriberTest.class.st @@ -33,7 +33,7 @@ MolEventSubscriberTest >> testAddOriginator [ eventSubscriber addOriginator: nil. self assert: eventSubscriber originators isEmpty. - eventSubscriber addOriginator: #default. + eventSubscriber addOriginator: MolUtils defaultComponentName. self assert: eventSubscriber originators isEmpty. eventSubscriber addOriginator: component. @@ -51,7 +51,7 @@ MolEventSubscriberTest >> testAddOriginators [ componentB := MolCompleteComponentImpl new componentName: #compB. eventSubscriber := MolEventSubscriber new. - eventSubscriber addOriginators: (OrderedCollection with: #default with: nil). + eventSubscriber addOriginators: (OrderedCollection with: MolUtils defaultComponentName with: nil). self assert: eventSubscriber originators isEmpty. eventSubscriber addOriginators: (OrderedCollection with: componentA with: componentB). @@ -107,7 +107,7 @@ MolEventSubscriberTest >> testIncludesOriginator [ eventSubscriber := MolEventSubscriber events: componentEvents originators: subscribers. self assert: (eventSubscriber includesOriginator: nil) equals: false. - self assert: (eventSubscriber includesOriginator: #default) equals: false. + self assert: (eventSubscriber includesOriginator: MolUtils defaultComponentName) equals: false. self assert: (eventSubscriber includesOriginator: component). ] @@ -181,7 +181,7 @@ MolEventSubscriberTest >> testRelease [ | subscribers componentEvents eventSubscriber | subscribers := OrderedCollection new. componentEvents := MolUsedChildEvents. - subscribers := OrderedCollection with: #default. + subscribers := OrderedCollection with: MolUtils defaultComponentName. eventSubscriber := MolEventSubscriber events: componentEvents originators: subscribers. eventSubscriber release. @@ -201,25 +201,25 @@ MolEventSubscriberTest >> testSubscribe [ self assert: eventSubscriber observersConnection isEmpty. self assert: eventSubscriber originators size equals: 1. self assert: eventSubscriber originators first equals: component. - self assert: (eventSubscriber originatorsLinks at: #default) equals: component. + self assert: (eventSubscriber originatorsLinks at: MolUtils defaultComponentName) equals: component. eventSubscriber subscribe: component. self assert: (component isSubscribed: MolUsedEvents) equals: true. self assert: (eventSubscriber observersConnection includesKey: component). self assert: (eventSubscriber observersConnection at: component) size equals: 1. - self assert: ((eventSubscriber observersConnection at: component) includes: #default). + self assert: ((eventSubscriber observersConnection at: component) includes: MolUtils defaultComponentName). self assert: eventSubscriber originators size equals: 1. self assert: eventSubscriber originators first equals: component. - self assert: (eventSubscriber originatorsLinks at: #default) equals: component. + self assert: (eventSubscriber originatorsLinks at: MolUtils defaultComponentName) equals: component. eventSubscriber subscribe: component. self assert: (component isSubscribed: MolUsedEvents) equals: true. self assert: (eventSubscriber observersConnection includesKey: component). self assert: (eventSubscriber observersConnection at: component) size equals: 1. - self assert: ((eventSubscriber observersConnection at: component) includes: #default). + self assert: ((eventSubscriber observersConnection at: component) includes: MolUtils defaultComponentName). self assert: eventSubscriber originators size equals: 1. self assert: eventSubscriber originators first equals: component. - self assert: (eventSubscriber originatorsLinks at: #default) equals: component. + self assert: (eventSubscriber originatorsLinks at: MolUtils defaultComponentName) equals: component. ] @@ -264,14 +264,14 @@ MolEventSubscriberTest >> testUnsubscribe [ self assert: eventSubscriber observersConnection isEmpty. self assert: eventSubscriber originators size equals: 1. self assert: eventSubscriber originators first equals: component. - self assert: (eventSubscriber originatorsLinks at: #default) equals: component. + self assert: (eventSubscriber originatorsLinks at: MolUtils defaultComponentName) equals: component. eventSubscriber unsubscribe: component. self assert: (component isSubscribed: MolUsedEvents) equals: false. self assert: eventSubscriber observersConnection isEmpty. self assert: eventSubscriber originators size equals: 1. self assert: eventSubscriber originators first equals: component. - self assert: (eventSubscriber originatorsLinks at: #default) equals: component. + self assert: (eventSubscriber originatorsLinks at: MolUtils defaultComponentName) equals: component. ] { #category : #test } diff --git a/Molecule-Tests/MolHomeServicesTest.class.st b/Molecule-Tests/MolHomeServicesTest.class.st index aa20b4a1..d1f1e1d1 100644 --- a/Molecule-Tests/MolHomeServicesTest.class.st +++ b/Molecule-Tests/MolHomeServicesTest.class.st @@ -37,7 +37,7 @@ MolHomeServicesTest >> testActivateComponent [ component := manager homeServices instanciateComponent: MolCompleteComponentImpl. manager homeServices activateComponent: MolCompleteComponentImpl. - self assert: component componentName equals: #default. + self assert: component componentName equals: MolUtils defaultComponentName. self assert: (component componentConnector isKindOf: MolComponentConnector). self assert: component eventsNotifiers notEmpty. self assert: component eventsSubscribers notEmpty. @@ -54,16 +54,16 @@ MolHomeServicesTest >> testActivateComponentAugmentedClass [ component := manager homeServices instanciateComponent: MolAugmentedClassToAComponent. manager homeServices activateComponent: MolAugmentedClassToAComponent. - self assert: component componentName equals: #default. + self assert: component componentName equals: MolUtils defaultComponentName. self assert: (component componentConnector isKindOf: MolComponentConnector). self assert: component eventsNotifiers notEmpty. self assert: component eventsSubscribers notEmpty. self assert: component parametersProviders notEmpty. self assert: component servicesProviders notEmpty. - component forServices: MolServicesTest useProvider: #default. - component forEvents: MolEventsTest useProducer: #default. - component forParameters: MolParametersTest useProvider: #default. + component forServices: MolServicesTest useProvider: MolUtils defaultComponentName. + component forEvents: MolEventsTest useProducer: MolUtils defaultComponentName. + component forParameters: MolParametersTest useProvider: MolUtils defaultComponentName. ] { #category : #tests } @@ -91,7 +91,7 @@ MolHomeServicesTest >> testInstanciateComponent [ manager deploymentServices deployComponentImplementation: MolCompleteComponentImpl. component := manager homeServices instanciateComponent: MolCompleteComponentImpl. - self assert: component componentName equals: #default. + self assert: component componentName equals: MolUtils defaultComponentName. self assert: (component componentConnector isKindOf: MolComponentConnector). self assert: component eventsNotifiers notEmpty. self assert: component eventsSubscribers notEmpty. @@ -212,7 +212,7 @@ MolHomeServicesTest >> testPassivateComponent [ manager homeServices activateComponent: MolCompleteComponentImpl. manager homeServices passivateComponent: MolCompleteComponentImpl. - self assert: component componentName equals: #default. + self assert: component componentName equals: MolUtils defaultComponentName. self assert: (component componentConnector isKindOf: MolComponentConnector). self assert: component eventsNotifiers notEmpty. self assert: component eventsSubscribers notEmpty. diff --git a/Molecule-Tests/MolLocatorServicesTest.class.st b/Molecule-Tests/MolLocatorServicesTest.class.st index abc66617..b5da4442 100644 --- a/Molecule-Tests/MolLocatorServicesTest.class.st +++ b/Molecule-Tests/MolLocatorServicesTest.class.st @@ -92,12 +92,12 @@ MolLocatorServicesTest >> testSearchComponentTypeImplementorFor [ MolLocatorServicesTest >> testSearchComponentTypeImplementorForNamed [ | manager component myComponent | manager := MolComponentManager default. - component := manager locatorServices searchComponentTypeImplementorFor: MolCompleteComponent named: #default. + component := manager locatorServices searchComponentTypeImplementorFor: MolCompleteComponent. self assert: component isNil. manager deploymentServices deployComponentImplementation: MolCompleteComponentImpl. myComponent := manager homeServices instanciateComponent: MolCompleteComponentImpl. - component := manager locatorServices searchComponentTypeImplementorFor: MolCompleteComponent named: #default. + component := manager locatorServices searchComponentTypeImplementorFor: MolCompleteComponent. self assert: component notNil. self assert: component identicalTo: myComponent. @@ -122,7 +122,7 @@ MolLocatorServicesTest >> testSearchEventsSubscriberForNamed [ | eventSubscriber component | component := MolUtils startComponent: MolCompleteComponentImpl. - eventSubscriber := MolComponentManager default locatorServices searchEventsSubscriberFor: MolUsedEvents named: #default. + eventSubscriber := MolComponentManager default locatorServices searchEventsSubscriberFor: MolUsedEvents. self assert: eventSubscriber isNotFoundEventsSubscriber not. self assert: (eventSubscriber isKindOf: MolEventSubscriber). @@ -151,7 +151,7 @@ MolLocatorServicesTest >> testSearchParametersProviderForNamed [ manager := MolComponentManager default. manager deploymentServices deployComponentImplementation: MolCompleteComponentImpl. manager homeServices instanciateComponent: MolCompleteComponentImpl. - parametersProvider := manager locatorServices searchParametersProviderFor: MolUsedParameters named: #default. + parametersProvider := manager locatorServices searchParametersProviderFor: MolUsedParameters. self assert: parametersProvider isNotFoundParameters not. self assert: (parametersProvider isKindOf: MolCompleteComponentImpl). @@ -177,7 +177,7 @@ MolLocatorServicesTest >> testSearchServicesProviderForNamed [ manager := MolComponentManager default. manager deploymentServices deployComponentImplementation: MolCompleteComponentImpl. manager homeServices instanciateComponent: MolCompleteComponentImpl. - servicesProvider := manager locatorServices searchServicesProviderFor: MolUsedServices named: #default. + servicesProvider := manager locatorServices searchServicesProviderFor: MolUsedServices. self assert: servicesProvider isNotFoundServices not. self assert: (servicesProvider isKindOf: MolCompleteComponentImpl). diff --git a/Molecule-Tests/MolServicesTest.class.st b/Molecule-Tests/MolServicesTest.class.st index 20b93614..676e11c1 100644 --- a/Molecule-Tests/MolServicesTest.class.st +++ b/Molecule-Tests/MolServicesTest.class.st @@ -140,9 +140,7 @@ MolServicesTest >> testTableProvideServicesToSeveralUsers [ user1 := manager homeServices instanciateComponent: MolMyUserComponentImpl named: #user1. user2 := manager homeServices instanciateComponent: MolMyUserComponentImpl named: #user2. - "Subscriptions" - user1 forServices: MolMyTableServices useProvider: #default. - user2 forServices: MolMyTableServices useProvider: #default. + "Auto subscriptions, because of using default component name" "Activation" manager homeServices activateComponent: MolMyTableComponentImpl. diff --git a/Molecule/MolComponentConnector.class.st b/Molecule/MolComponentConnector.class.st index 4f80d834..d5a732ee 100644 --- a/Molecule/MolComponentConnector.class.st +++ b/Molecule/MolComponentConnector.class.st @@ -56,9 +56,9 @@ MolComponentConnector >> connectComponent: aComponent [ parametersProviders := self class defaultParametersProviders. aComponent class allProducedEvents do: [ :evt | eventsNotifiers at: evt put: (MolEventNotifier interface: evt originator: aComponent)]. - aComponent class allUsedServices do: [ :svc | servicesProviders at: svc put: #default]. - aComponent class allConsumedEvents do: [ :evt | eventsSubscribers at: evt put: #default]. - aComponent class allUsedParameters do: [ :svc | parametersProviders at: svc put: #default]. + aComponent class allUsedServices do: [ :svc | servicesProviders at: svc put: MolUtils defaultComponentName]. + aComponent class allConsumedEvents do: [ :evt | eventsSubscribers at: evt put: MolUtils defaultComponentName]. + aComponent class allUsedParameters do: [ :svc | parametersProviders at: svc put: MolUtils defaultComponentName]. ] diff --git a/Molecule/MolHomeServices.class.st b/Molecule/MolHomeServices.class.st index 519b6f28..cd2119fe 100644 --- a/Molecule/MolHomeServices.class.st +++ b/Molecule/MolHomeServices.class.st @@ -28,7 +28,8 @@ MolHomeServices >> activateAllComponents [ { #category : #'life cycle' } MolHomeServices >> activateComponent: aComponentClass [ - ^ self activateComponent: aComponentClass named: #default + + ^ self activateComponent: aComponentClass named: MolUtils defaultComponentName ] { #category : #'life cycle' } @@ -143,7 +144,8 @@ MolHomeServices >> instanciateAllComponents [ { #category : #'life cycle' } MolHomeServices >> instanciateComponent: aComponentClass [ - ^ self instanciateComponent: aComponentClass named: #default + + ^ self instanciateComponent: aComponentClass named: MolUtils defaultComponentName ] { #category : #'life cycle' } @@ -180,7 +182,8 @@ MolHomeServices >> isDeployedComponent: aComponentClass [ { #category : #testing } MolHomeServices >> isWaitingForActivation: aComponentClass [ - ^ self isWaitingForActivation: aComponentClass named: #default + + ^ self isWaitingForActivation: aComponentClass named: MolUtils defaultComponentName ] { #category : #testing } @@ -204,7 +207,8 @@ MolHomeServices >> passivateAllComponents [ { #category : #'life cycle' } MolHomeServices >> passivateComponent: aComponentClass [ - ^ self passivateComponent: aComponentClass named: #default + + ^ self passivateComponent: aComponentClass named: MolUtils defaultComponentName ] { #category : #'life cycle' } @@ -254,7 +258,8 @@ MolHomeServices >> removeAllComponents [ { #category : #'life cycle' } MolHomeServices >> removeComponent: aComponentClass [ - ^self removeComponent: aComponentClass named: #default + + ^ self removeComponent: aComponentClass named: MolUtils defaultComponentName ] { #category : #'life cycle' } diff --git a/Molecule/MolLocatorServices.class.st b/Molecule/MolLocatorServices.class.st index f866b921..376084a2 100644 --- a/Molecule/MolLocatorServices.class.st +++ b/Molecule/MolLocatorServices.class.st @@ -46,7 +46,8 @@ MolLocatorServices >> resolveWaitingSubscriptions: aComponent [ { #category : #searching } MolLocatorServices >> searchComponentTypeImplementorFor: aComponentType [ - ^self searchComponentTypeImplementorFor: aComponentType named: #default + + ^ self searchComponentTypeImplementorFor: aComponentType named: MolUtils defaultComponentName ] { #category : #searching } @@ -63,7 +64,8 @@ MolLocatorServices >> searchComponentTypeImplementorFor: aComponentType named: a { #category : #searching } MolLocatorServices >> searchEventsSubscriberFor: anEventsTrait [ - ^self searchEventsSubscriberFor: anEventsTrait named: #default + + ^ self searchEventsSubscriberFor: anEventsTrait named: MolUtils defaultComponentName ] { #category : #searching } @@ -99,7 +101,8 @@ MolLocatorServices >> searchEventsSubscriberFor: anEventsTrait named: aSymbolOrA { #category : #searching } MolLocatorServices >> searchParametersProviderFor: aParametersTrait [ - ^self searchParametersProviderFor: aParametersTrait named: #default + + ^ self searchParametersProviderFor: aParametersTrait named: MolUtils defaultComponentName ] { #category : #searching } @@ -118,7 +121,8 @@ MolLocatorServices >> searchParametersProviderFor: aParametersTrait named: aSymb { #category : #searching } MolLocatorServices >> searchServicesProviderFor: aServicesTrait [ - ^self searchServicesProviderFor: aServicesTrait named: #default + + ^ self searchServicesProviderFor: aServicesTrait named: MolUtils defaultComponentName ] { #category : #searching } diff --git a/Molecule/MolUtils.class.st b/Molecule/MolUtils.class.st index e66da944..997008d6 100644 --- a/Molecule/MolUtils.class.st +++ b/Molecule/MolUtils.class.st @@ -78,6 +78,13 @@ MolUtils class >> createAllComponents [ components keysDo: [ :aClass | homeServices activateComponent: aClass ] ] +{ #category : #accessing } +MolUtils class >> defaultComponentName [ + "Used when a component instanciation is not nammed" + + ^ #default +] + { #category : #'quick lifecycle' } MolUtils class >> deployAndInitializeComponent: aComponentClass named: aName [ "auto deploy, and instanciate quickly a component and return the instance" @@ -108,7 +115,8 @@ MolUtils class >> deployAndInitializeComponents: aComponentClassList [ { #category : #accessing } MolUtils class >> instanceKindOf: aClass [ - ^self instanceKindOf: aClass named: #default + + ^ self instanceKindOf: aClass named: self defaultComponentName ] { #category : #accessing } @@ -124,7 +132,8 @@ MolUtils class >> instanceKindOf: aClass named: aName [ { #category : #accessing } MolUtils class >> instanceOf: aClass [ - ^ self instanceOf: aClass named: #default + + ^ self instanceOf: aClass named: self defaultComponentName ] { #category : #accessing } @@ -142,7 +151,8 @@ MolUtils class >> isComponentOrComponentClass: anObject [ { #category : #testing } MolUtils class >> isInstanciateComponentOf: aClass [ - ^ self isInstanciateComponentOf: aClass named: #default + + ^ self isInstanciateComponentOf: aClass named: self defaultComponentName ] { #category : #testing } @@ -251,7 +261,7 @@ MolUtils class >> showInformation: aString [ MolUtils class >> startComponent: aComponentClass [ "deploy, initialize and activate quickly a component and return the instance" - ^ self startComponent: aComponentClass named: #default + ^ self startComponent: aComponentClass named: self defaultComponentName ] { #category : #'quick start and stop' } @@ -280,7 +290,7 @@ MolUtils class >> startComponents: aComponentClassList [ MolUtils class >> stopComponent: aComponentClass [ "passivate, remove and undeploy quickly a component" - ^ self stopComponent: aComponentClass named: #default + ^ self stopComponent: aComponentClass named: self defaultComponentName ] { #category : #'quick start and stop' }