--- 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