QuerySig.st
changeset 2689 ada9b102abcf
parent 2037 d5644b390755
child 2729 184013fb5dfd
equal deleted inserted replaced
2688:a7777c381e7e 2689:ada9b102abcf
   109                 Object errorSignal handle:[:ex |
   109                 Object errorSignal handle:[:ex |
   110                     Transcript showCR:'some error: ' , ex errorString.
   110                     Transcript showCR:'some error: ' , ex errorString.
   111                     ex proceed
   111                     ex proceed
   112                 ] do:[
   112                 ] do:[
   113                     [
   113                     [
   114                         1 // zero.  'an error which is cought in the handler'.
   114                         1 // zero.  'an error which is caught in the handler'.
   115                         (querySignal raise) == true ifTrue:[
   115                         (querySignal raise) == true ifTrue:[
   116                             Transcript showCR:'query says: ok'.
   116                             Transcript showCR:'query says: ok'.
   117                         ] ifFalse:[
   117                         ] ifFalse:[
   118                             Transcript showCR:'query says: no'
   118                             Transcript showCR:'query says: no'
   119                         ]
   119                         ]
   162                 Object errorSignal handle:[:ex |
   162                 Object errorSignal handle:[:ex |
   163                     Transcript showCR:'some error: ' , ex errorString.
   163                     Transcript showCR:'some error: ' , ex errorString.
   164                     ex proceed
   164                     ex proceed
   165                 ] do:[
   165                 ] do:[
   166                     [
   166                     [
   167                         1 // zero.  'an error which is cought in the handler'.
   167                         1 // zero.  'an error which is caught in the handler'.
   168                         (querySignal raise) == true ifTrue:[
   168                         (querySignal raise) == true ifTrue:[
   169                             Transcript showCR:'query says: ok'.
   169                             Transcript showCR:'query says: ok'.
   170                         ] ifFalse:[
   170                         ] ifFalse:[
   171                             Transcript showCR:'query says: no'
   171                             Transcript showCR:'query says: no'
   172                         ]
   172                         ]
   344 ! !
   344 ! !
   345 
   345 
   346 !QuerySignal class methodsFor:'documentation'!
   346 !QuerySignal class methodsFor:'documentation'!
   347 
   347 
   348 version
   348 version
   349     ^ '$Header: /cvs/stx/stx/libbasic/Attic/QuerySig.st,v 1.17 1997-01-03 14:14:53 cg Exp $'
   349     ^ '$Header: /cvs/stx/stx/libbasic/Attic/QuerySig.st,v 1.18 1997-06-16 18:21:36 cg Exp $'
   350 ! !
   350 ! !