From a6048e6644774f390fcf72af22c08c1eed167df3 Mon Sep 17 00:00:00 2001 From: marko Date: Mon, 3 Sep 2007 12:00:29 +0000 Subject: [PATCH] Do not attempt to display the partition tag with each node label, since node partitions are not supported in RELENG_4_11. Bug found by: Mirta Medanic Submitted by: Reviewed by: Approved by: Obtained from: --- editor.tcl | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/editor.tcl b/editor.tcl index 5534fdd..4552772 100755 --- a/editor.tcl +++ b/editor.tcl @@ -1,4 +1,4 @@ -# $Id: editor.tcl,v 1.62.2.11 2007/08/11 08:57:29 ana Exp $ +# $Id: editor.tcl,v 1.62.2.12 2007/09/03 12:00:29 marko Exp $ # # Copyright 2004, 2005 University of Zagreb, Croatia. All rights reserved. # @@ -338,11 +338,9 @@ proc drawNode { node } { set x [expr {[lindex $coords 0] * $zoom}] set y [expr {[lindex $coords 1] * $zoom}] if { [nodeType $node] != "pseudo" } { - set labelstr1 [getNodeName $node]; - set labelstr2 [getNodePartition $node]; - set l [format "%s\n%s" $labelstr1 $labelstr2]; + set labelstr [getNodeName $node]; set label [.c create text $x $y -fill blue \ - -text "$l" \ + -text "$labelstr" \ -tags "nodelabel $node"] } else { set pnode [getNodeName $node] -- 2.39.5