--- a/SystemBrowser.st Sun Jan 17 11:21:47 2016 +0100
+++ b/SystemBrowser.st Sun Jan 17 11:45:25 2016 +0100
@@ -7026,15 +7026,16 @@
name := cls notNil ifTrue:[cls nameInBrowser] ifFalse:[className].
name printOn:aGCOrStream.
meta ifTrue:[
- aGCOrStream
- emphasis:#bold;
- nextPutAll:' class';
- emphasis:nil.
+ "/ aGCOrStream emphasis:#bold.
+ aGCOrStream nextPutAll:' class'.
+ "/ aGCOrStream emphasis:nil.
].
selector notNil ifTrue:[
aGCOrStream
- nextPutAll:' >> ';
- nextPutAll:selector.
+ nextPutAll:' » ';
+ emphasis:#bold;
+ nextPutAll:selector;
+ emphasis:nil.
].
"Created: / 15-04-2010 / 13:47:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"