From ce81f78669ca67c8bde4cfa6a2026b6e5fc0547f Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Mon, 1 Jun 2009 00:43:15 +0000
Subject: clean

svn path=/trunk/; revision=11597
---
 desiredata/src/poe.tcl | 1 -
 1 file changed, 1 deletion(-)

diff --git a/desiredata/src/poe.tcl b/desiredata/src/poe.tcl
index aa6f463a..22c72d3f 100644
--- a/desiredata/src/poe.tcl
+++ b/desiredata/src/poe.tcl
@@ -70,7 +70,6 @@ proc def {self selector argnames body} {
 	global _ __trace __args
 	if {![info exists _($self:_class)]} {error "unknown class '$self'"}
 	set name ${self}_$selector
-	#if {$name == "Canvas_motion_wrap"} {set body "puts \[time {$body}\]"}
 	set argnames [concat [list self] $argnames]
 	if {([info exists __trace($self:$selector)] || [info exists __trace(*:$selector)]
          ||  [info exists __trace($self:*)]         || [info exists __trace(*:*)])
-- 
cgit v1.2.1