From 24a216770a07f1d2e432fc9cb2a779d9728e743a Mon Sep 17 00:00:00 2001
From: stefanjones <stefanjones>
Date: Fri, 28 Mar 2003 20:42:14 +0000
Subject: [PATCH] comment out option lines which foul tclsh

---
 src/pkgIndex.tcl.in | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/pkgIndex.tcl.in b/src/pkgIndex.tcl.in
index 7d551a7c0..c870cf246 100755
--- a/src/pkgIndex.tcl.in
+++ b/src/pkgIndex.tcl.in
@@ -2145,10 +2145,10 @@ proc ResetZoom { graph } {
 
 #--------------------
 
-option add *zoomTitle.font	  -*-helvetica-medium-R-*-*-18-*-*-*-*-*-*-* 
-option add *zoomTitle.shadow	  yellow4
-option add *zoomTitle.foreground  yellow1
-option add *zoomTitle.coords	  "-Inf Inf"
+#option add *zoomTitle.font	  -*-helvetica-medium-R-*-*-18-*-*-*-*-*-*-* 
+#option add *zoomTitle.shadow	  yellow4
+#option add *zoomTitle.foreground  yellow1
+#option add *zoomTitle.coords	  "-Inf Inf"
 
 #--------------------
 proc ZoomTitleNext { graph } {
@@ -2216,10 +2216,10 @@ proc SetZoomPoint { graph x y } {
 
 #--------------------
 
-option add *zoomOutline.dashes		4	
-option add *zoomTitle.anchor		nw
-option add *zoomOutline.lineWidth	2
-option add *zoomOutline.xor		yes
+#option add *zoomOutline.dashes		4	
+#option add *zoomTitle.anchor		nw
+#option add *zoomOutline.lineWidth	2
+#option add *zoomOutline.xor		yes
 
 #--------------------
 proc MarchingAnts { graph offset } {