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 6e2d762dffdf14a6371fe12fa1ace03843340482..8eff18b32f5268735a789a2bbe66a35d946115fe 100755 (executable)
--- 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