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.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Dec 2005 15:55:29 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Mar 2006 12:54:59 -0000	1.3
@@ -1,4 +1,5 @@
-# tell serializer to export methods, allthough these are methods of ::xotcl::Object
+# tell serializer to export methods, allthough these are methods of 
+# ::xotcl::Object
 ::Serializer exportMethods {
   ::xotcl::Object instproc log 
   ::xotcl::Object instproc debug
@@ -15,4 +16,28 @@
 }
 ::xotcl::Object instproc debug msg {
   ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"
-}
\ No newline at end of file
+}
+
+# ::xotcl::Class instproc import {class pattern} {
+#   namespace eval [self] [list \
+#   namespace import [list import [$class self]]::$pattern;
+#     my log "--namespace [list import [$class self]]::$pattern"
+#   ]
+# }
+
+# ::xotcl::Class instproc export args {
+#   my log "--namespace eval [self] {eval namespace export $args}"
+#   namespace eval [self] [list eval namespace export $args]
+# }
+
+#ns_log notice "--T [info command ::ttrace::isenabled]"
+# tell ttrace to put these to the blueprint
+#if {[info command ::ttrace::isenabled] ne "" && [::ttrace::isenabled]} {
+#  ns_log notice "--T :ttrace::isenabled"
+#  set blueprint [ns_ictl get]
+#  ns_ictl save [append blueprint [::Serializer serializeExportedMethods \
+#				      [::Serializer new -volatile]]]
+#  unset blueprint
+#  ns_log notice "--T [ns_ictl get]"
+#}
+