From ecb4671053ef47f54996d80ee582e4621c0fb005 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Mon, 27 Apr 2009 23:51:12 +0000
Subject: delete_selection atomically

svn path=/trunk/; revision=11189
---
 desiredata/src/desire.tk | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'desiredata/src')

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index d070a19b..d6d93f78 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -2973,6 +2973,7 @@ def Canvas del {i} {
 def Canvas wires {} {return $@wires}
 
 def Canvas delete_selection {} {
+    $@history atomically [list delete_selection] {
 	if {![$@objectsel size] && ![$@wiresel size]} {return}
 	#this keynav should be better sorted out
 	if {$@keynav} {
@@ -3001,6 +3002,7 @@ def Canvas delete_selection {} {
 	}
 	$@objectsel clear
 	$@wiresel   clear
+    }
 }
 
 def View position= {xy1} {mset [list @x1 @y1] $xy1; $self changed x1 y1}
-- 
cgit v1.2.1