--- 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 $'
! !