From 896affc476f017d110886b18bfe1a19ea0743ffe Mon Sep 17 00:00:00 2001
From: miljenko <miljenko>
Date: Mon, 26 Mar 2007 12:40:21 +0000
Subject: [PATCH] Undo/redo bug fix (again).

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 editor.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 } {
-- 
2.39.5