Code

Merge branch 'mm/maint-sort-config-doc' into mm/sort-config-doc
[git.git] / git-gui / lib / win32.tcl
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]
10 }
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 join $oguilib win32_shortcut.js] \
22                 $lnk_path \
23                 [file join $oguilib git-gui.ico] \
24                 $lnk_dir \
25                 $lnk_exec] $lnk_args
26 }