--- 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 $'
! !