From a24c1bfc9d1fc931d597124ec11cdea5672f0958 Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Thu, 13 Dec 2007 13:07:27 +0000
Subject: [PATCH] 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:
---
 editor.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/editor.tcl b/editor.tcl
index 3e97371..c536011 100755
--- 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
-- 
2.39.5