From 62266722539a6956ef480515c3df529b1ba5151e Mon Sep 17 00:00:00 2001
From: ana <ana>
Date: Tue, 12 Jun 2007 10:47:37 +0000
Subject: [PATCH] Repository update (for graph partitioning files). Bug found
 by: Submitted by: Reviewed by: Approved by: Obtained from:

---
 editor.tcl | 9 ++++++---
 imunes.tcl | 4 +++-
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/editor.tcl b/editor.tcl
index b45bd72..9adfa82 100755
--- a/editor.tcl
+++ b/editor.tcl
@@ -1,4 +1,4 @@
-# $Id: editor.tcl,v 1.63 2007/05/07 08:43:19 ana Exp $ 
+# $Id: editor.tcl,v 1.64 2007/06/12 10:47:37 ana Exp $ 
 #
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -316,8 +316,11 @@ proc drawNode { node } {
     set x [expr {[lindex $coords 0] * $zoom}]
     set y [expr {[lindex $coords 1] * $zoom}]
     if { [nodeType $node] != "pseudo" } {
-	set label [.c create text $x $y -fill blue \
-            -text "[getNodeName $node]" \
+        set labelstr1 [getNodeName $node];
+        set labelstr2 [getNodePartition $node];
+        set l [format "%s\n%s" $labelstr1 $labelstr2];
+    set label [.c create text $x $y -fill blue \
+            -text "$l" \ 
             -tags "nodelabel $node"]
     } else {
 	set pnode [getNodeName $node]
diff --git a/imunes.tcl b/imunes.tcl
index ad7164d..b6b42cc 100755
--- a/imunes.tcl
+++ b/imunes.tcl
@@ -1,4 +1,4 @@
-# $Id: imunes.tcl,v 1.20 2007/05/07 08:43:20 ana Exp $ 
+# $Id: imunes.tcl,v 1.21 2007/06/12 10:47:37 ana Exp $ 
 #
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -252,6 +252,8 @@ readConfigFile
 if {$execMode == "interactive"} {
     source "$ROOTDIR/$LIBDIR/initgui.tcl"
     source "$ROOTDIR/$LIBDIR/topogen.tcl"
+    source "$ROOTDIR/$LIBDIR/graph_partitioning.tcl"
+    source "$ROOTDIR/$LIBDIR/gpgui.tcl"
     setOperMode edit
     fileOpenStartUp 
 } else {
-- 
2.39.5