aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-04-27 23:51:12 +0000
committerN.N. <matju@users.sourceforge.net>2009-04-27 23:51:12 +0000
commitecb4671053ef47f54996d80ee582e4621c0fb005 (patch)
treef739b07498878aeeba27d241fb5e58ad3517652b /desiredata/src
parent8d7bdad9b231420ed410ec77b7d93f9171813093 (diff)
delete_selection atomically
svn path=/trunk/; revision=11189
Diffstat (limited to 'desiredata/src')
-rw-r--r--desiredata/src/desire.tk2
1 files changed, 2 insertions, 0 deletions
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}