--- a/FilenameEditField.st	Wed Nov 12 14:44:10 2008 +0100
+++ b/FilenameEditField.st	Wed Nov 12 14:48:42 2008 +0100
@@ -193,6 +193,33 @@
     "Modified: 6.9.1995 / 20:34:57 / claus"
 ! !
 
+!FilenameEditField methodsFor:'actions'!
+
+doFilenameCompletionFor:aString
+    |newString isMultiMatch canonContents|
+
+    isMultiMatch := false.
+    canonContents := Filename canonicalize:aString.
+
+    newString := Filename 
+                    filenameCompletionFor:canonContents 
+                    directory:directory 
+                    directoriesOnly:directoriesOnly 
+                    filesOnly:filesOnly 
+                    ifMultiple:[:dir |
+"/                                dir asFilename isDirectory ifTrue:[
+"/                                    self changed:#directory with:dir.
+"/                                ].
+                        isMultiMatch := true.
+                        self flash.
+                    ].
+    newString asFilename pathName = canonContents ifTrue:[
+        self flash.
+    ].
+
+    self contents:newString addSeparatorToDirectories:isMultiMatch not.
+! !
+
 !FilenameEditField methodsFor:'event handling'!
 
 keyPress:key x:x y:y
@@ -237,31 +264,6 @@
 
 !FilenameEditField methodsFor:'initialization'!
 
-doFilenameCompletionFor:aString
-    |newString isMultiMatch canonContents|
-
-    isMultiMatch := false.
-    canonContents := Filename canonicalize:aString.
-
-    newString := Filename 
-                    filenameCompletionFor:canonContents 
-                    directory:directory 
-                    directoriesOnly:directoriesOnly 
-                    filesOnly:filesOnly 
-                    ifMultiple:[:dir |
-"/                                dir asFilename isDirectory ifTrue:[
-"/                                    self changed:#directory with:dir.
-"/                                ].
-                        isMultiMatch := true.
-                        self flash.
-                    ].
-    newString asFilename pathName = canonContents ifTrue:[
-        self flash.
-    ].
-
-    self contents:newString addSeparatorToDirectories:isMultiMatch not.
-!
-
 initialize
     super initialize.
 
@@ -290,5 +292,5 @@
 !FilenameEditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.37 2008-11-12 13:11:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.38 2008-11-12 13:48:42 cg Exp $'
 ! !