comment out option lines which foul tclsh

This commit is contained in:
stefanjones 2003-03-28 20:42:14 +00:00
parent 113353b44c
commit 24a216770a
1 changed files with 8 additions and 8 deletions

View File

@ -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 } {