X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=pctb%2Fdictionary-manager;h=24e1aa28d306ed74bad41b7406998deca965427b;hp=53174ed25cd57e7167b17cfad75100f54d4ed64f;hb=61af4264a82272a9a41f068cdee6c9fa261e699c;hpb=057a860424fc2ebe1fdfae422b67cdfcc1da8cd4

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