From: ana <ana>
Date: Tue, 12 Jun 2007 10:47:37 +0000 (+0000)
Subject: Repository update (for graph partitioning files).
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=62266722539a6956ef480515c3df529b1ba5151e;p=imunes.git

Repository update (for graph partitioning files).
Bug found by:
Submitted by:
Reviewed by:
Approved by:
Obtained from:
---

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 {