gitk: check main window visibility before waiting for it to show

If the main window is already visible when gitk waits for it to become visible, gitk hangs forever. This commit adds a check whether the window is already visible. See https://wiki.tcl-lang.org/page/tkwait+visibility Signed-off-by: Tobias Pietzsch <[email protected]>
microsoft · Nov 13, 2024 · 2797cd5 · 2797cd5
1 parent 90d5460
commit 2797cd5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gitk-git/gitk b/gitk-git/gitk
@@ -12832,7 +12832,7 @@ if {$::tcl_platform(platform) eq {windows} && [file exists $gitk_prefix/etc/git.
     }
 }
 # wait for the window to become visible
-tkwait visibility .
+if {![winfo viewable .]} {tkwait visibility .}
 set_window_title
 update
 readrefs