equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/sunit' }" |
1 "{ Package: 'stx:goodies/sunit' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 Object subclass:#SUnitNameResolver |
5 Object subclass:#SUnitNameResolver |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'DefaultLogDevice' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
7 category:'SUnit-Preload' |
9 category:'SUnit-Preload' |
8 ! |
10 ! |
9 |
11 |
|
12 !SUnitNameResolver class methodsFor:'documentation'! |
|
13 |
|
14 documentation |
|
15 " |
|
16 documentation to be added. |
|
17 |
|
18 [author:] |
|
19 cg |
|
20 |
|
21 [instance variables:] |
|
22 |
|
23 [class variables:] |
|
24 |
|
25 [see also:] |
|
26 |
|
27 " |
|
28 ! ! |
10 |
29 |
11 !SUnitNameResolver class methodsFor:'Camp Smalltalk'! |
30 !SUnitNameResolver class methodsFor:'Camp Smalltalk'! |
12 |
31 |
13 classNamed: aSymbol |
32 classNamed: aSymbol |
14 ^Smalltalk at: aSymbol ifAbsent: [nil] |
33 ^Smalltalk at: aSymbol ifAbsent: [nil] |
15 ! |
34 ! |
16 |
35 |
17 defaultLogDevice |
36 defaultLogDevice |
18 ^Transcript |
37 ^ DefaultLogDevice ? Transcript |
|
38 |
|
39 "Modified: / 13-07-2017 / 15:10:00 / cg" |
|
40 ! |
|
41 |
|
42 defaultLogDevice:aStream |
|
43 DefaultLogDevice := aStream |
|
44 |
|
45 "Created: / 13-07-2017 / 15:10:09 / cg" |
19 ! |
46 ! |
20 |
47 |
21 errorObject |
48 errorObject |
22 |
49 |
23 ^Exception |
50 ^Exception |
35 ! ! |
62 ! ! |
36 |
63 |
37 !SUnitNameResolver class methodsFor:'documentation'! |
64 !SUnitNameResolver class methodsFor:'documentation'! |
38 |
65 |
39 version |
66 version |
40 ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitNameResolver.st,v 1.7 2011-06-29 19:15:49 cg Exp $' |
67 ^ '$Header$' |
41 ! |
68 ! |
42 |
69 |
43 version_SVN |
70 version_SVN |
44 ^ '§Id: SUnitNameResolver.st 204 2010-09-11 15:21:51Z vranyj1 §' |
71 ^ '$Id$' |
45 ! ! |
72 ! ! |
|
73 |