From: marko <marko>
Date: Thu, 13 Dec 2007 13:08:33 +0000 (+0000)
Subject: Allow for creation of random interconnection topologies between
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=2809120082a56c0bba66e46470b75106ab29b793;p=imunes.git

Allow for creation of random interconnection topologies between
existing nodes from the GUI.  Right click on a selected node ->
Create link to -> Selected -> Random.

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---

diff --git a/editor.tcl b/editor.tcl
index 6e2d762..8eff18b 100755
--- a/editor.tcl
+++ b/editor.tcl
@@ -1,4 +1,4 @@
-# $Id: editor.tcl,v 1.62.2.14 2007/10/08 21:49:13 marko Exp $ 
+# $Id: editor.tcl,v 1.62.2.15 2007/12/13 13:08:33 marko Exp $ 
 #
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -1099,6 +1099,9 @@ proc button3node { c x y } {
 	-label "Cycle" -command "C \[selectedRealNodes\]"
     .button3menu.connect.selected add command \
 	-label "Clique" -command "K \[selectedRealNodes\]"
+    .button3menu.connect.selected add command \
+	-label "Random" -command "R \[selectedRealNodes\] \
+	\[expr \[llength \[selectedRealNodes\]\] - 1\]"
     .button3menu.connect add separator
     foreach canvas $canvas_list {
 	destroy .button3menu.connect.$canvas