#UI_ENHANCEMENT by cg
class: SUnitNameResolver
class definition
class: SUnitNameResolver class
added:
#defaultLogDevice:
#documentation
changed: #defaultLogDevice
--- a/SUnitNameResolver.st Wed Jul 12 16:13:02 2017 +0200
+++ b/SUnitNameResolver.st Thu Jul 13 15:10:19 2017 +0200
@@ -1,12 +1,31 @@
"{ Package: 'stx:goodies/sunit' }"
+"{ NameSpace: Smalltalk }"
+
Object subclass:#SUnitNameResolver
instanceVariableNames:''
- classVariableNames:''
+ 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'!
@@ -15,7 +34,15 @@
!
defaultLogDevice
- ^Transcript
+ ^ DefaultLogDevice ? Transcript
+
+ "Modified: / 13-07-2017 / 15:10:00 / cg"
+!
+
+defaultLogDevice:aStream
+ DefaultLogDevice := aStream
+
+ "Created: / 13-07-2017 / 15:10:09 / cg"
!
errorObject
@@ -37,9 +64,10 @@
!SUnitNameResolver class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitNameResolver.st,v 1.7 2011-06-29 19:15:49 cg Exp $'
+ ^ '$Header$'
!
version_SVN
- ^ '§Id: SUnitNameResolver.st 204 2010-09-11 15:21:51Z vranyj1 §'
+ ^ '$Id$'
! !
+