# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1226435357 -3600
# Node ID 882654c00205eeb7439af06df6126c313904c20a
# Parent  f02d54641334fa54e6d3f79cc0d5639991b3da94
example

diff -r f02d54641334 -r 882654c00205 FilenameEditField.st
--- 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 $'
 ! !