]>
Commit | Line | Data |
---|---|---|
51a41ac4 SP |
1 | # git-gui Misc. native Windows 32 support |
2 | # Copyright (C) 2007 Shawn Pearce | |
3 | ||
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 | } | |
11 | ||
12 | proc win32_create_lnk {lnk_path lnk_exec lnk_dir} { | |
13 | global oguilib | |
14 | ||
15 | set lnk_args [lrange $lnk_exec 1 end] | |
16 | set lnk_exec [lindex $lnk_exec 0] | |
17 | ||
18 | eval [list exec wscript.exe \ | |
19 | /E:jscript \ | |
20 | /nologo \ | |
fc17e5e5 | 21 | [file nativename [file join $oguilib win32_shortcut.js]] \ |
51a41ac4 | 22 | $lnk_path \ |
fc17e5e5 | 23 | [file nativename [file join $oguilib git-gui.ico]] \ |
51a41ac4 SP |
24 | $lnk_dir \ |
25 | $lnk_exec] $lnk_args | |
26 | } |