diff options
Diffstat (limited to 'git-gui/lib/win32.tcl')
| -rw-r--r-- | git-gui/lib/win32.tcl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/git-gui/lib/win32.tcl b/git-gui/lib/win32.tcl new file mode 100644 index 0000000000..3aedae2f13 --- /dev/null +++ b/git-gui/lib/win32.tcl @@ -0,0 +1,27 @@ +# git-gui Misc. native Windows 32 support +# Copyright (C) 2007 Shawn Pearce + +proc win32_read_lnk {lnk_path} { + return [safe_exec [list 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] + + set cmd [list 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] + safe_exec [concat $cmd $lnk_args] +} |