2 # Tcl ignores the next line -*- tcl -*- \
3 if test "z$*" = zversion \
4 ||
test "z$*" = z--version
; \
6 echo 'git-gui version @@GITGUI_VERSION@@'; \
11 set appvers
{@@GITGUI_VERSION@@
}
13 Copyright ©
2006, 2007 Shawn Pearce
, et. al.
15 This program is free software
; you can redistribute it and
/or modify
16 it under the terms of the GNU General Public License as published by
17 the Free Software Foundation
; either version
2 of the License
, or
18 (at your option
) any later version.
20 This program is distributed
in the hope that it will be useful
,
21 but WITHOUT ANY WARRANTY
; without even the implied warranty of
22 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 GNU General Public License
for more details.
25 You should have received a copy of the GNU General Public License
26 along with this program
; if not
, write to the Free Software
27 Foundation
, Inc.
, 59 Temple Place
, Suite
330, Boston
, MA
02111-1307 USA
}
29 ######################################################################
31 ## Tcl/Tk sanity check
33 if {[catch
{package require Tcl
8.4} err
]
34 ||
[catch
{package require Tk
8.4} err
]
40 -title "git-gui: fatal error" \
45 ######################################################################
47 ## enable verbose loading?
49 if {![catch
{set _verbose
$env(GITGUI_VERBOSE
)}]} {
51 rename auto_load real__auto_load
52 proc auto_load
{name args
} {
53 puts stderr
"auto_load $name"
54 return [uplevel
1 real__auto_load
$name $args]
56 rename
source real__source
58 puts stderr
"source $name"
59 uplevel
1 real__source
$name
63 ######################################################################
65 ## configure our library
67 set oguilib
{@@GITGUI_LIBDIR@@
}
68 set oguirel
{@@GITGUI_RELATIVE@@
}
69 if {$oguirel eq
{1}} {
70 set oguilib
[file dirname [file dirname [file normalize
$argv0]]]
71 set oguilib
[file join $oguilib share git-gui lib
]
72 } elseif
{[string match @@
* $oguirel]} {
73 set oguilib
[file join [file dirname [file normalize
$argv0]] lib
]
76 set idx
[file join $oguilib tclIndex
]
77 if {[catch
{set fd
[open
$idx r
]} err
]} {
82 -title "git-gui: fatal error" \
86 if {[gets
$fd] eq
{# Autogenerated by git-gui Makefile}} {
88 while {[gets
$fd n
] >= 0} {
89 if {$n ne
{} && ![string match
#* $n]} {
101 if {[lsearch
-exact $loaded $p] >= 0} continue
102 source [file join $oguilib $p]
107 set auto_path
[concat
[list
$oguilib] $auto_path]
109 unset -nocomplain oguirel idx fd
111 ######################################################################
115 set _appname
[lindex
[file split $argv0] end
]
131 return [eval [concat
[list
file join $_gitdir] $args]]
134 proc gitexec
{args
} {
136 if {$_gitexec eq
{}} {
137 if {[catch
{set _gitexec
[git
--exec-path]} err
]} {
138 error
"Git not installed?\n\n$err"
144 return [eval [concat
[list
file join $_gitexec] $args]]
153 global tcl_platform tk_library
154 if {[tk windowingsystem
] eq
{aqua
}} {
162 if {$tcl_platform(platform
) eq
{windows
}} {
169 global tcl_platform _iscygwin
170 if {$_iscygwin eq
{}} {
171 if {$tcl_platform(platform
) eq
{windows
}} {
172 if {[catch
{set p
[exec cygpath
--windir]} err
]} {
184 proc is_enabled
{option
} {
185 global enabled_options
186 if {[catch
{set on
$enabled_options($option)}]} {return 0}
190 proc enable_option
{option
} {
191 global enabled_options
192 set enabled_options
($option) 1
195 proc disable_option
{option
} {
196 global enabled_options
197 set enabled_options
($option) 0
200 ######################################################################
204 proc is_many_config
{name
} {
205 switch
-glob -- $name {
214 proc is_config_true
{name
} {
216 if {[catch
{set v
$repo_config($name)}]} {
218 } elseif
{$v eq
{true
} ||
$v eq
{1} ||
$v eq
{yes}} {
225 proc get_config
{name
} {
227 if {[catch
{set v
$repo_config($name)}]} {
234 proc load_config
{include_global
} {
235 global repo_config global_config default_config
237 array
unset global_config
238 if {$include_global} {
240 set fd_rc
[open
"| git config --global --list" r
]
241 while {[gets
$fd_rc line
] >= 0} {
242 if {[regexp
{^
([^
=]+)=(.
*)$
} $line line name value
]} {
243 if {[is_many_config
$name]} {
244 lappend global_config
($name) $value
246 set global_config
($name) $value
254 array
unset repo_config
256 set fd_rc
[open
"| git config --list" r
]
257 while {[gets
$fd_rc line
] >= 0} {
258 if {[regexp
{^
([^
=]+)=(.
*)$
} $line line name value
]} {
259 if {[is_many_config
$name]} {
260 lappend repo_config
($name) $value
262 set repo_config
($name) $value
269 foreach name
[array names default_config
] {
270 if {[catch
{set v
$global_config($name)}]} {
271 set global_config
($name) $default_config($name)
273 if {[catch
{set v
$repo_config($name)}]} {
274 set repo_config
($name) $default_config($name)
279 ######################################################################
284 return [eval exec git
$args]
287 proc load_current_branch
{} {
288 global current_branch is_detached
290 set fd
[open
[gitdir HEAD
] r
]
291 if {[gets
$fd ref
] < 1} {
296 set pfx
{ref
: refs
/heads
/}
297 set len
[string length
$pfx]
298 if {[string equal
-length $len $pfx $ref]} {
299 # We're on a branch. It might not exist. But
300 # HEAD looks good enough to be a branch.
302 set current_branch
[string range
$ref $len end
]
305 # Assume this is a detached head.
307 set current_branch HEAD
312 auto_load tk_optionMenu
313 rename tk_optionMenu real__tkOptionMenu
314 proc tk_optionMenu
{w varName args
} {
315 set m
[eval real__tkOptionMenu
$w $varName $args]
316 $m configure
-font font_ui
317 $w configure
-font font_ui
321 ######################################################################
325 if {[catch
{set _git_version
[git
--version]} err
]} {
326 catch
{wm withdraw .
}
327 error_popup
"Cannot determine Git version:
331 [appname] requires Git 1.5.0 or later."
334 if {![regsub
{^git version
} $_git_version {} _git_version
]} {
335 catch
{wm withdraw .
}
336 error_popup
"Cannot parse Git version string:\n\n$_git_version"
339 regsub
{\.
[0-9]+\.g
[0-9a-f]+$
} $_git_version {} _git_version
340 regsub
{\.rc
[0-9]+$
} $_git_version {} _git_version
342 proc git-version
{args
} {
345 switch
[llength
$args] {
351 set op
[lindex
$args 0]
352 set vr
[lindex
$args 1]
353 set cm
[package vcompare
$_git_version $vr]
354 return [expr $cm $op 0]
358 set type [lindex
$args 0]
359 set name
[lindex
$args 1]
360 set parm
[lindex
$args 2]
361 set body
[lindex
$args 3]
363 if {($type ne
{proc
} && $type ne
{method
})} {
364 error
"Invalid arguments to git-version"
366 if {[llength
$body] < 2 ||
[lindex
$body end-1
] ne
{default
}} {
367 error
"Last arm of $type $name must be default"
370 foreach
{op vr cb
} [lrange
$body 0 end-2
] {
371 if {[git-version
$op $vr]} {
372 return [uplevel
[list
$type $name $parm $cb]]
376 return [uplevel
[list
$type $name $parm [lindex
$body end
]]]
380 error
"git-version >= x"
386 if {[git-version
< 1.5]} {
387 catch
{wm withdraw .
}
388 error_popup
"[appname] requires Git 1.5.0 or later.
390 You are using [git-version]:
396 ######################################################################
401 set _gitdir
$env(GIT_DIR
)
405 set _gitdir
[git rev-parse
--git-dir]
406 set _prefix
[git rev-parse
--show-prefix]
408 catch
{wm withdraw .
}
409 error_popup
"Cannot find the git directory:\n\n$err"
412 if {![file isdirectory
$_gitdir] && [is_Cygwin
]} {
413 catch
{set _gitdir
[exec cygpath
--unix $_gitdir]}
415 if {![file isdirectory
$_gitdir]} {
416 catch
{wm withdraw .
}
417 error_popup
"Git directory not found:\n\n$_gitdir"
420 if {[lindex
[file split $_gitdir] end
] ne
{.git
}} {
421 catch
{wm withdraw .
}
422 error_popup
"Cannot use funny .git directory:\n\n$_gitdir"
425 if {[catch
{cd [file dirname $_gitdir]} err
]} {
426 catch
{wm withdraw .
}
427 error_popup
"No working directory [file dirname $_gitdir]:\n\n$err"
430 set _reponame
[lindex
[file split \
431 [file normalize
[file dirname $_gitdir]]] \
434 ######################################################################
438 set current_diff_path
{}
439 set current_diff_side
{}
440 set diff_actions
[list
]
441 set ui_status_value
{Initializing...
}
445 set MERGE_HEAD
[list
]
448 set current_branch
{}
450 set current_diff_path
{}
451 set selected_commit_type new
453 ######################################################################
461 set disable_on_lock
[list
]
462 set index_lock_type none
464 proc lock_index
{type} {
465 global index_lock_type disable_on_lock
467 if {$index_lock_type eq
{none
}} {
468 set index_lock_type
$type
469 foreach w
$disable_on_lock {
470 uplevel
#0 $w disabled
473 } elseif
{$index_lock_type eq
"begin-$type"} {
474 set index_lock_type
$type
480 proc unlock_index
{} {
481 global index_lock_type disable_on_lock
483 set index_lock_type none
484 foreach w
$disable_on_lock {
489 ######################################################################
493 proc repository_state
{ctvar hdvar mhvar
} {
494 global current_branch
495 upvar
$ctvar ct
$hdvar hd
$mhvar mh
500 if {[catch
{set hd
[git rev-parse
--verify HEAD
]}]} {
506 set merge_head
[gitdir MERGE_HEAD
]
507 if {[file exists
$merge_head]} {
509 set fd_mh
[open
$merge_head r
]
510 while {[gets
$fd_mh line
] >= 0} {
521 global PARENT empty_tree
523 set p
[lindex
$PARENT 0]
527 if {$empty_tree eq
{}} {
528 set empty_tree
[git mktree
<< {}]
533 proc rescan
{after
{honor_trustmtime
1}} {
534 global HEAD PARENT MERGE_HEAD commit_type
535 global ui_index ui_workdir ui_comm
536 global rescan_active file_states
539 if {$rescan_active > 0 ||
![lock_index
read]} return
541 repository_state newType newHEAD newMERGE_HEAD
542 if {[string match amend
* $commit_type]
543 && $newType eq
{normal
}
544 && $newHEAD eq
$HEAD} {
548 set MERGE_HEAD
$newMERGE_HEAD
549 set commit_type
$newType
552 array
unset file_states
554 if {![$ui_comm edit modified
]
555 ||
[string trim
[$ui_comm get
0.0 end
]] eq
{}} {
556 if {[string match amend
* $commit_type]} {
557 } elseif
{[load_message GITGUI_MSG
]} {
558 } elseif
{[load_message MERGE_MSG
]} {
559 } elseif
{[load_message SQUASH_MSG
]} {
562 $ui_comm edit modified false
565 if {$honor_trustmtime && $repo_config(gui.trustmtime
) eq
{true
}} {
566 rescan_stage2
{} $after
569 ui_status
{Refreshing
file status...
}
570 set cmd
[list git update-index
]
572 lappend cmd
--unmerged
573 lappend cmd
--ignore-missing
574 lappend cmd
--refresh
575 set fd_rf
[open
"| $cmd" r
]
576 fconfigure
$fd_rf -blocking 0 -translation binary
577 fileevent
$fd_rf readable \
578 [list rescan_stage2
$fd_rf $after]
582 proc rescan_stage2
{fd after
} {
583 global rescan_active buf_rdi buf_rdf buf_rlo
587 if {![eof
$fd]} return
591 set ls_others
[list | git ls-files
--others -z \
592 --exclude-per-directory=.gitignore
]
593 set info_exclude
[gitdir info exclude
]
594 if {[file readable
$info_exclude]} {
595 lappend ls_others
"--exclude-from=$info_exclude"
603 ui_status
{Scanning
for modified files ...
}
604 set fd_di
[open
"| git diff-index --cached -z [PARENT]" r
]
605 set fd_df
[open
"| git diff-files -z" r
]
606 set fd_lo
[open
$ls_others r
]
608 fconfigure
$fd_di -blocking 0 -translation binary
-encoding binary
609 fconfigure
$fd_df -blocking 0 -translation binary
-encoding binary
610 fconfigure
$fd_lo -blocking 0 -translation binary
-encoding binary
611 fileevent
$fd_di readable
[list read_diff_index
$fd_di $after]
612 fileevent
$fd_df readable
[list read_diff_files
$fd_df $after]
613 fileevent
$fd_lo readable
[list read_ls_others
$fd_lo $after]
616 proc load_message
{file} {
620 if {[file isfile
$f]} {
621 if {[catch
{set fd
[open
$f r
]}]} {
624 set content
[string trim
[read $fd]]
626 regsub
-all -line {[ \r\t]+$
} $content {} content
627 $ui_comm delete
0.0 end
628 $ui_comm insert end
$content
634 proc read_diff_index
{fd after
} {
637 append buf_rdi
[read $fd]
639 set n
[string length
$buf_rdi]
641 set z1
[string first
"\0" $buf_rdi $c]
644 set z2
[string first
"\0" $buf_rdi $z1]
648 set i
[split [string range
$buf_rdi $c [expr {$z1 - 2}]] { }]
649 set p
[string range
$buf_rdi $z1 [expr {$z2 - 1}]]
651 [encoding convertfrom
$p] \
653 [list
[lindex
$i 0] [lindex
$i 2]] \
659 set buf_rdi
[string range
$buf_rdi $c end
]
664 rescan_done
$fd buf_rdi
$after
667 proc read_diff_files
{fd after
} {
670 append buf_rdf
[read $fd]
672 set n
[string length
$buf_rdf]
674 set z1
[string first
"\0" $buf_rdf $c]
677 set z2
[string first
"\0" $buf_rdf $z1]
681 set i
[split [string range
$buf_rdf $c [expr {$z1 - 2}]] { }]
682 set p
[string range
$buf_rdf $z1 [expr {$z2 - 1}]]
684 [encoding convertfrom
$p] \
687 [list
[lindex
$i 0] [lindex
$i 2]]
692 set buf_rdf
[string range
$buf_rdf $c end
]
697 rescan_done
$fd buf_rdf
$after
700 proc read_ls_others
{fd after
} {
703 append buf_rlo
[read $fd]
704 set pck
[split $buf_rlo "\0"]
705 set buf_rlo
[lindex
$pck end
]
706 foreach p
[lrange
$pck 0 end-1
] {
707 merge_state
[encoding convertfrom
$p] ?O
709 rescan_done
$fd buf_rlo
$after
712 proc rescan_done
{fd buf after
} {
713 global rescan_active current_diff_path
714 global file_states repo_config
717 if {![eof
$fd]} return
720 if {[incr rescan_active
-1] > 0} return
725 if {$current_diff_path ne
{}} reshow_diff
729 proc prune_selection
{} {
730 global file_states selected_paths
732 foreach path
[array names selected_paths
] {
733 if {[catch
{set still_here
$file_states($path)}]} {
734 unset selected_paths
($path)
739 ######################################################################
743 proc mapicon
{w state path
} {
746 if {[catch
{set r
$all_icons($state$w)}]} {
747 puts
"error: no icon for $w state={$state} $path"
753 proc mapdesc
{state path
} {
756 if {[catch
{set r
$all_descs($state)}]} {
757 puts
"error: no desc for state={$state} $path"
763 proc ui_status
{msg
} {
764 set ::ui_status_value
$msg
767 proc ui_ready
{{test {}}} {
768 if {$test eq
{} || $
::ui_status_value eq
$test} {
773 proc escape_path
{path
} {
774 regsub
-all {\\} $path "\\\\" path
775 regsub
-all "\n" $path "\\n" path
779 proc short_path
{path
} {
780 return [escape_path
[lindex
[file split $path] end
]]
784 set null_sha1
[string repeat
0 40]
786 proc merge_state
{path new_state
{head_info
{}} {index_info
{}}} {
787 global file_states next_icon_id null_sha1
789 set s0
[string index
$new_state 0]
790 set s1
[string index
$new_state 1]
792 if {[catch
{set info
$file_states($path)}]} {
794 set icon n
[incr next_icon_id
]
796 set state
[lindex
$info 0]
797 set icon
[lindex
$info 1]
798 if {$head_info eq
{}} {set head_info
[lindex
$info 2]}
799 if {$index_info eq
{}} {set index_info
[lindex
$info 3]}
802 if {$s0 eq
{?
}} {set s0
[string index
$state 0]} \
803 elseif
{$s0 eq
{_
}} {set s0 _
}
805 if {$s1 eq
{?
}} {set s1
[string index
$state 1]} \
806 elseif
{$s1 eq
{_
}} {set s1 _
}
808 if {$s0 eq
{A
} && $s1 eq
{_
} && $head_info eq
{}} {
809 set head_info
[list
0 $null_sha1]
810 } elseif
{$s0 ne
{_
} && [string index
$state 0] eq
{_
}
811 && $head_info eq
{}} {
812 set head_info
$index_info
815 set file_states
($path) [list
$s0$s1 $icon \
816 $head_info $index_info \
821 proc display_file_helper
{w path icon_name old_m new_m
} {
825 set lno
[lsearch
-sorted -exact $file_lists($w) $path]
827 set file_lists
($w) [lreplace
$file_lists($w) $lno $lno]
829 $w conf
-state normal
830 $w delete
$lno.0 [expr {$lno + 1}].0
831 $w conf
-state disabled
833 } elseif
{$old_m eq
{_
} && $new_m ne
{_
}} {
834 lappend file_lists
($w) $path
835 set file_lists
($w) [lsort
-unique $file_lists($w)]
836 set lno
[lsearch
-sorted -exact $file_lists($w) $path]
838 $w conf
-state normal
839 $w image create
$lno.0 \
840 -align center
-padx 5 -pady 1 \
842 -image [mapicon
$w $new_m $path]
843 $w insert
$lno.1 "[escape_path $path]\n"
844 $w conf
-state disabled
845 } elseif
{$old_m ne
$new_m} {
846 $w conf
-state normal
847 $w image conf
$icon_name -image [mapicon
$w $new_m $path]
848 $w conf
-state disabled
852 proc display_file
{path state
} {
853 global file_states selected_paths
854 global ui_index ui_workdir
856 set old_m
[merge_state
$path $state]
857 set s
$file_states($path)
858 set new_m
[lindex
$s 0]
859 set icon_name
[lindex
$s 1]
861 set o
[string index
$old_m 0]
862 set n
[string index
$new_m 0]
869 display_file_helper
$ui_index $path $icon_name $o $n
871 if {[string index
$old_m 0] eq
{U
}} {
874 set o
[string index
$old_m 1]
876 if {[string index
$new_m 0] eq
{U
}} {
879 set n
[string index
$new_m 1]
881 display_file_helper
$ui_workdir $path $icon_name $o $n
883 if {$new_m eq
{__
}} {
884 unset file_states
($path)
885 catch
{unset selected_paths
($path)}
889 proc display_all_files_helper
{w path icon_name m
} {
892 lappend file_lists
($w) $path
893 set lno
[expr {[lindex
[split [$w index end
] .
] 0] - 1}]
894 $w image create end \
895 -align center
-padx 5 -pady 1 \
897 -image [mapicon
$w $m $path]
898 $w insert end
"[escape_path $path]\n"
901 proc display_all_files
{} {
902 global ui_index ui_workdir
903 global file_states file_lists
906 $ui_index conf
-state normal
907 $ui_workdir conf
-state normal
909 $ui_index delete
0.0 end
910 $ui_workdir delete
0.0 end
913 set file_lists
($ui_index) [list
]
914 set file_lists
($ui_workdir) [list
]
916 foreach path
[lsort
[array names file_states
]] {
917 set s
$file_states($path)
919 set icon_name
[lindex
$s 1]
921 set s
[string index
$m 0]
922 if {$s ne
{U
} && $s ne
{_
}} {
923 display_all_files_helper
$ui_index $path \
927 if {[string index
$m 0] eq
{U
}} {
930 set s
[string index
$m 1]
933 display_all_files_helper
$ui_workdir $path \
938 $ui_index conf
-state disabled
939 $ui_workdir conf
-state disabled
942 ######################################################################
947 #define mask_width 14
948 #define mask_height 15
949 static unsigned char mask_bits
[] = {
950 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
951 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
952 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
955 image create bitmap file_plain
-background white
-foreground black
-data {
956 #define plain_width 14
957 #define plain_height 15
958 static unsigned char plain_bits
[] = {
959 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
960 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
961 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
962 } -maskdata $filemask
964 image create bitmap file_mod
-background white
-foreground blue
-data {
966 #define mod_height 15
967 static unsigned char mod_bits
[] = {
968 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
969 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
970 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
971 } -maskdata $filemask
973 image create bitmap file_fulltick
-background white
-foreground "#007000" -data {
974 #define file_fulltick_width 14
975 #define file_fulltick_height 15
976 static unsigned char file_fulltick_bits
[] = {
977 0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
978 0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
979 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
980 } -maskdata $filemask
982 image create bitmap file_parttick
-background white
-foreground "#005050" -data {
983 #define parttick_width 14
984 #define parttick_height 15
985 static unsigned char parttick_bits
[] = {
986 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
987 0x7a, 0x14, 0x02, 0x16, 0x02, 0x13, 0x8a, 0x11, 0xda, 0x10, 0x72, 0x10,
988 0x22, 0x10, 0x02, 0x10, 0xfe, 0x1f};
989 } -maskdata $filemask
991 image create bitmap file_question
-background white
-foreground black
-data {
992 #define file_question_width 14
993 #define file_question_height 15
994 static unsigned char file_question_bits
[] = {
995 0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
996 0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
997 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
998 } -maskdata $filemask
1000 image create bitmap file_removed
-background white
-foreground red
-data {
1001 #define file_removed_width 14
1002 #define file_removed_height 15
1003 static unsigned char file_removed_bits
[] = {
1004 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
1005 0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
1006 0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
1007 } -maskdata $filemask
1009 image create bitmap file_merge
-background white
-foreground blue
-data {
1010 #define file_merge_width 14
1011 #define file_merge_height 15
1012 static unsigned char file_merge_bits
[] = {
1013 0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
1014 0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
1015 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
1016 } -maskdata $filemask
1019 #define file_width 18
1020 #define file_height 18
1021 static unsigned char file_bits
[] = {
1022 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x03, 0x00,
1023 0x0c, 0x03, 0x00, 0x04, 0xfe, 0x00, 0x06, 0x80, 0x00, 0xff, 0x9f, 0x00,
1024 0x03, 0x98, 0x00, 0x02, 0x90, 0x00, 0x06, 0xb0, 0x00, 0x04, 0xa0, 0x00,
1025 0x0c, 0xe0, 0x00, 0x08, 0xc0, 0x00, 0xf8, 0xff, 0x00, 0x00, 0x00, 0x00,
1026 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
1028 image create bitmap file_dir
-background white
-foreground blue \
1029 -data $file_dir_data -maskdata $file_dir_data
1032 set file_uplevel_data
{
1034 #define up_height 15
1035 static unsigned char up_bits
[] = {
1036 0x80, 0x00, 0xc0, 0x01, 0xe0, 0x03, 0xf0, 0x07, 0xf8, 0x0f, 0xfc, 0x1f,
1037 0xfe, 0x3f, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01,
1038 0xc0, 0x01, 0xc0, 0x01, 0x00, 0x00};
1040 image create bitmap file_uplevel
-background white
-foreground red \
1041 -data $file_uplevel_data -maskdata $file_uplevel_data
1042 unset file_uplevel_data
1044 set ui_index .vpane.files.index.list
1045 set ui_workdir .vpane.files.workdir.list
1047 set all_icons
(_
$ui_index) file_plain
1048 set all_icons
(A
$ui_index) file_fulltick
1049 set all_icons
(M
$ui_index) file_fulltick
1050 set all_icons
(D
$ui_index) file_removed
1051 set all_icons
(U
$ui_index) file_merge
1053 set all_icons
(_
$ui_workdir) file_plain
1054 set all_icons
(M
$ui_workdir) file_mod
1055 set all_icons
(D
$ui_workdir) file_question
1056 set all_icons
(U
$ui_workdir) file_merge
1057 set all_icons
(O
$ui_workdir) file_plain
1059 set max_status_desc
0
1063 {_M
"Modified, not staged"}
1064 {M_
"Staged for commit"}
1065 {MM
"Portions staged for commit"}
1066 {MD
"Staged for commit, missing"}
1068 {_O
"Untracked, not staged"}
1069 {A_
"Staged for commit"}
1070 {AM
"Portions staged for commit"}
1071 {AD
"Staged for commit, missing"}
1074 {D_
"Staged for removal"}
1075 {DO
"Staged for removal, still present"}
1077 {U_
"Requires merge resolution"}
1078 {UU
"Requires merge resolution"}
1079 {UM
"Requires merge resolution"}
1080 {UD
"Requires merge resolution"}
1082 if {$max_status_desc < [string length
[lindex
$i 1]]} {
1083 set max_status_desc
[string length
[lindex
$i 1]]
1085 set all_descs
([lindex
$i 0]) [lindex
$i 1]
1089 ######################################################################
1093 proc bind_button3
{w cmd
} {
1094 bind $w <Any-Button-3
> $cmd
1096 bind $w <Control-Button-1
> $cmd
1100 proc scrollbar2many
{list mode args
} {
1101 foreach w
$list {eval $w $mode $args}
1104 proc many2scrollbar
{list mode sb top bottom
} {
1105 $sb set $top $bottom
1106 foreach w
$list {$w $mode moveto
$top}
1109 proc incr_font_size
{font
{amt
1}} {
1110 set sz
[font configure
$font -size]
1112 font configure
$font -size $sz
1113 font configure
${font}bold
-size $sz
1114 font configure
${font}italic
-size $sz
1117 ######################################################################
1121 set starting_gitk_msg
{Starting gitk... please
wait...
}
1123 proc do_gitk
{revs
} {
1124 global env starting_gitk_msg
1126 # -- Always start gitk through whatever we were loaded with. This
1127 # lets us bypass using shell process on Windows systems.
1129 set cmd
[list
[info nameofexecutable
]]
1130 set exe
[gitexec gitk
]
1137 if {! [file exists
$exe]} {
1138 error_popup
"Unable to start gitk:\n\n$exe does not exist"
1141 ui_status
$starting_gitk_msg
1143 ui_ready
$starting_gitk_msg
1151 global ui_comm is_quitting repo_config commit_type
1153 if {$is_quitting} return
1156 if {[winfo exists
$ui_comm]} {
1157 # -- Stash our current commit buffer.
1159 set save
[gitdir GITGUI_MSG
]
1160 set msg
[string trim
[$ui_comm get
0.0 end
]]
1161 regsub
-all -line {[ \r\t]+$
} $msg {} msg
1162 if {(![string match amend
* $commit_type]
1163 ||
[$ui_comm edit modified
])
1166 set fd
[open
$save w
]
1167 puts
-nonewline $fd $msg
1171 catch
{file delete
$save}
1174 # -- Stash our current window geometry into this repository.
1176 set cfg_geometry
[list
]
1177 lappend cfg_geometry
[wm geometry .
]
1178 lappend cfg_geometry
[lindex
[.vpane sash coord
0] 1]
1179 lappend cfg_geometry
[lindex
[.vpane.files sash coord
0] 0]
1180 if {[catch
{set rc_geometry
$repo_config(gui.geometry
)}]} {
1183 if {$cfg_geometry ne
$rc_geometry} {
1184 catch
{git config gui.geometry
$cfg_geometry}
1199 proc toggle_or_diff
{w x y
} {
1200 global file_states file_lists current_diff_path ui_index ui_workdir
1201 global last_clicked selected_paths
1203 set pos
[split [$w index @
$x,$y] .
]
1204 set lno
[lindex
$pos 0]
1205 set col [lindex
$pos 1]
1206 set path
[lindex
$file_lists($w) [expr {$lno - 1}]]
1212 set last_clicked
[list
$w $lno]
1213 array
unset selected_paths
1214 $ui_index tag remove in_sel
0.0 end
1215 $ui_workdir tag remove in_sel
0.0 end
1218 if {$current_diff_path eq
$path} {
1219 set after
{reshow_diff
;}
1223 if {$w eq
$ui_index} {
1225 "Unstaging [short_path $path] from commit" \
1227 [concat
$after [list ui_ready
]]
1228 } elseif
{$w eq
$ui_workdir} {
1230 "Adding [short_path $path]" \
1232 [concat
$after [list ui_ready
]]
1235 show_diff
$path $w $lno
1239 proc add_one_to_selection
{w x y
} {
1240 global file_lists last_clicked selected_paths
1242 set lno
[lindex
[split [$w index @
$x,$y] .
] 0]
1243 set path
[lindex
$file_lists($w) [expr {$lno - 1}]]
1249 if {$last_clicked ne
{}
1250 && [lindex
$last_clicked 0] ne
$w} {
1251 array
unset selected_paths
1252 [lindex
$last_clicked 0] tag remove in_sel
0.0 end
1255 set last_clicked
[list
$w $lno]
1256 if {[catch
{set in_sel
$selected_paths($path)}]} {
1260 unset selected_paths
($path)
1261 $w tag remove in_sel
$lno.0 [expr {$lno + 1}].0
1263 set selected_paths
($path) 1
1264 $w tag add in_sel
$lno.0 [expr {$lno + 1}].0
1268 proc add_range_to_selection
{w x y
} {
1269 global file_lists last_clicked selected_paths
1271 if {[lindex
$last_clicked 0] ne
$w} {
1272 toggle_or_diff
$w $x $y
1276 set lno
[lindex
[split [$w index @
$x,$y] .
] 0]
1277 set lc
[lindex
$last_clicked 1]
1286 foreach path
[lrange
$file_lists($w) \
1287 [expr {$begin - 1}] \
1288 [expr {$end - 1}]] {
1289 set selected_paths
($path) 1
1291 $w tag add in_sel
$begin.0 [expr {$end + 1}].0
1294 ######################################################################
1298 set cursor_ptr arrow
1299 font create font_diff
-family Courier
-size 10
1303 eval font configure font_ui
[font actual
[.dummy cget
-font]]
1307 font create font_uiitalic
1308 font create font_uibold
1309 font create font_diffbold
1310 font create font_diffitalic
1312 foreach class
{Button Checkbutton Entry Label
1313 Labelframe Listbox Menu Message
1314 Radiobutton Spinbox Text
} {
1315 option add
*$class.font font_ui
1319 if {[is_Windows
] ||
[is_MacOSX
]} {
1320 option add
*Menu.tearOff
0
1331 proc apply_config
{} {
1332 global repo_config font_descs
1334 foreach option
$font_descs {
1335 set name
[lindex
$option 0]
1336 set font
[lindex
$option 1]
1338 foreach
{cn cv
} $repo_config(gui.
$name) {
1339 font configure
$font $cn $cv
1342 error_popup
"Invalid font specified in gui.$name:\n\n$err"
1344 foreach
{cn cv
} [font configure
$font] {
1345 font configure
${font}bold
$cn $cv
1346 font configure
${font}italic
$cn $cv
1348 font configure
${font}bold
-weight bold
1349 font configure
${font}italic
-slant italic
1353 set default_config
(merge.diffstat
) true
1354 set default_config
(merge.summary
) false
1355 set default_config
(merge.verbosity
) 2
1356 set default_config
(user.name
) {}
1357 set default_config
(user.email
) {}
1359 set default_config
(gui.matchtrackingbranch
) false
1360 set default_config
(gui.pruneduringfetch
) false
1361 set default_config
(gui.trustmtime
) false
1362 set default_config
(gui.diffcontext
) 5
1363 set default_config
(gui.newbranchtemplate
) {}
1364 set default_config
(gui.fontui
) [font configure font_ui
]
1365 set default_config
(gui.fontdiff
) [font configure font_diff
]
1367 {fontui font_ui
{Main Font
}}
1368 {fontdiff font_diff
{Diff
/Console Font
}}
1373 ######################################################################
1375 ## feature option selection
1377 if {[regexp
{^git-
(.
+)$
} [appname
] _junk subcommand
]} {
1382 if {$subcommand eq
{gui.sh
}} {
1385 if {$subcommand eq
{gui
} && [llength
$argv] > 0} {
1386 set subcommand
[lindex
$argv 0]
1387 set argv
[lrange
$argv 1 end
]
1390 enable_option multicommit
1391 enable_option branch
1392 enable_option transport
1394 switch
-- $subcommand {
1397 disable_option multicommit
1398 disable_option branch
1399 disable_option transport
1402 enable_option singlecommit
1404 disable_option multicommit
1405 disable_option branch
1406 disable_option transport
1410 ######################################################################
1418 menu .mbar
-tearoff 0
1419 .mbar add cascade
-label Repository
-menu .mbar.repository
1420 .mbar add cascade
-label Edit
-menu .mbar.edit
1421 if {[is_enabled branch
]} {
1422 .mbar add cascade
-label Branch
-menu .mbar.branch
1424 if {[is_enabled multicommit
] ||
[is_enabled singlecommit
]} {
1425 .mbar add cascade
-label Commit
-menu .mbar.commit
1427 if {[is_enabled transport
]} {
1428 .mbar add cascade
-label Merge
-menu .mbar.merge
1429 .mbar add cascade
-label Fetch
-menu .mbar.fetch
1430 .mbar add cascade
-label Push
-menu .mbar.push
1432 . configure
-menu .mbar
1434 # -- Repository Menu
1436 menu .mbar.repository
1438 .mbar.repository add
command \
1439 -label {Browse Current Branch
} \
1440 -command {browser
::new
$current_branch}
1441 trace add variable current_branch
write ".mbar.repository entryconf [.mbar.repository index last] -label \"Browse \$current_branch\" ;#"
1442 .mbar.repository add separator
1444 .mbar.repository add
command \
1445 -label {Visualize Current Branch
} \
1446 -command {do_gitk
$current_branch}
1447 trace add variable current_branch
write ".mbar.repository entryconf [.mbar.repository index last] -label \"Visualize \$current_branch\" ;#"
1448 .mbar.repository add
command \
1449 -label {Visualize All Branches
} \
1450 -command {do_gitk
--all}
1451 .mbar.repository add separator
1453 if {[is_enabled multicommit
]} {
1454 .mbar.repository add
command -label {Database Statistics
} \
1457 .mbar.repository add
command -label {Compress Database
} \
1460 .mbar.repository add
command -label {Verify Database
} \
1461 -command do_fsck_objects
1463 .mbar.repository add separator
1466 .mbar.repository add
command \
1467 -label {Create Desktop Icon
} \
1468 -command do_cygwin_shortcut
1469 } elseif
{[is_Windows
]} {
1470 .mbar.repository add
command \
1471 -label {Create Desktop Icon
} \
1472 -command do_windows_shortcut
1473 } elseif
{[is_MacOSX
]} {
1474 .mbar.repository add
command \
1475 -label {Create Desktop Icon
} \
1476 -command do_macosx_app
1480 .mbar.repository add
command -label Quit \
1487 .mbar.edit add
command -label Undo \
1488 -command {catch
{[focus
] edit undo
}} \
1490 .mbar.edit add
command -label Redo \
1491 -command {catch
{[focus
] edit redo
}} \
1493 .mbar.edit add separator
1494 .mbar.edit add
command -label Cut \
1495 -command {catch
{tk_textCut
[focus
]}} \
1497 .mbar.edit add
command -label Copy \
1498 -command {catch
{tk_textCopy
[focus
]}} \
1500 .mbar.edit add
command -label Paste \
1501 -command {catch
{tk_textPaste
[focus
]; [focus
] see insert
}} \
1503 .mbar.edit add
command -label Delete \
1504 -command {catch
{[focus
] delete sel.first sel.last
}} \
1506 .mbar.edit add separator
1507 .mbar.edit add
command -label {Select All
} \
1508 -command {catch
{[focus
] tag add sel
0.0 end
}} \
1513 if {[is_enabled branch
]} {
1516 .mbar.branch add
command -label {Create...
} \
1517 -command branch_create
::dialog \
1519 lappend disable_on_lock
[list .mbar.branch entryconf \
1520 [.mbar.branch index last
] -state]
1522 .mbar.branch add
command -label {Checkout...
} \
1523 -command branch_checkout
::dialog \
1525 lappend disable_on_lock
[list .mbar.branch entryconf \
1526 [.mbar.branch index last
] -state]
1528 .mbar.branch add
command -label {Rename...
} \
1529 -command branch_rename
::dialog
1530 lappend disable_on_lock
[list .mbar.branch entryconf \
1531 [.mbar.branch index last
] -state]
1533 .mbar.branch add
command -label {Delete...
} \
1534 -command branch_delete
::dialog
1535 lappend disable_on_lock
[list .mbar.branch entryconf \
1536 [.mbar.branch index last
] -state]
1538 .mbar.branch add
command -label {Reset...
} \
1539 -command merge
::reset_hard
1540 lappend disable_on_lock
[list .mbar.branch entryconf \
1541 [.mbar.branch index last
] -state]
1546 if {[is_enabled multicommit
] ||
[is_enabled singlecommit
]} {
1549 .mbar.commit add radiobutton \
1550 -label {New Commit
} \
1551 -command do_select_commit_type \
1552 -variable selected_commit_type \
1554 lappend disable_on_lock \
1555 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1557 .mbar.commit add radiobutton \
1558 -label {Amend Last Commit
} \
1559 -command do_select_commit_type \
1560 -variable selected_commit_type \
1562 lappend disable_on_lock \
1563 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1565 .mbar.commit add separator
1567 .mbar.commit add
command -label Rescan \
1568 -command do_rescan \
1570 lappend disable_on_lock \
1571 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1573 .mbar.commit add
command -label {Add To Commit
} \
1574 -command do_add_selection
1575 lappend disable_on_lock \
1576 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1578 .mbar.commit add
command -label {Add Existing To Commit
} \
1579 -command do_add_all \
1581 lappend disable_on_lock \
1582 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1584 .mbar.commit add
command -label {Unstage From Commit
} \
1585 -command do_unstage_selection
1586 lappend disable_on_lock \
1587 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1589 .mbar.commit add
command -label {Revert Changes
} \
1590 -command do_revert_selection
1591 lappend disable_on_lock \
1592 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1594 .mbar.commit add separator
1596 .mbar.commit add
command -label {Sign Off
} \
1597 -command do_signoff \
1600 .mbar.commit add
command -label Commit \
1601 -command do_commit \
1602 -accelerator $M1T-Return
1603 lappend disable_on_lock \
1604 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1609 if {[is_enabled branch
]} {
1611 .mbar.merge add
command -label {Local Merge...
} \
1612 -command merge
::dialog
1613 lappend disable_on_lock \
1614 [list .mbar.merge entryconf
[.mbar.merge index last
] -state]
1615 .mbar.merge add
command -label {Abort Merge...
} \
1616 -command merge
::reset_hard
1617 lappend disable_on_lock \
1618 [list .mbar.merge entryconf
[.mbar.merge index last
] -state]
1624 if {[is_enabled transport
]} {
1628 .mbar.push add
command -label {Push...
} \
1629 -command do_push_anywhere \
1631 .mbar.push add
command -label {Delete...
} \
1632 -command remote_branch_delete
::dialog
1636 # -- Apple Menu (Mac OS X only)
1638 .mbar add cascade
-label Apple
-menu .mbar.apple
1641 .mbar.apple add
command -label "About [appname]" \
1643 .mbar.apple add
command -label "Options..." \
1648 .mbar.edit add separator
1649 .mbar.edit add
command -label {Options...
} \
1654 if {[is_Cygwin
] && [file exists
/usr
/local
/miga
/lib
/gui-miga
]} {
1656 if {![lock_index update
]} return
1657 set cmd
[list sh
--login -c "/usr/local/miga/lib/gui-miga \"[pwd]\""]
1658 set miga_fd
[open
"|$cmd" r
]
1659 fconfigure
$miga_fd -blocking 0
1660 fileevent
$miga_fd readable
[list miga_done
$miga_fd]
1661 ui_status
{Running miga...
}
1663 proc miga_done
{fd
} {
1671 .mbar add cascade
-label Tools
-menu .mbar.tools
1673 .mbar.tools add
command -label "Migrate" \
1675 lappend disable_on_lock \
1676 [list .mbar.tools entryconf
[.mbar.tools index last
] -state]
1682 .mbar add cascade
-label Help
-menu .mbar.
help
1686 .mbar.
help add
command -label "About [appname]" \
1691 catch
{set browser
$repo_config(instaweb.browser
)}
1692 set doc_path
[file dirname [gitexec
]]
1693 set doc_path
[file join $doc_path Documentation index.html
]
1696 set doc_path
[exec cygpath
--mixed $doc_path]
1699 if {$browser eq
{}} {
1702 } elseif
{[is_Cygwin
]} {
1703 set program_files
[file dirname [exec cygpath
--windir]]
1704 set program_files
[file join $program_files {Program Files
}]
1705 set firefox
[file join $program_files {Mozilla Firefox
} firefox.exe
]
1706 set ie
[file join $program_files {Internet Explorer
} IEXPLORE.EXE
]
1707 if {[file exists
$firefox]} {
1708 set browser
$firefox
1709 } elseif
{[file exists
$ie]} {
1712 unset program_files firefox ie
1716 if {[file isfile
$doc_path]} {
1717 set doc_url
"file:$doc_path"
1719 set doc_url
{http
://www.kernel.org
/pub
/software
/scm
/git
/docs
/}
1722 if {$browser ne
{}} {
1723 .mbar.
help add
command -label {Online Documentation
} \
1724 -command [list
exec $browser $doc_url &]
1726 unset browser doc_path doc_url
1728 # -- Standard bindings
1730 wm protocol . WM_DELETE_WINDOW do_quit
1731 bind all
<$M1B-Key-q> do_quit
1732 bind all
<$M1B-Key-Q> do_quit
1733 bind all
<$M1B-Key-w> {destroy
[winfo toplevel
%W
]}
1734 bind all
<$M1B-Key-W> {destroy
[winfo toplevel
%W
]}
1736 set subcommand_args
{}
1738 puts stderr
"usage: $::argv0 $::subcommand $::subcommand_args"
1742 # -- Not a normal commit type invocation? Do that instead!
1744 switch
-- $subcommand {
1746 set subcommand_args
{rev?
}
1747 switch
[llength
$argv] {
1748 0 { load_current_branch
}
1750 set current_branch
[lindex
$argv 0]
1751 if {[regexp
{^
[0-9a-f]{1,39}$
} $current_branch]} {
1753 set current_branch \
1754 [git rev-parse
--verify $current_branch]
1763 browser
::new
$current_branch
1767 set subcommand_args
{rev? path?
}
1772 if {$is_path ||
[file exists
$_prefix$a]} {
1773 if {$path ne
{}} usage
1776 } elseif
{$a eq
{--}} {
1778 if {$head ne
{}} usage
1783 } elseif
{$head eq
{}} {
1784 if {$head ne
{}} usage
1795 if {[regexp
{^
[0-9a-f]{1,39}$
} $head]} {
1797 set head [git rev-parse
--verify $head]
1803 set current_branch
$head
1806 if {$path eq
{}} usage
1807 blame
::new
$head $path
1812 if {[llength
$argv] != 0} {
1813 puts
-nonewline stderr
"usage: $argv0"
1814 if {$subcommand ne
{gui
} && [appname
] ne
"git-$subcommand"} {
1815 puts
-nonewline stderr
" $subcommand"
1820 # fall through to setup UI for commits
1823 puts stderr
"usage: $argv0 \[{blame|browser|citool}\]"
1834 -text {Current Branch
:} \
1838 -textvariable current_branch \
1841 pack .branch.l1
-side left
1842 pack .branch.cb
-side left
-fill x
1843 pack .branch
-side top
-fill x
1845 # -- Main Window Layout
1847 panedwindow .vpane
-orient vertical
1848 panedwindow .vpane.files
-orient horizontal
1849 .vpane add .vpane.files
-sticky nsew
-height 100 -width 200
1850 pack .vpane
-anchor n
-side top
-fill both
-expand 1
1852 # -- Index File List
1854 frame .vpane.files.index
-height 100 -width 200
1855 label .vpane.files.index.title
-text {Staged Changes
(Will Be Committed
)} \
1856 -background lightgreen
1857 text
$ui_index -background white
-borderwidth 0 \
1858 -width 20 -height 10 \
1860 -cursor $cursor_ptr \
1861 -xscrollcommand {.vpane.files.index.sx
set} \
1862 -yscrollcommand {.vpane.files.index.sy
set} \
1864 scrollbar .vpane.files.index.sx
-orient h
-command [list
$ui_index xview
]
1865 scrollbar .vpane.files.index.sy
-orient v
-command [list
$ui_index yview
]
1866 pack .vpane.files.index.title
-side top
-fill x
1867 pack .vpane.files.index.sx
-side bottom
-fill x
1868 pack .vpane.files.index.sy
-side right
-fill y
1869 pack
$ui_index -side left
-fill both
-expand 1
1870 .vpane.files add .vpane.files.index
-sticky nsew
1872 # -- Working Directory File List
1874 frame .vpane.files.workdir
-height 100 -width 200
1875 label .vpane.files.workdir.title
-text {Unstaged Changes
(Will Not Be Committed
)} \
1876 -background lightsalmon
1877 text
$ui_workdir -background white
-borderwidth 0 \
1878 -width 20 -height 10 \
1880 -cursor $cursor_ptr \
1881 -xscrollcommand {.vpane.files.workdir.sx
set} \
1882 -yscrollcommand {.vpane.files.workdir.sy
set} \
1884 scrollbar .vpane.files.workdir.sx
-orient h
-command [list
$ui_workdir xview
]
1885 scrollbar .vpane.files.workdir.sy
-orient v
-command [list
$ui_workdir yview
]
1886 pack .vpane.files.workdir.title
-side top
-fill x
1887 pack .vpane.files.workdir.sx
-side bottom
-fill x
1888 pack .vpane.files.workdir.sy
-side right
-fill y
1889 pack
$ui_workdir -side left
-fill both
-expand 1
1890 .vpane.files add .vpane.files.workdir
-sticky nsew
1892 foreach i
[list
$ui_index $ui_workdir] {
1893 $i tag conf in_diff
-background lightgray
1894 $i tag conf in_sel
-background lightgray
1898 # -- Diff and Commit Area
1900 frame .vpane.lower
-height 300 -width 400
1901 frame .vpane.lower.commarea
1902 frame .vpane.lower.
diff -relief sunken
-borderwidth 1
1903 pack .vpane.lower.commarea
-side top
-fill x
1904 pack .vpane.lower.
diff -side bottom
-fill both
-expand 1
1905 .vpane add .vpane.lower
-sticky nsew
1907 # -- Commit Area Buttons
1909 frame .vpane.lower.commarea.buttons
1910 label .vpane.lower.commarea.buttons.l
-text {} \
1913 pack .vpane.lower.commarea.buttons.l
-side top
-fill x
1914 pack .vpane.lower.commarea.buttons
-side left
-fill y
1916 button .vpane.lower.commarea.buttons.rescan
-text {Rescan
} \
1918 pack .vpane.lower.commarea.buttons.rescan
-side top
-fill x
1919 lappend disable_on_lock \
1920 {.vpane.lower.commarea.buttons.rescan conf
-state}
1922 button .vpane.lower.commarea.buttons.incall
-text {Add Existing
} \
1924 pack .vpane.lower.commarea.buttons.incall
-side top
-fill x
1925 lappend disable_on_lock \
1926 {.vpane.lower.commarea.buttons.incall conf
-state}
1928 button .vpane.lower.commarea.buttons.signoff
-text {Sign Off
} \
1930 pack .vpane.lower.commarea.buttons.signoff
-side top
-fill x
1932 button .vpane.lower.commarea.buttons.commit
-text {Commit
} \
1934 pack .vpane.lower.commarea.buttons.commit
-side top
-fill x
1935 lappend disable_on_lock \
1936 {.vpane.lower.commarea.buttons.commit conf
-state}
1938 button .vpane.lower.commarea.buttons.push
-text {Push
} \
1939 -command do_push_anywhere
1940 pack .vpane.lower.commarea.buttons.push
-side top
-fill x
1942 # -- Commit Message Buffer
1944 frame .vpane.lower.commarea.buffer
1945 frame .vpane.lower.commarea.buffer.header
1946 set ui_comm .vpane.lower.commarea.buffer.t
1947 set ui_coml .vpane.lower.commarea.buffer.header.l
1948 radiobutton .vpane.lower.commarea.buffer.header.new \
1949 -text {New Commit
} \
1950 -command do_select_commit_type \
1951 -variable selected_commit_type \
1953 lappend disable_on_lock \
1954 [list .vpane.lower.commarea.buffer.header.new conf
-state]
1955 radiobutton .vpane.lower.commarea.buffer.header.amend \
1956 -text {Amend Last Commit
} \
1957 -command do_select_commit_type \
1958 -variable selected_commit_type \
1960 lappend disable_on_lock \
1961 [list .vpane.lower.commarea.buffer.header.amend conf
-state]
1965 proc trace_commit_type
{varname args
} {
1966 global ui_coml commit_type
1967 switch
-glob -- $commit_type {
1968 initial
{set txt
{Initial Commit Message
:}}
1969 amend
{set txt
{Amended Commit Message
:}}
1970 amend-initial
{set txt
{Amended Initial Commit Message
:}}
1971 amend-merge
{set txt
{Amended Merge Commit Message
:}}
1972 merge
{set txt
{Merge Commit Message
:}}
1973 * {set txt
{Commit Message
:}}
1975 $ui_coml conf
-text $txt
1977 trace add variable commit_type
write trace_commit_type
1978 pack
$ui_coml -side left
-fill x
1979 pack .vpane.lower.commarea.buffer.header.amend
-side right
1980 pack .vpane.lower.commarea.buffer.header.new
-side right
1982 text
$ui_comm -background white
-borderwidth 1 \
1985 -autoseparators true \
1987 -width 75 -height 9 -wrap none \
1989 -yscrollcommand {.vpane.lower.commarea.buffer.sby
set}
1990 scrollbar .vpane.lower.commarea.buffer.sby \
1991 -command [list
$ui_comm yview
]
1992 pack .vpane.lower.commarea.buffer.header
-side top
-fill x
1993 pack .vpane.lower.commarea.buffer.sby
-side right
-fill y
1994 pack
$ui_comm -side left
-fill y
1995 pack .vpane.lower.commarea.buffer
-side left
-fill y
1997 # -- Commit Message Buffer Context Menu
1999 set ctxm .vpane.lower.commarea.buffer.ctxm
2000 menu
$ctxm -tearoff 0
2003 -command {tk_textCut
$ui_comm}
2006 -command {tk_textCopy
$ui_comm}
2009 -command {tk_textPaste
$ui_comm}
2012 -command {$ui_comm delete sel.first sel.last
}
2015 -label {Select All
} \
2016 -command {focus
$ui_comm;$ui_comm tag add sel
0.0 end
}
2020 $ui_comm tag add sel
0.0 end
2021 tk_textCopy
$ui_comm
2022 $ui_comm tag remove sel
0.0 end
2028 bind_button3
$ui_comm "tk_popup $ctxm %X %Y"
2032 proc trace_current_diff_path
{varname args
} {
2033 global current_diff_path diff_actions file_states
2034 if {$current_diff_path eq
{}} {
2040 set p
$current_diff_path
2041 set s
[mapdesc
[lindex
$file_states($p) 0] $p]
2043 set p
[escape_path
$p]
2047 .vpane.lower.
diff.header.status configure
-text $s
2048 .vpane.lower.
diff.header.
file configure
-text $f
2049 .vpane.lower.
diff.header.path configure
-text $p
2050 foreach w
$diff_actions {
2054 trace add variable current_diff_path
write trace_current_diff_path
2056 frame .vpane.lower.
diff.header
-background gold
2057 label .vpane.lower.
diff.header.status \
2059 -width $max_status_desc \
2062 label .vpane.lower.
diff.header.
file \
2066 label .vpane.lower.
diff.header.path \
2070 pack .vpane.lower.
diff.header.status
-side left
2071 pack .vpane.lower.
diff.header.
file -side left
2072 pack .vpane.lower.
diff.header.path
-fill x
2073 set ctxm .vpane.lower.
diff.header.ctxm
2074 menu
$ctxm -tearoff 0
2082 -- $current_diff_path
2084 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2085 bind_button3 .vpane.lower.
diff.header.path
"tk_popup $ctxm %X %Y"
2089 frame .vpane.lower.
diff.body
2090 set ui_diff .vpane.lower.
diff.body.t
2091 text
$ui_diff -background white
-borderwidth 0 \
2092 -width 80 -height 15 -wrap none \
2094 -xscrollcommand {.vpane.lower.
diff.body.sbx
set} \
2095 -yscrollcommand {.vpane.lower.
diff.body.sby
set} \
2097 scrollbar .vpane.lower.
diff.body.sbx
-orient horizontal \
2098 -command [list
$ui_diff xview
]
2099 scrollbar .vpane.lower.
diff.body.sby
-orient vertical \
2100 -command [list
$ui_diff yview
]
2101 pack .vpane.lower.
diff.body.sbx
-side bottom
-fill x
2102 pack .vpane.lower.
diff.body.sby
-side right
-fill y
2103 pack
$ui_diff -side left
-fill both
-expand 1
2104 pack .vpane.lower.
diff.header
-side top
-fill x
2105 pack .vpane.lower.
diff.body
-side bottom
-fill both
-expand 1
2107 $ui_diff tag conf d_cr
-elide true
2108 $ui_diff tag conf d_@
-foreground blue
-font font_diffbold
2109 $ui_diff tag conf d_
+ -foreground {#00a000}
2110 $ui_diff tag conf d_-
-foreground red
2112 $ui_diff tag conf d_
++ -foreground {#00a000}
2113 $ui_diff tag conf d_--
-foreground red
2114 $ui_diff tag conf d_
+s \
2115 -foreground {#00a000} \
2116 -background {#e2effa}
2117 $ui_diff tag conf d_-s \
2119 -background {#e2effa}
2120 $ui_diff tag conf d_s
+ \
2121 -foreground {#00a000} \
2123 $ui_diff tag conf d_s- \
2127 $ui_diff tag conf d
<<<<<<< \
2128 -foreground orange \
2130 $ui_diff tag conf d
======= \
2131 -foreground orange \
2133 $ui_diff tag conf d
>>>>>>> \
2134 -foreground orange \
2137 $ui_diff tag raise sel
2139 # -- Diff Body Context Menu
2141 set ctxm .vpane.lower.
diff.body.ctxm
2142 menu
$ctxm -tearoff 0
2145 -command reshow_diff
2146 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2149 -command {tk_textCopy
$ui_diff}
2150 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2152 -label {Select All
} \
2153 -command {focus
$ui_diff;$ui_diff tag add sel
0.0 end
}
2154 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2158 $ui_diff tag add sel
0.0 end
2159 tk_textCopy
$ui_diff
2160 $ui_diff tag remove sel
0.0 end
2162 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2165 -label {Apply
/Reverse Hunk
} \
2166 -command {apply_hunk
$cursorX $cursorY}
2167 set ui_diff_applyhunk
[$ctxm index last
]
2168 lappend diff_actions
[list
$ctxm entryconf
$ui_diff_applyhunk -state]
2171 -label {Decrease Font Size
} \
2172 -command {incr_font_size font_diff
-1}
2173 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2175 -label {Increase Font Size
} \
2176 -command {incr_font_size font_diff
1}
2177 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2180 -label {Show Less Context
} \
2181 -command {if {$repo_config(gui.diffcontext
) >= 1} {
2182 incr repo_config
(gui.diffcontext
) -1
2185 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2187 -label {Show More Context
} \
2188 -command {if {$repo_config(gui.diffcontext
) < 99} {
2189 incr repo_config
(gui.diffcontext
)
2192 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2194 $ctxm add
command -label {Options...
} \
2196 bind_button3
$ui_diff "
2199 if {\$ui_index eq \$current_diff_side} {
2200 $ctxm entryconf $ui_diff_applyhunk -label {Unstage Hunk From Commit}
2202 $ctxm entryconf $ui_diff_applyhunk -label {Stage Hunk For Commit}
2204 tk_popup $ctxm %X %Y
2206 unset ui_diff_applyhunk
2210 label .status
-textvariable ui_status_value \
2215 pack .status
-anchor w
-side bottom
-fill x
2220 set gm
$repo_config(gui.geometry
)
2221 wm geometry .
[lindex
$gm 0]
2222 .vpane sash place
0 \
2223 [lindex
[.vpane sash coord
0] 0] \
2225 .vpane.files sash place
0 \
2227 [lindex
[.vpane.files sash coord
0] 1]
2233 bind $ui_comm <$M1B-Key-Return> {do_commit
;break}
2234 bind $ui_comm <$M1B-Key-i> {do_add_all
;break}
2235 bind $ui_comm <$M1B-Key-I> {do_add_all
;break}
2236 bind $ui_comm <$M1B-Key-x> {tk_textCut
%W
;break}
2237 bind $ui_comm <$M1B-Key-X> {tk_textCut
%W
;break}
2238 bind $ui_comm <$M1B-Key-c> {tk_textCopy
%W
;break}
2239 bind $ui_comm <$M1B-Key-C> {tk_textCopy
%W
;break}
2240 bind $ui_comm <$M1B-Key-v> {tk_textPaste
%W
; %W see insert
; break}
2241 bind $ui_comm <$M1B-Key-V> {tk_textPaste
%W
; %W see insert
; break}
2242 bind $ui_comm <$M1B-Key-a> {%W tag add sel
0.0 end
;break}
2243 bind $ui_comm <$M1B-Key-A> {%W tag add sel
0.0 end
;break}
2245 bind $ui_diff <$M1B-Key-x> {tk_textCopy
%W
;break}
2246 bind $ui_diff <$M1B-Key-X> {tk_textCopy
%W
;break}
2247 bind $ui_diff <$M1B-Key-c> {tk_textCopy
%W
;break}
2248 bind $ui_diff <$M1B-Key-C> {tk_textCopy
%W
;break}
2249 bind $ui_diff <$M1B-Key-v> {break}
2250 bind $ui_diff <$M1B-Key-V> {break}
2251 bind $ui_diff <$M1B-Key-a> {%W tag add sel
0.0 end
;break}
2252 bind $ui_diff <$M1B-Key-A> {%W tag add sel
0.0 end
;break}
2253 bind $ui_diff <Key-Up
> {catch
{%W yview scroll
-1 units
};break}
2254 bind $ui_diff <Key-Down
> {catch
{%W yview scroll
1 units
};break}
2255 bind $ui_diff <Key-Left
> {catch
{%W xview scroll
-1 units
};break}
2256 bind $ui_diff <Key-Right
> {catch
{%W xview scroll
1 units
};break}
2257 bind $ui_diff <Key-k
> {catch
{%W yview scroll
-1 units
};break}
2258 bind $ui_diff <Key-j
> {catch
{%W yview scroll
1 units
};break}
2259 bind $ui_diff <Key-h
> {catch
{%W xview scroll
-1 units
};break}
2260 bind $ui_diff <Key-l
> {catch
{%W xview scroll
1 units
};break}
2261 bind $ui_diff <Control-Key-b
> {catch
{%W yview scroll
-1 pages
};break}
2262 bind $ui_diff <Control-Key-f
> {catch
{%W yview scroll
1 pages
};break}
2263 bind $ui_diff <Button-1
> {focus
%W
}
2265 if {[is_enabled branch
]} {
2266 bind .
<$M1B-Key-n> branch_create
::dialog
2267 bind .
<$M1B-Key-N> branch_create
::dialog
2268 bind .
<$M1B-Key-o> branch_checkout
::dialog
2269 bind .
<$M1B-Key-O> branch_checkout
::dialog
2271 if {[is_enabled transport
]} {
2272 bind .
<$M1B-Key-p> do_push_anywhere
2273 bind .
<$M1B-Key-P> do_push_anywhere
2276 bind .
<Key-F5
> do_rescan
2277 bind .
<$M1B-Key-r> do_rescan
2278 bind .
<$M1B-Key-R> do_rescan
2279 bind .
<$M1B-Key-s> do_signoff
2280 bind .
<$M1B-Key-S> do_signoff
2281 bind .
<$M1B-Key-i> do_add_all
2282 bind .
<$M1B-Key-I> do_add_all
2283 bind .
<$M1B-Key-Return> do_commit
2284 foreach i
[list
$ui_index $ui_workdir] {
2285 bind $i <Button-1
> "toggle_or_diff $i %x %y; break"
2286 bind $i <$M1B-Button-1> "add_one_to_selection $i %x %y; break"
2287 bind $i <Shift-Button-1
> "add_range_to_selection $i %x %y; break"
2291 set file_lists
($ui_index) [list
]
2292 set file_lists
($ui_workdir) [list
]
2294 wm title .
"[appname] ([reponame]) [file normalize [file dirname [gitdir]]]"
2295 focus
-force $ui_comm
2297 # -- Warn the user about environmental problems. Cygwin's Tcl
2298 # does *not* pass its env array onto any processes it spawns.
2299 # This means that git processes get none of our environment.
2304 set msg
"Possible environment issues exist.
2306 The following environment variables are probably
2307 going to be ignored by any Git subprocess run
2311 foreach name
[array names env
] {
2312 switch
-regexp -- $name {
2313 {^GIT_INDEX_FILE$
} -
2314 {^GIT_OBJECT_DIRECTORY$
} -
2315 {^GIT_ALTERNATE_OBJECT_DIRECTORIES$
} -
2317 {^GIT_EXTERNAL_DIFF$
} -
2321 {^GIT_CONFIG_LOCAL$
} -
2322 {^GIT_
(AUTHOR|COMMITTER
)_DATE$
} {
2323 append msg
" - $name\n"
2326 {^GIT_
(AUTHOR|COMMITTER
)_
(NAME|EMAIL
)$
} {
2327 append msg
" - $name\n"
2329 set suggest_user
$name
2333 if {$ignored_env > 0} {
2335 This is due to a known issue with the
2336 Tcl binary distributed by Cygwin."
2338 if {$suggest_user ne
{}} {
2341 A good replacement for $suggest_user
2342 is placing values for the user.name and
2343 user.email settings into your personal
2349 unset ignored_env msg suggest_user name
2352 # -- Only initialize complex UI if we are going to stay running.
2354 if {[is_enabled transport
]} {
2361 # -- Only suggest a gc run if we are going to stay running.
2363 if {[is_enabled multicommit
]} {
2364 set object_limit
2000
2365 if {[is_Windows
]} {set object_limit
200}
2366 regexp
{^
([0-9]+) objects
,} [git count-objects
] _junk objects_current
2367 if {$objects_current >= $object_limit} {
2369 "This repository currently has $objects_current loose objects.
2371 To maintain optimal performance it is strongly recommended that you compress the database when more than $object_limit loose objects exist.
2373 Compress the database now?"] eq
yes} {
2377 unset object_limit _junk objects_current
2380 lock_index begin-read