File: win32.tcl

package info (click to toggle)
git 1%3A1.7.2.5-3
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 18,036 kB
  • ctags: 13,298
  • sloc: ansic: 108,217; sh: 74,973; perl: 23,370; tcl: 20,137; python: 3,843; makefile: 2,885; lisp: 1,779; asm: 98
file content (26 lines) | stat: -rw-r--r-- 596 bytes parent folder | download | duplicates (20) 
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
 
# 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
}