disable OK button while approving

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 53174ed25cd57e7167b17cfad75100f54d4ed64f..24e1aa28d306ed74bad41b7406998deca965427b 100755 (executable)
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -1249,6 +1249,8 @@ proc approve_check_server {} {
 
 proc approve_confirm {} {
     global approve_ixes approve_entryhow
 
 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)
     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
 
     set approve_list [lsort -command approve_compare $approve_list]
     approve_show_page 0

+    .ok configure -state normal

 }
 
 proc main/approve {} {
 }
 
 proc main/approve {} {