Exceptions/Catch an exception thrown in a nested call: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,676: / Line 1,676: @@
 foo value
 </lang>
+"traditional" implementation, using class based exceptions, and method invocations:
+Exception
+    subclass: #U0
+    instanceVariableNames:''
+    classVariableNames:''
+    poolDictionaries:''
+    category:'example'.
+Exception
+    subclass: #U1
+    instanceVariableNames:''
+    classVariableNames:''
+    poolDictionaries:''
+    category:'example'.
+Object
+    subclass: #CatchMeIfYouCan
+    instanceVariableNames:'bazAlreadyCalled'
+    classVariableNames:''
+    poolDictionaries:''
+    category:'example'.
+" CatchMeIfYouCan methods "
+foo
+timesRepeat:[
+        [ self bar ]
+            on: U0
+            do:[ 'U0 cought' printCR ]
+    ]
+bar
+    self baz
+baz
+    bazAlreadyCalled isNil ifTrue:[
+        bazAlreadyCalled := true.
+        U0 raise
+    ] ifFalse:[
+        U1 raise
+    ]
+CatchMeIfYouCan new foo
 =={{header|Tcl}}==