--- a/BlockContext.st Tue Jun 26 17:32:15 2018 +0200
+++ b/BlockContext.st Tue Jun 26 20:00:39 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -213,7 +211,9 @@
].
className printOn:aStream.
aStream nextPutAll:'>>'.
+ aStream bold.
m selector printOn:aStream.
+ aStream normal.
].
^ self.
].
@@ -254,10 +254,13 @@
]
].
aStream nextPutAll:'[] in '; nextPutAll:className; nextPutAll:'>>'.
+ aStream bold.
homeSel printOn:aStream.
+ aStream normal.
"Modified: / 19-07-2012 / 11:02:41 / cg"
"Modified (format): / 13-02-2017 / 19:56:14 / cg"
+ "Modified: / 26-06-2018 / 19:25:02 / Claus Gittinger"
! !
!BlockContext methodsFor:'testing'!