Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
about.tcl	1.88 KB	-rw-rw-rw-
blame.tcl	34.91 KB	-rw-rw-rw-
branch.tcl	943 B	-rw-rw-rw-
branch_checkout.tcl	2.2 KB	-rw-rw-rw-
branch_create.tcl	5.3 KB	-rw-rw-rw-
branch_delete.tcl	3.28 KB	-rw-rw-rw-
branch_rename.tcl	3.14 KB	-rw-rw-rw-
browser.tcl	12.1 KB	-rw-rw-rw-
checkout_op.tcl	14.55 KB	-rw-rw-rw-
choose_font.tcl	4.1 KB	-rw-rw-rw-
choose_repository.tcl	26.22 KB	-rw-rw-rw-
choose_rev.tcl	14.94 KB	-rw-rw-rw-
chord.tcl	5.26 KB	-rw-rw-rw-
class.tcl	4.45 KB	-rw-rw-rw-
commit.tcl	12.81 KB	-rw-rw-rw-
console.tcl	4.73 KB	-rw-rw-rw-
database.tcl	3 KB	-rw-rw-rw-
date.tcl	1.03 KB	-rw-rw-rw-
diff.tcl	23.6 KB	-rw-rw-rw-
encoding.tcl	16.37 KB	-rw-rw-rw-
error.tcl	2.47 KB	-rw-rw-rw-
git-gui.ico	3.55 KB	-rw-rw-rw-
index.tcl	17.77 KB	-rw-rw-rw-
line.tcl	1.32 KB	-rw-rw-rw-
logo.tcl	2.24 KB	-rw-rw-rw-
merge.tcl	6.37 KB	-rw-rw-rw-
mergetool.tcl	10.35 KB	-rw-rw-rw-
option.tcl	10.45 KB	-rw-rw-rw-
remote.tcl	7.14 KB	-rw-rw-rw-
remote_add.tcl	4.48 KB	-rw-rw-rw-
remote_branch_delete.tcl	8.31 KB	-rw-rw-rw-
search.tcl	6.56 KB	-rw-rw-rw-
shortcut.tcl	3.5 KB	-rw-rw-rw-
spellcheck.tcl	9.4 KB	-rw-rw-rw-
sshkey.tcl	3.38 KB	-rw-rw-rw-
status_bar.tcl	6.85 KB	-rw-rw-rw-
tclIndex	15.45 KB	-rw-rw-rw-
themed.tcl	11.87 KB	-rw-rw-rw-
tools.tcl	3.89 KB	-rw-rw-rw-
tools_dlg.tcl	9.81 KB	-rw-rw-rw-
transport.tcl	5.71 KB	-rw-rw-rw-
win32.tcl	596 B	-rw-rw-rw-
win32_shortcut.js	888 B	-rw-rw-rw-

Code Editor : shortcut.tcl

# git-gui desktop icon creators
# Copyright (C) 2006, 2007 Shawn Pearce

proc do_windows_shortcut {} {
	global _gitworktree
	set fn [tk_getSaveFile \
		-parent . \
		-title [mc "%s (%s): Create Desktop Icon" [appname] [reponame]] \
		-initialfile "Git [reponame].lnk"]
	if {$fn != {}} {
		if {[file extension $fn] ne {.lnk}} {
			set fn ${fn}.lnk
		}
		# Use git-gui.exe if available (ie: git-for-windows)
		set cmdLine [auto_execok git-gui.exe]
		if {$cmdLine eq {}} {
			set cmdLine [list [info nameofexecutable] \
							 [file normalize $::argv0]]
		}
		if {[catch {
				win32_create_lnk $fn $cmdLine \
					[file normalize $_gitworktree]
			} err]} {
			error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
		}
	}
}

proc do_cygwin_shortcut {} {
	global argv0 _gitworktree

if {[catch {
		set desktop [exec cygpath \
			--windows \
			--absolute \
			--long-name \
			--desktop]
		}]} {
			set desktop .
	}
	set fn [tk_getSaveFile \
		-parent . \
		-title [mc "%s (%s): Create Desktop Icon" [appname] [reponame]] \
		-initialdir $desktop \
		-initialfile "Git [reponame].lnk"]
	if {$fn != {}} {
		if {[file extension $fn] ne {.lnk}} {
			set fn ${fn}.lnk
		}
		if {[catch {
				set sh [exec cygpath \
					--windows \
					--absolute \
					/bin/sh.exe]
				set me [exec cygpath \
					--unix \
					--absolute \
					$argv0]
				win32_create_lnk $fn [list \
					$sh -c \
					"CHERE_INVOKING=1 source /etc/profile;[sq $me] &" \
					] \
					[file normalize $_gitworktree]
			} err]} {
			error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
		}
	}
}

proc do_macosx_app {} {
	global argv0 env

set fn [tk_getSaveFile \
		-parent . \
		-title [mc "%s (%s): Create Desktop Icon" [appname] [reponame]] \
		-initialdir [file join $env(HOME) Desktop] \
		-initialfile "Git [reponame].app"]
	if {$fn != {}} {
		if {[file extension $fn] ne {.app}} {
			set fn ${fn}.app
		}
		if {[catch {
				set Contents [file join $fn Contents]
				set MacOS [file join $Contents MacOS]
				set exe [file join $MacOS git-gui]

file mkdir $MacOS

set fd [open [file join $Contents Info.plist] w]
				puts $fd {<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
	<key>CFBundleDevelopmentRegion</key>
	<string>English</string>
	<key>CFBundleExecutable</key>
	<string>git-gui</string>
	<key>CFBundleIdentifier</key>
	<string>org.spearce.git-gui</string>
	<key>CFBundleInfoDictionaryVersion</key>
	<string>6.0</string>
	<key>CFBundlePackageType</key>
	<string>APPL</string>
	<key>CFBundleSignature</key>
	<string>????</string>
	<key>CFBundleVersion</key>
	<string>1.0</string>
	<key>NSPrincipalClass</key>
	<string>NSApplication</string>
</dict>
</plist>}
				close $fd

set fd [open $exe w]
				puts $fd "#!/bin/sh"
				foreach name [lsort [array names env]] {
					set value $env($name)
					switch -- $name {
					GIT_DIR { set value [file normalize [gitdir]] }
					}

switch -glob -- $name {
					SSH_* -
					GIT_* {
						puts $fd "if test \"z\$$name\" = z; then"
						puts $fd "  export $name=[sq $value]"
						puts $fd "fi &&"
					}
					}
				}
				puts $fd "export PATH=[sq [file dirname $::_git]]:\$PATH &&"
				puts $fd "cd [sq [file normalize [pwd]]] &&"
				puts $fd "exec \\"
				puts $fd " [sq [info nameofexecutable]] \\"
				puts $fd " [sq [file normalize $argv0]]"
				close $fd

file attributes $exe -permissions u+x,g+x,o+x
			} err]} {
			error_popup [strcat [mc "Cannot write icon:"] "\n\n$err"]
		}
	}
}

${this.title}

Code Editor : shortcut.tcl