equal
deleted
inserted
replaced
314 ! |
314 ! |
315 |
315 |
316 open |
316 open |
317 |
317 |
318 super open. |
318 super open. |
319 accept value |
319 accept value ifTrue:[ |
320 ifTrue: |
320 ^ (self selectionOfDirectory value ? '') asFilename |
321 [ |
321 constructString:(self valueOfFileName value ? '') |
322 ^(self selectionOfDirectory value ? '') , Filename separator, (self valueOfFileName value ? '') |
|
323 ]. |
322 ]. |
324 ^nil |
323 ^ nil |
325 |
324 |
326 |
325 "Modified: / 28.1.1998 / 15:21:40 / stefan" |
327 |
|
328 ! |
326 ! |
329 |
327 |
330 postBuildWith:aBuilder |
328 postBuildWith:aBuilder |
331 |
329 |
332 directoryView listOfFileFilters: listOfFileFilters ? #('*'). |
330 directoryView listOfFileFilters: listOfFileFilters ? #('*'). |