#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Fri, 04 Nov 2016 16:30:47 +0100
changeset 20820 01811b77f67f
parent 20819 b64a4707d4ea
child 20821 68508cd3a14a
#DOCUMENTATION by cg class: Signal comment/format in: #deferAfter:
Signal.st
--- a/Signal.st	Fri Nov 04 16:30:30 2016 +0100
+++ b/Signal.st	Fri Nov 04 16:30:47 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -850,25 +848,25 @@
 
      Deferring makes sense for some signals, such as UserInterrupt or AbortSignal,
      which must occasionally be delayed temporarily until a save place is reached
-     (especially when packages are sent across a communication channel, and you dont want
+     (especially when packages are sent across a communication channel, and you don't want
       partial packages to be generated by user interruptions)."
 
     |caughtException result|
 
     self handle:[:ex |
-	caughtException isNil ifTrue:[
-	    caughtException := ex.
-	].
-	ex proceedWith:nil
+        caughtException isNil ifTrue:[
+            caughtException := ex.
+        ].
+        ex proceedWith:nil
     ] do:[
-	result := aBlock value.
+        result := aBlock value.
     ].
     caughtException notNil ifTrue:[
-	caughtException suspendedContext:thisContext.
+        caughtException suspendedContext:thisContext.
 
-	"/ the signal was raised during the execution of aBlock above.
-	"/ Raise it now (delayed).
-	caughtException raiseSignal
+        "/ the signal was raised during the execution of aBlock above.
+        "/ Raise it now (delayed).
+        caughtException raiseSignal
     ].
     ^ result
 
@@ -877,7 +875,7 @@
 
       s := Signal new mayProceed:true.
       s deferAfter:[
-	 s raiseRequestWith:'hello' errorString:'eeee'
+         s raiseRequestWith:'hello' errorString:'eeee'
       ]
      "
 !