diff --git a/source/Willow-Tests/AddTimestampToSourceCommandTest.class.st b/source/Willow-Tests/AddTimestampToSourceCommandTest.class.st index b0d12c7c..407065a3 100644 --- a/source/Willow-Tests/AddTimestampToSourceCommandTest.class.st +++ b/source/Willow-Tests/AddTimestampToSourceCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #AddTimestampToSourceCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/AjaxAwareErrorHandlerTest.class.st b/source/Willow-Tests/AjaxAwareErrorHandlerTest.class.st index 38f86dc7..79178292 100644 --- a/source/Willow-Tests/AjaxAwareErrorHandlerTest.class.st +++ b/source/Willow-Tests/AjaxAwareErrorHandlerTest.class.st @@ -4,7 +4,7 @@ An AjaxAwareErrorHandlerTest is a test class for testing the behavior of AjaxAwa Class { #name : #AjaxAwareErrorHandlerTest, #superclass : #WAErrorHandlerTest, - #category : 'Willow-Tests-Applications' + #category : #'Willow-Tests-Applications' } { #category : #accessing } diff --git a/source/Willow-Tests/AlertingCommandTest.class.st b/source/Willow-Tests/AlertingCommandTest.class.st index b4175ca7..3ed9b036 100644 --- a/source/Willow-Tests/AlertingCommandTest.class.st +++ b/source/Willow-Tests/AlertingCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/AsynchronicButtonWebViewTest.class.st b/source/Willow-Tests/AsynchronicButtonWebViewTest.class.st index 2cedc9ae..a589321b 100644 --- a/source/Willow-Tests/AsynchronicButtonWebViewTest.class.st +++ b/source/Willow-Tests/AsynchronicButtonWebViewTest.class.st @@ -4,7 +4,7 @@ An AsynchronicButtonWebViewTest is a test class for testing the behavior of Asyn Class { #name : #AsynchronicButtonWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'tests-rendering' } diff --git a/source/Willow-Tests/AutoFocusComponentCommandTest.class.st b/source/Willow-Tests/AutoFocusComponentCommandTest.class.st index 8b9e8962..00e3909d 100644 --- a/source/Willow-Tests/AutoFocusComponentCommandTest.class.st +++ b/source/Willow-Tests/AutoFocusComponentCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #AutoFocusComponentCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/BinaryChoiceWebViewTest.class.st b/source/Willow-Tests/BinaryChoiceWebViewTest.class.st index 8435467e..9af315a1 100644 --- a/source/Willow-Tests/BinaryChoiceWebViewTest.class.st +++ b/source/Willow-Tests/BinaryChoiceWebViewTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'notificationWasReceived' ], - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #testing } diff --git a/source/Willow-Tests/CheckboxWebViewTest.class.st b/source/Willow-Tests/CheckboxWebViewTest.class.st index 22993e8b..a4c2c721 100644 --- a/source/Willow-Tests/CheckboxWebViewTest.class.st +++ b/source/Willow-Tests/CheckboxWebViewTest.class.st @@ -4,7 +4,7 @@ A CheckboxWebViewTest is a test class for testing the behavior of CheckboxWebVie Class { #name : #CheckboxWebViewTest, #superclass : #BinaryChoiceWebViewTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'instance creation' } diff --git a/source/Willow-Tests/ComponentAccessibilityEnrichmentCommandTest.class.st b/source/Willow-Tests/ComponentAccessibilityEnrichmentCommandTest.class.st index 55360981..1c6d00a0 100644 --- a/source/Willow-Tests/ComponentAccessibilityEnrichmentCommandTest.class.st +++ b/source/Willow-Tests/ComponentAccessibilityEnrichmentCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentAccessibilityEnrichmentCommandTest is a test class for testing the be Class { #name : #ComponentAccessibilityEnrichmentCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentAttributeCommandTest.class.st b/source/Willow-Tests/ComponentAttributeCommandTest.class.st index 37cab814..e032b783 100644 --- a/source/Willow-Tests/ComponentAttributeCommandTest.class.st +++ b/source/Willow-Tests/ComponentAttributeCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #ComponentAttributeCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentBoundaryCommandTest.class.st b/source/Willow-Tests/ComponentBoundaryCommandTest.class.st index 181a20cc..facc88fa 100644 --- a/source/Willow-Tests/ComponentBoundaryCommandTest.class.st +++ b/source/Willow-Tests/ComponentBoundaryCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentBoundaryCommandTest is a test class for testing the behavior of Compo Class { #name : #ComponentBoundaryCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentCallbackSettingCommandTest.class.st b/source/Willow-Tests/ComponentCallbackSettingCommandTest.class.st index 831f4df8..82140908 100644 --- a/source/Willow-Tests/ComponentCallbackSettingCommandTest.class.st +++ b/source/Willow-Tests/ComponentCallbackSettingCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentCallbackSettingCommandTest is a test class for testing the behavior o Class { #name : #ComponentCallbackSettingCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentClassificationCommandTest.class.st b/source/Willow-Tests/ComponentClassificationCommandTest.class.st index 254d3b44..980ace51 100644 --- a/source/Willow-Tests/ComponentClassificationCommandTest.class.st +++ b/source/Willow-Tests/ComponentClassificationCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentClassificationCommandTest is a test class for testing the behavior of Class { #name : #ComponentClassificationCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentEnableStatusChangingCommandTest.class.st b/source/Willow-Tests/ComponentEnableStatusChangingCommandTest.class.st index ea66608d..dbab3aab 100644 --- a/source/Willow-Tests/ComponentEnableStatusChangingCommandTest.class.st +++ b/source/Willow-Tests/ComponentEnableStatusChangingCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/ComponentFocusingCommandTest.class.st b/source/Willow-Tests/ComponentFocusingCommandTest.class.st index 436d573d..a3063d2a 100644 --- a/source/Willow-Tests/ComponentFocusingCommandTest.class.st +++ b/source/Willow-Tests/ComponentFocusingCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/ComponentMetadataCommandTest.class.st b/source/Willow-Tests/ComponentMetadataCommandTest.class.st index 085c8662..7aef9f84 100644 --- a/source/Willow-Tests/ComponentMetadataCommandTest.class.st +++ b/source/Willow-Tests/ComponentMetadataCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentMetadataCommandTest is a test class for testing the behavior of Compo Class { #name : #ComponentMetadataCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentNamingCommandTest.class.st b/source/Willow-Tests/ComponentNamingCommandTest.class.st index 61212611..6c3de049 100644 --- a/source/Willow-Tests/ComponentNamingCommandTest.class.st +++ b/source/Willow-Tests/ComponentNamingCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentNamingCommandTest is a test class for testing the behavior of Compone Class { #name : #ComponentNamingCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentPlaceholderCommandTest.class.st b/source/Willow-Tests/ComponentPlaceholderCommandTest.class.st index 9422686c..95562ee4 100644 --- a/source/Willow-Tests/ComponentPlaceholderCommandTest.class.st +++ b/source/Willow-Tests/ComponentPlaceholderCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentPlaceholderCommandTest is a test class for testing the behavior of Co Class { #name : #ComponentPlaceholderCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentReadOnlyCommandTest.class.st b/source/Willow-Tests/ComponentReadOnlyCommandTest.class.st index c9731289..357c8096 100644 --- a/source/Willow-Tests/ComponentReadOnlyCommandTest.class.st +++ b/source/Willow-Tests/ComponentReadOnlyCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentReadOnlyCommandTest is a test class for testing the behavior of Compo Class { #name : #ComponentReadOnlyCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentRemovingCommandTest.class.st b/source/Willow-Tests/ComponentRemovingCommandTest.class.st index 7bf076ae..a5b3bfdb 100644 --- a/source/Willow-Tests/ComponentRemovingCommandTest.class.st +++ b/source/Willow-Tests/ComponentRemovingCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/ComponentRequiredCommandTest.class.st b/source/Willow-Tests/ComponentRequiredCommandTest.class.st index 20d24589..ff17c13e 100644 --- a/source/Willow-Tests/ComponentRequiredCommandTest.class.st +++ b/source/Willow-Tests/ComponentRequiredCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #ComponentRequiredCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentScriptCommandTest.class.st b/source/Willow-Tests/ComponentScriptCommandTest.class.st index 53958a91..5f084b69 100644 --- a/source/Willow-Tests/ComponentScriptCommandTest.class.st +++ b/source/Willow-Tests/ComponentScriptCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentScriptCommandTest is a test class for testing the behavior of Compone Class { #name : #ComponentScriptCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-applying' } diff --git a/source/Willow-Tests/ComponentStyleClassChangingCommandTest.class.st b/source/Willow-Tests/ComponentStyleClassChangingCommandTest.class.st index c99f47db..394305b5 100644 --- a/source/Willow-Tests/ComponentStyleClassChangingCommandTest.class.st +++ b/source/Willow-Tests/ComponentStyleClassChangingCommandTest.class.st @@ -4,7 +4,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/ComponentTitleCommandTest.class.st b/source/Willow-Tests/ComponentTitleCommandTest.class.st index ff37480b..e9cd0583 100644 --- a/source/Willow-Tests/ComponentTitleCommandTest.class.st +++ b/source/Willow-Tests/ComponentTitleCommandTest.class.st @@ -4,7 +4,7 @@ A ComponentTitleCommandTest is a test class for testing the behavior of Componen Class { #name : #ComponentTitleCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/ComponentValueSettingCommandTest.class.st b/source/Willow-Tests/ComponentValueSettingCommandTest.class.st index 8f9ce809..d53dd592 100644 --- a/source/Willow-Tests/ComponentValueSettingCommandTest.class.st +++ b/source/Willow-Tests/ComponentValueSettingCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/CompositeComponentCommandTest.class.st b/source/Willow-Tests/CompositeComponentCommandTest.class.st index f8ce07a9..3b995da2 100644 --- a/source/Willow-Tests/CompositeComponentCommandTest.class.st +++ b/source/Willow-Tests/CompositeComponentCommandTest.class.st @@ -4,7 +4,7 @@ A CompositeComponentCommandTest is a test class for testing the behavior of Comp Class { #name : #CompositeComponentCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/CompositeTableRowCommandTest.class.st b/source/Willow-Tests/CompositeTableRowCommandTest.class.st index ea41dc7b..8481401f 100644 --- a/source/Willow-Tests/CompositeTableRowCommandTest.class.st +++ b/source/Willow-Tests/CompositeTableRowCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #CompositeTableRowCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #tests } diff --git a/source/Willow-Tests/ConditionalComponentCommandTest.class.st b/source/Willow-Tests/ConditionalComponentCommandTest.class.st index 8e2d3a29..bc567012 100644 --- a/source/Willow-Tests/ConditionalComponentCommandTest.class.st +++ b/source/Willow-Tests/ConditionalComponentCommandTest.class.st @@ -4,7 +4,7 @@ A ConditionalComponentCommandTest is a test class for testing the behavior of Co Class { #name : #ConditionalComponentCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #tests } diff --git a/source/Willow-Tests/ConfirmationCommandTest.class.st b/source/Willow-Tests/ConfirmationCommandTest.class.st index 5921bfa0..06457178 100644 --- a/source/Willow-Tests/ConfirmationCommandTest.class.st +++ b/source/Willow-Tests/ConfirmationCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/DateFieldWebViewTest.class.st b/source/Willow-Tests/DateFieldWebViewTest.class.st index 7aafb2e2..660103f3 100644 --- a/source/Willow-Tests/DateFieldWebViewTest.class.st +++ b/source/Willow-Tests/DateFieldWebViewTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'notificationWasReceived' ], - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #support } @@ -46,7 +46,7 @@ DateFieldWebViewTest >> testIdentifyIn [ dateField identifyIn: canvas. canvas render: dateField ]. - self assert: html equals: '' + self assert: html equals: '' ] { #category : #tests } diff --git a/source/Willow-Tests/DelayedCommandTest.class.st b/source/Willow-Tests/DelayedCommandTest.class.st index d6522673..9b5eb369 100644 --- a/source/Willow-Tests/DelayedCommandTest.class.st +++ b/source/Willow-Tests/DelayedCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #DelayedCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #'test support' } diff --git a/source/Willow-Tests/DeselectAllOptionsCommandTest.class.st b/source/Willow-Tests/DeselectAllOptionsCommandTest.class.st index 1ae758f9..fd5978cd 100644 --- a/source/Willow-Tests/DeselectAllOptionsCommandTest.class.st +++ b/source/Willow-Tests/DeselectAllOptionsCommandTest.class.st @@ -4,7 +4,7 @@ A DeselectAllOptionsCommandTest is a test class for testing the behavior of Dese Class { #name : #DeselectAllOptionsCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/DialogClosingCommandTest.class.st b/source/Willow-Tests/DialogClosingCommandTest.class.st index 1ba04e41..275bb3e2 100644 --- a/source/Willow-Tests/DialogClosingCommandTest.class.st +++ b/source/Willow-Tests/DialogClosingCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #private } diff --git a/source/Willow-Tests/DialogOpeningCommandTest.class.st b/source/Willow-Tests/DialogOpeningCommandTest.class.st index dd8307b0..3483b2dc 100644 --- a/source/Willow-Tests/DialogOpeningCommandTest.class.st +++ b/source/Willow-Tests/DialogOpeningCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/DisableComponentCommandTest.class.st b/source/Willow-Tests/DisableComponentCommandTest.class.st index 270d10ff..67c0a2c0 100644 --- a/source/Willow-Tests/DisableComponentCommandTest.class.st +++ b/source/Willow-Tests/DisableComponentCommandTest.class.st @@ -4,7 +4,7 @@ A DisableComponentCommandTest is a test class for testing the behavior of Disabl Class { #name : #DisableComponentCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/DisableComponentTabCycleCommandTest.class.st b/source/Willow-Tests/DisableComponentTabCycleCommandTest.class.st index 8b90d52c..e206eabd 100644 --- a/source/Willow-Tests/DisableComponentTabCycleCommandTest.class.st +++ b/source/Willow-Tests/DisableComponentTabCycleCommandTest.class.st @@ -4,7 +4,7 @@ A DisableComponentTabCycleCommandTest is a test class for testing the behavior o Class { #name : #DisableComponentTabCycleCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/DropDownListWebViewTest.class.st b/source/Willow-Tests/DropDownListWebViewTest.class.st index 92392b78..07a2972c 100644 --- a/source/Willow-Tests/DropDownListWebViewTest.class.st +++ b/source/Willow-Tests/DropDownListWebViewTest.class.st @@ -4,7 +4,7 @@ A DropDownListWebViewTest is a test class for testing the behavior of DropDownLi Class { #name : #DropDownListWebViewTest, #superclass : #SingleSelectionWebViewTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #support } diff --git a/source/Willow-Tests/FieldSetWebViewTest.class.st b/source/Willow-Tests/FieldSetWebViewTest.class.st index 9e33742a..a477d68f 100644 --- a/source/Willow-Tests/FieldSetWebViewTest.class.st +++ b/source/Willow-Tests/FieldSetWebViewTest.class.st @@ -1,7 +1,7 @@ Class { #name : #FieldSetWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #tests } diff --git a/source/Willow-Tests/FileDownloadAnchorWebViewTest.class.st b/source/Willow-Tests/FileDownloadAnchorWebViewTest.class.st index d872a3f4..1569602a 100644 --- a/source/Willow-Tests/FileDownloadAnchorWebViewTest.class.st +++ b/source/Willow-Tests/FileDownloadAnchorWebViewTest.class.st @@ -4,7 +4,7 @@ A FileDownloadAnchorWebViewTest is a test class for testing the behavior of File Class { #name : #FileDownloadAnchorWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'tests-rendering' } diff --git a/source/Willow-Tests/FloatCodecTest.class.st b/source/Willow-Tests/FloatCodecTest.class.st index 75985951..90a7fcbb 100644 --- a/source/Willow-Tests/FloatCodecTest.class.st +++ b/source/Willow-Tests/FloatCodecTest.class.st @@ -4,7 +4,7 @@ A FloatCodecTest is a test class for testing the behavior of FloatCodec Class { #name : #FloatCodecTest, #superclass : #TestCase, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #tests } diff --git a/source/Willow-Tests/GenericContainerWebViewTest.class.st b/source/Willow-Tests/GenericContainerWebViewTest.class.st index e172e525..1082b7ac 100644 --- a/source/Willow-Tests/GenericContainerWebViewTest.class.st +++ b/source/Willow-Tests/GenericContainerWebViewTest.class.st @@ -4,7 +4,7 @@ A GenericContainerWebViewTest is a test class for testing the behavior of Generi Class { #name : #GenericContainerWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #tests } diff --git a/source/Willow-Tests/HeadingWebViewTest.class.st b/source/Willow-Tests/HeadingWebViewTest.class.st index 6924a2af..d6cfd787 100644 --- a/source/Willow-Tests/HeadingWebViewTest.class.st +++ b/source/Willow-Tests/HeadingWebViewTest.class.st @@ -1,7 +1,7 @@ Class { #name : #HeadingWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #tests } diff --git a/source/Willow-Tests/Html5ComponentSupplierTest.class.st b/source/Willow-Tests/Html5ComponentSupplierTest.class.st index 01bf4173..95c21beb 100644 --- a/source/Willow-Tests/Html5ComponentSupplierTest.class.st +++ b/source/Willow-Tests/Html5ComponentSupplierTest.class.st @@ -4,7 +4,7 @@ A Html5ComponentSupplierTest is a test class for testing the behavior of Html5Co Class { #name : #Html5ComponentSupplierTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #private } diff --git a/source/Willow-Tests/ISODateCodecTest.class.st b/source/Willow-Tests/ISODateCodecTest.class.st index 6b5454a4..9b5e8c57 100644 --- a/source/Willow-Tests/ISODateCodecTest.class.st +++ b/source/Willow-Tests/ISODateCodecTest.class.st @@ -4,7 +4,7 @@ A ISODateCodecTest is a test class for testing the behavior of ISODateCodec Class { #name : #ISODateCodecTest, #superclass : #TestCase, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #tests } diff --git a/source/Willow-Tests/IdentifiedWebViewTest.class.st b/source/Willow-Tests/IdentifiedWebViewTest.class.st index e374a351..6ea17a54 100644 --- a/source/Willow-Tests/IdentifiedWebViewTest.class.st +++ b/source/Willow-Tests/IdentifiedWebViewTest.class.st @@ -4,7 +4,7 @@ An IdentifiedWebViewTest is a test class for testing the behavior of IdentifiedW Class { #name : #IdentifiedWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'tests-rendering' } diff --git a/source/Willow-Tests/ImageWebViewTest.class.st b/source/Willow-Tests/ImageWebViewTest.class.st index 7ce7176e..b169bae3 100644 --- a/source/Willow-Tests/ImageWebViewTest.class.st +++ b/source/Willow-Tests/ImageWebViewTest.class.st @@ -4,7 +4,7 @@ An ImageWebViewTest is a test class for testing the behavior of ImageWebView Class { #name : #ImageWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'tests-rendering' } diff --git a/source/Willow-Tests/InputFieldMaxLengthCommandTest.class.st b/source/Willow-Tests/InputFieldMaxLengthCommandTest.class.st index 91a019b7..50c682b5 100644 --- a/source/Willow-Tests/InputFieldMaxLengthCommandTest.class.st +++ b/source/Willow-Tests/InputFieldMaxLengthCommandTest.class.st @@ -4,7 +4,7 @@ An InputFieldMaxLengthCommandTest is a test class for testing the behavior of In Class { #name : #InputFieldMaxLengthCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/InputModeCommandTest.class.st b/source/Willow-Tests/InputModeCommandTest.class.st index c2b2440f..bd2f40b4 100644 --- a/source/Willow-Tests/InputModeCommandTest.class.st +++ b/source/Willow-Tests/InputModeCommandTest.class.st @@ -4,7 +4,7 @@ A DateInputModeCommandTest is a test class for testing the behavior of DateInput Class { #name : #InputModeCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/IntegerCodecTest.class.st b/source/Willow-Tests/IntegerCodecTest.class.st index 4cc4c908..86310cbe 100644 --- a/source/Willow-Tests/IntegerCodecTest.class.st +++ b/source/Willow-Tests/IntegerCodecTest.class.st @@ -4,7 +4,7 @@ An IntegerCodecTest is a test class for testing the behavior of IntegerCodec Class { #name : #IntegerCodecTest, #superclass : #TestCase, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #tests } diff --git a/source/Willow-Tests/JQuery3DeploymentMetadataLibraryTest.class.st b/source/Willow-Tests/JQuery3DeploymentMetadataLibraryTest.class.st index 4118db37..2c2ca0ab 100644 --- a/source/Willow-Tests/JQuery3DeploymentMetadataLibraryTest.class.st +++ b/source/Willow-Tests/JQuery3DeploymentMetadataLibraryTest.class.st @@ -1,7 +1,7 @@ Class { #name : #JQuery3DeploymentMetadataLibraryTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Libraries' + #category : #'Willow-Tests-Libraries' } { #category : #tests } diff --git a/source/Willow-Tests/JQuery3DevelopmentMetadataLibraryTest.class.st b/source/Willow-Tests/JQuery3DevelopmentMetadataLibraryTest.class.st index 8c0ec097..551080e7 100644 --- a/source/Willow-Tests/JQuery3DevelopmentMetadataLibraryTest.class.st +++ b/source/Willow-Tests/JQuery3DevelopmentMetadataLibraryTest.class.st @@ -1,7 +1,7 @@ Class { #name : #JQuery3DevelopmentMetadataLibraryTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Libraries' + #category : #'Willow-Tests-Libraries' } { #category : #tests } diff --git a/source/Willow-Tests/JQuery3FileMetadataLibraryTest.class.st b/source/Willow-Tests/JQuery3FileMetadataLibraryTest.class.st index c0517e17..fae702c8 100644 --- a/source/Willow-Tests/JQuery3FileMetadataLibraryTest.class.st +++ b/source/Willow-Tests/JQuery3FileMetadataLibraryTest.class.st @@ -1,7 +1,7 @@ Class { #name : #JQuery3FileMetadataLibraryTest, #superclass : #TestCase, - #category : 'Willow-Tests-Libraries' + #category : #'Willow-Tests-Libraries' } { #category : #tests } diff --git a/source/Willow-Tests/JQuery3OnlineLibraryTest.class.st b/source/Willow-Tests/JQuery3OnlineLibraryTest.class.st index c3fc1358..20a40eb5 100644 --- a/source/Willow-Tests/JQuery3OnlineLibraryTest.class.st +++ b/source/Willow-Tests/JQuery3OnlineLibraryTest.class.st @@ -4,7 +4,7 @@ A JQuery3OnlineLibraryTest is a test class for testing the behavior of JQuery3On Class { #name : #JQuery3OnlineLibraryTest, #superclass : #TestCase, - #category : 'Willow-Tests-Libraries' + #category : #'Willow-Tests-Libraries' } { #category : #'tests-updating' } diff --git a/source/Willow-Tests/LabeledWebViewTest.class.st b/source/Willow-Tests/LabeledWebViewTest.class.st index 9973b81d..17600d20 100644 --- a/source/Willow-Tests/LabeledWebViewTest.class.st +++ b/source/Willow-Tests/LabeledWebViewTest.class.st @@ -4,7 +4,7 @@ A LabeledWebViewTest is a test class for testing the behavior of LabeledWebView Class { #name : #LabeledWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #tests } diff --git a/source/Willow-Tests/LinkWebViewTest.class.st b/source/Willow-Tests/LinkWebViewTest.class.st index 8633a9bd..93a7916f 100644 --- a/source/Willow-Tests/LinkWebViewTest.class.st +++ b/source/Willow-Tests/LinkWebViewTest.class.st @@ -4,7 +4,7 @@ An AsynchronicLinkWebViewTest is a test class for testing the behavior of Asynch Class { #name : #LinkWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'tests-rendering' } diff --git a/source/Willow-Tests/ListItemWebViewTest.class.st b/source/Willow-Tests/ListItemWebViewTest.class.st index f7902383..3c1d86b4 100644 --- a/source/Willow-Tests/ListItemWebViewTest.class.st +++ b/source/Willow-Tests/ListItemWebViewTest.class.st @@ -4,7 +4,7 @@ A ListItemWebViewTest is a test class for testing the behavior of ListItemWebVie Class { #name : #ListItemWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'tests-rendering' } diff --git a/source/Willow-Tests/ListLabelingCommandTest.class.st b/source/Willow-Tests/ListLabelingCommandTest.class.st index 9d8a6242..8bf4e52b 100644 --- a/source/Willow-Tests/ListLabelingCommandTest.class.st +++ b/source/Willow-Tests/ListLabelingCommandTest.class.st @@ -4,7 +4,7 @@ A ListLabelingCommandTest is a test class for testing the behavior of ListLabeli Class { #name : #ListLabelingCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/LoadingNotificationCommandTest.class.st b/source/Willow-Tests/LoadingNotificationCommandTest.class.st index 0daf7498..7c0c5d79 100644 --- a/source/Willow-Tests/LoadingNotificationCommandTest.class.st +++ b/source/Willow-Tests/LoadingNotificationCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/MultipleSelectionListBoxWebViewTest.class.st b/source/Willow-Tests/MultipleSelectionListBoxWebViewTest.class.st index 167adabf..bd204e51 100644 --- a/source/Willow-Tests/MultipleSelectionListBoxWebViewTest.class.st +++ b/source/Willow-Tests/MultipleSelectionListBoxWebViewTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'notificationWasReceived' ], - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #support } diff --git a/source/Willow-Tests/NaturalNumberCodecTest.class.st b/source/Willow-Tests/NaturalNumberCodecTest.class.st index 1b3a056a..5846ecbd 100644 --- a/source/Willow-Tests/NaturalNumberCodecTest.class.st +++ b/source/Willow-Tests/NaturalNumberCodecTest.class.st @@ -4,7 +4,7 @@ A NaturalNumberCodecTest is a test class for testing the behavior of NaturalNumb Class { #name : #NaturalNumberCodecTest, #superclass : #TestCase, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-converting' } diff --git a/source/Willow-Tests/NullCodecTest.class.st b/source/Willow-Tests/NullCodecTest.class.st index 5dee832e..4fab3c7d 100644 --- a/source/Willow-Tests/NullCodecTest.class.st +++ b/source/Willow-Tests/NullCodecTest.class.st @@ -4,7 +4,7 @@ An NullCodecTest is a test class for testing the behavior of NullCodec Class { #name : #NullCodecTest, #superclass : #TestCase, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #tests } diff --git a/source/Willow-Tests/NullTriggeringPolicyTest.class.st b/source/Willow-Tests/NullTriggeringPolicyTest.class.st index 9c38f6b3..1cffd523 100644 --- a/source/Willow-Tests/NullTriggeringPolicyTest.class.st +++ b/source/Willow-Tests/NullTriggeringPolicyTest.class.st @@ -4,7 +4,7 @@ A NullTriggeringPolicyTest is a test class for testing the behavior of NullTrigg Class { #name : #NullTriggeringPolicyTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #'tests-evaluating' } diff --git a/source/Willow-Tests/NullWebInteractionCommandTest.class.st b/source/Willow-Tests/NullWebInteractionCommandTest.class.st index c58d3797..74223328 100644 --- a/source/Willow-Tests/NullWebInteractionCommandTest.class.st +++ b/source/Willow-Tests/NullWebInteractionCommandTest.class.st @@ -4,7 +4,7 @@ A NullWebInteractionCommandTest is a test class for testing the behavior of Null Class { #name : #NullWebInteractionCommandTest, #superclass : #TestCase, - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #'tests-accessing' } diff --git a/source/Willow-Tests/NumberFieldWebViewTest.class.st b/source/Willow-Tests/NumberFieldWebViewTest.class.st index 06569d00..5db0c1b0 100644 --- a/source/Willow-Tests/NumberFieldWebViewTest.class.st +++ b/source/Willow-Tests/NumberFieldWebViewTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'notificationWasReceived' ], - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #support } @@ -28,7 +28,7 @@ NumberFieldWebViewTest >> testIdentifyIn [ numberField identifyIn: canvas. canvas render: numberField ]. - self assert: html equals: '' + self assert: html equals: '' ] { #category : #'tests-number-container-API' } diff --git a/source/Willow-Tests/OpenLocationCommandTest.class.st b/source/Willow-Tests/OpenLocationCommandTest.class.st index 27555b20..50854ffd 100644 --- a/source/Willow-Tests/OpenLocationCommandTest.class.st +++ b/source/Willow-Tests/OpenLocationCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #OpenLocationCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #tests } diff --git a/source/Willow-Tests/PeriodicallyRenderedWebViewTest.class.st b/source/Willow-Tests/PeriodicallyRenderedWebViewTest.class.st index 2176ab6d..7a4baf11 100644 --- a/source/Willow-Tests/PeriodicallyRenderedWebViewTest.class.st +++ b/source/Willow-Tests/PeriodicallyRenderedWebViewTest.class.st @@ -4,7 +4,7 @@ A PeriodicallyRenderedWebViewTest is a test class for testing the behavior of Pe Class { #name : #PeriodicallyRenderedWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'tests-rendering' } diff --git a/source/Willow-Tests/PhrasingContainerWebViewTest.class.st b/source/Willow-Tests/PhrasingContainerWebViewTest.class.st index a071350f..09b71ef0 100644 --- a/source/Willow-Tests/PhrasingContainerWebViewTest.class.st +++ b/source/Willow-Tests/PhrasingContainerWebViewTest.class.st @@ -4,7 +4,7 @@ A PhrasingContainerWebViewTest is a test class for testing the behavior of Phras Class { #name : #PhrasingContainerWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'tests-rendering' } diff --git a/source/Willow-Tests/PluggableExecutionOnClientCommandTest.class.st b/source/Willow-Tests/PluggableExecutionOnClientCommandTest.class.st index 5ab68336..aae669e5 100644 --- a/source/Willow-Tests/PluggableExecutionOnClientCommandTest.class.st +++ b/source/Willow-Tests/PluggableExecutionOnClientCommandTest.class.st @@ -5,7 +5,7 @@ Class { 'command', 'commandAction' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/PluggableTableRowCommandTest.class.st b/source/Willow-Tests/PluggableTableRowCommandTest.class.st index bb26b4bf..594c384b 100644 --- a/source/Willow-Tests/PluggableTableRowCommandTest.class.st +++ b/source/Willow-Tests/PluggableTableRowCommandTest.class.st @@ -4,7 +4,7 @@ A PluggableTableRowCommandTest is a test class for testing the behavior of Plugg Class { #name : #PluggableTableRowCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-Applying' } diff --git a/source/Willow-Tests/RadioGroupWebViewTest.class.st b/source/Willow-Tests/RadioGroupWebViewTest.class.st index 56e4f2ed..44a797ef 100644 --- a/source/Willow-Tests/RadioGroupWebViewTest.class.st +++ b/source/Willow-Tests/RadioGroupWebViewTest.class.st @@ -4,7 +4,7 @@ A RadioGroupWebViewTest is a test class for testing the behavior of RadioGroupWe Class { #name : #RadioGroupWebViewTest, #superclass : #SingleSelectionWebViewTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #support } diff --git a/source/Willow-Tests/ReflectiveCascadingStyleSheetBuilderExtensionTest.class.st b/source/Willow-Tests/ReflectiveCascadingStyleSheetBuilderExtensionTest.class.st new file mode 100644 index 00000000..22006af3 --- /dev/null +++ b/source/Willow-Tests/ReflectiveCascadingStyleSheetBuilderExtensionTest.class.st @@ -0,0 +1,14 @@ +" +I'm a test case for Willow extensions to the CSS builder +" +Class { + #name : #ReflectiveCascadingStyleSheetBuilderExtensionTest, + #superclass : #TestCase, + #category : #'Willow-Tests-Frontend' +} + +{ #category : #tests } +ReflectiveCascadingStyleSheetBuilderExtensionTest >> testClassification [ + + self assert: ReflectiveCascadingStyleSheetBuilder new classification equals: Willow classification +] diff --git a/source/Willow-Tests/RenderingCommandTest.class.st b/source/Willow-Tests/RenderingCommandTest.class.st index a5119f1e..f4f3b30c 100644 --- a/source/Willow-Tests/RenderingCommandTest.class.st +++ b/source/Willow-Tests/RenderingCommandTest.class.st @@ -8,7 +8,7 @@ Class { 'identifiedView', 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/ScrollIntoViewCommandTest.class.st b/source/Willow-Tests/ScrollIntoViewCommandTest.class.st index fee9d94e..6ee2fe8b 100644 --- a/source/Willow-Tests/ScrollIntoViewCommandTest.class.st +++ b/source/Willow-Tests/ScrollIntoViewCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/SerializationCommandTest.class.st b/source/Willow-Tests/SerializationCommandTest.class.st index cdb8c8a2..fd75bb9e 100644 --- a/source/Willow-Tests/SerializationCommandTest.class.st +++ b/source/Willow-Tests/SerializationCommandTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'command' ], - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #initialization } diff --git a/source/Willow-Tests/SetColumnSpanCommandTest.class.st b/source/Willow-Tests/SetColumnSpanCommandTest.class.st index b94986aa..a487e00b 100644 --- a/source/Willow-Tests/SetColumnSpanCommandTest.class.st +++ b/source/Willow-Tests/SetColumnSpanCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #SetColumnSpanCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/SetComponentSizeCommandTest.class.st b/source/Willow-Tests/SetComponentSizeCommandTest.class.st index b24d2353..231a9a3f 100644 --- a/source/Willow-Tests/SetComponentSizeCommandTest.class.st +++ b/source/Willow-Tests/SetComponentSizeCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #SetComponentSizeCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/SetComponentStyleCommandTest.class.st b/source/Willow-Tests/SetComponentStyleCommandTest.class.st index 1383e455..3d4d2b24 100644 --- a/source/Willow-Tests/SetComponentStyleCommandTest.class.st +++ b/source/Willow-Tests/SetComponentStyleCommandTest.class.st @@ -4,7 +4,7 @@ A SetComponentStyleCommandTest is a test class for testing the behavior of SetCo Class { #name : #SetComponentStyleCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-initialization' } diff --git a/source/Willow-Tests/SetComponentTabIndexCommandTest.class.st b/source/Willow-Tests/SetComponentTabIndexCommandTest.class.st index 36883236..224a7861 100644 --- a/source/Willow-Tests/SetComponentTabIndexCommandTest.class.st +++ b/source/Willow-Tests/SetComponentTabIndexCommandTest.class.st @@ -1,7 +1,7 @@ Class { #name : #SetComponentTabIndexCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-processing' } diff --git a/source/Willow-Tests/SetRowSpanCommandTest.class.st b/source/Willow-Tests/SetRowSpanCommandTest.class.st index b708fc4b..450dfb83 100644 --- a/source/Willow-Tests/SetRowSpanCommandTest.class.st +++ b/source/Willow-Tests/SetRowSpanCommandTest.class.st @@ -4,7 +4,7 @@ A SetRowSpanCommandTest is a test class for testing the behavior of SetRowSpanCo Class { #name : #SetRowSpanCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #tests } diff --git a/source/Willow-Tests/SingleSelectionListBoxWebViewTest.class.st b/source/Willow-Tests/SingleSelectionListBoxWebViewTest.class.st index dce6473a..5a12b78a 100644 --- a/source/Willow-Tests/SingleSelectionListBoxWebViewTest.class.st +++ b/source/Willow-Tests/SingleSelectionListBoxWebViewTest.class.st @@ -4,7 +4,7 @@ A SingleSelectionListBoxWebViewTest is a test class for testing the behavior of Class { #name : #SingleSelectionListBoxWebViewTest, #superclass : #SingleSelectionWebViewTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'instance creation' } diff --git a/source/Willow-Tests/SingleSelectionWebViewTest.class.st b/source/Willow-Tests/SingleSelectionWebViewTest.class.st index b4a8f8de..81f666f2 100644 --- a/source/Willow-Tests/SingleSelectionWebViewTest.class.st +++ b/source/Willow-Tests/SingleSelectionWebViewTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'notificationWasReceived' ], - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #testing } diff --git a/source/Willow-Tests/SynchronicSubmitButtonWebViewTest.class.st b/source/Willow-Tests/SynchronicSubmitButtonWebViewTest.class.st index bf3eee4f..d5aaf852 100644 --- a/source/Willow-Tests/SynchronicSubmitButtonWebViewTest.class.st +++ b/source/Willow-Tests/SynchronicSubmitButtonWebViewTest.class.st @@ -4,7 +4,7 @@ A SynchronicSubmitButtonWebViewTest is a test class for testing the behavior of Class { #name : #SynchronicSubmitButtonWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #tests } diff --git a/source/Willow-Tests/TableWebViewTest.class.st b/source/Willow-Tests/TableWebViewTest.class.st index c9ac2aa4..9facfb90 100644 --- a/source/Willow-Tests/TableWebViewTest.class.st +++ b/source/Willow-Tests/TableWebViewTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'notificationWasReceived' ], - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #private } diff --git a/source/Willow-Tests/TemporarilyDisablingCommandTest.class.st b/source/Willow-Tests/TemporarilyDisablingCommandTest.class.st index 9d10fa31..28d30ac0 100644 --- a/source/Willow-Tests/TemporarilyDisablingCommandTest.class.st +++ b/source/Willow-Tests/TemporarilyDisablingCommandTest.class.st @@ -4,7 +4,7 @@ A TemporarilyDisablingCommandTest is a test class for testing the behavior of Te Class { #name : #TemporarilyDisablingCommandTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #'tests-accessing' } diff --git a/source/Willow-Tests/TextFieldWebViewTest.class.st b/source/Willow-Tests/TextFieldWebViewTest.class.st index 3248d1a3..05a60efa 100644 --- a/source/Willow-Tests/TextFieldWebViewTest.class.st +++ b/source/Willow-Tests/TextFieldWebViewTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'notificationWasReceived' ], - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'test support' } @@ -46,6 +46,20 @@ TextFieldWebViewTest >> testIdentifyIn [ assert: textField identifier equals: 'text-id1' ] +{ #category : #'tests-container-API' } +TextFieldWebViewTest >> testModel [ + + | textField | + + textField := TextFieldWebView singleLineTriggeringOnChangeApplying: [ :field | ]. + + self assert: textField model equals: textField contents. + + textField changeModelTo: 'Hello World!'. + + self assert: textField model equals: 'Hello World!' +] + { #category : #'tests-container-API' } TextFieldWebViewTest >> testNotifyChangesTo [ diff --git a/source/Willow-Tests/UnorderedListWebViewTest.class.st b/source/Willow-Tests/UnorderedListWebViewTest.class.st index 69968371..d2970d03 100644 --- a/source/Willow-Tests/UnorderedListWebViewTest.class.st +++ b/source/Willow-Tests/UnorderedListWebViewTest.class.st @@ -4,7 +4,7 @@ An UnorderedListWebViewTest is a test class for testing the behavior of Unordere Class { #name : #UnorderedListWebViewTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebViews' + #category : #'Willow-Tests-WebViews' } { #category : #'tests-rendering' } diff --git a/source/Willow-Tests/WebComponentCommandBuilderTest.class.st b/source/Willow-Tests/WebComponentCommandBuilderTest.class.st index 235f9ff7..a12f1f54 100644 --- a/source/Willow-Tests/WebComponentCommandBuilderTest.class.st +++ b/source/Willow-Tests/WebComponentCommandBuilderTest.class.st @@ -4,7 +4,7 @@ A WebComponentCommandBuilderTest is a test class for testing the behavior of Web Class { #name : #WebComponentCommandBuilderTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #private } @@ -191,7 +191,11 @@ WebComponentCommandBuilderTest >> testInputModeCommands [ html := self apply: self commandBuilder beEmailInput toComponentDefinedBy: [ :canvas | canvas textInput ]. - self assert: html equals: '' + self assert: html equals: ''. + + html := self apply: self commandBuilder beTextInput toComponentDefinedBy: [ :canvas | canvas textInput type: 'date' ]. + + self assert: html equals: '' ] { #category : #tests } diff --git a/source/Willow-Tests/WebComponentCommandToTableRowCommandAdapterTest.class.st b/source/Willow-Tests/WebComponentCommandToTableRowCommandAdapterTest.class.st index 5b04e624..28326d11 100644 --- a/source/Willow-Tests/WebComponentCommandToTableRowCommandAdapterTest.class.st +++ b/source/Willow-Tests/WebComponentCommandToTableRowCommandAdapterTest.class.st @@ -4,7 +4,7 @@ A WebComponentCommandToTableRowCommandAdapterTest is a test class for testing th Class { #name : #WebComponentCommandToTableRowCommandAdapterTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Frontend' + #category : #'Willow-Tests-Frontend' } { #category : #'tests-Applying' } diff --git a/source/Willow-Tests/WebComponentInteractionTest.class.st b/source/Willow-Tests/WebComponentInteractionTest.class.st index 683f0cb8..87b22aa5 100644 --- a/source/Willow-Tests/WebComponentInteractionTest.class.st +++ b/source/Willow-Tests/WebComponentInteractionTest.class.st @@ -1,7 +1,7 @@ Class { #name : #WebComponentInteractionTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-WebInteraction' + #category : #'Willow-Tests-WebInteraction' } { #category : #tests } diff --git a/source/Willow-Tests/WillowApplicationTest.class.st b/source/Willow-Tests/WillowApplicationTest.class.st index d2418119..6b1bcce7 100644 --- a/source/Willow-Tests/WillowApplicationTest.class.st +++ b/source/Willow-Tests/WillowApplicationTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'applicationStarted' ], - #category : 'Willow-Tests-Applications' + #category : #'Willow-Tests-Applications' } { #category : #accessing } diff --git a/source/Willow-Tests/WillowJavascriptNamespaceTest.class.st b/source/Willow-Tests/WillowJavascriptNamespaceTest.class.st index 3da05fa1..eaedb905 100644 --- a/source/Willow-Tests/WillowJavascriptNamespaceTest.class.st +++ b/source/Willow-Tests/WillowJavascriptNamespaceTest.class.st @@ -4,7 +4,7 @@ A WillowJavascriptNamespaceTest is a test class for testing the behavior of Will Class { #name : #WillowJavascriptNamespaceTest, #superclass : #TestCase, - #category : 'Willow-Tests-Applications' + #category : #'Willow-Tests-Applications' } { #category : #'tests-Accessing' } diff --git a/source/Willow-Tests/WillowNamespaceFileMetadataLibraryTest.class.st b/source/Willow-Tests/WillowNamespaceFileMetadataLibraryTest.class.st index f460e5bb..ab69a32a 100644 --- a/source/Willow-Tests/WillowNamespaceFileMetadataLibraryTest.class.st +++ b/source/Willow-Tests/WillowNamespaceFileMetadataLibraryTest.class.st @@ -4,7 +4,7 @@ A WillowNamespaceFileMetadataLibraryTest is a test class for testing the behavio Class { #name : #WillowNamespaceFileMetadataLibraryTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Libraries' + #category : #'Willow-Tests-Libraries' } { #category : #tests } diff --git a/source/Willow-Tests/WillowSeasideExtensionsTest.class.st b/source/Willow-Tests/WillowSeasideExtensionsTest.class.st index 144ab1e4..a237d7f4 100644 --- a/source/Willow-Tests/WillowSeasideExtensionsTest.class.st +++ b/source/Willow-Tests/WillowSeasideExtensionsTest.class.st @@ -4,7 +4,7 @@ This test case verifies method extensions to Seaside classes Class { #name : #WillowSeasideExtensionsTest, #superclass : #WARenderingTest, - #category : 'Willow-Tests-Applications' + #category : #'Willow-Tests-Applications' } { #category : #accessing } diff --git a/source/Willow-Tests/WillowSessionTest.class.st b/source/Willow-Tests/WillowSessionTest.class.st index cddcc9da..e580a3e2 100644 --- a/source/Willow-Tests/WillowSessionTest.class.st +++ b/source/Willow-Tests/WillowSessionTest.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'componentSupplier' ], - #category : 'Willow-Tests-Applications' + #category : #'Willow-Tests-Applications' } { #category : #accessing } diff --git a/source/Willow-Tests/WillowSystemConfigurationTest.class.st b/source/Willow-Tests/WillowSystemConfigurationTest.class.st index a4d91f09..c0bbfb7a 100644 --- a/source/Willow-Tests/WillowSystemConfigurationTest.class.st +++ b/source/Willow-Tests/WillowSystemConfigurationTest.class.st @@ -4,7 +4,7 @@ A WillowSystemConfigurationTest is a test class for testing the behavior of Will Class { #name : #WillowSystemConfigurationTest, #superclass : #TestCase, - #category : 'Willow-Tests-Applications' + #category : #'Willow-Tests-Applications' } { #category : #'tests-description' } diff --git a/source/Willow-Tests/WillowTestingApplication.class.st b/source/Willow-Tests/WillowTestingApplication.class.st index 56f0c8be..c681e3ac 100644 --- a/source/Willow-Tests/WillowTestingApplication.class.st +++ b/source/Willow-Tests/WillowTestingApplication.class.st @@ -7,7 +7,7 @@ Class { #instVars : [ 'componentSupplier' ], - #category : 'Willow-Tests-Applications' + #category : #'Willow-Tests-Applications' } { #category : #accessing } diff --git a/source/Willow/DateFieldWebView.class.st b/source/Willow/DateFieldWebView.class.st index 3e544c57..c7b1c933 100644 --- a/source/Willow/DateFieldWebView.class.st +++ b/source/Willow/DateFieldWebView.class.st @@ -20,7 +20,8 @@ DateFieldWebView class >> applying: aComponentCommand [ { #category : #'instance creation' } DateFieldWebView class >> applying: aComponentCommand transformingWith: aTextCodec [ - ^ self new initializeApplying: [ :field | field beDateInput + aComponentCommand ] asWebComponentCommand transformingWith: aTextCodec + ^ (self forComponentBuiltUsing: [ :canvas | canvas textInput ] withInteractionDefinedBy: self changeInterpreter applying: [ :field | field beDateInput + aComponentCommand ] asWebComponentCommand) + initializeTransformingWith: aTextCodec ] { #category : #'Date-Container-API' } @@ -35,10 +36,15 @@ DateFieldWebView >> date [ ^ self model ] +{ #category : #'private - Accessing' } +DateFieldWebView >> identifierPrefix [ + + ^ 'date-field' +] + { #category : #initialization } -DateFieldWebView >> initializeApplying: aComponentCommand transformingWith: aTextCodec [ +DateFieldWebView >> initializeTransformingWith: aTextCodec [ - textField := TextFieldWebView singleLineTriggeringOnChangeApplying: aComponentCommand. textCodec := aTextCodec ] @@ -47,9 +53,3 @@ DateFieldWebView >> textCodec [ ^ textCodec ] - -{ #category : #'private - Accessing' } -DateFieldWebView >> textField [ - - ^ textField -] diff --git a/source/Willow/FieldWebView.class.st b/source/Willow/FieldWebView.class.st index 8b2ff42d..beae4f7a 100644 --- a/source/Willow/FieldWebView.class.st +++ b/source/Willow/FieldWebView.class.st @@ -4,53 +4,122 @@ I 'm an abstract class representing non textual HTML5 inputs. Class { #name : #FieldWebView, #superclass : #WAPainter, + #instVars : [ + 'interactionInterpreter', + 'commandToComponent', + 'interested', + 'componentBuilder', + 'contents', + 'identifierAssigner' + ], #category : #'Willow-WebViews' } +{ #category : #private } +FieldWebView class >> changeInterpreter [ + + ^ WebInteractionInterpreter forChangeInComponentValue +] + +{ #category : #private } +FieldWebView class >> forComponentBuiltUsing: aComponentBuilder withInteractionDefinedBy: anInteractionInterpreter applying: aComponentCommand [ + + ^ self new + initializeForComponentBuiltUsing: aComponentBuilder + withInteractionDefinedBy: anInteractionInterpreter + applying: aComponentCommand asWebComponentCommand +] + +{ #category : #'Container-API' } +FieldWebView >> changeContentsTo: aText [ + + contents := aText. + self notifyInterested +] + { #category : #'Container-API' } FieldWebView >> changeModelTo: aModel [ - ^ self textField changeContentsTo: (self textCodec encode: aModel) + ^ self changeContentsTo: (self textCodec encode: aModel) +] + +{ #category : #'Container-API' } +FieldWebView >> contents [ + + ^contents +] + +{ #category : #accessing } +FieldWebView >> identifier [ + + ^identifierAssigner assignedIdentifier +] + +{ #category : #'private - Accessing' } +FieldWebView >> identifierPrefix [ + + ^ self subclassResponsibility ] { #category : #configuring } FieldWebView >> identifyIn: aCanvas [ - ^ self textField identifyIn: aCanvas + ^ identifierAssigner identifyIn: aCanvas +] + +{ #category : #initialization } +FieldWebView >> initializeForComponentBuiltUsing: aComponentBuilder withInteractionDefinedBy: anInteractionInterpreter applying: aComponentCommand [ + + componentBuilder := aComponentBuilder. + interactionInterpreter := anInteractionInterpreter. + commandToComponent := aComponentCommand. + interested := Set new. + identifierAssigner := IdentifierAssigner prefixedBy: self identifierPrefix. + self changeContentsTo: '' ] { #category : #'Container-API' } FieldWebView >> model [ - ^ self textCodec decode: self textField contents + ^ self textCodec decode: self contents ] { #category : #'Container-API' } FieldWebView >> notifyChangesTo: aSupervisor [ - ^ self textField notifyChangesTo: aSupervisor + interested add: aSupervisor +] + +{ #category : #private } +FieldWebView >> notifyInterested [ + + interested do: [:anInterested | anInterested changeNotifiedBy: self] ] { #category : #configuring } FieldWebView >> onTrigger [ - ^ self textField onTrigger + ^ interactionInterpreter ] { #category : #rendering } FieldWebView >> renderContentOn: aCanvas [ - aCanvas render: self textField -] + | component | -{ #category : #'private - Accessing' } -FieldWebView >> textCodec [ + component := componentBuilder value: aCanvas. + component + value: self contents; + callback: [ :aString | self changeContentsTo: aString ]. - ^ self subclassResponsibility + identifierAssigner withAssignedIdentifierDo: [ :id | component id: id ]. + component + apply: commandToComponent; + interactUsing: interactionInterpreter ] { #category : #'private - Accessing' } -FieldWebView >> textField [ +FieldWebView >> textCodec [ ^ self subclassResponsibility ] diff --git a/source/Willow/InputModeCommand.class.st b/source/Willow/InputModeCommand.class.st index 459ebac3..1ee7d92c 100644 --- a/source/Willow/InputModeCommand.class.st +++ b/source/Willow/InputModeCommand.class.st @@ -34,6 +34,12 @@ InputModeCommand class >> asPassword [ ^ self settingTypeTo: 'password' ] +{ #category : #'Instance Creation' } +InputModeCommand class >> asText [ + + ^ self settingTypeTo: 'text' +] + { #category : #'private-Instance Creation' } InputModeCommand class >> settingTypeTo: aType [ diff --git a/source/Willow/NumberFieldWebView.class.st b/source/Willow/NumberFieldWebView.class.st index 88302316..54ffaa70 100644 --- a/source/Willow/NumberFieldWebView.class.st +++ b/source/Willow/NumberFieldWebView.class.st @@ -5,7 +5,6 @@ Class { #name : #NumberFieldWebView, #superclass : #FieldWebView, #instVars : [ - 'textField', 'textCodec' ], #category : #'Willow-WebViews' @@ -14,7 +13,10 @@ Class { { #category : #'instance creation' } NumberFieldWebView class >> applying: aComponentCommand transformingWith: aTextCodec [ - ^ self new initializeApplying: [ :field | field beNumberInput + aComponentCommand ] asWebComponentCommand transformingWith: aTextCodec + ^ (self + forComponentBuiltUsing: [ :canvas | canvas textInput ] + withInteractionDefinedBy: self changeInterpreter + applying: [ :field | field beNumberInput + aComponentCommand ] asWebComponentCommand) initializeTransformingWith: aTextCodec ] { #category : #'number-container-API' } @@ -23,10 +25,15 @@ NumberFieldWebView >> changeNumberTo: aNumber [ self changeModelTo: aNumber ] +{ #category : #'private - Accessing' } +NumberFieldWebView >> identifierPrefix [ + + ^ 'number-field' +] + { #category : #initialization } -NumberFieldWebView >> initializeApplying: aComponentCommand transformingWith: aTextCodec [ +NumberFieldWebView >> initializeTransformingWith: aTextCodec [ - textField := TextFieldWebView singleLineTriggeringOnChangeApplying: aComponentCommand. textCodec := aTextCodec ] @@ -41,9 +48,3 @@ NumberFieldWebView >> textCodec [ ^ textCodec ] - -{ #category : #'private - Accessing' } -NumberFieldWebView >> textField [ - - ^ textField -] diff --git a/source/Willow/TextFieldWebView.class.st b/source/Willow/TextFieldWebView.class.st index 082f1d52..0772d39a 100644 --- a/source/Willow/TextFieldWebView.class.st +++ b/source/Willow/TextFieldWebView.class.st @@ -3,27 +3,10 @@ I enable the user to input text information. I support single-line text box when " Class { #name : #TextFieldWebView, - #superclass : #WAPainter, - #instVars : [ - 'interactionInterpreter', - 'commandToComponent', - 'interested', - 'componentBuilder', - 'contents', - 'identifierAssigner' - ], + #superclass : #FieldWebView, #category : #'Willow-WebViews' } -{ #category : #private } -TextFieldWebView class >> forComponentBuiltUsing: aComponentBuilder withInteractionDefinedBy: anInteractionInterpreter applying: aComponentCommand [ - - ^ self new - initializeForComponentBuiltUsing: aComponentBuilder - withInteractionDefinedBy: anInteractionInterpreter - applying: aComponentCommand asWebComponentCommand -] - { #category : #'Instance Creation' } TextFieldWebView class >> multiLineTriggeringOnChangeApplying: aComponentCommand [ @@ -42,7 +25,10 @@ TextFieldWebView class >> multiLineTriggeringOnKeyUpApplying: aComponentCommand { #category : #'Instance Creation' } TextFieldWebView class >> singleLineTriggeringOnChangeApplying: aComponentCommand [ - ^ self forComponentBuiltUsing: [ :canvas | canvas textInput ] withInteractionDefinedBy: WebInteractionInterpreter forChangeInComponentValue applying: aComponentCommand + ^ self + forComponentBuiltUsing: [ :canvas | canvas textInput ] + withInteractionDefinedBy: self changeInterpreter + applying: aComponentCommand ] { #category : #'Instance Creation' } @@ -51,72 +37,14 @@ TextFieldWebView class >> singleLineTriggeringOnKeyUpApplying: aComponentCommand ^ self forComponentBuiltUsing: [ :canvas | canvas textInput ] withInteractionDefinedBy: WebInteractionInterpreter forReleaseOfKeyInComponent applying: aComponentCommand ] -{ #category : #'container-API' } -TextFieldWebView >> changeContentsTo: aText [ - - contents := aText. - self notifyInterested -] - -{ #category : #'container-API' } -TextFieldWebView >> contents [ - - ^contents -] - -{ #category : #accessing } -TextFieldWebView >> identifier [ - - ^identifierAssigner assignedIdentifier -] - -{ #category : #configuring } -TextFieldWebView >> identifyIn: aCanvas [ +{ #category : #'private - Accessing' } +TextFieldWebView >> identifierPrefix [ - ^ identifierAssigner identifyIn: aCanvas + ^ 'text' ] -{ #category : #initialization } -TextFieldWebView >> initializeForComponentBuiltUsing: aComponentBuilder withInteractionDefinedBy: anInteractionInterpreter applying: aComponentCommand [ - - componentBuilder := aComponentBuilder. - interactionInterpreter := anInteractionInterpreter. - commandToComponent := aComponentCommand. - interested := Set new. - identifierAssigner := IdentifierAssigner prefixedBy: 'text'. - self changeContentsTo: '' -] - -{ #category : #'container-API' } -TextFieldWebView >> notifyChangesTo: aSupervisor [ - - interested add: aSupervisor -] - -{ #category : #private } -TextFieldWebView >> notifyInterested [ - - interested do: [:anInterested | anInterested changeNotifiedBy: self] -] - -{ #category : #configuring } -TextFieldWebView >> onTrigger [ - - ^ interactionInterpreter -] - -{ #category : #rendering } -TextFieldWebView >> renderContentOn: aCanvas [ - - | component | - - component := componentBuilder value: aCanvas. - component - value: self contents; - callback: [ :aString | self changeContentsTo: aString ]. +{ #category : #'private - Accessing' } +TextFieldWebView >> textCodec [ - identifierAssigner withAssignedIdentifierDo: [ :id | component id: id ]. - component - apply: commandToComponent; - interactUsing: interactionInterpreter + ^ NullCodec new ] diff --git a/source/Willow/WebComponentCommandBuilder.class.st b/source/Willow/WebComponentCommandBuilder.class.st index ee98eaac..372e978a 100644 --- a/source/Willow/WebComponentCommandBuilder.class.st +++ b/source/Willow/WebComponentCommandBuilder.class.st @@ -70,6 +70,12 @@ WebComponentCommandBuilder >> beRequired [ ^ ComponentRequiredCommand new ] +{ #category : #Building } +WebComponentCommandBuilder >> beTextInput [ + + ^ InputModeCommand asText +] + { #category : #Building } WebComponentCommandBuilder >> boundBetween: aLowerBound and: anUpperBound [