#REFACTORING by stefan
authorStefan Vogel <sv@exept.de>
Thu, 19 Jan 2017 16:58:46 +0100
changeset 17240 f75300587053
parent 17239 f09d9792751b
child 17241 240611c35ab7
child 17303 85890687ff9c
#REFACTORING by stefan class: FileBrowser changed: #openTool:with:ignoreDirectories: (send #name instead of #getName) do not use private method
FileBrowser.st
--- a/FileBrowser.st	Thu Jan 19 16:58:16 2017 +0100
+++ b/FileBrowser.st	Thu Jan 19 16:58:46 2017 +0100
@@ -3745,7 +3745,7 @@
             path := currentDirectory filenameFor:fileName.
             (ignoreDirs not or:[path isDirectory not]) ifTrue:[
                 path isAbsolute ifTrue:[
-                    path := path getName.
+                    path := path name.
                 ] ifFalse:[
                     path := path pathName.
                 ].
@@ -3755,9 +3755,9 @@
     ].
     ^ tool
 
-    "Modified: / 18.9.1997 / 17:06:18 / stefan"
-    "Created: / 7.9.1998 / 19:31:49 / cg"
-    "Modified: / 25.5.1999 / 16:30:35 / cg"
+    "Created: / 07-09-1998 / 19:31:49 / cg"
+    "Modified: / 25-05-1999 / 16:30:35 / cg"
+    "Modified: / 19-01-2017 / 16:57:15 / stefan"
 !
 
 openZipTool