# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1056891599 -7200
# Node ID c65d109ab80efeb47aea5b2c1a88194ad2d85d75
# Parent  a14ce263ada5f081e63b7dbb1e0bd07b5de63e8d
boxes no longer show at pointer

diff -r a14ce263ada5 -r c65d109ab80e FileBrowser.st
--- a/FileBrowser.st	Sun Jun 29 14:57:37 2003 +0200
+++ b/FileBrowser.st	Sun Jun 29 14:59:59 2003 +0200
@@ -3060,7 +3060,7 @@
             ] 
         ] fork.
 
-        box showAtPointer.
+        box show.
         updater terminate.
         box destroy
     ]
@@ -3313,7 +3313,8 @@
                 lastNewName := newName.
             ].
     
-        queryBox showAtPointer
+        queryBox show.
+        queryBox destroy.
     ]
 !
 
@@ -3429,7 +3430,8 @@
                     title:(resources at:'Create new directory:') withCRs
                     okText:(resources at:'Create')
                     action:[:newName | self doCreateDirectory:newName].
-    queryBox showAtPointer
+    queryBox show.
+    queryBox destroy.
 
     "Modified: 23.4.1997 / 13:04:27 / cg"
 !
@@ -3451,7 +3453,8 @@
     sel notNil ifTrue:[
         queryBox initialText:(sel asString)
     ].
-    queryBox showAtPointer
+    queryBox show.
+    queryBox destroy.
 
     "Modified: / 23.4.1997 / 13:04:38 / cg"
     "Modified: / 16.1.1998 / 16:54:00 / stefan"
@@ -3460,7 +3463,7 @@
 newHardLink
     "ask for and create a hard link (unix only)"
 
-    |sel box orgName1 name1 name2 f1 f2 err if1 if2|
+    |sel box ok orgName1 name1 name2 f1 f2 err if1 if2|
 
     sel := self getSelectedFileName.
 
@@ -3485,9 +3488,11 @@
     orgName1 size > 0 ifTrue:[
         box focusOnField:if2.
     ].
-    box showAtPointer.
-
-    box accepted ifTrue:[
+    box show.
+    ok := box accepted.
+    box destroy.
+
+    ok ifTrue:[
         name1 := name1 value.
         (name1 size == 0) ifTrue:[
             err := 'no name entered'.
@@ -3530,7 +3535,7 @@
 newSoftLink
     "ask for and create a soft link (unix only)"
 
-    |sel box orgName1 name1 name2 f1 f2 err if1 if2|
+    |sel box ok orgName1 name1 name2 f1 f2 err if1 if2|
 
     sel := self getSelectedFileName.
 
@@ -3553,9 +3558,11 @@
     orgName1 size > 0 ifTrue:[
         box focusOnField:if2.
     ].
-    box showAtPointer.
-
-    box accepted ifTrue:[
+    box show.
+    ok := box accepted.
+    box destroy.
+
+    ok ifTrue:[
         name1 := name1 value.
         (name1 size == 0) ifTrue:[
             err := 'no name entered'.
@@ -5275,7 +5282,7 @@
                     okText:(resources at:'Change')
                     action:[:newName | dirName := newName].
 "/    queryBox initialText:''.
-    queryBox showAtPointer.
+    queryBox show.
     queryBox destroy.
     dirName size == 0 ifTrue:[^ self].
 
@@ -5343,7 +5350,7 @@
         self initialCommandFor:fileName into:box.
     ].
     box directory:currentDirectory.
-    box showAtPointer.
+    box show.
     box destroy.
 
     "Modified: / 7.9.1995 / 10:31:54 / claus"
@@ -7822,5 +7829,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.536 2003-06-12 12:18:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.537 2003-06-29 12:59:59 cg Exp $'
 ! !