--- a/SharedPool.st	Thu Mar 22 12:23:15 2012 +0000
+++ b/SharedPool.st	Tue Mar 27 16:32:25 2012 +0100
@@ -140,12 +140,49 @@
     "Created: / 06-03-2012 / 17:07:54 / cg"
 !
 
+includesKey:aSymbol
+    ^ self keys includes:aSymbol
+
+    "
+     OpenGLConstants includesKey:#GL3Bytes
+    "
+!
+
+keyAtValue:value ifAbsent:exceptionValue
+    self keysDo:[:k |
+        (self at:k) == value ifTrue:[ ^ k ].
+    ].
+    ^ exceptionValue value
+
+    "Created: / 08-09-2011 / 05:51:10 / cg"
+!
+
+keys
+    "retrieve all keys (= pool var names)"
+
+    ^ self classVarNames
+
+    "
+     OpenGLConstants keys
+    "
+
+    "Modified (comment): / 06-03-2012 / 17:09:11 / 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"
+!
+
+keysDo:aBlock
+    "enumerate all keys (= pool var names)"
+
+    ^ self keys do:aBlock
+
+    "Modified (comment): / 06-03-2012 / 17:08:54 / cg"
 ! !
 
 !SharedPool class methodsFor:'misc ui support'!
@@ -187,26 +224,6 @@
 
     self shouldImplement.       "not yet finished"
     ^ super bindingOf: varName
-!
-
-keys
-    "retrieve all keys (= pool var names)"
-
-    ^ 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'!
@@ -230,7 +247,7 @@
 !SharedPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.20 2012/03/06 16:09:32 cg Exp $'
+    ^ '$Id: SharedPool.st 10794 2012-03-27 15:32:25Z vranyj1 $'
 !
 
 version_CVS
@@ -238,5 +255,5 @@
 !
 
 version_SVN
-    ^ '$Id: SharedPool.st 10792 2012-03-21 17:45:38Z vranyj1 $'
+    ^ '$Id: SharedPool.st 10794 2012-03-27 15:32:25Z vranyj1 $'
 ! !