admin/git
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-gui--askyesno (mingw): use Git for Windows' icon, if available

Browse Source 
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>
This commit is contained in:
Johannes Schindelin
2025-08-28 08:58:50 +00:00
committed by Johannes Sixt
parent 47b6aa8694
commit 74c90b0f1b
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
git-gui--askyesno
View File

@@ -47,5 +47,17 @@ pack .b -side bottom -fill x -ipadx 20 -ipady 15
bind . <Key-Return> {exit 0} bind . <Key-Return> {exit 0}
bind . <Key-Escape> {exit 1} bind . <Key-Escape> {exit 1}
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 wm title . $title
tk::PlaceWindow . tk::PlaceWindow .