--- a/ModalBox.st	Fri Jul 05 15:01:15 1996 +0200
+++ b/ModalBox.st	Fri Jul 05 15:04:10 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Views-Basic'
 !
 
-!ModalBox class methodsFor:'documentation'!
+!ModalBox  class methodsFor:'documentation'!
 
 copyright
 "
@@ -55,13 +55,13 @@
 "
 ! !
 
-!ModalBox class methodsFor:'initialization'!
+!ModalBox  class methodsFor:'initialization'!
 
 initialize
     UseTransientViews := true.
 ! !
 
-!ModalBox class methodsFor:'defaults'!
+!ModalBox  class methodsFor:'defaults'!
 
 defaultExtent
     "this defines the defaultExtent for instances of me;
@@ -71,9 +71,9 @@
      the value from preferredExtent taken instead."
 
 
-    ^ (Display pixelPerMillimeter * (60 @ 30)) rounded
+    ^ (Screen current pixelPerMillimeter * (60 @ 30)) rounded
 
-    "Modified: 22.4.1996 / 23:37:06 / cg"
+    "Modified: 5.7.1996 / 13:54:18 / cg"
 !
 
 defaultLabel
@@ -806,9 +806,9 @@
     "Modified: 7.3.1996 / 17:58:53 / cg"
 ! !
 
-!ModalBox class methodsFor:'documentation'!
+!ModalBox  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.44 1996-05-29 10:21:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.45 1996-07-05 13:03:44 cg Exp $'
 ! !
 ModalBox initialize!

--- a/PopUpView.st	Fri Jul 05 15:01:15 1996 +0200
+++ b/PopUpView.st	Fri Jul 05 15:04:10 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Views-Basic'
 !
 
-!PopUpView class methodsFor:'documentation'!
+!PopUpView  class methodsFor:'documentation'!
 
 copyright
 "
@@ -51,16 +51,19 @@
 "
 ! !
 
-!PopUpView class methodsFor:'defaults'!
+!PopUpView  class methodsFor:'defaults'!
 
 defaultExtent
     "return the default extent of my instances.
      The value returned here is usually ignored, and
      the value from preferredExtent taken instead."
 
-    ^ (Display width // 3) @ (Display height // 3)
+    |screen|
 
-    "Modified: 22.4.1996 / 23:37:12 / cg"
+    screen := Screen current.
+    ^ (screen width // 3) @ (screen height // 3)
+
+    "Modified: 5.7.1996 / 13:55:08 / cg"
 !
 
 shadows
@@ -330,8 +333,8 @@
     "Modified: 3.5.1996 / 23:46:06 / stefan"
 ! !
 
-!PopUpView class methodsFor:'documentation'!
+!PopUpView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.30 1996-05-12 20:05:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.31 1996-07-05 13:04:10 cg Exp $'
 ! !