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 b45bd729e04a1b8cd1450675ee589eae43525594..9adfa82623eb1a7457ce3d4a46dd112697e23fcd 100755 (executable)
--- 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 ad7164ddb8d3a3a60a5edaad4b291d2c0b158f24..b6b42ccb8ccee45121b7b957d1ac6434d401e7ed 100755 (executable)
--- 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 {