Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	28 Jan 2006 22:35:03 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	22 Feb 2006 12:33:53 -0000	1.7
@@ -111,7 +111,7 @@
 	return [::xo::localize [my set $attr]]
       } \
       -instproc render_localizer {} {
-	my log "-- "
+	#my log "-- "
 	if {[my exists __localizer]} {
 	  foreach l [my set __localizer] {
 	    $l render
@@ -137,7 +137,7 @@
       -parameter {{no_data  "No Data"} {renderer TABLE2}}
   
   Table instproc destroy {} {
-    my log "-- "
+    #my log "-- "
     foreach c {__actions __columns} {
       #my log "-- namespace eval [self]::$c {namespace forget *}"
       namespace eval [self]::$c {namespace forget *}
@@ -165,7 +165,7 @@
   }
 
   Table instproc render_with {renderer trn_mixin} {
-    my log "--"
+    #my log "--"
     set cl [self class]
     [self] mixin ${cl}::$renderer 
     foreach child [$cl info classchildren] {
@@ -369,7 +369,7 @@
 	html::a -class button -title [my _ tooltip] -href [my url] { 
 	  html::t [my _ label]
 	}
-	my log "-- "
+	#my log "-- "
       }
   #-proc destroy {} {
   #  my log "-- DESTROY"