--- a/Explainer.st Wed Mar 20 19:27:19 2013 +0100
+++ b/Explainer.st Thu Mar 21 11:20:13 2013 +0100
@@ -539,7 +539,7 @@
Also, there could be much more detailed explanations."
|parser variables c string tmp
- spc sym sel stringText clsName val valString|
+ spc sym sel stringText cls clsName val valString|
string := someText string withoutSeparators.
string isEmpty ifTrue:[ ^ nil ].
@@ -639,13 +639,19 @@
(spc := aClass nameSpace) notNil ifTrue:[
sym := (spc name , '::' , string) asSymbolIfInterned.
sym notNil ifTrue:[
- (Smalltalk at:sym) isBehavior ifTrue:[
+ (cls := Smalltalk at:sym) isBehavior ifTrue:[
string := stringText , ': '.
- (Smalltalk at:sym) name = sym ifFalse:[
- string := string , 'refers to ',(Smalltalk at:sym) name,', '
+ cls name = sym ifFalse:[
+ string := string , 'refers to ',cls name,', '
].
- string := string , 'a class in the ''' , spc name , ''' nameSpace'.
- string := string , ' {', (Smalltalk at:sym) category ,'}'.
+ cls isSharedPool ifTrue:[
+ string := string , 'a sharedPool'.
+ ] ifFalse:[
+ string := string , 'a class'.
+ ].
+
+ string := string , ' in the ''' , spc name , ''' nameSpace'.
+ string := string , ' {', cls category ,'}'.
shortText ifFalse:[
string := (string
, '\\It is only visible within this nameSpace.'
@@ -764,22 +770,24 @@
classCategory := val category ? 'uncategorized'.
shortText ifTrue:[
- ^ stringText , (val isLoaded ifTrue:['a'] ifFalse:['an autoloaded'])
-, ' class in ',val package,' {' , classCategory , '}.'.
+ stringText := stringText , (val isLoaded ifTrue:['a'] ifFalse:['an autoloaded']).
+ stringText := stringText , (val isSharedPool ifTrue:[' sharedPool'] ifFalse:[' class']).
+ ^ stringText , ' in ',val package,' {' , classCategory , '}.'.
].
val name = string ifTrue:[
- tmp := tmp , '
-' , string , ' is ' , (val isLoaded ifTrue:['a'] ifFalse:['an autoloaded'])
-, ' class categorized as ' , classCategory , '
-in the ''' , val package , ''' package.'.
+ tmp := tmp , '\' withCRs , string , ' is '.
+ tmp := tmp , (val isLoaded ifTrue:['a'] ifFalse:['an autoloaded']).
+ tmp := tmp , (val isSharedPool ifTrue:[' sharedPool'] ifFalse:[' class']).
+ tmp := tmp , ' categorized as "' , classCategory , '"'.
+ tmp := tmp , '\' withCRs , 'in the "' , val package , '" package.'.
^ tmp.
].
tmp := tmp , '
' , string , ' is bound to the class ' , val name ,
-' in the ''' , classCategory , ''' category.'.
+' in the "' , classCategory , '" category.'.
^ tmp.
].
@@ -1459,10 +1467,10 @@
!Explainer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.116 2013-03-19 15:58:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.117 2013-03-21 10:20:13 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.116 2013-03-19 15:58:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.117 2013-03-21 10:20:13 cg Exp $'
! !