SeasideSt · jbrichau · Aug 16, 2022 · Aug 16, 2022 · Aug 16, 2022 · Aug 16, 2022
diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml
@@ -12,10 +12,10 @@ jobs:
     strategy:
       fail-fast: false
       matrix:
-        smalltalk: [ Pharo64-12, Pharo64-11, Pharo64-10, Pharo64-9.0, Pharo64-8.0, GemStone64-3.7.1, GemStone64-3.6.8, GemStone64-3.5.8 ]
+        smalltalk: [ Pharo64-13, Pharo64-12, Pharo64-11, Pharo64-10, Pharo64-9.0, Pharo64-8.0, GemStone64-3.7.1, GemStone64-3.6.8, GemStone64-3.5.8 ]
         experimental: [ false ]
         include:
-          - smalltalk: Pharo64-13
+          - smalltalk: Pharo64-14
             experimental: true
           - smalltalk: GToolkit64-release 
             experimental: true

diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baseline..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baseline..st
@@ -11,6 +11,7 @@ baseline: spec
 	self baselinefilesystem: spec.
 	self baselineadaptors: spec.
 	self baselinecomet: spec.
+	self baselinewebsocket: spec.
 	self baselinejavascript: spec.
 	self baselinejquery: spec.
 	self baselinejqueryui: spec.

diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st
@@ -39,7 +39,15 @@ baselineadaptors: spec
 
 	spec
 		for: #pharo
-		do: [
+		do: [ 
+			spec
+				baseline: 'Zinc WebSockets'
+				with: [ 
+					spec
+						className: 'BaselineOfZincHTTPComponents';
+						loads: #('WebSocket');
+						repository: 'github://svenvc/zinc:master/repository' ].
+
 			spec
 				package: 'Seaside-Adaptors-Comanche' with: [ spec requires: #('KomHttpServerLight' 'Seaside-Core') ];
 				package: 'KomHttpServerLight' with: [ spec repository: 'http://www.smalltalkhub.com/mc/Seaside/KomHttpServer/main' ];
@@ -56,7 +64,8 @@ baselineadaptors: spec
 
 	spec
 		for: #gemstone
-		do: [ spec
+		do: [ 
+			spec
 				project: 'FastCGI Project'
 					with: [ spec
 						className: 'ConfigurationOfGsFastCGI';

diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st
@@ -67,6 +67,8 @@ baselinecommon: spec
 				spec requires: #('Seaside-Component' 'Seaside-Canvas' ) ];
 			package: 'Seaside-HotwireTurbo-Core' with: [
 				spec requires: #('Seaside-Core' 'Seaside-Component' 'Seaside-Canvas' 'Seaside-RenderLoop' ) ];
+			package: 'Seaside-HotwireStimulus-Core' with: [
+				spec requires: #('Seaside-Core' 'Seaside-Component' 'Seaside-Canvas' 'Seaside-RenderLoop' ) ];
 			package: 'Seaside-HotwireTurbo-Examples' with: [
 				spec requires: #('Seaside-HotwireTurbo-Core' 'Seaside-Examples') ];
 			package: 'Seaside-Tests-Canvas' with: [
@@ -112,7 +114,7 @@ baselinecommon: spec
 
 			group: 'Core' with: #('Seaside-Core' 'Seaside-Continuation' 'Seaside-Canvas' 'Seaside-Session' 'Seaside-Component' 'Seaside-RenderLoop' 'Seaside-Tools-Core' 'Seaside-Flow' 'Seaside-Environment' 'Seaside-Widgets' );
 			group: 'Tests' with: #('Core' 'Seaside-Tests-Core' 'Seaside-Tests-Canvas' 'Seaside-Tests-Session' 'Seaside-Tests-Component' 'Seaside-Tests-RenderLoop' 'Seaside-Tests-Environment' 'Seaside-Tests-Flow' 'Seaside-Tests-UTF8' 'Seaside-Tests-InternetExplorer' 'Seaside-Tests-Email' 'Seaside-Tests-Examples' 'Seaside-Tests-WebComponents' 'RSS Tests' 'Welcome Tests' 'REST Tests' 'Swagger Tests' 'Seaside-Tests-Parasol' 'Seaside-Tests-HotwireTurbo');
-			group: 'Hotwired' with: #('Seaside-HotwireTurbo-Core');
+			group: 'Hotwired' with: #('Seaside-HotwireTurbo-Core' 'Seaside-HotwireStimulus-Core');
 			group: 'Development' with: #('Core' 'Seaside-Development');
 			group: 'Development Tests' with: #('Development' 'Core' 'Seaside-Tests-Development');
 			group: 'Email' with: #('Seaside-Email');

diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinegettext..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinegettext..st
@@ -15,8 +15,7 @@ baselinegettext: spec
           with: [ spec requires: #('Seaside-Gettext-Examples') ].
       spec
         group: 'Seaside-Gettext' with: #('Seaside-Gettext-Core');
-        group: 'Gettext-Examples'
-          with: #('Seaside-Gettext' 'Seaside-Gettext-Examples');
+        group: 'Gettext-Examples' with: #('Seaside-Gettext' 'Seaside-Gettext-Examples');
         group: 'Tests' with: #('Seaside-Tests-Gettext-Core' 'Gettext-Examples') ].
 
   spec

diff --git a/...sitory/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinewebsocket..st b/...sitory/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinewebsocket..st
@@ -0,0 +1,20 @@
+baselines
+baselinewebsocket: spec
+
+	spec for: #'pharo' do: [
+		spec blessing: #baseline.
+		spec 
+			package: 'Seaside-WebSocket-Core' with: [
+				spec requires: #('Javascript-Core' 'Seaside-Canvas' ) ];
+"			package: 'Seaside-WebSocket-Tests-Core' with: [
+				spec requires: #('Javascript-Tests-Core' 'Seaside-WebSocket-Core' ) ];"
+			package: 'Seaside-WebSocket-Zinc' with:[ 
+				spec requires: #('Zinc' 'Zinc WebSockets') ];
+			package: 'Seaside-WebSocket-Examples' with: [
+				spec requires: #('JQuery-Core' 'Seaside-WebSocket-Core') ].
+
+		spec 
+			group: 'WebSocket' with: #('Seaside-WebSocket-Core' 'Seaside-WebSocket-Zinc');
+"			group: 'WebSocket Tests' with: #('Seaside-WebSocket-Tests-Core' );"
+			group: 'Examples' with: #('Seaside-WebSocket-Examples' )
+			"group: 'Tests' with: #('WebSocket Tests')" ]
diff --git a/repository/Seaside-Canvas.package/WATagBrush.class/instance/attributeAt.put.if..st b/repository/Seaside-Canvas.package/WATagBrush.class/instance/attributeAt.put.if..st
@@ -0,0 +1,4 @@
+accessing-attributes
+attributeAt: aKey put: aValue if: aBoolean
+
+	^ aBoolean ifTrue:[ self attributes at: aKey put: aValue ]
diff --git a/repository/Seaside-Canvas.package/WATagBrush.class/instance/dataAttributeAt.put..st b/repository/Seaside-Canvas.package/WATagBrush.class/instance/dataAttributeAt.put..st
@@ -1,4 +1,4 @@
 attributes
 dataAttributeAt: aString put: aValue
 
-	self attributeAt: 'data-',aString put: aValue
+	^ self attributeAt: 'data-',aString put: aValue
diff --git a/repository/Seaside-Canvas.package/WATagBrush.class/instance/dataAttributeAt.put.if..st b/repository/Seaside-Canvas.package/WATagBrush.class/instance/dataAttributeAt.put.if..st
@@ -1,4 +1,4 @@
 attributes
 dataAttributeAt: aString put: aValue if: aBoolean
 
-	aBoolean ifTrue:[ self dataAttributeAt: aString put: aValue ]
+	^ aBoolean ifTrue:[ self dataAttributeAt: aString put: aValue ]
diff --git a/repository/Seaside-Core.package/GRPlatform.extension/instance/seasideVersion.st b/repository/Seaside-Core.package/GRPlatform.extension/instance/seasideVersion.st
@@ -2,5 +2,5 @@
 seasideVersion
 	"Answer the Seaside version"
 
-	^ (GRVersion major: 3 minor: 5 revision: 9)
+	^ (GRVersion major: 3 minor: 6 revision: 0)
 		yourself
diff --git a/repository/Seaside-Core.package/WARequest.class/instance/isWebSocketSetupRequest.st b/repository/Seaside-Core.package/WARequest.class/instance/isWebSocketSetupRequest.st
@@ -0,0 +1,9 @@
+testing
+isWebSocketSetupRequest
+	"Return true when request can be considered a valid WebSocket setup request"
+
+	^ self isGet
+			and: [ (self headerAt: 'upgrade' ifAbsent: [ ^ false ]) asLowercase = 'websocket' 
+				and: [ (self headerAt: 'connection' ifAbsent: [ ^ false ]) asLowercase = 'upgrade' 
+					and: [ (self headerAt: 'sec-websocket-version' ifAbsent: [ ^ false ]) = '13'
+						and: [ self headers includesKey: 'sec-websocket-key' ] ] ] ]
diff --git a/repository/Seaside-Core.package/WARequestContext.class/instance/webSocket.st b/repository/Seaside-Core.package/WARequestContext.class/instance/webSocket.st
@@ -0,0 +1,3 @@
+accessing
+webSocket
+	^ self properties at: #webSocket ifAbsent:[ nil ]
diff --git a/repository/Seaside-Core.package/WARequestHandler.class/instance/handleFiltered..st b/repository/Seaside-Core.package/WARequestHandler.class/instance/handleFiltered..st
@@ -1,5 +1,5 @@
 handling
 handleFiltered: aRequestContext 
-	"Handle aRequestContext by either dispatching to a different request handler of by producing a response and singalling the result."
+	"Handle aRequestContext by either dispatching to a different request handler of by producing a response and signalling the result."
 
 	self subclassResponsibility
diff --git a/...Stone-Adaptors-Zinc.package/WAGsZincAdaptor.class/instance/websocketSetupResponseFrom..st b/...Stone-Adaptors-Zinc.package/WAGsZincAdaptor.class/instance/websocketSetupResponseFrom..st
@@ -0,0 +1,4 @@
+as yet unclassified
+websocketSetupResponseFrom: aRequestContext
+
+	Error signal: 'Web sockets not supported yet in GemStone'
diff --git a/repository/Seaside-HotwireStimulus-Core.package/.filetree b/repository/Seaside-HotwireStimulus-Core.package/.filetree
@@ -0,0 +1,5 @@
+{
+	"separateMethodMetaAndSource" : false,
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}
diff --git a/...ory/Seaside-HotwireStimulus-Core.package/WATagBrush.extension/instance/stimulusAction..st b/...ory/Seaside-HotwireStimulus-Core.package/WATagBrush.extension/instance/stimulusAction..st
@@ -0,0 +1,4 @@
+*Seaside-HotwireStimulus-Core
+stimulusAction: aString
+
+	self dataAttributeAt: 'action' put: aString
diff --git a/...Seaside-HotwireStimulus-Core.package/WATagBrush.extension/instance/stimulusController..st b/...Seaside-HotwireStimulus-Core.package/WATagBrush.extension/instance/stimulusController..st
@@ -0,0 +1,4 @@
+*Seaside-HotwireStimulus-Core
+stimulusController: aString
+
+	self dataAttributeAt: 'controller' put: aString
diff --git a/...otwireStimulus-Core.package/WATagBrush.extension/instance/stimulusTarget.inController..st b/...otwireStimulus-Core.package/WATagBrush.extension/instance/stimulusTarget.inController..st
@@ -0,0 +1,4 @@
+*Seaside-HotwireStimulus-Core
+stimulusTarget: targetName inController: controllerName
+
+	self dataAttributeAt: controllerName,'-target' put: targetName
diff --git a/repository/Seaside-HotwireStimulus-Core.package/WATagBrush.extension/properties.json b/repository/Seaside-HotwireStimulus-Core.package/WATagBrush.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "WATagBrush"
+}
diff --git a/repository/Seaside-HotwireStimulus-Core.package/monticello.meta/categories.st b/repository/Seaside-HotwireStimulus-Core.package/monticello.meta/categories.st
@@ -0,0 +1 @@
+self packageOrganizer ensurePackage: #'Seaside-HotwireStimulus-Core' withTags: #()!
diff --git a/...eTurboCalledTestComponent.class/README.md → ...e.package/monticello.meta/initializers.st b/...eTurboCalledTestComponent.class/README.md → ...e.package/monticello.meta/initializers.st
diff --git a/repository/Seaside-HotwireStimulus-Core.package/monticello.meta/package b/repository/Seaside-HotwireStimulus-Core.package/monticello.meta/package
@@ -0,0 +1 @@
+(name 'Seaside-HotwireStimulus-Core')
diff --git a/repository/Seaside-HotwireStimulus-Core.package/properties.json b/repository/Seaside-HotwireStimulus-Core.package/properties.json
@@ -0,0 +1 @@
+{ }
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WAAnchorTag.extension/instance/turboConfirm..st b/repository/Seaside-HotwireTurbo-Core.package/WAAnchorTag.extension/instance/turboConfirm..st
@@ -0,0 +1,8 @@
+*Seaside-HotwireTurbo-Core
+turboConfirm: aString
+	"Decorate links with both data-turbo-confirm and data-turbo-method,
+	and confirmation will be required for a visit to proceed.
+	https://turbo.hotwired.dev/handbook/drive#requiring-confirmation-for-a-visit"
+
+	self turboMethod: 'get'.
+	self dataAttributeAt: 'turbo-confirm' put: aString
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WAAnchorTag.extension/instance/turboMethod..st b/repository/Seaside-HotwireTurbo-Core.package/WAAnchorTag.extension/instance/turboMethod..st
@@ -0,0 +1,4 @@
+*Seaside-HotwireTurbo-Core
+turboMethod: aString
+
+	self dataAttributeAt: 'turbo-method' put: aString
diff --git a/...twireTurbo-Core.package/WAComponent.extension/instance/renderLazyTurboFrameContentsOn..st b/...twireTurbo-Core.package/WAComponent.extension/instance/renderLazyTurboFrameContentsOn..st
@@ -0,0 +1,3 @@
+*Seaside-HotwireTurbo-Core
+renderLazyTurboFrameContentsOn: html
+	"Subclasses can override this to render the placeholder contents for a lazy-loaded turboframe decoration of themselves."
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WAComponent.extension/instance/turboShow..st b/repository/Seaside-HotwireTurbo-Core.package/WAComponent.extension/instance/turboShow..st
@@ -1,5 +1,4 @@
 *Seaside-HotwireTurbo-Core
 turboShow: aComponent
 
-	aComponent addDecoration: (WATurboFrame newWithId: self turboframeDecoration id).
-	^ self show: aComponent
+	^ self turboShow: aComponent onAnswer: [ :value | ]
diff --git a/...y/Seaside-HotwireTurbo-Core.package/WAComponent.extension/instance/turboShow.onAnswer..st b/...y/Seaside-HotwireTurbo-Core.package/WAComponent.extension/instance/turboShow.onAnswer..st
@@ -0,0 +1,5 @@
+*Seaside-HotwireTurbo-Core
+turboShow: aComponent onAnswer: aBlock
+
+	aComponent addDecoration: (WATurboFrame newWithId: self turboframeDecoration id).
+	^ self show: aComponent onAnswer: aBlock
diff --git a/...wireTurbo-Core.package/WADecoration.extension/instance/renderLazyTurboFrameContentsOn..st b/...wireTurbo-Core.package/WADecoration.extension/instance/renderLazyTurboFrameContentsOn..st
@@ -0,0 +1,4 @@
+*Seaside-HotwireTurbo-Core
+renderLazyTurboFrameContentsOn: html
+
+	self next renderLazyTurboFrameContentsOn: html
diff --git a/.../Seaside-HotwireTurbo-Core.package/WAFormInputTag.extension/instance/turboSubmitsWith..st b/.../Seaside-HotwireTurbo-Core.package/WAFormInputTag.extension/instance/turboSubmitsWith..st
@@ -0,0 +1,8 @@
+*Seaside-HotwireTurbo-Core
+turboSubmitsWith: aString
+	"Specifies text to display when submitting a form. Can be used on input or button elements.
+	While the form is submitting the text of the element will show the value of data-turbo-submits-with. 
+	After the submission, the original text will be restored. 
+	Useful for giving user feedback by showing a message like “Saving…” while an operation is in progress."
+
+	self dataAttributeAt: 'turbo-submits-with' put: aString
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WAFormInputTag.extension/properties.json b/repository/Seaside-HotwireTurbo-Core.package/WAFormInputTag.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "WAFormInputTag"
+}
diff --git a/...aElement.class/instance/turboPrefetch..st → ...ment.extension/instance/turboPrefetch..st b/...aElement.class/instance/turboPrefetch..st → ...ment.extension/instance/turboPrefetch..st
@@ -1,4 +1,4 @@
-attributes
+*Seaside-HotwireTurbo-Core
 turboPrefetch: aString
 	"Prefetching links is enabled by default since Turbo v8, 
 	but you can disable it by adding this meta tag to your page with value false."

diff --git a/...Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/instance/turboRefreshMethod..st b/...Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/instance/turboRefreshMethod..st
@@ -0,0 +1,11 @@
+*Seaside-HotwireTurbo-Core
+turboRefreshMethod: aString
+
+	"The possible values are 'morph' or 'replace' (the default).
+	When it is morph, when a page refresh happens, instead of replacing the page’s <body> contents,
+	Turbo will only update the DOM elements that have changed, keeping the rest untouched. 
+	This approach delivers better sensations because it keeps the screen state.
+	https://turbo.hotwired.dev/handbook/page_refreshes.html"
+
+	self name: 'turbo-refresh-method'.
+	self content: aString
diff --git a/...Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/instance/turboRefreshScroll..st b/...Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/instance/turboRefreshScroll..st
@@ -0,0 +1,9 @@
+*Seaside-HotwireTurbo-Core
+turboRefreshScroll: aString
+
+	"The possible values are 'preserve' or 'reset' (the default). 
+	When it is preserve, when a page refresh happens, Turbo will keep the page’s vertical and horizontal scroll.
+	https://turbo.hotwired.dev/handbook/page_refreshes.html#scroll-preservation"
+
+	self name: 'turbo-refresh-scroll'.
+	self content: aString
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/instance/turboRoot..st b/repository/Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/instance/turboRoot..st
@@ -0,0 +1,8 @@
+*Seaside-HotwireTurbo-Core
+turboRoot: aString
+	"Include a <meta name=""turbo-root""> element in your pages’ <head> to scope Turbo Drive to a particular root location. 
+	Turbo Drive will only load same-origin URLs that are prefixed with this path.
+	https://turbo.hotwired.dev/handbook/drive#setting-a-root-location"
+
+	self name: 'turbo-root'.
+	self content: aString
diff --git a/.../Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/instance/turboVisitControl..st b/.../Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/instance/turboVisitControl..st
@@ -0,0 +1,7 @@
+*Seaside-HotwireTurbo-Core
+turboVisitControl: aString
+	"Using the value 'reload' will perform a full page reload whenever Turbo navigates to the page, 
+	including when the request originates from a <turbo-frame>"
+
+	self name: 'turbo-visit-control'.
+	self content: aString
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/properties.json b/repository/Seaside-HotwireTurbo-Core.package/WAMetaElement.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "WAMetaElement"
+}
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WAScriptTag.extension/instance/turboEval..st b/repository/Seaside-HotwireTurbo-Core.package/WAScriptTag.extension/instance/turboEval..st
@@ -0,0 +1,7 @@
+*Seaside-HotwireTurbo-Core
+turboEval: aString
+	"Annotate <script> elements with data-turbo-eval=""false"" if you do not want 
+	Turbo to evaluate them after rendering. 
+	Note that this annotation will not prevent your browser from evaluating scripts on the initial page load."
+
+	self dataAttributeAt: 'turbo-eval' put: aString
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WAScriptTag.extension/properties.json b/repository/Seaside-HotwireTurbo-Core.package/WAScriptTag.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "WAScriptTag"
+}
diff --git a/...HotwireTurboTestComponent.class/README.md → ...age/WAStimulusFileLibrary.class/README.md b/...HotwireTurboTestComponent.class/README.md → ...age/WAStimulusFileLibrary.class/README.md
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		self packageOrganizer ensurePackage: #'Seaside-HotwireStimulus-Core' withTags: #()!