# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 857167045 -3600
# Node ID 8fb5fa11956cdbcb69d346bcc38f39c3cb857f74
# Parent  784ed480f4ebb90cb904c9e2722449d889e133f9
better dialog opening

diff -r 784ed480f4eb -r 8fb5fa11956c WinBuilder.st
--- a/WinBuilder.st	Fri Feb 28 22:51:50 1997 +0100
+++ b/WinBuilder.st	Fri Feb 28 22:57:25 1997 +0100
@@ -368,11 +368,12 @@
     "open my topView at some location"
 
     self 
-        openAt:aPoint withExtent:nil  
+        openAt:aPoint 
+        withExtent:nil  
         andType:(application defaultWindowType)
 
     "Created: 14.2.1997 / 20:21:57 / cg"
-    "Modified: 14.2.1997 / 20:23:23 / cg"
+    "Modified: 28.2.1997 / 22:50:29 / cg"
 !
 
 openAt:origin withExtent:ext andType:type
@@ -390,6 +391,8 @@
     ].
 
     type == #dialog ifTrue:[
+        window fixSize.
+        window fixPosition:(window device pointerPosition - window positionOffset).
         window openModal.
         ^ self
     ].
@@ -400,8 +403,8 @@
     ].
 
     type == #popUp ifTrue:[
-"/        window openAsPopUp.  "/ not yet implemented
-        window openModal.
+        window fixPosition:(window device pointerPosition).
+        window openAsPopUp.
         ^ self
     ].
 
@@ -411,7 +414,7 @@
     self halt:'unimplemented'
 
     "Created: 14.2.1997 / 20:22:24 / cg"
-    "Modified: 14.2.1997 / 20:23:56 / cg"
+    "Modified: 28.2.1997 / 22:56:52 / cg"
 !
 
 openDialog
@@ -497,5 +500,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.27 1997-02-28 13:23:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.28 1997-02-28 21:57:25 cg Exp $'
 ! !
diff -r 784ed480f4eb -r 8fb5fa11956c WindowBuilder.st
--- a/WindowBuilder.st	Fri Feb 28 22:51:50 1997 +0100
+++ b/WindowBuilder.st	Fri Feb 28 22:57:25 1997 +0100
@@ -368,11 +368,12 @@
     "open my topView at some location"
 
     self 
-        openAt:aPoint withExtent:nil  
+        openAt:aPoint 
+        withExtent:nil  
         andType:(application defaultWindowType)
 
     "Created: 14.2.1997 / 20:21:57 / cg"
-    "Modified: 14.2.1997 / 20:23:23 / cg"
+    "Modified: 28.2.1997 / 22:50:29 / cg"
 !
 
 openAt:origin withExtent:ext andType:type
@@ -390,6 +391,8 @@
     ].
 
     type == #dialog ifTrue:[
+        window fixSize.
+        window fixPosition:(window device pointerPosition - window positionOffset).
         window openModal.
         ^ self
     ].
@@ -400,8 +403,8 @@
     ].
 
     type == #popUp ifTrue:[
-"/        window openAsPopUp.  "/ not yet implemented
-        window openModal.
+        window fixPosition:(window device pointerPosition).
+        window openAsPopUp.
         ^ self
     ].
 
@@ -411,7 +414,7 @@
     self halt:'unimplemented'
 
     "Created: 14.2.1997 / 20:22:24 / cg"
-    "Modified: 14.2.1997 / 20:23:56 / cg"
+    "Modified: 28.2.1997 / 22:56:52 / cg"
 !
 
 openDialog
@@ -497,5 +500,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.27 1997-02-28 13:23:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.28 1997-02-28 21:57:25 cg Exp $'
 ! !