"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2016 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic' }"

"{ NameSpace: Smalltalk }"

HaltInterrupt subclass:#ObsoleteMethodCallWarning

	instanceVariableNames:''

	classVariableNames:'IgnoredWarnings'

	poolDictionaries:''

	category:'Kernel-Exceptions-Control'

!

!ObsoleteMethodCallWarning class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2016 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    Raised when an obsolete method is called.

    Thus used to do a halt; now this separate exception is raised to make it

    easier to separately handle this.

    Still a kind of programmed debug-breakpoint.

    [author:]

        Claus Gittinger

"

! !

!ObsoleteMethodCallWarning class methodsFor:'initialization'!

initialize

    NotifierString := 'Obsolete method called'.

    "

     self initialize.

    "

! !

!ObsoleteMethodCallWarning class methodsFor:'ignoring'!

ignoreWarningFrom:aContext

    "add aContext's method to the ignoredWarnings set.

     This will stop the warning during this session."

    |con|

    IgnoredWarnings isNil ifTrue:[

        IgnoredWarnings := Set new.

    ].

    con := aContext.

    [con notNil and:[con selector startsWith:'obsoleteMethodWarning']]

    whileTrue:[

        con := con sender

    ].   

    con notNil ifTrue:[

        IgnoredWarnings add:(con method whoString)

    ].

! !

!ObsoleteMethodCallWarning class methodsFor:'raising'!

raiseRequestErrorString:errorString

    |con|

    IgnoredWarnings notNil ifTrue:[

        con := thisContext sender.

        [con notNil and:[con selector startsWith:'obsoleteMethodWarning']]

        whileTrue:[

            con := con sender

        ].   

        (IgnoredWarnings includes:(con method whoString)) ifTrue:[

            ^ self

        ].    

    ].

    super raiseRequestErrorString:errorString.

! !

!ObsoleteMethodCallWarning class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !

ObsoleteMethodCallWarning initialize!