equal
deleted
inserted
replaced
2290 ]. |
2290 ]. |
2291 ]. |
2291 ]. |
2292 |
2292 |
2293 (theSelector notNil |
2293 (theSelector notNil |
2294 or:[theAction notNil]) ifTrue:[ |
2294 or:[theAction notNil]) ifTrue:[ |
2295 AbortSignal handle:[:ex | |
2295 AbortOperationRequest handle:[:ex | |
2296 ex return |
2296 ex return |
2297 ] do:[ |
2297 ] do:[ |
2298 |theReceiver| |
2298 |theReceiver| |
2299 |
2299 |
2300 didItHere := true. |
2300 didItHere := true. |
2341 |
2341 |
2342 " |
2342 " |
2343 any action-block ? |
2343 any action-block ? |
2344 " |
2344 " |
2345 actionBlock notNil ifTrue:[ |
2345 actionBlock notNil ifTrue:[ |
2346 AbortSignal handle:[:ex | |
2346 AbortOperationRequest handle:[:ex | |
2347 ex return |
2347 ex return |
2348 ] do:[ |
2348 ] do:[ |
2349 didItHere ifTrue:[ |
2349 didItHere ifTrue:[ |
2350 val := nil |
2350 val := nil |
2351 ]. |
2351 ]. |
3002 ! ! |
3002 ! ! |
3003 |
3003 |
3004 !MenuView class methodsFor:'documentation'! |
3004 !MenuView class methodsFor:'documentation'! |
3005 |
3005 |
3006 version |
3006 version |
3007 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.182 2013-09-02 17:58:27 cg Exp $' |
3007 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.183 2014-01-23 16:11:49 stefan Exp $' |
3008 ! |
3008 ! |
3009 |
3009 |
3010 version_CVS |
3010 version_CVS |
3011 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.182 2013-09-02 17:58:27 cg Exp $' |
3011 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.183 2014-01-23 16:11:49 stefan Exp $' |
3012 ! ! |
3012 ! ! |
3013 |
3013 |