[PATCH 4/4] git-gui--askyesno (mingw): use Git for Windows' icon, if available

[Johannes Schindelin via GitGitGadget]

From: Johannes Schindelin <johannes.schinde...@gmx.de>

For additional GUI goodness.

Signed-off-by: Johannes Schindelin <johannes.schinde...@gmx.de>
---
 git-gui--askyesno | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/git-gui--askyesno b/git-gui--askyesno
index 45b0260eff..c0c82e7cbd 100755
--- a/git-gui--askyesno
+++ b/git-gui--askyesno
@@ -52,5 +52,17 @@ proc yes {} {
        exit 0
 }
 
+if {$::tcl_platform(platform) eq {windows}} {
+       set icopath [file dirname [file normalize $argv0]]
+       if {[file tail $icopath] eq {git-core}} {
+               set icopath [file dirname $icopath]
+       }
+       set icopath [file dirname $icopath]
+       set icopath [file join $icopath share git git-for-windows.ico]
+       if {[file exists $icopath]} {
+               wm iconbitmap . -default $icopath
+       }
+}
+
 wm title . $title
 tk::PlaceWindow .
-- 
gitgitgadget