diff options
Diffstat (limited to 'git-gui/lib/win32.tcl')
| -rw-r--r-- | git-gui/lib/win32.tcl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/git-gui/lib/win32.tcl b/git-gui/lib/win32.tcl new file mode 100644 index 0000000000..db91ab84a5 --- /dev/null +++ b/git-gui/lib/win32.tcl @@ -0,0 +1,26 @@ +# git-gui Misc. native Windows 32 support +# Copyright (C) 2007 Shawn Pearce + +proc win32_read_lnk {lnk_path} { + return [exec cscript.exe \ + /E:jscript \ + /nologo \ + [file join $::oguilib win32_shortcut.js] \ + $lnk_path] +} + +proc win32_create_lnk {lnk_path lnk_exec lnk_dir} { + global oguilib + + set lnk_args [lrange $lnk_exec 1 end] + set lnk_exec [lindex $lnk_exec 0] + + eval [list exec wscript.exe \ + /E:jscript \ + /nologo \ + [file nativename [file join $oguilib win32_shortcut.js]] \ + $lnk_path \ + [file nativename [file join $oguilib git-gui.ico]] \ + $lnk_dir \ + $lnk_exec] $lnk_args +} |