git-gui/lib/win32.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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]
}