equal
deleted
inserted
replaced
301 handler := [:ex | ex proceedWith:false] |
301 handler := [:ex | ex proceedWith:false] |
302 ] ifFalse:[ |
302 ] ifFalse:[ |
303 someValue isNil ifTrue:[ |
303 someValue isNil ifTrue:[ |
304 handler := [:ex | ex proceedWith:nil] |
304 handler := [:ex | ex proceedWith:nil] |
305 ] ifFalse:[ |
305 ] ifFalse:[ |
306 handler := [:ex | ex proceedWith:someValue]. |
306 handler := [:ex | ex proceedWith:someValue value]. |
307 ] |
307 ] |
308 ] |
308 ] |
309 ]. |
309 ]. |
310 self handlerBlock:handler. |
310 self handlerBlock:handler. |
311 |
311 |
447 con := con findSpecialHandle:true raise:false. |
447 con := con findSpecialHandle:true raise:false. |
448 ]. |
448 ]. |
449 |
449 |
450 "/ no handler found - return the default value |
450 "/ no handler found - return the default value |
451 hasDefault == true ifTrue:[ |
451 hasDefault == true ifTrue:[ |
452 ^ defaultAnswer |
452 ^ defaultAnswer value |
453 ]. |
453 ]. |
454 handlerBlock isNil ifTrue:[ |
454 handlerBlock isNil ifTrue:[ |
455 ^ nil |
455 ^ nil |
456 ]. |
456 ]. |
457 ^ super raiseRequest |
457 ^ super raiseRequest |
461 ! ! |
461 ! ! |
462 |
462 |
463 !QuerySignal class methodsFor:'documentation'! |
463 !QuerySignal class methodsFor:'documentation'! |
464 |
464 |
465 version |
465 version |
466 ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.37 2001-12-07 18:13:52 cg Exp $' |
466 ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.38 2002-10-08 17:27:51 penk Exp $' |
467 ! ! |
467 ! ! |