1#!/bin/sh
2# Tcl ignores the next line -*- tcl -*- \
3 if test "z$*" = zversion \
4 || test "z$*" = z--version; \
5 then \
6 echo 'git-gui version @@GITGUI_VERSION@@'; \
7 exit; \
8 fi; \
9 exec wish "$0" -- "$@"
10set appvers {@@GITGUI_VERSION@@}
12set copyright {
13Copyright © 2006, 2007 Shawn Pearce, et. al.
14This program is free software; you can redistribute it and/or modify
16it under the terms of the GNU General Public License as published by
17the Free Software Foundation; either version 2 of the License, or
18(at your option) any later version.
19This program is distributed in the hope that it will be useful,
21but WITHOUT ANY WARRANTY; without even the implied warranty of
22MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23GNU General Public License for more details.
24You should have received a copy of the GNU General Public License
26along with this program; if not, write to the Free Software
27Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA}
28######################################################################
30##
31## Tcl/Tk sanity check
32if {[catch {package require Tcl 8.4} err]
34 || [catch {package require Tk 8.4} err]
35} {
36 catch {wm withdraw .}
37 tk_messageBox \
38 -icon error \
39 -type ok \
40 -title "git-gui: fatal error" \
41 -message $err
42 exit 1
43}
44######################################################################
46##
47## enable verbose loading?
48if {![catch {set _verbose $env(GITGUI_VERBOSE)}]} {
50 unset _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]
55 }
56 rename source real__source
57 proc source {name} {
58 puts stderr "source $name"
59 uplevel 1 real__source $name
60 }
61}
62######################################################################
64##
65## configure our library
66set oguilib {@@GITGUI_LIBDIR@@}
68set oguirel {@@GITGUI_RELATIVE@@}
69if {$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]
74}
75set idx [file join $oguilib tclIndex]
77if {[catch {set fd [open $idx r]} err]} {
78 catch {wm withdraw .}
79 tk_messageBox \
80 -icon error \
81 -type ok \
82 -title "git-gui: fatal error" \
83 -message $err
84 exit 1
85}
86if {[gets $fd] eq {# Autogenerated by git-gui Makefile}} {
87 set idx [list]
88 while {[gets $fd n] >= 0} {
89 if {$n ne {} && ![string match #* $n]} {
90 lappend idx $n
91 }
92 }
93} else {
94 set idx {}
95}
96close $fd
97if {$idx ne {}} {
99 set loaded [list]
100 foreach p $idx {
101 if {[lsearch -exact $loaded $p] >= 0} continue
102 source [file join $oguilib $p]
103 lappend loaded $p
104 }
105 unset loaded p
106} else {
107 set auto_path [concat [list $oguilib] $auto_path]
108}
109unset -nocomplain oguirel idx fd
110######################################################################
112##
113## read only globals
114set _appname [lindex [file split $argv0] end]
116set _gitdir {}
117set _gitexec {}
118set _reponame {}
119set _iscygwin {}
120set _search_path {}
121proc appname {} {
123 global _appname
124 return $_appname
125}
126proc gitdir {args} {
128 global _gitdir
129 if {$args eq {}} {
130 return $_gitdir
131 }
132 return [eval [list file join $_gitdir] $args]
133}
134proc gitexec {args} {
136 global _gitexec
137 if {$_gitexec eq {}} {
138 if {[catch {set _gitexec [git --exec-path]} err]} {
139 error "Git not installed?\n\n$err"
140 }
141 if {[is_Cygwin]} {
142 set _gitexec [exec cygpath \
143 --windows \
144 --absolute \
145 $_gitexec]
146 } else {
147 set _gitexec [file normalize $_gitexec]
148 }
149 }
150 if {$args eq {}} {
151 return $_gitexec
152 }
153 return [eval [list file join $_gitexec] $args]
154}
155proc reponame {} {
157 return $::_reponame
158}
159proc is_MacOSX {} {
161 if {[tk windowingsystem] eq {aqua}} {
162 return 1
163 }
164 return 0
165}
166proc is_Windows {} {
168 if {$::tcl_platform(platform) eq {windows}} {
169 return 1
170 }
171 return 0
172}
173proc is_Cygwin {} {
175 global _iscygwin
176 if {$_iscygwin eq {}} {
177 if {$::tcl_platform(platform) eq {windows}} {
178 if {[catch {set p [exec cygpath --windir]} err]} {
179 set _iscygwin 0
180 } else {
181 set _iscygwin 1
182 }
183 } else {
184 set _iscygwin 0
185 }
186 }
187 return $_iscygwin
188}
189proc is_enabled {option} {
191 global enabled_options
192 if {[catch {set on $enabled_options($option)}]} {return 0}
193 return $on
194}
195proc enable_option {option} {
197 global enabled_options
198 set enabled_options($option) 1
199}
200proc disable_option {option} {
202 global enabled_options
203 set enabled_options($option) 0
204}
205######################################################################
207##
208## config
209proc is_many_config {name} {
211 switch -glob -- $name {
212 remote.*.fetch -
213 remote.*.push
214 {return 1}
215 *
216 {return 0}
217 }
218}
219proc is_config_true {name} {
221 global repo_config
222 if {[catch {set v $repo_config($name)}]} {
223 return 0
224 } elseif {$v eq {true} || $v eq {1} || $v eq {yes}} {
225 return 1
226 } else {
227 return 0
228 }
229}
230proc get_config {name} {
232 global repo_config
233 if {[catch {set v $repo_config($name)}]} {
234 return {}
235 } else {
236 return $v
237 }
238}
239proc load_config {include_global} {
241 global repo_config global_config default_config
242 array unset global_config
244 if {$include_global} {
245 catch {
246 set fd_rc [git_read config --global --list]
247 while {[gets $fd_rc line] >= 0} {
248 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
249 if {[is_many_config $name]} {
250 lappend global_config($name) $value
251 } else {
252 set global_config($name) $value
253 }
254 }
255 }
256 close $fd_rc
257 }
258 }
259 array unset repo_config
261 catch {
262 set fd_rc [git_read config --list]
263 while {[gets $fd_rc line] >= 0} {
264 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
265 if {[is_many_config $name]} {
266 lappend repo_config($name) $value
267 } else {
268 set repo_config($name) $value
269 }
270 }
271 }
272 close $fd_rc
273 }
274 foreach name [array names default_config] {
276 if {[catch {set v $global_config($name)}]} {
277 set global_config($name) $default_config($name)
278 }
279 if {[catch {set v $repo_config($name)}]} {
280 set repo_config($name) $default_config($name)
281 }
282 }
283}
284######################################################################
286##
287## handy utils
288proc _git_cmd {name} {
290 global _git_cmd_path
291 if {[catch {set v $_git_cmd_path($name)}]} {
293 switch -- $name {
294 version -
295 --version -
296 --exec-path { return [list $::_git $name] }
297 }
298 set p [gitexec git-$name$::_search_exe]
300 if {[file exists $p]} {
301 set v [list $p]
302 } elseif {[is_Windows] && [file exists [gitexec git-$name]]} {
303 # Try to determine what sort of magic will make
304 # git-$name go and do its thing, because native
305 # Tcl on Windows doesn't know it.
306 #
307 set p [gitexec git-$name]
308 set f [open $p r]
309 set s [gets $f]
310 close $f
311 switch -glob -- $s {
313 #!*sh { set i sh }
314 #!*perl { set i perl }
315 #!*python { set i python }
316 default { error "git-$name is not supported: $s" }
317 }
318 upvar #0 _$i interp
320 if {![info exists interp]} {
321 set interp [_which $i]
322 }
323 if {$interp eq {}} {
324 error "git-$name requires $i (not in PATH)"
325 }
326 set v [list $interp $p]
327 } else {
328 # Assume it is builtin to git somehow and we
329 # aren't actually able to see a file for it.
330 #
331 set v [list $::_git $name]
332 }
333 set _git_cmd_path($name) $v
334 }
335 return $v
336}
337proc _which {what} {
339 global env _search_exe _search_path
340 if {$_search_path eq {}} {
342 if {[is_Cygwin]} {
343 set _search_path [split [exec cygpath \
344 --windows \
345 --path \
346 --absolute \
347 $env(PATH)] {;}]
348 set _search_exe .exe
349 } elseif {[is_Windows]} {
350 set _search_path [split $env(PATH) {;}]
351 set _search_exe .exe
352 } else {
353 set _search_path [split $env(PATH) :]
354 set _search_exe {}
355 }
356 }
357 foreach p $_search_path {
359 set p [file join $p $what$_search_exe]
360 if {[file exists $p]} {
361 return [file normalize $p]
362 }
363 }
364 return {}
365}
366proc _lappend_nice {cmd_var} {
368 global _nice
369 upvar $cmd_var cmd
370 if {![info exists _nice]} {
372 set _nice [_which nice]
373 }
374 if {$_nice ne {}} {
375 lappend cmd $_nice
376 }
377}
378proc git {args} {
380 set opt [list exec]
381 while {1} {
383 switch -- [lindex $args 0] {
384 --nice {
385 _lappend_nice opt
386 }
387 default {
389 break
390 }
391 }
393 set args [lrange $args 1 end]
395 }
396 set cmdp [_git_cmd [lindex $args 0]]
398 set args [lrange $args 1 end]
399 return [eval $opt $cmdp $args]
401}
402proc _open_stdout_stderr {cmd} {
404 if {[catch {
405 set fd [open $cmd r]
406 } err]} {
407 if { [lindex $cmd end] eq {2>@1}
408 && $err eq {can not find channel named "1"}
409 } {
410 # Older versions of Tcl 8.4 don't have this 2>@1 IO
411 # redirect operator. Fallback to |& cat for those.
412 # The command was not actually started, so its safe
413 # to try to start it a second time.
414 #
415 set fd [open [concat \
416 [lrange $cmd 0 end-1] \
417 [list |& cat] \
418 ] r]
419 } else {
420 error $err
421 }
422 }
423 fconfigure $fd -eofchar {}
424 return $fd
425}
426proc git_read {args} {
428 set opt [list |]
429 while {1} {
431 switch -- [lindex $args 0] {
432 --nice {
433 _lappend_nice opt
434 }
435 --stderr {
437 lappend args 2>@1
438 }
439 default {
441 break
442 }
443 }
445 set args [lrange $args 1 end]
447 }
448 set cmdp [_git_cmd [lindex $args 0]]
450 set args [lrange $args 1 end]
451 return [_open_stdout_stderr [concat $opt $cmdp $args]]
453}
454proc git_write {args} {
456 set opt [list |]
457 while {1} {
459 switch -- [lindex $args 0] {
460 --nice {
461 _lappend_nice opt
462 }
463 default {
465 break
466 }
467 }
469 set args [lrange $args 1 end]
471 }
472 set cmdp [_git_cmd [lindex $args 0]]
474 set args [lrange $args 1 end]
475 return [open [concat $opt $cmdp $args] w]
477}
478proc sq {value} {
480 regsub -all ' $value "'\\''" value
481 return "'$value'"
482}
483proc load_current_branch {} {
485 global current_branch is_detached
486 set fd [open [gitdir HEAD] r]
488 if {[gets $fd ref] < 1} {
489 set ref {}
490 }
491 close $fd
492 set pfx {ref: refs/heads/}
494 set len [string length $pfx]
495 if {[string equal -length $len $pfx $ref]} {
496 # We're on a branch. It might not exist. But
497 # HEAD looks good enough to be a branch.
498 #
499 set current_branch [string range $ref $len end]
500 set is_detached 0
501 } else {
502 # Assume this is a detached head.
503 #
504 set current_branch HEAD
505 set is_detached 1
506 }
507}
508auto_load tk_optionMenu
510rename tk_optionMenu real__tkOptionMenu
511proc tk_optionMenu {w varName args} {
512 set m [eval real__tkOptionMenu $w $varName $args]
513 $m configure -font font_ui
514 $w configure -font font_ui
515 return $m
516}
517######################################################################
519##
520## find git
521set _git [_which git]
523if {$_git eq {}} {
524 catch {wm withdraw .}
525 error_popup "Cannot find git in PATH."
526 exit 1
527}
528######################################################################
530##
531## version check
532if {[catch {set _git_version [git --version]} err]} {
534 catch {wm withdraw .}
535 error_popup "Cannot determine Git version:
536$err
538[appname] requires Git 1.5.0 or later."
540 exit 1
541}
542if {![regsub {^git version } $_git_version {} _git_version]} {
543 catch {wm withdraw .}
544 error_popup "Cannot parse Git version string:\n\n$_git_version"
545 exit 1
546}
547set _real_git_version $_git_version
549regsub -- {-dirty$} $_git_version {} _git_version
550regsub {\.[0-9]+\.g[0-9a-f]+$} $_git_version {} _git_version
551regsub {\.rc[0-9]+$} $_git_version {} _git_version
552regsub {\.GIT$} $_git_version {} _git_version
553if {![regexp {^[1-9]+(\.[0-9]+)+$} $_git_version]} {
555 catch {wm withdraw .}
556 if {[tk_messageBox \
557 -icon warning \
558 -type yesno \
559 -default no \
560 -title "[appname]: warning" \
561 -message "Git version cannot be determined.
562$_git claims it is version '$_real_git_version'.
564[appname] requires at least Git 1.5.0 or later.
566Assume '$_real_git_version' is version 1.5.0?
568"] eq {yes}} {
569 set _git_version 1.5.0
570 } else {
571 exit 1
572 }
573}
574unset _real_git_version
575proc git-version {args} {
577 global _git_version
578 switch [llength $args] {
580 0 {
581 return $_git_version
582 }
583 2 {
585 set op [lindex $args 0]
586 set vr [lindex $args 1]
587 set cm [package vcompare $_git_version $vr]
588 return [expr $cm $op 0]
589 }
590 4 {
592 set type [lindex $args 0]
593 set name [lindex $args 1]
594 set parm [lindex $args 2]
595 set body [lindex $args 3]
596 if {($type ne {proc} && $type ne {method})} {
598 error "Invalid arguments to git-version"
599 }
600 if {[llength $body] < 2 || [lindex $body end-1] ne {default}} {
601 error "Last arm of $type $name must be default"
602 }
603 foreach {op vr cb} [lrange $body 0 end-2] {
605 if {[git-version $op $vr]} {
606 return [uplevel [list $type $name $parm $cb]]
607 }
608 }
609 return [uplevel [list $type $name $parm [lindex $body end]]]
611 }
612 default {
614 error "git-version >= x"
615 }
616 }
618}
619if {[git-version < 1.5]} {
621 catch {wm withdraw .}
622 error_popup "[appname] requires Git 1.5.0 or later.
623You are using [git-version]:
625[git --version]"
627 exit 1
628}
629######################################################################
631##
632## feature option selection
633if {[regexp {^git-(.+)$} [appname] _junk subcommand]} {
635 unset _junk
636} else {
637 set subcommand gui
638}
639if {$subcommand eq {gui.sh}} {
640 set subcommand gui
641}
642if {$subcommand eq {gui} && [llength $argv] > 0} {
643 set subcommand [lindex $argv 0]
644 set argv [lrange $argv 1 end]
645}
646enable_option multicommit
648enable_option branch
649enable_option transport
650disable_option bare
651switch -- $subcommand {
653browser -
654blame {
655 enable_option bare
656 disable_option multicommit
658 disable_option branch
659 disable_option transport
660}
661citool {
662 enable_option singlecommit
663 disable_option multicommit
665 disable_option branch
666 disable_option transport
667}
668}
669######################################################################
671##
672## repository setup
673if {[catch {
675 set _gitdir $env(GIT_DIR)
676 set _prefix {}
677 }]
678 && [catch {
679 set _gitdir [git rev-parse --git-dir]
680 set _prefix [git rev-parse --show-prefix]
681 } err]} {
682 catch {wm withdraw .}
683 error_popup "Cannot find the git directory:\n\n$err"
684 exit 1
685}
686if {![file isdirectory $_gitdir] && [is_Cygwin]} {
687 catch {set _gitdir [exec cygpath --unix $_gitdir]}
688}
689if {![file isdirectory $_gitdir]} {
690 catch {wm withdraw .}
691 error_popup "Git directory not found:\n\n$_gitdir"
692 exit 1
693}
694if {![is_enabled bare]} {
695 if {[lindex [file split $_gitdir] end] ne {.git}} {
696 catch {wm withdraw .}
697 error_popup "Cannot use funny .git directory:\n\n$_gitdir"
698 exit 1
699 }
700 if {[catch {cd [file dirname $_gitdir]} err]} {
701 catch {wm withdraw .}
702 error_popup "No working directory [file dirname $_gitdir]:\n\n$err"
703 exit 1
704 }
705}
706set _reponame [file split [file normalize $_gitdir]]
707if {[lindex $_reponame end] eq {.git}} {
708 set _reponame [lindex $_reponame end-1]
709} else {
710 set _reponame [lindex $_reponame end]
711}
712######################################################################
714##
715## global init
716set current_diff_path {}
718set current_diff_side {}
719set diff_actions [list]
720set HEAD {}
722set PARENT {}
723set MERGE_HEAD [list]
724set commit_type {}
725set empty_tree {}
726set current_branch {}
727set is_detached 0
728set current_diff_path {}
729set selected_commit_type new
730######################################################################
732##
733## task management
734set rescan_active 0
736set diff_active 0
737set last_clicked {}
738set disable_on_lock [list]
740set index_lock_type none
741proc lock_index {type} {
743 global index_lock_type disable_on_lock
744 if {$index_lock_type eq {none}} {
746 set index_lock_type $type
747 foreach w $disable_on_lock {
748 uplevel #0 $w disabled
749 }
750 return 1
751 } elseif {$index_lock_type eq "begin-$type"} {
752 set index_lock_type $type
753 return 1
754 }
755 return 0
756}
757proc unlock_index {} {
759 global index_lock_type disable_on_lock
760 set index_lock_type none
762 foreach w $disable_on_lock {
763 uplevel #0 $w normal
764 }
765}
766######################################################################
768##
769## status
770proc repository_state {ctvar hdvar mhvar} {
772 global current_branch
773 upvar $ctvar ct $hdvar hd $mhvar mh
774 set mh [list]
776 load_current_branch
778 if {[catch {set hd [git rev-parse --verify HEAD]}]} {
779 set hd {}
780 set ct initial
781 return
782 }
783 set merge_head [gitdir MERGE_HEAD]
785 if {[file exists $merge_head]} {
786 set ct merge
787 set fd_mh [open $merge_head r]
788 while {[gets $fd_mh line] >= 0} {
789 lappend mh $line
790 }
791 close $fd_mh
792 return
793 }
794 set ct normal
796}
797proc PARENT {} {
799 global PARENT empty_tree
800 set p [lindex $PARENT 0]
802 if {$p ne {}} {
803 return $p
804 }
805 if {$empty_tree eq {}} {
806 set empty_tree [git mktree << {}]
807 }
808 return $empty_tree
809}
810proc rescan {after {honor_trustmtime 1}} {
812 global HEAD PARENT MERGE_HEAD commit_type
813 global ui_index ui_workdir ui_comm
814 global rescan_active file_states
815 global repo_config
816 if {$rescan_active > 0 || ![lock_index read]} return
818 repository_state newType newHEAD newMERGE_HEAD
820 if {[string match amend* $commit_type]
821 && $newType eq {normal}
822 && $newHEAD eq $HEAD} {
823 } else {
824 set HEAD $newHEAD
825 set PARENT $newHEAD
826 set MERGE_HEAD $newMERGE_HEAD
827 set commit_type $newType
828 }
829 array unset file_states
831 if {!$::GITGUI_BCK_exists &&
833 (![$ui_comm edit modified]
834 || [string trim [$ui_comm get 0.0 end]] eq {})} {
835 if {[string match amend* $commit_type]} {
836 } elseif {[load_message GITGUI_MSG]} {
837 } elseif {[load_message MERGE_MSG]} {
838 } elseif {[load_message SQUASH_MSG]} {
839 }
840 $ui_comm edit reset
841 $ui_comm edit modified false
842 }
843 if {$honor_trustmtime && $repo_config(gui.trustmtime) eq {true}} {
845 rescan_stage2 {} $after
846 } else {
847 set rescan_active 1
848 ui_status {Refreshing file status...}
849 set fd_rf [git_read update-index \
850 -q \
851 --unmerged \
852 --ignore-missing \
853 --refresh \
854 ]
855 fconfigure $fd_rf -blocking 0 -translation binary
856 fileevent $fd_rf readable \
857 [list rescan_stage2 $fd_rf $after]
858 }
859}
860proc rescan_stage2 {fd after} {
862 global rescan_active buf_rdi buf_rdf buf_rlo
863 if {$fd ne {}} {
865 read $fd
866 if {![eof $fd]} return
867 close $fd
868 }
869 set ls_others [list --exclude-per-directory=.gitignore]
871 set info_exclude [gitdir info exclude]
872 if {[file readable $info_exclude]} {
873 lappend ls_others "--exclude-from=$info_exclude"
874 }
875 set user_exclude [get_config core.excludesfile]
876 if {$user_exclude ne {} && [file readable $user_exclude]} {
877 lappend ls_others "--exclude-from=$user_exclude"
878 }
879 set buf_rdi {}
881 set buf_rdf {}
882 set buf_rlo {}
883 set rescan_active 3
885 ui_status {Scanning for modified files ...}
886 set fd_di [git_read diff-index --cached -z [PARENT]]
887 set fd_df [git_read diff-files -z]
888 set fd_lo [eval git_read ls-files --others -z $ls_others]
889 fconfigure $fd_di -blocking 0 -translation binary -encoding binary
891 fconfigure $fd_df -blocking 0 -translation binary -encoding binary
892 fconfigure $fd_lo -blocking 0 -translation binary -encoding binary
893 fileevent $fd_di readable [list read_diff_index $fd_di $after]
894 fileevent $fd_df readable [list read_diff_files $fd_df $after]
895 fileevent $fd_lo readable [list read_ls_others $fd_lo $after]
896}
897proc load_message {file} {
899 global ui_comm
900 set f [gitdir $file]
902 if {[file isfile $f]} {
903 if {[catch {set fd [open $f r]}]} {
904 return 0
905 }
906 fconfigure $fd -eofchar {}
907 set content [string trim [read $fd]]
908 close $fd
909 regsub -all -line {[ \r\t]+$} $content {} content
910 $ui_comm delete 0.0 end
911 $ui_comm insert end $content
912 return 1
913 }
914 return 0
915}
916proc read_diff_index {fd after} {
918 global buf_rdi
919 append buf_rdi [read $fd]
921 set c 0
922 set n [string length $buf_rdi]
923 while {$c < $n} {
924 set z1 [string first "\0" $buf_rdi $c]
925 if {$z1 == -1} break
926 incr z1
927 set z2 [string first "\0" $buf_rdi $z1]
928 if {$z2 == -1} break
929 incr c
931 set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
932 set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
933 merge_state \
934 [encoding convertfrom $p] \
935 [lindex $i 4]? \
936 [list [lindex $i 0] [lindex $i 2]] \
937 [list]
938 set c $z2
939 incr c
940 }
941 if {$c < $n} {
942 set buf_rdi [string range $buf_rdi $c end]
943 } else {
944 set buf_rdi {}
945 }
946 rescan_done $fd buf_rdi $after
948}
949proc read_diff_files {fd after} {
951 global buf_rdf
952 append buf_rdf [read $fd]
954 set c 0
955 set n [string length $buf_rdf]
956 while {$c < $n} {
957 set z1 [string first "\0" $buf_rdf $c]
958 if {$z1 == -1} break
959 incr z1
960 set z2 [string first "\0" $buf_rdf $z1]
961 if {$z2 == -1} break
962 incr c
964 set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
965 set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
966 merge_state \
967 [encoding convertfrom $p] \
968 ?[lindex $i 4] \
969 [list] \
970 [list [lindex $i 0] [lindex $i 2]]
971 set c $z2
972 incr c
973 }
974 if {$c < $n} {
975 set buf_rdf [string range $buf_rdf $c end]
976 } else {
977 set buf_rdf {}
978 }
979 rescan_done $fd buf_rdf $after
981}
982proc read_ls_others {fd after} {
984 global buf_rlo
985 append buf_rlo [read $fd]
987 set pck [split $buf_rlo "\0"]
988 set buf_rlo [lindex $pck end]
989 foreach p [lrange $pck 0 end-1] {
990 merge_state [encoding convertfrom $p] ?O
991 }
992 rescan_done $fd buf_rlo $after
993}
994proc rescan_done {fd buf after} {
996 global rescan_active current_diff_path
997 global file_states repo_config
998 upvar $buf to_clear
999 if {![eof $fd]} return
1001 set to_clear {}
1002 close $fd
1003 if {[incr rescan_active -1] > 0} return
1004 prune_selection
1006 unlock_index
1007 display_all_files
1008 if {$current_diff_path ne {}} reshow_diff
1009 uplevel #0 $after
1010}
1011proc prune_selection {} {
1013 global file_states selected_paths
1014 foreach path [array names selected_paths] {
1016 if {[catch {set still_here $file_states($path)}]} {
1017 unset selected_paths($path)
1018 }
1019 }
1020}
1021######################################################################
1023##
1024## ui helpers
1025proc mapicon {w state path} {
1027 global all_icons
1028 if {[catch {set r $all_icons($state$w)}]} {
1030 puts "error: no icon for $w state={$state} $path"
1031 return file_plain
1032 }
1033 return $r
1034}
1035proc mapdesc {state path} {
1037 global all_descs
1038 if {[catch {set r $all_descs($state)}]} {
1040 puts "error: no desc for state={$state} $path"
1041 return $state
1042 }
1043 return $r
1044}
1045proc ui_status {msg} {
1047 $::main_status show $msg
1048}
1049proc ui_ready {{test {}}} {
1051 $::main_status show {Ready.} $test
1052}
1053proc escape_path {path} {
1055 regsub -all {\\} $path "\\\\" path
1056 regsub -all "\n" $path "\\n" path
1057 return $path
1058}
1059proc short_path {path} {
1061 return [escape_path [lindex [file split $path] end]]
1062}
1063set next_icon_id 0
1065set null_sha1 [string repeat 0 40]
1066proc merge_state {path new_state {head_info {}} {index_info {}}} {
1068 global file_states next_icon_id null_sha1
1069 set s0 [string index $new_state 0]
1071 set s1 [string index $new_state 1]
1072 if {[catch {set info $file_states($path)}]} {
1074 set state __
1075 set icon n[incr next_icon_id]
1076 } else {
1077 set state [lindex $info 0]
1078 set icon [lindex $info 1]
1079 if {$head_info eq {}} {set head_info [lindex $info 2]}
1080 if {$index_info eq {}} {set index_info [lindex $info 3]}
1081 }
1082 if {$s0 eq {?}} {set s0 [string index $state 0]} \
1084 elseif {$s0 eq {_}} {set s0 _}
1085 if {$s1 eq {?}} {set s1 [string index $state 1]} \
1087 elseif {$s1 eq {_}} {set s1 _}
1088 if {$s0 eq {A} && $s1 eq {_} && $head_info eq {}} {
1090 set head_info [list 0 $null_sha1]
1091 } elseif {$s0 ne {_} && [string index $state 0] eq {_}
1092 && $head_info eq {}} {
1093 set head_info $index_info
1094 }
1095 set file_states($path) [list $s0$s1 $icon \
1097 $head_info $index_info \
1098 ]
1099 return $state
1100}
1101proc display_file_helper {w path icon_name old_m new_m} {
1103 global file_lists
1104 if {$new_m eq {_}} {
1106 set lno [lsearch -sorted -exact $file_lists($w) $path]
1107 if {$lno >= 0} {
1108 set file_lists($w) [lreplace $file_lists($w) $lno $lno]
1109 incr lno
1110 $w conf -state normal
1111 $w delete $lno.0 [expr {$lno + 1}].0
1112 $w conf -state disabled
1113 }
1114 } elseif {$old_m eq {_} && $new_m ne {_}} {
1115 lappend file_lists($w) $path
1116 set file_lists($w) [lsort -unique $file_lists($w)]
1117 set lno [lsearch -sorted -exact $file_lists($w) $path]
1118 incr lno
1119 $w conf -state normal
1120 $w image create $lno.0 \
1121 -align center -padx 5 -pady 1 \
1122 -name $icon_name \
1123 -image [mapicon $w $new_m $path]
1124 $w insert $lno.1 "[escape_path $path]\n"
1125 $w conf -state disabled
1126 } elseif {$old_m ne $new_m} {
1127 $w conf -state normal
1128 $w image conf $icon_name -image [mapicon $w $new_m $path]
1129 $w conf -state disabled
1130 }
1131}
1132proc display_file {path state} {
1134 global file_states selected_paths
1135 global ui_index ui_workdir
1136 set old_m [merge_state $path $state]
1138 set s $file_states($path)
1139 set new_m [lindex $s 0]
1140 set icon_name [lindex $s 1]
1141 set o [string index $old_m 0]
1143 set n [string index $new_m 0]
1144 if {$o eq {U}} {
1145 set o _
1146 }
1147 if {$n eq {U}} {
1148 set n _
1149 }
1150 display_file_helper $ui_index $path $icon_name $o $n
1151 if {[string index $old_m 0] eq {U}} {
1153 set o U
1154 } else {
1155 set o [string index $old_m 1]
1156 }
1157 if {[string index $new_m 0] eq {U}} {
1158 set n U
1159 } else {
1160 set n [string index $new_m 1]
1161 }
1162 display_file_helper $ui_workdir $path $icon_name $o $n
1163 if {$new_m eq {__}} {
1165 unset file_states($path)
1166 catch {unset selected_paths($path)}
1167 }
1168}
1169proc display_all_files_helper {w path icon_name m} {
1171 global file_lists
1172 lappend file_lists($w) $path
1174 set lno [expr {[lindex [split [$w index end] .] 0] - 1}]
1175 $w image create end \
1176 -align center -padx 5 -pady 1 \
1177 -name $icon_name \
1178 -image [mapicon $w $m $path]
1179 $w insert end "[escape_path $path]\n"
1180}
1181proc display_all_files {} {
1183 global ui_index ui_workdir
1184 global file_states file_lists
1185 global last_clicked
1186 $ui_index conf -state normal
1188 $ui_workdir conf -state normal
1189 $ui_index delete 0.0 end
1191 $ui_workdir delete 0.0 end
1192 set last_clicked {}
1193 set file_lists($ui_index) [list]
1195 set file_lists($ui_workdir) [list]
1196 foreach path [lsort [array names file_states]] {
1198 set s $file_states($path)
1199 set m [lindex $s 0]
1200 set icon_name [lindex $s 1]
1201 set s [string index $m 0]
1203 if {$s ne {U} && $s ne {_}} {
1204 display_all_files_helper $ui_index $path \
1205 $icon_name $s
1206 }
1207 if {[string index $m 0] eq {U}} {
1209 set s U
1210 } else {
1211 set s [string index $m 1]
1212 }
1213 if {$s ne {_}} {
1214 display_all_files_helper $ui_workdir $path \
1215 $icon_name $s
1216 }
1217 }
1218 $ui_index conf -state disabled
1220 $ui_workdir conf -state disabled
1221}
1222######################################################################
1224##
1225## icons
1226set filemask {
1228#define mask_width 14
1229#define mask_height 15
1230static unsigned char mask_bits[] = {
1231 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
1232 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
1233 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
1234}
1235image create bitmap file_plain -background white -foreground black -data {
1237#define plain_width 14
1238#define plain_height 15
1239static unsigned char plain_bits[] = {
1240 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
1241 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
1242 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1243} -maskdata $filemask
1244image create bitmap file_mod -background white -foreground blue -data {
1246#define mod_width 14
1247#define mod_height 15
1248static unsigned char mod_bits[] = {
1249 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
1250 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
1251 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
1252} -maskdata $filemask
1253image create bitmap file_fulltick -background white -foreground "#007000" -data {
1255#define file_fulltick_width 14
1256#define file_fulltick_height 15
1257static unsigned char file_fulltick_bits[] = {
1258 0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
1259 0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
1260 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1261} -maskdata $filemask
1262image create bitmap file_parttick -background white -foreground "#005050" -data {
1264#define parttick_width 14
1265#define parttick_height 15
1266static unsigned char parttick_bits[] = {
1267 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
1268 0x7a, 0x14, 0x02, 0x16, 0x02, 0x13, 0x8a, 0x11, 0xda, 0x10, 0x72, 0x10,
1269 0x22, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1270} -maskdata $filemask
1271image create bitmap file_question -background white -foreground black -data {
1273#define file_question_width 14
1274#define file_question_height 15
1275static unsigned char file_question_bits[] = {
1276 0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
1277 0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
1278 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1279} -maskdata $filemask
1280image create bitmap file_removed -background white -foreground red -data {
1282#define file_removed_width 14
1283#define file_removed_height 15
1284static unsigned char file_removed_bits[] = {
1285 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
1286 0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
1287 0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
1288} -maskdata $filemask
1289image create bitmap file_merge -background white -foreground blue -data {
1291#define file_merge_width 14
1292#define file_merge_height 15
1293static unsigned char file_merge_bits[] = {
1294 0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
1295 0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
1296 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
1297} -maskdata $filemask
1298set ui_index .vpane.files.index.list
1300set ui_workdir .vpane.files.workdir.list
1301set all_icons(_$ui_index) file_plain
1303set all_icons(A$ui_index) file_fulltick
1304set all_icons(M$ui_index) file_fulltick
1305set all_icons(D$ui_index) file_removed
1306set all_icons(U$ui_index) file_merge
1307set all_icons(_$ui_workdir) file_plain
1309set all_icons(M$ui_workdir) file_mod
1310set all_icons(D$ui_workdir) file_question
1311set all_icons(U$ui_workdir) file_merge
1312set all_icons(O$ui_workdir) file_plain
1313set max_status_desc 0
1315foreach i {
1316 {__ "Unmodified"}
1317 {_M "Modified, not staged"}
1319 {M_ "Staged for commit"}
1320 {MM "Portions staged for commit"}
1321 {MD "Staged for commit, missing"}
1322 {_O "Untracked, not staged"}
1324 {A_ "Staged for commit"}
1325 {AM "Portions staged for commit"}
1326 {AD "Staged for commit, missing"}
1327 {_D "Missing"}
1329 {D_ "Staged for removal"}
1330 {DO "Staged for removal, still present"}
1331 {U_ "Requires merge resolution"}
1333 {UU "Requires merge resolution"}
1334 {UM "Requires merge resolution"}
1335 {UD "Requires merge resolution"}
1336 } {
1337 if {$max_status_desc < [string length [lindex $i 1]]} {
1338 set max_status_desc [string length [lindex $i 1]]
1339 }
1340 set all_descs([lindex $i 0]) [lindex $i 1]
1341}
1342unset i
1343######################################################################
1345##
1346## util
1347proc bind_button3 {w cmd} {
1349 bind $w <Any-Button-3> $cmd
1350 if {[is_MacOSX]} {
1351 bind $w <Control-Button-1> $cmd
1352 }
1353}
1354proc scrollbar2many {list mode args} {
1356 foreach w $list {eval $w $mode $args}
1357}
1358proc many2scrollbar {list mode sb top bottom} {
1360 $sb set $top $bottom
1361 foreach w $list {$w $mode moveto $top}
1362}
1363proc incr_font_size {font {amt 1}} {
1365 set sz [font configure $font -size]
1366 incr sz $amt
1367 font configure $font -size $sz
1368 font configure ${font}bold -size $sz
1369 font configure ${font}italic -size $sz
1370}
1371######################################################################
1373##
1374## ui commands
1375set starting_gitk_msg {Starting gitk... please wait...}
1377proc do_gitk {revs} {
1379 # -- Always start gitk through whatever we were loaded with. This
1380 # lets us bypass using shell process on Windows systems.
1381 #
1382 set exe [file join [file dirname $::_git] gitk]
1383 set cmd [list [info nameofexecutable] $exe]
1384 if {! [file exists $exe]} {
1385 error_popup "Unable to start gitk:\n\n$exe does not exist"
1386 } else {
1387 eval exec $cmd $revs &
1388 ui_status $::starting_gitk_msg
1389 after 10000 {
1390 ui_ready $starting_gitk_msg
1391 }
1392 }
1393}
1394set is_quitting 0
1396proc do_quit {} {
1398 global ui_comm is_quitting repo_config commit_type
1399 global GITGUI_BCK_exists GITGUI_BCK_i
1400 if {$is_quitting} return
1402 set is_quitting 1
1403 if {[winfo exists $ui_comm]} {
1405 # -- Stash our current commit buffer.
1406 #
1407 set save [gitdir GITGUI_MSG]
1408 if {$GITGUI_BCK_exists && ![$ui_comm edit modified]} {
1409 file rename -force [gitdir GITGUI_BCK] $save
1410 set GITGUI_BCK_exists 0
1411 } else {
1412 set msg [string trim [$ui_comm get 0.0 end]]
1413 regsub -all -line {[ \r\t]+$} $msg {} msg
1414 if {(![string match amend* $commit_type]
1415 || [$ui_comm edit modified])
1416 && $msg ne {}} {
1417 catch {
1418 set fd [open $save w]
1419 puts -nonewline $fd $msg
1420 close $fd
1421 }
1422 } else {
1423 catch {file delete $save}
1424 }
1425 }
1426 # -- Remove our editor backup, its not needed.
1428 #
1429 after cancel $GITGUI_BCK_i
1430 if {$GITGUI_BCK_exists} {
1431 catch {file delete [gitdir GITGUI_BCK]}
1432 }
1433 # -- Stash our current window geometry into this repository.
1435 #
1436 set cfg_geometry [list]
1437 lappend cfg_geometry [wm geometry .]
1438 lappend cfg_geometry [lindex [.vpane sash coord 0] 1]
1439 lappend cfg_geometry [lindex [.vpane.files sash coord 0] 0]
1440 if {[catch {set rc_geometry $repo_config(gui.geometry)}]} {
1441 set rc_geometry {}
1442 }
1443 if {$cfg_geometry ne $rc_geometry} {
1444 catch {git config gui.geometry $cfg_geometry}
1445 }
1446 }
1447 destroy .
1449}
1450proc do_rescan {} {
1452 rescan ui_ready
1453}
1454proc do_commit {} {
1456 commit_tree
1457}
1458proc toggle_or_diff {w x y} {
1460 global file_states file_lists current_diff_path ui_index ui_workdir
1461 global last_clicked selected_paths
1462 set pos [split [$w index @$x,$y] .]
1464 set lno [lindex $pos 0]
1465 set col [lindex $pos 1]
1466 set path [lindex $file_lists($w) [expr {$lno - 1}]]
1467 if {$path eq {}} {
1468 set last_clicked {}
1469 return
1470 }
1471 set last_clicked [list $w $lno]
1473 array unset selected_paths
1474 $ui_index tag remove in_sel 0.0 end
1475 $ui_workdir tag remove in_sel 0.0 end
1476 if {$col == 0} {
1478 if {$current_diff_path eq $path} {
1479 set after {reshow_diff;}
1480 } else {
1481 set after {}
1482 }
1483 if {$w eq $ui_index} {
1484 update_indexinfo \
1485 "Unstaging [short_path $path] from commit" \
1486 [list $path] \
1487 [concat $after [list ui_ready]]
1488 } elseif {$w eq $ui_workdir} {
1489 update_index \
1490 "Adding [short_path $path]" \
1491 [list $path] \
1492 [concat $after [list ui_ready]]
1493 }
1494 } else {
1495 show_diff $path $w $lno
1496 }
1497}
1498proc add_one_to_selection {w x y} {
1500 global file_lists last_clicked selected_paths
1501 set lno [lindex [split [$w index @$x,$y] .] 0]
1503 set path [lindex $file_lists($w) [expr {$lno - 1}]]
1504 if {$path eq {}} {
1505 set last_clicked {}
1506 return
1507 }
1508 if {$last_clicked ne {}
1510 && [lindex $last_clicked 0] ne $w} {
1511 array unset selected_paths
1512 [lindex $last_clicked 0] tag remove in_sel 0.0 end
1513 }
1514 set last_clicked [list $w $lno]
1516 if {[catch {set in_sel $selected_paths($path)}]} {
1517 set in_sel 0
1518 }
1519 if {$in_sel} {
1520 unset selected_paths($path)
1521 $w tag remove in_sel $lno.0 [expr {$lno + 1}].0
1522 } else {
1523 set selected_paths($path) 1
1524 $w tag add in_sel $lno.0 [expr {$lno + 1}].0
1525 }
1526}
1527proc add_range_to_selection {w x y} {
1529 global file_lists last_clicked selected_paths
1530 if {[lindex $last_clicked 0] ne $w} {
1532 toggle_or_diff $w $x $y
1533 return
1534 }
1535 set lno [lindex [split [$w index @$x,$y] .] 0]
1537 set lc [lindex $last_clicked 1]
1538 if {$lc < $lno} {
1539 set begin $lc
1540 set end $lno
1541 } else {
1542 set begin $lno
1543 set end $lc
1544 }
1545 foreach path [lrange $file_lists($w) \
1547 [expr {$begin - 1}] \
1548 [expr {$end - 1}]] {
1549 set selected_paths($path) 1
1550 }
1551 $w tag add in_sel $begin.0 [expr {$end + 1}].0
1552}
1553######################################################################
1555##
1556## config defaults
1557set cursor_ptr arrow
1559font create font_diff -family Courier -size 10
1560font create font_ui
1561catch {
1562 label .dummy
1563 eval font configure font_ui [font actual [.dummy cget -font]]
1564 destroy .dummy
1565}
1566font create font_uiitalic
1568font create font_uibold
1569font create font_diffbold
1570font create font_diffitalic
1571foreach class {Button Checkbutton Entry Label
1573 Labelframe Listbox Menu Message
1574 Radiobutton Spinbox Text} {
1575 option add *$class.font font_ui
1576}
1577unset class
1578if {[is_Windows] || [is_MacOSX]} {
1580 option add *Menu.tearOff 0
1581}
1582if {[is_MacOSX]} {
1584 set M1B M1
1585 set M1T Cmd
1586} else {
1587 set M1B Control
1588 set M1T Ctrl
1589}
1590proc apply_config {} {
1592 global repo_config font_descs
1593 foreach option $font_descs {
1595 set name [lindex $option 0]
1596 set font [lindex $option 1]
1597 if {[catch {
1598 foreach {cn cv} $repo_config(gui.$name) {
1599 font configure $font $cn $cv
1600 }
1601 } err]} {
1602 error_popup "Invalid font specified in gui.$name:\n\n$err"
1603 }
1604 foreach {cn cv} [font configure $font] {
1605 font configure ${font}bold $cn $cv
1606 font configure ${font}italic $cn $cv
1607 }
1608 font configure ${font}bold -weight bold
1609 font configure ${font}italic -slant italic
1610 }
1611}
1612set default_config(merge.diffstat) true
1614set default_config(merge.summary) false
1615set default_config(merge.verbosity) 2
1616set default_config(user.name) {}
1617set default_config(user.email) {}
1618set default_config(gui.matchtrackingbranch) false
1620set default_config(gui.pruneduringfetch) false
1621set default_config(gui.trustmtime) false
1622set default_config(gui.diffcontext) 5
1623set default_config(gui.newbranchtemplate) {}
1624set default_config(gui.fontui) [font configure font_ui]
1625set default_config(gui.fontdiff) [font configure font_diff]
1626set font_descs {
1627 {fontui font_ui {Main Font}}
1628 {fontdiff font_diff {Diff/Console Font}}
1629}
1630load_config 0
1631apply_config
1632######################################################################
1634##
1635## ui construction
1636set ui_comm {}
1638# -- Menu Bar
1640#
1641menu .mbar -tearoff 0
1642.mbar add cascade -label Repository -menu .mbar.repository
1643.mbar add cascade -label Edit -menu .mbar.edit
1644if {[is_enabled branch]} {
1645 .mbar add cascade -label Branch -menu .mbar.branch
1646}
1647if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1648 .mbar add cascade -label Commit -menu .mbar.commit
1649}
1650if {[is_enabled transport]} {
1651 .mbar add cascade -label Merge -menu .mbar.merge
1652 .mbar add cascade -label Fetch -menu .mbar.fetch
1653 .mbar add cascade -label Push -menu .mbar.push
1654}
1655. configure -menu .mbar
1656# -- Repository Menu
1658#
1659menu .mbar.repository
1660.mbar.repository add command \
1662 -label {Browse Current Branch's Files} \
1663 -command {browser::new $current_branch}
1664set ui_browse_current [.mbar.repository index last]
1665.mbar.repository add command \
1666 -label {Browse Branch Files...} \
1667 -command browser_open::dialog
1668.mbar.repository add separator
1669.mbar.repository add command \
1671 -label {Visualize Current Branch's History} \
1672 -command {do_gitk $current_branch}
1673set ui_visualize_current [.mbar.repository index last]
1674.mbar.repository add command \
1675 -label {Visualize All Branch History} \
1676 -command {do_gitk --all}
1677.mbar.repository add separator
1678proc current_branch_write {args} {
1680 global current_branch
1681 .mbar.repository entryconf $::ui_browse_current \
1682 -label "Browse $current_branch's Files"
1683 .mbar.repository entryconf $::ui_visualize_current \
1684 -label "Visualize $current_branch's History"
1685}
1686trace add variable current_branch write current_branch_write
1687if {[is_enabled multicommit]} {
1689 .mbar.repository add command -label {Database Statistics} \
1690 -command do_stats
1691 .mbar.repository add command -label {Compress Database} \
1693 -command do_gc
1694 .mbar.repository add command -label {Verify Database} \
1696 -command do_fsck_objects
1697 .mbar.repository add separator
1699 if {[is_Cygwin]} {
1701 .mbar.repository add command \
1702 -label {Create Desktop Icon} \
1703 -command do_cygwin_shortcut
1704 } elseif {[is_Windows]} {
1705 .mbar.repository add command \
1706 -label {Create Desktop Icon} \
1707 -command do_windows_shortcut
1708 } elseif {[is_MacOSX]} {
1709 .mbar.repository add command \
1710 -label {Create Desktop Icon} \
1711 -command do_macosx_app
1712 }
1713}
1714.mbar.repository add command -label Quit \
1716 -command do_quit \
1717 -accelerator $M1T-Q
1718# -- Edit Menu
1720#
1721menu .mbar.edit
1722.mbar.edit add command -label Undo \
1723 -command {catch {[focus] edit undo}} \
1724 -accelerator $M1T-Z
1725.mbar.edit add command -label Redo \
1726 -command {catch {[focus] edit redo}} \
1727 -accelerator $M1T-Y
1728.mbar.edit add separator
1729.mbar.edit add command -label Cut \
1730 -command {catch {tk_textCut [focus]}} \
1731 -accelerator $M1T-X
1732.mbar.edit add command -label Copy \
1733 -command {catch {tk_textCopy [focus]}} \
1734 -accelerator $M1T-C
1735.mbar.edit add command -label Paste \
1736 -command {catch {tk_textPaste [focus]; [focus] see insert}} \
1737 -accelerator $M1T-V
1738.mbar.edit add command -label Delete \
1739 -command {catch {[focus] delete sel.first sel.last}} \
1740 -accelerator Del
1741.mbar.edit add separator
1742.mbar.edit add command -label {Select All} \
1743 -command {catch {[focus] tag add sel 0.0 end}} \
1744 -accelerator $M1T-A
1745# -- Branch Menu
1747#
1748if {[is_enabled branch]} {
1749 menu .mbar.branch
1750 .mbar.branch add command -label {Create...} \
1752 -command branch_create::dialog \
1753 -accelerator $M1T-N
1754 lappend disable_on_lock [list .mbar.branch entryconf \
1755 [.mbar.branch index last] -state]
1756 .mbar.branch add command -label {Checkout...} \
1758 -command branch_checkout::dialog \
1759 -accelerator $M1T-O
1760 lappend disable_on_lock [list .mbar.branch entryconf \
1761 [.mbar.branch index last] -state]
1762 .mbar.branch add command -label {Rename...} \
1764 -command branch_rename::dialog
1765 lappend disable_on_lock [list .mbar.branch entryconf \
1766 [.mbar.branch index last] -state]
1767 .mbar.branch add command -label {Delete...} \
1769 -command branch_delete::dialog
1770 lappend disable_on_lock [list .mbar.branch entryconf \
1771 [.mbar.branch index last] -state]
1772 .mbar.branch add command -label {Reset...} \
1774 -command merge::reset_hard
1775 lappend disable_on_lock [list .mbar.branch entryconf \
1776 [.mbar.branch index last] -state]
1777}
1778# -- Commit Menu
1780#
1781if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1782 menu .mbar.commit
1783 .mbar.commit add radiobutton \
1785 -label {New Commit} \
1786 -command do_select_commit_type \
1787 -variable selected_commit_type \
1788 -value new
1789 lappend disable_on_lock \
1790 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1791 .mbar.commit add radiobutton \
1793 -label {Amend Last Commit} \
1794 -command do_select_commit_type \
1795 -variable selected_commit_type \
1796 -value amend
1797 lappend disable_on_lock \
1798 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1799 .mbar.commit add separator
1801 .mbar.commit add command -label Rescan \
1803 -command do_rescan \
1804 -accelerator F5
1805 lappend disable_on_lock \
1806 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1807 .mbar.commit add command -label {Stage To Commit} \
1809 -command do_add_selection
1810 lappend disable_on_lock \
1811 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1812 .mbar.commit add command -label {Stage Changed Files To Commit} \
1814 -command do_add_all \
1815 -accelerator $M1T-I
1816 lappend disable_on_lock \
1817 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1818 .mbar.commit add command -label {Unstage From Commit} \
1820 -command do_unstage_selection
1821 lappend disable_on_lock \
1822 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1823 .mbar.commit add command -label {Revert Changes} \
1825 -command do_revert_selection
1826 lappend disable_on_lock \
1827 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1828 .mbar.commit add separator
1830 .mbar.commit add command -label {Sign Off} \
1832 -command do_signoff \
1833 -accelerator $M1T-S
1834 .mbar.commit add command -label Commit \
1836 -command do_commit \
1837 -accelerator $M1T-Return
1838 lappend disable_on_lock \
1839 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1840}
1841# -- Merge Menu
1843#
1844if {[is_enabled branch]} {
1845 menu .mbar.merge
1846 .mbar.merge add command -label {Local Merge...} \
1847 -command merge::dialog \
1848 -accelerator $M1T-M
1849 lappend disable_on_lock \
1850 [list .mbar.merge entryconf [.mbar.merge index last] -state]
1851 .mbar.merge add command -label {Abort Merge...} \
1852 -command merge::reset_hard
1853 lappend disable_on_lock \
1854 [list .mbar.merge entryconf [.mbar.merge index last] -state]
1855}
1856# -- Transport Menu
1858#
1859if {[is_enabled transport]} {
1860 menu .mbar.fetch
1861 menu .mbar.push
1863 .mbar.push add command -label {Push...} \
1864 -command do_push_anywhere \
1865 -accelerator $M1T-P
1866 .mbar.push add command -label {Delete...} \
1867 -command remote_branch_delete::dialog
1868}
1869if {[is_MacOSX]} {
1871 # -- Apple Menu (Mac OS X only)
1872 #
1873 .mbar add cascade -label Apple -menu .mbar.apple
1874 menu .mbar.apple
1875 .mbar.apple add command -label "About [appname]" \
1877 -command do_about
1878 .mbar.apple add command -label "Options..." \
1879 -command do_options
1880} else {
1881 # -- Edit Menu
1882 #
1883 .mbar.edit add separator
1884 .mbar.edit add command -label {Options...} \
1885 -command do_options
1886}
1887# -- Help Menu
1889#
1890.mbar add cascade -label Help -menu .mbar.help
1891menu .mbar.help
1892if {![is_MacOSX]} {
1894 .mbar.help add command -label "About [appname]" \
1895 -command do_about
1896}
1897set browser {}
1899catch {set browser $repo_config(instaweb.browser)}
1900set doc_path [file dirname [gitexec]]
1901set doc_path [file join $doc_path Documentation index.html]
1902if {[is_Cygwin]} {
1904 set doc_path [exec cygpath --mixed $doc_path]
1905}
1906if {$browser eq {}} {
1908 if {[is_MacOSX]} {
1909 set browser open
1910 } elseif {[is_Cygwin]} {
1911 set program_files [file dirname [exec cygpath --windir]]
1912 set program_files [file join $program_files {Program Files}]
1913 set firefox [file join $program_files {Mozilla Firefox} firefox.exe]
1914 set ie [file join $program_files {Internet Explorer} IEXPLORE.EXE]
1915 if {[file exists $firefox]} {
1916 set browser $firefox
1917 } elseif {[file exists $ie]} {
1918 set browser $ie
1919 }
1920 unset program_files firefox ie
1921 }
1922}
1923if {[file isfile $doc_path]} {
1925 set doc_url "file:$doc_path"
1926} else {
1927 set doc_url {http://www.kernel.org/pub/software/scm/git/docs/}
1928}
1929if {$browser ne {}} {
1931 .mbar.help add command -label {Online Documentation} \
1932 -command [list exec $browser $doc_url &]
1933}
1934unset browser doc_path doc_url
1935# -- Standard bindings
1937#
1938wm protocol . WM_DELETE_WINDOW do_quit
1939bind all <$M1B-Key-q> do_quit
1940bind all <$M1B-Key-Q> do_quit
1941bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}
1942bind all <$M1B-Key-W> {destroy [winfo toplevel %W]}
1943set subcommand_args {}
1945proc usage {} {
1946 puts stderr "usage: $::argv0 $::subcommand $::subcommand_args"
1947 exit 1
1948}
1949# -- Not a normal commit type invocation? Do that instead!
1951#
1952switch -- $subcommand {
1953browser -
1954blame {
1955 set subcommand_args {rev? path}
1956 if {$argv eq {}} usage
1957 set head {}
1958 set path {}
1959 set is_path 0
1960 foreach a $argv {
1961 if {$is_path || [file exists $_prefix$a]} {
1962 if {$path ne {}} usage
1963 set path $_prefix$a
1964 break
1965 } elseif {$a eq {--}} {
1966 if {$path ne {}} {
1967 if {$head ne {}} usage
1968 set head $path
1969 set path {}
1970 }
1971 set is_path 1
1972 } elseif {$head eq {}} {
1973 if {$head ne {}} usage
1974 set head $a
1975 set is_path 1
1976 } else {
1977 usage
1978 }
1979 }
1980 unset is_path
1981 if {$head ne {} && $path eq {}} {
1983 set path $_prefix$head
1984 set head {}
1985 }
1986 if {$head eq {}} {
1988 load_current_branch
1989 } else {
1990 if {[regexp {^[0-9a-f]{1,39}$} $head]} {
1991 if {[catch {
1992 set head [git rev-parse --verify $head]
1993 } err]} {
1994 puts stderr $err
1995 exit 1
1996 }
1997 }
1998 set current_branch $head
1999 }
2000 switch -- $subcommand {
2002 browser {
2003 if {$head eq {}} {
2004 if {$path ne {} && [file isdirectory $path]} {
2005 set head $current_branch
2006 } else {
2007 set head $path
2008 set path {}
2009 }
2010 }
2011 browser::new $head $path
2012 }
2013 blame {
2014 if {$head eq {} && ![file exists $path]} {
2015 puts stderr "fatal: cannot stat path $path: No such file or directory"
2016 exit 1
2017 }
2018 blame::new $head $path
2019 }
2020 }
2021 return
2022}
2023citool -
2024gui {
2025 if {[llength $argv] != 0} {
2026 puts -nonewline stderr "usage: $argv0"
2027 if {$subcommand ne {gui} && [appname] ne "git-$subcommand"} {
2028 puts -nonewline stderr " $subcommand"
2029 }
2030 puts stderr {}
2031 exit 1
2032 }
2033 # fall through to setup UI for commits
2034}
2035default {
2036 puts stderr "usage: $argv0 \[{blame|browser|citool}\]"
2037 exit 1
2038}
2039}
2040# -- Branch Control
2042#
2043frame .branch \
2044 -borderwidth 1 \
2045 -relief sunken
2046label .branch.l1 \
2047 -text {Current Branch:} \
2048 -anchor w \
2049 -justify left
2050label .branch.cb \
2051 -textvariable current_branch \
2052 -anchor w \
2053 -justify left
2054pack .branch.l1 -side left
2055pack .branch.cb -side left -fill x
2056pack .branch -side top -fill x
2057# -- Main Window Layout
2059#
2060panedwindow .vpane -orient vertical
2061panedwindow .vpane.files -orient horizontal
2062.vpane add .vpane.files -sticky nsew -height 100 -width 200
2063pack .vpane -anchor n -side top -fill both -expand 1
2064# -- Index File List
2066#
2067frame .vpane.files.index -height 100 -width 200
2068label .vpane.files.index.title -text {Staged Changes (Will Be Committed)} \
2069 -background lightgreen
2070text $ui_index -background white -borderwidth 0 \
2071 -width 20 -height 10 \
2072 -wrap none \
2073 -cursor $cursor_ptr \
2074 -xscrollcommand {.vpane.files.index.sx set} \
2075 -yscrollcommand {.vpane.files.index.sy set} \
2076 -state disabled
2077scrollbar .vpane.files.index.sx -orient h -command [list $ui_index xview]
2078scrollbar .vpane.files.index.sy -orient v -command [list $ui_index yview]
2079pack .vpane.files.index.title -side top -fill x
2080pack .vpane.files.index.sx -side bottom -fill x
2081pack .vpane.files.index.sy -side right -fill y
2082pack $ui_index -side left -fill both -expand 1
2083.vpane.files add .vpane.files.index -sticky nsew
2084# -- Working Directory File List
2086#
2087frame .vpane.files.workdir -height 100 -width 200
2088label .vpane.files.workdir.title -text {Unstaged Changes (Will Not Be Committed)} \
2089 -background lightsalmon
2090text $ui_workdir -background white -borderwidth 0 \
2091 -width 20 -height 10 \
2092 -wrap none \
2093 -cursor $cursor_ptr \
2094 -xscrollcommand {.vpane.files.workdir.sx set} \
2095 -yscrollcommand {.vpane.files.workdir.sy set} \
2096 -state disabled
2097scrollbar .vpane.files.workdir.sx -orient h -command [list $ui_workdir xview]
2098scrollbar .vpane.files.workdir.sy -orient v -command [list $ui_workdir yview]
2099pack .vpane.files.workdir.title -side top -fill x
2100pack .vpane.files.workdir.sx -side bottom -fill x
2101pack .vpane.files.workdir.sy -side right -fill y
2102pack $ui_workdir -side left -fill both -expand 1
2103.vpane.files add .vpane.files.workdir -sticky nsew
2104foreach i [list $ui_index $ui_workdir] {
2106 $i tag conf in_diff -background lightgray
2107 $i tag conf in_sel -background lightgray
2108}
2109unset i
2110# -- Diff and Commit Area
2112#
2113frame .vpane.lower -height 300 -width 400
2114frame .vpane.lower.commarea
2115frame .vpane.lower.diff -relief sunken -borderwidth 1
2116pack .vpane.lower.commarea -side top -fill x
2117pack .vpane.lower.diff -side bottom -fill both -expand 1
2118.vpane add .vpane.lower -sticky nsew
2119# -- Commit Area Buttons
2121#
2122frame .vpane.lower.commarea.buttons
2123label .vpane.lower.commarea.buttons.l -text {} \
2124 -anchor w \
2125 -justify left
2126pack .vpane.lower.commarea.buttons.l -side top -fill x
2127pack .vpane.lower.commarea.buttons -side left -fill y
2128button .vpane.lower.commarea.buttons.rescan -text {Rescan} \
2130 -command do_rescan
2131pack .vpane.lower.commarea.buttons.rescan -side top -fill x
2132lappend disable_on_lock \
2133 {.vpane.lower.commarea.buttons.rescan conf -state}
2134button .vpane.lower.commarea.buttons.incall -text {Stage Changed} \
2136 -command do_add_all
2137pack .vpane.lower.commarea.buttons.incall -side top -fill x
2138lappend disable_on_lock \
2139 {.vpane.lower.commarea.buttons.incall conf -state}
2140button .vpane.lower.commarea.buttons.signoff -text {Sign Off} \
2142 -command do_signoff
2143pack .vpane.lower.commarea.buttons.signoff -side top -fill x
2144button .vpane.lower.commarea.buttons.commit -text {Commit} \
2146 -command do_commit
2147pack .vpane.lower.commarea.buttons.commit -side top -fill x
2148lappend disable_on_lock \
2149 {.vpane.lower.commarea.buttons.commit conf -state}
2150button .vpane.lower.commarea.buttons.push -text {Push} \
2152 -command do_push_anywhere
2153pack .vpane.lower.commarea.buttons.push -side top -fill x
2154# -- Commit Message Buffer
2156#
2157frame .vpane.lower.commarea.buffer
2158frame .vpane.lower.commarea.buffer.header
2159set ui_comm .vpane.lower.commarea.buffer.t
2160set ui_coml .vpane.lower.commarea.buffer.header.l
2161radiobutton .vpane.lower.commarea.buffer.header.new \
2162 -text {New Commit} \
2163 -command do_select_commit_type \
2164 -variable selected_commit_type \
2165 -value new
2166lappend disable_on_lock \
2167 [list .vpane.lower.commarea.buffer.header.new conf -state]
2168radiobutton .vpane.lower.commarea.buffer.header.amend \
2169 -text {Amend Last Commit} \
2170 -command do_select_commit_type \
2171 -variable selected_commit_type \
2172 -value amend
2173lappend disable_on_lock \
2174 [list .vpane.lower.commarea.buffer.header.amend conf -state]
2175label $ui_coml \
2176 -anchor w \
2177 -justify left
2178proc trace_commit_type {varname args} {
2179 global ui_coml commit_type
2180 switch -glob -- $commit_type {
2181 initial {set txt {Initial Commit Message:}}
2182 amend {set txt {Amended Commit Message:}}
2183 amend-initial {set txt {Amended Initial Commit Message:}}
2184 amend-merge {set txt {Amended Merge Commit Message:}}
2185 merge {set txt {Merge Commit Message:}}
2186 * {set txt {Commit Message:}}
2187 }
2188 $ui_coml conf -text $txt
2189}
2190trace add variable commit_type write trace_commit_type
2191pack $ui_coml -side left -fill x
2192pack .vpane.lower.commarea.buffer.header.amend -side right
2193pack .vpane.lower.commarea.buffer.header.new -side right
2194text $ui_comm -background white -borderwidth 1 \
2196 -undo true \
2197 -maxundo 20 \
2198 -autoseparators true \
2199 -relief sunken \
2200 -width 75 -height 9 -wrap none \
2201 -font font_diff \
2202 -yscrollcommand {.vpane.lower.commarea.buffer.sby set}
2203scrollbar .vpane.lower.commarea.buffer.sby \
2204 -command [list $ui_comm yview]
2205pack .vpane.lower.commarea.buffer.header -side top -fill x
2206pack .vpane.lower.commarea.buffer.sby -side right -fill y
2207pack $ui_comm -side left -fill y
2208pack .vpane.lower.commarea.buffer -side left -fill y
2209# -- Commit Message Buffer Context Menu
2211#
2212set ctxm .vpane.lower.commarea.buffer.ctxm
2213menu $ctxm -tearoff 0
2214$ctxm add command \
2215 -label {Cut} \
2216 -command {tk_textCut $ui_comm}
2217$ctxm add command \
2218 -label {Copy} \
2219 -command {tk_textCopy $ui_comm}
2220$ctxm add command \
2221 -label {Paste} \
2222 -command {tk_textPaste $ui_comm}
2223$ctxm add command \
2224 -label {Delete} \
2225 -command {$ui_comm delete sel.first sel.last}
2226$ctxm add separator
2227$ctxm add command \
2228 -label {Select All} \
2229 -command {focus $ui_comm;$ui_comm tag add sel 0.0 end}
2230$ctxm add command \
2231 -label {Copy All} \
2232 -command {
2233 $ui_comm tag add sel 0.0 end
2234 tk_textCopy $ui_comm
2235 $ui_comm tag remove sel 0.0 end
2236 }
2237$ctxm add separator
2238$ctxm add command \
2239 -label {Sign Off} \
2240 -command do_signoff
2241bind_button3 $ui_comm "tk_popup $ctxm %X %Y"
2242# -- Diff Header
2244#
2245proc trace_current_diff_path {varname args} {
2246 global current_diff_path diff_actions file_states
2247 if {$current_diff_path eq {}} {
2248 set s {}
2249 set f {}
2250 set p {}
2251 set o disabled
2252 } else {
2253 set p $current_diff_path
2254 set s [mapdesc [lindex $file_states($p) 0] $p]
2255 set f {File:}
2256 set p [escape_path $p]
2257 set o normal
2258 }
2259 .vpane.lower.diff.header.status configure -text $s
2261 .vpane.lower.diff.header.file configure -text $f
2262 .vpane.lower.diff.header.path configure -text $p
2263 foreach w $diff_actions {
2264 uplevel #0 $w $o
2265 }
2266}
2267trace add variable current_diff_path write trace_current_diff_path
2268frame .vpane.lower.diff.header -background gold
2270label .vpane.lower.diff.header.status \
2271 -background gold \
2272 -width $max_status_desc \
2273 -anchor w \
2274 -justify left
2275label .vpane.lower.diff.header.file \
2276 -background gold \
2277 -anchor w \
2278 -justify left
2279label .vpane.lower.diff.header.path \
2280 -background gold \
2281 -anchor w \
2282 -justify left
2283pack .vpane.lower.diff.header.status -side left
2284pack .vpane.lower.diff.header.file -side left
2285pack .vpane.lower.diff.header.path -fill x
2286set ctxm .vpane.lower.diff.header.ctxm
2287menu $ctxm -tearoff 0
2288$ctxm add command \
2289 -label {Copy} \
2290 -command {
2291 clipboard clear
2292 clipboard append \
2293 -format STRING \
2294 -type STRING \
2295 -- $current_diff_path
2296 }
2297lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2298bind_button3 .vpane.lower.diff.header.path "tk_popup $ctxm %X %Y"
2299# -- Diff Body
2301#
2302frame .vpane.lower.diff.body
2303set ui_diff .vpane.lower.diff.body.t
2304text $ui_diff -background white -borderwidth 0 \
2305 -width 80 -height 15 -wrap none \
2306 -font font_diff \
2307 -xscrollcommand {.vpane.lower.diff.body.sbx set} \
2308 -yscrollcommand {.vpane.lower.diff.body.sby set} \
2309 -state disabled
2310scrollbar .vpane.lower.diff.body.sbx -orient horizontal \
2311 -command [list $ui_diff xview]
2312scrollbar .vpane.lower.diff.body.sby -orient vertical \
2313 -command [list $ui_diff yview]
2314pack .vpane.lower.diff.body.sbx -side bottom -fill x
2315pack .vpane.lower.diff.body.sby -side right -fill y
2316pack $ui_diff -side left -fill both -expand 1
2317pack .vpane.lower.diff.header -side top -fill x
2318pack .vpane.lower.diff.body -side bottom -fill both -expand 1
2319$ui_diff tag conf d_cr -elide true
2321$ui_diff tag conf d_@ -foreground blue -font font_diffbold
2322$ui_diff tag conf d_+ -foreground {#00a000}
2323$ui_diff tag conf d_- -foreground red
2324$ui_diff tag conf d_++ -foreground {#00a000}
2326$ui_diff tag conf d_-- -foreground red
2327$ui_diff tag conf d_+s \
2328 -foreground {#00a000} \
2329 -background {#e2effa}
2330$ui_diff tag conf d_-s \
2331 -foreground red \
2332 -background {#e2effa}
2333$ui_diff tag conf d_s+ \
2334 -foreground {#00a000} \
2335 -background ivory1
2336$ui_diff tag conf d_s- \
2337 -foreground red \
2338 -background ivory1
2339$ui_diff tag conf d<<<<<<< \
2341 -foreground orange \
2342 -font font_diffbold
2343$ui_diff tag conf d======= \
2344 -foreground orange \
2345 -font font_diffbold
2346$ui_diff tag conf d>>>>>>> \
2347 -foreground orange \
2348 -font font_diffbold
2349$ui_diff tag raise sel
2351# -- Diff Body Context Menu
2353#
2354set ctxm .vpane.lower.diff.body.ctxm
2355menu $ctxm -tearoff 0
2356$ctxm add command \
2357 -label {Refresh} \
2358 -command reshow_diff
2359lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2360$ctxm add command \
2361 -label {Copy} \
2362 -command {tk_textCopy $ui_diff}
2363lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2364$ctxm add command \
2365 -label {Select All} \
2366 -command {focus $ui_diff;$ui_diff tag add sel 0.0 end}
2367lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2368$ctxm add command \
2369 -label {Copy All} \
2370 -command {
2371 $ui_diff tag add sel 0.0 end
2372 tk_textCopy $ui_diff
2373 $ui_diff tag remove sel 0.0 end
2374 }
2375lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2376$ctxm add separator
2377$ctxm add command \
2378 -label {Apply/Reverse Hunk} \
2379 -command {apply_hunk $cursorX $cursorY}
2380set ui_diff_applyhunk [$ctxm index last]
2381lappend diff_actions [list $ctxm entryconf $ui_diff_applyhunk -state]
2382$ctxm add separator
2383$ctxm add command \
2384 -label {Decrease Font Size} \
2385 -command {incr_font_size font_diff -1}
2386lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2387$ctxm add command \
2388 -label {Increase Font Size} \
2389 -command {incr_font_size font_diff 1}
2390lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2391$ctxm add separator
2392$ctxm add command \
2393 -label {Show Less Context} \
2394 -command {if {$repo_config(gui.diffcontext) >= 1} {
2395 incr repo_config(gui.diffcontext) -1
2396 reshow_diff
2397 }}
2398lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2399$ctxm add command \
2400 -label {Show More Context} \
2401 -command {if {$repo_config(gui.diffcontext) < 99} {
2402 incr repo_config(gui.diffcontext)
2403 reshow_diff
2404 }}
2405lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2406$ctxm add separator
2407$ctxm add command -label {Options...} \
2408 -command do_options
2409proc popup_diff_menu {ctxm x y X Y} {
2410 set ::cursorX $x
2411 set ::cursorY $y
2412 if {$::ui_index eq $::current_diff_side} {
2413 $ctxm entryconf $::ui_diff_applyhunk \
2414 -state normal \
2415 -label {Unstage Hunk From Commit}
2416 } elseif {{_O} eq [lindex $::file_states($::current_diff_path) 0]} {
2417 $ctxm entryconf $::ui_diff_applyhunk \
2418 -state disabled \
2419 -label {Stage Hunk For Commit}
2420 } else {
2421 $ctxm entryconf $::ui_diff_applyhunk \
2422 -state normal \
2423 -label {Stage Hunk For Commit}
2424 }
2425 tk_popup $ctxm $X $Y
2426}
2427bind_button3 $ui_diff [list popup_diff_menu $ctxm %x %y %X %Y]
2428# -- Status Bar
2430#
2431set main_status [::status_bar::new .status]
2432pack .status -anchor w -side bottom -fill x
2433$main_status show {Initializing...}
2434# -- Load geometry
2436#
2437catch {
2438set gm $repo_config(gui.geometry)
2439wm geometry . [lindex $gm 0]
2440.vpane sash place 0 \
2441 [lindex [.vpane sash coord 0] 0] \
2442 [lindex $gm 1]
2443.vpane.files sash place 0 \
2444 [lindex $gm 2] \
2445 [lindex [.vpane.files sash coord 0] 1]
2446unset gm
2447}
2448# -- Key Bindings
2450#
2451bind $ui_comm <$M1B-Key-Return> {do_commit;break}
2452bind $ui_comm <$M1B-Key-i> {do_add_all;break}
2453bind $ui_comm <$M1B-Key-I> {do_add_all;break}
2454bind $ui_comm <$M1B-Key-x> {tk_textCut %W;break}
2455bind $ui_comm <$M1B-Key-X> {tk_textCut %W;break}
2456bind $ui_comm <$M1B-Key-c> {tk_textCopy %W;break}
2457bind $ui_comm <$M1B-Key-C> {tk_textCopy %W;break}
2458bind $ui_comm <$M1B-Key-v> {tk_textPaste %W; %W see insert; break}
2459bind $ui_comm <$M1B-Key-V> {tk_textPaste %W; %W see insert; break}
2460bind $ui_comm <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2461bind $ui_comm <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2462bind $ui_diff <$M1B-Key-x> {tk_textCopy %W;break}
2464bind $ui_diff <$M1B-Key-X> {tk_textCopy %W;break}
2465bind $ui_diff <$M1B-Key-c> {tk_textCopy %W;break}
2466bind $ui_diff <$M1B-Key-C> {tk_textCopy %W;break}
2467bind $ui_diff <$M1B-Key-v> {break}
2468bind $ui_diff <$M1B-Key-V> {break}
2469bind $ui_diff <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2470bind $ui_diff <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2471bind $ui_diff <Key-Up> {catch {%W yview scroll -1 units};break}
2472bind $ui_diff <Key-Down> {catch {%W yview scroll 1 units};break}
2473bind $ui_diff <Key-Left> {catch {%W xview scroll -1 units};break}
2474bind $ui_diff <Key-Right> {catch {%W xview scroll 1 units};break}
2475bind $ui_diff <Key-k> {catch {%W yview scroll -1 units};break}
2476bind $ui_diff <Key-j> {catch {%W yview scroll 1 units};break}
2477bind $ui_diff <Key-h> {catch {%W xview scroll -1 units};break}
2478bind $ui_diff <Key-l> {catch {%W xview scroll 1 units};break}
2479bind $ui_diff <Control-Key-b> {catch {%W yview scroll -1 pages};break}
2480bind $ui_diff <Control-Key-f> {catch {%W yview scroll 1 pages};break}
2481bind $ui_diff <Button-1> {focus %W}
2482if {[is_enabled branch]} {
2484 bind . <$M1B-Key-n> branch_create::dialog
2485 bind . <$M1B-Key-N> branch_create::dialog
2486 bind . <$M1B-Key-o> branch_checkout::dialog
2487 bind . <$M1B-Key-O> branch_checkout::dialog
2488 bind . <$M1B-Key-m> merge::dialog
2489 bind . <$M1B-Key-M> merge::dialog
2490}
2491if {[is_enabled transport]} {
2492 bind . <$M1B-Key-p> do_push_anywhere
2493 bind . <$M1B-Key-P> do_push_anywhere
2494}
2495bind . <Key-F5> do_rescan
2497bind . <$M1B-Key-r> do_rescan
2498bind . <$M1B-Key-R> do_rescan
2499bind . <$M1B-Key-s> do_signoff
2500bind . <$M1B-Key-S> do_signoff
2501bind . <$M1B-Key-i> do_add_all
2502bind . <$M1B-Key-I> do_add_all
2503bind . <$M1B-Key-Return> do_commit
2504foreach i [list $ui_index $ui_workdir] {
2505 bind $i <Button-1> "toggle_or_diff $i %x %y; break"
2506 bind $i <$M1B-Button-1> "add_one_to_selection $i %x %y; break"
2507 bind $i <Shift-Button-1> "add_range_to_selection $i %x %y; break"
2508}
2509unset i
2510set file_lists($ui_index) [list]
2512set file_lists($ui_workdir) [list]
2513wm title . "[appname] ([reponame]) [file normalize [file dirname [gitdir]]]"
2515focus -force $ui_comm
2516# -- Warn the user about environmental problems. Cygwin's Tcl
2518# does *not* pass its env array onto any processes it spawns.
2519# This means that git processes get none of our environment.
2520#
2521if {[is_Cygwin]} {
2522 set ignored_env 0
2523 set suggest_user {}
2524 set msg "Possible environment issues exist.
2525The following environment variables are probably
2527going to be ignored by any Git subprocess run
2528by [appname]:
2529"
2531 foreach name [array names env] {
2532 switch -regexp -- $name {
2533 {^GIT_INDEX_FILE$} -
2534 {^GIT_OBJECT_DIRECTORY$} -
2535 {^GIT_ALTERNATE_OBJECT_DIRECTORIES$} -
2536 {^GIT_DIFF_OPTS$} -
2537 {^GIT_EXTERNAL_DIFF$} -
2538 {^GIT_PAGER$} -
2539 {^GIT_TRACE$} -
2540 {^GIT_CONFIG$} -
2541 {^GIT_CONFIG_LOCAL$} -
2542 {^GIT_(AUTHOR|COMMITTER)_DATE$} {
2543 append msg " - $name\n"
2544 incr ignored_env
2545 }
2546 {^GIT_(AUTHOR|COMMITTER)_(NAME|EMAIL)$} {
2547 append msg " - $name\n"
2548 incr ignored_env
2549 set suggest_user $name
2550 }
2551 }
2552 }
2553 if {$ignored_env > 0} {
2554 append msg "
2555This is due to a known issue with the
2556Tcl binary distributed by Cygwin."
2557 if {$suggest_user ne {}} {
2559 append msg "
2560A good replacement for $suggest_user
2562is placing values for the user.name and
2563user.email settings into your personal
2564~/.gitconfig file.
2565"
2566 }
2567 warn_popup $msg
2568 }
2569 unset ignored_env msg suggest_user name
2570}
2571# -- Only initialize complex UI if we are going to stay running.
2573#
2574if {[is_enabled transport]} {
2575 load_all_remotes
2576 populate_fetch_menu
2578 populate_push_menu
2579}
2580if {[winfo exists $ui_comm]} {
2582 set GITGUI_BCK_exists [load_message GITGUI_BCK]
2583 # -- If both our backup and message files exist use the
2585 # newer of the two files to initialize the buffer.
2586 #
2587 if {$GITGUI_BCK_exists} {
2588 set m [gitdir GITGUI_MSG]
2589 if {[file isfile $m]} {
2590 if {[file mtime [gitdir GITGUI_BCK]] > [file mtime $m]} {
2591 catch {file delete [gitdir GITGUI_MSG]}
2592 } else {
2593 $ui_comm delete 0.0 end
2594 $ui_comm edit reset
2595 $ui_comm edit modified false
2596 catch {file delete [gitdir GITGUI_BCK]}
2597 set GITGUI_BCK_exists 0
2598 }
2599 }
2600 unset m
2601 }
2602 proc backup_commit_buffer {} {
2604 global ui_comm GITGUI_BCK_exists
2605 set m [$ui_comm edit modified]
2607 if {$m || $GITGUI_BCK_exists} {
2608 set msg [string trim [$ui_comm get 0.0 end]]
2609 regsub -all -line {[ \r\t]+$} $msg {} msg
2610 if {$msg eq {}} {
2612 if {$GITGUI_BCK_exists} {
2613 catch {file delete [gitdir GITGUI_BCK]}
2614 set GITGUI_BCK_exists 0
2615 }
2616 } elseif {$m} {
2617 catch {
2618 set fd [open [gitdir GITGUI_BCK] w]
2619 puts -nonewline $fd $msg
2620 close $fd
2621 set GITGUI_BCK_exists 1
2622 }
2623 }
2624 $ui_comm edit modified false
2626 }
2627 set ::GITGUI_BCK_i [after 2000 backup_commit_buffer]
2629 }
2630 backup_commit_buffer
2632}
2633lock_index begin-read
2635if {![winfo ismapped .]} {
2636 wm deiconify .
2637}
2638after 1 do_rescan
2639if {[is_enabled multicommit]} {
2640 after 1000 hint_gc
2641}