Git 2.22-rc1
[git/raj.git] / git-gui / lib / win32.tcl
blobdb91ab84a56d79be6a5497f885a9181f368b9cf2
1 # git-gui Misc. native Windows 32 support
2 # Copyright (C) 2007 Shawn Pearce
4 proc win32_read_lnk {lnk_path} {
5 return [exec cscript.exe \
6 /E:jscript \
7 /nologo \
8 [file join $::oguilib win32_shortcut.js] \
9 $lnk_path]
12 proc win32_create_lnk {lnk_path lnk_exec lnk_dir} {
13 global oguilib
15 set lnk_args [lrange $lnk_exec 1 end]
16 set lnk_exec [lindex $lnk_exec 0]
18 eval [list exec wscript.exe \
19 /E:jscript \
20 /nologo \
21 [file nativename [file join $oguilib win32_shortcut.js]] \
22 $lnk_path \
23 [file nativename [file join $oguilib git-gui.ico]] \
24 $lnk_dir \
25 $lnk_exec] $lnk_args