View.st
changeset 8917 5942dc35f0e4
parent 8697 8c2c702ff12c
--- a/View.st	Wed Dec 11 00:24:00 2019 +0100
+++ b/View.st	Wed Dec 11 00:24:16 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -764,29 +762,6 @@
     "Modified: / 30-05-2019 / 11:17:21 / Claus Gittinger"
 ! !
 
-!View methodsFor:'printing & storing'!
-
-displayOn:aStreamOrGC
-    "redefined to also give a hint of where I am"
-
-    |topView|
-
-    aStreamOrGC isStream ifFalse:[^ super displayOn:aStreamOrGC].
-
-    super displayOn:aStreamOrGC.
-    (topView := self topView) notNil ifTrue:[
-        (topView ~~ self) ifTrue:[
-            aStreamOrGC nextPutAll:' [in '.
-            topView application notNil ifTrue:[
-                topView application displayOn:aStreamOrGC
-            ] ifFalse:[
-                topView displayOn:aStreamOrGC
-            ].
-            aStreamOrGC nextPutAll:']'.
-        ].
-    ].
-! !
-
 !View class methodsFor:'documentation'!
 
 version