Attempt to fix ctrl+button1 behavior - add / remove a node to / from a

selected group.

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

diff --git a/editor.tcl b/editor.tcl
index b3644e00b69b5d05ae8e3464e6df50f7824629f3..596a1e07db6885be828c7cc2199c24932c87c7b3 100755 (executable)
--- a/editor.tcl
+++ b/editor.tcl
@@ -657,7 +657,7 @@ proc button1 { c x y button } {
            [expr [lsearch [$c find withtag "selected"] \
            [$c find withtag "node && $node"]] > -1]
        if { $button == "ctrl" } {
-           if {$wasselected} {
+           if { $wasselected } {
                $c dtag $node selected
                $c delete -withtags "selectmark && $node"
            }
@@ -665,8 +665,7 @@ proc button1 { c x y button } {
            $c dtag node selected
            $c delete -withtags selectmark
        }
-       if { $activetool == "select" && !$wasselected } {
-           $c delete -withtags "selectmark"
+       if { $activetool == "select" && !$wasselected} {
            selectNode $c $curobj
        }
     } elseif { $button != "ctrl" || $activetool != "select" } {