Implement hidden key-binding for hiding pseudo links and nodes.

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

diff --git a/editor.tcl b/editor.tcl
index 222bf5f2ef6b65c5a1850f88a0c61bc8869f835e..741dfd72e1e0c98703c3e685fcf895247a338903 100755 (executable)
--- a/editor.tcl
+++ b/editor.tcl
@@ -208,6 +208,11 @@ proc drawNode { node } {
     if { $showNodeLabels == 0} {
        .c itemconfigure $label -state hidden
     }
+    # XXX Invisible pseudo-node labels
+    global invisible
+    if { $invisible == 1 && [getNodeMirror $node] != "" } {
+       .c itemconfigure $label -state hidden
+    }
     return
 }
 
@@ -222,6 +227,11 @@ proc drawLink { link } {
                -fill $defLinkColor -width $defLinkWidth \
                -tags "link $link $lnode1 $lnode2" \
                -arrow both]
+    # XXX Invisible pseudo-liks
+    global invisible
+    if { $invisible == 1 && [getLinkMirror $link] != "" } {
+       .c itemconfigure $link -state hidden
+    }
     .c raise $newlink background
     set newlink [.c create line 0 0 0 0 \
                -fill white -width [expr $defLinkWidth * 3 ] \

diff --git a/initgui.tcl b/initgui.tcl
index a019257a755348c321e56a13b015a589f10d4953..87c66af467914940739a141b0cdde38a130b11a4 100755 (executable)
--- a/initgui.tcl
+++ b/initgui.tcl
@@ -363,6 +363,15 @@ menu .button3menu.moveto -tearoff 0
 menu .button3menu.shell -tearoff 0
 menu .button3menu.ethereal -tearoff 0
 
+#
+# Invisible pseudo links
+#
+set invisible -1
+bind . <Control-i> {
+   global invisible
+   set invisible [expr $invisible * -1]
+   redrawAll
+}
 
 #
 # Done with initialization, draw an empty canvas