equal
deleted
inserted
replaced
76 |querySignal zero| |
76 |querySignal zero| |
77 |
77 |
78 zero := 0. |
78 zero := 0. |
79 querySignal := QuerySignal new. |
79 querySignal := QuerySignal new. |
80 querySignal handle:[:ex | |
80 querySignal handle:[:ex | |
81 Transcript showCr:'query'. |
81 Transcript showCR:'query'. |
82 ex proceedWith:true |
82 ex proceedWith:true |
83 ] do:[ |
83 ] do:[ |
84 'nesting'. |
84 'nesting'. |
85 [ |
85 [ |
86 [ |
86 [ |
87 Object errorSignal handle:[:ex | |
87 Object errorSignal handle:[:ex | |
88 Transcript showCr:'some error: ' , ex errorString. |
88 Transcript showCR:'some error: ' , ex errorString. |
89 ex proceed |
89 ex proceed |
90 ] do:[ |
90 ] do:[ |
91 [ |
91 [ |
92 1 // zero. 'an error which is cought in the handler'. |
92 1 // zero. 'an error which is cought in the handler'. |
93 (querySignal raise) == true ifTrue:[ |
93 (querySignal raise) == true ifTrue:[ |
94 Transcript showCr:'query says: ok'. |
94 Transcript showCR:'query says: ok'. |
95 ] ifFalse:[ |
95 ] ifFalse:[ |
96 Transcript showCr:'query says: no' |
96 Transcript showCR:'query says: no' |
97 ] |
97 ] |
98 ] value |
98 ] value |
99 ] |
99 ] |
100 ] value |
100 ] value |
101 ] value |
101 ] value |
117 [ |
117 [ |
118 'nesting'. |
118 'nesting'. |
119 [ |
119 [ |
120 [ |
120 [ |
121 Object errorSignal handle:[:ex | |
121 Object errorSignal handle:[:ex | |
122 Transcript showCr:'some error: ' , ex errorString. |
122 Transcript showCR:'some error: ' , ex errorString. |
123 ex proceed |
123 ex proceed |
124 ] do:[ |
124 ] do:[ |
125 [ |
125 [ |
126 1 // zero. 'an error which is cought in the handler'. |
126 1 // zero. 'an error which is cought in the handler'. |
127 (querySignal raise) == true ifTrue:[ |
127 (querySignal raise) == true ifTrue:[ |
128 Transcript showCr:'query says: ok'. |
128 Transcript showCR:'query says: ok'. |
129 ] ifFalse:[ |
129 ] ifFalse:[ |
130 Transcript showCr:'query says: no' |
130 Transcript showCR:'query says: no' |
131 ] |
131 ] |
132 ] value |
132 ] value |
133 ] |
133 ] |
134 ] value |
134 ] value |
135 ] value |
135 ] value |
146 [ |
146 [ |
147 [ |
147 [ |
148 [ |
148 [ |
149 [ |
149 [ |
150 (signal raise) == true ifTrue:[ |
150 (signal raise) == true ifTrue:[ |
151 Transcript showCr:'query says: ok'. |
151 Transcript showCR:'query says: ok'. |
152 ] ifFalse:[ |
152 ] ifFalse:[ |
153 Transcript showCr:'query says: no' |
153 Transcript showCR:'query says: no' |
154 ] |
154 ] |
155 ] value |
155 ] value |
156 ] value |
156 ] value |
157 ] value |
157 ] value |
158 ] value |
158 ] value |
174 [ |
174 [ |
175 Signal noHandlerSignal handle:[:ex | |
175 Signal noHandlerSignal handle:[:ex | |
176 ex proceedWith:nil |
176 ex proceedWith:nil |
177 ] do:[ |
177 ] do:[ |
178 (signal raise) == true ifTrue:[ |
178 (signal raise) == true ifTrue:[ |
179 Transcript showCr:'query says: ok'. |
179 Transcript showCR:'query says: ok'. |
180 ] ifFalse:[ |
180 ] ifFalse:[ |
181 Transcript showCr:'query says: no' |
181 Transcript showCR:'query says: no' |
182 ] |
182 ] |
183 ] |
183 ] |
184 ] value |
184 ] value |
185 ] value |
185 ] value |
186 ] value |
186 ] value |
217 ! ! |
217 ! ! |
218 |
218 |
219 !QuerySignal class methodsFor:'documentation'! |
219 !QuerySignal class methodsFor:'documentation'! |
220 |
220 |
221 version |
221 version |
222 ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.12 1996-05-12 13:23:46 cg Exp $' |
222 ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.13 1996-05-18 15:29:41 cg Exp $' |
223 ! ! |
223 ! ! |