Add object id lookup

src/geef_tree.erl

@@ -4,7 +4,7 @@
 -include_lib("eunit/include/eunit.hrl").
 -endif.
 
--export([bypath/2]).
+-export([bypath/2, id/1]).
 
 -include("geef_records.hrl").
 
@@ -16,6 +16,9 @@ bypath(#object{type=tree,handle=Handle}, Path) ->
 	    Other
     end.
 
+id(Obj = #object{type=tree}) ->
+    geef_object:id(Obj).
+
 -ifdef(TEST).
 
 %% This is somewhat hacky, assuming that this is running under .eunit,