class: FileBrowserV2
authorStefan Vogel <sv@exept.de>
Wed, 26 Jun 2013 10:45:11 +0200
changeset 13026 ad8d4b54b922
parent 13025 8244753fe0a7
child 13027 a477491219f4
class: FileBrowserV2 changed: #fileEntryFieldHolderChanged fix stc warnings
FileBrowserV2.st
--- 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 $'
 ! !