--- a/QuerySignal.st Sat Apr 27 19:59:23 1996 +0200
+++ b/QuerySignal.st Sat Apr 27 20:02:36 1996 +0200
@@ -67,32 +67,33 @@
examples
"
an up-query from a deeply nested operation to a higher level:
-
- |querySignal zero|
+ [exBegin]
+ |querySignal zero|
- zero := 0.
- querySignal := QuerySignal new.
- querySignal handle:[:ex |
- ex proceedWith:true
- ] do:[
- 'nexting'.
- [
- [
- Object errorSignal handle:[:ex |
- ex proceed
- ] do:[
- [
- 1 // zero. 'a cought error'.
- (querySignal raise) ifTrue:[
- Transcript showCr:'query says: ok'.
- ] ifFalse:[
- Transcript showCr:'query says: no'
- ]
- ] value
- ]
- ] value
- ] value
- ]
+ zero := 0.
+ querySignal := QuerySignal new.
+ querySignal handle:[:ex |
+ ex proceedWith:true
+ ] do:[
+ 'nexting'.
+ [
+ [
+ Object errorSignal handle:[:ex |
+ ex proceed
+ ] do:[
+ [
+ 1 // zero. 'a cought error'.
+ (querySignal raise) ifTrue:[
+ Transcript showCr:'query says: ok'.
+ ] ifFalse:[
+ Transcript showCr:'query says: no'
+ ]
+ ] value
+ ]
+ ] value
+ ] value
+ ]
+ [exEnd]
"
! !
@@ -125,5 +126,5 @@
!QuerySignal class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.9 1996-04-25 16:47:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.10 1996-04-27 18:00:44 cg Exp $'
! !