#REFACTORING
authorClaus Gittinger <cg@exept.de>
Sun, 17 Jan 2016 11:45:25 +0100
changeset 16037 3393fbb61d79
parent 16036 e54e7476bf29
child 16038 76f0c4c8874b
#REFACTORING class: SystemBrowser consistent look of history items: always embolden the class.
SystemBrowser.st
--- 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>"