Submitted by:
Reviewed by:
Approved by:
Obtained from:
-# $Id: editor.tcl,v 1.64 2007/06/12 10:47:37 ana Exp $
+# $Id: editor.tcl,v 1.65 2007/07/11 12:47:15 ana Exp $
#
# Copyright 2004, 2005 University of Zagreb, Croatia. All rights reserved.
#
set labelstr2 [getNodePartition $node];
set l [format "%s\n%s" $labelstr1 $labelstr2];
set label [.c create text $x $y -fill blue \
- -text "$l" \
+ -text "$l" \
-tags "nodelabel $node"]
} else {
set pnode [getNodeName $node]