diff options
-rw-r--r-- | GSMDriver.st | 4 | ||||
-rw-r--r-- | WebApp.st | 7 |
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 ] @@ -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 [ |