198 |
198 |
199 acceptOnExpand := true. |
199 acceptOnExpand := true. |
200 directoriesOnly := filesOnly := false. |
200 directoriesOnly := filesOnly := false. |
201 directory := Filename currentDirectory. |
201 directory := Filename currentDirectory. |
202 |
202 |
203 entryCompletionBlock := [:contents | |
203 self |
204 |newString isMultiMatch canonContents| |
204 entryCompletionBlock:[:contents | |
205 |
205 |newString isMultiMatch canonContents| |
206 isMultiMatch := false. |
206 |
207 canonContents := Filename canonicalize:contents. |
207 isMultiMatch := false. |
208 newString := Filename |
208 canonContents := Filename canonicalize:contents. |
209 filenameCompletionFor:canonContents |
209 newString := Filename |
210 directory:directory |
210 filenameCompletionFor:canonContents |
211 directoriesOnly:directoriesOnly |
211 directory:directory |
212 filesOnly:filesOnly |
212 directoriesOnly:directoriesOnly |
213 ifMultiple:[:dir | |
213 filesOnly:filesOnly |
214 "/ dir asFilename isDirectory ifTrue:[ |
214 ifMultiple:[:dir | |
215 "/ self changed:#directory with:dir. |
215 "/ dir asFilename isDirectory ifTrue:[ |
216 "/ ]. |
216 "/ self changed:#directory with:dir. |
217 isMultiMatch := true. |
217 "/ ]. |
218 self flash. |
218 isMultiMatch := true. |
219 ]. |
219 self flash. |
220 newString asFilename pathName = canonContents ifTrue:[ |
220 ]. |
221 self flash. |
221 newString asFilename pathName = canonContents ifTrue:[ |
|
222 self flash. |
|
223 ]. |
|
224 |
|
225 self contents:newString addSeparatorToDirectories:isMultiMatch not. |
|
226 self cursorToEndOfLine. |
222 ]. |
227 ]. |
223 |
|
224 self contents:newString addSeparatorToDirectories:isMultiMatch not. |
|
225 self cursorToEndOfLine. |
|
226 ]. |
|
227 |
228 |
228 "Modified: 7.9.1995 / 10:20:46 / claus" |
229 "Modified: 7.9.1995 / 10:20:46 / claus" |
229 "Modified: 7.9.1997 / 23:51:47 / cg" |
230 "Modified: 7.9.1997 / 23:51:47 / cg" |
230 ! |
231 ! |
231 |
232 |