forgot some fo the code :/

Author: pdebruic

repository/Zinc-GemStone-Server-Tools.package/ZnGemServerManagingMultiThreadedServer.class/instance/writeResponse.on..st

@@ -1,10 +1,9 @@
 request handling
 writeResponse: response on: streamTransientStackValue
   "Write response to stream and flush the stream"
+
   response isStreamingResponse
-    ifTrue: [ 
-      GRPlatform current
-        doTransaction: [ response writeOn: streamTransientStackValue value ] ]
+    ifTrue: [ self write: response duringTransactionOn: streamTransientStackValue value ]
     ifFalse: [ response writeOn: streamTransientStackValue value ].
   streamTransientStackValue value flush.
-  self logResponse: response
+  self logResponse: response

repository/Zinc-GemStone-Server-Tools.package/ZnGemServerManagingMultiThreadedServer.class/methodProperties.json

@@ -25,6 +25,6 @@
 		"socketStreamOn:" : "dkh 01/07/2015 16:40",
 		"start" : "dkh 01/07/2015 17:46",
 		"stop:" : "dkh 01/07/2015 17:49",
-		"writeResponse:on:" : "PaulDeBruicker 06/24/2022 17:20",
+		"writeResponse:on:" : "PaulDeBruicker 06/28/2022 14:26",
 		"writeResponseBad:on:" : "dkh 01/08/2015 17:03",
 		"writeResponseSafely:on:" : "dkh 01/07/2015 18:29" } }

repository/Zinc-GemStone-Server-Tools.package/monticello.meta/version

@@ -1,3 +1,3 @@
 *zinc-http
 isStreamingResponse
-	^false
+  ^ false

repository/Zinc-HTTP.package/Object.extension/instance/isStreamingResponse.st

@@ -3,4 +3,4 @@
 		 },
 	"instance" : {
 		"deprecated:on:in:" : "SvenVanCaekenberghe 07/20/2012 01:11:50",
-		"isStreamingResponse" : "PaulDeBruicker 06/24/2022 17:04:11" } }
+		"isStreamingResponse" : "PaulDeBruicker 06/24/2022 16:43" } }

repository/Zinc-HTTP.package/Object.extension/methodProperties.json

@@ -1,8 +1,9 @@
 request handling
 writeResponse: response on: stream
-	"Write response to stream and flush the stream"
-	response isStreamingResponse
-    		ifTrue: [ GRPlatform current doTransaction: [ response writeOn: stream ] ]
-    		ifFalse: [ response writeOn: stream ].	
-	stream flush.
-	self logResponse: response
+  "Write response to stream and flush the stream"
+
+  response isStreamingResponse
+    ifTrue: [ self write: response duringTransactionOn: stream ]
+    ifFalse: [ response writeOn: stream ].
+  stream flush.
+  self logResponse: response

repository/Zinc-HTTP.package/ZnSingleThreadedServer.class/instance/writeResponse.on..st

@@ -46,4 +46,5 @@
 		"stop:" : "dkh 12/06/2014 15:00",
 		"stopLogging" : "SvenVanCaekenberghe 10/4/2011 12:35",
 		"withMaximumEntitySizeDo:" : "SvenVanCaekenberghe 9/5/2012 12:49",
-		"writeResponse:on:" : "PaulDeBruicker 6/24/2022 17:06" } }
+		"write:duringTransactionOn:" : "PaulDeBruicker 06/28/2022 14:25",
+		"writeResponse:on:" : "PaulDeBruicker 06/28/2022 14:22" } }

repository/Zinc-HTTP.package/ZnSingleThreadedServer.class/methodProperties.json

@@ -8,4 +8,4 @@ writeResponse: response on: streamTransientStackValue
         doTransaction: [ response writeOn: streamTransientStackValue value ] ]
     ifFalse: [ response writeOn: streamTransientStackValue value ].
   streamTransientStackValue value flush.
-  self logResponse: response
+  self logResponse: response

repository/Zinc-HTTP.package/ZnTransactionSafeManagingMultiThreadedServer.class/instance/writeResponse.on..st

@@ -17,5 +17,5 @@
 		"serverSocket" : "dkh 12/08/2014 15:51",
 		"socketStreamOn:" : "dkh 12/08/2014 15:21",
 		"stop:" : "dkh 12/08/2014 15:21",
-		"writeResponse:on:" : "PaulDeBruicker 06/24/2022 15:18",
+		"writeResponse:on:" : "PaulDeBruicker 06/24/2022 16:25",
 		"writeResponseSafely:on:" : "dkh 12/08/2014 15:58" } }