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

2010-12-13 05:32:41 +01:00 · 2010-12-13 05:32:41 +01:00 · f39eb314bf
parent 214b1ba827
commit f39eb314bf
2 changed files with 10 additions and 1 deletions
--- a/GSMDriver.st
+++ b/GSMDriver.st
@ -217,6 +217,10 @@ Object subclass: ProcedureBase [
        driver waitForCompletion.
    ]

+    driver [
+        ^ driver
+    ]
+
    complete [
        ^ driver completeSem signals > 0
    ]
--- 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 [