From 61af4264a82272a9a41f068cdee6c9fa261e699c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 4 Jul 2009 20:40:43 +0100
Subject: [PATCH] disable OK button while approving

---
 pctb/dictionary-manager | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 53174ed..24e1aa2 100755
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -1249,6 +1249,8 @@ proc approve_check_server {} {
 
 proc approve_confirm {} {
     global approve_ixes approve_entryhow
+    .ok configure -state disabled
+    update idletasks
     approve_check_server
     foreach ix $approve_ixes {
 	set how $approve_entryhow($ix)
@@ -1283,6 +1285,7 @@ proc approve_fetch_list {} {
 
     set approve_list [lsort -command approve_compare $approve_list]
     approve_show_page 0
+    .ok configure -state normal
 }
 
 proc main/approve {} {
-- 
2.30.2