"{ Package: 'stx:libbasic' }"

DomainError subclass:#ZeroDivide

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Kernel-Exceptions-Errors'

!

!ZeroDivide class methodsFor:'documentation'!

documentation

"

    Raised when a division by zero is attempted.

"

! !

!ZeroDivide class methodsFor:'initialization'!

initialize

    NotifierString := 'division by zero'.

! !

!ZeroDivide methodsFor:'accessing'!

dividend

    "Return the number that was being divided by zero."

    ^ parameter receiver

    "

     |a b|

     a := 5.

     b := 0.

     Integer divisionByZeroSignal handle:[:ex |

        Transcript showCR:('division by zero - dividend was: ' , ex dividend printString)

     ] do:[

        a // b

     ]

    "

! !

!ZeroDivide class methodsFor:'documentation'!

version

! !

ZeroDivide initialize!