From cfa6772453ed9c673d0d11be4f914f8406950685 Mon Sep 17 00:00:00 2001
From: mertz
Date: Wed, 21 Apr 2004 11:17:20 +0000
Subject: removing a redefined of the Item function in the same file!

---
 Perl/Zinc/TraceUtils.pm | 33 ---------------------------------
 1 file changed, 33 deletions(-)

diff --git a/Perl/Zinc/TraceUtils.pm b/Perl/Zinc/TraceUtils.pm
index 5a9536f..d0c5c04 100644
--- a/Perl/Zinc/TraceUtils.pm
+++ b/Perl/Zinc/TraceUtils.pm
@@ -23,39 +23,6 @@ sub printList {
     print &List (@_);
 }
 
-sub Item {
-    my ($value) = @_;
-    my $ref = ref($value);
-#    print "VALUE=$value REF=$ref\n";
-    if ($ref eq 'ARRAY') {
-	return Array ( @{$value} );
-    } elsif ($ref eq 'CODE') {
-	return "{CODE}";
-    } elsif ($ref eq 'Tk::Photo') {
-#	print " **** $value ***** ";
-	return "Tk::Photo(\"". scalar $value->cget('-file') . "\")";
-    } elsif ($ref eq 'Tk::Font') {
-	return "'$value'";
-    } elsif ($ref eq '') {  # scalar 
-	print "value: $value\n";
-	if (defined $value) {
-	    print "defined value: $value\n";
-	    { no strict;
-	      if ($value eq eval ($value)) {
-		  return $value;
-	      } else {
-		  return "'$value'";
-	      }
-	      use strict;
-	  }
-	} else {
-	    return "_undef";
-	}
-    } else { # some  class instance
-	return $value;
-    }
-    
-} # end Item
 
 ### to print something
 sub Item {
-- 
cgit v1.1