From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 4 Jul 2009 19:40:43 +0000 (+0100)
Subject: disable OK button while approving
X-Git-Tag: 1.9.2~15
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=commitdiff_plain;h=61af4264a82272a9a41f068cdee6c9fa261e699c

disable OK button while approving
---

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