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