--- a/FilenameEditField.st	Tue Nov 04 19:45:33 2008 +0100
+++ b/FilenameEditField.st	Tue Nov 11 21:29:17 2008 +0100
@@ -44,6 +44,29 @@
     [author:]
         Claus Gittinger
 "
+!
+
+examples
+"
+    |t f b v|
+
+    v := ValueHolder with:'c:\'.
+
+    t := StandardSystemView new.
+    f := FilenameEditField in:t.
+    f origin:10@10 corner:1.0@30.
+    f model:v.
+
+    b := Button in:t.
+    b label:'Check'.
+    b action:[ 
+                Transcript show:'field: '; showCR: f contents. 
+                Transcript show:'model: '; showCR: v value. 
+             ].
+    b origin:10@40.
+    t open.
+    
+"
 ! !
 
 !FilenameEditField methodsFor:'accessing'!
@@ -242,5 +265,5 @@
 !FilenameEditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.34 2007-11-08 10:54:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.35 2008-11-11 20:29:17 cg Exp $'
 ! !