SystemBrowser.st
changeset 13820 4a9bc4698533
parent 13552 cc3d76d48ddc
child 13921 5802f4f5b84f
--- a/SystemBrowser.st	Wed Feb 05 19:57:16 2014 +0100
+++ b/SystemBrowser.st	Wed Feb 05 19:57:24 2014 +0100
@@ -1621,8 +1621,10 @@
 stopIcon
     <resource: #programImage>
 
-    ^ ToolbarIconLibrary stopPoint9x9
+    ^ ToolbarIconLibrary stopPoint12x16
     "/ ^ self stopIcon2
+
+    "Modified: / 28-03-2013 / 12:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 stopIcon1
@@ -6482,6 +6484,7 @@
 !SystemBrowser::BrowserHistoryEntry methodsFor:'displaying'!
 
 displayOn:aGCOrStream
+    | cls name |
 
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
     "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
@@ -6489,7 +6492,9 @@
         ^ super displayOn:aGCOrStream
     ].
 
-    className printOn:aGCOrStream.
+    cls := self theClass.
+    name := cls notNil ifTrue:[cls nameInBrowser] ifFalse:[className].
+    name printOn:aGCOrStream.
     meta ifTrue:[
         aGCOrStream
             emphasis:#bold;
@@ -6504,20 +6509,21 @@
 
     "Created: / 15-04-2010 / 13:47:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 03-07-2011 / 13:44:32 / cg"
+    "Modified: / 14-10-2013 / 12:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.336 2013-09-14 01:34:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.337 2014-02-05 18:57:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.336 2013-09-14 01:34:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.337 2014-02-05 18:57:24 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: SystemBrowser.st,v 1.336 2013-09-14 01:34:26 cg Exp $'
+    ^ '$Id: SystemBrowser.st,v 1.337 2014-02-05 18:57:24 cg Exp $'
 ! !