2 # Tcl ignores the next line -*- tcl -*- \
5 set appvers {@@GITGUI_VERSION@@}
7 Copyright © 2006, 2007 Shawn Pearce, et. al.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA}
23 ######################################################################
25 ## Tcl/Tk sanity check
27 if {[catch {package require Tcl 8.4} err]
28 || [catch {package require Tk 8.4} err]
34 -title "git-gui: fatal error" \
39 ######################################################################
41 ## configure our library
43 set oguilib {@@GITGUI_LIBDIR@@}
44 set oguirel {@@GITGUI_RELATIVE@@}
45 if {$oguirel eq {1}} {
46 set oguilib [file dirname [file dirname [file normalize $argv0]]]
47 set oguilib [file join $oguilib share git-gui lib]
48 } elseif {[string match @@* $oguirel]} {
49 set oguilib [file join [file dirname [file normalize $argv0]] lib]
51 set idx [file join $oguilib tclIndex]
54 if {[gets $fd] eq {# Autogenerated by git-gui Makefile}} {
56 while {[gets $fd n] >= 0} {
57 if {$n ne {} && ![string match #* $n]} {
69 if {[lsearch -exact $loaded $p] >= 0} continue
71 source [file join $oguilib $p]
76 set auto_path [concat [list $oguilib] $auto_path]
78 unset -nocomplain oguilib oguirel idx fd
80 if {![catch {set _verbose $env(GITGUI_VERBOSE)}]} {
82 rename auto_load real__auto_load
83 proc auto_load {name args} {
84 puts stderr "auto_load $name"
85 return [uplevel 1 real__auto_load $name $args]
87 rename source real__source
89 puts stderr "source $name"
90 uplevel 1 real__source $name
94 ######################################################################
98 set _appname [lindex [file split $argv0] end]
114 return [eval [concat [list file join $_gitdir] $args]]
117 proc gitexec {args} {
119 if {$_gitexec eq {}} {
120 if {[catch {set _gitexec [git --exec-path]} err]} {
121 error "Git not installed?\n\n$err"
127 return [eval [concat [list file join $_gitexec] $args]]
136 global tcl_platform tk_library
137 if {[tk windowingsystem] eq {aqua}} {
145 if {$tcl_platform(platform) eq {windows}} {
152 global tcl_platform _iscygwin
153 if {$_iscygwin eq {}} {
154 if {$tcl_platform(platform) eq {windows}} {
155 if {[catch {set p [exec cygpath --windir]} err]} {
167 proc is_enabled {option} {
168 global enabled_options
169 if {[catch {set on $enabled_options($option)}]} {return 0}
173 proc enable_option {option} {
174 global enabled_options
175 set enabled_options($option) 1
178 proc disable_option {option} {
179 global enabled_options
180 set enabled_options($option) 0
183 ######################################################################
187 proc is_many_config {name} {
188 switch -glob -- $name {
197 proc is_config_true {name} {
199 if {[catch {set v $repo_config($name)}]} {
201 } elseif {$v eq {true} || $v eq {1} || $v eq {yes}} {
208 proc load_config {include_global} {
209 global repo_config global_config default_config
211 array unset global_config
212 if {$include_global} {
214 set fd_rc [open "| git config --global --list" r]
215 while {[gets $fd_rc line] >= 0} {
216 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
217 if {[is_many_config $name]} {
218 lappend global_config($name) $value
220 set global_config($name) $value
228 array unset repo_config
230 set fd_rc [open "| git config --list" r]
231 while {[gets $fd_rc line] >= 0} {
232 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
233 if {[is_many_config $name]} {
234 lappend repo_config($name) $value
236 set repo_config($name) $value
243 foreach name [array names default_config] {
244 if {[catch {set v $global_config($name)}]} {
245 set global_config($name) $default_config($name)
247 if {[catch {set v $repo_config($name)}]} {
248 set repo_config($name) $default_config($name)
253 ######################################################################
258 return [eval exec git $args]
261 auto_load tk_optionMenu
262 rename tk_optionMenu real__tkOptionMenu
263 proc tk_optionMenu {w varName args} {
264 set m [eval real__tkOptionMenu $w $varName $args]
265 $m configure -font font_ui
266 $w configure -font font_ui
270 ######################################################################
274 if {{--version} eq $argv || {version} eq $argv} {
275 puts "git-gui version $appvers"
282 if {[catch {set v [git --version]} err]} {
283 catch {wm withdraw .}
284 error_popup "Cannot determine Git version:
288 [appname] requires Git $req_maj.$req_min or later."
291 if {[regexp {^git version (\d+)\.(\d+)} $v _junk act_maj act_min]} {
292 if {$act_maj < $req_maj
293 || ($act_maj == $req_maj && $act_min < $req_min)} {
294 catch {wm withdraw .}
295 error_popup "[appname] requires Git $req_maj.$req_min or later.
301 catch {wm withdraw .}
302 error_popup "Cannot parse Git version string:\n\n$v"
305 unset -nocomplain v _junk act_maj act_min req_maj req_min
307 ######################################################################
312 set _gitdir $env(GIT_DIR)
316 set _gitdir [git rev-parse --git-dir]
317 set _prefix [git rev-parse --show-prefix]
319 catch {wm withdraw .}
320 error_popup "Cannot find the git directory:\n\n$err"
323 if {![file isdirectory $_gitdir] && [is_Cygwin]} {
324 catch {set _gitdir [exec cygpath --unix $_gitdir]}
326 if {![file isdirectory $_gitdir]} {
327 catch {wm withdraw .}
328 error_popup "Git directory not found:\n\n$_gitdir"
331 if {[lindex [file split $_gitdir] end] ne {.git}} {
332 catch {wm withdraw .}
333 error_popup "Cannot use funny .git directory:\n\n$_gitdir"
336 if {[catch {cd [file dirname $_gitdir]} err]} {
337 catch {wm withdraw .}
338 error_popup "No working directory [file dirname $_gitdir]:\n\n$err"
341 set _reponame [lindex [file split \
342 [file normalize [file dirname $_gitdir]]] \
345 ######################################################################
349 set current_diff_path {}
350 set current_diff_side {}
351 set diff_actions [list]
352 set ui_status_value {Initializing...}
356 set MERGE_HEAD [list]
359 set current_branch {}
360 set current_diff_path {}
361 set selected_commit_type new
363 ######################################################################
371 set disable_on_lock [list]
372 set index_lock_type none
374 proc lock_index {type} {
375 global index_lock_type disable_on_lock
377 if {$index_lock_type eq {none}} {
378 set index_lock_type $type
379 foreach w $disable_on_lock {
380 uplevel #0 $w disabled
383 } elseif {$index_lock_type eq "begin-$type"} {
384 set index_lock_type $type
390 proc unlock_index {} {
391 global index_lock_type disable_on_lock
393 set index_lock_type none
394 foreach w $disable_on_lock {
399 ######################################################################
403 proc repository_state {ctvar hdvar mhvar} {
404 global current_branch
405 upvar $ctvar ct $hdvar hd $mhvar mh
409 if {[catch {set current_branch [git symbolic-ref HEAD]}]} {
410 set current_branch {}
412 regsub ^refs/((heads|tags|remotes)/)? \
418 if {[catch {set hd [git rev-parse --verify HEAD]}]} {
424 set merge_head [gitdir MERGE_HEAD]
425 if {[file exists $merge_head]} {
427 set fd_mh [open $merge_head r]
428 while {[gets $fd_mh line] >= 0} {
439 global PARENT empty_tree
441 set p [lindex $PARENT 0]
445 if {$empty_tree eq {}} {
446 set empty_tree [git mktree << {}]
451 proc rescan {after {honor_trustmtime 1}} {
452 global HEAD PARENT MERGE_HEAD commit_type
453 global ui_index ui_workdir ui_status_value ui_comm
454 global rescan_active file_states
457 if {$rescan_active > 0 || ![lock_index read]} return
459 repository_state newType newHEAD newMERGE_HEAD
460 if {[string match amend* $commit_type]
461 && $newType eq {normal}
462 && $newHEAD eq $HEAD} {
466 set MERGE_HEAD $newMERGE_HEAD
467 set commit_type $newType
470 array unset file_states
472 if {![$ui_comm edit modified]
473 || [string trim [$ui_comm get 0.0 end]] eq {}} {
474 if {[string match amend* $commit_type]} {
475 } elseif {[load_message GITGUI_MSG]} {
476 } elseif {[load_message MERGE_MSG]} {
477 } elseif {[load_message SQUASH_MSG]} {
480 $ui_comm edit modified false
483 if {[is_enabled branch]} {
488 if {$honor_trustmtime && $repo_config(gui.trustmtime) eq {true}} {
489 rescan_stage2 {} $after
492 set ui_status_value {Refreshing file status...}
493 set cmd [list git update-index]
495 lappend cmd --unmerged
496 lappend cmd --ignore-missing
497 lappend cmd --refresh
498 set fd_rf [open "| $cmd" r]
499 fconfigure $fd_rf -blocking 0 -translation binary
500 fileevent $fd_rf readable \
501 [list rescan_stage2 $fd_rf $after]
505 proc rescan_stage2 {fd after} {
506 global ui_status_value
507 global rescan_active buf_rdi buf_rdf buf_rlo
511 if {![eof $fd]} return
515 set ls_others [list | git ls-files --others -z \
516 --exclude-per-directory=.gitignore]
517 set info_exclude [gitdir info exclude]
518 if {[file readable $info_exclude]} {
519 lappend ls_others "--exclude-from=$info_exclude"
527 set ui_status_value {Scanning for modified files ...}
528 set fd_di [open "| git diff-index --cached -z [PARENT]" r]
529 set fd_df [open "| git diff-files -z" r]
530 set fd_lo [open $ls_others r]
532 fconfigure $fd_di -blocking 0 -translation binary -encoding binary
533 fconfigure $fd_df -blocking 0 -translation binary -encoding binary
534 fconfigure $fd_lo -blocking 0 -translation binary -encoding binary
535 fileevent $fd_di readable [list read_diff_index $fd_di $after]
536 fileevent $fd_df readable [list read_diff_files $fd_df $after]
537 fileevent $fd_lo readable [list read_ls_others $fd_lo $after]
540 proc load_message {file} {
544 if {[file isfile $f]} {
545 if {[catch {set fd [open $f r]}]} {
548 set content [string trim [read $fd]]
550 regsub -all -line {[ \r\t]+$} $content {} content
551 $ui_comm delete 0.0 end
552 $ui_comm insert end $content
558 proc read_diff_index {fd after} {
561 append buf_rdi [read $fd]
563 set n [string length $buf_rdi]
565 set z1 [string first "\0" $buf_rdi $c]
568 set z2 [string first "\0" $buf_rdi $z1]
572 set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
573 set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
575 [encoding convertfrom $p] \
577 [list [lindex $i 0] [lindex $i 2]] \
583 set buf_rdi [string range $buf_rdi $c end]
588 rescan_done $fd buf_rdi $after
591 proc read_diff_files {fd after} {
594 append buf_rdf [read $fd]
596 set n [string length $buf_rdf]
598 set z1 [string first "\0" $buf_rdf $c]
601 set z2 [string first "\0" $buf_rdf $z1]
605 set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
606 set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
608 [encoding convertfrom $p] \
611 [list [lindex $i 0] [lindex $i 2]]
616 set buf_rdf [string range $buf_rdf $c end]
621 rescan_done $fd buf_rdf $after
624 proc read_ls_others {fd after} {
627 append buf_rlo [read $fd]
628 set pck [split $buf_rlo "\0"]
629 set buf_rlo [lindex $pck end]
630 foreach p [lrange $pck 0 end-1] {
631 merge_state [encoding convertfrom $p] ?O
633 rescan_done $fd buf_rlo $after
636 proc rescan_done {fd buf after} {
637 global rescan_active current_diff_path
638 global file_states repo_config
641 if {![eof $fd]} return
644 if {[incr rescan_active -1] > 0} return
649 if {$current_diff_path ne {}} reshow_diff
653 proc prune_selection {} {
654 global file_states selected_paths
656 foreach path [array names selected_paths] {
657 if {[catch {set still_here $file_states($path)}]} {
658 unset selected_paths($path)
663 ######################################################################
667 proc mapicon {w state path} {
670 if {[catch {set r $all_icons($state$w)}]} {
671 puts "error: no icon for $w state={$state} $path"
677 proc mapdesc {state path} {
680 if {[catch {set r $all_descs($state)}]} {
681 puts "error: no desc for state={$state} $path"
687 proc escape_path {path} {
688 regsub -all {\\} $path "\\\\" path
689 regsub -all "\n" $path "\\n" path
693 proc short_path {path} {
694 return [escape_path [lindex [file split $path] end]]
698 set null_sha1 [string repeat 0 40]
700 proc merge_state {path new_state {head_info {}} {index_info {}}} {
701 global file_states next_icon_id null_sha1
703 set s0 [string index $new_state 0]
704 set s1 [string index $new_state 1]
706 if {[catch {set info $file_states($path)}]} {
708 set icon n[incr next_icon_id]
710 set state [lindex $info 0]
711 set icon [lindex $info 1]
712 if {$head_info eq {}} {set head_info [lindex $info 2]}
713 if {$index_info eq {}} {set index_info [lindex $info 3]}
716 if {$s0 eq {?}} {set s0 [string index $state 0]} \
717 elseif {$s0 eq {_}} {set s0 _}
719 if {$s1 eq {?}} {set s1 [string index $state 1]} \
720 elseif {$s1 eq {_}} {set s1 _}
722 if {$s0 eq {A} && $s1 eq {_} && $head_info eq {}} {
723 set head_info [list 0 $null_sha1]
724 } elseif {$s0 ne {_} && [string index $state 0] eq {_}
725 && $head_info eq {}} {
726 set head_info $index_info
729 set file_states($path) [list $s0$s1 $icon \
730 $head_info $index_info \
735 proc display_file_helper {w path icon_name old_m new_m} {
739 set lno [lsearch -sorted -exact $file_lists($w) $path]
741 set file_lists($w) [lreplace $file_lists($w) $lno $lno]
743 $w conf -state normal
744 $w delete $lno.0 [expr {$lno + 1}].0
745 $w conf -state disabled
747 } elseif {$old_m eq {_} && $new_m ne {_}} {
748 lappend file_lists($w) $path
749 set file_lists($w) [lsort -unique $file_lists($w)]
750 set lno [lsearch -sorted -exact $file_lists($w) $path]
752 $w conf -state normal
753 $w image create $lno.0 \
754 -align center -padx 5 -pady 1 \
756 -image [mapicon $w $new_m $path]
757 $w insert $lno.1 "[escape_path $path]\n"
758 $w conf -state disabled
759 } elseif {$old_m ne $new_m} {
760 $w conf -state normal
761 $w image conf $icon_name -image [mapicon $w $new_m $path]
762 $w conf -state disabled
766 proc display_file {path state} {
767 global file_states selected_paths
768 global ui_index ui_workdir
770 set old_m [merge_state $path $state]
771 set s $file_states($path)
772 set new_m [lindex $s 0]
773 set icon_name [lindex $s 1]
775 set o [string index $old_m 0]
776 set n [string index $new_m 0]
783 display_file_helper $ui_index $path $icon_name $o $n
785 if {[string index $old_m 0] eq {U}} {
788 set o [string index $old_m 1]
790 if {[string index $new_m 0] eq {U}} {
793 set n [string index $new_m 1]
795 display_file_helper $ui_workdir $path $icon_name $o $n
797 if {$new_m eq {__}} {
798 unset file_states($path)
799 catch {unset selected_paths($path)}
803 proc display_all_files_helper {w path icon_name m} {
806 lappend file_lists($w) $path
807 set lno [expr {[lindex [split [$w index end] .] 0] - 1}]
808 $w image create end \
809 -align center -padx 5 -pady 1 \
811 -image [mapicon $w $m $path]
812 $w insert end "[escape_path $path]\n"
815 proc display_all_files {} {
816 global ui_index ui_workdir
817 global file_states file_lists
820 $ui_index conf -state normal
821 $ui_workdir conf -state normal
823 $ui_index delete 0.0 end
824 $ui_workdir delete 0.0 end
827 set file_lists($ui_index) [list]
828 set file_lists($ui_workdir) [list]
830 foreach path [lsort [array names file_states]] {
831 set s $file_states($path)
833 set icon_name [lindex $s 1]
835 set s [string index $m 0]
836 if {$s ne {U} && $s ne {_}} {
837 display_all_files_helper $ui_index $path \
841 if {[string index $m 0] eq {U}} {
844 set s [string index $m 1]
847 display_all_files_helper $ui_workdir $path \
852 $ui_index conf -state disabled
853 $ui_workdir conf -state disabled
856 ######################################################################
861 #define mask_width 14
862 #define mask_height 15
863 static unsigned char mask_bits[] = {
864 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
865 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
866 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
869 image create bitmap file_plain -background white -foreground black -data {
870 #define plain_width 14
871 #define plain_height 15
872 static unsigned char plain_bits[] = {
873 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
874 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
875 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
876 } -maskdata $filemask
878 image create bitmap file_mod -background white -foreground blue -data {
880 #define mod_height 15
881 static unsigned char mod_bits[] = {
882 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
883 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
884 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
885 } -maskdata $filemask
887 image create bitmap file_fulltick -background white -foreground "#007000" -data {
888 #define file_fulltick_width 14
889 #define file_fulltick_height 15
890 static unsigned char file_fulltick_bits[] = {
891 0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
892 0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
893 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
894 } -maskdata $filemask
896 image create bitmap file_parttick -background white -foreground "#005050" -data {
897 #define parttick_width 14
898 #define parttick_height 15
899 static unsigned char parttick_bits[] = {
900 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
901 0x7a, 0x14, 0x02, 0x16, 0x02, 0x13, 0x8a, 0x11, 0xda, 0x10, 0x72, 0x10,
902 0x22, 0x10, 0x02, 0x10, 0xfe, 0x1f};
903 } -maskdata $filemask
905 image create bitmap file_question -background white -foreground black -data {
906 #define file_question_width 14
907 #define file_question_height 15
908 static unsigned char file_question_bits[] = {
909 0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
910 0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
911 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
912 } -maskdata $filemask
914 image create bitmap file_removed -background white -foreground red -data {
915 #define file_removed_width 14
916 #define file_removed_height 15
917 static unsigned char file_removed_bits[] = {
918 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
919 0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
920 0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
921 } -maskdata $filemask
923 image create bitmap file_merge -background white -foreground blue -data {
924 #define file_merge_width 14
925 #define file_merge_height 15
926 static unsigned char file_merge_bits[] = {
927 0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
928 0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
929 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
930 } -maskdata $filemask
933 #define file_width 18
934 #define file_height 18
935 static unsigned char file_bits[] = {
936 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x03, 0x00,
937 0x0c, 0x03, 0x00, 0x04, 0xfe, 0x00, 0x06, 0x80, 0x00, 0xff, 0x9f, 0x00,
938 0x03, 0x98, 0x00, 0x02, 0x90, 0x00, 0x06, 0xb0, 0x00, 0x04, 0xa0, 0x00,
939 0x0c, 0xe0, 0x00, 0x08, 0xc0, 0x00, 0xf8, 0xff, 0x00, 0x00, 0x00, 0x00,
940 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
942 image create bitmap file_dir -background white -foreground blue \
943 -data $file_dir_data -maskdata $file_dir_data
946 set file_uplevel_data {
949 static unsigned char up_bits[] = {
950 0x80, 0x00, 0xc0, 0x01, 0xe0, 0x03, 0xf0, 0x07, 0xf8, 0x0f, 0xfc, 0x1f,
951 0xfe, 0x3f, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01,
952 0xc0, 0x01, 0xc0, 0x01, 0x00, 0x00};
954 image create bitmap file_uplevel -background white -foreground red \
955 -data $file_uplevel_data -maskdata $file_uplevel_data
956 unset file_uplevel_data
958 set ui_index .vpane.files.index.list
959 set ui_workdir .vpane.files.workdir.list
961 set all_icons(_$ui_index) file_plain
962 set all_icons(A$ui_index) file_fulltick
963 set all_icons(M$ui_index) file_fulltick
964 set all_icons(D$ui_index) file_removed
965 set all_icons(U$ui_index) file_merge
967 set all_icons(_$ui_workdir) file_plain
968 set all_icons(M$ui_workdir) file_mod
969 set all_icons(D$ui_workdir) file_question
970 set all_icons(U$ui_workdir) file_merge
971 set all_icons(O$ui_workdir) file_plain
973 set max_status_desc 0
977 {_M "Modified, not staged"}
978 {M_ "Staged for commit"}
979 {MM "Portions staged for commit"}
980 {MD "Staged for commit, missing"}
982 {_O "Untracked, not staged"}
983 {A_ "Staged for commit"}
984 {AM "Portions staged for commit"}
985 {AD "Staged for commit, missing"}
988 {D_ "Staged for removal"}
989 {DO "Staged for removal, still present"}
991 {U_ "Requires merge resolution"}
992 {UU "Requires merge resolution"}
993 {UM "Requires merge resolution"}
994 {UD "Requires merge resolution"}
996 if {$max_status_desc < [string length [lindex $i 1]]} {
997 set max_status_desc [string length [lindex $i 1]]
999 set all_descs([lindex $i 0]) [lindex $i 1]
1003 ######################################################################
1007 proc bind_button3 {w cmd} {
1008 bind $w <Any-Button-3> $cmd
1010 bind $w <Control-Button-1> $cmd
1014 proc scrollbar2many {list mode args} {
1015 foreach w $list {eval $w $mode $args}
1018 proc many2scrollbar {list mode sb top bottom} {
1019 $sb set $top $bottom
1020 foreach w $list {$w $mode moveto $top}
1023 proc incr_font_size {font {amt 1}} {
1024 set sz [font configure $font -size]
1026 font configure $font -size $sz
1027 font configure ${font}bold -size $sz
1028 font configure ${font}italic -size $sz
1031 ######################################################################
1035 set starting_gitk_msg {Starting gitk... please wait...}
1037 proc do_gitk {revs} {
1038 global env ui_status_value starting_gitk_msg
1040 # -- Always start gitk through whatever we were loaded with. This
1041 # lets us bypass using shell process on Windows systems.
1043 set cmd [list [info nameofexecutable]]
1044 lappend cmd [gitexec gitk]
1050 if {[catch {eval exec $cmd &} err]} {
1051 error_popup "Failed to start gitk:\n\n$err"
1053 set ui_status_value $starting_gitk_msg
1055 if {$ui_status_value eq $starting_gitk_msg} {
1056 set ui_status_value {Ready.}
1065 global ui_comm is_quitting repo_config commit_type
1067 if {$is_quitting} return
1070 if {[winfo exists $ui_comm]} {
1071 # -- Stash our current commit buffer.
1073 set save [gitdir GITGUI_MSG]
1074 set msg [string trim [$ui_comm get 0.0 end]]
1075 regsub -all -line {[ \r\t]+$} $msg {} msg
1076 if {(![string match amend* $commit_type]
1077 || [$ui_comm edit modified])
1080 set fd [open $save w]
1081 puts -nonewline $fd $msg
1085 catch {file delete $save}
1088 # -- Stash our current window geometry into this repository.
1090 set cfg_geometry [list]
1091 lappend cfg_geometry [wm geometry .]
1092 lappend cfg_geometry [lindex [.vpane sash coord 0] 1]
1093 lappend cfg_geometry [lindex [.vpane.files sash coord 0] 0]
1094 if {[catch {set rc_geometry $repo_config(gui.geometry)}]} {
1097 if {$cfg_geometry ne $rc_geometry} {
1098 catch {git config gui.geometry $cfg_geometry}
1106 rescan {set ui_status_value {Ready.}}
1113 proc toggle_or_diff {w x y} {
1114 global file_states file_lists current_diff_path ui_index ui_workdir
1115 global last_clicked selected_paths
1117 set pos [split [$w index @$x,$y] .]
1118 set lno [lindex $pos 0]
1119 set col [lindex $pos 1]
1120 set path [lindex $file_lists($w) [expr {$lno - 1}]]
1126 set last_clicked [list $w $lno]
1127 array unset selected_paths
1128 $ui_index tag remove in_sel 0.0 end
1129 $ui_workdir tag remove in_sel 0.0 end
1132 if {$current_diff_path eq $path} {
1133 set after {reshow_diff;}
1137 if {$w eq $ui_index} {
1139 "Unstaging [short_path $path] from commit" \
1141 [concat $after {set ui_status_value {Ready.}}]
1142 } elseif {$w eq $ui_workdir} {
1144 "Adding [short_path $path]" \
1146 [concat $after {set ui_status_value {Ready.}}]
1149 show_diff $path $w $lno
1153 proc add_one_to_selection {w x y} {
1154 global file_lists last_clicked selected_paths
1156 set lno [lindex [split [$w index @$x,$y] .] 0]
1157 set path [lindex $file_lists($w) [expr {$lno - 1}]]
1163 if {$last_clicked ne {}
1164 && [lindex $last_clicked 0] ne $w} {
1165 array unset selected_paths
1166 [lindex $last_clicked 0] tag remove in_sel 0.0 end
1169 set last_clicked [list $w $lno]
1170 if {[catch {set in_sel $selected_paths($path)}]} {
1174 unset selected_paths($path)
1175 $w tag remove in_sel $lno.0 [expr {$lno + 1}].0
1177 set selected_paths($path) 1
1178 $w tag add in_sel $lno.0 [expr {$lno + 1}].0
1182 proc add_range_to_selection {w x y} {
1183 global file_lists last_clicked selected_paths
1185 if {[lindex $last_clicked 0] ne $w} {
1186 toggle_or_diff $w $x $y
1190 set lno [lindex [split [$w index @$x,$y] .] 0]
1191 set lc [lindex $last_clicked 1]
1200 foreach path [lrange $file_lists($w) \
1201 [expr {$begin - 1}] \
1202 [expr {$end - 1}]] {
1203 set selected_paths($path) 1
1205 $w tag add in_sel $begin.0 [expr {$end + 1}].0
1208 ######################################################################
1212 set cursor_ptr arrow
1213 font create font_diff -family Courier -size 10
1217 eval font configure font_ui [font actual [.dummy cget -font]]
1221 font create font_uiitalic
1222 font create font_uibold
1223 font create font_diffbold
1224 font create font_diffitalic
1226 foreach class {Button Checkbutton Entry Label
1227 Labelframe Listbox Menu Message
1228 Radiobutton Spinbox Text} {
1229 option add *$class.font font_ui
1241 proc apply_config {} {
1242 global repo_config font_descs
1244 foreach option $font_descs {
1245 set name [lindex $option 0]
1246 set font [lindex $option 1]
1248 foreach {cn cv} $repo_config(gui.$name) {
1249 font configure $font $cn $cv
1252 error_popup "Invalid font specified in gui.$name:\n\n$err"
1254 foreach {cn cv} [font configure $font] {
1255 font configure ${font}bold $cn $cv
1256 font configure ${font}italic $cn $cv
1258 font configure ${font}bold -weight bold
1259 font configure ${font}italic -slant italic
1263 set default_config(merge.summary) false
1264 set default_config(merge.verbosity) 2
1265 set default_config(user.name) {}
1266 set default_config(user.email) {}
1268 set default_config(gui.trustmtime) false
1269 set default_config(gui.diffcontext) 5
1270 set default_config(gui.newbranchtemplate) {}
1271 set default_config(gui.fontui) [font configure font_ui]
1272 set default_config(gui.fontdiff) [font configure font_diff]
1274 {fontui font_ui {Main Font}}
1275 {fontdiff font_diff {Diff/Console Font}}
1280 ######################################################################
1282 ## feature option selection
1284 if {[regexp {^git-(.+)$} [appname] _junk subcommand]} {
1289 if {$subcommand eq {gui.sh}} {
1292 if {$subcommand eq {gui} && [llength $argv] > 0} {
1293 set subcommand [lindex $argv 0]
1294 set argv [lrange $argv 1 end]
1297 enable_option multicommit
1298 enable_option branch
1299 enable_option transport
1301 switch -- $subcommand {
1304 disable_option multicommit
1305 disable_option branch
1306 disable_option transport
1309 enable_option singlecommit
1311 disable_option multicommit
1312 disable_option branch
1313 disable_option transport
1317 ######################################################################
1325 menu .mbar -tearoff 0
1326 .mbar add cascade -label Repository -menu .mbar.repository
1327 .mbar add cascade -label Edit -menu .mbar.edit
1328 if {[is_enabled branch]} {
1329 .mbar add cascade -label Branch -menu .mbar.branch
1331 if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1332 .mbar add cascade -label Commit -menu .mbar.commit
1334 if {[is_enabled transport]} {
1335 .mbar add cascade -label Merge -menu .mbar.merge
1336 .mbar add cascade -label Fetch -menu .mbar.fetch
1337 .mbar add cascade -label Push -menu .mbar.push
1339 . configure -menu .mbar
1341 # -- Repository Menu
1343 menu .mbar.repository
1345 .mbar.repository add command \
1346 -label {Browse Current Branch} \
1347 -command {browser::new $current_branch}
1348 trace add variable current_branch write ".mbar.repository entryconf [.mbar.repository index last] -label \"Browse \$current_branch\" ;#"
1349 .mbar.repository add separator
1351 .mbar.repository add command \
1352 -label {Visualize Current Branch} \
1353 -command {do_gitk $current_branch}
1354 trace add variable current_branch write ".mbar.repository entryconf [.mbar.repository index last] -label \"Visualize \$current_branch\" ;#"
1355 .mbar.repository add command \
1356 -label {Visualize All Branches} \
1357 -command {do_gitk --all}
1358 .mbar.repository add separator
1360 if {[is_enabled multicommit]} {
1361 .mbar.repository add command -label {Database Statistics} \
1364 .mbar.repository add command -label {Compress Database} \
1367 .mbar.repository add command -label {Verify Database} \
1368 -command do_fsck_objects
1370 .mbar.repository add separator
1373 .mbar.repository add command \
1374 -label {Create Desktop Icon} \
1375 -command do_cygwin_shortcut
1376 } elseif {[is_Windows]} {
1377 .mbar.repository add command \
1378 -label {Create Desktop Icon} \
1379 -command do_windows_shortcut
1380 } elseif {[is_MacOSX]} {
1381 .mbar.repository add command \
1382 -label {Create Desktop Icon} \
1383 -command do_macosx_app
1387 .mbar.repository add command -label Quit \
1394 .mbar.edit add command -label Undo \
1395 -command {catch {[focus] edit undo}} \
1397 .mbar.edit add command -label Redo \
1398 -command {catch {[focus] edit redo}} \
1400 .mbar.edit add separator
1401 .mbar.edit add command -label Cut \
1402 -command {catch {tk_textCut [focus]}} \
1404 .mbar.edit add command -label Copy \
1405 -command {catch {tk_textCopy [focus]}} \
1407 .mbar.edit add command -label Paste \
1408 -command {catch {tk_textPaste [focus]; [focus] see insert}} \
1410 .mbar.edit add command -label Delete \
1411 -command {catch {[focus] delete sel.first sel.last}} \
1413 .mbar.edit add separator
1414 .mbar.edit add command -label {Select All} \
1415 -command {catch {[focus] tag add sel 0.0 end}} \
1420 if {[is_enabled branch]} {
1423 .mbar.branch add command -label {Create...} \
1424 -command do_create_branch \
1426 lappend disable_on_lock [list .mbar.branch entryconf \
1427 [.mbar.branch index last] -state]
1429 .mbar.branch add command -label {Delete...} \
1430 -command do_delete_branch
1431 lappend disable_on_lock [list .mbar.branch entryconf \
1432 [.mbar.branch index last] -state]
1434 .mbar.branch add command -label {Reset...} \
1435 -command merge::reset_hard
1436 lappend disable_on_lock [list .mbar.branch entryconf \
1437 [.mbar.branch index last] -state]
1442 if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1445 .mbar.commit add radiobutton \
1446 -label {New Commit} \
1447 -command do_select_commit_type \
1448 -variable selected_commit_type \
1450 lappend disable_on_lock \
1451 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1453 .mbar.commit add radiobutton \
1454 -label {Amend Last Commit} \
1455 -command do_select_commit_type \
1456 -variable selected_commit_type \
1458 lappend disable_on_lock \
1459 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1461 .mbar.commit add separator
1463 .mbar.commit add command -label Rescan \
1464 -command do_rescan \
1466 lappend disable_on_lock \
1467 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1469 .mbar.commit add command -label {Add To Commit} \
1470 -command do_add_selection
1471 lappend disable_on_lock \
1472 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1474 .mbar.commit add command -label {Add Existing To Commit} \
1475 -command do_add_all \
1477 lappend disable_on_lock \
1478 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1480 .mbar.commit add command -label {Unstage From Commit} \
1481 -command do_unstage_selection
1482 lappend disable_on_lock \
1483 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1485 .mbar.commit add command -label {Revert Changes} \
1486 -command do_revert_selection
1487 lappend disable_on_lock \
1488 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1490 .mbar.commit add separator
1492 .mbar.commit add command -label {Sign Off} \
1493 -command do_signoff \
1496 .mbar.commit add command -label Commit \
1497 -command do_commit \
1498 -accelerator $M1T-Return
1499 lappend disable_on_lock \
1500 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1505 if {[is_enabled branch]} {
1507 .mbar.merge add command -label {Local Merge...} \
1508 -command merge::dialog
1509 lappend disable_on_lock \
1510 [list .mbar.merge entryconf [.mbar.merge index last] -state]
1511 .mbar.merge add command -label {Abort Merge...} \
1512 -command merge::reset_hard
1513 lappend disable_on_lock \
1514 [list .mbar.merge entryconf [.mbar.merge index last] -state]
1520 if {[is_enabled transport]} {
1524 .mbar.push add command -label {Push...} \
1525 -command do_push_anywhere
1529 # -- Apple Menu (Mac OS X only)
1531 .mbar add cascade -label Apple -menu .mbar.apple
1534 .mbar.apple add command -label "About [appname]" \
1536 .mbar.apple add command -label "Options..." \
1541 .mbar.edit add separator
1542 .mbar.edit add command -label {Options...} \
1547 if {[file exists /usr/local/miga/lib/gui-miga]
1548 && [file exists .pvcsrc]} {
1550 global ui_status_value
1551 if {![lock_index update]} return
1552 set cmd [list sh --login -c "/usr/local/miga/lib/gui-miga \"[pwd]\""]
1553 set miga_fd [open "|$cmd" r]
1554 fconfigure $miga_fd -blocking 0
1555 fileevent $miga_fd readable [list miga_done $miga_fd]
1556 set ui_status_value {Running miga...}
1558 proc miga_done {fd} {
1563 rescan [list set ui_status_value {Ready.}]
1566 .mbar add cascade -label Tools -menu .mbar.tools
1568 .mbar.tools add command -label "Migrate" \
1570 lappend disable_on_lock \
1571 [list .mbar.tools entryconf [.mbar.tools index last] -state]
1577 .mbar add cascade -label Help -menu .mbar.help
1581 .mbar.help add command -label "About [appname]" \
1586 catch {set browser $repo_config(instaweb.browser)}
1587 set doc_path [file dirname [gitexec]]
1588 set doc_path [file join $doc_path Documentation index.html]
1591 set doc_path [exec cygpath --mixed $doc_path]
1594 if {$browser eq {}} {
1597 } elseif {[is_Cygwin]} {
1598 set program_files [file dirname [exec cygpath --windir]]
1599 set program_files [file join $program_files {Program Files}]
1600 set firefox [file join $program_files {Mozilla Firefox} firefox.exe]
1601 set ie [file join $program_files {Internet Explorer} IEXPLORE.EXE]
1602 if {[file exists $firefox]} {
1603 set browser $firefox
1604 } elseif {[file exists $ie]} {
1607 unset program_files firefox ie
1611 if {[file isfile $doc_path]} {
1612 set doc_url "file:$doc_path"
1614 set doc_url {http://www.kernel.org/pub/software/scm/git/docs/}
1617 if {$browser ne {}} {
1618 .mbar.help add command -label {Online Documentation} \
1619 -command [list exec $browser $doc_url &]
1621 unset browser doc_path doc_url
1623 # -- Standard bindings
1625 wm protocol . WM_DELETE_WINDOW do_quit
1626 bind all <$M1B-Key-q> do_quit
1627 bind all <$M1B-Key-Q> do_quit
1628 bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}
1629 bind all <$M1B-Key-W> {destroy [winfo toplevel %W]}
1631 set subcommand_args {}
1633 puts stderr "usage: $::argv0 $::subcommand $::subcommand_args"
1637 # -- Not a normal commit type invocation? Do that instead!
1639 switch -- $subcommand {
1641 set subcommand_args {rev?}
1642 switch [llength $argv] {
1644 set current_branch [git symbolic-ref HEAD]
1645 regsub ^refs/((heads|tags|remotes)/)? \
1646 $current_branch {} current_branch
1649 set current_branch [lindex $argv 0]
1653 browser::new $current_branch
1657 set subcommand_args {rev? path?}
1662 if {$is_path || [file exists $_prefix$a]} {
1663 if {$path ne {}} usage
1666 } elseif {$a eq {--}} {
1668 if {$head ne {}} usage
1673 } elseif {$head eq {}} {
1674 if {$head ne {}} usage
1683 set current_branch [git symbolic-ref HEAD]
1684 regsub ^refs/((heads|tags|remotes)/)? \
1685 $current_branch {} current_branch
1687 set current_branch $head
1690 if {$path eq {}} usage
1691 blame::new $head $path
1696 if {[llength $argv] != 0} {
1697 puts -nonewline stderr "usage: $argv0"
1698 if {$subcommand ne {gui} && [appname] ne "git-$subcommand"} {
1699 puts -nonewline stderr " $subcommand"
1704 # fall through to setup UI for commits
1707 puts stderr "usage: $argv0 \[{blame|browser|citool}\]"
1718 -text {Current Branch:} \
1722 -textvariable current_branch \
1725 pack .branch.l1 -side left
1726 pack .branch.cb -side left -fill x
1727 pack .branch -side top -fill x
1729 # -- Main Window Layout
1731 panedwindow .vpane -orient vertical
1732 panedwindow .vpane.files -orient horizontal
1733 .vpane add .vpane.files -sticky nsew -height 100 -width 200
1734 pack .vpane -anchor n -side top -fill both -expand 1
1736 # -- Index File List
1738 frame .vpane.files.index -height 100 -width 200
1739 label .vpane.files.index.title -text {Staged Changes (Will Be Committed)} \
1740 -background lightgreen
1741 text $ui_index -background white -borderwidth 0 \
1742 -width 20 -height 10 \
1744 -cursor $cursor_ptr \
1745 -xscrollcommand {.vpane.files.index.sx set} \
1746 -yscrollcommand {.vpane.files.index.sy set} \
1748 scrollbar .vpane.files.index.sx -orient h -command [list $ui_index xview]
1749 scrollbar .vpane.files.index.sy -orient v -command [list $ui_index yview]
1750 pack .vpane.files.index.title -side top -fill x
1751 pack .vpane.files.index.sx -side bottom -fill x
1752 pack .vpane.files.index.sy -side right -fill y
1753 pack $ui_index -side left -fill both -expand 1
1754 .vpane.files add .vpane.files.index -sticky nsew
1756 # -- Working Directory File List
1758 frame .vpane.files.workdir -height 100 -width 200
1759 label .vpane.files.workdir.title -text {Unstaged Changes (Will Not Be Committed)} \
1760 -background lightsalmon
1761 text $ui_workdir -background white -borderwidth 0 \
1762 -width 20 -height 10 \
1764 -cursor $cursor_ptr \
1765 -xscrollcommand {.vpane.files.workdir.sx set} \
1766 -yscrollcommand {.vpane.files.workdir.sy set} \
1768 scrollbar .vpane.files.workdir.sx -orient h -command [list $ui_workdir xview]
1769 scrollbar .vpane.files.workdir.sy -orient v -command [list $ui_workdir yview]
1770 pack .vpane.files.workdir.title -side top -fill x
1771 pack .vpane.files.workdir.sx -side bottom -fill x
1772 pack .vpane.files.workdir.sy -side right -fill y
1773 pack $ui_workdir -side left -fill both -expand 1
1774 .vpane.files add .vpane.files.workdir -sticky nsew
1776 foreach i [list $ui_index $ui_workdir] {
1777 $i tag conf in_diff -background lightgray
1778 $i tag conf in_sel -background lightgray
1782 # -- Diff and Commit Area
1784 frame .vpane.lower -height 300 -width 400
1785 frame .vpane.lower.commarea
1786 frame .vpane.lower.diff -relief sunken -borderwidth 1
1787 pack .vpane.lower.commarea -side top -fill x
1788 pack .vpane.lower.diff -side bottom -fill both -expand 1
1789 .vpane add .vpane.lower -sticky nsew
1791 # -- Commit Area Buttons
1793 frame .vpane.lower.commarea.buttons
1794 label .vpane.lower.commarea.buttons.l -text {} \
1797 pack .vpane.lower.commarea.buttons.l -side top -fill x
1798 pack .vpane.lower.commarea.buttons -side left -fill y
1800 button .vpane.lower.commarea.buttons.rescan -text {Rescan} \
1802 pack .vpane.lower.commarea.buttons.rescan -side top -fill x
1803 lappend disable_on_lock \
1804 {.vpane.lower.commarea.buttons.rescan conf -state}
1806 button .vpane.lower.commarea.buttons.incall -text {Add Existing} \
1808 pack .vpane.lower.commarea.buttons.incall -side top -fill x
1809 lappend disable_on_lock \
1810 {.vpane.lower.commarea.buttons.incall conf -state}
1812 button .vpane.lower.commarea.buttons.signoff -text {Sign Off} \
1814 pack .vpane.lower.commarea.buttons.signoff -side top -fill x
1816 button .vpane.lower.commarea.buttons.commit -text {Commit} \
1818 pack .vpane.lower.commarea.buttons.commit -side top -fill x
1819 lappend disable_on_lock \
1820 {.vpane.lower.commarea.buttons.commit conf -state}
1822 # -- Commit Message Buffer
1824 frame .vpane.lower.commarea.buffer
1825 frame .vpane.lower.commarea.buffer.header
1826 set ui_comm .vpane.lower.commarea.buffer.t
1827 set ui_coml .vpane.lower.commarea.buffer.header.l
1828 radiobutton .vpane.lower.commarea.buffer.header.new \
1829 -text {New Commit} \
1830 -command do_select_commit_type \
1831 -variable selected_commit_type \
1833 lappend disable_on_lock \
1834 [list .vpane.lower.commarea.buffer.header.new conf -state]
1835 radiobutton .vpane.lower.commarea.buffer.header.amend \
1836 -text {Amend Last Commit} \
1837 -command do_select_commit_type \
1838 -variable selected_commit_type \
1840 lappend disable_on_lock \
1841 [list .vpane.lower.commarea.buffer.header.amend conf -state]
1845 proc trace_commit_type {varname args} {
1846 global ui_coml commit_type
1847 switch -glob -- $commit_type {
1848 initial {set txt {Initial Commit Message:}}
1849 amend {set txt {Amended Commit Message:}}
1850 amend-initial {set txt {Amended Initial Commit Message:}}
1851 amend-merge {set txt {Amended Merge Commit Message:}}
1852 merge {set txt {Merge Commit Message:}}
1853 * {set txt {Commit Message:}}
1855 $ui_coml conf -text $txt
1857 trace add variable commit_type write trace_commit_type
1858 pack $ui_coml -side left -fill x
1859 pack .vpane.lower.commarea.buffer.header.amend -side right
1860 pack .vpane.lower.commarea.buffer.header.new -side right
1862 text $ui_comm -background white -borderwidth 1 \
1865 -autoseparators true \
1867 -width 75 -height 9 -wrap none \
1869 -yscrollcommand {.vpane.lower.commarea.buffer.sby set}
1870 scrollbar .vpane.lower.commarea.buffer.sby \
1871 -command [list $ui_comm yview]
1872 pack .vpane.lower.commarea.buffer.header -side top -fill x
1873 pack .vpane.lower.commarea.buffer.sby -side right -fill y
1874 pack $ui_comm -side left -fill y
1875 pack .vpane.lower.commarea.buffer -side left -fill y
1877 # -- Commit Message Buffer Context Menu
1879 set ctxm .vpane.lower.commarea.buffer.ctxm
1880 menu $ctxm -tearoff 0
1883 -command {tk_textCut $ui_comm}
1886 -command {tk_textCopy $ui_comm}
1889 -command {tk_textPaste $ui_comm}
1892 -command {$ui_comm delete sel.first sel.last}
1895 -label {Select All} \
1896 -command {focus $ui_comm;$ui_comm tag add sel 0.0 end}
1900 $ui_comm tag add sel 0.0 end
1901 tk_textCopy $ui_comm
1902 $ui_comm tag remove sel 0.0 end
1908 bind_button3 $ui_comm "tk_popup $ctxm %X %Y"
1912 proc trace_current_diff_path {varname args} {
1913 global current_diff_path diff_actions file_states
1914 if {$current_diff_path eq {}} {
1920 set p $current_diff_path
1921 set s [mapdesc [lindex $file_states($p) 0] $p]
1923 set p [escape_path $p]
1927 .vpane.lower.diff.header.status configure -text $s
1928 .vpane.lower.diff.header.file configure -text $f
1929 .vpane.lower.diff.header.path configure -text $p
1930 foreach w $diff_actions {
1934 trace add variable current_diff_path write trace_current_diff_path
1936 frame .vpane.lower.diff.header -background gold
1937 label .vpane.lower.diff.header.status \
1939 -width $max_status_desc \
1942 label .vpane.lower.diff.header.file \
1946 label .vpane.lower.diff.header.path \
1950 pack .vpane.lower.diff.header.status -side left
1951 pack .vpane.lower.diff.header.file -side left
1952 pack .vpane.lower.diff.header.path -fill x
1953 set ctxm .vpane.lower.diff.header.ctxm
1954 menu $ctxm -tearoff 0
1962 -- $current_diff_path
1964 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
1965 bind_button3 .vpane.lower.diff.header.path "tk_popup $ctxm %X %Y"
1969 frame .vpane.lower.diff.body
1970 set ui_diff .vpane.lower.diff.body.t
1971 text $ui_diff -background white -borderwidth 0 \
1972 -width 80 -height 15 -wrap none \
1974 -xscrollcommand {.vpane.lower.diff.body.sbx set} \
1975 -yscrollcommand {.vpane.lower.diff.body.sby set} \
1977 scrollbar .vpane.lower.diff.body.sbx -orient horizontal \
1978 -command [list $ui_diff xview]
1979 scrollbar .vpane.lower.diff.body.sby -orient vertical \
1980 -command [list $ui_diff yview]
1981 pack .vpane.lower.diff.body.sbx -side bottom -fill x
1982 pack .vpane.lower.diff.body.sby -side right -fill y
1983 pack $ui_diff -side left -fill both -expand 1
1984 pack .vpane.lower.diff.header -side top -fill x
1985 pack .vpane.lower.diff.body -side bottom -fill both -expand 1
1987 $ui_diff tag conf d_cr -elide true
1988 $ui_diff tag conf d_@ -foreground blue -font font_diffbold
1989 $ui_diff tag conf d_+ -foreground {#00a000}
1990 $ui_diff tag conf d_- -foreground red
1992 $ui_diff tag conf d_++ -foreground {#00a000}
1993 $ui_diff tag conf d_-- -foreground red
1994 $ui_diff tag conf d_+s \
1995 -foreground {#00a000} \
1996 -background {#e2effa}
1997 $ui_diff tag conf d_-s \
1999 -background {#e2effa}
2000 $ui_diff tag conf d_s+ \
2001 -foreground {#00a000} \
2003 $ui_diff tag conf d_s- \
2007 $ui_diff tag conf d<<<<<<< \
2008 -foreground orange \
2010 $ui_diff tag conf d======= \
2011 -foreground orange \
2013 $ui_diff tag conf d>>>>>>> \
2014 -foreground orange \
2017 $ui_diff tag raise sel
2019 # -- Diff Body Context Menu
2021 set ctxm .vpane.lower.diff.body.ctxm
2022 menu $ctxm -tearoff 0
2025 -command reshow_diff
2026 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2029 -command {tk_textCopy $ui_diff}
2030 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2032 -label {Select All} \
2033 -command {focus $ui_diff;$ui_diff tag add sel 0.0 end}
2034 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2038 $ui_diff tag add sel 0.0 end
2039 tk_textCopy $ui_diff
2040 $ui_diff tag remove sel 0.0 end
2042 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2045 -label {Apply/Reverse Hunk} \
2046 -command {apply_hunk $cursorX $cursorY}
2047 set ui_diff_applyhunk [$ctxm index last]
2048 lappend diff_actions [list $ctxm entryconf $ui_diff_applyhunk -state]
2051 -label {Decrease Font Size} \
2052 -command {incr_font_size font_diff -1}
2053 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2055 -label {Increase Font Size} \
2056 -command {incr_font_size font_diff 1}
2057 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2060 -label {Show Less Context} \
2061 -command {if {$repo_config(gui.diffcontext) >= 1} {
2062 incr repo_config(gui.diffcontext) -1
2065 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2067 -label {Show More Context} \
2068 -command {if {$repo_config(gui.diffcontext) < 99} {
2069 incr repo_config(gui.diffcontext)
2072 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2074 $ctxm add command -label {Options...} \
2076 bind_button3 $ui_diff "
2079 if {\$ui_index eq \$current_diff_side} {
2080 $ctxm entryconf $ui_diff_applyhunk -label {Unstage Hunk From Commit}
2082 $ctxm entryconf $ui_diff_applyhunk -label {Stage Hunk For Commit}
2084 tk_popup $ctxm %X %Y
2086 unset ui_diff_applyhunk
2090 label .status -textvariable ui_status_value \
2095 pack .status -anchor w -side bottom -fill x
2100 set gm $repo_config(gui.geometry)
2101 wm geometry . [lindex $gm 0]
2102 .vpane sash place 0 \
2103 [lindex [.vpane sash coord 0] 0] \
2105 .vpane.files sash place 0 \
2107 [lindex [.vpane.files sash coord 0] 1]
2113 bind $ui_comm <$M1B-Key-Return> {do_commit;break}
2114 bind $ui_comm <$M1B-Key-i> {do_add_all;break}
2115 bind $ui_comm <$M1B-Key-I> {do_add_all;break}
2116 bind $ui_comm <$M1B-Key-x> {tk_textCut %W;break}
2117 bind $ui_comm <$M1B-Key-X> {tk_textCut %W;break}
2118 bind $ui_comm <$M1B-Key-c> {tk_textCopy %W;break}
2119 bind $ui_comm <$M1B-Key-C> {tk_textCopy %W;break}
2120 bind $ui_comm <$M1B-Key-v> {tk_textPaste %W; %W see insert; break}
2121 bind $ui_comm <$M1B-Key-V> {tk_textPaste %W; %W see insert; break}
2122 bind $ui_comm <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2123 bind $ui_comm <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2125 bind $ui_diff <$M1B-Key-x> {tk_textCopy %W;break}
2126 bind $ui_diff <$M1B-Key-X> {tk_textCopy %W;break}
2127 bind $ui_diff <$M1B-Key-c> {tk_textCopy %W;break}
2128 bind $ui_diff <$M1B-Key-C> {tk_textCopy %W;break}
2129 bind $ui_diff <$M1B-Key-v> {break}
2130 bind $ui_diff <$M1B-Key-V> {break}
2131 bind $ui_diff <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2132 bind $ui_diff <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2133 bind $ui_diff <Key-Up> {catch {%W yview scroll -1 units};break}
2134 bind $ui_diff <Key-Down> {catch {%W yview scroll 1 units};break}
2135 bind $ui_diff <Key-Left> {catch {%W xview scroll -1 units};break}
2136 bind $ui_diff <Key-Right> {catch {%W xview scroll 1 units};break}
2137 bind $ui_diff <Key-k> {catch {%W yview scroll -1 units};break}
2138 bind $ui_diff <Key-j> {catch {%W yview scroll 1 units};break}
2139 bind $ui_diff <Key-h> {catch {%W xview scroll -1 units};break}
2140 bind $ui_diff <Key-l> {catch {%W xview scroll 1 units};break}
2141 bind $ui_diff <Control-Key-b> {catch {%W yview scroll -1 pages};break}
2142 bind $ui_diff <Control-Key-f> {catch {%W yview scroll 1 pages};break}
2143 bind $ui_diff <Button-1> {focus %W}
2145 if {[is_enabled branch]} {
2146 bind . <$M1B-Key-n> do_create_branch
2147 bind . <$M1B-Key-N> do_create_branch
2150 bind all <Key-F5> do_rescan
2151 bind all <$M1B-Key-r> do_rescan
2152 bind all <$M1B-Key-R> do_rescan
2153 bind . <$M1B-Key-s> do_signoff
2154 bind . <$M1B-Key-S> do_signoff
2155 bind . <$M1B-Key-i> do_add_all
2156 bind . <$M1B-Key-I> do_add_all
2157 bind . <$M1B-Key-Return> do_commit
2158 foreach i [list $ui_index $ui_workdir] {
2159 bind $i <Button-1> "toggle_or_diff $i %x %y; break"
2160 bind $i <$M1B-Button-1> "add_one_to_selection $i %x %y; break"
2161 bind $i <Shift-Button-1> "add_range_to_selection $i %x %y; break"
2165 set file_lists($ui_index) [list]
2166 set file_lists($ui_workdir) [list]
2168 wm title . "[appname] ([reponame]) [file normalize [file dirname [gitdir]]]"
2169 focus -force $ui_comm
2171 # -- Warn the user about environmental problems. Cygwin's Tcl
2172 # does *not* pass its env array onto any processes it spawns.
2173 # This means that git processes get none of our environment.
2178 set msg "Possible environment issues exist.
2180 The following environment variables are probably
2181 going to be ignored by any Git subprocess run
2185 foreach name [array names env] {
2186 switch -regexp -- $name {
2187 {^GIT_INDEX_FILE$} -
2188 {^GIT_OBJECT_DIRECTORY$} -
2189 {^GIT_ALTERNATE_OBJECT_DIRECTORIES$} -
2191 {^GIT_EXTERNAL_DIFF$} -
2195 {^GIT_CONFIG_LOCAL$} -
2196 {^GIT_(AUTHOR|COMMITTER)_DATE$} {
2197 append msg " - $name\n"
2200 {^GIT_(AUTHOR|COMMITTER)_(NAME|EMAIL)$} {
2201 append msg " - $name\n"
2203 set suggest_user $name
2207 if {$ignored_env > 0} {
2209 This is due to a known issue with the
2210 Tcl binary distributed by Cygwin."
2212 if {$suggest_user ne {}} {
2215 A good replacement for $suggest_user
2216 is placing values for the user.name and
2217 user.email settings into your personal
2223 unset ignored_env msg suggest_user name
2226 # -- Only initialize complex UI if we are going to stay running.
2228 if {[is_enabled transport]} {
2232 populate_branch_menu
2237 # -- Only suggest a gc run if we are going to stay running.
2239 if {[is_enabled multicommit]} {
2240 set object_limit 2000
2241 if {[is_Windows]} {set object_limit 200}
2242 regexp {^([0-9]+) objects,} [git count-objects] _junk objects_current
2243 if {$objects_current >= $object_limit} {
2245 "This repository currently has $objects_current loose objects.
2247 To maintain optimal performance it is strongly recommended that you compress the database when more than $object_limit loose objects exist.
2249 Compress the database now?"] eq yes} {
2253 unset object_limit _junk objects_current
2256 lock_index begin-read