c01a29c74f
* git://repo.or.cz/git-gui: git-gui: fix size and position of window panes on startup git-gui: mc cannot be used before msgcat has been loaded git-gui: use textconv filter for diff and blame git-gui: Avoid using the <<Copy>> binding as a menu accelerator on win32 git-gui: fix shortcut creation on cygwin git-gui: fix PATH environment for mingw development environment git-gui: fix usage of _gitworktree when creating shortcut for windows git-gui: fix "Explore Working Copy" for Windows again git-gui: fix usage of themed widgets variable git-gui: Handle failure of core.worktree to identify the working directory. git-gui: check whether systems nice command works or disable it
27 lines
596 B
Tcl
27 lines
596 B
Tcl
# 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
|
|
}
|