--- a/ValueHolder.st	Tue May 09 03:53:35 1995 +0200
+++ b/ValueHolder.st	Wed May 10 04:26:18 1995 +0200
@@ -2,7 +2,7 @@
 	 instanceVariableNames:'value'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Interface-Support'
+	 category:'Interface-Support-Models'
 !
 
 !ValueHolder class methodsFor:'documentation'!
@@ -10,7 +10,7 @@
 copyright
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -23,7 +23,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/ValueHolder.st,v 1.4 1995-05-09 00:22:53 claus Exp $
+$Header: /cvs/stx/stx/libview2/ValueHolder.st,v 1.5 1995-05-10 02:26:15 claus Exp $
 "
 !
 
@@ -38,6 +38,31 @@
     the corresponding ST-80 class. If you encounter any incompatibilities,
     please forward a note to the ST/X team.
 "
+!
+
+examples 
+"
+    edit strings:
+
+	|firstName lastName dialog|
+
+	firstName := ValueHolder newString.
+	lastName := ValueHolder newString.
+
+	dialog := Dialog new.
+	(dialog addTextLabel:'Name:') layout:#left.
+	dialog addInputFieldOn:firstName.
+	dialog addVerticalSpace.
+	(dialog addTextLabel:'Address:') layout:#left.
+	dialog addInputFieldOn:lastName.
+
+	dialog addAbortButton; addOkButton.
+
+	dialog open.
+	dialog accepted ifTrue:[
+	    Transcript show:firstName value; show:' '; showCr:lastName value
+	]
+"
 ! !
 
 !ValueHolder class methodsFor:'instance creation'!