From: miljenko <miljenko>
Date: Mon, 26 Mar 2007 12:40:21 +0000 (+0000)
Subject: Undo/redo bug fix (again).
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=896affc476f017d110886b18bfe1a19ea0743ffe;p=imunes.git

Undo/redo bug fix (again).

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

diff --git a/editor.tcl b/editor.tcl
index f6b5531..0aee53b 100755
--- a/editor.tcl
+++ b/editor.tcl
@@ -172,6 +172,7 @@ proc undo {} {
     global undolevel undolog oper_mode
 
     if {$oper_mode == "edit" && $undolevel > 0} {
+	.menubar.edit entryconfigure "Redo" -state normal
 	incr undolevel -1
 	if { $undolevel == 0 } {
 	    .menubar.edit entryconfigure "Undo" -state disabled
@@ -2646,7 +2647,7 @@ proc deleteSelection { } {
 
 
 proc align2grid {} {
-    global sizex sizey grid zoom
+    global sizex sizey grid zoom changed
 
     set node_objects [.c find withtag node]
     if { [llength $node_objects] == 0 } {