From: marko <marko>
Date: Mon, 31 Oct 2005 23:54:51 +0000 (+0000)
Subject: Attempt to fix ctrl+button1 behavior - add / remove a node to / from a
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=2175b2f92caee8c0da2f64c6b86f4e1d07b51af4;p=imunes.git

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 b3644e0..596a1e0 100755
--- 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" } {