--- a/ModalBox.st	Wed Mar 01 01:12:54 1995 +0100
+++ b/ModalBox.st	Mon Mar 06 20:22:29 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.16 1995-02-06 00:37:31 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.17 1995-03-06 19:22:06 claus Exp $
 '!
 
 !ModalBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.16 1995-02-06 00:37:31 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.17 1995-03-06 19:22:06 claus Exp $
 "
 !
 
@@ -281,6 +281,13 @@
     self makeFullyVisible
 !
 
+fixSize
+    "adjust my size. Sent right before becomming visible"
+
+    self resize.
+    super fixSize.
+!
+
 positionOffset
     "return the delta, by which the box should be
      displaced from the mouse pointer. 

--- 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
 	    ]
-	]
+"/        ]
     ]                                                              
 !