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:
Reviewed by:
Approved by:
Obtained from:

diff --git a/editor.tcl b/editor.tcl
index 3e9737188d3ee0a55d01aa783f4f1a8a01902c56..c5360115667228bd6cd7683b74320508dcf4ad6c 100755 (executable)
--- a/editor.tcl
+++ b/editor.tcl
@@ -1,4 +1,4 @@
-# $Id: editor.tcl,v 1.81 2007/11/26 08:56:55 miljenko Exp $ 
+# $Id: editor.tcl,v 1.82 2007/12/13 13:07:27 marko Exp $ 
 #
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -1104,6 +1104,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