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:

diff --git a/editor.tcl b/editor.tcl
index 5534fddd8f8b71bbfc1a14198e89533d3b55e732..4552772f090f24a636417e7fc871b738f0f62943 100755 (executable)
--- 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]