Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.53 -r1.54
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Jan 2011 18:03:00 -0000	1.53
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Jan 2011 08:03:28 -0000	1.54
@@ -11,6 +11,7 @@
   ::xotcl::Object instproc debug
   ::xotcl::Object instproc qn
   ::xotcl::Object instproc serialize
+  ::xotcl::Object instproc show-object
   ::xotcl::Object instforward db_1row
   ::xotcl::Object instproc destroy_on_cleanup
   ::xotcl::Object instproc set_instance_vars_defaults
@@ -86,6 +87,7 @@
 
   ::Serializer exportMethods {
     ::nx::Object method serialize
+    ::nx::Object method show-object
     ::nx::Object method set_instance_vars_defaults
     ::nx::Slot method istype
     ::nx::Slot method exists
@@ -129,6 +131,18 @@
   ::Serializer deepSerialize [self]
 }
 
+::xotcl::Object instproc show-object {} {
+  #
+  # Allow to show an arbitrary object via API-browser.  Per-default,
+  # e.g. site-wide can use e.g. /xowiki/index?m=show-object
+  #
+  rp_form_put object [self]
+  rp_form_put show_methods 2
+  rp_form_put show_source 1
+  rp_form_put show_variables 1
+  rp_internal_redirect /packages/xotcl-core/www/show-object
+}
+
 namespace eval ::xo {
   proc slotobjects cl {
     set so [list]