"{ 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$'
! !