# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 867174164 -7200
# Node ID 9cffa21b8dd405160c2ff31244a98ad5569576aa
# Parent  f413ab8fd1b5beff1f9112f2b3c6c21c85a22af3
added example

diff -r f413ab8fd1b5 -r 9cffa21b8dd4 CacheDict.st
--- a/CacheDict.st	Mon Jun 16 12:09:12 1997 +0200
+++ b/CacheDict.st	Tue Jun 24 19:42:44 1997 +0200
@@ -42,6 +42,21 @@
     [author:]
         Claus Gittinger
 "
+!
+
+examples
+"
+    |d|
+
+    d := CacheDictionary new:16.
+    1 to:20 do:[:i |
+	d at:i printString put:i.
+    ].
+    21 to:40 do:[:i |
+	d at:i printString put:i.
+    ].
+    d inspect
+"
 ! !
 
 !CacheDictionary methodsFor:'private'!
@@ -119,5 +134,5 @@
 !CacheDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/CacheDict.st,v 1.17 1997-03-01 00:00:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/CacheDict.st,v 1.18 1997-06-24 17:42:44 cg Exp $'
 ! !
diff -r f413ab8fd1b5 -r 9cffa21b8dd4 CacheDictionary.st
--- a/CacheDictionary.st	Mon Jun 16 12:09:12 1997 +0200
+++ b/CacheDictionary.st	Tue Jun 24 19:42:44 1997 +0200
@@ -42,6 +42,21 @@
     [author:]
         Claus Gittinger
 "
+!
+
+examples
+"
+    |d|
+
+    d := CacheDictionary new:16.
+    1 to:20 do:[:i |
+	d at:i printString put:i.
+    ].
+    21 to:40 do:[:i |
+	d at:i printString put:i.
+    ].
+    d inspect
+"
 ! !
 
 !CacheDictionary methodsFor:'private'!
@@ -119,5 +134,5 @@
 !CacheDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.17 1997-03-01 00:00:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.18 1997-06-24 17:42:44 cg Exp $'
 ! !