[Checkins] SVN: Sandbox/ulif/grokui.zodbbrowser/src/grokui/zodbbrowser/ Add btree infos.

[Uli Fouquet]

Log message for revision 109947:
  Add btree infos.

Changed:
  A   Sandbox/ulif/grokui.zodbbrowser/src/grokui/zodbbrowser/btreeinfo.py
  U   Sandbox/ulif/grokui.zodbbrowser/src/grokui/zodbbrowser/interfaces.py

-=-
Added: Sandbox/ulif/grokui.zodbbrowser/src/grokui/zodbbrowser/btreeinfo.py
===================================================================
--- Sandbox/ulif/grokui.zodbbrowser/src/grokui/zodbbrowser/btreeinfo.py	                        (rev 0)
+++ Sandbox/ulif/grokui.zodbbrowser/src/grokui/zodbbrowser/btreeinfo.py	2010-03-14 13:22:49 UTC (rev 109947)
@@ -0,0 +1,36 @@
+"""Infos about BTrees.
+"""
+import grokcore.component as grok
+from BTrees.Interfaces import IBTree
+from BTrees.OOBTree import OOBTree
+from zope.proxy import removeAllProxies
+from zope.site.folder import Folder
+from grokui.zodbbrowser.interfaces import IBTreeInfo
+from grokui.zodbbrowser.objectinfo import ObjectInfo
+
+class BTreeInfo(ObjectInfo):
+    """Infos about Btree instances.
+    """
+    grok.context(OOBTree)
+    grok.implements(IBTreeInfo)
+    grok.provides(IBTreeInfo)
+
+    obj = None
+    def __init__(self, context):
+        super(BTreeInfo, self).__init__(context)
+        self.obj = removeAllProxies(context)
+        self._name = None
+        self._parent_oid = None
+
+    @property
+    def name(self):
+        """Get name of wrapped obj.
+        """
+        if self._name is not None:
+            return self._name
+        return getattr(self.obj, '__name__', u'???')
+
+class FolderInfo(BTreeInfo):
+    """Infos about folders.
+    """
+    grok.context(Folder)

Modified: Sandbox/ulif/grokui.zodbbrowser/src/grokui/zodbbrowser/interfaces.py
===================================================================
--- Sandbox/ulif/grokui.zodbbrowser/src/grokui/zodbbrowser/interfaces.py	2010-03-14 13:04:37 UTC (rev 109946)
+++ Sandbox/ulif/grokui.zodbbrowser/src/grokui/zodbbrowser/interfaces.py	2010-03-14 13:22:49 UTC (rev 109947)
@@ -26,3 +26,6 @@
         """Get a list of object infos for all members of an object.
         """
 
+class IBTreeInfo(IObjectInfo):
+    """Infos about BTrees.
+    """