Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
better dialog opening
authorClaus Gittinger <cg@exept.de>
Fri, 28 Feb 1997 22:57:25 +0100
changeset 467 8fb5fa11956c
parent 466 784ed480f4eb
child 468 bb4100d09a18
better dialog opening
WinBuilder.st file | annotate | diff | comparison | revisions
WindowBuilder.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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 $'
 ! !
hg/stx-libview2