From 75d2d4cd62ae95cafadff2d9a41c8ceea96463d7 Mon Sep 17 00:00:00 2001 From: Kurt Kilpela Date: Fri, 28 Jun 2024 14:28:06 -0700 Subject: [PATCH] Issue #46: Enable the GemServer to listen for DEBUGGEM connections. --- .../GemServer.class/instance/startServerOn..st | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/repository/GsApplicationTools-Server.package/GemServer.class/instance/startServerOn..st b/repository/GsApplicationTools-Server.package/GemServer.class/instance/startServerOn..st index beda1ca..3a7d810 100644 --- 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 ] \ No newline at end of file + [ true ] whileTrue: [ (Delay forSeconds: 10) wait ]