--- a/TopView.st Fri Jun 22 18:26:35 2001 +0200
+++ b/TopView.st Fri Jun 22 18:28:03 2001 +0200
@@ -71,9 +71,7 @@
display isNil ifTrue:[
^ 600 @ 400
].
- ^ (display width // 3 * 2) @ (display height // 3 * 2)
-
- "Modified: 22.4.1996 / 23:39:13 / cg"
+ ^ display defaultExtentForTopViews
! !
!TopView methodsFor:'Compatibility - ST80'!
@@ -303,7 +301,8 @@
"/
self masterSlaveMessage:#destroy inGroup:wg
- "Modified: 20.3.1997 / 22:14:16 / cg"!
+ "Modified: 20.3.1997 / 22:14:16 / cg"
+!
initialize
"initialize the topViews position for the screens center"
@@ -327,7 +326,8 @@
keyboardProcessor := KeyboardProcessor new.
].
- device realizedTopViewHookFor:self! !
+ device realizedTopViewHookFor:self
+! !
!TopView methodsFor:'misc'!
@@ -401,7 +401,8 @@
"return true, if the receiver has been opened modal"
windowGroup isNil ifTrue:[^ false].
- ^ windowGroup isModal!
+ ^ windowGroup isModal
+!
isPopUpView
"return true, since I want to come up without decoration
@@ -670,7 +671,8 @@
"Modified: / 10.9.1998 / 22:02:52 / cg"
- "Modified: 30.5.1996 / 09:37:22 / cg"!
+ "Modified: 30.5.1996 / 09:37:22 / cg"
+!
masterSlaveMessage:aSelector inGroup:aWindowGroup
"send aSelector to partners and/or slaves.
@@ -720,5 +722,5 @@
!TopView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.68 2000-11-09 15:17:34 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.69 2001-06-22 16:28:03 cg Exp $'
! !