on links terminating in rj45 nodes, given that exec.tcl already
inserts a ng_pipe instance between rj45 and whatever is on the
other side of the link. This change also revealed a bug in
ng_pipe that will be fixed soon in p4 after a little bit more of
testing.
Bug found by:
Submitted by:
Reviewed by:
Approved by:
Obtained from:
-# $Id: editor.tcl,v 1.75 2007/08/30 23:19:21 marko Exp $
+# $Id: editor.tcl,v 1.76 2007/08/30 23:57:50 marko Exp $
#
# Copyright 2004, 2005 University of Zagreb, Croatia. All rights reserved.
#
if { $object_type == "link" } {
set n0 [lindex [linkPeers $target] 0]
set n1 [lindex [linkPeers $target] 1]
- if { [nodeType $n0] == "rj45" || [nodeType $n1] == "rj45" } {
- destroy $wi
- return
- }
}
$c dtag node selected
$c delete -withtags selectmark