--- a/SharedPool.st	Mon Sep 20 10:45:23 2004 +0200
+++ b/SharedPool.st	Mon Sep 20 10:47:54 2004 +0200
@@ -53,6 +53,34 @@
 
 self halt:'unfinished implementation'.
     ^super bindingOf: varName
+!
+
+includesKey:aSymbol
+    ^ self keys includes:aSymbol
+
+    "
+     OpenGLConstants includesKey:#GL3Bytes
+    "
+!
+
+keys
+    ^ self classVarNames
+
+    "
+     OpenGLConstants keys
+    "
+! !
+
+!SharedPool class methodsFor:'printing & storing'!
+
+displayString
+    "return a printed represenation - here, a reminder is appended,
+     that this is not a regular class"
+
+    self == SharedPool ifTrue:[
+        ^ super displayString
+    ].
+    ^ self name , ' (* SharedPool *)'
 ! !
 
 !SharedPool class methodsFor:'queries'!
@@ -64,5 +92,5 @@
 !SharedPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.1 2004-09-13 08:57:23 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.2 2004-09-20 08:47:24 ca Exp $'
 ! !