"{ 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
    ^ '$Header: /cvs/stx/stx/libbasic/ZeroDivide.st,v 1.4 2002-07-31 14:33:05 cg Exp $'
! !
ZeroDivide initialize!