--- a/View.st Wed Mar 01 01:12:54 1995 +0100
+++ b/View.st Mon Mar 06 20:22:29 1995 +0100
@@ -45,7 +45,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/View.st,v 1.32 1995-02-28 21:50:51 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.33 1995-03-06 19:22:29 claus Exp $
'!
"this flag controls (globally) how views look - it will vanish"
@@ -70,7 +70,7 @@
version
"
-$Header: /cvs/stx/stx/libview/View.st,v 1.32 1995-02-28 21:50:51 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.33 1995-03-06 19:22:29 claus Exp $
"
!
@@ -2032,25 +2032,15 @@
!
update
- ^ self redraw
+ "an update request - ignored here. Can be redefined in subclasses."
+
+ ^ self
!
update:aspect
- "an update request - should be redefined in subclasses"
-
- ^ self update
-!
-
-update:aspect with:anObject
- "an update request - should be redefined in subclasses"
-
- "
- this is a leftover for ST-80 supprto; may vanish
- "
- aspect == #rectangle ifTrue:[
- ^ self update:#all
- ].
- ^ self update:aspect
+ "an update request - ignored here. Can be redefined in subclasses"
+
+ ^ self
! !
!View methodsFor:'informing others of changes'!
@@ -3661,10 +3651,10 @@
area := Rectangle left:x top:y width:w height:h.
self clippedTo:area do:[
- controller notNil ifTrue:[
- "ST-80 updating"
- self update:#rectangle with:area
- ] ifFalse:[
+"/ controller notNil ifTrue:[
+"/ "ST-80 updating"
+"/ self update:#rectangle with:area
+"/ ] ifFalse:[
components notNil ifTrue:[
components do:[:aComponent |
|thisFrame is|
@@ -3686,7 +3676,7 @@
] ifFalse:[
self redraw
]
- ]
+"/ ]
]
!