GSM: Cancel active operations when they are removed from the list

2 files changed, 10 insertions, 1 deletions

diff --git a/GSMDriver.st b/GSMDriver.st
index 8fd16d7..ad6187c 100644
--- a/GSMDriver.st
+++ b/GSMDriver.st
@@ -217,6 +217,10 @@ Object subclass: ProcedureBase [
         driver waitForCompletion.
     ]
 
+    driver [
+        ^ driver
+    ]
+
     complete [
         ^ driver completeSem signals > 0
     ]
diff --git a/WebApp.st b/WebApp.st
index 47f1d82..cf1cc28 100644
--- a/WebApp.st
+++ b/WebApp.st
@@ -153,7 +153,12 @@ Iliad.ILWidget subclass: ProcedureWidget [
         form text: status.
         form button
                 text: 'Remove';
-                action: [self markDirty. self session procedures remove: item.].
+                action: [self markDirty.
+                         item complete
+                                ifFalse: [
+                                    item driver sendClearRequest.
+                                ].
+                         self session procedures remove: item.].
     ]
 
     contents [