Behavior.st
changeset 21532 bd59cd746b98
parent 21482 4a261f7b1174
child 21605 806379005cac
--- 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