Issue #46: Enable the GemServer to listen for DEBUGGEM connections.

GsDevKit · Jun 28, 2024 · 75d2d4c · 75d2d4c
1 parent 3f241f9
commit 75d2d4c
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/repository/GsApplicationTools-Server.package/GemServer.class/instance/startServerOn..st b/repository/GsApplicationTools-Server.package/GemServer.class/instance/startServerOn..st
@@ -2,5 +2,10 @@ service instance-server
 startServerOn: portOrResourceName
   "start server in current vm. Not expected to return."
 
+  | shouldListenForDebug |
+  shouldListenForDebug := [ (System gemEnvironmentVariable: 'SeasideGemServerShouldListenForDebug') = 'true' ]
+    on: Error
+    do: [:ex | ex return: false].
+  shouldListenForDebug ifTrue: [System listenForDebugServer].
   self startBasicServerOn: portOrResourceName.
-  [ true ] whileTrue: [ (Delay forSeconds: 10) wait ]
+  [ true ] whileTrue: [ (Delay forSeconds: 10) wait ]