gitk: avoid a crash in Tk if the application is closed early

index 2b5265a..cd7ea2f 100755
@@ -1795,6 +1795,7 @@ proc make_transient {window origin} {
 proc show_error {w top msg} {
     variable use_ttk
     set ttk [expr {$use_ttk ? "ttk" : ""}]
+    if {[wm state $top] eq "withdrawn"} { wm deiconify $top }
     message $w.m -text $msg -justify center -aspect 400
     pack $w.m -side top -fill x -padx 20 -pady 20
     ${ttk}::button $w.ok -default active -text [mc OK] -command "destroy $top"

@@ -10998,12 +10999,9 @@ proc init {args} {
     variable lserial 0
     variable isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
     setcoords
-    makewindow
-    # wait for the window to become visible
-    wm deiconify .
-    tkwait visibility .
+    wm withdraw .
     wm title . "[file tail $argv0]: [file tail [pwd]]"
-    readrefs
+    makewindow
 
     if {$cmdline_files ne {} || $revtreeargs ne {} || $revtreeargscmd ne {}} {
         # create a view for the files/dirs specified on the command line

@@ -11034,11 +11032,20 @@ proc init {args} {
         }
     }
 
+    # wait for the window to become visible
+    wm deiconify .
+    tkwait visibility .
+
     if {[tk windowingsystem] eq "win32"} {
         focus -force .
         bind . <Control-F2> {console show}
     }
 
+    # flush all geometry events to prevent possible crash if someone exits
+    # during the following reads.
+    update
+
+    readrefs
     getcommits {}
 }