--- a/Behavior.st Wed Feb 22 18:56:49 2017 +0100
+++ b/Behavior.st Wed Feb 22 18:57:22 2017 +0100
@@ -1449,7 +1449,6 @@
! !
-
!Behavior methodsFor:'RefactoringBrowser'!
realClass
@@ -3197,12 +3196,14 @@
to show a reasonable name."
"/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
- "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+ "/ old ST80 means: draw-yourself on a GC.
(aGCOrStream isStream) ifFalse:[
- ^ super displayOn:aGCOrStream
+ ^ super displayOn:aGCOrStream
].
aGCOrStream nextPutAll:self name
+
+ "Modified (format): / 22-02-2017 / 17:03:58 / cg"
!
printOn:aStream