From ecb4671053ef47f54996d80ee582e4621c0fb005 Mon Sep 17 00:00:00 2001 From: "N.N." 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