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 f6b553119a97b1444ecc0159861f9890d17d1f7a..0aee53bf461567e4ba2adbb23ebb56ba3462f49c 100755 (executable)
--- 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 } {