From 7c371400c371c09987cfdac49710629d2d8b4d9b Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Thu, 18 Aug 2005 22:14:00 +0000
Subject: [PATCH] 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:
---
 editor.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/editor.tcl b/editor.tcl
index ab6f3ae..382e448 100755
--- 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"
-- 
2.39.5