--- a/SharedPool.st	Tue Mar 13 15:46:50 2012 +0000
+++ b/SharedPool.st	Wed Mar 21 17:45:38 2012 +0000
@@ -130,6 +130,24 @@
     "Modified: / 15-01-2011 / 14:20:58 / cg"
 ! !
 
+!SharedPool class methodsFor:'dictionary protocol'!
+
+do:aBlock
+    "enumerate all values"
+
+    ^ self keys do:[:key | aBlock value:(self at:key)]
+
+    "Created: / 06-03-2012 / 17:07:54 / cg"
+!
+
+keysAndValuesDo:aBlock
+    "enumerate all keys (= pool var names) with their value"
+
+    ^ self keys do:[:key | aBlock value:key value:(self at:key)]
+
+    "Created: / 06-03-2012 / 17:07:41 / cg"
+! !
+
 !SharedPool class methodsFor:'misc ui support'!
 
 iconInBrowserSymbol
@@ -171,33 +189,24 @@
     ^ super bindingOf: varName
 !
 
-includesKey:aSymbol
-    ^ self keys includes:aSymbol
-
-    "
-     OpenGLConstants includesKey:#GL3Bytes
-    "
-!
+keys
+    "retrieve all keys (= pool var names)"
 
-keyAtValue:value ifAbsent:exceptionValue
-    self keysDo:[:k |
-        (self at:k) == value ifTrue:[ ^ k ].
-    ].
-    ^ exceptionValue value
-
-    "Created: / 08-09-2011 / 05:51:10 / cg"
-!
-
-keys
     ^ self classVarNames
 
     "
      OpenGLConstants keys
     "
+
+    "Modified (comment): / 06-03-2012 / 17:09:11 / cg"
 !
 
 keysDo:aBlock
+    "enumerate all keys (= pool var names)"
+
     ^ self keys do:aBlock
+
+    "Modified (comment): / 06-03-2012 / 17:08:54 / cg"
 ! !
 
 !SharedPool class methodsFor:'printing & storing'!
@@ -221,17 +230,13 @@
 !SharedPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.19 2012/02/07 14:58:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.20 2012/03/06 16:09:32 cg Exp $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.19 2012/02/07 14:58:03 cg Exp '
+    ^ '§Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.20 2012/03/06 16:09:32 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: SharedPool.st 10777 2012-02-13 19:19:41Z vranyj1 $'
+    ^ '$Id: SharedPool.st 10792 2012-03-21 17:45:38Z vranyj1 $'
 ! !
-
-
-
-