#DOCUMENTATION by stefan
authorStefan Vogel <sv@exept.de>
Sun, 05 Apr 2020 00:21:37 +0200
changeset 25355 abe090376550
parent 25354 ee0e8cf9d49d
child 25356 412ae94959e4
#DOCUMENTATION by stefan class: SignalSet comment/format in: #add:
SignalSet.st
--- a/SignalSet.st	Fri Apr 03 22:46:09 2020 +0200
+++ b/SignalSet.st	Sun Apr 05 00:21:37 2020 +0200
@@ -113,19 +113,28 @@
      and raises a MessageNotUnderstood error."
 
     anExceptionHandler isNil ifTrue:[
-        "Ignore nil exceptionHandler - it may be due to a missing (not loaded) expception class"    
+        "Ignore nil exceptionHandler - it may be due to a missing (not loaded) exception class"    
         ^ nil.
     ].
     anExceptionHandler isExceptionHandler ifFalse:[
         SignalError raiseWith:anExceptionHandler errorString:' - trying to add a non-exceptionHandler to a SignalSet'.
     ].
+"/ Debug code for Developers - should go into Lint:    
+"/    (self accepts:anExceptionHandler) ifTrue:[
+"/        "if already accepting, no need to add..." 
+"/        self breakPoint:#SignalSet info:'Already accepted'.
+"/        ^ anExceptionHandler.
+"/    ].    
     ^ super add:anExceptionHandler.
 
    "
         SignalSet with:nil with:TimeoutError
+        SignalSet with:Error with:OsError
+        Error, OsError
+        SignalSet with:OsError with:Error
    "
 
-    "Modified: / 09-12-2019 / 11:08:56 / Stefan Vogel"
+    "Modified (comment): / 05-04-2020 / 00:21:23 / Stefan Vogel"
 ! !
 
 !SignalSet methodsFor:'queries'!