--- a/FileBrowserV2.st Wed Jun 26 10:38:19 2013 +0200
+++ b/FileBrowserV2.st Wed Jun 26 10:45:11 2013 +0200
@@ -1491,28 +1491,28 @@
!
fileEntryFieldHolderChanged
- |fileName fileNameString answer dir|
+ |fileName fileNameString dir|
fileNameString := fileEntryFieldHolder value withoutSeparators.
- fileName := fileNameString asFilename.
fileNameString isEmpty ifTrue:[
- pathEntryField flash.
- ^ self
+ pathEntryField flash.
+ ^ self
].
- (fileName exists) ifFalse:[
- pathEntryField flash.
+ fileName := fileNameString asFilename.
+ fileName exists ifFalse:[
+ pathEntryField flash.
- dir := fileName directory.
- dir exists ifTrue:[
- self currentFileNameHolder
- value:(OrderedCollection with:dir)
- withoutNotifying:self.
- ].
- fileName baseName includesMatchCharacters ifTrue:[
- self fileEntryFieldHolder value:(fileName directoryName) withoutNotifying:self.
- self filterModel value:fileName baseName.
- ].
+ dir := fileName directory.
+ dir exists ifTrue:[
+ self currentFileNameHolder
+ value:(OrderedCollection with:dir)
+ withoutNotifying:self.
+ ].
+ fileName baseName includesMatchCharacters ifTrue:[
+ self fileEntryFieldHolder value:(fileName directoryName) withoutNotifying:self.
+ self filterModel value:fileName baseName.
+ ].
"/ answer := OptionBox
"/ request:(resources string:'No file or directory named "%1" exists.\\Create ?' with:fileNameString allBold) withCRs
@@ -1520,23 +1520,23 @@
"/ values:#(createFile createDirectory nil)
"/ default:nil.
"/
- answer isNil ifTrue:[
- ^ self.
- ].
-
- [
- answer == #createFile ifTrue:[
- fileName directory recursiveMakeDirectory.
- fileName createAsEmptyFile.
- ] ifFalse:[
- answer == #createDirectory ifTrue:[
- fileName recursiveMakeDirectory.
- ]
- ].
- ] on:OperatingSystem accessDeniedErrorSignal do:[:ex |
- Dialog warn:'Error: ' , ex description.
- ].
- ^ self
+"/ answer isNil ifTrue:[
+"/ ^ self.
+"/ ].
+"/
+"/ [
+"/ answer == #createFile ifTrue:[
+"/ fileName directory recursiveMakeDirectory.
+"/ fileName createAsEmptyFile.
+"/ ] ifFalse:[
+"/ answer == #createDirectory ifTrue:[
+"/ fileName recursiveMakeDirectory.
+"/ ]
+"/ ].
+"/ ] on:OperatingSystem accessDeniedErrorSignal do:[:ex |
+"/ Dialog warn:'Error: ' , ex description.
+"/ ].
+ ^ self
].
self setCurrentFileName:fileName.
!
@@ -2026,7 +2026,7 @@
!FileBrowserV2 class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.210 2013-06-25 10:42:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.211 2013-06-26 08:45:11 stefan Exp $'
! !