--- a/ClassDescription.st Tue Jul 12 19:34:40 2011 +0200
+++ b/ClassDescription.st Wed Jul 13 15:32:55 2011 +0200
@@ -820,6 +820,7 @@
"Created: / 28.3.1998 / 21:21:52 / cg"
! !
+
!ClassDescription methodsFor:'Compatibility-V''Age'!
categoriesFor:aSelector are:listOfCategories
@@ -2426,6 +2427,30 @@
XMLCoder putQuotedString:someString on:aStream
! !
+!ClassDescription methodsFor:'misc'!
+
+iconInBrowserForVariableNamed: varName
+ "variables for which an entry is found in the xml-spec (if any) are marked
+ with an <xml>-icon.
+ For now, this is expecco-specific, but should be somehow lifted to the base system"
+
+ (Expecco::ExpeccoXMLDecoder notNil
+ and:[self canUnderstand: #xmlSpecFor:]) ifTrue:[
+ Error handle:[:ex |
+ ] do:[
+ (Expecco::ExpeccoXMLDecoder xmlSpecForObject:self basicNew)
+ do:[:spec | spec getter = varName ifTrue:[
+ ^ SystemBrowser instVarOverlayXmlSpec
+ ]
+ ].
+ ].
+ ].
+ ^ nil
+
+ "Created: / 12-04-2011 / 16:04:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-07-2011 / 15:31:38 / cg"
+! !
+
!ClassDescription methodsFor:'printOut'!
nameWithNameSpacePrefix
@@ -4105,11 +4130,11 @@
!ClassDescription class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.215 2011-01-18 17:07:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.216 2011-07-13 13:32:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.215 2011-01-18 17:07:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.216 2011-07-13 13:32:55 cg Exp $'
! !
ClassDescription initialize!