Fix a bug when clicking on blank space in the canvas while active tool

is "link" would result in throwing an error.

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

diff --git a/editor.tcl b/editor.tcl
index ab6f3ae2ff0289da16e602753f8a4008d63389d3..382e4489bcaae8b3919d1024936679ac3bd2131f 100755 (executable)
--- a/editor.tcl
+++ b/editor.tcl
@@ -486,7 +486,7 @@ proc button1 { c x y button} {
        $c delete -withtags selectmark
     }
     if {$curobj == $background} {
-       if { [lsearch {select delete} $activetool] < 0 } {
+       if { [lsearch {select delete link} $activetool] < 0 } {
            set node [newObjectId node]
            global $node
            lappend $node "type $activetool"