"{ Package: 'stx:goodies/sunit' }"

"{ NameSpace: Smalltalk }"

Object subclass:#SUnitNameResolver
	instanceVariableNames:''
	classVariableNames:'DefaultLogDevice'
	poolDictionaries:''
	category:'SUnit-Preload'
!

!SUnitNameResolver class methodsFor:'documentation'!

documentation
"
    documentation to be added.

    [author:]
        cg

    [instance variables:]

    [class variables:]

    [see also:]

"
! !

!SUnitNameResolver class methodsFor:'Camp Smalltalk'!

classNamed: aSymbol
    ^Smalltalk at: aSymbol ifAbsent: [nil]
!

defaultLogDevice
    ^ DefaultLogDevice ? Transcript

    "Modified: / 13-07-2017 / 15:10:00 / cg"
!

defaultLogDevice:aStream
    DefaultLogDevice := aStream

    "Created: / 13-07-2017 / 15:10:09 / cg"
!

errorObject

    ^Exception
"/  ^Error

    "Modified: / 11-09-2010 / 15:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

mnuExceptionObject
	^MessageNotUnderstood
!

notificationObject
	^Notification
! !

!SUnitNameResolver class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_SVN
    ^ '$Id$'
! !