git-gui--askyesno (mingw): use Git for Windows' icon, if available
This provides a unified look-and-feel in Git for Windows. Signed-off-by: Johannes Schindelin <johannes.schindelin@gmx.de> Signed-off-by: Johannes Sixt <j6t@kdbg.org>
Johannes Schindelin committed
Aug 28, 2025 at 08:58 UTC
74c90b0f1b729b22b49b1725fa335500fd7aa6dc
1 file changed
+12
git-gui--askyesno
+12
@@ -47,5 +47,17 @@ pack .b -side bottom -fill x -ipadx 20 -ipady 15
47
bind . <Key-Return> {exit 0}
48
bind . <Key-Escape> {exit 1}
49
50
+if {$::tcl_platform(platform) eq {windows}} {
51
+ set icopath [file dirname [file normalize $argv0]]
52
+ if {[file tail $icopath] eq {git-core}} {
53
+ set icopath [file dirname $icopath]
54
+ }
55
+ set icopath [file dirname $icopath]
56
+ set icopath [file join $icopath share git git-for-windows.ico]
57
+ if {[file exists $icopath]} {
58
+ wm iconbitmap . -default $icopath
59
+ }
60
+}
61
+
62
wm title . $title
63
tk::PlaceWindow .