SeasideSt · jbrichau · Mar 28, 2025
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/callback..st b/repository/JQuery-Core.package/JQAjax.class/instance/callback..st
@@ -2,5 +2,4 @@ callbacks
 callback: aBlock
 	"Register aBlock as a primary callback of the receiver. It is only possible to have a single primary callback registered per instance. The primary callback must generate a response."
 
-	self enableCallbacks.
-	callback := aBlock
+	self privateCallback: aBlock asTracedBlock
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/callback.value..st b/repository/JQuery-Core.package/JQAjax.class/instance/callback.value..st
@@ -6,5 +6,5 @@ Note: anObject should be a single literal Javascript object (String, Number, Boo
 
 	self enableCallbacks.
 	self addParameter: (self renderContext callbacks
-		store: (WAValueCallback on: aBlock)) 
+		store: (WAValueCallback on: aBlock asTracedBlock)) 
 			-> anObject
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/html..st b/repository/JQuery-Core.package/JQAjax.class/instance/html..st
@@ -7,4 +7,4 @@ html: aRenderable
 		response
 			doNotCache;
 			contentType: self application contentType.
-		self render: aRenderable on: response stream ]
+		self render: aRenderable asTracedBlock on: response stream ]
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/privateCallback..st b/repository/JQuery-Core.package/JQAjax.class/instance/privateCallback..st
@@ -0,0 +1,5 @@
+callbacks
+privateCallback: aBlock
+
+	self enableCallbacks.
+	callback := aBlock
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/respond..st b/repository/JQuery-Core.package/JQAjax.class/instance/respond..st
@@ -2,4 +2,4 @@ callbacks
 respond: aBlock
 	"Defines a response callback."
 
-	self callback: [ self requestContext respond: aBlock ]
+	self privateCallback: [ self requestContext respond: aBlock ]
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/script..st b/repository/JQuery-Core.package/JQAjax.class/instance/script..st
@@ -8,4 +8,4 @@ script: aBlock
 			doNotCache; 
 			contentType: (WAMimeType textJavascript
 				charset: self requestContext handler charSet).
-		self script: aBlock on: response stream ]
+		self script: aBlock asTracedBlock on: response stream ]
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/text..st b/repository/JQuery-Core.package/JQAjax.class/instance/text..st
@@ -8,4 +8,4 @@ text: aBlock
 			doNotCache;
 			contentType: (WAMimeType textPlain 
 				charset: self requestContext handler charSet).
-		aBlock value: response stream ]
+		aBlock asTracedBlock value: response stream ]
diff --git a/repository/JQuery-JSON.package/JQAjax.extension/instance/callback.json..st b/repository/JQuery-JSON.package/JQAjax.extension/instance/callback.json..st
@@ -3,5 +3,5 @@ callback: aBlock json: anObject
 	"Register aBlock as a secondary callback. anObject is a reference to a Javascript object on the client-side. anObject will be serialized to a JSON string, sent back to the server, deserialized from JSON to nested Smalltalk objects, and result passed into aBlock."
 
 	self
-		callback: [ :value | aBlock value: (WAJsonParser parse: value) ] 
+		callback: [ :value | aBlock asTracedBlock value: (WAJsonParser parse: value) ] 
 		value: (JSJson new stringify: anObject)
diff --git a/repository/JQuery-JSON.package/JQAjax.extension/instance/json..st b/repository/JQuery-JSON.package/JQAjax.extension/instance/json..st
@@ -7,4 +7,4 @@ json: aRenderable
 		response
 			doNotCache;
 			contentType: WAMimeType applicationJson;
-			nextPutAll: (WAJsonCanvas builder render: aRenderable) ]
+			nextPutAll: (WAJsonCanvas builder render: aRenderable asTracedBlock) ]
diff --git a/repository/JQuery-UI.package/JQAjax.extension/instance/callback.passengers..st b/repository/JQuery-UI.package/JQAjax.extension/instance/callback.passengers..st
@@ -4,7 +4,7 @@
 
 	self
 		callback: [ :value | 
-			aBlock value: ((GRPlatform subStringsIn: value value splitBy: $,
+			aBlock asTracedBlock value: ((GRPlatform subStringsIn: value value splitBy: $,
 				collect: [ :each | self renderContext callbacks passengerAt: each ])
 				reject: [ :each | each isNil ]) ]
 		value: (JSStream on: JQuery functionName , '.map(' , aQuery greaseString , '.get(),function(each){return each.id}).join(",")')
diff --git a/repository/Seaside-Core.package/WAActionCallback.class/instance/block..st b/repository/Seaside-Core.package/WAActionCallback.class/instance/block..st
@@ -1,3 +1,3 @@
 accessing
 block: aZeroOrOneArgBlock
-	block := aZeroOrOneArgBlock
+	block := aZeroOrOneArgBlock asTracedBlock 
diff --git a/repository/Seaside-Core.package/WACallback.class/instance/evaluateWithFieldValues..st b/repository/Seaside-Core.package/WACallback.class/instance/evaluateWithFieldValues..st
@@ -1,3 +1,4 @@
 evaluation
 evaluateWithFieldValues: anOrderedCollection
+
 	self evaluateWithArgument: (self valueForField: (anOrderedCollection at: 1 ifAbsent: [ nil ]))
diff --git a/repository/Seaside-Core.package/WAValueCallback.class/instance/block..st b/repository/Seaside-Core.package/WAValueCallback.class/instance/block..st
@@ -1,3 +1,3 @@
 accessing
 block: aOneArgBlock
-	block := aOneArgBlock
+	block := aOneArgBlock asTracedBlock
diff --git a/repository/Seaside-Development.package/BlockClosure.extension/instance/asTracedBlock.st b/repository/Seaside-Development.package/BlockClosure.extension/instance/asTracedBlock.st
@@ -0,0 +1,4 @@
+*Seaside-Development
+asTracedBlock
+
+	^ WATracingBlockWrapper onBlock: self
diff --git a/repository/Seaside-Development.package/BlockClosure.extension/properties.json b/repository/Seaside-Development.package/BlockClosure.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "BlockClosure"
+}
diff --git a/repository/Seaside-Development.package/Object.extension/instance/asTracedBlock.st b/repository/Seaside-Development.package/Object.extension/instance/asTracedBlock.st
@@ -0,0 +1,4 @@
+*Seaside-Development
+asTracedBlock
+
+	^ self
diff --git a/repository/Seaside-Development.package/Object.extension/properties.json b/repository/Seaside-Development.package/Object.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Object"
+}
diff --git a/repository/Seaside-Development.package/WAAbstractRequestLogger.class/README.md b/repository/Seaside-Development.package/WAAbstractRequestLogger.class/README.md
diff --git a/repository/Seaside-Development.package/WAAbstractRequestLogger.class/instance/addLogItem..st b/repository/Seaside-Development.package/WAAbstractRequestLogger.class/instance/addLogItem..st
@@ -0,0 +1,4 @@
+adding
+addLogItem: aWARequestLogItem
+
+	self subclassResponsibility
diff --git a/repository/Seaside-Development.package/WAAbstractRequestLogger.class/properties.json b/repository/Seaside-Development.package/WAAbstractRequestLogger.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Seaside-Development-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "WAAbstractRequestLogger",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Development.package/WACurrentRequestLogContext.class/README.md b/repository/Seaside-Development.package/WACurrentRequestLogContext.class/README.md
diff --git a/repository/Seaside-Development.package/WACurrentRequestLogContext.class/properties.json b/repository/Seaside-Development.package/WACurrentRequestLogContext.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "WADynamicVariable",
+	"category" : "Seaside-Development-Base",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "WACurrentRequestLogContext",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/README.md b/repository/Seaside-Development.package/WARequestLogItem.class/README.md
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/class/on..st b/repository/Seaside-Development.package/WARequestLogItem.class/class/on..st
@@ -0,0 +1,4 @@
+instance creation
+on: aRequest
+
+	^ self new request: aRequest
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/addBlock..st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/addBlock..st
@@ -0,0 +1,4 @@
+adding
+addBlock: block
+
+	lines add: block
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/initialize.st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/initialize.st
@@ -0,0 +1,5 @@
+initialization
+initialize
+
+	super initialize.
+	lines := OrderedCollection new
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/printOn..st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/printOn..st
@@ -0,0 +1,9 @@
+printing
+printOn: aStream
+
+	aStream nextPutAll: request url asString.
+	lines do:[ :block |
+		| homeMethod inClass |
+		homeMethod := block method.
+		inClass := homeMethod methodClass.
+		aStream nextPutAll: ('  [] in {1}>>#{2}' format: { inClass name. homeMethod selector }) ]
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/renderOn..st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/renderOn..st
@@ -0,0 +1,12 @@
+printing
+renderOn: html
+
+	html text: request url asString.
+	html break.
+	lines do:[ :block |
+		| homeMethod inClass |
+		homeMethod := block method.
+		inClass := homeMethod methodClass.
+		html anchor
+			callback: [ block inspect ];
+			with: ('[] in {1}>>#{2}' format: { inClass name. homeMethod selector }) ]
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/request..st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/request..st
@@ -0,0 +1,4 @@
+initialization
+request: aRequest
+
+	request := aRequest
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/properties.json b/repository/Seaside-Development.package/WARequestLogItem.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Seaside-Development-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"lines",
+		"request"
+	],
+	"name" : "WARequestLogItem",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/README.md b/repository/Seaside-Development.package/WARequestLogTool.class/README.md
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/class/on..st b/repository/Seaside-Development.package/WARequestLogTool.class/class/on..st
@@ -0,0 +1,3 @@
+instance creation
+on: aLog
+	^ self basicNew initializeOn: aLog; yourself
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/instance/initializeOn..st b/repository/Seaside-Development.package/WARequestLogTool.class/instance/initializeOn..st
@@ -0,0 +1,4 @@
+initialization
+initializeOn: aLog
+	self initialize.
+	log := aLog
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/instance/renderContentOn..st b/repository/Seaside-Development.package/WARequestLogTool.class/instance/renderContentOn..st
@@ -0,0 +1,5 @@
+initialization
+renderContentOn: html
+
+	log do:[ :logItem |
+		logItem renderOn: html ]
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/properties.json b/repository/Seaside-Development.package/WARequestLogTool.class/properties.json
@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "WATool",
+	"category" : "Seaside-Development-Core-Profiler",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"log"
+	],
+	"name" : "WARequestLogTool",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/README.md b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/README.md
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/execute.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/execute.st
@@ -0,0 +1,7 @@
+actions
+execute
+	self isLogging
+		ifFalse: [ self session addFilter: self filter "reset" ]
+		ifTrue: [
+			self session removeFilter: self filter.
+			self open: (WARequestLogTool on: self logger log) ]
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/filter.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/filter.st
@@ -0,0 +1,3 @@
+accessing
+filter
+	^ filter ifNil: [ filter := WARequestLoggingFilter new logger: self logger ]
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/isLogging.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/isLogging.st
@@ -0,0 +1,3 @@
+testing
+isLogging
+	^ self session filters includes: self filter
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/label.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/label.st
@@ -0,0 +1,5 @@
+accessing
+label
+	^ self isLogging
+		ifFalse: [ 'Log' ]
+		ifTrue: [ 'Stop Log' ]
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/logger.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/logger.st
@@ -0,0 +1,4 @@
+accessing
+logger
+
+	^ logger ifNil: [ logger := WARequestObjectLogger new ]
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/priority.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/priority.st
@@ -0,0 +1,3 @@
+accessing
+priority
+	^ 350
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/properties.json b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "",
+	"super" : "WAToolPlugin",
+	"category" : "Seaside-Development-Core-Profiler",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"filter",
+		"logger"
+	],
+	"name" : "WARequestLoggerToolPlugin",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Development.package/WARequestLoggingFilter.class/README.md b/repository/Seaside-Development.package/WARequestLoggingFilter.class/README.md
diff --git a/...tory/Seaside-Development.package/WARequestLoggingFilter.class/instance/handleFiltered..st b/...tory/Seaside-Development.package/WARequestLoggingFilter.class/instance/handleFiltered..st
@@ -0,0 +1,7 @@
+processing
+handleFiltered: aRequestContext
+
+	currentLogItem := WARequestLogItem on: aRequestContext request copy.
+	WACurrentRequestLogContext
+		use: currentLogItem
+		during: [ [ super handleFiltered: aRequestContext ] ensure: [ logger addLogItem: currentLogItem ] ]
diff --git a/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger..st b/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger..st
@@ -0,0 +1,4 @@
+accessing
+logger: aLogger
+
+	logger := aLogger
diff --git a/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger.st b/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger.st
@@ -0,0 +1,4 @@
+accessing
+logger
+
+	^ logger
diff --git a/repository/Seaside-Development.package/WARequestLoggingFilter.class/properties.json b/repository/Seaside-Development.package/WARequestLoggingFilter.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "",
+	"super" : "WARequestFilter",
+	"category" : "Seaside-Development-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"currentLogItem",
+		"logger"
+	],
+	"name" : "WARequestLoggingFilter",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/README.md b/repository/Seaside-Development.package/WARequestObjectLogger.class/README.md
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/addLogItem..st b/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/addLogItem..st
@@ -0,0 +1,4 @@
+adding
+addLogItem: aWARequestLogItem
+
+	log add: aWARequestLogItem
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/initialize.st b/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/initialize.st
@@ -0,0 +1,4 @@
+initialization
+initialize
+	super initialize.
+	log := OrderedCollection new.
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/log.st b/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/log.st
@@ -0,0 +1,4 @@
+accessing
+log
+
+	^ log
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/properties.json b/repository/Seaside-Development.package/WARequestObjectLogger.class/properties.json
@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "WAAbstractRequestLogger",
+	"category" : "Seaside-Development-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"log"
+	],
+	"name" : "WARequestObjectLogger",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/README.md b/repository/Seaside-Development.package/WATracingBlockWrapper.class/README.md
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/class/onBlock..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/class/onBlock..st
@@ -0,0 +1,4 @@
+instance creation
+onBlock: aBlock
+
+	^ self new block: aBlock
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/asTracedBlock.st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/asTracedBlock.st
@@ -0,0 +1,4 @@
+converting
+asTracedBlock
+
+	^ self
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/block..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/block..st
@@ -0,0 +1,4 @@
+accessing
+block: aBlock
+
+	block := aBlock