[thirdparty/git.git] / git-gui / lib / win32.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
}
Commit	Line	Data
51a41ac4 SP	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 \
fc17e5e5	21	[file nativename [file join $oguilib win32_shortcut.js]] \
51a41ac4	22	$lnk_path \
fc17e5e5	23	[file nativename [file join $oguilib git-gui.ico]] \
51a41ac4 SP	24	$lnk_dir \
	25	$lnk_exec] $lnk_args
	26	}