"{ Package: 'stx:libbasic' }"

Error subclass:#MessageNotUnderstood

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Kernel-Exceptions-Errors'

!

!MessageNotUnderstood class methodsFor:'documentation'!

documentation

"

    raised when a message is sent to an object, which is not understood

    by the receiver, and the message was not handled by a class specific

    doesNotUnderstand: handler.

"

! !

!MessageNotUnderstood class methodsFor:'queries'!

mayProceed

    "Return true, because messageNotUnderstood is proceedable (with nil)."

    ^ true

! !

!MessageNotUnderstood class methodsFor:'save evaluation'!

ignoreNotUnderstoodOf:aSelector in:aBlock

    "evaluate aBlock; if a messageNotUnderstood occurs,

     for which the message was aSelector, ignore the error

     and return.

     Other selector errors lead into the debugger.

     If no error occurs, return the blocks value"

    ^ self handle:[:ex |

        ex parameter selector == aSelector ifFalse:[

            ex reject

        ]

    ] do:aBlock.

! !

!MessageNotUnderstood methodsFor:'accessing'!

message

    ^ parameter

    "

     [

        123 perform:#foo

     ] on:MessageNotUnderstood do:[:ex |

        Transcript show:'message object: '; showCR:ex message storeString.

        Transcript show:'receiver: '; showCR:ex receiver storeString.

        Transcript show:'selector: '; showCR:ex message selector storeString.

        Transcript show:'arguments: '; showCR:ex message arguments storeString.

     ]

    "

!

receiver

    ^ originator

    "

     [

        123 perform:#foo

     ] on:MessageNotUnderstood do:[:ex |

        Transcript showCR:ex receiver

     ]

    "

! !

!MessageNotUnderstood class methodsFor:'documentation'!

version

! !