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 current-branch {} {
288 set fd [open [gitdir HEAD] r]
289 if {[gets $fd ref] < 1} {
294 set pfx {ref: refs/heads/}
295 set len [string length $pfx]
296 if {[string equal -length $len $pfx $ref]} {
297 # We're on a branch. It might not exist. But
298 # HEAD looks good enough to be a branch.
300 return [string range $ref $len end]
302 # Assume this is a detached head.
308 auto_load tk_optionMenu
309 rename tk_optionMenu real__tkOptionMenu
310 proc tk_optionMenu {w varName args} {
311 set m [eval real__tkOptionMenu $w $varName $args]
312 $m configure -font font_ui
313 $w configure -font font_ui
317 ######################################################################
321 if {[catch {set _git_version [git --version]} err]} {
322 catch {wm withdraw .}
323 error_popup "Cannot determine Git version:
327 [appname] requires Git 1.5.0 or later."
330 if {![regsub {^git version } $_git_version {} _git_version]} {
331 catch {wm withdraw .}
332 error_popup "Cannot parse Git version string:\n\n$_git_version"
335 regsub {\.[0-9]+\.g[0-9a-f]+$} $_git_version {} _git_version
336 regsub {\.rc[0-9]+$} $_git_version {} _git_version
338 proc git-version {args} {
341 switch [llength $args] {
347 set op [lindex $args 0]
348 set vr [lindex $args 1]
349 set cm [package vcompare $_git_version $vr]
350 return [expr $cm $op 0]
354 set type [lindex $args 0]
355 set name [lindex $args 1]
356 set parm [lindex $args 2]
357 set body [lindex $args 3]
359 if {($type ne {proc} && $type ne {method})} {
360 error "Invalid arguments to git-version"
362 if {[llength $body] < 2 || [lindex $body end-1] ne {default}} {
363 error "Last arm of $type $name must be default"
366 foreach {op vr cb} [lrange $body 0 end-2] {
367 if {[git-version $op $vr]} {
368 return [uplevel [list $type $name $parm $cb]]
372 return [uplevel [list $type $name $parm [lindex $body end]]]
376 error "git-version >= x"
382 if {[git-version < 1.5]} {
383 catch {wm withdraw .}
384 error_popup "[appname] requires Git 1.5.0 or later.
386 You are using [git-version]:
392 ######################################################################
397 set _gitdir $env(GIT_DIR)
401 set _gitdir [git rev-parse --git-dir]
402 set _prefix [git rev-parse --show-prefix]
404 catch {wm withdraw .}
405 error_popup "Cannot find the git directory:\n\n$err"
408 if {![file isdirectory $_gitdir] && [is_Cygwin]} {
409 catch {set _gitdir [exec cygpath --unix $_gitdir]}
411 if {![file isdirectory $_gitdir]} {
412 catch {wm withdraw .}
413 error_popup "Git directory not found:\n\n$_gitdir"
416 if {[lindex [file split $_gitdir] end] ne {.git}} {
417 catch {wm withdraw .}
418 error_popup "Cannot use funny .git directory:\n\n$_gitdir"
421 if {[catch {cd [file dirname $_gitdir]} err]} {
422 catch {wm withdraw .}
423 error_popup "No working directory [file dirname $_gitdir]:\n\n$err"
426 set _reponame [lindex [file split \
427 [file normalize [file dirname $_gitdir]]] \
430 ######################################################################
434 set current_diff_path {}
435 set current_diff_side {}
436 set diff_actions [list]
437 set ui_status_value {Initializing...}
441 set MERGE_HEAD [list]
444 set current_branch {}
445 set current_diff_path {}
446 set selected_commit_type new
448 ######################################################################
456 set disable_on_lock [list]
457 set index_lock_type none
459 proc lock_index {type} {
460 global index_lock_type disable_on_lock
462 if {$index_lock_type eq {none}} {
463 set index_lock_type $type
464 foreach w $disable_on_lock {
465 uplevel #0 $w disabled
468 } elseif {$index_lock_type eq "begin-$type"} {
469 set index_lock_type $type
475 proc unlock_index {} {
476 global index_lock_type disable_on_lock
478 set index_lock_type none
479 foreach w $disable_on_lock {
484 ######################################################################
488 proc repository_state {ctvar hdvar mhvar} {
489 global current_branch
490 upvar $ctvar ct $hdvar hd $mhvar mh
494 set current_branch [current-branch]
495 if {[catch {set hd [git rev-parse --verify HEAD]}]} {
501 set merge_head [gitdir MERGE_HEAD]
502 if {[file exists $merge_head]} {
504 set fd_mh [open $merge_head r]
505 while {[gets $fd_mh line] >= 0} {
516 global PARENT empty_tree
518 set p [lindex $PARENT 0]
522 if {$empty_tree eq {}} {
523 set empty_tree [git mktree << {}]
528 proc rescan {after {honor_trustmtime 1}} {
529 global HEAD PARENT MERGE_HEAD commit_type
530 global ui_index ui_workdir ui_comm
531 global rescan_active file_states
534 if {$rescan_active > 0 || ![lock_index read]} return
536 repository_state newType newHEAD newMERGE_HEAD
537 if {[string match amend* $commit_type]
538 && $newType eq {normal}
539 && $newHEAD eq $HEAD} {
543 set MERGE_HEAD $newMERGE_HEAD
544 set commit_type $newType
547 array unset file_states
549 if {![$ui_comm edit modified]
550 || [string trim [$ui_comm get 0.0 end]] eq {}} {
551 if {[string match amend* $commit_type]} {
552 } elseif {[load_message GITGUI_MSG]} {
553 } elseif {[load_message MERGE_MSG]} {
554 } elseif {[load_message SQUASH_MSG]} {
557 $ui_comm edit modified false
560 if {[is_enabled branch]} {
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 {Rename...} \
1523 -command branch_rename::dialog
1524 lappend disable_on_lock [list .mbar.branch entryconf \
1525 [.mbar.branch index last] -state]
1527 .mbar.branch add command -label {Delete...} \
1528 -command branch_delete::dialog
1529 lappend disable_on_lock [list .mbar.branch entryconf \
1530 [.mbar.branch index last] -state]
1532 .mbar.branch add command -label {Reset...} \
1533 -command merge::reset_hard
1534 lappend disable_on_lock [list .mbar.branch entryconf \
1535 [.mbar.branch index last] -state]
1540 if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1543 .mbar.commit add radiobutton \
1544 -label {New Commit} \
1545 -command do_select_commit_type \
1546 -variable selected_commit_type \
1548 lappend disable_on_lock \
1549 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1551 .mbar.commit add radiobutton \
1552 -label {Amend Last Commit} \
1553 -command do_select_commit_type \
1554 -variable selected_commit_type \
1556 lappend disable_on_lock \
1557 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1559 .mbar.commit add separator
1561 .mbar.commit add command -label Rescan \
1562 -command do_rescan \
1564 lappend disable_on_lock \
1565 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1567 .mbar.commit add command -label {Add To Commit} \
1568 -command do_add_selection
1569 lappend disable_on_lock \
1570 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1572 .mbar.commit add command -label {Add Existing To Commit} \
1573 -command do_add_all \
1575 lappend disable_on_lock \
1576 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1578 .mbar.commit add command -label {Unstage From Commit} \
1579 -command do_unstage_selection
1580 lappend disable_on_lock \
1581 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1583 .mbar.commit add command -label {Revert Changes} \
1584 -command do_revert_selection
1585 lappend disable_on_lock \
1586 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1588 .mbar.commit add separator
1590 .mbar.commit add command -label {Sign Off} \
1591 -command do_signoff \
1594 .mbar.commit add command -label Commit \
1595 -command do_commit \
1596 -accelerator $M1T-Return
1597 lappend disable_on_lock \
1598 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1603 if {[is_enabled branch]} {
1605 .mbar.merge add command -label {Local Merge...} \
1606 -command merge::dialog
1607 lappend disable_on_lock \
1608 [list .mbar.merge entryconf [.mbar.merge index last] -state]
1609 .mbar.merge add command -label {Abort Merge...} \
1610 -command merge::reset_hard
1611 lappend disable_on_lock \
1612 [list .mbar.merge entryconf [.mbar.merge index last] -state]
1618 if {[is_enabled transport]} {
1622 .mbar.push add command -label {Push...} \
1623 -command do_push_anywhere \
1625 .mbar.push add command -label {Delete...} \
1626 -command remote_branch_delete::dialog
1630 # -- Apple Menu (Mac OS X only)
1632 .mbar add cascade -label Apple -menu .mbar.apple
1635 .mbar.apple add command -label "About [appname]" \
1637 .mbar.apple add command -label "Options..." \
1642 .mbar.edit add separator
1643 .mbar.edit add command -label {Options...} \
1648 if {[is_Cygwin] && [file exists /usr/local/miga/lib/gui-miga]} {
1650 if {![lock_index update]} return
1651 set cmd [list sh --login -c "/usr/local/miga/lib/gui-miga \"[pwd]\""]
1652 set miga_fd [open "|$cmd" r]
1653 fconfigure $miga_fd -blocking 0
1654 fileevent $miga_fd readable [list miga_done $miga_fd]
1655 ui_status {Running miga...}
1657 proc miga_done {fd} {
1665 .mbar add cascade -label Tools -menu .mbar.tools
1667 .mbar.tools add command -label "Migrate" \
1669 lappend disable_on_lock \
1670 [list .mbar.tools entryconf [.mbar.tools index last] -state]
1676 .mbar add cascade -label Help -menu .mbar.help
1680 .mbar.help add command -label "About [appname]" \
1685 catch {set browser $repo_config(instaweb.browser)}
1686 set doc_path [file dirname [gitexec]]
1687 set doc_path [file join $doc_path Documentation index.html]
1690 set doc_path [exec cygpath --mixed $doc_path]
1693 if {$browser eq {}} {
1696 } elseif {[is_Cygwin]} {
1697 set program_files [file dirname [exec cygpath --windir]]
1698 set program_files [file join $program_files {Program Files}]
1699 set firefox [file join $program_files {Mozilla Firefox} firefox.exe]
1700 set ie [file join $program_files {Internet Explorer} IEXPLORE.EXE]
1701 if {[file exists $firefox]} {
1702 set browser $firefox
1703 } elseif {[file exists $ie]} {
1706 unset program_files firefox ie
1710 if {[file isfile $doc_path]} {
1711 set doc_url "file:$doc_path"
1713 set doc_url {http://www.kernel.org/pub/software/scm/git/docs/}
1716 if {$browser ne {}} {
1717 .mbar.help add command -label {Online Documentation} \
1718 -command [list exec $browser $doc_url &]
1720 unset browser doc_path doc_url
1722 # -- Standard bindings
1724 wm protocol . WM_DELETE_WINDOW do_quit
1725 bind all <$M1B-Key-q> do_quit
1726 bind all <$M1B-Key-Q> do_quit
1727 bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}
1728 bind all <$M1B-Key-W> {destroy [winfo toplevel %W]}
1730 set subcommand_args {}
1732 puts stderr "usage: $::argv0 $::subcommand $::subcommand_args"
1736 # -- Not a normal commit type invocation? Do that instead!
1738 switch -- $subcommand {
1740 set subcommand_args {rev?}
1741 switch [llength $argv] {
1742 0 { set current_branch [current-branch] }
1743 1 { set current_branch [lindex $argv 0] }
1746 browser::new $current_branch
1750 set subcommand_args {rev? path?}
1755 if {$is_path || [file exists $_prefix$a]} {
1756 if {$path ne {}} usage
1759 } elseif {$a eq {--}} {
1761 if {$head ne {}} usage
1766 } elseif {$head eq {}} {
1767 if {$head ne {}} usage
1776 set current_branch [current-branch]
1778 set current_branch $head
1781 if {$path eq {}} usage
1782 blame::new $head $path
1787 if {[llength $argv] != 0} {
1788 puts -nonewline stderr "usage: $argv0"
1789 if {$subcommand ne {gui} && [appname] ne "git-$subcommand"} {
1790 puts -nonewline stderr " $subcommand"
1795 # fall through to setup UI for commits
1798 puts stderr "usage: $argv0 \[{blame|browser|citool}\]"
1809 -text {Current Branch:} \
1813 -textvariable current_branch \
1816 pack .branch.l1 -side left
1817 pack .branch.cb -side left -fill x
1818 pack .branch -side top -fill x
1820 # -- Main Window Layout
1822 panedwindow .vpane -orient vertical
1823 panedwindow .vpane.files -orient horizontal
1824 .vpane add .vpane.files -sticky nsew -height 100 -width 200
1825 pack .vpane -anchor n -side top -fill both -expand 1
1827 # -- Index File List
1829 frame .vpane.files.index -height 100 -width 200
1830 label .vpane.files.index.title -text {Staged Changes (Will Be Committed)} \
1831 -background lightgreen
1832 text $ui_index -background white -borderwidth 0 \
1833 -width 20 -height 10 \
1835 -cursor $cursor_ptr \
1836 -xscrollcommand {.vpane.files.index.sx set} \
1837 -yscrollcommand {.vpane.files.index.sy set} \
1839 scrollbar .vpane.files.index.sx -orient h -command [list $ui_index xview]
1840 scrollbar .vpane.files.index.sy -orient v -command [list $ui_index yview]
1841 pack .vpane.files.index.title -side top -fill x
1842 pack .vpane.files.index.sx -side bottom -fill x
1843 pack .vpane.files.index.sy -side right -fill y
1844 pack $ui_index -side left -fill both -expand 1
1845 .vpane.files add .vpane.files.index -sticky nsew
1847 # -- Working Directory File List
1849 frame .vpane.files.workdir -height 100 -width 200
1850 label .vpane.files.workdir.title -text {Unstaged Changes (Will Not Be Committed)} \
1851 -background lightsalmon
1852 text $ui_workdir -background white -borderwidth 0 \
1853 -width 20 -height 10 \
1855 -cursor $cursor_ptr \
1856 -xscrollcommand {.vpane.files.workdir.sx set} \
1857 -yscrollcommand {.vpane.files.workdir.sy set} \
1859 scrollbar .vpane.files.workdir.sx -orient h -command [list $ui_workdir xview]
1860 scrollbar .vpane.files.workdir.sy -orient v -command [list $ui_workdir yview]
1861 pack .vpane.files.workdir.title -side top -fill x
1862 pack .vpane.files.workdir.sx -side bottom -fill x
1863 pack .vpane.files.workdir.sy -side right -fill y
1864 pack $ui_workdir -side left -fill both -expand 1
1865 .vpane.files add .vpane.files.workdir -sticky nsew
1867 foreach i [list $ui_index $ui_workdir] {
1868 $i tag conf in_diff -background lightgray
1869 $i tag conf in_sel -background lightgray
1873 # -- Diff and Commit Area
1875 frame .vpane.lower -height 300 -width 400
1876 frame .vpane.lower.commarea
1877 frame .vpane.lower.diff -relief sunken -borderwidth 1
1878 pack .vpane.lower.commarea -side top -fill x
1879 pack .vpane.lower.diff -side bottom -fill both -expand 1
1880 .vpane add .vpane.lower -sticky nsew
1882 # -- Commit Area Buttons
1884 frame .vpane.lower.commarea.buttons
1885 label .vpane.lower.commarea.buttons.l -text {} \
1888 pack .vpane.lower.commarea.buttons.l -side top -fill x
1889 pack .vpane.lower.commarea.buttons -side left -fill y
1891 button .vpane.lower.commarea.buttons.rescan -text {Rescan} \
1893 pack .vpane.lower.commarea.buttons.rescan -side top -fill x
1894 lappend disable_on_lock \
1895 {.vpane.lower.commarea.buttons.rescan conf -state}
1897 button .vpane.lower.commarea.buttons.incall -text {Add Existing} \
1899 pack .vpane.lower.commarea.buttons.incall -side top -fill x
1900 lappend disable_on_lock \
1901 {.vpane.lower.commarea.buttons.incall conf -state}
1903 button .vpane.lower.commarea.buttons.signoff -text {Sign Off} \
1905 pack .vpane.lower.commarea.buttons.signoff -side top -fill x
1907 button .vpane.lower.commarea.buttons.commit -text {Commit} \
1909 pack .vpane.lower.commarea.buttons.commit -side top -fill x
1910 lappend disable_on_lock \
1911 {.vpane.lower.commarea.buttons.commit conf -state}
1913 button .vpane.lower.commarea.buttons.push -text {Push} \
1914 -command do_push_anywhere
1915 pack .vpane.lower.commarea.buttons.push -side top -fill x
1917 # -- Commit Message Buffer
1919 frame .vpane.lower.commarea.buffer
1920 frame .vpane.lower.commarea.buffer.header
1921 set ui_comm .vpane.lower.commarea.buffer.t
1922 set ui_coml .vpane.lower.commarea.buffer.header.l
1923 radiobutton .vpane.lower.commarea.buffer.header.new \
1924 -text {New Commit} \
1925 -command do_select_commit_type \
1926 -variable selected_commit_type \
1928 lappend disable_on_lock \
1929 [list .vpane.lower.commarea.buffer.header.new conf -state]
1930 radiobutton .vpane.lower.commarea.buffer.header.amend \
1931 -text {Amend Last Commit} \
1932 -command do_select_commit_type \
1933 -variable selected_commit_type \
1935 lappend disable_on_lock \
1936 [list .vpane.lower.commarea.buffer.header.amend conf -state]
1940 proc trace_commit_type {varname args} {
1941 global ui_coml commit_type
1942 switch -glob -- $commit_type {
1943 initial {set txt {Initial Commit Message:}}
1944 amend {set txt {Amended Commit Message:}}
1945 amend-initial {set txt {Amended Initial Commit Message:}}
1946 amend-merge {set txt {Amended Merge Commit Message:}}
1947 merge {set txt {Merge Commit Message:}}
1948 * {set txt {Commit Message:}}
1950 $ui_coml conf -text $txt
1952 trace add variable commit_type write trace_commit_type
1953 pack $ui_coml -side left -fill x
1954 pack .vpane.lower.commarea.buffer.header.amend -side right
1955 pack .vpane.lower.commarea.buffer.header.new -side right
1957 text $ui_comm -background white -borderwidth 1 \
1960 -autoseparators true \
1962 -width 75 -height 9 -wrap none \
1964 -yscrollcommand {.vpane.lower.commarea.buffer.sby set}
1965 scrollbar .vpane.lower.commarea.buffer.sby \
1966 -command [list $ui_comm yview]
1967 pack .vpane.lower.commarea.buffer.header -side top -fill x
1968 pack .vpane.lower.commarea.buffer.sby -side right -fill y
1969 pack $ui_comm -side left -fill y
1970 pack .vpane.lower.commarea.buffer -side left -fill y
1972 # -- Commit Message Buffer Context Menu
1974 set ctxm .vpane.lower.commarea.buffer.ctxm
1975 menu $ctxm -tearoff 0
1978 -command {tk_textCut $ui_comm}
1981 -command {tk_textCopy $ui_comm}
1984 -command {tk_textPaste $ui_comm}
1987 -command {$ui_comm delete sel.first sel.last}
1990 -label {Select All} \
1991 -command {focus $ui_comm;$ui_comm tag add sel 0.0 end}
1995 $ui_comm tag add sel 0.0 end
1996 tk_textCopy $ui_comm
1997 $ui_comm tag remove sel 0.0 end
2003 bind_button3 $ui_comm "tk_popup $ctxm %X %Y"
2007 proc trace_current_diff_path {varname args} {
2008 global current_diff_path diff_actions file_states
2009 if {$current_diff_path eq {}} {
2015 set p $current_diff_path
2016 set s [mapdesc [lindex $file_states($p) 0] $p]
2018 set p [escape_path $p]
2022 .vpane.lower.diff.header.status configure -text $s
2023 .vpane.lower.diff.header.file configure -text $f
2024 .vpane.lower.diff.header.path configure -text $p
2025 foreach w $diff_actions {
2029 trace add variable current_diff_path write trace_current_diff_path
2031 frame .vpane.lower.diff.header -background gold
2032 label .vpane.lower.diff.header.status \
2034 -width $max_status_desc \
2037 label .vpane.lower.diff.header.file \
2041 label .vpane.lower.diff.header.path \
2045 pack .vpane.lower.diff.header.status -side left
2046 pack .vpane.lower.diff.header.file -side left
2047 pack .vpane.lower.diff.header.path -fill x
2048 set ctxm .vpane.lower.diff.header.ctxm
2049 menu $ctxm -tearoff 0
2057 -- $current_diff_path
2059 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2060 bind_button3 .vpane.lower.diff.header.path "tk_popup $ctxm %X %Y"
2064 frame .vpane.lower.diff.body
2065 set ui_diff .vpane.lower.diff.body.t
2066 text $ui_diff -background white -borderwidth 0 \
2067 -width 80 -height 15 -wrap none \
2069 -xscrollcommand {.vpane.lower.diff.body.sbx set} \
2070 -yscrollcommand {.vpane.lower.diff.body.sby set} \
2072 scrollbar .vpane.lower.diff.body.sbx -orient horizontal \
2073 -command [list $ui_diff xview]
2074 scrollbar .vpane.lower.diff.body.sby -orient vertical \
2075 -command [list $ui_diff yview]
2076 pack .vpane.lower.diff.body.sbx -side bottom -fill x
2077 pack .vpane.lower.diff.body.sby -side right -fill y
2078 pack $ui_diff -side left -fill both -expand 1
2079 pack .vpane.lower.diff.header -side top -fill x
2080 pack .vpane.lower.diff.body -side bottom -fill both -expand 1
2082 $ui_diff tag conf d_cr -elide true
2083 $ui_diff tag conf d_@ -foreground blue -font font_diffbold
2084 $ui_diff tag conf d_+ -foreground {#00a000}
2085 $ui_diff tag conf d_- -foreground red
2087 $ui_diff tag conf d_++ -foreground {#00a000}
2088 $ui_diff tag conf d_-- -foreground red
2089 $ui_diff tag conf d_+s \
2090 -foreground {#00a000} \
2091 -background {#e2effa}
2092 $ui_diff tag conf d_-s \
2094 -background {#e2effa}
2095 $ui_diff tag conf d_s+ \
2096 -foreground {#00a000} \
2098 $ui_diff tag conf d_s- \
2102 $ui_diff tag conf d<<<<<<< \
2103 -foreground orange \
2105 $ui_diff tag conf d======= \
2106 -foreground orange \
2108 $ui_diff tag conf d>>>>>>> \
2109 -foreground orange \
2112 $ui_diff tag raise sel
2114 # -- Diff Body Context Menu
2116 set ctxm .vpane.lower.diff.body.ctxm
2117 menu $ctxm -tearoff 0
2120 -command reshow_diff
2121 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2124 -command {tk_textCopy $ui_diff}
2125 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2127 -label {Select All} \
2128 -command {focus $ui_diff;$ui_diff tag add sel 0.0 end}
2129 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2133 $ui_diff tag add sel 0.0 end
2134 tk_textCopy $ui_diff
2135 $ui_diff tag remove sel 0.0 end
2137 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2140 -label {Apply/Reverse Hunk} \
2141 -command {apply_hunk $cursorX $cursorY}
2142 set ui_diff_applyhunk [$ctxm index last]
2143 lappend diff_actions [list $ctxm entryconf $ui_diff_applyhunk -state]
2146 -label {Decrease Font Size} \
2147 -command {incr_font_size font_diff -1}
2148 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2150 -label {Increase Font Size} \
2151 -command {incr_font_size font_diff 1}
2152 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2155 -label {Show Less Context} \
2156 -command {if {$repo_config(gui.diffcontext) >= 1} {
2157 incr repo_config(gui.diffcontext) -1
2160 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2162 -label {Show More Context} \
2163 -command {if {$repo_config(gui.diffcontext) < 99} {
2164 incr repo_config(gui.diffcontext)
2167 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2169 $ctxm add command -label {Options...} \
2171 bind_button3 $ui_diff "
2174 if {\$ui_index eq \$current_diff_side} {
2175 $ctxm entryconf $ui_diff_applyhunk -label {Unstage Hunk From Commit}
2177 $ctxm entryconf $ui_diff_applyhunk -label {Stage Hunk For Commit}
2179 tk_popup $ctxm %X %Y
2181 unset ui_diff_applyhunk
2185 label .status -textvariable ui_status_value \
2190 pack .status -anchor w -side bottom -fill x
2195 set gm $repo_config(gui.geometry)
2196 wm geometry . [lindex $gm 0]
2197 .vpane sash place 0 \
2198 [lindex [.vpane sash coord 0] 0] \
2200 .vpane.files sash place 0 \
2202 [lindex [.vpane.files sash coord 0] 1]
2208 bind $ui_comm <$M1B-Key-Return> {do_commit;break}
2209 bind $ui_comm <$M1B-Key-i> {do_add_all;break}
2210 bind $ui_comm <$M1B-Key-I> {do_add_all;break}
2211 bind $ui_comm <$M1B-Key-x> {tk_textCut %W;break}
2212 bind $ui_comm <$M1B-Key-X> {tk_textCut %W;break}
2213 bind $ui_comm <$M1B-Key-c> {tk_textCopy %W;break}
2214 bind $ui_comm <$M1B-Key-C> {tk_textCopy %W;break}
2215 bind $ui_comm <$M1B-Key-v> {tk_textPaste %W; %W see insert; break}
2216 bind $ui_comm <$M1B-Key-V> {tk_textPaste %W; %W see insert; break}
2217 bind $ui_comm <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2218 bind $ui_comm <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2220 bind $ui_diff <$M1B-Key-x> {tk_textCopy %W;break}
2221 bind $ui_diff <$M1B-Key-X> {tk_textCopy %W;break}
2222 bind $ui_diff <$M1B-Key-c> {tk_textCopy %W;break}
2223 bind $ui_diff <$M1B-Key-C> {tk_textCopy %W;break}
2224 bind $ui_diff <$M1B-Key-v> {break}
2225 bind $ui_diff <$M1B-Key-V> {break}
2226 bind $ui_diff <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2227 bind $ui_diff <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2228 bind $ui_diff <Key-Up> {catch {%W yview scroll -1 units};break}
2229 bind $ui_diff <Key-Down> {catch {%W yview scroll 1 units};break}
2230 bind $ui_diff <Key-Left> {catch {%W xview scroll -1 units};break}
2231 bind $ui_diff <Key-Right> {catch {%W xview scroll 1 units};break}
2232 bind $ui_diff <Key-k> {catch {%W yview scroll -1 units};break}
2233 bind $ui_diff <Key-j> {catch {%W yview scroll 1 units};break}
2234 bind $ui_diff <Key-h> {catch {%W xview scroll -1 units};break}
2235 bind $ui_diff <Key-l> {catch {%W xview scroll 1 units};break}
2236 bind $ui_diff <Control-Key-b> {catch {%W yview scroll -1 pages};break}
2237 bind $ui_diff <Control-Key-f> {catch {%W yview scroll 1 pages};break}
2238 bind $ui_diff <Button-1> {focus %W}
2240 if {[is_enabled branch]} {
2241 bind . <$M1B-Key-n> branch_create::dialog
2242 bind . <$M1B-Key-N> branch_create::dialog
2244 if {[is_enabled transport]} {
2245 bind . <$M1B-Key-p> do_push_anywhere
2246 bind . <$M1B-Key-P> do_push_anywhere
2249 bind . <Key-F5> do_rescan
2250 bind . <$M1B-Key-r> do_rescan
2251 bind . <$M1B-Key-R> do_rescan
2252 bind . <$M1B-Key-s> do_signoff
2253 bind . <$M1B-Key-S> do_signoff
2254 bind . <$M1B-Key-i> do_add_all
2255 bind . <$M1B-Key-I> do_add_all
2256 bind . <$M1B-Key-Return> do_commit
2257 foreach i [list $ui_index $ui_workdir] {
2258 bind $i <Button-1> "toggle_or_diff $i %x %y; break"
2259 bind $i <$M1B-Button-1> "add_one_to_selection $i %x %y; break"
2260 bind $i <Shift-Button-1> "add_range_to_selection $i %x %y; break"
2264 set file_lists($ui_index) [list]
2265 set file_lists($ui_workdir) [list]
2267 wm title . "[appname] ([reponame]) [file normalize [file dirname [gitdir]]]"
2268 focus -force $ui_comm
2270 # -- Warn the user about environmental problems. Cygwin's Tcl
2271 # does *not* pass its env array onto any processes it spawns.
2272 # This means that git processes get none of our environment.
2277 set msg "Possible environment issues exist.
2279 The following environment variables are probably
2280 going to be ignored by any Git subprocess run
2284 foreach name [array names env] {
2285 switch -regexp -- $name {
2286 {^GIT_INDEX_FILE$} -
2287 {^GIT_OBJECT_DIRECTORY$} -
2288 {^GIT_ALTERNATE_OBJECT_DIRECTORIES$} -
2290 {^GIT_EXTERNAL_DIFF$} -
2294 {^GIT_CONFIG_LOCAL$} -
2295 {^GIT_(AUTHOR|COMMITTER)_DATE$} {
2296 append msg " - $name\n"
2299 {^GIT_(AUTHOR|COMMITTER)_(NAME|EMAIL)$} {
2300 append msg " - $name\n"
2302 set suggest_user $name
2306 if {$ignored_env > 0} {
2308 This is due to a known issue with the
2309 Tcl binary distributed by Cygwin."
2311 if {$suggest_user ne {}} {
2314 A good replacement for $suggest_user
2315 is placing values for the user.name and
2316 user.email settings into your personal
2322 unset ignored_env msg suggest_user name
2325 # -- Only initialize complex UI if we are going to stay running.
2327 if {[is_enabled transport]} {
2331 populate_branch_menu
2336 # -- Only suggest a gc run if we are going to stay running.
2338 if {[is_enabled multicommit]} {
2339 set object_limit 2000
2340 if {[is_Windows]} {set object_limit 200}
2341 regexp {^([0-9]+) objects,} [git count-objects] _junk objects_current
2342 if {$objects_current >= $object_limit} {
2344 "This repository currently has $objects_current loose objects.
2346 To maintain optimal performance it is strongly recommended that you compress the database when more than $object_limit loose objects exist.
2348 Compress the database now?"] eq yes} {
2352 unset object_limit _junk objects_current
2355 lock_index begin-read