git

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 \
21
		[file nativename [file join $oguilib win32_shortcut.js]] \
22
		$lnk_path \
23
		[file nativename [file join $oguilib git-gui.ico]] \
24
		$lnk_dir \
25
		$lnk_exec] $lnk_args
26
}
27