diff --git a/src/BaselineOfSpec2/BaselineOfSpec2.class.st b/src/BaselineOfSpec2/BaselineOfSpec2.class.st index 9f6fcba58..c563596ca 100644 --- a/src/BaselineOfSpec2/BaselineOfSpec2.class.st +++ b/src/BaselineOfSpec2/BaselineOfSpec2.class.st @@ -1,10 +1,11 @@ Class { - #name : #BaselineOfSpec2, - #superclass : #BaselineOf, - #category : #BaselineOfSpec2 + #name : 'BaselineOfSpec2', + #superclass : 'BaselineOf', + #category : 'BaselineOfSpec2', + #package : 'BaselineOfSpec2' } -{ #category : #baseline } +{ #category : 'baseline' } BaselineOfSpec2 >> baseline: spec [ @@ -49,7 +50,7 @@ BaselineOfSpec2 >> baseline: spec [ spec group: 'default' with: #('Base' 'Tests' 'Code' 'CodeTests'). ] -{ #category : #'external projects' } +{ #category : 'external projects' } BaselineOfSpec2 >> defaultRepositoryURL [ ^ self class environment @@ -58,7 +59,7 @@ BaselineOfSpec2 >> defaultRepositoryURL [ ifAbsent: [ 'github://pharo-spec/Spec' ] ] -{ #category : #'external projects' } +{ #category : 'external projects' } BaselineOfSpec2 >> packageRepository [ " Tries to determine a repository from which the baseline is being loaded. Useful for @@ -73,7 +74,7 @@ BaselineOfSpec2 >> packageRepository [ ifEmpty: [ nil ] ] -{ #category : #accessing } +{ #category : 'accessing' } BaselineOfSpec2 >> project [ "Atomic loading is needed for Spec because we are moving classes of package and it breaks their subclasses. @@ -99,7 +100,7 @@ We need to use atomic loading only during update of existing Spec upgrade" ] -{ #category : #'external projects' } +{ #category : 'external projects' } BaselineOfSpec2 >> specCore: spec [ spec baseline: 'SpecCore' with: [ @@ -108,7 +109,7 @@ BaselineOfSpec2 >> specCore: spec [ loads: #('Base' 'Tests') ] ] -{ #category : #'external projects' } +{ #category : 'external projects' } BaselineOfSpec2 >> specCoreCode: spec [ spec baseline: 'SpecCoreCode' with: [ diff --git a/src/BaselineOfSpec2/package.st b/src/BaselineOfSpec2/package.st index 9d95f050e..84aa79ca0 100644 --- a/src/BaselineOfSpec2/package.st +++ b/src/BaselineOfSpec2/package.st @@ -1 +1 @@ -Package { #name : #BaselineOfSpec2 } +Package { #name : 'BaselineOfSpec2' } diff --git a/src/BaselineOfSpecCore/BaselineOfSpecCore.class.st b/src/BaselineOfSpecCore/BaselineOfSpecCore.class.st index 26ebc1543..8f43df406 100644 --- a/src/BaselineOfSpecCore/BaselineOfSpecCore.class.st +++ b/src/BaselineOfSpecCore/BaselineOfSpecCore.class.st @@ -1,10 +1,11 @@ Class { - #name : #BaselineOfSpecCore, - #superclass : #BaselineOf, - #category : #BaselineOfSpecCore + #name : 'BaselineOfSpecCore', + #superclass : 'BaselineOf', + #category : 'BaselineOfSpecCore', + #package : 'BaselineOfSpecCore' } -{ #category : #baseline } +{ #category : 'baseline' } BaselineOfSpecCore >> baseline: spec [ @@ -64,14 +65,14 @@ BaselineOfSpecCore >> baseline: spec [ spec group: 'default' with: #('Base' 'BaseTests' 'Code' 'CodeTests'). ] -{ #category : #'external projects' } +{ #category : 'external projects' } BaselineOfSpecCore >> pillar: spec [ spec baseline: 'PillarCore' with: [ spec repository: 'github://pillar-markup/pillar:dev-8/src' ] ] -{ #category : #accessing } +{ #category : 'accessing' } BaselineOfSpecCore >> project [ "Atomic loading is needed for Spec because we are moving classes of package and it breaks their subclasses. diff --git a/src/BaselineOfSpecCore/package.st b/src/BaselineOfSpecCore/package.st index 9425ac122..1e583c515 100644 --- a/src/BaselineOfSpecCore/package.st +++ b/src/BaselineOfSpecCore/package.st @@ -1 +1 @@ -Package { #name : #BaselineOfSpecCore } +Package { #name : 'BaselineOfSpecCore' } diff --git a/src/Spec2-Adapters-Morphic-Tests/SpApplicationTest.extension.st b/src/Spec2-Adapters-Morphic-Tests/SpApplicationTest.extension.st index e2731a57d..dcb88d0a1 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpApplicationTest.extension.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpApplicationTest.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SpApplicationTest } +Extension { #name : 'SpApplicationTest' } -{ #category : #'*Spec2-Adapters-Morphic-Tests' } +{ #category : '*Spec2-Adapters-Morphic-Tests' } SpApplicationTest >> testAdapterBindings [ self assert: application adapterBindings class equals: SpStubAdapterBindings. diff --git a/src/Spec2-Adapters-Morphic-Tests/SpDrawStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpDrawStyleTest.class.st index a404fd62a..6557fc2b4 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpDrawStyleTest.class.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpDrawStyleTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #SpDrawStyleTest, - #superclass : #TestCase, - #category : #'Spec2-Adapters-Morphic-Tests' + #name : 'SpDrawStyleTest', + #superclass : 'TestCase', + #category : 'Spec2-Adapters-Morphic-Tests', + #package : 'Spec2-Adapters-Morphic-Tests' } -{ #category : #tests } +{ #category : 'tests' } SpDrawStyleTest >> testToColor [ | style | diff --git a/src/Spec2-Adapters-Morphic-Tests/SpFontStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpFontStyleTest.class.st index 5758b2ec7..056e06641 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpFontStyleTest.class.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpFontStyleTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #SpFontStyleTest, - #superclass : #TestCase, - #category : #'Spec2-Adapters-Morphic-Tests' + #name : 'SpFontStyleTest', + #superclass : 'TestCase', + #category : 'Spec2-Adapters-Morphic-Tests', + #package : 'Spec2-Adapters-Morphic-Tests' } -{ #category : #tests } +{ #category : 'tests' } SpFontStyleTest >> testResetFont [ | styleSheet app presenter font | diff --git a/src/Spec2-Adapters-Morphic-Tests/SpMergeStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpMergeStyleTest.class.st index f0c517150..ee5a645eb 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpMergeStyleTest.class.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpMergeStyleTest.class.st @@ -1,15 +1,16 @@ Class { - #name : #SpMergeStyleTest, - #superclass : #TestCase, + #name : 'SpMergeStyleTest', + #superclass : 'TestCase', #instVars : [ 'result', 'left', 'right' ], - #category : #'Spec2-Adapters-Morphic-Tests' + #category : 'Spec2-Adapters-Morphic-Tests', + #package : 'Spec2-Adapters-Morphic-Tests' } -{ #category : #running } +{ #category : 'running' } SpMergeStyleTest >> setUp [ super setUp. @@ -32,7 +33,7 @@ SpMergeStyleTest >> setUp [ ] -{ #category : #tests } +{ #category : 'tests' } SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasClassInBothSides [ result := (left mergeWith: right) flattenClasses. @@ -42,7 +43,7 @@ SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasClassInBothSides [ ] -{ #category : #tests } +{ #category : 'tests' } SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasCorrectNumberOfEntries [ result := (left mergeWith: right) flattenClasses. @@ -51,7 +52,7 @@ SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasCorrectNumberOfEntries ] -{ #category : #tests } +{ #category : 'tests' } SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasLeftOnlyClass [ result := (left mergeWith: right) flattenClasses. @@ -60,7 +61,7 @@ SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasLeftOnlyClass [ ] -{ #category : #tests } +{ #category : 'tests' } SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasRightOnlyClass [ result := (left mergeWith: right) flattenClasses. @@ -69,7 +70,7 @@ SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasRightOnlyClass [ ] -{ #category : #tests } +{ #category : 'tests' } SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasThePropertiesCorrectInCommonClass [ | innerClass | diff --git a/src/Spec2-Adapters-Morphic-Tests/SpMorphStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpMorphStyleTest.class.st index 314f68db9..09a9c9225 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpMorphStyleTest.class.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpMorphStyleTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #SpMorphStyleTest, - #superclass : #TestCase, - #category : #'Spec2-Adapters-Morphic-Tests' + #name : 'SpMorphStyleTest', + #superclass : 'TestCase', + #category : 'Spec2-Adapters-Morphic-Tests', + #package : 'Spec2-Adapters-Morphic-Tests' } -{ #category : #private } +{ #category : 'private' } SpMorphStyleTest >> newLookup: aString [ | rootClass | @@ -12,7 +13,7 @@ SpMorphStyleTest >> newLookup: aString [ ^ SpMorphStyle newStyles: rootClass flattenClasses ] -{ #category : #tests } +{ #category : 'tests' } SpMorphStyleTest >> testApplyTo [ | styleResolver morph | @@ -34,7 +35,7 @@ SpMorphStyleTest >> testApplyTo [ self assert: morph width equals: 42 ] -{ #category : #tests } +{ #category : 'tests' } SpMorphStyleTest >> testDeepLookup [ "This should answer the deepest width" | styleResolver | @@ -52,7 +53,7 @@ SpMorphStyleTest >> testDeepLookup [ self assert: styleResolver width equals: 42 ] -{ #category : #tests } +{ #category : 'tests' } SpMorphStyleTest >> testDeepMultipleLookup [ "This should answer the deepest width (last appearence)" | styleResolver | @@ -73,7 +74,7 @@ SpMorphStyleTest >> testDeepMultipleLookup [ self assert: styleResolver width equals: 42 ] -{ #category : #tests } +{ #category : 'tests' } SpMorphStyleTest >> testFromStylesheetAdapter [ | lookup labelAdapter | @@ -117,7 +118,7 @@ SpMorphStyleTest >> testFromStylesheetAdapter [ adapter: labelAdapter ] -{ #category : #tests } +{ #category : 'tests' } SpMorphStyleTest >> testNestedStyles [ | lookup labelAdapter styleSheet | @@ -160,7 +161,7 @@ SpMorphStyleTest >> testNestedStyles [ self assert: lookup width equals: 84 ] -{ #category : #tests } +{ #category : 'tests' } SpMorphStyleTest >> testSimpleLookup [ "this should answer the width defined in the only level" | styleResolver | @@ -172,7 +173,7 @@ SpMorphStyleTest >> testSimpleLookup [ self assert: styleResolver width equals: 42 ] -{ #category : #tests } +{ #category : 'tests' } SpMorphStyleTest >> testTwoClassWithSameName [ | morphStyle style1 style2 property label | diff --git a/src/Spec2-Adapters-Morphic-Tests/SpPropertyStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpPropertyStyleTest.class.st index 19c157398..47a6cd7b3 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpPropertyStyleTest.class.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpPropertyStyleTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #SpPropertyStyleTest, - #superclass : #TestCase, - #category : #'Spec2-Adapters-Morphic-Tests' + #name : 'SpPropertyStyleTest', + #superclass : 'TestCase', + #category : 'Spec2-Adapters-Morphic-Tests', + #package : 'Spec2-Adapters-Morphic-Tests' } -{ #category : #tests } +{ #category : 'tests' } SpPropertyStyleTest >> testMergeWith [ | p1 p2 p3 | @@ -23,7 +24,7 @@ SpPropertyStyleTest >> testMergeWith [ self assert: p3 height equals: 40 ] -{ #category : #tests } +{ #category : 'tests' } SpPropertyStyleTest >> testMergeWithFontDoNotRemovePredefinedFontWhenNoFontIsDefined [ | p1 p2 p3 | @@ -41,7 +42,7 @@ SpPropertyStyleTest >> testMergeWithFontDoNotRemovePredefinedFontWhenNoFontIsDef self assert: p3 color equals: Color white ] -{ #category : #tests } +{ #category : 'tests' } SpPropertyStyleTest >> testMergeWithFontRemovePredefinedFont [ | p1 p2 p3 | @@ -59,7 +60,7 @@ SpPropertyStyleTest >> testMergeWithFontRemovePredefinedFont [ ] -{ #category : #tests } +{ #category : 'tests' } SpPropertyStyleTest >> testMergeWithPredefinedFontCanBeDecorated [ | p1 p2 p3 | diff --git a/src/Spec2-Adapters-Morphic-Tests/SpStyleEnvironmentColorProxyTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpStyleEnvironmentColorProxyTest.class.st index 7d3165e79..465329b7a 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpStyleEnvironmentColorProxyTest.class.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpStyleEnvironmentColorProxyTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #SpStyleEnvironmentColorProxyTest, - #superclass : #TestCase, - #category : #'Spec2-Adapters-Morphic-Tests' + #name : 'SpStyleEnvironmentColorProxyTest', + #superclass : 'TestCase', + #category : 'Spec2-Adapters-Morphic-Tests', + #package : 'Spec2-Adapters-Morphic-Tests' } -{ #category : #tests } +{ #category : 'tests' } SpStyleEnvironmentColorProxyTest >> testSerializationWithFuelMaintainProxy [ | proxy byteArray deserialized | diff --git a/src/Spec2-Adapters-Morphic-Tests/SpStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpStyleTest.class.st index 49ac8dd53..4b948fcd2 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpStyleTest.class.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpStyleTest.class.st @@ -1,20 +1,21 @@ Class { - #name : #SpStyleTest, - #superclass : #TestCase, + #name : 'SpStyleTest', + #superclass : 'TestCase', #instVars : [ 'aClass' ], - #category : #'Spec2-Adapters-Morphic-Tests' + #category : 'Spec2-Adapters-Morphic-Tests', + #package : 'Spec2-Adapters-Morphic-Tests' } -{ #category : #running } +{ #category : 'running' } SpStyleTest >> tearDown [ aClass ifNotNil: [ :e | e removeFromSystem ]. super tearDown ] -{ #category : #tests } +{ #category : 'tests' } SpStyleTest >> testParsingAStyleIsNotAffectedByExistingClass [ | aStylesheet | diff --git a/src/Spec2-Adapters-Morphic-Tests/SpStyleVariableTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpStyleVariableTest.class.st index d1ca32aa3..c2a38bf26 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpStyleVariableTest.class.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpStyleVariableTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #SpStyleVariableTest, - #superclass : #TestCase, - #category : #'Spec2-Adapters-Morphic-Tests' + #name : 'SpStyleVariableTest', + #superclass : 'TestCase', + #category : 'Spec2-Adapters-Morphic-Tests', + #package : 'Spec2-Adapters-Morphic-Tests' } -{ #category : #tests } +{ #category : 'tests' } SpStyleVariableTest >> testParseBasicValue [ | property | @@ -13,7 +14,7 @@ SpStyleVariableTest >> testParseBasicValue [ self assert: property heightVariable value equals: 25 ] -{ #category : #tests } +{ #category : 'tests' } SpStyleVariableTest >> testParseColorVariable [ | property | @@ -29,7 +30,7 @@ SpStyleVariableTest >> testParseColorVariable [ self assert: property borderColorVariable valueAsColor equals: Color red ] -{ #category : #tests } +{ #category : 'tests' } SpStyleVariableTest >> testParseFontVariable [ | property | @@ -39,7 +40,7 @@ SpStyleVariableTest >> testParseFontVariable [ ] -{ #category : #tests } +{ #category : 'tests' } SpStyleVariableTest >> testParseResetVariable [ | property | diff --git a/src/Spec2-Adapters-Morphic-Tests/SpTextInputFieldPresenterStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpTextInputFieldPresenterStyleTest.class.st index aaf7704ec..8f4c9c555 100644 --- a/src/Spec2-Adapters-Morphic-Tests/SpTextInputFieldPresenterStyleTest.class.st +++ b/src/Spec2-Adapters-Morphic-Tests/SpTextInputFieldPresenterStyleTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #SpTextInputFieldPresenterStyleTest, - #superclass : #TestCase, - #category : #'Spec2-Adapters-Morphic-Tests' + #name : 'SpTextInputFieldPresenterStyleTest', + #superclass : 'TestCase', + #category : 'Spec2-Adapters-Morphic-Tests', + #package : 'Spec2-Adapters-Morphic-Tests' } -{ #category : #tests } +{ #category : 'tests' } SpTextInputFieldPresenterStyleTest >> testApplyHeightChangesTheHeightOfTheWidget [ | app presenter textInputField | diff --git a/src/Spec2-Adapters-Morphic-Tests/package.st b/src/Spec2-Adapters-Morphic-Tests/package.st index 1c7ad01cc..141014974 100644 --- a/src/Spec2-Adapters-Morphic-Tests/package.st +++ b/src/Spec2-Adapters-Morphic-Tests/package.st @@ -1 +1 @@ -Package { #name : #'Spec2-Adapters-Morphic-Tests' } +Package { #name : 'Spec2-Adapters-Morphic-Tests' } diff --git a/src/Spec2-Adapters-Stub/ManifestSpec2AdaptersStub.class.st b/src/Spec2-Adapters-Stub/ManifestSpec2AdaptersStub.class.st index 1eb06272e..b6e3aac04 100644 --- a/src/Spec2-Adapters-Stub/ManifestSpec2AdaptersStub.class.st +++ b/src/Spec2-Adapters-Stub/ManifestSpec2AdaptersStub.class.st @@ -6,7 +6,9 @@ Spec is a framework in Pharo for describing user interfaces. It allows for the c I contain stubs adapter to test Spec without any backend. " Class { - #name : #ManifestSpec2AdaptersStub, - #superclass : #PackageManifest, - #category : #'Spec2-Adapters-Stub-Manifest' + #name : 'ManifestSpec2AdaptersStub', + #superclass : 'PackageManifest', + #category : 'Spec2-Adapters-Stub-Manifest', + #package : 'Spec2-Adapters-Stub', + #tag : 'Manifest' } diff --git a/src/Spec2-Adapters-Stub/SpStubAbstractAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubAbstractAdapter.class.st index 199f8e576..d176c67c5 100644 --- a/src/Spec2-Adapters-Stub/SpStubAbstractAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubAbstractAdapter.class.st @@ -3,12 +3,14 @@ I am an abstract class providing all the properties shared amongs all the stub a " Class { - #name : #SpStubAbstractAdapter, - #superclass : #SpAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubAbstractAdapter', + #superclass : 'SpAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #accessing } +{ #category : 'accessing' } SpStubAbstractAdapter class >> adaptingName [ "Override me if adapter will not follow the common pattern" @@ -17,103 +19,103 @@ SpStubAbstractAdapter class >> adaptingName [ ^ (self name withoutPrefix: 'SpStub') asSymbol ] -{ #category : #accessing } +{ #category : 'accessing' } SpStubAbstractAdapter class >> allAdapters [ ^ self allSubclasses ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> add: aWidget [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubAbstractAdapter >> addPresenterIn: widgetToBuild withSpecLayout: aSpec [ ] -{ #category : #compatibility } +{ #category : 'compatibility' } SpStubAbstractAdapter >> bindKeyCombination: aShortcut toAction: aBlock [ ] -{ #category : #initialization } +{ #category : 'initialization' } SpStubAbstractAdapter >> borderColor: color [ ] -{ #category : #initialization } +{ #category : 'initialization' } SpStubAbstractAdapter >> borderWidth: width [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubAbstractAdapter >> buildWidget [ ^ self class new ] -{ #category : #initialization } +{ #category : 'initialization' } SpStubAbstractAdapter >> color: color [ ] -{ #category : #initialization } +{ #category : 'initialization' } SpStubAbstractAdapter >> dragEnabled: aBoolean [ ] -{ #category : #initialization } +{ #category : 'initialization' } SpStubAbstractAdapter >> dropEnabled: aBoolean [ ] -{ #category : #initialization } +{ #category : 'initialization' } SpStubAbstractAdapter >> enabled: aBoolean [ ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> hRigid [ ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> hShrinkWrap [ ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> hSpaceFill [ ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> layout: aLayout [ ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> removeSubWidgets [ ] -{ #category : #initialization } +{ #category : 'initialization' } SpStubAbstractAdapter >> setBalloonText: aString [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubAbstractAdapter >> takeKeyboardFocus [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubAbstractAdapter >> useProportionalLayout [ ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> vRigid [ ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> vShrinkWrap [ ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> vSpaceFill [ ] -{ #category : #protocol } +{ #category : 'protocol' } SpStubAbstractAdapter >> when: anAnnouncement do: aBlock [ ] diff --git a/src/Spec2-Adapters-Stub/SpStubAdapterBindings.class.st b/src/Spec2-Adapters-Stub/SpStubAdapterBindings.class.st index 565ea48e8..41c4682e2 100644 --- a/src/Spec2-Adapters-Stub/SpStubAdapterBindings.class.st +++ b/src/Spec2-Adapters-Stub/SpStubAdapterBindings.class.st @@ -10,12 +10,14 @@ CurrentSpecDefaultBindings value: SpecStubAdapterBindings during: [ ]. " Class { - #name : #SpStubAdapterBindings, - #superclass : #SpAdapterBindings, - #category : #'Spec2-Adapters-Stub-Support' + #name : 'SpStubAdapterBindings', + #superclass : 'SpAdapterBindings', + #category : 'Spec2-Adapters-Stub-Support', + #package : 'Spec2-Adapters-Stub', + #tag : 'Support' } -{ #category : #initialize } +{ #category : 'initialize' } SpStubAdapterBindings >> abstractAdapterClass [ ^ SpStubAbstractAdapter ] diff --git a/src/Spec2-Adapters-Stub/SpStubBoxAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubBoxAdapter.class.st index b14babf9e..857d48d2c 100644 --- a/src/Spec2-Adapters-Stub/SpStubBoxAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubBoxAdapter.class.st @@ -1,14 +1,16 @@ Class { - #name : #SpStubBoxAdapter, - #superclass : #SpStubLayoutAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubBoxAdapter', + #superclass : 'SpStubLayoutAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubBoxAdapter >> basicAdd: aPresenter constraints: constraints to: aPanel [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubBoxAdapter >> buildWidget [ ^ SpStubBoxView new ] diff --git a/src/Spec2-Adapters-Stub/SpStubBoxView.class.st b/src/Spec2-Adapters-Stub/SpStubBoxView.class.st index 66c7f43b9..094418e74 100644 --- a/src/Spec2-Adapters-Stub/SpStubBoxView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubBoxView.class.st @@ -1,5 +1,7 @@ Class { - #name : #SpStubBoxView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubBoxView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubButtonAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubButtonAdapter.class.st index 5096f374f..3a71168c1 100644 --- a/src/Spec2-Adapters-Stub/SpStubButtonAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubButtonAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubButtonAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubButtonAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubButtonAdapter >> buildWidget [ ^ SpStubButtonView new diff --git a/src/Spec2-Adapters-Stub/SpStubButtonView.class.st b/src/Spec2-Adapters-Stub/SpStubButtonView.class.st index c9d8d5bde..e4a26b30a 100644 --- a/src/Spec2-Adapters-Stub/SpStubButtonView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubButtonView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubButtonView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubButtonView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubCheckBoxAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubCheckBoxAdapter.class.st index cd7b6a562..698419afa 100644 --- a/src/Spec2-Adapters-Stub/SpStubCheckBoxAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubCheckBoxAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubCheckBoxAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubCheckBoxAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubCheckBoxAdapter >> buildWidget [ ^ SpStubCheckBoxView new diff --git a/src/Spec2-Adapters-Stub/SpStubCheckBoxView.class.st b/src/Spec2-Adapters-Stub/SpStubCheckBoxView.class.st index 94247daca..3b7fd57e9 100644 --- a/src/Spec2-Adapters-Stub/SpStubCheckBoxView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubCheckBoxView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubCheckBoxView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubCheckBoxView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubCodeAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubCodeAdapter.class.st index 63b4f1872..40af780e2 100644 --- a/src/Spec2-Adapters-Stub/SpStubCodeAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubCodeAdapter.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpStubCodeAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubCodeAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubCodeAdapter >> buildWidget [ ^ SpStubCodeView new diff --git a/src/Spec2-Adapters-Stub/SpStubCodeView.class.st b/src/Spec2-Adapters-Stub/SpStubCodeView.class.st index 5a90c07a0..633757e73 100644 --- a/src/Spec2-Adapters-Stub/SpStubCodeView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubCodeView.class.st @@ -1,5 +1,7 @@ Class { - #name : #SpStubCodeView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubCodeView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubContainerAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubContainerAdapter.class.st index 56a30907a..77ac739f8 100644 --- a/src/Spec2-Adapters-Stub/SpStubContainerAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubContainerAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubContainerAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubContainerAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubContainerAdapter >> buildWidget [ ^ SpStubContainerView new diff --git a/src/Spec2-Adapters-Stub/SpStubContainerView.class.st b/src/Spec2-Adapters-Stub/SpStubContainerView.class.st index e9a6e0c44..fe8d61905 100644 --- a/src/Spec2-Adapters-Stub/SpStubContainerView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubContainerView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubContainerView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubContainerView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubDialogWindowAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubDialogWindowAdapter.class.st index 0ed12b0b7..d9cc537b2 100644 --- a/src/Spec2-Adapters-Stub/SpStubDialogWindowAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubDialogWindowAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubDialogWindowAdapter, - #superclass : #SpStubWindowAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubDialogWindowAdapter', + #superclass : 'SpStubWindowAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubDialogWindowAdapter >> buildWidget [ ^ SpStubDialogWindowView new diff --git a/src/Spec2-Adapters-Stub/SpStubDialogWindowView.class.st b/src/Spec2-Adapters-Stub/SpStubDialogWindowView.class.st index a172b6a27..032d9c4aa 100644 --- a/src/Spec2-Adapters-Stub/SpStubDialogWindowView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubDialogWindowView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubDialogWindowView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubDialogWindowView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubDiffAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubDiffAdapter.class.st index eabf5a6f5..abdb4d1ad 100644 --- a/src/Spec2-Adapters-Stub/SpStubDiffAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubDiffAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubDiffAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubDiffAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubDiffAdapter >> buildWidget [ ^ SpStubDiffView new diff --git a/src/Spec2-Adapters-Stub/SpStubDiffView.class.st b/src/Spec2-Adapters-Stub/SpStubDiffView.class.st index bf22b3151..db503a402 100644 --- a/src/Spec2-Adapters-Stub/SpStubDiffView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubDiffView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubDiffView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubDiffView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubDropListAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubDropListAdapter.class.st index 442ed5421..68de48c0c 100644 --- a/src/Spec2-Adapters-Stub/SpStubDropListAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubDropListAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubDropListAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubDropListAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubDropListAdapter >> buildWidget [ ^ SpStubDropListView new diff --git a/src/Spec2-Adapters-Stub/SpStubDropListView.class.st b/src/Spec2-Adapters-Stub/SpStubDropListView.class.st index b5974b4a5..c88986e93 100644 --- a/src/Spec2-Adapters-Stub/SpStubDropListView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubDropListView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubDropListView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubDropListView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubFastTableAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubFastTableAdapter.class.st index bf9ad9cd6..07798e1d5 100644 --- a/src/Spec2-Adapters-Stub/SpStubFastTableAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubFastTableAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubFastTableAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubFastTableAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubFastTableAdapter >> buildWidget [ ^ SpStubFastTableView new diff --git a/src/Spec2-Adapters-Stub/SpStubFastTableView.class.st b/src/Spec2-Adapters-Stub/SpStubFastTableView.class.st index ab102946b..325910005 100644 --- a/src/Spec2-Adapters-Stub/SpStubFastTableView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubFastTableView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubFastTableView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubFastTableView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubGridAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubGridAdapter.class.st index 3f6a83d7c..e6e28e4ab 100644 --- a/src/Spec2-Adapters-Stub/SpStubGridAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubGridAdapter.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpStubGridAdapter, - #superclass : #SpStubLayoutAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubGridAdapter', + #superclass : 'SpStubLayoutAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubGridAdapter >> buildWidget [ ^ SpStubGridView new ] diff --git a/src/Spec2-Adapters-Stub/SpStubGridView.class.st b/src/Spec2-Adapters-Stub/SpStubGridView.class.st index a48c3b3b2..af550353b 100644 --- a/src/Spec2-Adapters-Stub/SpStubGridView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubGridView.class.st @@ -1,5 +1,7 @@ Class { - #name : #SpStubGridView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubGridView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubIconListAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubIconListAdapter.class.st index 98d816bb1..4d154dc20 100644 --- a/src/Spec2-Adapters-Stub/SpStubIconListAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubIconListAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubIconListAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubIconListAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubIconListAdapter >> buildWidget [ ^ SpStubIconListView new diff --git a/src/Spec2-Adapters-Stub/SpStubIconListView.class.st b/src/Spec2-Adapters-Stub/SpStubIconListView.class.st index 8b9f0686a..c77634eac 100644 --- a/src/Spec2-Adapters-Stub/SpStubIconListView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubIconListView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubIconListView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubIconListView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubImageAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubImageAdapter.class.st index 4a9a34bdf..b31c9626c 100644 --- a/src/Spec2-Adapters-Stub/SpStubImageAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubImageAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubImageAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubImageAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubImageAdapter >> buildWidget [ ^ SpStubImageView new diff --git a/src/Spec2-Adapters-Stub/SpStubImageView.class.st b/src/Spec2-Adapters-Stub/SpStubImageView.class.st index 6a1a7f7da..d9cb3f6ca 100644 --- a/src/Spec2-Adapters-Stub/SpStubImageView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubImageView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubImageView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubImageView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubLabelAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubLabelAdapter.class.st index 17b67103c..d8739e3ff 100644 --- a/src/Spec2-Adapters-Stub/SpStubLabelAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubLabelAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubLabelAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubLabelAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubLabelAdapter >> buildWidget [ ^ SpStubLabelAdapter new diff --git a/src/Spec2-Adapters-Stub/SpStubLayoutAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubLayoutAdapter.class.st index abda8fde1..765374bc4 100644 --- a/src/Spec2-Adapters-Stub/SpStubLayoutAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubLayoutAdapter.class.st @@ -1,9 +1,11 @@ Class { - #name : #SpStubLayoutAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubLayoutAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubLayoutAdapter >> add: aPresenter constraints: constraints [ ] diff --git a/src/Spec2-Adapters-Stub/SpStubListAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubListAdapter.class.st index e1c5eaa3e..832216aa3 100644 --- a/src/Spec2-Adapters-Stub/SpStubListAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubListAdapter.class.st @@ -2,23 +2,25 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubListAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubListAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubListAdapter >> buildWidget [ ^ SpStubListView new ] -{ #category : #factory } +{ #category : 'factory' } SpStubListAdapter >> refreshWidgetList [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubListAdapter >> refreshWidgetSelection [ ] diff --git a/src/Spec2-Adapters-Stub/SpStubListView.class.st b/src/Spec2-Adapters-Stub/SpStubListView.class.st index 59b228a9d..1004582d4 100644 --- a/src/Spec2-Adapters-Stub/SpStubListView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubListView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubListView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubListView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubMenuAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubMenuAdapter.class.st index aa6dcb1b1..2944ef110 100644 --- a/src/Spec2-Adapters-Stub/SpStubMenuAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubMenuAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubMenuAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubMenuAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubMenuAdapter >> buildWidget [ ^ SpStubMenuView new diff --git a/src/Spec2-Adapters-Stub/SpStubMenuGroupAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubMenuGroupAdapter.class.st index ca0120eca..8f11398cd 100644 --- a/src/Spec2-Adapters-Stub/SpStubMenuGroupAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubMenuGroupAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubMenuGroupAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubMenuGroupAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubMenuGroupAdapter >> buildWidget [ ^ SpStubMenuGroupView new diff --git a/src/Spec2-Adapters-Stub/SpStubMenuGroupView.class.st b/src/Spec2-Adapters-Stub/SpStubMenuGroupView.class.st index 670206ca3..5e9cd2e6c 100644 --- a/src/Spec2-Adapters-Stub/SpStubMenuGroupView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubMenuGroupView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubMenuGroupView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubMenuGroupView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubMenuItemAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubMenuItemAdapter.class.st index 4a1272ee6..0bab80834 100644 --- a/src/Spec2-Adapters-Stub/SpStubMenuItemAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubMenuItemAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubMenuItemAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubMenuItemAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubMenuItemAdapter >> buildWidget [ ^ SpStubMenuItemView new diff --git a/src/Spec2-Adapters-Stub/SpStubMenuItemView.class.st b/src/Spec2-Adapters-Stub/SpStubMenuItemView.class.st index 41b92a12c..ed44a362c 100644 --- a/src/Spec2-Adapters-Stub/SpStubMenuItemView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubMenuItemView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubMenuItemView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubMenuItemView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubMenuView.class.st b/src/Spec2-Adapters-Stub/SpStubMenuView.class.st index 180f95c03..7bc34d297 100644 --- a/src/Spec2-Adapters-Stub/SpStubMenuView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubMenuView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubMenuView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubMenuView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubModalWindowAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubModalWindowAdapter.class.st index 76c81e814..94eaae0f9 100644 --- a/src/Spec2-Adapters-Stub/SpStubModalWindowAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubModalWindowAdapter.class.st @@ -1,5 +1,7 @@ Class { - #name : #SpStubModalWindowAdapter, - #superclass : #SpStubDialogWindowAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubModalWindowAdapter', + #superclass : 'SpStubDialogWindowAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } diff --git a/src/Spec2-Adapters-Stub/SpStubModalWindowView.class.st b/src/Spec2-Adapters-Stub/SpStubModalWindowView.class.st index c33acc4de..6816adf89 100644 --- a/src/Spec2-Adapters-Stub/SpStubModalWindowView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubModalWindowView.class.st @@ -1,5 +1,7 @@ Class { - #name : #SpStubModalWindowView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubModalWindowView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubMultiColumnListAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubMultiColumnListAdapter.class.st index 077a8ee52..2c5102f55 100644 --- a/src/Spec2-Adapters-Stub/SpStubMultiColumnListAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubMultiColumnListAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubMultiColumnListAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubMultiColumnListAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubMultiColumnListAdapter >> buildWidget [ ^ SpStubMultiColumnListView new diff --git a/src/Spec2-Adapters-Stub/SpStubMultiColumnListView.class.st b/src/Spec2-Adapters-Stub/SpStubMultiColumnListView.class.st index a2c48d028..ac601e97c 100644 --- a/src/Spec2-Adapters-Stub/SpStubMultiColumnListView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubMultiColumnListView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubMultiColumnListView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubMultiColumnListView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubNumberInputFieldAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubNumberInputFieldAdapter.class.st index 6d522d714..f86d3334c 100644 --- a/src/Spec2-Adapters-Stub/SpStubNumberInputFieldAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubNumberInputFieldAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubNumberInputFieldAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubNumberInputFieldAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubNumberInputFieldAdapter >> buildWidget [ ^ SpStubNumberInputFieldView new ] diff --git a/src/Spec2-Adapters-Stub/SpStubNumberInputFieldView.class.st b/src/Spec2-Adapters-Stub/SpStubNumberInputFieldView.class.st index 2283e5016..a6f3bfe7a 100644 --- a/src/Spec2-Adapters-Stub/SpStubNumberInputFieldView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubNumberInputFieldView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubNumberInputFieldView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubNumberInputFieldView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubPanedAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubPanedAdapter.class.st index b03d0feed..6543cf714 100644 --- a/src/Spec2-Adapters-Stub/SpStubPanedAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubPanedAdapter.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpStubPanedAdapter, - #superclass : #SpStubLayoutAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubPanedAdapter', + #superclass : 'SpStubLayoutAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubPanedAdapter >> buildWidget [ ^ SpStubPanedView new ] diff --git a/src/Spec2-Adapters-Stub/SpStubPanedView.class.st b/src/Spec2-Adapters-Stub/SpStubPanedView.class.st index 8938b2ca8..a4fd08ecd 100644 --- a/src/Spec2-Adapters-Stub/SpStubPanedView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubPanedView.class.st @@ -1,5 +1,7 @@ Class { - #name : #SpStubPanedView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubPanedView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubRadioButtonAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubRadioButtonAdapter.class.st index c45ac057d..7f10470a8 100644 --- a/src/Spec2-Adapters-Stub/SpStubRadioButtonAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubRadioButtonAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubRadioButtonAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubRadioButtonAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubRadioButtonAdapter >> buildWidget [ ^ SpStubRadioButtonView new diff --git a/src/Spec2-Adapters-Stub/SpStubRadioButtonView.class.st b/src/Spec2-Adapters-Stub/SpStubRadioButtonView.class.st index 1d32c315d..2eac3c40e 100644 --- a/src/Spec2-Adapters-Stub/SpStubRadioButtonView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubRadioButtonView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubRadioButtonView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubRadioButtonView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubSliderAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubSliderAdapter.class.st index e23478052..49c6393e5 100644 --- a/src/Spec2-Adapters-Stub/SpStubSliderAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubSliderAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubSliderAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubSliderAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubSliderAdapter >> buildWidget [ ^ SpStubSliderView new diff --git a/src/Spec2-Adapters-Stub/SpStubSliderView.class.st b/src/Spec2-Adapters-Stub/SpStubSliderView.class.st index ae5c1d8ff..fa264bb8f 100644 --- a/src/Spec2-Adapters-Stub/SpStubSliderView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubSliderView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubSliderView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubSliderView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubSpacerAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubSpacerAdapter.class.st index a424cc974..77a12eeed 100644 --- a/src/Spec2-Adapters-Stub/SpStubSpacerAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubSpacerAdapter.class.st @@ -2,12 +2,14 @@ Stub " Class { - #name : #SpStubSpacerAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubSpacerAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubSpacerAdapter >> buildWidget [ ^ SpStubSpacerView new ] diff --git a/src/Spec2-Adapters-Stub/SpStubSpacerView.class.st b/src/Spec2-Adapters-Stub/SpStubSpacerView.class.st index db6d568e0..dcd114ce1 100644 --- a/src/Spec2-Adapters-Stub/SpStubSpacerView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubSpacerView.class.st @@ -2,7 +2,9 @@ Stub " Class { - #name : #SpStubSpacerView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubSpacerView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTabAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTabAdapter.class.st index 523e96700..401def90a 100644 --- a/src/Spec2-Adapters-Stub/SpStubTabAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTabAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTabAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTabAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTabAdapter >> buildWidget [ ^ SpStubTabView new diff --git a/src/Spec2-Adapters-Stub/SpStubTabManagerAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTabManagerAdapter.class.st index 7570adc6b..ace86f4f3 100644 --- a/src/Spec2-Adapters-Stub/SpStubTabManagerAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTabManagerAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTabManagerAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTabManagerAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTabManagerAdapter >> buildWidget [ ^ SpStubTabManagerView new diff --git a/src/Spec2-Adapters-Stub/SpStubTabManagerView.class.st b/src/Spec2-Adapters-Stub/SpStubTabManagerView.class.st index 4544d2267..f9d0895f0 100644 --- a/src/Spec2-Adapters-Stub/SpStubTabManagerView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTabManagerView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTabManagerView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTabManagerView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTabView.class.st b/src/Spec2-Adapters-Stub/SpStubTabView.class.st index 343397f6c..6c7190770 100644 --- a/src/Spec2-Adapters-Stub/SpStubTabView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTabView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTabView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTabView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTableContainerAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTableContainerAdapter.class.st index 7ad17f2ee..d4768c358 100644 --- a/src/Spec2-Adapters-Stub/SpStubTableContainerAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTableContainerAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTableContainerAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTableContainerAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTableContainerAdapter >> buildWidget [ ^ SpStubTableContainerView new diff --git a/src/Spec2-Adapters-Stub/SpStubTableContainerView.class.st b/src/Spec2-Adapters-Stub/SpStubTableContainerView.class.st index 86086dd90..3ab751086 100644 --- a/src/Spec2-Adapters-Stub/SpStubTableContainerView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTableContainerView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTableContainerView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTableContainerView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTextAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTextAdapter.class.st index b5a1dbb5b..6d1adc726 100644 --- a/src/Spec2-Adapters-Stub/SpStubTextAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTextAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTextAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTextAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTextAdapter >> buildWidget [ ^ SpStubTextView new diff --git a/src/Spec2-Adapters-Stub/SpStubTextInputFieldAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTextInputFieldAdapter.class.st index 914265060..afe6e1dd7 100644 --- a/src/Spec2-Adapters-Stub/SpStubTextInputFieldAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTextInputFieldAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTextInputFieldAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTextInputFieldAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTextInputFieldAdapter >> buildWidget [ ^ SpStubTextInputFieldView new diff --git a/src/Spec2-Adapters-Stub/SpStubTextInputFieldView.class.st b/src/Spec2-Adapters-Stub/SpStubTextInputFieldView.class.st index 24cbb08a3..f05184fc0 100644 --- a/src/Spec2-Adapters-Stub/SpStubTextInputFieldView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTextInputFieldView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTextInputFieldView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTextInputFieldView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTextView.class.st b/src/Spec2-Adapters-Stub/SpStubTextView.class.st index 8f7177011..3e3ae4815 100644 --- a/src/Spec2-Adapters-Stub/SpStubTextView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTextView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTextView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTextView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTickingWindowAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTickingWindowAdapter.class.st index 99b997e7c..a719d2f02 100644 --- a/src/Spec2-Adapters-Stub/SpStubTickingWindowAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTickingWindowAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTickingWindowAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTickingWindowAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTickingWindowAdapter >> buildWidget [ ^ SpStubTickingWindowView new diff --git a/src/Spec2-Adapters-Stub/SpStubTickingWindowView.class.st b/src/Spec2-Adapters-Stub/SpStubTickingWindowView.class.st index a7753b70e..aeb20f469 100644 --- a/src/Spec2-Adapters-Stub/SpStubTickingWindowView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTickingWindowView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTickingWindowView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTickingWindowView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubToolbarAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubToolbarAdapter.class.st index 749254943..03b0de5e2 100644 --- a/src/Spec2-Adapters-Stub/SpStubToolbarAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubToolbarAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubToolbarAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubToolbarAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubToolbarAdapter >> buildWidget [ ^ SpStubToolbarView new diff --git a/src/Spec2-Adapters-Stub/SpStubToolbarView.class.st b/src/Spec2-Adapters-Stub/SpStubToolbarView.class.st index 874835fad..a2c3e4c69 100644 --- a/src/Spec2-Adapters-Stub/SpStubToolbarView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubToolbarView.class.st @@ -1,5 +1,7 @@ Class { - #name : #SpStubToolbarView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubToolbarView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTransferAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTransferAdapter.class.st index 45567209a..8b1ffc718 100644 --- a/src/Spec2-Adapters-Stub/SpStubTransferAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTransferAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTransferAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTransferAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTransferAdapter >> buildWidget [ ^ SpStubTransferView new diff --git a/src/Spec2-Adapters-Stub/SpStubTransferView.class.st b/src/Spec2-Adapters-Stub/SpStubTransferView.class.st index 32755e56b..c94b48a8f 100644 --- a/src/Spec2-Adapters-Stub/SpStubTransferView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTransferView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTransferView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTransferView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTreeAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTreeAdapter.class.st index b7eeab728..4e374f671 100644 --- a/src/Spec2-Adapters-Stub/SpStubTreeAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTreeAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTreeAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTreeAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTreeAdapter >> buildWidget [ ^ SpStubTreeView new diff --git a/src/Spec2-Adapters-Stub/SpStubTreeColumnAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTreeColumnAdapter.class.st index 705da8a30..143382e56 100644 --- a/src/Spec2-Adapters-Stub/SpStubTreeColumnAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTreeColumnAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTreeColumnAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTreeColumnAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTreeColumnAdapter >> buildWidget [ ^ SpStubTreeColumnView new diff --git a/src/Spec2-Adapters-Stub/SpStubTreeColumnView.class.st b/src/Spec2-Adapters-Stub/SpStubTreeColumnView.class.st index fe4f32174..049dbaaf3 100644 --- a/src/Spec2-Adapters-Stub/SpStubTreeColumnView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTreeColumnView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTreeColumnView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTreeColumnView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTreeNodeAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubTreeNodeAdapter.class.st index b6d55d950..44da16073 100644 --- a/src/Spec2-Adapters-Stub/SpStubTreeNodeAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTreeNodeAdapter.class.st @@ -2,12 +2,14 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubTreeNodeAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubTreeNodeAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubTreeNodeAdapter >> buildWidget [ ^ SpStubTreeNodeView new diff --git a/src/Spec2-Adapters-Stub/SpStubTreeNodeView.class.st b/src/Spec2-Adapters-Stub/SpStubTreeNodeView.class.st index 80c454db7..5849c364f 100644 --- a/src/Spec2-Adapters-Stub/SpStubTreeNodeView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTreeNodeView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTreeNodeView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTreeNodeView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubTreeView.class.st b/src/Spec2-Adapters-Stub/SpStubTreeView.class.st index a43d11f36..ae4384686 100644 --- a/src/Spec2-Adapters-Stub/SpStubTreeView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubTreeView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubTreeView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubTreeView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/SpStubView.class.st b/src/Spec2-Adapters-Stub/SpStubView.class.st index 7c7e8a072..51da0d4f7 100644 --- a/src/Spec2-Adapters-Stub/SpStubView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubView.class.st @@ -2,12 +2,14 @@ I am an abstract stub view. My subclasses do not display any real UI component " Class { - #name : #SpStubView, - #superclass : #Object, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubView', + #superclass : 'Object', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } -{ #category : #compatibility } +{ #category : 'compatibility' } SpStubView >> bindKeyCombination: aShortcut toAction: aBlock [ diff --git a/src/Spec2-Adapters-Stub/SpStubWindowAdapter.class.st b/src/Spec2-Adapters-Stub/SpStubWindowAdapter.class.st index 658113b2e..0c511b68a 100644 --- a/src/Spec2-Adapters-Stub/SpStubWindowAdapter.class.st +++ b/src/Spec2-Adapters-Stub/SpStubWindowAdapter.class.st @@ -2,18 +2,20 @@ Adapt the presenter on a stub view that displays no real UI elements. " Class { - #name : #SpStubWindowAdapter, - #superclass : #SpStubAbstractAdapter, - #category : #'Spec2-Adapters-Stub-Adapters' + #name : 'SpStubWindowAdapter', + #superclass : 'SpStubAbstractAdapter', + #category : 'Spec2-Adapters-Stub-Adapters', + #package : 'Spec2-Adapters-Stub', + #tag : 'Adapters' } -{ #category : #factory } +{ #category : 'factory' } SpStubWindowAdapter >> addContent: aView toWindow: aSpecWindow [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubWindowAdapter >> addPresenterIn: widgetToBuild withSpecLayout: aSpec [ self @@ -21,36 +23,36 @@ SpStubWindowAdapter >> addPresenterIn: widgetToBuild withSpecLayout: aSpec [ toWindow: widgetToBuild ] -{ #category : #factory } +{ #category : 'factory' } SpStubWindowAdapter >> beep [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubWindowAdapter >> buildWidget [ ^ SpStubWindowView new ] -{ #category : #factory } +{ #category : 'factory' } SpStubWindowAdapter >> close [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubWindowAdapter >> delete [ ] -{ #category : #factory } +{ #category : 'factory' } SpStubWindowAdapter >> open [ self presenter windowIsOpened ] -{ #category : #factory } +{ #category : 'factory' } SpStubWindowAdapter >> openWithDeferredAction: aBlock [ self presenter windowIsOpened ] -{ #category : #factory } +{ #category : 'factory' } SpStubWindowAdapter >> title: aString [ ] diff --git a/src/Spec2-Adapters-Stub/SpStubWindowView.class.st b/src/Spec2-Adapters-Stub/SpStubWindowView.class.st index 2bb22eb04..30ed43638 100644 --- a/src/Spec2-Adapters-Stub/SpStubWindowView.class.st +++ b/src/Spec2-Adapters-Stub/SpStubWindowView.class.st @@ -3,7 +3,9 @@ Only stub object, no real view is displayed. " Class { - #name : #SpStubWindowView, - #superclass : #SpStubView, - #category : #'Spec2-Adapters-Stub-Views' + #name : 'SpStubWindowView', + #superclass : 'SpStubView', + #category : 'Spec2-Adapters-Stub-Views', + #package : 'Spec2-Adapters-Stub', + #tag : 'Views' } diff --git a/src/Spec2-Adapters-Stub/package.st b/src/Spec2-Adapters-Stub/package.st index acef774c4..6db56a0ad 100644 --- a/src/Spec2-Adapters-Stub/package.st +++ b/src/Spec2-Adapters-Stub/package.st @@ -1 +1 @@ -Package { #name : #'Spec2-Adapters-Stub' } +Package { #name : 'Spec2-Adapters-Stub' } diff --git a/src/Spec2-Backend-Tests/ManifestSpec2BackendTests.class.st b/src/Spec2-Backend-Tests/ManifestSpec2BackendTests.class.st index 08cce5230..5efaca299 100644 --- a/src/Spec2-Backend-Tests/ManifestSpec2BackendTests.class.st +++ b/src/Spec2-Backend-Tests/ManifestSpec2BackendTests.class.st @@ -6,7 +6,9 @@ Spec is a framework in Pharo for describing user interfaces. It allows for the c I contain backend specific tests for Spec2. " Class { - #name : #ManifestSpec2BackendTests, - #superclass : #PackageManifest, - #category : #'Spec2-Backend-Tests-Manifest' + #name : 'ManifestSpec2BackendTests', + #superclass : 'PackageManifest', + #category : 'Spec2-Backend-Tests-Manifest', + #package : 'Spec2-Backend-Tests', + #tag : 'Manifest' } diff --git a/src/Spec2-Backend-Tests/SpAbstractAdapterTest.class.st b/src/Spec2-Backend-Tests/SpAbstractAdapterTest.class.st index 15f3f32c5..efb7c141c 100644 --- a/src/Spec2-Backend-Tests/SpAbstractAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractAdapterTest.class.st @@ -1,21 +1,23 @@ Class { - #name : #SpAbstractAdapterTest, - #superclass : #ParametrizedTestCase, + #name : 'SpAbstractAdapterTest', + #superclass : 'ParametrizedTestCase', #instVars : [ 'presenter', 'specInitializationStrategy', 'window', 'backendForTest' ], - #category : #'Spec2-Backend-Tests-Base' + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractAdapterTest class >> isAbstract [ ^ self == SpAbstractAdapterTest ] -{ #category : #testing } +{ #category : 'testing' } SpAbstractAdapterTest class >> testParameters [ ^ ParametrizedTestMatrix new @@ -26,7 +28,7 @@ SpAbstractAdapterTest class >> testParameters [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractAdapterTest >> adapter [ "Force opening the spec instance here. @@ -36,60 +38,60 @@ SpAbstractAdapterTest >> adapter [ ^ presenter adapter ] -{ #category : #asserting } +{ #category : 'asserting' } SpAbstractAdapterTest >> assertIcon: anIcon equals: aForm [ backendForTest assertIcon: anIcon equals: aForm ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractAdapterTest >> backendForTest: aClass [ backendForTest := aClass new ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractAdapterTest >> classToTest [ ^ self subclassResponsibility ] -{ #category : #'utilities - emulation' } +{ #category : 'utilities - emulation' } SpAbstractAdapterTest >> emulateCenterClick [ self emulateClick: MouseButtonEvent blueButton ] -{ #category : #'utilities - emulation' } +{ #category : 'utilities - emulation' } SpAbstractAdapterTest >> emulateClick: mouseButtonCode [ backendForTest emulateClick: mouseButtonCode onTest: self ] -{ #category : #'utilities - emulation' } +{ #category : 'utilities - emulation' } SpAbstractAdapterTest >> emulateLeftClick [ self emulateClick: MouseButtonEvent redButton ] -{ #category : #'utilities - emulation' } +{ #category : 'utilities - emulation' } SpAbstractAdapterTest >> emulateRightClick [ self emulateClick: MouseButtonEvent yellowButton ] -{ #category : #initialization } +{ #category : 'initialization' } SpAbstractAdapterTest >> initializeTestedInstance [ ] -{ #category : #utilities } +{ #category : 'utilities' } SpAbstractAdapterTest >> openInstance [ backendForTest openInstanceOf: self ] -{ #category : #private } +{ #category : 'private' } SpAbstractAdapterTest >> performTest [ backendForTest runTest: [ presenter := self classToTest new. @@ -97,7 +99,7 @@ SpAbstractAdapterTest >> performTest [ super performTest ] ] -{ #category : #running } +{ #category : 'running' } SpAbstractAdapterTest >> prepareToRunAgain [ "Redefined because setup is cancelled in this class" @@ -105,12 +107,12 @@ SpAbstractAdapterTest >> prepareToRunAgain [ super setUp ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractAdapterTest >> presenter [ ^ presenter ] -{ #category : #running } +{ #category : 'running' } SpAbstractAdapterTest >> runCase [ self resources do: [ :each | each availableFor: self ]. [ super setUp. @@ -119,62 +121,62 @@ SpAbstractAdapterTest >> runCase [ self cleanUpInstanceVariables ] ] -{ #category : #running } +{ #category : 'running' } SpAbstractAdapterTest >> setUp [ super setUp. "This super is useless but it's to make the release tests happy." self error: 'Do not override me.... use #initializeTestedInstance' ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractAdapterTest >> specInitializationStrategy: aStrategy [ specInitializationStrategy := aStrategy ] -{ #category : #running } +{ #category : 'running' } SpAbstractAdapterTest >> tearDown [ window ifNotNil: [ window delete ]. super tearDown ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractAdapterTest >> testHidePresenterHidesWidget [ self presenter hide. self deny: self adapter isVisible ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractAdapterTest >> testShowPresenterShowsWidget [ self presenter show. self assert: self adapter isVisible ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractAdapterTest >> testVisibilityWithBlock [ presenter visibleIf: [ true ]. self assert: self adapter isVisible ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractAdapterTest >> testVisibilityWithBlockThatReturnsFalse [ presenter visibleIf: [ false ]. self deny: self adapter isVisible ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractAdapterTest >> widget [ ^ self adapter widget ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractAdapterTest >> window [ ^ window ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractAdapterTest >> window: aWindowPresenter [ window := aWindowPresenter ] diff --git a/src/Spec2-Backend-Tests/SpAbstractBackendForTest.class.st b/src/Spec2-Backend-Tests/SpAbstractBackendForTest.class.st index 305a29e49..48e134c7e 100644 --- a/src/Spec2-Backend-Tests/SpAbstractBackendForTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractBackendForTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpAbstractBackendForTest, - #superclass : #Object, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAbstractBackendForTest', + #superclass : 'Object', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractBackendForTest >> emulateClick: mouseButtonCode onTest: anAdapterTest [ anAdapterTest openInstance. @@ -18,7 +20,7 @@ SpAbstractBackendForTest >> emulateClick: mouseButtonCode onTest: anAdapterTest self waitUntilUIRedrawed ] -{ #category : #testing } +{ #category : 'testing' } SpAbstractBackendForTest >> waitUntilUIRedrawed [ "Hook. I wait until the UI has been redrawn and events have been handled." ] diff --git a/src/Spec2-Backend-Tests/SpAbstractLayoutTest.class.st b/src/Spec2-Backend-Tests/SpAbstractLayoutTest.class.st index 5a29d4b0a..61d5c1c7a 100644 --- a/src/Spec2-Backend-Tests/SpAbstractLayoutTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractLayoutTest.class.st @@ -1,27 +1,29 @@ Class { - #name : #SpAbstractLayoutTest, - #superclass : #ParametrizedTestCase, + #name : 'SpAbstractLayoutTest', + #superclass : 'ParametrizedTestCase', #instVars : [ 'presenter', 'window', 'backendForTest' ], - #category : #'Spec2-Backend-Tests-Base' + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractLayoutTest class >> isAbstract [ ^ self = SpAbstractLayoutTest ] -{ #category : #testing } +{ #category : 'testing' } SpAbstractLayoutTest class >> testParameters [ ^ ParametrizedTestMatrix new forSelector: #backendForTest addOptions: SpAbstractBackendForTest allSubclasses; yourself ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractLayoutTest >> adapter [ "Force opening the spec instance here. @@ -31,38 +33,38 @@ SpAbstractLayoutTest >> adapter [ ^ presenter adapter ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractLayoutTest >> backendForTest: aClass [ backendForTest := aClass new ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractLayoutTest >> classToTest [ ^ self subclassResponsibility ] -{ #category : #utilities } +{ #category : 'utilities' } SpAbstractLayoutTest >> openInstance [ backendForTest openInstanceOf: self ] -{ #category : #running } +{ #category : 'running' } SpAbstractLayoutTest >> prepareToRunAgain [ backendForTest runTest: [ super prepareToRunAgain ] ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractLayoutTest >> presenter [ ^ presenter ] -{ #category : #running } +{ #category : 'running' } SpAbstractLayoutTest >> runCase [ self resources do: [:each | each availableFor: self]. @@ -75,30 +77,30 @@ SpAbstractLayoutTest >> runCase [ self cleanUpInstanceVariables] ] -{ #category : #running } +{ #category : 'running' } SpAbstractLayoutTest >> setUp [ super setUp. "This super is useless but it's to make the release tests happy." self error: 'Do not override me.... use #initializeTestedInstance' ] -{ #category : #running } +{ #category : 'running' } SpAbstractLayoutTest >> tearDown [ window ifNotNil: [ window delete ]. super tearDown ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractLayoutTest >> widget [ ^ self adapter widget ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractLayoutTest >> window [ ^ window ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractLayoutTest >> window: aWindowPresenter [ window := aWindowPresenter ] diff --git a/src/Spec2-Backend-Tests/SpAbstractListAdapterMultipleSelectionTest.class.st b/src/Spec2-Backend-Tests/SpAbstractListAdapterMultipleSelectionTest.class.st index 51b422b43..122d4b7e0 100644 --- a/src/Spec2-Backend-Tests/SpAbstractListAdapterMultipleSelectionTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractListAdapterMultipleSelectionTest.class.st @@ -1,15 +1,17 @@ Class { - #name : #SpAbstractListAdapterMultipleSelectionTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAbstractListAdapterMultipleSelectionTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractListAdapterMultipleSelectionTest class >> isAbstract [ ^ self == SpAbstractListAdapterMultipleSelectionTest ] -{ #category : #initialization } +{ #category : 'initialization' } SpAbstractListAdapterMultipleSelectionTest >> initializeTestedInstance [ super initializeTestedInstance. @@ -19,14 +21,14 @@ SpAbstractListAdapterMultipleSelectionTest >> initializeTestedInstance [ items: {10. 20. 30. 'aaa' asText} ] -{ #category : #running } +{ #category : 'running' } SpAbstractListAdapterMultipleSelectionTest >> tearDown [ presenter delete. super tearDown ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractListAdapterMultipleSelectionTest >> testRightClickShowsMenu [ | menu | @@ -36,7 +38,7 @@ SpAbstractListAdapterMultipleSelectionTest >> testRightClickShowsMenu [ self assert: menu shown ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterMultipleSelectionTest >> testSelectManyIndexesKeepsAllSelected [ presenter selectIndex: 1. presenter selectIndex: 2. @@ -45,25 +47,25 @@ SpAbstractListAdapterMultipleSelectionTest >> testSelectManyIndexesKeepsAllSelec equals: #(1 2) ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterMultipleSelectionTest >> testSelectPresenterIndexOutsideRangeUnsetsSelectedIndexInWidget [ presenter selectIndex: 100. self assert: self adapter selectedIndexes isEmpty ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterMultipleSelectionTest >> testSelectPresenterIndexSetsSelectedIndexInWidget [ presenter selectIndex: 1. self assert: (self adapter selectedIndexes includes: 1) ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterMultipleSelectionTest >> testSelectPresenterItemSetsSelectedIndexInWidget [ presenter selectItem: 20. self assert: (self adapter selectedIndexes includes: 2) ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractListAdapterMultipleSelectionTest >> testSelectPresenterWithScrollingMakeSelectedItemVisible [ | visibleItems | @@ -87,7 +89,7 @@ SpAbstractListAdapterMultipleSelectionTest >> testSelectPresenterWithScrollingMa (visibleItems includes: presenter selection selectedIndexes first) ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractListAdapterMultipleSelectionTest >> testSelectPresenterWithoutScrollingDoesNotScroll [ | visibleItems verticalAlignment | @@ -114,7 +116,7 @@ SpAbstractListAdapterMultipleSelectionTest >> testSelectPresenterWithoutScrollin equals: visibleItems ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterMultipleSelectionTest >> testSelectWidgetIndexRaisesSelectionIndexChangeEventOnce [ | counter | counter := 0. @@ -124,7 +126,7 @@ SpAbstractListAdapterMultipleSelectionTest >> testSelectWidgetIndexRaisesSelecti self assert: counter equals: 1 ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterMultipleSelectionTest >> testSelectWidgetIndexRaisesSelectionIndexChangeEventWithSelectedIndex [ | selectedIndex | presenter selection @@ -133,20 +135,20 @@ SpAbstractListAdapterMultipleSelectionTest >> testSelectWidgetIndexRaisesSelecti self assert: (selectedIndex includes: 1) ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterMultipleSelectionTest >> testStringColumnsShouldBeNonEditable [ self assert: (self adapter isNonEditableRow: 4 column: 1) ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterMultipleSelectionTest >> testSubscribeToEventDoesNotRaiseEvent [ presenter selection whenChangedDo: [ :selection | self fail ]. ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterMultipleSelectionTest >> testUnselectAllInWidgetRaisesEmptySelectionChangeEvent [ | gotSelection | self adapter selectIndex: 1. @@ -156,7 +158,7 @@ SpAbstractListAdapterMultipleSelectionTest >> testUnselectAllInWidgetRaisesEmpty self assert: gotSelection isEmpty ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterMultipleSelectionTest >> testUnselectAllInWidgetRaisesSelectionIndexChangeEventOnce [ | counter | counter := 0. diff --git a/src/Spec2-Backend-Tests/SpAbstractListAdapterSingleSelectionTest.class.st b/src/Spec2-Backend-Tests/SpAbstractListAdapterSingleSelectionTest.class.st index eb5670d53..26790114d 100644 --- a/src/Spec2-Backend-Tests/SpAbstractListAdapterSingleSelectionTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractListAdapterSingleSelectionTest.class.st @@ -1,15 +1,17 @@ Class { - #name : #SpAbstractListAdapterSingleSelectionTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAbstractListAdapterSingleSelectionTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractListAdapterSingleSelectionTest class >> isAbstract [ ^ self == SpAbstractListAdapterSingleSelectionTest ] -{ #category : #initialization } +{ #category : 'initialization' } SpAbstractListAdapterSingleSelectionTest >> initializeTestedInstance [ super initializeTestedInstance. @@ -20,39 +22,39 @@ SpAbstractListAdapterSingleSelectionTest >> initializeTestedInstance [ ] -{ #category : #running } +{ #category : 'running' } SpAbstractListAdapterSingleSelectionTest >> tearDown [ presenter delete. super tearDown ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterSingleSelectionTest >> testSelectManyIndexesKeepsLastSelectionInWidget [ presenter selectIndex: 1. presenter selectIndex: 2. self assert: self adapter selectedIndexes equals: #(2) ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterSingleSelectionTest >> testSelectPresenterIndexOutsideRangeUnsetsSelectedIndexInWidget [ presenter selectIndex: 100. self assert: self adapter selectedIndexes isEmpty ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterSingleSelectionTest >> testSelectPresenterIndexSetsSelectedIndexInWidget [ presenter selectIndex: 1. self assert: (self adapter selectedIndexes includes: 1) ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterSingleSelectionTest >> testSelectPresenterItemSetsSelectedIndexInWidget [ presenter selectItem: 20. self assert: (self adapter selectedIndexes includes: 2) ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterSingleSelectionTest >> testSelectPresenterWithScrollingMakeSelectedItemVisible [ | visibleItems | @@ -75,7 +77,7 @@ SpAbstractListAdapterSingleSelectionTest >> testSelectPresenterWithScrollingMake (visibleItems includes: presenter selection selectedIndex) ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterSingleSelectionTest >> testSelectPresenterWithoutScrollingDoesNotScroll [ | visibleItems verticalAlignment | @@ -101,7 +103,7 @@ SpAbstractListAdapterSingleSelectionTest >> testSelectPresenterWithoutScrollingD equals: visibleItems ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterSingleSelectionTest >> testSelectWidgetIndexRaisesSelectionIndexChangeEventOnce [ | counter | counter := 0. @@ -111,7 +113,7 @@ SpAbstractListAdapterSingleSelectionTest >> testSelectWidgetIndexRaisesSelection self assert: counter equals: 1 ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterSingleSelectionTest >> testSelectWidgetIndexRaisesSelectionIndexChangeEventWithSelectedIndex [ | selectedIndex | presenter selection @@ -120,14 +122,14 @@ SpAbstractListAdapterSingleSelectionTest >> testSelectWidgetIndexRaisesSelection self assert: selectedIndex equals: 1 ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterSingleSelectionTest >> testSubscribeToEventDoesNotRaiseEvent [ presenter selection whenChangedDo: [ :selection | self fail ]. ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterSingleSelectionTest >> testUnselectAllInWidgetNotRaisesEmptySelectionChangeEvent [ | gotSelection | presenter selection @@ -136,7 +138,7 @@ SpAbstractListAdapterSingleSelectionTest >> testUnselectAllInWidgetNotRaisesEmpt self assert: gotSelection isNil ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterSingleSelectionTest >> testUnselectAllInWidgetWithoutSelectionDoesNotRaiseEvent [ | counter | counter := 0. @@ -146,7 +148,7 @@ SpAbstractListAdapterSingleSelectionTest >> testUnselectAllInWidgetWithoutSelect self assert: counter equals: 0 ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterSingleSelectionTest >> testUnselectPresenterIndexUnselectsIndexInWidget [ presenter selectIndex: 1; @@ -154,7 +156,7 @@ SpAbstractListAdapterSingleSelectionTest >> testUnselectPresenterIndexUnselectsI self assert: self adapter selectedIndexes isEmpty ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpAbstractListAdapterSingleSelectionTest >> testUnselectPresenterItemUnselectsIndexInWidget [ presenter selectItem: 20; @@ -162,7 +164,7 @@ SpAbstractListAdapterSingleSelectionTest >> testUnselectPresenterItemUnselectsIn self assert: self adapter selectedIndexes isEmpty ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterSingleSelectionTest >> testUnselectWidgetIndexRaisesSelectionIndexChangeEventOnce [ | counter | counter := 0. @@ -173,7 +175,7 @@ SpAbstractListAdapterSingleSelectionTest >> testUnselectWidgetIndexRaisesSelecti self assert: counter equals: 1 ] -{ #category : #'tests - widget-to-model' } +{ #category : 'tests - widget-to-model' } SpAbstractListAdapterSingleSelectionTest >> testUnselectWidgetIndexRaisesSelectionIndexChangeEventWithSelectedIndex [ | selectedIndex | self adapter selectIndex: 1. diff --git a/src/Spec2-Backend-Tests/SpAbstractListCommonPropertiestTest.class.st b/src/Spec2-Backend-Tests/SpAbstractListCommonPropertiestTest.class.st index df93cd837..f37aac1e4 100644 --- a/src/Spec2-Backend-Tests/SpAbstractListCommonPropertiestTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractListCommonPropertiestTest.class.st @@ -1,21 +1,23 @@ Class { - #name : #SpAbstractListCommonPropertiestTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAbstractListCommonPropertiestTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractListCommonPropertiestTest class >> isAbstract [ ^ self == SpAbstractListCommonPropertiestTest ] -{ #category : #initialization } +{ #category : 'initialization' } SpAbstractListCommonPropertiestTest >> initializeTestedInstance [ presenter items: #(10 20 30). ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractListCommonPropertiestTest >> testChangeListInPresenterUpdatesWidget [ self presenter items: #( '1' '2' '3'). @@ -23,7 +25,7 @@ SpAbstractListCommonPropertiestTest >> testChangeListInPresenterUpdatesWidget [ backendForTest assertList: self adapter displayItems: #('1' '2' '3') ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractListCommonPropertiestTest >> testDoubleClickActivatesRowInDoubleClickActivationMode [ | activated | @@ -36,14 +38,14 @@ SpAbstractListCommonPropertiestTest >> testDoubleClickActivatesRowInDoubleClickA self assert: activated ] -{ #category : #'tests - scrolling' } +{ #category : 'tests - scrolling' } SpAbstractListCommonPropertiestTest >> testFirstVisibleRowIsInitiallyFirstRow [ presenter items: (1 to: 500). self openInstance. self assert: presenter verticalAlignment firstVisibleRowIndex equals: 1 ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractListCommonPropertiestTest >> testRightClickShowsMenu [ | menu | @@ -53,7 +55,7 @@ SpAbstractListCommonPropertiestTest >> testRightClickShowsMenu [ self assert: menu shown ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractListCommonPropertiestTest >> testRightClickShowsMenuWhenThereAreNoItems [ | menu | @@ -66,7 +68,7 @@ SpAbstractListCommonPropertiestTest >> testRightClickShowsMenuWhenThereAreNoItem self assert: menu shown ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractListCommonPropertiestTest >> testSingleClickActivatesRowInSingleClickActivationMode [ | activated | @@ -80,7 +82,7 @@ SpAbstractListCommonPropertiestTest >> testSingleClickActivatesRowInSingleClickA self assert: activated. ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractListCommonPropertiestTest >> testTypePerformsSearch [ self presenter selection selectIndex: 1. "10" diff --git a/src/Spec2-Backend-Tests/SpAbstractMorphicAdapter.extension.st b/src/Spec2-Backend-Tests/SpAbstractMorphicAdapter.extension.st index d221e53c4..1db8a2d60 100644 --- a/src/Spec2-Backend-Tests/SpAbstractMorphicAdapter.extension.st +++ b/src/Spec2-Backend-Tests/SpAbstractMorphicAdapter.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SpAbstractMorphicAdapter } +Extension { #name : 'SpAbstractMorphicAdapter' } -{ #category : #'*Spec2-Backend-Tests' } +{ #category : '*Spec2-Backend-Tests' } SpAbstractMorphicAdapter >> typeForSearch: aString [ "emulate we are typing to perform a search" diff --git a/src/Spec2-Backend-Tests/SpAbstractSearchTest.class.st b/src/Spec2-Backend-Tests/SpAbstractSearchTest.class.st index 1c173871c..7b548b59d 100644 --- a/src/Spec2-Backend-Tests/SpAbstractSearchTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractSearchTest.class.st @@ -1,34 +1,36 @@ Class { - #name : #SpAbstractSearchTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAbstractSearchTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractSearchTest class >> isAbstract [ ^ self = SpAbstractSearchTest ] -{ #category : #initialization } +{ #category : 'initialization' } SpAbstractSearchTest >> initializeTestedInstance [ presenter items: #(10 20 30). ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractSearchTest >> selectIndex: index [ self presenter selection selectIndex: index ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractSearchTest >> selectedIndex [ ^ self presenter selection selectedIndex ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractSearchTest >> testSearchWithFunction [ self presenter searchMatching: [ :item :textToSearch | @@ -40,7 +42,7 @@ SpAbstractSearchTest >> testSearchWithFunction [ self assert: self selectedIndex equals: 3 "20" ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractSearchTest >> testTypePerformsSearch [ self selectIndex: 1. "10" diff --git a/src/Spec2-Backend-Tests/SpAbstractTextAdapterTest.class.st b/src/Spec2-Backend-Tests/SpAbstractTextAdapterTest.class.st index 8ac68079d..667c9f80b 100644 --- a/src/Spec2-Backend-Tests/SpAbstractTextAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractTextAdapterTest.class.st @@ -1,20 +1,22 @@ Class { - #name : #SpAbstractTextAdapterTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAbstractTextAdapterTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractTextAdapterTest class >> isAbstract [ ^ self = SpAbstractTextAdapterTest ] -{ #category : #testing } +{ #category : 'testing' } SpAbstractTextAdapterTest class >> shouldInheritSelectors [ ^ true ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTextAdapterTest >> testBeNotEditableAfterOpenWorks [ self openInstance. @@ -24,7 +26,7 @@ SpAbstractTextAdapterTest >> testBeNotEditableAfterOpenWorks [ self assert: presenter text isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTextAdapterTest >> testBeNotEditableWorks [ presenter beNotEditable. @@ -39,19 +41,19 @@ SpAbstractTextAdapterTest >> testBeNotEditableWorks [ self assert: presenter text isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTextAdapterTest >> testChangePlaceholderTextUpdatesPresenter [ presenter placeholder: 'some text'. self assert: self adapter placeHolderText equals: 'some text' ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTextAdapterTest >> testPresenterPlaceholderIsSetInWidget [ presenter placeholder: 'something'. self assert: self adapter placeHolderText equals: 'something' ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTextAdapterTest >> testSelectionInterval [ presenter text: 'test'. @@ -64,7 +66,7 @@ SpAbstractTextAdapterTest >> testSelectionInterval [ equals: (1 to: 4) ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTextAdapterTest >> testSelectionIntervalNilUnselectsEverything [ presenter text: 'test'. diff --git a/src/Spec2-Backend-Tests/SpAbstractTreeTableAdapterTest.class.st b/src/Spec2-Backend-Tests/SpAbstractTreeTableAdapterTest.class.st index 043fb13fe..a6a6aaba7 100644 --- a/src/Spec2-Backend-Tests/SpAbstractTreeTableAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractTreeTableAdapterTest.class.st @@ -1,22 +1,24 @@ Class { - #name : #SpAbstractTreeTableAdapterTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAbstractTreeTableAdapterTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractTreeTableAdapterTest class >> isAbstract [ ^ self = SpAbstractTreeTableAdapterTest ] -{ #category : #accessing } +{ #category : 'accessing' } SpAbstractTreeTableAdapterTest >> classToTest [ ^ SpTreeTablePresenter ] -{ #category : #initialization } +{ #category : 'initialization' } SpAbstractTreeTableAdapterTest >> initializeTestedInstance [ presenter addColumn: (SpStringTableColumn title: 'Value' evaluated: #printString); @@ -25,7 +27,7 @@ SpAbstractTreeTableAdapterTest >> initializeTestedInstance [ children: [ :aNumber | {(aNumber * 2) . (aNumber * 3) . (aNumber * 10)} ] ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testAfterOpeningEmptyLazyChildrenExpandIconVanish [ presenter children: [ :aNumber | aNumber odd ifTrue: [ {(aNumber * 2) . (aNumber * 3) . (aNumber * 10)} ] ifFalse: [ #() ] ]; @@ -40,7 +42,7 @@ SpAbstractTreeTableAdapterTest >> testAfterOpeningEmptyLazyChildrenExpandIconVan self deny: (self adapter isRowMorphExpandableAt: 2) ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testChangingRootsResetsSelection [ self presenter selection selectPath: #(2 3). @@ -50,7 +52,7 @@ SpAbstractTreeTableAdapterTest >> testChangingRootsResetsSelection [ ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testChangingRootsUpdateWidget [ self presenter roots: #(10 11 12). @@ -60,7 +62,7 @@ SpAbstractTreeTableAdapterTest >> testChangingRootsUpdateWidget [ ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testItemsWithoutChildrenDoNotHaveExpandIcon [ presenter children: [ :aNumber | aNumber odd ifTrue: [ {(aNumber * 2) . (aNumber * 3) . (aNumber * 10)} ] ifFalse: [ #() ] ]. @@ -69,7 +71,7 @@ SpAbstractTreeTableAdapterTest >> testItemsWithoutChildrenDoNotHaveExpandIcon [ self assert: (self adapter isRowMorphExpandableAt: 3) ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testLazilyComputeChildrenDoesNotComputeChildren [ presenter children: [ :aNumber | aNumber odd ifTrue: [ {(aNumber * 2) . (aNumber * 3) . (aNumber * 10)} ] ifFalse: [ #() ] ]; @@ -82,7 +84,7 @@ SpAbstractTreeTableAdapterTest >> testLazilyComputeChildrenDoesNotComputeChildre self assert: (self adapter isRowMorphExpandableAt: 3) ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testRightClickShowsMenu [ | menu | @@ -92,7 +94,7 @@ SpAbstractTreeTableAdapterTest >> testRightClickShowsMenu [ self assert: menu shown ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testSelectItemRaiseEvent [ | called | @@ -103,28 +105,28 @@ SpAbstractTreeTableAdapterTest >> testSelectItemRaiseEvent [ self assert: called equals: true ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testSelectItemSelectsTheGivenElement [ self presenter selection selectPath: #(2). self assert: self adapter selectedItem equals: 2. ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testSelectItemSelectsTheGivenElementAndExpandsTheBranches [ self presenter selection selectPath: #(2 3). self assert: self adapter selectedItem equals: 20. ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testSelectingAPathUpdatesSelectionInPresenter [ self presenter selection selectPath: #(2 3). self assert: self presenter selectedItem equals: 20. ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testSelectingOutOfRangeKeepOldSelection [ self presenter selection selectPath: #(2 3). @@ -133,7 +135,7 @@ SpAbstractTreeTableAdapterTest >> testSelectingOutOfRangeKeepOldSelection [ ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testShowingColumnDisplayColumn [ self presenter showColumnHeaders. @@ -141,7 +143,7 @@ SpAbstractTreeTableAdapterTest >> testShowingColumnDisplayColumn [ backendForTest assertHasHeader: self adapter ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractTreeTableAdapterTest >> testStartsWithoutSelection [ self assert: self adapter selectedItem equals: nil. diff --git a/src/Spec2-Backend-Tests/SpAbstractWidgetAdapterTest.class.st b/src/Spec2-Backend-Tests/SpAbstractWidgetAdapterTest.class.st index c1b123161..0d357331f 100644 --- a/src/Spec2-Backend-Tests/SpAbstractWidgetAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpAbstractWidgetAdapterTest.class.st @@ -1,23 +1,25 @@ Class { - #name : #SpAbstractWidgetAdapterTest, - #superclass : #SpAbstractAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAbstractWidgetAdapterTest', + #superclass : 'SpAbstractAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #testing } +{ #category : 'testing' } SpAbstractWidgetAdapterTest class >> isAbstract [ ^ self name = #SpAbstractWidgetAdapterTest ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractWidgetAdapterTest >> testChangingHelpAffectTheWidget [ presenter help: 'ALabel'. self assert: self adapter helpText equals: 'ALabel' ] -{ #category : #tests } +{ #category : 'tests' } SpAbstractWidgetAdapterTest >> testEnabledAffectWidget [ presenter enabled: false. diff --git a/src/Spec2-Backend-Tests/SpAfterTestInitializationStrategy.class.st b/src/Spec2-Backend-Tests/SpAfterTestInitializationStrategy.class.st index 9be3586f6..a4c318876 100644 --- a/src/Spec2-Backend-Tests/SpAfterTestInitializationStrategy.class.st +++ b/src/Spec2-Backend-Tests/SpAfterTestInitializationStrategy.class.st @@ -3,12 +3,14 @@ I open the spec instances once the entire fixture and stimuli has run on it. Then, assertions are run on an open presenter that should have been correctly configured. " Class { - #name : #SpAfterTestInitializationStrategy, - #superclass : #SpInitializationStrategy, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAfterTestInitializationStrategy', + #superclass : 'SpInitializationStrategy', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #running } +{ #category : 'running' } SpAfterTestInitializationStrategy >> beforeAssertInTest: aSpecTest [ "Assume openInstance will open it only the first time" diff --git a/src/Spec2-Backend-Tests/SpAthensAdapterTest.class.st b/src/Spec2-Backend-Tests/SpAthensAdapterTest.class.st index e77cb20ba..983e7d540 100644 --- a/src/Spec2-Backend-Tests/SpAthensAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpAthensAdapterTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpAthensAdapterTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpAthensAdapterTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpAthensAdapterTest >> circle: aSurface [ ^ aSurface createPath: [ :builder | @@ -17,18 +19,18 @@ SpAthensAdapterTest >> circle: aSurface [ ccwArcTo: 50 @ 150 angle: 90 degreesToRadians] ] -{ #category : #accessing } +{ #category : 'accessing' } SpAthensAdapterTest >> classToTest [ ^ SpAthensPresenter ] -{ #category : #initialization } +{ #category : 'initialization' } SpAthensAdapterTest >> initializeTestedInstance [ presenter drawBlock: [ "nothing to do" ]. presenter surfaceExtent: 800@600 ] -{ #category : #tests } +{ #category : 'tests' } SpAthensAdapterTest >> testContextMenu [ | menu changed | @@ -42,7 +44,7 @@ SpAthensAdapterTest >> testContextMenu [ self assert: changed ] -{ #category : #tests } +{ #category : 'tests' } SpAthensAdapterTest >> testPresentersBlockReceivesAthensCanvas [ | receivedCanvas | self presenter drawBlock: [ :canvas | receivedCanvas := canvas ]. @@ -54,7 +56,7 @@ SpAthensAdapterTest >> testPresentersBlockReceivesAthensCanvas [ self assert: (receivedCanvas isKindOf: AthensCanvas) ] -{ #category : #tests } +{ #category : 'tests' } SpAthensAdapterTest >> testResizeMakesCanvasResize [ | extent | diff --git a/src/Spec2-Backend-Tests/SpBeforeTestInitializationStrategy.class.st b/src/Spec2-Backend-Tests/SpBeforeTestInitializationStrategy.class.st index 4813803d3..1f84bcbea 100644 --- a/src/Spec2-Backend-Tests/SpBeforeTestInitializationStrategy.class.st +++ b/src/Spec2-Backend-Tests/SpBeforeTestInitializationStrategy.class.st @@ -3,12 +3,14 @@ I open the spec instances before the stimuli has run on it. Then, all stimuli is run on an open presenter that should been correctly configured. " Class { - #name : #SpBeforeTestInitializationStrategy, - #superclass : #SpInitializationStrategy, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpBeforeTestInitializationStrategy', + #superclass : 'SpInitializationStrategy', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #running } +{ #category : 'running' } SpBeforeTestInitializationStrategy >> beforeTest: aSpecTest [ aSpecTest openInstance diff --git a/src/Spec2-Backend-Tests/SpBoxLayoutAdapterTest.class.st b/src/Spec2-Backend-Tests/SpBoxLayoutAdapterTest.class.st index d828df1b3..f83fefe2b 100644 --- a/src/Spec2-Backend-Tests/SpBoxLayoutAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpBoxLayoutAdapterTest.class.st @@ -1,16 +1,18 @@ Class { - #name : #SpBoxLayoutAdapterTest, - #superclass : #SpLayoutAdapterTest, - #category : #'Spec2-Backend-Tests-Layout' + #name : 'SpBoxLayoutAdapterTest', + #superclass : 'SpLayoutAdapterTest', + #category : 'Spec2-Backend-Tests-Layout', + #package : 'Spec2-Backend-Tests', + #tag : 'Layout' } -{ #category : #testing } +{ #category : 'testing' } SpBoxLayoutAdapterTest class >> isAbstract [ ^ self == SpBoxLayoutAdapterTest ] -{ #category : #tests } +{ #category : 'tests' } SpBoxLayoutAdapterTest >> testAdapterElementsAreInSameOrderThanLayout [ | first second | @@ -20,14 +22,14 @@ SpBoxLayoutAdapterTest >> testAdapterElementsAreInSameOrderThanLayout [ self assert: self adapter children second equals: second adapter widget. ] -{ #category : #tests } +{ #category : 'tests' } SpBoxLayoutAdapterTest >> testAddElementAddsToAdapter [ layout add: SpButtonPresenter new. self deny: self adapter isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpBoxLayoutAdapterTest >> testAddElementAfterOpenAddsToAdapter [ layout add: SpButtonPresenter new. @@ -37,7 +39,7 @@ SpBoxLayoutAdapterTest >> testAddElementAfterOpenAddsToAdapter [ self assert: self adapter children size equals: 2 ] -{ #category : #tests } +{ #category : 'tests' } SpBoxLayoutAdapterTest >> testLayoutCanHaveMoreThanTwoChildren [ layout add: SpButtonPresenter new. @@ -47,7 +49,7 @@ SpBoxLayoutAdapterTest >> testLayoutCanHaveMoreThanTwoChildren [ self assert: layout children size equals: 3 ] -{ #category : #tests } +{ #category : 'tests' } SpBoxLayoutAdapterTest >> testRemoveElementAddedAfterOpenRemovesFromAdapter [ | element | @@ -58,7 +60,7 @@ SpBoxLayoutAdapterTest >> testRemoveElementAddedAfterOpenRemovesFromAdapter [ self assert: self adapter isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpBoxLayoutAdapterTest >> testRemoveElementRemovesFromAdapter [ | element | @@ -67,7 +69,7 @@ SpBoxLayoutAdapterTest >> testRemoveElementRemovesFromAdapter [ self assert: self adapter isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpBoxLayoutAdapterTest >> testReplaceElementAfterOpen [ | p1 toReplace p2 replacement | @@ -88,7 +90,7 @@ SpBoxLayoutAdapterTest >> testReplaceElementAfterOpen [ p2 adapter widget } ] -{ #category : #tests } +{ #category : 'tests' } SpBoxLayoutAdapterTest >> testReplaceElementAppliesStyle [ | p1 toReplace p2 replacement | @@ -107,7 +109,7 @@ SpBoxLayoutAdapterTest >> testReplaceElementAppliesStyle [ equals: StandardFonts codeFont ] -{ #category : #tests } +{ #category : 'tests' } SpBoxLayoutAdapterTest >> testReplaceElementBeforeOpenAppliesStyle [ | p1 toReplace p2 replacement | diff --git a/src/Spec2-Backend-Tests/SpButtonAdapterTest.class.st b/src/Spec2-Backend-Tests/SpButtonAdapterTest.class.st index 33a24fa62..193158c68 100644 --- a/src/Spec2-Backend-Tests/SpButtonAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpButtonAdapterTest.class.st @@ -1,16 +1,18 @@ Class { - #name : #SpButtonAdapterTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpButtonAdapterTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpButtonAdapterTest >> classToTest [ ^ SpButtonPresenter ] -{ #category : #tests } +{ #category : 'tests' } SpButtonAdapterTest >> testChangingIconAffectTheWidget [ presenter iconName: #pharo. @@ -18,14 +20,14 @@ SpButtonAdapterTest >> testChangingIconAffectTheWidget [ self assertIcon: self adapter icon equals: (self iconNamed: #pharo) ] -{ #category : #tests } +{ #category : 'tests' } SpButtonAdapterTest >> testChangingLabelAffectTheWidget [ presenter label: 'ALabel'. self assert: self adapter label equals: 'ALabel' ] -{ #category : #tests } +{ #category : 'tests' } SpButtonAdapterTest >> testClickExecuteAction [ | actionExecuted | @@ -36,7 +38,7 @@ SpButtonAdapterTest >> testClickExecuteAction [ self assert: actionExecuted ] -{ #category : #tests } +{ #category : 'tests' } SpButtonAdapterTest >> testNoClickDoesNotExecuteAction [ | actionExecuted | actionExecuted := false. @@ -45,7 +47,7 @@ SpButtonAdapterTest >> testNoClickDoesNotExecuteAction [ self deny: actionExecuted ] -{ #category : #tests } +{ #category : 'tests' } SpButtonAdapterTest >> testRightClickShouldNotExecuteAction [ | actionExecuted | @@ -56,7 +58,7 @@ SpButtonAdapterTest >> testRightClickShouldNotExecuteAction [ self deny: actionExecuted ] -{ #category : #tests } +{ #category : 'tests' } SpButtonAdapterTest >> testRightClickShowsMenu [ | menu | @@ -66,7 +68,7 @@ SpButtonAdapterTest >> testRightClickShowsMenu [ self assert: menu shown ] -{ #category : #tests } +{ #category : 'tests' } SpButtonAdapterTest >> testWhenActivatedDo [ | actionExecuted | diff --git a/src/Spec2-Backend-Tests/SpCheckboxAdapterTest.class.st b/src/Spec2-Backend-Tests/SpCheckboxAdapterTest.class.st index f02805653..879161343 100644 --- a/src/Spec2-Backend-Tests/SpCheckboxAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpCheckboxAdapterTest.class.st @@ -1,23 +1,25 @@ Class { - #name : #SpCheckboxAdapterTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpCheckboxAdapterTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpCheckboxAdapterTest >> classToTest [ ^ SpCheckBoxPresenter ] -{ #category : #tests } +{ #category : 'tests' } SpCheckboxAdapterTest >> testActivatedCheckboxPresenterStartsActivatedCheckboxMorph [ presenter state: true. self assert: self adapter state ] -{ #category : #tests } +{ #category : 'tests' } SpCheckboxAdapterTest >> testChangeActivatedAfterOpenCheckboxDectivatesIt [ presenter state: false. @@ -30,7 +32,7 @@ SpCheckboxAdapterTest >> testChangeActivatedAfterOpenCheckboxDectivatesIt [ self assert: presenter state ] -{ #category : #tests } +{ #category : 'tests' } SpCheckboxAdapterTest >> testChangeDeactivatedAfterOpenCheckboxDectivatesIt [ presenter state: true. @@ -43,14 +45,14 @@ SpCheckboxAdapterTest >> testChangeDeactivatedAfterOpenCheckboxDectivatesIt [ self deny: presenter state ] -{ #category : #tests } +{ #category : 'tests' } SpCheckboxAdapterTest >> testChangingLabelAffectTheWidget [ presenter label: 'ALabel'. self assert: self widget label equals: 'ALabel' ] -{ #category : #tests } +{ #category : 'tests' } SpCheckboxAdapterTest >> testClickActivatedCheckboxDectivatesIt [ presenter state: true. @@ -59,7 +61,7 @@ SpCheckboxAdapterTest >> testClickActivatedCheckboxDectivatesIt [ self deny: presenter state ] -{ #category : #tests } +{ #category : 'tests' } SpCheckboxAdapterTest >> testClickDeactivatedCheckboxActivatesIt [ presenter state: false. @@ -68,7 +70,7 @@ SpCheckboxAdapterTest >> testClickDeactivatedCheckboxActivatesIt [ self assert: presenter state ] -{ #category : #tests } +{ #category : 'tests' } SpCheckboxAdapterTest >> testClickRaisesChangedEvent [ | activated | @@ -79,7 +81,7 @@ SpCheckboxAdapterTest >> testClickRaisesChangedEvent [ self assert: activated ] -{ #category : #tests } +{ #category : 'tests' } SpCheckboxAdapterTest >> testDeactivatedCheckboxPresenterStartsDeactivatedCheckboxMorph [ presenter state: false. diff --git a/src/Spec2-Backend-Tests/SpCodeStyleForTest.class.st b/src/Spec2-Backend-Tests/SpCodeStyleForTest.class.st index 9a68a0aa7..1fb2ac712 100644 --- a/src/Spec2-Backend-Tests/SpCodeStyleForTest.class.st +++ b/src/Spec2-Backend-Tests/SpCodeStyleForTest.class.st @@ -1,24 +1,26 @@ Class { - #name : #SpCodeStyleForTest, - #superclass : #Object, + #name : 'SpCodeStyleForTest', + #superclass : 'Object', #instVars : [ 'foreground' ], - #category : #'Spec2-Backend-Tests-Base' + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #comparing } +{ #category : 'comparing' } SpCodeStyleForTest >> = aTag [ ^ self foreground = aTag foreground ] -{ #category : #accessing } +{ #category : 'accessing' } SpCodeStyleForTest >> foreground [ ^ foreground ] -{ #category : #accessing } +{ #category : 'accessing' } SpCodeStyleForTest >> foreground: anObject [ foreground := anObject ] diff --git a/src/Spec2-Backend-Tests/SpComponentListAdapterMultipleSelectionTest.class.st b/src/Spec2-Backend-Tests/SpComponentListAdapterMultipleSelectionTest.class.st index a8a789ea9..57e4dce23 100644 --- a/src/Spec2-Backend-Tests/SpComponentListAdapterMultipleSelectionTest.class.st +++ b/src/Spec2-Backend-Tests/SpComponentListAdapterMultipleSelectionTest.class.st @@ -1,16 +1,18 @@ Class { - #name : #SpComponentListAdapterMultipleSelectionTest, - #superclass : #SpAbstractListAdapterMultipleSelectionTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpComponentListAdapterMultipleSelectionTest', + #superclass : 'SpAbstractListAdapterMultipleSelectionTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpComponentListAdapterMultipleSelectionTest >> classToTest [ ^ SpComponentListPresenter ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpComponentListAdapterMultipleSelectionTest >> testSelectPresenterItemSetsSelectedIndexInWidget [ presenter selectItem: (presenter items at: 2). diff --git a/src/Spec2-Backend-Tests/SpComponentListAdapterSingleSelectionTest.class.st b/src/Spec2-Backend-Tests/SpComponentListAdapterSingleSelectionTest.class.st index 82bc793ea..293d37107 100644 --- a/src/Spec2-Backend-Tests/SpComponentListAdapterSingleSelectionTest.class.st +++ b/src/Spec2-Backend-Tests/SpComponentListAdapterSingleSelectionTest.class.st @@ -1,16 +1,18 @@ Class { - #name : #SpComponentListAdapterSingleSelectionTest, - #superclass : #SpAbstractListAdapterSingleSelectionTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpComponentListAdapterSingleSelectionTest', + #superclass : 'SpAbstractListAdapterSingleSelectionTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpComponentListAdapterSingleSelectionTest >> classToTest [ ^ SpComponentListPresenter ] -{ #category : #'tests - model-to-widget' } +{ #category : 'tests - model-to-widget' } SpComponentListAdapterSingleSelectionTest >> testSelectPresenterItemSetsSelectedIndexInWidget [ presenter selectItem: (presenter items at: 2). diff --git a/src/Spec2-Backend-Tests/SpComponentListAdapterTest.class.st b/src/Spec2-Backend-Tests/SpComponentListAdapterTest.class.st index a76d7f53d..1bf14a623 100644 --- a/src/Spec2-Backend-Tests/SpComponentListAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpComponentListAdapterTest.class.st @@ -1,16 +1,18 @@ Class { - #name : #SpComponentListAdapterTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpComponentListAdapterTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpComponentListAdapterTest >> classToTest [ ^ SpComponentListPresenter ] -{ #category : #tests } +{ #category : 'tests' } SpComponentListAdapterTest >> testAddPresenterAddsWidget [ | button | @@ -21,7 +23,7 @@ SpComponentListAdapterTest >> testAddPresenterAddsWidget [ self assert: self adapter children first equals: button adapter widget ] -{ #category : #tests } +{ #category : 'tests' } SpComponentListAdapterTest >> testEmptyPresenterHasEmptyAdapter [ backendForTest waitUntilUIRedrawed. diff --git a/src/Spec2-Backend-Tests/SpDropListAdapterTest.class.st b/src/Spec2-Backend-Tests/SpDropListAdapterTest.class.st index 21b00fb67..f54fde14f 100644 --- a/src/Spec2-Backend-Tests/SpDropListAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpDropListAdapterTest.class.st @@ -1,23 +1,25 @@ Class { - #name : #SpDropListAdapterTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpDropListAdapterTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpDropListAdapterTest >> classToTest [ ^ SpDropListPresenter ] -{ #category : #initialization } +{ #category : 'initialization' } SpDropListAdapterTest >> initializeTestedInstance [ super initializeTestedInstance. presenter items: #(10 20 30). ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testAddingIconsShowTheIcon [ #(pharo add book) do: [ :each | self presenter addItemLabeled: each do: [ ] icon: (self iconNamed: each) ]. @@ -27,13 +29,13 @@ SpDropListAdapterTest >> testAddingIconsShowTheIcon [ backendForTest assertIcon: self adapter displayedIcon equals: (self iconNamed: #pharo) ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testDoesNotShowIcons [ backendForTest assertIcon: self adapter displayedIcon equals: nil. ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testRemovingIconsAfterAddingThem [ #(pharo add book) do: [ :each | self presenter addItemLabeled: each do: [ ] icon: (self iconNamed: each) ]. @@ -46,7 +48,7 @@ SpDropListAdapterTest >> testRemovingIconsAfterAddingThem [ backendForTest assertIcon: self adapter displayedIcon equals: nil ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testResetingSelectionResetsSelection [ "reseting selection before start does not has sense if we set startWithSelection @@ -61,7 +63,7 @@ SpDropListAdapterTest >> testResetingSelectionResetsSelection [ self assert: self adapter selectedIndexes isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testSelectingASecondElementSelectsIt [ self presenter selectItem: 10. self presenter selectItem: 20. @@ -70,7 +72,7 @@ SpDropListAdapterTest >> testSelectingASecondElementSelectsIt [ self assert: self adapter selectedIndexes equals: #(2) ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testSelectingAnElementInWidgetUpdatePresenter [ self adapter selectIndex: 2. @@ -80,7 +82,7 @@ SpDropListAdapterTest >> testSelectingAnElementInWidgetUpdatePresenter [ ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testSelectingAnElementSelectsIt [ self presenter selectItem: 10. @@ -88,7 +90,7 @@ SpDropListAdapterTest >> testSelectingAnElementSelectsIt [ self assert: self adapter selectedIndexes equals: #(1) ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testSelectionExecutesBlock [ | selected | self presenter @@ -103,7 +105,7 @@ SpDropListAdapterTest >> testSelectionExecutesBlock [ self assert: selected equals: 20 ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testSelectionStartsSelectingFirst [ self assert: self presenter selectedItem equals: 10. @@ -111,7 +113,7 @@ SpDropListAdapterTest >> testSelectionStartsSelectingFirst [ ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testSettingNilResetsGeneratesEvent [ | changed | self presenter selectItem: 10. @@ -120,7 +122,7 @@ SpDropListAdapterTest >> testSettingNilResetsGeneratesEvent [ self assert: changed ] -{ #category : #tests } +{ #category : 'tests' } SpDropListAdapterTest >> testSettingNilResetsSelection [ "reseting selection before start does not has sense if we set startWithSelection diff --git a/src/Spec2-Backend-Tests/SpDropListWithoutInitialSelectionAdapterTest.class.st b/src/Spec2-Backend-Tests/SpDropListWithoutInitialSelectionAdapterTest.class.st index a0610bf5b..c09c5643b 100644 --- a/src/Spec2-Backend-Tests/SpDropListWithoutInitialSelectionAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpDropListWithoutInitialSelectionAdapterTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpDropListWithoutInitialSelectionAdapterTest, - #superclass : #SpDropListAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpDropListWithoutInitialSelectionAdapterTest', + #superclass : 'SpDropListAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #initialization } +{ #category : 'initialization' } SpDropListWithoutInitialSelectionAdapterTest >> initializeTestedInstance [ presenter startWithoutSelection. @@ -12,7 +14,7 @@ SpDropListWithoutInitialSelectionAdapterTest >> initializeTestedInstance [ ] -{ #category : #tests } +{ #category : 'tests' } SpDropListWithoutInitialSelectionAdapterTest >> testSelectionStartsEmptyIfStartWithoutSelectionIsSet [ self assert: self presenter selectedItem equals: nil. @@ -20,7 +22,7 @@ SpDropListWithoutInitialSelectionAdapterTest >> testSelectionStartsEmptyIfStartW ] -{ #category : #tests } +{ #category : 'tests' } SpDropListWithoutInitialSelectionAdapterTest >> testStartWithoutSelectionDoesNotTriggersChange [ | count | diff --git a/src/Spec2-Backend-Tests/SpExecutableLayoutTest.class.st b/src/Spec2-Backend-Tests/SpExecutableLayoutTest.class.st index 0c5e5224d..8472da83b 100644 --- a/src/Spec2-Backend-Tests/SpExecutableLayoutTest.class.st +++ b/src/Spec2-Backend-Tests/SpExecutableLayoutTest.class.st @@ -1,15 +1,17 @@ Class { - #name : #SpExecutableLayoutTest, - #superclass : #SpAbstractLayoutTest, - #category : #'Spec2-Backend-Tests-Layout' + #name : 'SpExecutableLayoutTest', + #superclass : 'SpAbstractLayoutTest', + #category : 'Spec2-Backend-Tests-Layout', + #package : 'Spec2-Backend-Tests', + #tag : 'Layout' } -{ #category : #accessing } +{ #category : 'accessing' } SpExecutableLayoutTest >> classToTest [ ^ SpMockDynamicPresenter ] -{ #category : #tests } +{ #category : 'tests' } SpExecutableLayoutTest >> testCanDynamicallyRebuildPresenter [ self openInstance. self assert: presenter label label equals: ''. @@ -17,7 +19,7 @@ SpExecutableLayoutTest >> testCanDynamicallyRebuildPresenter [ self assert: presenter label label equals: '1' ] -{ #category : #tests } +{ #category : 'tests' } SpExecutableLayoutTest >> testRebuildPresenterBeforeOpeningWorks [ self assert: presenter label label equals: ''. self diff --git a/src/Spec2-Backend-Tests/SpGridLayoutAdapterTest.class.st b/src/Spec2-Backend-Tests/SpGridLayoutAdapterTest.class.st index 812e014cc..0443fbc24 100644 --- a/src/Spec2-Backend-Tests/SpGridLayoutAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpGridLayoutAdapterTest.class.st @@ -1,16 +1,18 @@ Class { - #name : #SpGridLayoutAdapterTest, - #superclass : #SpLayoutAdapterTest, - #category : #'Spec2-Backend-Tests-Layout' + #name : 'SpGridLayoutAdapterTest', + #superclass : 'SpLayoutAdapterTest', + #category : 'Spec2-Backend-Tests-Layout', + #package : 'Spec2-Backend-Tests', + #tag : 'Layout' } -{ #category : #accessing } +{ #category : 'accessing' } SpGridLayoutAdapterTest >> newLayout [ ^ SpGridLayout new ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testAddAtSamePositionTwiceReplacesChild [ | first second | @@ -19,7 +21,7 @@ SpGridLayoutAdapterTest >> testAddAtSamePositionTwiceReplacesChild [ self assert: self adapter children first equals: second adapter widget ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testAddAtSamePositionTwiceSetsChildrenSingleTime [ layout add: (SpButtonPresenter new) at: 1@1. @@ -27,14 +29,14 @@ SpGridLayoutAdapterTest >> testAddAtSamePositionTwiceSetsChildrenSingleTime [ self assert: self adapter children size equals: 1 ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testAddElementAddsToAdapter [ layout add: SpButtonPresenter new at: 1@1. self deny: self adapter isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testAddElementAfterOpenAddsToAdapter [ layout add: SpButtonPresenter new at: 1@1. @@ -44,7 +46,7 @@ SpGridLayoutAdapterTest >> testAddElementAfterOpenAddsToAdapter [ self assert: self adapter children size equals: 2 ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testBeColumnHomogeneous [ layout @@ -59,7 +61,7 @@ SpGridLayoutAdapterTest >> testBeColumnHomogeneous [ equals: presenter adapter widget submorphs second width ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testBeColumnNotHomogeneous [ layout @@ -74,7 +76,7 @@ SpGridLayoutAdapterTest >> testBeColumnNotHomogeneous [ equals: presenter adapter widget submorphs second width ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testBeRowHomogeneous [ layout @@ -89,7 +91,7 @@ SpGridLayoutAdapterTest >> testBeRowHomogeneous [ equals: presenter adapter widget submorphs second height ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testBeRowNotHomogeneous [ | testMorph | @@ -110,7 +112,7 @@ SpGridLayoutAdapterTest >> testBeRowNotHomogeneous [ equals: presenter adapter widget submorphs second height ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testColumnSpanColumnHomogeneous [ layout @@ -127,7 +129,7 @@ SpGridLayoutAdapterTest >> testColumnSpanColumnHomogeneous [ + (presenter adapter widget submorphs third width)) ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testColumnSpanColumnNotHomogeneous [ layout @@ -148,7 +150,7 @@ SpGridLayoutAdapterTest >> testColumnSpanColumnNotHomogeneous [ assert: presenter adapter widget submorphs second width < (presenter adapter widget submorphs third width) ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testRemoveElementAddedAfterOpenRemovesFromAdapter [ | element | @@ -159,7 +161,7 @@ SpGridLayoutAdapterTest >> testRemoveElementAddedAfterOpenRemovesFromAdapter [ self assert: self adapter isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testRemoveElementRemovesFromAdapter [ | element | @@ -168,7 +170,7 @@ SpGridLayoutAdapterTest >> testRemoveElementRemovesFromAdapter [ self assert: self adapter isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testRowSpanRowHomogeneous [ | testMorph | @@ -190,7 +192,7 @@ SpGridLayoutAdapterTest >> testRowSpanRowHomogeneous [ + presenter adapter widget submorphs third height ] -{ #category : #tests } +{ #category : 'tests' } SpGridLayoutAdapterTest >> testRowSpanRowNotHomogeneous [ | testMorph | diff --git a/src/Spec2-Backend-Tests/SpHorizontalBoxLayoutAdapterTest.class.st b/src/Spec2-Backend-Tests/SpHorizontalBoxLayoutAdapterTest.class.st index 41c2e00d3..2dcc10f41 100644 --- a/src/Spec2-Backend-Tests/SpHorizontalBoxLayoutAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpHorizontalBoxLayoutAdapterTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpHorizontalBoxLayoutAdapterTest, - #superclass : #SpBoxLayoutAdapterTest, - #category : #'Spec2-Backend-Tests-Layout' + #name : 'SpHorizontalBoxLayoutAdapterTest', + #superclass : 'SpBoxLayoutAdapterTest', + #category : 'Spec2-Backend-Tests-Layout', + #package : 'Spec2-Backend-Tests', + #tag : 'Layout' } -{ #category : #accessing } +{ #category : 'accessing' } SpHorizontalBoxLayoutAdapterTest >> newLayout [ ^ SpBoxLayout newLeftToRight diff --git a/src/Spec2-Backend-Tests/SpHorizontalPanedLayoutAdapterTest.class.st b/src/Spec2-Backend-Tests/SpHorizontalPanedLayoutAdapterTest.class.st index dc11941ca..50ca6629a 100644 --- a/src/Spec2-Backend-Tests/SpHorizontalPanedLayoutAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpHorizontalPanedLayoutAdapterTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpHorizontalPanedLayoutAdapterTest, - #superclass : #SpPanedLayoutAdapterTest, - #category : #'Spec2-Backend-Tests-Layout' + #name : 'SpHorizontalPanedLayoutAdapterTest', + #superclass : 'SpPanedLayoutAdapterTest', + #category : 'Spec2-Backend-Tests-Layout', + #package : 'Spec2-Backend-Tests', + #tag : 'Layout' } -{ #category : #accessing } +{ #category : 'accessing' } SpHorizontalPanedLayoutAdapterTest >> newLayout [ ^ SpPanedLayout newLeftToRight diff --git a/src/Spec2-Backend-Tests/SpInitializationStrategy.class.st b/src/Spec2-Backend-Tests/SpInitializationStrategy.class.st index 2c172ba39..8a01ba19d 100644 --- a/src/Spec2-Backend-Tests/SpInitializationStrategy.class.st +++ b/src/Spec2-Backend-Tests/SpInitializationStrategy.class.st @@ -1,29 +1,31 @@ Class { - #name : #SpInitializationStrategy, - #superclass : #Object, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpInitializationStrategy', + #superclass : 'Object', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpInitializationStrategy class >> afterTest [ ^ SpAfterTestInitializationStrategy new ] -{ #category : #accessing } +{ #category : 'accessing' } SpInitializationStrategy class >> beforeTest [ ^ SpBeforeTestInitializationStrategy new ] -{ #category : #running } +{ #category : 'running' } SpInitializationStrategy >> beforeAssertInTest: aSpecTest [ "By default do nothing. Hook for subclasses" ] -{ #category : #running } +{ #category : 'running' } SpInitializationStrategy >> beforeTest: aSpecTest [ "By default do nothing. diff --git a/src/Spec2-Backend-Tests/SpLabelAdapterTest.class.st b/src/Spec2-Backend-Tests/SpLabelAdapterTest.class.st index a8625e10e..4b7809546 100644 --- a/src/Spec2-Backend-Tests/SpLabelAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpLabelAdapterTest.class.st @@ -2,17 +2,19 @@ SUnit tests for MorphicLabelAdapter " Class { - #name : #SpLabelAdapterTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpLabelAdapterTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpLabelAdapterTest >> classToTest [ ^ SpLabelPresenter ] -{ #category : #tests } +{ #category : 'tests' } SpLabelAdapterTest >> testSetLabelInPresenterAffectsWidget [ presenter label: 'something'. self assert: self adapter label equals: 'something' diff --git a/src/Spec2-Backend-Tests/SpLayoutAdapterTest.class.st b/src/Spec2-Backend-Tests/SpLayoutAdapterTest.class.st index eac3dac55..34d8de129 100644 --- a/src/Spec2-Backend-Tests/SpLayoutAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpLayoutAdapterTest.class.st @@ -1,38 +1,40 @@ Class { - #name : #SpLayoutAdapterTest, - #superclass : #SpAbstractAdapterTest, + #name : 'SpLayoutAdapterTest', + #superclass : 'SpAbstractAdapterTest', #instVars : [ 'layout' ], - #category : #'Spec2-Backend-Tests-Layout' + #category : 'Spec2-Backend-Tests-Layout', + #package : 'Spec2-Backend-Tests', + #tag : 'Layout' } -{ #category : #testing } +{ #category : 'testing' } SpLayoutAdapterTest class >> isAbstract [ ^ self == SpLayoutAdapterTest ] -{ #category : #accessing } +{ #category : 'accessing' } SpLayoutAdapterTest >> classToTest [ ^ SpEmptyPresenter ] -{ #category : #initialization } +{ #category : 'initialization' } SpLayoutAdapterTest >> initializeTestedInstance [ layout := self newLayout. presenter layout: layout ] -{ #category : #accessing } +{ #category : 'accessing' } SpLayoutAdapterTest >> newLayout [ self subclassResponsibility ] -{ #category : #tests } +{ #category : 'tests' } SpLayoutAdapterTest >> testEmptyLayoutHasEmptyAdapter [ self assert: self adapter isEmpty diff --git a/src/Spec2-Backend-Tests/SpListAdapterMultipleSelectionTest.class.st b/src/Spec2-Backend-Tests/SpListAdapterMultipleSelectionTest.class.st index c00d834a5..5e8b2341b 100644 --- a/src/Spec2-Backend-Tests/SpListAdapterMultipleSelectionTest.class.st +++ b/src/Spec2-Backend-Tests/SpListAdapterMultipleSelectionTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpListAdapterMultipleSelectionTest, - #superclass : #SpAbstractListAdapterMultipleSelectionTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpListAdapterMultipleSelectionTest', + #superclass : 'SpAbstractListAdapterMultipleSelectionTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpListAdapterMultipleSelectionTest >> classToTest [ ^ SpListPresenter ] diff --git a/src/Spec2-Backend-Tests/SpListAdapterSingleSelectionTest.class.st b/src/Spec2-Backend-Tests/SpListAdapterSingleSelectionTest.class.st index de1c6d0c0..42760a99c 100644 --- a/src/Spec2-Backend-Tests/SpListAdapterSingleSelectionTest.class.st +++ b/src/Spec2-Backend-Tests/SpListAdapterSingleSelectionTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpListAdapterSingleSelectionTest, - #superclass : #SpAbstractListAdapterSingleSelectionTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpListAdapterSingleSelectionTest', + #superclass : 'SpAbstractListAdapterSingleSelectionTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpListAdapterSingleSelectionTest >> classToTest [ ^ SpListPresenter ] diff --git a/src/Spec2-Backend-Tests/SpListCommonPropertiestTest.class.st b/src/Spec2-Backend-Tests/SpListCommonPropertiestTest.class.st index 7c2ad1d7c..ab2891c8f 100644 --- a/src/Spec2-Backend-Tests/SpListCommonPropertiestTest.class.st +++ b/src/Spec2-Backend-Tests/SpListCommonPropertiestTest.class.st @@ -1,15 +1,17 @@ Class { - #name : #SpListCommonPropertiestTest, - #superclass : #SpAbstractListCommonPropertiestTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpListCommonPropertiestTest', + #superclass : 'SpAbstractListCommonPropertiestTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpListCommonPropertiestTest >> classToTest [ ^ SpListPresenter ] -{ #category : #tests } +{ #category : 'tests' } SpListCommonPropertiestTest >> testChangingFromMultipleToSingleSelection [ presenter beMultipleSelection. self assert: presenter isMultipleSelection. @@ -17,7 +19,7 @@ SpListCommonPropertiestTest >> testChangingFromMultipleToSingleSelection [ self deny: presenter isMultipleSelection ] -{ #category : #tests } +{ #category : 'tests' } SpListCommonPropertiestTest >> testChangingFromSingleToMultipleSelection [ presenter beSingleSelection. self deny: presenter isMultipleSelection. @@ -25,7 +27,7 @@ SpListCommonPropertiestTest >> testChangingFromSingleToMultipleSelection [ self assert: presenter isMultipleSelection ] -{ #category : #tests } +{ #category : 'tests' } SpListCommonPropertiestTest >> testEnablingFilteringUpdateOpenedList [ self deny: self adapter hasFilter. presenter matchSubstring. @@ -34,7 +36,7 @@ SpListCommonPropertiestTest >> testEnablingFilteringUpdateOpenedList [ self deny: self adapter hasFilter ] -{ #category : #tests } +{ #category : 'tests' } SpListCommonPropertiestTest >> testRemoveHeaderTitleInPresenterRemovesColumnHeaderMorph [ self flag: #pharo7. SystemVersion current major < 8 ifTrue: [ self skip. "Feature not supported in Pharo 7" ]. @@ -45,7 +47,7 @@ SpListCommonPropertiestTest >> testRemoveHeaderTitleInPresenterRemovesColumnHead backendForTest denyHasHeader: self adapter ] -{ #category : #'tests - scrolling' } +{ #category : 'tests - scrolling' } SpListCommonPropertiestTest >> testScrollDownToNonExistingIndexScrollsBottomToLastIndex [ self flag: #pharo7. SystemVersion current major < 8 ifTrue: [ self skip. "Feature not supported in Pharo 7" ]. @@ -59,7 +61,7 @@ SpListCommonPropertiestTest >> testScrollDownToNonExistingIndexScrollsBottomToLa self assert: presenter verticalAlignment lastVisibleRowIndex equals: 500 ] -{ #category : #'tests - scrolling' } +{ #category : 'tests - scrolling' } SpListCommonPropertiestTest >> testScrollDownToPosteriorIndexScrollsBottomToIndex [ self flag: #pharo7. SystemVersion current major < 8 ifTrue: [ self skip. "Feature not supported in Pharo 7" ]. @@ -74,7 +76,7 @@ SpListCommonPropertiestTest >> testScrollDownToPosteriorIndexScrollsBottomToInde self assert: (presenter verticalAlignment lastVisibleRowIndex between: 100 and: 101) ] -{ #category : #'tests - scrolling' } +{ #category : 'tests - scrolling' } SpListCommonPropertiestTest >> testScrollUpToNegativeIndexScrollsTopToFirstIndex [ self flag: #pharo7. SystemVersion current major < 8 ifTrue: [ self skip. "Feature not supported in Pharo 7" ]. @@ -87,7 +89,7 @@ SpListCommonPropertiestTest >> testScrollUpToNegativeIndexScrollsTopToFirstIndex self assert: presenter verticalAlignment firstVisibleRowIndex equals: 1 ] -{ #category : #'tests - scrolling' } +{ #category : 'tests - scrolling' } SpListCommonPropertiestTest >> testScrollUpToPreviousIndexScrollsTopToIndex [ self flag: #pharo7. SystemVersion current major < 8 ifTrue: [ self skip. "Feature not supported in Pharo 7" ]. @@ -100,7 +102,7 @@ SpListCommonPropertiestTest >> testScrollUpToPreviousIndexScrollsTopToIndex [ self assert: presenter verticalAlignment firstVisibleRowIndex equals: 50 ] -{ #category : #tests } +{ #category : 'tests' } SpListCommonPropertiestTest >> testSelectingANotVisibleItemDoesNotScroll [ | verticalAlignment visibleItems | presenter items: (1 to: 500). @@ -114,7 +116,7 @@ SpListCommonPropertiestTest >> testSelectingANotVisibleItemDoesNotScroll [ equals: visibleItems ] -{ #category : #tests } +{ #category : 'tests' } SpListCommonPropertiestTest >> testSetColumnTitleInPresenterPutsColumnHeaderMorph [ SystemVersion current major = 7 @@ -127,7 +129,7 @@ SpListCommonPropertiestTest >> testSetColumnTitleInPresenterPutsColumnHeaderMorp backendForTest assertListHeaderOf: self adapter equals: #('test') ] -{ #category : #tests } +{ #category : 'tests' } SpListCommonPropertiestTest >> testSetColumnTitleInPresenterShowsThemInWidget [ self presenter headerTitle: 'test'. diff --git a/src/Spec2-Backend-Tests/SpListPresenterHeaderTest.class.st b/src/Spec2-Backend-Tests/SpListPresenterHeaderTest.class.st index bfff52fb3..c5eb56d39 100644 --- a/src/Spec2-Backend-Tests/SpListPresenterHeaderTest.class.st +++ b/src/Spec2-Backend-Tests/SpListPresenterHeaderTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpListPresenterHeaderTest, - #superclass : #TestCase, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpListPresenterHeaderTest', + #superclass : 'TestCase', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #tests } +{ #category : 'tests' } SpListPresenterHeaderTest >> testHeaderIsHiddenWhenNoTitleIsDefined [ | list | diff --git a/src/Spec2-Backend-Tests/SpListSearchTest.class.st b/src/Spec2-Backend-Tests/SpListSearchTest.class.st index 9a5b76d16..cf162ccd1 100644 --- a/src/Spec2-Backend-Tests/SpListSearchTest.class.st +++ b/src/Spec2-Backend-Tests/SpListSearchTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #SpListSearchTest, - #superclass : #SpAbstractSearchTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpListSearchTest', + #superclass : 'SpAbstractSearchTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpListSearchTest >> classToTest [ ^ SpListPresenter diff --git a/src/Spec2-Backend-Tests/SpMillerColumnAdapterTest.class.st b/src/Spec2-Backend-Tests/SpMillerColumnAdapterTest.class.st index d253f4208..3d36ac872 100644 --- a/src/Spec2-Backend-Tests/SpMillerColumnAdapterTest.class.st +++ b/src/Spec2-Backend-Tests/SpMillerColumnAdapterTest.class.st @@ -1,43 +1,45 @@ Class { - #name : #SpMillerColumnAdapterTest, - #superclass : #SpAbstractWidgetAdapterTest, - #category : #'Spec2-Backend-Tests-Base' + #name : 'SpMillerColumnAdapterTest', + #superclass : 'SpAbstractWidgetAdapterTest', + #category : 'Spec2-Backend-Tests-Base', + #package : 'Spec2-Backend-Tests', + #tag : 'Base' } -{ #category : #accessing } +{ #category : 'accessing' } SpMillerColumnAdapterTest >> classToTest [ ^ SpMillerColumnPresenter ] -{ #category : #tests } +{ #category : 'tests' } SpMillerColumnAdapterTest >> testChangingHelpAffectTheWidget [ "This test is not valid for non-widget presenters" ^ self skip ] -{ #category : #tests } +{ #category : 'tests' } SpMillerColumnAdapterTest >> testEmptyMillerListHasNoWidgets [ self assert: self adapter childrenWidgets isEmpty ] -{ #category : #tests } +{ #category : 'tests' } SpMillerColumnAdapterTest >> testEnabledAffectWidget [ "This test is not valid for non-widget presenters" ^ self skip ] -{ #category : #tests } +{ #category : 'tests' } SpMillerColumnAdapterTest >> testManyPresentersShowManyWidgets [ 3 timesRepeat: [ self presenter addPresenter: (SpNullMillerPresenter on: SpLabelPresenter new).]. self assert: self adapter childrenWidgets size equals: 3 ] -{ #category : #tests } +{ #category : 'tests' } SpMillerColumnAdapterTest >> testOnePresenterShowsOneWidget [ self presenter addPresenter: (SpNullMillerPresenter on: SpLabelPresenter new). @@ -45,7 +47,7 @@ SpMillerColumnAdapterTest >> testOnePresenterShowsOneWidget [ self assert: self adapter childrenWidgets size equals: 1 ] -{ #category : #tests } +{ #category : 'tests' } SpMillerColumnAdapterTest >> testResettingMillerListRemovesWidgets [ 3 timesRepeat: [ self presenter addPresenter: (SpNullMillerPresenter on: SpLabelPresenter new).]. diff --git a/src/Spec2-Backend-Tests/SpMockDynamicPresenter.class.st b/src/Spec2-Backend-Tests/SpMockDynamicPresenter.class.st index 9d8df4627..845dc898d 100644 --- a/src/Spec2-Backend-Tests/SpMockDynamicPresenter.class.st +++ b/src/Spec2-Backend-Tests/SpMockDynamicPresenter.class.st @@ -1,14 +1,16 @@ Class { - #name : #SpMockDynamicPresenter, - #superclass : #SpPresenter, + #name : 'SpMockDynamicPresenter', + #superclass : 'SpPresenter', #instVars : [ 'list', 'label' ], - #category : #'Spec2-Backend-Tests-Layout' + #category : 'Spec2-Backend-Tests-Layout', + #package : 'Spec2-Backend-Tests', + #tag : 'Layout' } -{ #category : #layout } +{ #category : 'layout' } SpMockDynamicPresenter class >> defaultLayout [ ^ SpBoxLayout newTopToBottom add: #list; @@ -16,13 +18,13 @@ SpMockDynamicPresenter class >> defaultLayout [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } SpMockDynamicPresenter class >> open [