c8f850d1ef5881a537ed67ad66887bf852a153f9
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 argv0=$0; \
10 exec wish "$argv0" -- "$@"
11set appvers {@@GITGUI_VERSION@@}
13set copyright [encoding convertfrom utf-8 {
14Copyright © 2006, 2007 Shawn Pearce, et. al.
15This program is free software; you can redistribute it and/or modify
17it under the terms of the GNU General Public License as published by
18the Free Software Foundation; either version 2 of the License, or
19(at your option) any later version.
20This program is distributed in the hope that it will be useful,
22but WITHOUT ANY WARRANTY; without even the implied warranty of
23MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24GNU General Public License for more details.
25You should have received a copy of the GNU General Public License
27along with this program; if not, write to the Free Software
28Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA}]
29######################################################################
31##
32## Tcl/Tk sanity check
33if {[catch {package require Tcl 8.4} err]
35 || [catch {package require Tk 8.4} err]
36} {
37 catch {wm withdraw .}
38 tk_messageBox \
39 -icon error \
40 -type ok \
41 -title [mc "git-gui: fatal error"] \
42 -message $err
43 exit 1
44}
45catch {rename send {}} ; # What an evil concept...
47######################################################################
49##
50## locate our library
51set oguilib {@@GITGUI_LIBDIR@@}
53set oguirel {@@GITGUI_RELATIVE@@}
54if {$oguirel eq {1}} {
55 set oguilib [file dirname [file normalize $argv0]]
56 if {[file tail $oguilib] eq {git-core}} {
57 set oguilib [file dirname $oguilib]
58 }
59 set oguilib [file dirname $oguilib]
60 set oguilib [file join $oguilib share git-gui lib]
61 set oguimsg [file join $oguilib msgs]
62} elseif {[string match @@* $oguirel]} {
63 set oguilib [file join [file dirname [file normalize $argv0]] lib]
64 set oguimsg [file join [file dirname [file normalize $argv0]] po]
65} else {
66 set oguimsg [file join $oguilib msgs]
67}
68unset oguirel
69######################################################################
71##
72## enable verbose loading?
73if {![catch {set _verbose $env(GITGUI_VERBOSE)}]} {
75 unset _verbose
76 rename auto_load real__auto_load
77 proc auto_load {name args} {
78 puts stderr "auto_load $name"
79 return [uplevel 1 real__auto_load $name $args]
80 }
81 rename source real__source
82 proc source {name} {
83 puts stderr "source $name"
84 uplevel 1 real__source $name
85 }
86}
87######################################################################
89##
90## Internationalization (i18n) through msgcat and gettext. See
91## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
92package require msgcat
94proc _mc_trim {fmt} {
96 set cmk [string first @@ $fmt]
97 if {$cmk > 0} {
98 return [string range $fmt 0 [expr {$cmk - 1}]]
99 }
100 return $fmt
101}
102proc mc {en_fmt args} {
104 set fmt [_mc_trim [::msgcat::mc $en_fmt]]
105 if {[catch {set msg [eval [list format $fmt] $args]} err]} {
106 set msg [eval [list format [_mc_trim $en_fmt]] $args]
107 }
108 return $msg
109}
110proc strcat {args} {
112 return [join $args {}]
113}
114::msgcat::mcload $oguimsg
116unset oguimsg
117######################################################################
119##
120## read only globals
121set _appname {Git Gui}
123set _gitdir {}
124set _gitexec {}
125set _githtmldir {}
126set _reponame {}
127set _iscygwin {}
128set _search_path {}
129set _trace [lsearch -exact $argv --trace]
131if {$_trace >= 0} {
132 set argv [lreplace $argv $_trace $_trace]
133 set _trace 1
134} else {
135 set _trace 0
136}
137proc appname {} {
139 global _appname
140 return $_appname
141}
142proc gitdir {args} {
144 global _gitdir
145 if {$args eq {}} {
146 return $_gitdir
147 }
148 return [eval [list file join $_gitdir] $args]
149}
150proc gitexec {args} {
152 global _gitexec
153 if {$_gitexec eq {}} {
154 if {[catch {set _gitexec [git --exec-path]} err]} {
155 error "Git not installed?\n\n$err"
156 }
157 if {[is_Cygwin]} {
158 set _gitexec [exec cygpath \
159 --windows \
160 --absolute \
161 $_gitexec]
162 } else {
163 set _gitexec [file normalize $_gitexec]
164 }
165 }
166 if {$args eq {}} {
167 return $_gitexec
168 }
169 return [eval [list file join $_gitexec] $args]
170}
171proc githtmldir {args} {
173 global _githtmldir
174 if {$_githtmldir eq {}} {
175 if {[catch {set _githtmldir [git --html-path]}]} {
176 # Git not installed or option not yet supported
177 return {}
178 }
179 if {[is_Cygwin]} {
180 set _githtmldir [exec cygpath \
181 --windows \
182 --absolute \
183 $_githtmldir]
184 } else {
185 set _githtmldir [file normalize $_githtmldir]
186 }
187 }
188 if {$args eq {}} {
189 return $_githtmldir
190 }
191 return [eval [list file join $_githtmldir] $args]
192}
193proc reponame {} {
195 return $::_reponame
196}
197proc is_MacOSX {} {
199 if {[tk windowingsystem] eq {aqua}} {
200 return 1
201 }
202 return 0
203}
204proc is_Windows {} {
206 if {$::tcl_platform(platform) eq {windows}} {
207 return 1
208 }
209 return 0
210}
211proc is_Cygwin {} {
213 global _iscygwin
214 if {$_iscygwin eq {}} {
215 if {$::tcl_platform(platform) eq {windows}} {
216 if {[catch {set p [exec cygpath --windir]} err]} {
217 set _iscygwin 0
218 } else {
219 set _iscygwin 1
220 }
221 } else {
222 set _iscygwin 0
223 }
224 }
225 return $_iscygwin
226}
227proc is_enabled {option} {
229 global enabled_options
230 if {[catch {set on $enabled_options($option)}]} {return 0}
231 return $on
232}
233proc enable_option {option} {
235 global enabled_options
236 set enabled_options($option) 1
237}
238proc disable_option {option} {
240 global enabled_options
241 set enabled_options($option) 0
242}
243######################################################################
245##
246## config
247proc is_many_config {name} {
249 switch -glob -- $name {
250 gui.recentrepo -
251 remote.*.fetch -
252 remote.*.push
253 {return 1}
254 *
255 {return 0}
256 }
257}
258proc is_config_true {name} {
260 global repo_config
261 if {[catch {set v $repo_config($name)}]} {
262 return 0
263 } elseif {$v eq {true} || $v eq {1} || $v eq {yes}} {
264 return 1
265 } else {
266 return 0
267 }
268}
269proc get_config {name} {
271 global repo_config
272 if {[catch {set v $repo_config($name)}]} {
273 return {}
274 } else {
275 return $v
276 }
277}
278######################################################################
280##
281## handy utils
282proc _trace_exec {cmd} {
284 if {!$::_trace} return
285 set d {}
286 foreach v $cmd {
287 if {$d ne {}} {
288 append d { }
289 }
290 if {[regexp {[ \t\r\n'"$?*]} $v]} {
291 set v [sq $v]
292 }
293 append d $v
294 }
295 puts stderr $d
296}
297proc _git_cmd {name} {
299 global _git_cmd_path
300 if {[catch {set v $_git_cmd_path($name)}]} {
302 switch -- $name {
303 version -
304 --version -
305 --exec-path { return [list $::_git $name] }
306 }
307 set p [gitexec git-$name$::_search_exe]
309 if {[file exists $p]} {
310 set v [list $p]
311 } elseif {[is_Windows] && [file exists [gitexec git-$name]]} {
312 # Try to determine what sort of magic will make
313 # git-$name go and do its thing, because native
314 # Tcl on Windows doesn't know it.
315 #
316 set p [gitexec git-$name]
317 set f [open $p r]
318 set s [gets $f]
319 close $f
320 switch -glob -- [lindex $s 0] {
322 #!*sh { set i sh }
323 #!*perl { set i perl }
324 #!*python { set i python }
325 default { error "git-$name is not supported: $s" }
326 }
327 upvar #0 _$i interp
329 if {![info exists interp]} {
330 set interp [_which $i]
331 }
332 if {$interp eq {}} {
333 error "git-$name requires $i (not in PATH)"
334 }
335 set v [concat [list $interp] [lrange $s 1 end] [list $p]]
336 } else {
337 # Assume it is builtin to git somehow and we
338 # aren't actually able to see a file for it.
339 #
340 set v [list $::_git $name]
341 }
342 set _git_cmd_path($name) $v
343 }
344 return $v
345}
346proc _which {what args} {
348 global env _search_exe _search_path
349 if {$_search_path eq {}} {
351 if {[is_Cygwin] && [regexp {^(/|\.:)} $env(PATH)]} {
352 set _search_path [split [exec cygpath \
353 --windows \
354 --path \
355 --absolute \
356 $env(PATH)] {;}]
357 set _search_exe .exe
358 } elseif {[is_Windows]} {
359 set gitguidir [file dirname [info script]]
360 regsub -all ";" $gitguidir "\\;" gitguidir
361 set env(PATH) "$gitguidir;$env(PATH)"
362 set _search_path [split $env(PATH) {;}]
363 set _search_exe .exe
364 } else {
365 set _search_path [split $env(PATH) :]
366 set _search_exe {}
367 }
368 }
369 if {[is_Windows] && [lsearch -exact $args -script] >= 0} {
371 set suffix {}
372 } else {
373 set suffix $_search_exe
374 }
375 foreach p $_search_path {
377 set p [file join $p $what$suffix]
378 if {[file exists $p]} {
379 return [file normalize $p]
380 }
381 }
382 return {}
383}
384proc _lappend_nice {cmd_var} {
386 global _nice
387 upvar $cmd_var cmd
388 if {![info exists _nice]} {
390 set _nice [_which nice]
391 }
392 if {$_nice ne {}} {
393 lappend cmd $_nice
394 }
395}
396proc git {args} {
398 set opt [list]
399 while {1} {
401 switch -- [lindex $args 0] {
402 --nice {
403 _lappend_nice opt
404 }
405 default {
407 break
408 }
409 }
411 set args [lrange $args 1 end]
413 }
414 set cmdp [_git_cmd [lindex $args 0]]
416 set args [lrange $args 1 end]
417 _trace_exec [concat $opt $cmdp $args]
419 set result [eval exec $opt $cmdp $args]
420 if {$::_trace} {
421 puts stderr "< $result"
422 }
423 return $result
424}
425proc _open_stdout_stderr {cmd} {
427 _trace_exec $cmd
428 if {[catch {
429 set fd [open [concat [list | ] $cmd] r]
430 } err]} {
431 if { [lindex $cmd end] eq {2>@1}
432 && $err eq {can not find channel named "1"}
433 } {
434 # Older versions of Tcl 8.4 don't have this 2>@1 IO
435 # redirect operator. Fallback to |& cat for those.
436 # The command was not actually started, so its safe
437 # to try to start it a second time.
438 #
439 set fd [open [concat \
440 [list | ] \
441 [lrange $cmd 0 end-1] \
442 [list |& cat] \
443 ] r]
444 } else {
445 error $err
446 }
447 }
448 fconfigure $fd -eofchar {}
449 return $fd
450}
451proc git_read {args} {
453 set opt [list]
454 while {1} {
456 switch -- [lindex $args 0] {
457 --nice {
458 _lappend_nice opt
459 }
460 --stderr {
462 lappend args 2>@1
463 }
464 default {
466 break
467 }
468 }
470 set args [lrange $args 1 end]
472 }
473 set cmdp [_git_cmd [lindex $args 0]]
475 set args [lrange $args 1 end]
476 return [_open_stdout_stderr [concat $opt $cmdp $args]]
478}
479proc git_write {args} {
481 set opt [list]
482 while {1} {
484 switch -- [lindex $args 0] {
485 --nice {
486 _lappend_nice opt
487 }
488 default {
490 break
491 }
492 }
494 set args [lrange $args 1 end]
496 }
497 set cmdp [_git_cmd [lindex $args 0]]
499 set args [lrange $args 1 end]
500 _trace_exec [concat $opt $cmdp $args]
502 return [open [concat [list | ] $opt $cmdp $args] w]
503}
504proc githook_read {hook_name args} {
506 set pchook [gitdir hooks $hook_name]
507 lappend args 2>@1
508 # On Windows [file executable] might lie so we need to ask
510 # the shell if the hook is executable. Yes that's annoying.
511 #
512 if {[is_Windows]} {
513 upvar #0 _sh interp
514 if {![info exists interp]} {
515 set interp [_which sh]
516 }
517 if {$interp eq {}} {
518 error "hook execution requires sh (not in PATH)"
519 }
520 set scr {if test -x "$1";then exec "$@";fi}
522 set sh_c [list $interp -c $scr $interp $pchook]
523 return [_open_stdout_stderr [concat $sh_c $args]]
524 }
525 if {[file executable $pchook]} {
527 return [_open_stdout_stderr [concat [list $pchook] $args]]
528 }
529 return {}
531}
532proc kill_file_process {fd} {
534 set process [pid $fd]
535 catch {
537 if {[is_Windows]} {
538 # Use a Cygwin-specific flag to allow killing
539 # native Windows processes
540 exec kill -f $process
541 } else {
542 exec kill $process
543 }
544 }
545}
546proc gitattr {path attr default} {
548 if {[catch {set r [git check-attr $attr -- $path]}]} {
549 set r unspecified
550 } else {
551 set r [join [lrange [split $r :] 2 end] :]
552 regsub {^ } $r {} r
553 }
554 if {$r eq {unspecified}} {
555 return $default
556 }
557 return $r
558}
559proc sq {value} {
561 regsub -all ' $value "'\\''" value
562 return "'$value'"
563}
564proc load_current_branch {} {
566 global current_branch is_detached
567 set fd [open [gitdir HEAD] r]
569 if {[gets $fd ref] < 1} {
570 set ref {}
571 }
572 close $fd
573 set pfx {ref: refs/heads/}
575 set len [string length $pfx]
576 if {[string equal -length $len $pfx $ref]} {
577 # We're on a branch. It might not exist. But
578 # HEAD looks good enough to be a branch.
579 #
580 set current_branch [string range $ref $len end]
581 set is_detached 0
582 } else {
583 # Assume this is a detached head.
584 #
585 set current_branch HEAD
586 set is_detached 1
587 }
588}
589auto_load tk_optionMenu
591rename tk_optionMenu real__tkOptionMenu
592proc tk_optionMenu {w varName args} {
593 set m [eval real__tkOptionMenu $w $varName $args]
594 $m configure -font font_ui
595 $w configure -font font_ui
596 return $m
597}
598proc rmsel_tag {text} {
600 $text tag conf sel \
601 -background [$text cget -background] \
602 -foreground [$text cget -foreground] \
603 -borderwidth 0
604 $text tag conf in_sel -background lightgray
605 bind $text <Motion> break
606 return $text
607}
608set root_exists 0
610bind . <Visibility> {
611 bind . <Visibility> {}
612 set root_exists 1
613}
614if {[is_Windows]} {
616 wm iconbitmap . -default $oguilib/git-gui.ico
617 set ::tk::AlwaysShowSelection 1
618 # Spoof an X11 display for SSH
620 if {![info exists env(DISPLAY)]} {
621 set env(DISPLAY) :9999
622 }
623} else {
624 catch {
625 image create photo gitlogo -width 16 -height 16
626 gitlogo put #33CC33 -to 7 0 9 2
628 gitlogo put #33CC33 -to 4 2 12 4
629 gitlogo put #33CC33 -to 7 4 9 6
630 gitlogo put #CC3333 -to 4 6 12 8
631 gitlogo put gray26 -to 4 9 6 10
632 gitlogo put gray26 -to 3 10 6 12
633 gitlogo put gray26 -to 8 9 13 11
634 gitlogo put gray26 -to 8 11 10 12
635 gitlogo put gray26 -to 11 11 13 14
636 gitlogo put gray26 -to 3 12 5 14
637 gitlogo put gray26 -to 5 13
638 gitlogo put gray26 -to 10 13
639 gitlogo put gray26 -to 4 14 12 15
640 gitlogo put gray26 -to 5 15 11 16
641 gitlogo redither
642 wm iconphoto . -default gitlogo
644 }
645}
646######################################################################
648##
649## config defaults
650set cursor_ptr arrow
652font create font_diff -family Courier -size 10
653font create font_ui
654catch {
655 label .dummy
656 eval font configure font_ui [font actual [.dummy cget -font]]
657 destroy .dummy
658}
659font create font_uiitalic
661font create font_uibold
662font create font_diffbold
663font create font_diffitalic
664foreach class {Button Checkbutton Entry Label
666 Labelframe Listbox Menu Message
667 Radiobutton Spinbox Text} {
668 option add *$class.font font_ui
669}
670unset class
671if {[is_Windows] || [is_MacOSX]} {
673 option add *Menu.tearOff 0
674}
675if {[is_MacOSX]} {
677 set M1B M1
678 set M1T Cmd
679} else {
680 set M1B Control
681 set M1T Ctrl
682}
683proc bind_button3 {w cmd} {
685 bind $w <Any-Button-3> $cmd
686 if {[is_MacOSX]} {
687 # Mac OS X sends Button-2 on right click through three-button mouse,
688 # or through trackpad right-clicking (two-finger touch + click).
689 bind $w <Any-Button-2> $cmd
690 bind $w <Control-Button-1> $cmd
691 }
692}
693proc apply_config {} {
695 global repo_config font_descs
696 foreach option $font_descs {
698 set name [lindex $option 0]
699 set font [lindex $option 1]
700 if {[catch {
701 set need_weight 1
702 foreach {cn cv} $repo_config(gui.$name) {
703 if {$cn eq {-weight}} {
704 set need_weight 0
705 }
706 font configure $font $cn $cv
707 }
708 if {$need_weight} {
709 font configure $font -weight normal
710 }
711 } err]} {
712 error_popup [strcat [mc "Invalid font specified in %s:" "gui.$name"] "\n\n$err"]
713 }
714 foreach {cn cv} [font configure $font] {
715 font configure ${font}bold $cn $cv
716 font configure ${font}italic $cn $cv
717 }
718 font configure ${font}bold -weight bold
719 font configure ${font}italic -slant italic
720 }
721}
722set default_config(branch.autosetupmerge) true
724set default_config(merge.tool) {}
725set default_config(mergetool.keepbackup) true
726set default_config(merge.diffstat) true
727set default_config(merge.summary) false
728set default_config(merge.verbosity) 2
729set default_config(user.name) {}
730set default_config(user.email) {}
731set default_config(gui.encoding) [encoding system]
733set default_config(gui.matchtrackingbranch) false
734set default_config(gui.pruneduringfetch) false
735set default_config(gui.trustmtime) false
736set default_config(gui.fastcopyblame) false
737set default_config(gui.copyblamethreshold) 40
738set default_config(gui.blamehistoryctx) 7
739set default_config(gui.diffcontext) 5
740set default_config(gui.commitmsgwidth) 75
741set default_config(gui.newbranchtemplate) {}
742set default_config(gui.spellingdictionary) {}
743set default_config(gui.fontui) [font configure font_ui]
744set default_config(gui.fontdiff) [font configure font_diff]
745set font_descs {
746 {fontui font_ui {mc "Main Font"}}
747 {fontdiff font_diff {mc "Diff/Console Font"}}
748}
749######################################################################
751##
752## find git
753set _git [_which git]
755if {$_git eq {}} {
756 catch {wm withdraw .}
757 tk_messageBox \
758 -icon error \
759 -type ok \
760 -title [mc "git-gui: fatal error"] \
761 -message [mc "Cannot find git in PATH."]
762 exit 1
763}
764######################################################################
766##
767## version check
768if {[catch {set _git_version [git --version]} err]} {
770 catch {wm withdraw .}
771 tk_messageBox \
772 -icon error \
773 -type ok \
774 -title [mc "git-gui: fatal error"] \
775 -message "Cannot determine Git version:
776$err
778[appname] requires Git 1.5.0 or later."
780 exit 1
781}
782if {![regsub {^git version } $_git_version {} _git_version]} {
783 catch {wm withdraw .}
784 tk_messageBox \
785 -icon error \
786 -type ok \
787 -title [mc "git-gui: fatal error"] \
788 -message [strcat [mc "Cannot parse Git version string:"] "\n\n$_git_version"]
789 exit 1
790}
791set _real_git_version $_git_version
793regsub -- {[\-\.]dirty$} $_git_version {} _git_version
794regsub {\.[0-9]+\.g[0-9a-f]+$} $_git_version {} _git_version
795regsub {\.[a-zA-Z]+\.?[0-9]+$} $_git_version {} _git_version
796regsub {\.GIT$} $_git_version {} _git_version
797regsub {\.[a-zA-Z]+\.?[0-9]+$} $_git_version {} _git_version
798if {![regexp {^[1-9]+(\.[0-9]+)+$} $_git_version]} {
800 catch {wm withdraw .}
801 if {[tk_messageBox \
802 -icon warning \
803 -type yesno \
804 -default no \
805 -title "[appname]: warning" \
806 -message [mc "Git version cannot be determined.
807%s claims it is version '%s'.
809%s requires at least Git 1.5.0 or later.
811Assume '%s' is version 1.5.0?
813" $_git $_real_git_version [appname] $_real_git_version]] eq {yes}} {
814 set _git_version 1.5.0
815 } else {
816 exit 1
817 }
818}
819unset _real_git_version
820proc git-version {args} {
822 global _git_version
823 switch [llength $args] {
825 0 {
826 return $_git_version
827 }
828 2 {
830 set op [lindex $args 0]
831 set vr [lindex $args 1]
832 set cm [package vcompare $_git_version $vr]
833 return [expr $cm $op 0]
834 }
835 4 {
837 set type [lindex $args 0]
838 set name [lindex $args 1]
839 set parm [lindex $args 2]
840 set body [lindex $args 3]
841 if {($type ne {proc} && $type ne {method})} {
843 error "Invalid arguments to git-version"
844 }
845 if {[llength $body] < 2 || [lindex $body end-1] ne {default}} {
846 error "Last arm of $type $name must be default"
847 }
848 foreach {op vr cb} [lrange $body 0 end-2] {
850 if {[git-version $op $vr]} {
851 return [uplevel [list $type $name $parm $cb]]
852 }
853 }
854 return [uplevel [list $type $name $parm [lindex $body end]]]
856 }
857 default {
859 error "git-version >= x"
860 }
861 }
863}
864if {[git-version < 1.5]} {
866 catch {wm withdraw .}
867 tk_messageBox \
868 -icon error \
869 -type ok \
870 -title [mc "git-gui: fatal error"] \
871 -message "[appname] requires Git 1.5.0 or later.
872You are using [git-version]:
874[git --version]"
876 exit 1
877}
878######################################################################
880##
881## configure our library
882set idx [file join $oguilib tclIndex]
884if {[catch {set fd [open $idx r]} err]} {
885 catch {wm withdraw .}
886 tk_messageBox \
887 -icon error \
888 -type ok \
889 -title [mc "git-gui: fatal error"] \
890 -message $err
891 exit 1
892}
893if {[gets $fd] eq {# Autogenerated by git-gui Makefile}} {
894 set idx [list]
895 while {[gets $fd n] >= 0} {
896 if {$n ne {} && ![string match #* $n]} {
897 lappend idx $n
898 }
899 }
900} else {
901 set idx {}
902}
903close $fd
904if {$idx ne {}} {
906 set loaded [list]
907 foreach p $idx {
908 if {[lsearch -exact $loaded $p] >= 0} continue
909 source [file join $oguilib $p]
910 lappend loaded $p
911 }
912 unset loaded p
913} else {
914 set auto_path [concat [list $oguilib] $auto_path]
915}
916unset -nocomplain idx fd
917######################################################################
919##
920## config file parsing
921git-version proc _parse_config {arr_name args} {
923 >= 1.5.3 {
924 upvar $arr_name arr
925 array unset arr
926 set buf {}
927 catch {
928 set fd_rc [eval \
929 [list git_read config] \
930 $args \
931 [list --null --list]]
932 fconfigure $fd_rc -translation binary
933 set buf [read $fd_rc]
934 close $fd_rc
935 }
936 foreach line [split $buf "\0"] {
937 if {[regexp {^([^\n]+)\n(.*)$} $line line name value]} {
938 if {[is_many_config $name]} {
939 lappend arr($name) $value
940 } else {
941 set arr($name) $value
942 }
943 }
944 }
945 }
946 default {
947 upvar $arr_name arr
948 array unset arr
949 catch {
950 set fd_rc [eval [list git_read config --list] $args]
951 while {[gets $fd_rc line] >= 0} {
952 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
953 if {[is_many_config $name]} {
954 lappend arr($name) $value
955 } else {
956 set arr($name) $value
957 }
958 }
959 }
960 close $fd_rc
961 }
962 }
963}
964proc load_config {include_global} {
966 global repo_config global_config system_config default_config
967 if {$include_global} {
969 _parse_config system_config --system
970 _parse_config global_config --global
971 }
972 _parse_config repo_config
973 foreach name [array names default_config] {
975 if {[catch {set v $system_config($name)}]} {
976 set system_config($name) $default_config($name)
977 }
978 }
979 foreach name [array names system_config] {
980 if {[catch {set v $global_config($name)}]} {
981 set global_config($name) $system_config($name)
982 }
983 if {[catch {set v $repo_config($name)}]} {
984 set repo_config($name) $system_config($name)
985 }
986 }
987}
988######################################################################
990##
991## feature option selection
992if {[regexp {^git-(.+)$} [file tail $argv0] _junk subcommand]} {
994 unset _junk
995} else {
996 set subcommand gui
997}
998if {$subcommand eq {gui.sh}} {
999 set subcommand gui
1000}
1001if {$subcommand eq {gui} && [llength $argv] > 0} {
1002 set subcommand [lindex $argv 0]
1003 set argv [lrange $argv 1 end]
1004}
1005enable_option multicommit
1007enable_option branch
1008enable_option transport
1009disable_option bare
1010switch -- $subcommand {
1012browser -
1013blame {
1014 enable_option bare
1015 disable_option multicommit
1017 disable_option branch
1018 disable_option transport
1019}
1020citool {
1021 enable_option singlecommit
1022 enable_option retcode
1023 disable_option multicommit
1025 disable_option branch
1026 disable_option transport
1027 while {[llength $argv] > 0} {
1029 set a [lindex $argv 0]
1030 switch -- $a {
1031 --amend {
1032 enable_option initialamend
1033 }
1034 --nocommit {
1035 enable_option nocommit
1036 enable_option nocommitmsg
1037 }
1038 --commitmsg {
1039 disable_option nocommitmsg
1040 }
1041 default {
1042 break
1043 }
1044 }
1045 set argv [lrange $argv 1 end]
1047 }
1048}
1049}
1050######################################################################
1052##
1053## execution environment
1054set have_tk85 [expr {[package vcompare $tk_version "8.5"] >= 0}]
1056# Suggest our implementation of askpass, if none is set
1058if {![info exists env(SSH_ASKPASS)]} {
1059 set env(SSH_ASKPASS) [gitexec git-gui--askpass]
1060}
1061######################################################################
1063##
1064## repository setup
1065set picked 0
1067if {[catch {
1068 set _gitdir $env(GIT_DIR)
1069 set _prefix {}
1070 }]
1071 && [catch {
1072 set _gitdir [git rev-parse --git-dir]
1073 set _prefix [git rev-parse --show-prefix]
1074 } err]} {
1075 load_config 1
1076 apply_config
1077 choose_repository::pick
1078 set picked 1
1079}
1080if {![file isdirectory $_gitdir] && [is_Cygwin]} {
1081 catch {set _gitdir [exec cygpath --windows $_gitdir]}
1082}
1083if {![file isdirectory $_gitdir]} {
1084 catch {wm withdraw .}
1085 error_popup [strcat [mc "Git directory not found:"] "\n\n$_gitdir"]
1086 exit 1
1087}
1088if {$_prefix ne {}} {
1089 regsub -all {[^/]+/} $_prefix ../ cdup
1090 if {[catch {cd $cdup} err]} {
1091 catch {wm withdraw .}
1092 error_popup [strcat [mc "Cannot move to top of working directory:"] "\n\n$err"]
1093 exit 1
1094 }
1095 unset cdup
1096} elseif {![is_enabled bare]} {
1097 if {[lindex [file split $_gitdir] end] ne {.git}} {
1098 catch {wm withdraw .}
1099 error_popup [strcat [mc "Cannot use funny .git directory:"] "\n\n$_gitdir"]
1100 exit 1
1101 }
1102 if {[catch {cd [file dirname $_gitdir]} err]} {
1103 catch {wm withdraw .}
1104 error_popup [strcat [mc "No working directory"] " [file dirname $_gitdir]:\n\n$err"]
1105 exit 1
1106 }
1107}
1108set _reponame [file split [file normalize $_gitdir]]
1109if {[lindex $_reponame end] eq {.git}} {
1110 set _reponame [lindex $_reponame end-1]
1111} else {
1112 set _reponame [lindex $_reponame end]
1113}
1114######################################################################
1116##
1117## global init
1118set current_diff_path {}
1120set current_diff_side {}
1121set diff_actions [list]
1122set HEAD {}
1124set PARENT {}
1125set MERGE_HEAD [list]
1126set commit_type {}
1127set empty_tree {}
1128set current_branch {}
1129set is_detached 0
1130set current_diff_path {}
1131set is_3way_diff 0
1132set is_conflict_diff 0
1133set selected_commit_type new
1134set diff_empty_count 0
1135set nullid "0000000000000000000000000000000000000000"
1137set nullid2 "0000000000000000000000000000000000000001"
1138######################################################################
1140##
1141## task management
1142set rescan_active 0
1144set diff_active 0
1145set last_clicked {}
1146set disable_on_lock [list]
1148set index_lock_type none
1149proc lock_index {type} {
1151 global index_lock_type disable_on_lock
1152 if {$index_lock_type eq {none}} {
1154 set index_lock_type $type
1155 foreach w $disable_on_lock {
1156 uplevel #0 $w disabled
1157 }
1158 return 1
1159 } elseif {$index_lock_type eq "begin-$type"} {
1160 set index_lock_type $type
1161 return 1
1162 }
1163 return 0
1164}
1165proc unlock_index {} {
1167 global index_lock_type disable_on_lock
1168 set index_lock_type none
1170 foreach w $disable_on_lock {
1171 uplevel #0 $w normal
1172 }
1173}
1174######################################################################
1176##
1177## status
1178proc repository_state {ctvar hdvar mhvar} {
1180 global current_branch
1181 upvar $ctvar ct $hdvar hd $mhvar mh
1182 set mh [list]
1184 load_current_branch
1186 if {[catch {set hd [git rev-parse --verify HEAD]}]} {
1187 set hd {}
1188 set ct initial
1189 return
1190 }
1191 set merge_head [gitdir MERGE_HEAD]
1193 if {[file exists $merge_head]} {
1194 set ct merge
1195 set fd_mh [open $merge_head r]
1196 while {[gets $fd_mh line] >= 0} {
1197 lappend mh $line
1198 }
1199 close $fd_mh
1200 return
1201 }
1202 set ct normal
1204}
1205proc PARENT {} {
1207 global PARENT empty_tree
1208 set p [lindex $PARENT 0]
1210 if {$p ne {}} {
1211 return $p
1212 }
1213 if {$empty_tree eq {}} {
1214 set empty_tree [git mktree << {}]
1215 }
1216 return $empty_tree
1217}
1218proc force_amend {} {
1220 global selected_commit_type
1221 global HEAD PARENT MERGE_HEAD commit_type
1222 repository_state newType newHEAD newMERGE_HEAD
1224 set HEAD $newHEAD
1225 set PARENT $newHEAD
1226 set MERGE_HEAD $newMERGE_HEAD
1227 set commit_type $newType
1228 set selected_commit_type amend
1230 do_select_commit_type
1231}
1232proc rescan {after {honor_trustmtime 1}} {
1234 global HEAD PARENT MERGE_HEAD commit_type
1235 global ui_index ui_workdir ui_comm
1236 global rescan_active file_states
1237 global repo_config
1238 if {$rescan_active > 0 || ![lock_index read]} return
1240 repository_state newType newHEAD newMERGE_HEAD
1242 if {[string match amend* $commit_type]
1243 && $newType eq {normal}
1244 && $newHEAD eq $HEAD} {
1245 } else {
1246 set HEAD $newHEAD
1247 set PARENT $newHEAD
1248 set MERGE_HEAD $newMERGE_HEAD
1249 set commit_type $newType
1250 }
1251 array unset file_states
1253 if {!$::GITGUI_BCK_exists &&
1255 (![$ui_comm edit modified]
1256 || [string trim [$ui_comm get 0.0 end]] eq {})} {
1257 if {[string match amend* $commit_type]} {
1258 } elseif {[load_message GITGUI_MSG]} {
1259 } elseif {[run_prepare_commit_msg_hook]} {
1260 } elseif {[load_message MERGE_MSG]} {
1261 } elseif {[load_message SQUASH_MSG]} {
1262 }
1263 $ui_comm edit reset
1264 $ui_comm edit modified false
1265 }
1266 if {$honor_trustmtime && $repo_config(gui.trustmtime) eq {true}} {
1268 rescan_stage2 {} $after
1269 } else {
1270 set rescan_active 1
1271 ui_status [mc "Refreshing file status..."]
1272 set fd_rf [git_read update-index \
1273 -q \
1274 --unmerged \
1275 --ignore-missing \
1276 --refresh \
1277 ]
1278 fconfigure $fd_rf -blocking 0 -translation binary
1279 fileevent $fd_rf readable \
1280 [list rescan_stage2 $fd_rf $after]
1281 }
1282}
1283if {[is_Cygwin]} {
1285 set is_git_info_exclude {}
1286 proc have_info_exclude {} {
1287 global is_git_info_exclude
1288 if {$is_git_info_exclude eq {}} {
1290 if {[catch {exec test -f [gitdir info exclude]}]} {
1291 set is_git_info_exclude 0
1292 } else {
1293 set is_git_info_exclude 1
1294 }
1295 }
1296 return $is_git_info_exclude
1297 }
1298} else {
1299 proc have_info_exclude {} {
1300 return [file readable [gitdir info exclude]]
1301 }
1302}
1303proc rescan_stage2 {fd after} {
1305 global rescan_active buf_rdi buf_rdf buf_rlo
1306 if {$fd ne {}} {
1308 read $fd
1309 if {![eof $fd]} return
1310 close $fd
1311 }
1312 set ls_others [list --exclude-per-directory=.gitignore]
1314 if {[have_info_exclude]} {
1315 lappend ls_others "--exclude-from=[gitdir info exclude]"
1316 }
1317 set user_exclude [get_config core.excludesfile]
1318 if {$user_exclude ne {} && [file readable $user_exclude]} {
1319 lappend ls_others "--exclude-from=$user_exclude"
1320 }
1321 set buf_rdi {}
1323 set buf_rdf {}
1324 set buf_rlo {}
1325 set rescan_active 3
1327 ui_status [mc "Scanning for modified files ..."]
1328 set fd_di [git_read diff-index --cached -z [PARENT]]
1329 set fd_df [git_read diff-files -z]
1330 set fd_lo [eval git_read ls-files --others -z $ls_others]
1331 fconfigure $fd_di -blocking 0 -translation binary -encoding binary
1333 fconfigure $fd_df -blocking 0 -translation binary -encoding binary
1334 fconfigure $fd_lo -blocking 0 -translation binary -encoding binary
1335 fileevent $fd_di readable [list read_diff_index $fd_di $after]
1336 fileevent $fd_df readable [list read_diff_files $fd_df $after]
1337 fileevent $fd_lo readable [list read_ls_others $fd_lo $after]
1338}
1339proc load_message {file} {
1341 global ui_comm
1342 set f [gitdir $file]
1344 if {[file isfile $f]} {
1345 if {[catch {set fd [open $f r]}]} {
1346 return 0
1347 }
1348 fconfigure $fd -eofchar {}
1349 set content [string trim [read $fd]]
1350 close $fd
1351 regsub -all -line {[ \r\t]+$} $content {} content
1352 $ui_comm delete 0.0 end
1353 $ui_comm insert end $content
1354 return 1
1355 }
1356 return 0
1357}
1358proc run_prepare_commit_msg_hook {} {
1360 global pch_error
1361 # prepare-commit-msg requires PREPARE_COMMIT_MSG exist. From git-gui
1363 # it will be .git/MERGE_MSG (merge), .git/SQUASH_MSG (squash), or an
1364 # empty file but existant file.
1365 set fd_pcm [open [gitdir PREPARE_COMMIT_MSG] a]
1367 if {[file isfile [gitdir MERGE_MSG]]} {
1369 set pcm_source "merge"
1370 set fd_mm [open [gitdir MERGE_MSG] r]
1371 puts -nonewline $fd_pcm [read $fd_mm]
1372 close $fd_mm
1373 } elseif {[file isfile [gitdir SQUASH_MSG]]} {
1374 set pcm_source "squash"
1375 set fd_sm [open [gitdir SQUASH_MSG] r]
1376 puts -nonewline $fd_pcm [read $fd_sm]
1377 close $fd_sm
1378 } else {
1379 set pcm_source ""
1380 }
1381 close $fd_pcm
1383 set fd_ph [githook_read prepare-commit-msg \
1385 [gitdir PREPARE_COMMIT_MSG] $pcm_source]
1386 if {$fd_ph eq {}} {
1387 catch {file delete [gitdir PREPARE_COMMIT_MSG]}
1388 return 0;
1389 }
1390 ui_status [mc "Calling prepare-commit-msg hook..."]
1392 set pch_error {}
1393 fconfigure $fd_ph -blocking 0 -translation binary -eofchar {}
1395 fileevent $fd_ph readable \
1396 [list prepare_commit_msg_hook_wait $fd_ph]
1397 return 1;
1399}
1400proc prepare_commit_msg_hook_wait {fd_ph} {
1402 global pch_error
1403 append pch_error [read $fd_ph]
1405 fconfigure $fd_ph -blocking 1
1406 if {[eof $fd_ph]} {
1407 if {[catch {close $fd_ph}]} {
1408 ui_status [mc "Commit declined by prepare-commit-msg hook."]
1409 hook_failed_popup prepare-commit-msg $pch_error
1410 catch {file delete [gitdir PREPARE_COMMIT_MSG]}
1411 exit 1
1412 } else {
1413 load_message PREPARE_COMMIT_MSG
1414 }
1415 set pch_error {}
1416 catch {file delete [gitdir PREPARE_COMMIT_MSG]}
1417 return
1418 }
1419 fconfigure $fd_ph -blocking 0
1420 catch {file delete [gitdir PREPARE_COMMIT_MSG]}
1421}
1422proc read_diff_index {fd after} {
1424 global buf_rdi
1425 append buf_rdi [read $fd]
1427 set c 0
1428 set n [string length $buf_rdi]
1429 while {$c < $n} {
1430 set z1 [string first "\0" $buf_rdi $c]
1431 if {$z1 == -1} break
1432 incr z1
1433 set z2 [string first "\0" $buf_rdi $z1]
1434 if {$z2 == -1} break
1435 incr c
1437 set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
1438 set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
1439 merge_state \
1440 [encoding convertfrom $p] \
1441 [lindex $i 4]? \
1442 [list [lindex $i 0] [lindex $i 2]] \
1443 [list]
1444 set c $z2
1445 incr c
1446 }
1447 if {$c < $n} {
1448 set buf_rdi [string range $buf_rdi $c end]
1449 } else {
1450 set buf_rdi {}
1451 }
1452 rescan_done $fd buf_rdi $after
1454}
1455proc read_diff_files {fd after} {
1457 global buf_rdf
1458 append buf_rdf [read $fd]
1460 set c 0
1461 set n [string length $buf_rdf]
1462 while {$c < $n} {
1463 set z1 [string first "\0" $buf_rdf $c]
1464 if {$z1 == -1} break
1465 incr z1
1466 set z2 [string first "\0" $buf_rdf $z1]
1467 if {$z2 == -1} break
1468 incr c
1470 set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
1471 set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
1472 merge_state \
1473 [encoding convertfrom $p] \
1474 ?[lindex $i 4] \
1475 [list] \
1476 [list [lindex $i 0] [lindex $i 2]]
1477 set c $z2
1478 incr c
1479 }
1480 if {$c < $n} {
1481 set buf_rdf [string range $buf_rdf $c end]
1482 } else {
1483 set buf_rdf {}
1484 }
1485 rescan_done $fd buf_rdf $after
1487}
1488proc read_ls_others {fd after} {
1490 global buf_rlo
1491 append buf_rlo [read $fd]
1493 set pck [split $buf_rlo "\0"]
1494 set buf_rlo [lindex $pck end]
1495 foreach p [lrange $pck 0 end-1] {
1496 set p [encoding convertfrom $p]
1497 if {[string index $p end] eq {/}} {
1498 set p [string range $p 0 end-1]
1499 }
1500 merge_state $p ?O
1501 }
1502 rescan_done $fd buf_rlo $after
1503}
1504proc rescan_done {fd buf after} {
1506 global rescan_active current_diff_path
1507 global file_states repo_config
1508 upvar $buf to_clear
1509 if {![eof $fd]} return
1511 set to_clear {}
1512 close $fd
1513 if {[incr rescan_active -1] > 0} return
1514 prune_selection
1516 unlock_index
1517 display_all_files
1518 if {$current_diff_path ne {}} { reshow_diff $after }
1519 if {$current_diff_path eq {}} { select_first_diff $after }
1520}
1521proc prune_selection {} {
1523 global file_states selected_paths
1524 foreach path [array names selected_paths] {
1526 if {[catch {set still_here $file_states($path)}]} {
1527 unset selected_paths($path)
1528 }
1529 }
1530}
1531######################################################################
1533##
1534## ui helpers
1535proc mapicon {w state path} {
1537 global all_icons
1538 if {[catch {set r $all_icons($state$w)}]} {
1540 puts "error: no icon for $w state={$state} $path"
1541 return file_plain
1542 }
1543 return $r
1544}
1545proc mapdesc {state path} {
1547 global all_descs
1548 if {[catch {set r $all_descs($state)}]} {
1550 puts "error: no desc for state={$state} $path"
1551 return $state
1552 }
1553 return $r
1554}
1555proc ui_status {msg} {
1557 global main_status
1558 if {[info exists main_status]} {
1559 $main_status show $msg
1560 }
1561}
1562proc ui_ready {{test {}}} {
1564 global main_status
1565 if {[info exists main_status]} {
1566 $main_status show [mc "Ready."] $test
1567 }
1568}
1569proc escape_path {path} {
1571 regsub -all {\\} $path "\\\\" path
1572 regsub -all "\n" $path "\\n" path
1573 return $path
1574}
1575proc short_path {path} {
1577 return [escape_path [lindex [file split $path] end]]
1578}
1579set next_icon_id 0
1581set null_sha1 [string repeat 0 40]
1582proc merge_state {path new_state {head_info {}} {index_info {}}} {
1584 global file_states next_icon_id null_sha1
1585 set s0 [string index $new_state 0]
1587 set s1 [string index $new_state 1]
1588 if {[catch {set info $file_states($path)}]} {
1590 set state __
1591 set icon n[incr next_icon_id]
1592 } else {
1593 set state [lindex $info 0]
1594 set icon [lindex $info 1]
1595 if {$head_info eq {}} {set head_info [lindex $info 2]}
1596 if {$index_info eq {}} {set index_info [lindex $info 3]}
1597 }
1598 if {$s0 eq {?}} {set s0 [string index $state 0]} \
1600 elseif {$s0 eq {_}} {set s0 _}
1601 if {$s1 eq {?}} {set s1 [string index $state 1]} \
1603 elseif {$s1 eq {_}} {set s1 _}
1604 if {$s0 eq {A} && $s1 eq {_} && $head_info eq {}} {
1606 set head_info [list 0 $null_sha1]
1607 } elseif {$s0 ne {_} && [string index $state 0] eq {_}
1608 && $head_info eq {}} {
1609 set head_info $index_info
1610 }
1611 set file_states($path) [list $s0$s1 $icon \
1613 $head_info $index_info \
1614 ]
1615 return $state
1616}
1617proc display_file_helper {w path icon_name old_m new_m} {
1619 global file_lists
1620 if {$new_m eq {_}} {
1622 set lno [lsearch -sorted -exact $file_lists($w) $path]
1623 if {$lno >= 0} {
1624 set file_lists($w) [lreplace $file_lists($w) $lno $lno]
1625 incr lno
1626 $w conf -state normal
1627 $w delete $lno.0 [expr {$lno + 1}].0
1628 $w conf -state disabled
1629 }
1630 } elseif {$old_m eq {_} && $new_m ne {_}} {
1631 lappend file_lists($w) $path
1632 set file_lists($w) [lsort -unique $file_lists($w)]
1633 set lno [lsearch -sorted -exact $file_lists($w) $path]
1634 incr lno
1635 $w conf -state normal
1636 $w image create $lno.0 \
1637 -align center -padx 5 -pady 1 \
1638 -name $icon_name \
1639 -image [mapicon $w $new_m $path]
1640 $w insert $lno.1 "[escape_path $path]\n"
1641 $w conf -state disabled
1642 } elseif {$old_m ne $new_m} {
1643 $w conf -state normal
1644 $w image conf $icon_name -image [mapicon $w $new_m $path]
1645 $w conf -state disabled
1646 }
1647}
1648proc display_file {path state} {
1650 global file_states selected_paths
1651 global ui_index ui_workdir
1652 set old_m [merge_state $path $state]
1654 set s $file_states($path)
1655 set new_m [lindex $s 0]
1656 set icon_name [lindex $s 1]
1657 set o [string index $old_m 0]
1659 set n [string index $new_m 0]
1660 if {$o eq {U}} {
1661 set o _
1662 }
1663 if {$n eq {U}} {
1664 set n _
1665 }
1666 display_file_helper $ui_index $path $icon_name $o $n
1667 if {[string index $old_m 0] eq {U}} {
1669 set o U
1670 } else {
1671 set o [string index $old_m 1]
1672 }
1673 if {[string index $new_m 0] eq {U}} {
1674 set n U
1675 } else {
1676 set n [string index $new_m 1]
1677 }
1678 display_file_helper $ui_workdir $path $icon_name $o $n
1679 if {$new_m eq {__}} {
1681 unset file_states($path)
1682 catch {unset selected_paths($path)}
1683 }
1684}
1685proc display_all_files_helper {w path icon_name m} {
1687 global file_lists
1688 lappend file_lists($w) $path
1690 set lno [expr {[lindex [split [$w index end] .] 0] - 1}]
1691 $w image create end \
1692 -align center -padx 5 -pady 1 \
1693 -name $icon_name \
1694 -image [mapicon $w $m $path]
1695 $w insert end "[escape_path $path]\n"
1696}
1697proc display_all_files {} {
1699 global ui_index ui_workdir
1700 global file_states file_lists
1701 global last_clicked
1702 $ui_index conf -state normal
1704 $ui_workdir conf -state normal
1705 $ui_index delete 0.0 end
1707 $ui_workdir delete 0.0 end
1708 set last_clicked {}
1709 set file_lists($ui_index) [list]
1711 set file_lists($ui_workdir) [list]
1712 foreach path [lsort [array names file_states]] {
1714 set s $file_states($path)
1715 set m [lindex $s 0]
1716 set icon_name [lindex $s 1]
1717 set s [string index $m 0]
1719 if {$s ne {U} && $s ne {_}} {
1720 display_all_files_helper $ui_index $path \
1721 $icon_name $s
1722 }
1723 if {[string index $m 0] eq {U}} {
1725 set s U
1726 } else {
1727 set s [string index $m 1]
1728 }
1729 if {$s ne {_}} {
1730 display_all_files_helper $ui_workdir $path \
1731 $icon_name $s
1732 }
1733 }
1734 $ui_index conf -state disabled
1736 $ui_workdir conf -state disabled
1737}
1738######################################################################
1740##
1741## icons
1742set filemask {
1744#define mask_width 14
1745#define mask_height 15
1746static unsigned char mask_bits[] = {
1747 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
1748 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
1749 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
1750}
1751image create bitmap file_plain -background white -foreground black -data {
1753#define plain_width 14
1754#define plain_height 15
1755static unsigned char plain_bits[] = {
1756 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
1757 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
1758 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1759} -maskdata $filemask
1760image create bitmap file_mod -background white -foreground blue -data {
1762#define mod_width 14
1763#define mod_height 15
1764static unsigned char mod_bits[] = {
1765 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
1766 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
1767 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
1768} -maskdata $filemask
1769image create bitmap file_fulltick -background white -foreground "#007000" -data {
1771#define file_fulltick_width 14
1772#define file_fulltick_height 15
1773static unsigned char file_fulltick_bits[] = {
1774 0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
1775 0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
1776 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1777} -maskdata $filemask
1778image create bitmap file_parttick -background white -foreground "#005050" -data {
1780#define parttick_width 14
1781#define parttick_height 15
1782static unsigned char parttick_bits[] = {
1783 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
1784 0x7a, 0x14, 0x02, 0x16, 0x02, 0x13, 0x8a, 0x11, 0xda, 0x10, 0x72, 0x10,
1785 0x22, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1786} -maskdata $filemask
1787image create bitmap file_question -background white -foreground black -data {
1789#define file_question_width 14
1790#define file_question_height 15
1791static unsigned char file_question_bits[] = {
1792 0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
1793 0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
1794 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1795} -maskdata $filemask
1796image create bitmap file_removed -background white -foreground red -data {
1798#define file_removed_width 14
1799#define file_removed_height 15
1800static unsigned char file_removed_bits[] = {
1801 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
1802 0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
1803 0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
1804} -maskdata $filemask
1805image create bitmap file_merge -background white -foreground blue -data {
1807#define file_merge_width 14
1808#define file_merge_height 15
1809static unsigned char file_merge_bits[] = {
1810 0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
1811 0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
1812 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
1813} -maskdata $filemask
1814image create bitmap file_statechange -background white -foreground green -data {
1816#define file_merge_width 14
1817#define file_merge_height 15
1818static unsigned char file_statechange_bits[] = {
1819 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x62, 0x10,
1820 0x62, 0x10, 0xba, 0x11, 0xba, 0x11, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10,
1821 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1822} -maskdata $filemask
1823set ui_index .vpane.files.index.list
1825set ui_workdir .vpane.files.workdir.list
1826set all_icons(_$ui_index) file_plain
1828set all_icons(A$ui_index) file_fulltick
1829set all_icons(M$ui_index) file_fulltick
1830set all_icons(D$ui_index) file_removed
1831set all_icons(U$ui_index) file_merge
1832set all_icons(T$ui_index) file_statechange
1833set all_icons(_$ui_workdir) file_plain
1835set all_icons(M$ui_workdir) file_mod
1836set all_icons(D$ui_workdir) file_question
1837set all_icons(U$ui_workdir) file_merge
1838set all_icons(O$ui_workdir) file_plain
1839set all_icons(T$ui_workdir) file_statechange
1840set max_status_desc 0
1842foreach i {
1843 {__ {mc "Unmodified"}}
1844 {_M {mc "Modified, not staged"}}
1846 {M_ {mc "Staged for commit"}}
1847 {MM {mc "Portions staged for commit"}}
1848 {MD {mc "Staged for commit, missing"}}
1849 {_T {mc "File type changed, not staged"}}
1851 {T_ {mc "File type changed, staged"}}
1852 {_O {mc "Untracked, not staged"}}
1854 {A_ {mc "Staged for commit"}}
1855 {AM {mc "Portions staged for commit"}}
1856 {AD {mc "Staged for commit, missing"}}
1857 {_D {mc "Missing"}}
1859 {D_ {mc "Staged for removal"}}
1860 {DO {mc "Staged for removal, still present"}}
1861 {_U {mc "Requires merge resolution"}}
1863 {U_ {mc "Requires merge resolution"}}
1864 {UU {mc "Requires merge resolution"}}
1865 {UM {mc "Requires merge resolution"}}
1866 {UD {mc "Requires merge resolution"}}
1867 {UT {mc "Requires merge resolution"}}
1868 } {
1869 set text [eval [lindex $i 1]]
1870 if {$max_status_desc < [string length $text]} {
1871 set max_status_desc [string length $text]
1872 }
1873 set all_descs([lindex $i 0]) $text
1874}
1875unset i
1876######################################################################
1878##
1879## util
1880proc scrollbar2many {list mode args} {
1882 foreach w $list {eval $w $mode $args}
1883}
1884proc many2scrollbar {list mode sb top bottom} {
1886 $sb set $top $bottom
1887 foreach w $list {$w $mode moveto $top}
1888}
1889proc incr_font_size {font {amt 1}} {
1891 set sz [font configure $font -size]
1892 incr sz $amt
1893 font configure $font -size $sz
1894 font configure ${font}bold -size $sz
1895 font configure ${font}italic -size $sz
1896}
1897######################################################################
1899##
1900## ui commands
1901set starting_gitk_msg [mc "Starting gitk... please wait..."]
1903proc do_gitk {revs} {
1905 # -- Always start gitk through whatever we were loaded with. This
1906 # lets us bypass using shell process on Windows systems.
1907 #
1908 set exe [_which gitk -script]
1909 set cmd [list [info nameofexecutable] $exe]
1910 if {$exe eq {}} {
1911 error_popup [mc "Couldn't find gitk in PATH"]
1912 } else {
1913 global env
1914 if {[info exists env(GIT_DIR)]} {
1916 set old_GIT_DIR $env(GIT_DIR)
1917 } else {
1918 set old_GIT_DIR {}
1919 }
1920 set pwd [pwd]
1922 cd [file dirname [gitdir]]
1923 set env(GIT_DIR) [file tail [gitdir]]
1924 eval exec $cmd $revs &
1926 if {$old_GIT_DIR eq {}} {
1928 unset env(GIT_DIR)
1929 } else {
1930 set env(GIT_DIR) $old_GIT_DIR
1931 }
1932 cd $pwd
1933 ui_status $::starting_gitk_msg
1935 after 10000 {
1936 ui_ready $starting_gitk_msg
1937 }
1938 }
1939}
1940proc do_explore {} {
1942 set explorer {}
1943 if {[is_Cygwin] || [is_Windows]} {
1944 set explorer "explorer.exe"
1945 } elseif {[is_MacOSX]} {
1946 set explorer "open"
1947 } else {
1948 # freedesktop.org-conforming system is our best shot
1949 set explorer "xdg-open"
1950 }
1951 eval exec $explorer [list [file nativename [file dirname [gitdir]]]] &
1952}
1953set is_quitting 0
1955set ret_code 1
1956proc terminate_me {win} {
1958 global ret_code
1959 if {$win ne {.}} return
1960 exit $ret_code
1961}
1962proc do_quit {{rc {1}}} {
1964 global ui_comm is_quitting repo_config commit_type
1965 global GITGUI_BCK_exists GITGUI_BCK_i
1966 global ui_comm_spell
1967 global ret_code
1968 if {$is_quitting} return
1970 set is_quitting 1
1971 if {[winfo exists $ui_comm]} {
1973 # -- Stash our current commit buffer.
1974 #
1975 set save [gitdir GITGUI_MSG]
1976 if {$GITGUI_BCK_exists && ![$ui_comm edit modified]} {
1977 file rename -force [gitdir GITGUI_BCK] $save
1978 set GITGUI_BCK_exists 0
1979 } else {
1980 set msg [string trim [$ui_comm get 0.0 end]]
1981 regsub -all -line {[ \r\t]+$} $msg {} msg
1982 if {(![string match amend* $commit_type]
1983 || [$ui_comm edit modified])
1984 && $msg ne {}} {
1985 catch {
1986 set fd [open $save w]
1987 puts -nonewline $fd $msg
1988 close $fd
1989 }
1990 } else {
1991 catch {file delete $save}
1992 }
1993 }
1994 # -- Cancel our spellchecker if its running.
1996 #
1997 if {[info exists ui_comm_spell]} {
1998 $ui_comm_spell stop
1999 }
2000 # -- Remove our editor backup, its not needed.
2002 #
2003 after cancel $GITGUI_BCK_i
2004 if {$GITGUI_BCK_exists} {
2005 catch {file delete [gitdir GITGUI_BCK]}
2006 }
2007 # -- Stash our current window geometry into this repository.
2009 #
2010 set cfg_geometry [list]
2011 lappend cfg_geometry [wm geometry .]
2012 lappend cfg_geometry [lindex [.vpane sash coord 0] 0]
2013 lappend cfg_geometry [lindex [.vpane.files sash coord 0] 1]
2014 if {[catch {set rc_geometry $repo_config(gui.geometry)}]} {
2015 set rc_geometry {}
2016 }
2017 if {$cfg_geometry ne $rc_geometry} {
2018 catch {git config gui.geometry $cfg_geometry}
2019 }
2020 }
2021 set ret_code $rc
2023 destroy .
2024}
2025proc do_rescan {} {
2027 rescan ui_ready
2028}
2029proc ui_do_rescan {} {
2031 rescan {force_first_diff ui_ready}
2032}
2033proc do_commit {} {
2035 commit_tree
2036}
2037proc next_diff {{after {}}} {
2039 global next_diff_p next_diff_w next_diff_i
2040 show_diff $next_diff_p $next_diff_w {} {} $after
2041}
2042proc find_anchor_pos {lst name} {
2044 set lid [lsearch -sorted -exact $lst $name]
2045 if {$lid == -1} {
2047 set lid 0
2048 foreach lname $lst {
2049 if {$lname >= $name} break
2050 incr lid
2051 }
2052 }
2053 return $lid
2055}
2056proc find_file_from {flist idx delta path mmask} {
2058 global file_states
2059 set len [llength $flist]
2061 while {$idx >= 0 && $idx < $len} {
2062 set name [lindex $flist $idx]
2063 if {$name ne $path && [info exists file_states($name)]} {
2065 set state [lindex $file_states($name) 0]
2066 if {$mmask eq {} || [regexp $mmask $state]} {
2068 return $idx
2069 }
2070 }
2071 incr idx $delta
2073 }
2074 return {}
2076}
2077proc find_next_diff {w path {lno {}} {mmask {}}} {
2079 global next_diff_p next_diff_w next_diff_i
2080 global file_lists ui_index ui_workdir
2081 set flist $file_lists($w)
2083 if {$lno eq {}} {
2084 set lno [find_anchor_pos $flist $path]
2085 } else {
2086 incr lno -1
2087 }
2088 if {$mmask ne {} && ![regexp {(^\^)|(\$$)} $mmask]} {
2090 if {$w eq $ui_index} {
2091 set mmask "^$mmask"
2092 } else {
2093 set mmask "$mmask\$"
2094 }
2095 }
2096 set idx [find_file_from $flist $lno 1 $path $mmask]
2098 if {$idx eq {}} {
2099 incr lno -1
2100 set idx [find_file_from $flist $lno -1 $path $mmask]
2101 }
2102 if {$idx ne {}} {
2104 set next_diff_w $w
2105 set next_diff_p [lindex $flist $idx]
2106 set next_diff_i [expr {$idx+1}]
2107 return 1
2108 } else {
2109 return 0
2110 }
2111}
2112proc next_diff_after_action {w path {lno {}} {mmask {}}} {
2114 global current_diff_path
2115 if {$path ne $current_diff_path} {
2117 return {}
2118 } elseif {[find_next_diff $w $path $lno $mmask]} {
2119 return {next_diff;}
2120 } else {
2121 return {reshow_diff;}
2122 }
2123}
2124proc select_first_diff {after} {
2126 global ui_workdir
2127 if {[find_next_diff $ui_workdir {} 1 {^_?U}] ||
2129 [find_next_diff $ui_workdir {} 1 {[^O]$}]} {
2130 next_diff $after
2131 } else {
2132 uplevel #0 $after
2133 }
2134}
2135proc force_first_diff {after} {
2137 global ui_workdir current_diff_path file_states
2138 if {[info exists file_states($current_diff_path)]} {
2140 set state [lindex $file_states($current_diff_path) 0]
2141 } else {
2142 set state {OO}
2143 }
2144 set reselect 0
2146 if {[string first {U} $state] >= 0} {
2147 # Already a conflict, do nothing
2148 } elseif {[find_next_diff $ui_workdir $current_diff_path {} {^_?U}]} {
2149 set reselect 1
2150 } elseif {[string index $state 1] ne {O}} {
2151 # Already a diff & no conflicts, do nothing
2152 } elseif {[find_next_diff $ui_workdir $current_diff_path {} {[^O]$}]} {
2153 set reselect 1
2154 }
2155 if {$reselect} {
2157 next_diff $after
2158 } else {
2159 uplevel #0 $after
2160 }
2161}
2162proc toggle_or_diff {w x y} {
2164 global file_states file_lists current_diff_path ui_index ui_workdir
2165 global last_clicked selected_paths
2166 set pos [split [$w index @$x,$y] .]
2168 set lno [lindex $pos 0]
2169 set col [lindex $pos 1]
2170 set path [lindex $file_lists($w) [expr {$lno - 1}]]
2171 if {$path eq {}} {
2172 set last_clicked {}
2173 return
2174 }
2175 set last_clicked [list $w $lno]
2177 array unset selected_paths
2178 $ui_index tag remove in_sel 0.0 end
2179 $ui_workdir tag remove in_sel 0.0 end
2180 # Determine the state of the file
2182 if {[info exists file_states($path)]} {
2183 set state [lindex $file_states($path) 0]
2184 } else {
2185 set state {__}
2186 }
2187 # Restage the file, or simply show the diff
2189 if {$col == 0 && $y > 1} {
2190 # Conflicts need special handling
2191 if {[string first {U} $state] >= 0} {
2192 # $w must always be $ui_workdir, but...
2193 if {$w ne $ui_workdir} { set lno {} }
2194 merge_stage_workdir $path $lno
2195 return
2196 }
2197 if {[string index $state 1] eq {O}} {
2199 set mmask {}
2200 } else {
2201 set mmask {[^O]}
2202 }
2203 set after [next_diff_after_action $w $path $lno $mmask]
2205 if {$w eq $ui_index} {
2207 update_indexinfo \
2208 "Unstaging [short_path $path] from commit" \
2209 [list $path] \
2210 [concat $after [list ui_ready]]
2211 } elseif {$w eq $ui_workdir} {
2212 update_index \
2213 "Adding [short_path $path]" \
2214 [list $path] \
2215 [concat $after [list ui_ready]]
2216 }
2217 } else {
2218 show_diff $path $w $lno
2219 }
2220}
2221proc add_one_to_selection {w x y} {
2223 global file_lists last_clicked selected_paths
2224 set lno [lindex [split [$w index @$x,$y] .] 0]
2226 set path [lindex $file_lists($w) [expr {$lno - 1}]]
2227 if {$path eq {}} {
2228 set last_clicked {}
2229 return
2230 }
2231 if {$last_clicked ne {}
2233 && [lindex $last_clicked 0] ne $w} {
2234 array unset selected_paths
2235 [lindex $last_clicked 0] tag remove in_sel 0.0 end
2236 }
2237 set last_clicked [list $w $lno]
2239 if {[catch {set in_sel $selected_paths($path)}]} {
2240 set in_sel 0
2241 }
2242 if {$in_sel} {
2243 unset selected_paths($path)
2244 $w tag remove in_sel $lno.0 [expr {$lno + 1}].0
2245 } else {
2246 set selected_paths($path) 1
2247 $w tag add in_sel $lno.0 [expr {$lno + 1}].0
2248 }
2249}
2250proc add_range_to_selection {w x y} {
2252 global file_lists last_clicked selected_paths
2253 if {[lindex $last_clicked 0] ne $w} {
2255 toggle_or_diff $w $x $y
2256 return
2257 }
2258 set lno [lindex [split [$w index @$x,$y] .] 0]
2260 set lc [lindex $last_clicked 1]
2261 if {$lc < $lno} {
2262 set begin $lc
2263 set end $lno
2264 } else {
2265 set begin $lno
2266 set end $lc
2267 }
2268 foreach path [lrange $file_lists($w) \
2270 [expr {$begin - 1}] \
2271 [expr {$end - 1}]] {
2272 set selected_paths($path) 1
2273 }
2274 $w tag add in_sel $begin.0 [expr {$end + 1}].0
2275}
2276proc show_more_context {} {
2278 global repo_config
2279 if {$repo_config(gui.diffcontext) < 99} {
2280 incr repo_config(gui.diffcontext)
2281 reshow_diff
2282 }
2283}
2284proc show_less_context {} {
2286 global repo_config
2287 if {$repo_config(gui.diffcontext) > 1} {
2288 incr repo_config(gui.diffcontext) -1
2289 reshow_diff
2290 }
2291}
2292######################################################################
2294##
2295## ui construction
2296load_config 0
2298apply_config
2299set ui_comm {}
2300# -- Menu Bar
2302#
2303menu .mbar -tearoff 0
2304.mbar add cascade -label [mc Repository] -menu .mbar.repository
2305.mbar add cascade -label [mc Edit] -menu .mbar.edit
2306if {[is_enabled branch]} {
2307 .mbar add cascade -label [mc Branch] -menu .mbar.branch
2308}
2309if {[is_enabled multicommit] || [is_enabled singlecommit]} {
2310 .mbar add cascade -label [mc Commit@@noun] -menu .mbar.commit
2311}
2312if {[is_enabled transport]} {
2313 .mbar add cascade -label [mc Merge] -menu .mbar.merge
2314 .mbar add cascade -label [mc Remote] -menu .mbar.remote
2315}
2316if {[is_enabled multicommit] || [is_enabled singlecommit]} {
2317 .mbar add cascade -label [mc Tools] -menu .mbar.tools
2318}
2319. configure -menu .mbar
2320# -- Repository Menu
2322#
2323menu .mbar.repository
2324.mbar.repository add command \
2326 -label [mc "Explore Working Copy"] \
2327 -command {do_explore}
2328.mbar.repository add separator
2329.mbar.repository add command \
2331 -label [mc "Browse Current Branch's Files"] \
2332 -command {browser::new $current_branch}
2333set ui_browse_current [.mbar.repository index last]
2334.mbar.repository add command \
2335 -label [mc "Browse Branch Files..."] \
2336 -command browser_open::dialog
2337.mbar.repository add separator
2338.mbar.repository add command \
2340 -label [mc "Visualize Current Branch's History"] \
2341 -command {do_gitk $current_branch}
2342set ui_visualize_current [.mbar.repository index last]
2343.mbar.repository add command \
2344 -label [mc "Visualize All Branch History"] \
2345 -command {do_gitk --all}
2346.mbar.repository add separator
2347proc current_branch_write {args} {
2349 global current_branch
2350 .mbar.repository entryconf $::ui_browse_current \
2351 -label [mc "Browse %s's Files" $current_branch]
2352 .mbar.repository entryconf $::ui_visualize_current \
2353 -label [mc "Visualize %s's History" $current_branch]
2354}
2355trace add variable current_branch write current_branch_write
2356if {[is_enabled multicommit]} {
2358 .mbar.repository add command -label [mc "Database Statistics"] \
2359 -command do_stats
2360 .mbar.repository add command -label [mc "Compress Database"] \
2362 -command do_gc
2363 .mbar.repository add command -label [mc "Verify Database"] \
2365 -command do_fsck_objects
2366 .mbar.repository add separator
2368 if {[is_Cygwin]} {
2370 .mbar.repository add command \
2371 -label [mc "Create Desktop Icon"] \
2372 -command do_cygwin_shortcut
2373 } elseif {[is_Windows]} {
2374 .mbar.repository add command \
2375 -label [mc "Create Desktop Icon"] \
2376 -command do_windows_shortcut
2377 } elseif {[is_MacOSX]} {
2378 .mbar.repository add command \
2379 -label [mc "Create Desktop Icon"] \
2380 -command do_macosx_app
2381 }
2382}
2383if {[is_MacOSX]} {
2385 proc ::tk::mac::Quit {args} { do_quit }
2386} else {
2387 .mbar.repository add command -label [mc Quit] \
2388 -command do_quit \
2389 -accelerator $M1T-Q
2390}
2391# -- Edit Menu
2393#
2394menu .mbar.edit
2395.mbar.edit add command -label [mc Undo] \
2396 -command {catch {[focus] edit undo}} \
2397 -accelerator $M1T-Z
2398.mbar.edit add command -label [mc Redo] \
2399 -command {catch {[focus] edit redo}} \
2400 -accelerator $M1T-Y
2401.mbar.edit add separator
2402.mbar.edit add command -label [mc Cut] \
2403 -command {catch {tk_textCut [focus]}} \
2404 -accelerator $M1T-X
2405.mbar.edit add command -label [mc Copy] \
2406 -command {catch {tk_textCopy [focus]}} \
2407 -accelerator $M1T-C
2408.mbar.edit add command -label [mc Paste] \
2409 -command {catch {tk_textPaste [focus]; [focus] see insert}} \
2410 -accelerator $M1T-V
2411.mbar.edit add command -label [mc Delete] \
2412 -command {catch {[focus] delete sel.first sel.last}} \
2413 -accelerator Del
2414.mbar.edit add separator
2415.mbar.edit add command -label [mc "Select All"] \
2416 -command {catch {[focus] tag add sel 0.0 end}} \
2417 -accelerator $M1T-A
2418# -- Branch Menu
2420#
2421if {[is_enabled branch]} {
2422 menu .mbar.branch
2423 .mbar.branch add command -label [mc "Create..."] \
2425 -command branch_create::dialog \
2426 -accelerator $M1T-N
2427 lappend disable_on_lock [list .mbar.branch entryconf \
2428 [.mbar.branch index last] -state]
2429 .mbar.branch add command -label [mc "Checkout..."] \
2431 -command branch_checkout::dialog \
2432 -accelerator $M1T-O
2433 lappend disable_on_lock [list .mbar.branch entryconf \
2434 [.mbar.branch index last] -state]
2435 .mbar.branch add command -label [mc "Rename..."] \
2437 -command branch_rename::dialog
2438 lappend disable_on_lock [list .mbar.branch entryconf \
2439 [.mbar.branch index last] -state]
2440 .mbar.branch add command -label [mc "Delete..."] \
2442 -command branch_delete::dialog
2443 lappend disable_on_lock [list .mbar.branch entryconf \
2444 [.mbar.branch index last] -state]
2445 .mbar.branch add command -label [mc "Reset..."] \
2447 -command merge::reset_hard
2448 lappend disable_on_lock [list .mbar.branch entryconf \
2449 [.mbar.branch index last] -state]
2450}
2451# -- Commit Menu
2453#
2454proc commit_btn_caption {} {
2455 if {[is_enabled nocommit]} {
2456 return [mc "Done"]
2457 } else {
2458 return [mc Commit@@verb]
2459 }
2460}
2461if {[is_enabled multicommit] || [is_enabled singlecommit]} {
2463 menu .mbar.commit
2464 if {![is_enabled nocommit]} {
2466 .mbar.commit add radiobutton \
2467 -label [mc "New Commit"] \
2468 -command do_select_commit_type \
2469 -variable selected_commit_type \
2470 -value new
2471 lappend disable_on_lock \
2472 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2473 .mbar.commit add radiobutton \
2475 -label [mc "Amend Last Commit"] \
2476 -command do_select_commit_type \
2477 -variable selected_commit_type \
2478 -value amend
2479 lappend disable_on_lock \
2480 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2481 .mbar.commit add separator
2483 }
2484 .mbar.commit add command -label [mc Rescan] \
2486 -command ui_do_rescan \
2487 -accelerator F5
2488 lappend disable_on_lock \
2489 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2490 .mbar.commit add command -label [mc "Stage To Commit"] \
2492 -command do_add_selection \
2493 -accelerator $M1T-T
2494 lappend disable_on_lock \
2495 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2496 .mbar.commit add command -label [mc "Stage Changed Files To Commit"] \
2498 -command do_add_all \
2499 -accelerator $M1T-I
2500 lappend disable_on_lock \
2501 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2502 .mbar.commit add command -label [mc "Unstage From Commit"] \
2504 -command do_unstage_selection
2505 lappend disable_on_lock \
2506 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2507 .mbar.commit add command -label [mc "Revert Changes"] \
2509 -command do_revert_selection
2510 lappend disable_on_lock \
2511 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2512 .mbar.commit add separator
2514 .mbar.commit add command -label [mc "Show Less Context"] \
2516 -command show_less_context \
2517 -accelerator $M1T-\-
2518 .mbar.commit add command -label [mc "Show More Context"] \
2520 -command show_more_context \
2521 -accelerator $M1T-=
2522 .mbar.commit add separator
2524 if {![is_enabled nocommitmsg]} {
2526 .mbar.commit add command -label [mc "Sign Off"] \
2527 -command do_signoff \
2528 -accelerator $M1T-S
2529 }
2530 .mbar.commit add command -label [commit_btn_caption] \
2532 -command do_commit \
2533 -accelerator $M1T-Return
2534 lappend disable_on_lock \
2535 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2536}
2537# -- Merge Menu
2539#
2540if {[is_enabled branch]} {
2541 menu .mbar.merge
2542 .mbar.merge add command -label [mc "Local Merge..."] \
2543 -command merge::dialog \
2544 -accelerator $M1T-M
2545 lappend disable_on_lock \
2546 [list .mbar.merge entryconf [.mbar.merge index last] -state]
2547 .mbar.merge add command -label [mc "Abort Merge..."] \
2548 -command merge::reset_hard
2549 lappend disable_on_lock \
2550 [list .mbar.merge entryconf [.mbar.merge index last] -state]
2551}
2552# -- Transport Menu
2554#
2555if {[is_enabled transport]} {
2556 menu .mbar.remote
2557 .mbar.remote add command \
2559 -label [mc "Add..."] \
2560 -command remote_add::dialog \
2561 -accelerator $M1T-A
2562 .mbar.remote add command \
2563 -label [mc "Push..."] \
2564 -command do_push_anywhere \
2565 -accelerator $M1T-P
2566 .mbar.remote add command \
2567 -label [mc "Delete Branch..."] \
2568 -command remote_branch_delete::dialog
2569}
2570if {[is_MacOSX]} {
2572 # -- Apple Menu (Mac OS X only)
2573 #
2574 .mbar add cascade -label Apple -menu .mbar.apple
2575 menu .mbar.apple
2576 .mbar.apple add command -label [mc "About %s" [appname]] \
2578 -command do_about
2579 .mbar.apple add separator
2580 .mbar.apple add command \
2581 -label [mc "Preferences..."] \
2582 -command do_options \
2583 -accelerator $M1T-,
2584 bind . <$M1B-,> do_options
2585} else {
2586 # -- Edit Menu
2587 #
2588 .mbar.edit add separator
2589 .mbar.edit add command -label [mc "Options..."] \
2590 -command do_options
2591}
2592# -- Tools Menu
2594#
2595if {[is_enabled multicommit] || [is_enabled singlecommit]} {
2596 set tools_menubar .mbar.tools
2597 menu $tools_menubar
2598 $tools_menubar add separator
2599 $tools_menubar add command -label [mc "Add..."] -command tools_add::dialog
2600 $tools_menubar add command -label [mc "Remove..."] -command tools_remove::dialog
2601 set tools_tailcnt 3
2602 if {[array names repo_config guitool.*.cmd] ne {}} {
2603 tools_populate_all
2604 }
2605}
2606# -- Help Menu
2608#
2609.mbar add cascade -label [mc Help] -menu .mbar.help
2610menu .mbar.help
2611if {![is_MacOSX]} {
2613 .mbar.help add command -label [mc "About %s" [appname]] \
2614 -command do_about
2615}
2616set doc_path [githtmldir]
2619if {$doc_path ne {}} {
2620 set doc_path [file join $doc_path index.html]
2621 if {[is_Cygwin]} {
2623 set doc_path [exec cygpath --mixed $doc_path]
2624 }
2625}
2626if {[file isfile $doc_path]} {
2628 set doc_url "file:$doc_path"
2629} else {
2630 set doc_url {http://www.kernel.org/pub/software/scm/git/docs/}
2631}
2632proc start_browser {url} {
2634 git "web--browse" $url
2635}
2636.mbar.help add command -label [mc "Online Documentation"] \
2638 -command [list start_browser $doc_url]
2639.mbar.help add command -label [mc "Show SSH Key"] \
2641 -command do_ssh_key
2642unset doc_path doc_url
2644# -- Standard bindings
2646#
2647wm protocol . WM_DELETE_WINDOW do_quit
2648bind all <$M1B-Key-q> do_quit
2649bind all <$M1B-Key-Q> do_quit
2650bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}
2651bind all <$M1B-Key-W> {destroy [winfo toplevel %W]}
2652set subcommand_args {}
2654proc usage {} {
2655 puts stderr "usage: $::argv0 $::subcommand $::subcommand_args"
2656 exit 1
2657}
2658proc normalize_relpath {path} {
2660 set elements {}
2661 foreach item [file split $path] {
2662 if {$item eq {.}} continue
2663 if {$item eq {..} && [llength $elements] > 0
2664 && [lindex $elements end] ne {..}} {
2665 set elements [lrange $elements 0 end-1]
2666 continue
2667 }
2668 lappend elements $item
2669 }
2670 return [eval file join $elements]
2671}
2672# -- Not a normal commit type invocation? Do that instead!
2674#
2675switch -- $subcommand {
2676browser -
2677blame {
2678 if {$subcommand eq "blame"} {
2679 set subcommand_args {[--line=<num>] rev? path}
2680 } else {
2681 set subcommand_args {rev? path}
2682 }
2683 if {$argv eq {}} usage
2684 set head {}
2685 set path {}
2686 set jump_spec {}
2687 set is_path 0
2688 foreach a $argv {
2689 if {$is_path || [file exists $_prefix$a]} {
2690 if {$path ne {}} usage
2691 set path [normalize_relpath $_prefix$a]
2692 break
2693 } elseif {$a eq {--}} {
2694 if {$path ne {}} {
2695 if {$head ne {}} usage
2696 set head $path
2697 set path {}
2698 }
2699 set is_path 1
2700 } elseif {[regexp {^--line=(\d+)$} $a a lnum]} {
2701 if {$jump_spec ne {} || $head ne {}} usage
2702 set jump_spec [list $lnum]
2703 } elseif {$head eq {}} {
2704 if {$head ne {}} usage
2705 set head $a
2706 set is_path 1
2707 } else {
2708 usage
2709 }
2710 }
2711 unset is_path
2712 if {$head ne {} && $path eq {}} {
2714 set path [normalize_relpath $_prefix$head]
2715 set head {}
2716 }
2717 if {$head eq {}} {
2719 load_current_branch
2720 } else {
2721 if {[regexp {^[0-9a-f]{1,39}$} $head]} {
2722 if {[catch {
2723 set head [git rev-parse --verify $head]
2724 } err]} {
2725 puts stderr $err
2726 exit 1
2727 }
2728 }
2729 set current_branch $head
2730 }
2731 switch -- $subcommand {
2733 browser {
2734 if {$jump_spec ne {}} usage
2735 if {$head eq {}} {
2736 if {$path ne {} && [file isdirectory $path]} {
2737 set head $current_branch
2738 } else {
2739 set head $path
2740 set path {}
2741 }
2742 }
2743 browser::new $head $path
2744 }
2745 blame {
2746 if {$head eq {} && ![file exists $path]} {
2747 puts stderr [mc "fatal: cannot stat path %s: No such file or directory" $path]
2748 exit 1
2749 }
2750 blame::new $head $path $jump_spec
2751 }
2752 }
2753 return
2754}
2755citool -
2756gui {
2757 if {[llength $argv] != 0} {
2758 puts -nonewline stderr "usage: $argv0"
2759 if {$subcommand ne {gui}
2760 && [file tail $argv0] ne "git-$subcommand"} {
2761 puts -nonewline stderr " $subcommand"
2762 }
2763 puts stderr {}
2764 exit 1
2765 }
2766 # fall through to setup UI for commits
2767}
2768default {
2769 puts stderr "usage: $argv0 \[{blame|browser|citool}\]"
2770 exit 1
2771}
2772}
2773# -- Branch Control
2775#
2776frame .branch \
2777 -borderwidth 1 \
2778 -relief sunken
2779label .branch.l1 \
2780 -text [mc "Current Branch:"] \
2781 -anchor w \
2782 -justify left
2783label .branch.cb \
2784 -textvariable current_branch \
2785 -anchor w \
2786 -justify left
2787pack .branch.l1 -side left
2788pack .branch.cb -side left -fill x
2789pack .branch -side top -fill x
2790# -- Main Window Layout
2792#
2793panedwindow .vpane -orient horizontal
2794panedwindow .vpane.files -orient vertical
2795.vpane add .vpane.files -sticky nsew -height 100 -width 200
2796pack .vpane -anchor n -side top -fill both -expand 1
2797# -- Index File List
2799#
2800frame .vpane.files.index -height 100 -width 200
2801label .vpane.files.index.title -text [mc "Staged Changes (Will Commit)"] \
2802 -background lightgreen -foreground black
2803text $ui_index -background white -foreground black \
2804 -borderwidth 0 \
2805 -width 20 -height 10 \
2806 -wrap none \
2807 -cursor $cursor_ptr \
2808 -xscrollcommand {.vpane.files.index.sx set} \
2809 -yscrollcommand {.vpane.files.index.sy set} \
2810 -state disabled
2811scrollbar .vpane.files.index.sx -orient h -command [list $ui_index xview]
2812scrollbar .vpane.files.index.sy -orient v -command [list $ui_index yview]
2813pack .vpane.files.index.title -side top -fill x
2814pack .vpane.files.index.sx -side bottom -fill x
2815pack .vpane.files.index.sy -side right -fill y
2816pack $ui_index -side left -fill both -expand 1
2817# -- Working Directory File List
2819#
2820frame .vpane.files.workdir -height 100 -width 200
2821label .vpane.files.workdir.title -text [mc "Unstaged Changes"] \
2822 -background lightsalmon -foreground black
2823text $ui_workdir -background white -foreground black \
2824 -borderwidth 0 \
2825 -width 20 -height 10 \
2826 -wrap none \
2827 -cursor $cursor_ptr \
2828 -xscrollcommand {.vpane.files.workdir.sx set} \
2829 -yscrollcommand {.vpane.files.workdir.sy set} \
2830 -state disabled
2831scrollbar .vpane.files.workdir.sx -orient h -command [list $ui_workdir xview]
2832scrollbar .vpane.files.workdir.sy -orient v -command [list $ui_workdir yview]
2833pack .vpane.files.workdir.title -side top -fill x
2834pack .vpane.files.workdir.sx -side bottom -fill x
2835pack .vpane.files.workdir.sy -side right -fill y
2836pack $ui_workdir -side left -fill both -expand 1
2837.vpane.files add .vpane.files.workdir -sticky nsew
2839.vpane.files add .vpane.files.index -sticky nsew
2840foreach i [list $ui_index $ui_workdir] {
2842 rmsel_tag $i
2843 $i tag conf in_diff -background [$i tag cget in_sel -background]
2844}
2845unset i
2846# -- Diff and Commit Area
2848#
2849frame .vpane.lower -height 300 -width 400
2850frame .vpane.lower.commarea
2851frame .vpane.lower.diff -relief sunken -borderwidth 1
2852pack .vpane.lower.diff -fill both -expand 1
2853pack .vpane.lower.commarea -side bottom -fill x
2854.vpane add .vpane.lower -sticky nsew
2855# -- Commit Area Buttons
2857#
2858frame .vpane.lower.commarea.buttons
2859label .vpane.lower.commarea.buttons.l -text {} \
2860 -anchor w \
2861 -justify left
2862pack .vpane.lower.commarea.buttons.l -side top -fill x
2863pack .vpane.lower.commarea.buttons -side left -fill y
2864button .vpane.lower.commarea.buttons.rescan -text [mc Rescan] \
2866 -command ui_do_rescan
2867pack .vpane.lower.commarea.buttons.rescan -side top -fill x
2868lappend disable_on_lock \
2869 {.vpane.lower.commarea.buttons.rescan conf -state}
2870button .vpane.lower.commarea.buttons.incall -text [mc "Stage Changed"] \
2872 -command do_add_all
2873pack .vpane.lower.commarea.buttons.incall -side top -fill x
2874lappend disable_on_lock \
2875 {.vpane.lower.commarea.buttons.incall conf -state}
2876if {![is_enabled nocommitmsg]} {
2878 button .vpane.lower.commarea.buttons.signoff -text [mc "Sign Off"] \
2879 -command do_signoff
2880 pack .vpane.lower.commarea.buttons.signoff -side top -fill x
2881}
2882button .vpane.lower.commarea.buttons.commit -text [commit_btn_caption] \
2884 -command do_commit
2885pack .vpane.lower.commarea.buttons.commit -side top -fill x
2886lappend disable_on_lock \
2887 {.vpane.lower.commarea.buttons.commit conf -state}
2888if {![is_enabled nocommit]} {
2890 button .vpane.lower.commarea.buttons.push -text [mc Push] \
2891 -command do_push_anywhere
2892 pack .vpane.lower.commarea.buttons.push -side top -fill x
2893}
2894# -- Commit Message Buffer
2896#
2897frame .vpane.lower.commarea.buffer
2898frame .vpane.lower.commarea.buffer.header
2899set ui_comm .vpane.lower.commarea.buffer.t
2900set ui_coml .vpane.lower.commarea.buffer.header.l
2901if {![is_enabled nocommit]} {
2903 radiobutton .vpane.lower.commarea.buffer.header.new \
2904 -text [mc "New Commit"] \
2905 -command do_select_commit_type \
2906 -variable selected_commit_type \
2907 -value new
2908 lappend disable_on_lock \
2909 [list .vpane.lower.commarea.buffer.header.new conf -state]
2910 radiobutton .vpane.lower.commarea.buffer.header.amend \
2911 -text [mc "Amend Last Commit"] \
2912 -command do_select_commit_type \
2913 -variable selected_commit_type \
2914 -value amend
2915 lappend disable_on_lock \
2916 [list .vpane.lower.commarea.buffer.header.amend conf -state]
2917}
2918label $ui_coml \
2920 -anchor w \
2921 -justify left
2922proc trace_commit_type {varname args} {
2923 global ui_coml commit_type
2924 switch -glob -- $commit_type {
2925 initial {set txt [mc "Initial Commit Message:"]}
2926 amend {set txt [mc "Amended Commit Message:"]}
2927 amend-initial {set txt [mc "Amended Initial Commit Message:"]}
2928 amend-merge {set txt [mc "Amended Merge Commit Message:"]}
2929 merge {set txt [mc "Merge Commit Message:"]}
2930 * {set txt [mc "Commit Message:"]}
2931 }
2932 $ui_coml conf -text $txt
2933}
2934trace add variable commit_type write trace_commit_type
2935pack $ui_coml -side left -fill x
2936if {![is_enabled nocommit]} {
2938 pack .vpane.lower.commarea.buffer.header.amend -side right
2939 pack .vpane.lower.commarea.buffer.header.new -side right
2940}
2941text $ui_comm -background white -foreground black \
2943 -borderwidth 1 \
2944 -undo true \
2945 -maxundo 20 \
2946 -autoseparators true \
2947 -relief sunken \
2948 -width $repo_config(gui.commitmsgwidth) -height 9 -wrap none \
2949 -font font_diff \
2950 -yscrollcommand {.vpane.lower.commarea.buffer.sby set}
2951scrollbar .vpane.lower.commarea.buffer.sby \
2952 -command [list $ui_comm yview]
2953pack .vpane.lower.commarea.buffer.header -side top -fill x
2954pack .vpane.lower.commarea.buffer.sby -side right -fill y
2955pack $ui_comm -side left -fill y
2956pack .vpane.lower.commarea.buffer -side left -fill y
2957# -- Commit Message Buffer Context Menu
2959#
2960set ctxm .vpane.lower.commarea.buffer.ctxm
2961menu $ctxm -tearoff 0
2962$ctxm add command \
2963 -label [mc Cut] \
2964 -command {tk_textCut $ui_comm}
2965$ctxm add command \
2966 -label [mc Copy] \
2967 -command {tk_textCopy $ui_comm}
2968$ctxm add command \
2969 -label [mc Paste] \
2970 -command {tk_textPaste $ui_comm}
2971$ctxm add command \
2972 -label [mc Delete] \
2973 -command {catch {$ui_comm delete sel.first sel.last}}
2974$ctxm add separator
2975$ctxm add command \
2976 -label [mc "Select All"] \
2977 -command {focus $ui_comm;$ui_comm tag add sel 0.0 end}
2978$ctxm add command \
2979 -label [mc "Copy All"] \
2980 -command {
2981 $ui_comm tag add sel 0.0 end
2982 tk_textCopy $ui_comm
2983 $ui_comm tag remove sel 0.0 end
2984 }
2985$ctxm add separator
2986$ctxm add command \
2987 -label [mc "Sign Off"] \
2988 -command do_signoff
2989set ui_comm_ctxm $ctxm
2990# -- Diff Header
2992#
2993proc trace_current_diff_path {varname args} {
2994 global current_diff_path diff_actions file_states
2995 if {$current_diff_path eq {}} {
2996 set s {}
2997 set f {}
2998 set p {}
2999 set o disabled
3000 } else {
3001 set p $current_diff_path
3002 set s [mapdesc [lindex $file_states($p) 0] $p]
3003 set f [mc "File:"]
3004 set p [escape_path $p]
3005 set o normal
3006 }
3007 .vpane.lower.diff.header.status configure -text $s
3009 .vpane.lower.diff.header.file configure -text $f
3010 .vpane.lower.diff.header.path configure -text $p
3011 foreach w $diff_actions {
3012 uplevel #0 $w $o
3013 }
3014}
3015trace add variable current_diff_path write trace_current_diff_path
3016frame .vpane.lower.diff.header -background gold
3018label .vpane.lower.diff.header.status \
3019 -background gold \
3020 -foreground black \
3021 -width $max_status_desc \
3022 -anchor w \
3023 -justify left
3024label .vpane.lower.diff.header.file \
3025 -background gold \
3026 -foreground black \
3027 -anchor w \
3028 -justify left
3029label .vpane.lower.diff.header.path \
3030 -background gold \
3031 -foreground black \
3032 -anchor w \
3033 -justify left
3034pack .vpane.lower.diff.header.status -side left
3035pack .vpane.lower.diff.header.file -side left
3036pack .vpane.lower.diff.header.path -fill x
3037set ctxm .vpane.lower.diff.header.ctxm
3038menu $ctxm -tearoff 0
3039$ctxm add command \
3040 -label [mc Copy] \
3041 -command {
3042 clipboard clear
3043 clipboard append \
3044 -format STRING \
3045 -type STRING \
3046 -- $current_diff_path
3047 }
3048lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3049bind_button3 .vpane.lower.diff.header.path "tk_popup $ctxm %X %Y"
3050# -- Diff Body
3052#
3053frame .vpane.lower.diff.body
3054set ui_diff .vpane.lower.diff.body.t
3055text $ui_diff -background white -foreground black \
3056 -borderwidth 0 \
3057 -width 80 -height 15 -wrap none \
3058 -font font_diff \
3059 -xscrollcommand {.vpane.lower.diff.body.sbx set} \
3060 -yscrollcommand {.vpane.lower.diff.body.sby set} \
3061 -state disabled
3062scrollbar .vpane.lower.diff.body.sbx -orient horizontal \
3063 -command [list $ui_diff xview]
3064scrollbar .vpane.lower.diff.body.sby -orient vertical \
3065 -command [list $ui_diff yview]
3066pack .vpane.lower.diff.body.sbx -side bottom -fill x
3067pack .vpane.lower.diff.body.sby -side right -fill y
3068pack $ui_diff -side left -fill both -expand 1
3069pack .vpane.lower.diff.header -side top -fill x
3070pack .vpane.lower.diff.body -side bottom -fill both -expand 1
3071$ui_diff tag conf d_cr -elide true
3073$ui_diff tag conf d_@ -foreground blue -font font_diffbold
3074$ui_diff tag conf d_+ -foreground {#00a000}
3075$ui_diff tag conf d_- -foreground red
3076$ui_diff tag conf d_++ -foreground {#00a000}
3078$ui_diff tag conf d_-- -foreground red
3079$ui_diff tag conf d_+s \
3080 -foreground {#00a000} \
3081 -background {#e2effa}
3082$ui_diff tag conf d_-s \
3083 -foreground red \
3084 -background {#e2effa}
3085$ui_diff tag conf d_s+ \
3086 -foreground {#00a000} \
3087 -background ivory1
3088$ui_diff tag conf d_s- \
3089 -foreground red \
3090 -background ivory1
3091$ui_diff tag conf d<<<<<<< \
3093 -foreground orange \
3094 -font font_diffbold
3095$ui_diff tag conf d======= \
3096 -foreground orange \
3097 -font font_diffbold
3098$ui_diff tag conf d>>>>>>> \
3099 -foreground orange \
3100 -font font_diffbold
3101$ui_diff tag raise sel
3103# -- Diff Body Context Menu
3105#
3106proc create_common_diff_popup {ctxm} {
3108 $ctxm add command \
3109 -label [mc "Show Less Context"] \
3110 -command show_less_context
3111 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3112 $ctxm add command \
3113 -label [mc "Show More Context"] \
3114 -command show_more_context
3115 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3116 $ctxm add separator
3117 $ctxm add command \
3118 -label [mc Refresh] \
3119 -command reshow_diff
3120 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3121 $ctxm add command \
3122 -label [mc Copy] \
3123 -command {tk_textCopy $ui_diff}
3124 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3125 $ctxm add command \
3126 -label [mc "Select All"] \
3127 -command {focus $ui_diff;$ui_diff tag add sel 0.0 end}
3128 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3129 $ctxm add command \
3130 -label [mc "Copy All"] \
3131 -command {
3132 $ui_diff tag add sel 0.0 end
3133 tk_textCopy $ui_diff
3134 $ui_diff tag remove sel 0.0 end
3135 }
3136 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3137 $ctxm add separator
3138 $ctxm add command \
3139 -label [mc "Decrease Font Size"] \
3140 -command {incr_font_size font_diff -1}
3141 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3142 $ctxm add command \
3143 -label [mc "Increase Font Size"] \
3144 -command {incr_font_size font_diff 1}
3145 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3146 $ctxm add separator
3147 set emenu $ctxm.enc
3148 menu $emenu
3149 build_encoding_menu $emenu [list force_diff_encoding]
3150 $ctxm add cascade \
3151 -label [mc "Encoding"] \
3152 -menu $emenu
3153 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3154 $ctxm add separator
3155 $ctxm add command -label [mc "Options..."] \
3156 -command do_options
3157}
3158set ctxm .vpane.lower.diff.body.ctxm
3160menu $ctxm -tearoff 0
3161$ctxm add command \
3162 -label [mc "Apply/Reverse Hunk"] \
3163 -command {apply_hunk $cursorX $cursorY}
3164set ui_diff_applyhunk [$ctxm index last]
3165lappend diff_actions [list $ctxm entryconf $ui_diff_applyhunk -state]
3166$ctxm add command \
3167 -label [mc "Apply/Reverse Line"] \
3168 -command {apply_line $cursorX $cursorY; do_rescan}
3169set ui_diff_applyline [$ctxm index last]
3170lappend diff_actions [list $ctxm entryconf $ui_diff_applyline -state]
3171$ctxm add separator
3172create_common_diff_popup $ctxm
3173set ctxmmg .vpane.lower.diff.body.ctxmmg
3175menu $ctxmmg -tearoff 0
3176$ctxmmg add command \
3177 -label [mc "Run Merge Tool"] \
3178 -command {merge_resolve_tool}
3179lappend diff_actions [list $ctxmmg entryconf [$ctxmmg index last] -state]
3180$ctxmmg add separator
3181$ctxmmg add command \
3182 -label [mc "Use Remote Version"] \
3183 -command {merge_resolve_one 3}
3184lappend diff_actions [list $ctxmmg entryconf [$ctxmmg index last] -state]
3185$ctxmmg add command \
3186 -label [mc "Use Local Version"] \
3187 -command {merge_resolve_one 2}
3188lappend diff_actions [list $ctxmmg entryconf [$ctxmmg index last] -state]
3189$ctxmmg add command \
3190 -label [mc "Revert To Base"] \
3191 -command {merge_resolve_one 1}
3192lappend diff_actions [list $ctxmmg entryconf [$ctxmmg index last] -state]
3193$ctxmmg add separator
3194create_common_diff_popup $ctxmmg
3195proc popup_diff_menu {ctxm ctxmmg x y X Y} {
3197 global current_diff_path file_states
3198 set ::cursorX $x
3199 set ::cursorY $y
3200 if {[info exists file_states($current_diff_path)]} {
3201 set state [lindex $file_states($current_diff_path) 0]
3202 } else {
3203 set state {__}
3204 }
3205 if {[string first {U} $state] >= 0} {
3206 tk_popup $ctxmmg $X $Y
3207 } else {
3208 if {$::ui_index eq $::current_diff_side} {
3209 set l [mc "Unstage Hunk From Commit"]
3210 set t [mc "Unstage Line From Commit"]
3211 } else {
3212 set l [mc "Stage Hunk For Commit"]
3213 set t [mc "Stage Line For Commit"]
3214 }
3215 if {$::is_3way_diff
3216 || $current_diff_path eq {}
3217 || {__} eq $state
3218 || {_O} eq $state
3219 || {_T} eq $state
3220 || {T_} eq $state} {
3221 set s disabled
3222 } else {
3223 set s normal
3224 }
3225 $ctxm entryconf $::ui_diff_applyhunk -state $s -label $l
3226 $ctxm entryconf $::ui_diff_applyline -state $s -label $t
3227 tk_popup $ctxm $X $Y
3228 }
3229}
3230bind_button3 $ui_diff [list popup_diff_menu $ctxm $ctxmmg %x %y %X %Y]
3231# -- Status Bar
3233#
3234set main_status [::status_bar::new .status]
3235pack .status -anchor w -side bottom -fill x
3236$main_status show [mc "Initializing..."]
3237# -- Load geometry
3239#
3240catch {
3241set gm $repo_config(gui.geometry)
3242wm geometry . [lindex $gm 0]
3243.vpane sash place 0 \
3244 [lindex $gm 1] \
3245 [lindex [.vpane sash coord 0] 1]
3246.vpane.files sash place 0 \
3247 [lindex [.vpane.files sash coord 0] 0] \
3248 [lindex $gm 2]
3249unset gm
3250}
3251# -- Key Bindings
3253#
3254bind $ui_comm <$M1B-Key-Return> {do_commit;break}
3255bind $ui_comm <$M1B-Key-t> {do_add_selection;break}
3256bind $ui_comm <$M1B-Key-T> {do_add_selection;break}
3257bind $ui_comm <$M1B-Key-i> {do_add_all;break}
3258bind $ui_comm <$M1B-Key-I> {do_add_all;break}
3259bind $ui_comm <$M1B-Key-x> {tk_textCut %W;break}
3260bind $ui_comm <$M1B-Key-X> {tk_textCut %W;break}
3261bind $ui_comm <$M1B-Key-c> {tk_textCopy %W;break}
3262bind $ui_comm <$M1B-Key-C> {tk_textCopy %W;break}
3263bind $ui_comm <$M1B-Key-v> {tk_textPaste %W; %W see insert; break}
3264bind $ui_comm <$M1B-Key-V> {tk_textPaste %W; %W see insert; break}
3265bind $ui_comm <$M1B-Key-a> {%W tag add sel 0.0 end;break}
3266bind $ui_comm <$M1B-Key-A> {%W tag add sel 0.0 end;break}
3267bind $ui_comm <$M1B-Key-minus> {show_less_context;break}
3268bind $ui_comm <$M1B-Key-KP_Subtract> {show_less_context;break}
3269bind $ui_comm <$M1B-Key-equal> {show_more_context;break}
3270bind $ui_comm <$M1B-Key-plus> {show_more_context;break}
3271bind $ui_comm <$M1B-Key-KP_Add> {show_more_context;break}
3272bind $ui_diff <$M1B-Key-x> {tk_textCopy %W;break}
3274bind $ui_diff <$M1B-Key-X> {tk_textCopy %W;break}
3275bind $ui_diff <$M1B-Key-c> {tk_textCopy %W;break}
3276bind $ui_diff <$M1B-Key-C> {tk_textCopy %W;break}
3277bind $ui_diff <$M1B-Key-v> {break}
3278bind $ui_diff <$M1B-Key-V> {break}
3279bind $ui_diff <$M1B-Key-a> {%W tag add sel 0.0 end;break}
3280bind $ui_diff <$M1B-Key-A> {%W tag add sel 0.0 end;break}
3281bind $ui_diff <Key-Up> {catch {%W yview scroll -1 units};break}
3282bind $ui_diff <Key-Down> {catch {%W yview scroll 1 units};break}
3283bind $ui_diff <Key-Left> {catch {%W xview scroll -1 units};break}
3284bind $ui_diff <Key-Right> {catch {%W xview scroll 1 units};break}
3285bind $ui_diff <Key-k> {catch {%W yview scroll -1 units};break}
3286bind $ui_diff <Key-j> {catch {%W yview scroll 1 units};break}
3287bind $ui_diff <Key-h> {catch {%W xview scroll -1 units};break}
3288bind $ui_diff <Key-l> {catch {%W xview scroll 1 units};break}
3289bind $ui_diff <Control-Key-b> {catch {%W yview scroll -1 pages};break}
3290bind $ui_diff <Control-Key-f> {catch {%W yview scroll 1 pages};break}
3291bind $ui_diff <Button-1> {focus %W}
3292if {[is_enabled branch]} {
3294 bind . <$M1B-Key-n> branch_create::dialog
3295 bind . <$M1B-Key-N> branch_create::dialog
3296 bind . <$M1B-Key-o> branch_checkout::dialog
3297 bind . <$M1B-Key-O> branch_checkout::dialog
3298 bind . <$M1B-Key-m> merge::dialog
3299 bind . <$M1B-Key-M> merge::dialog
3300}
3301if {[is_enabled transport]} {
3302 bind . <$M1B-Key-p> do_push_anywhere
3303 bind . <$M1B-Key-P> do_push_anywhere
3304}
3305bind . <Key-F5> ui_do_rescan
3307bind . <$M1B-Key-r> ui_do_rescan
3308bind . <$M1B-Key-R> ui_do_rescan
3309bind . <$M1B-Key-s> do_signoff
3310bind . <$M1B-Key-S> do_signoff
3311bind . <$M1B-Key-t> do_add_selection
3312bind . <$M1B-Key-T> do_add_selection
3313bind . <$M1B-Key-i> do_add_all
3314bind . <$M1B-Key-I> do_add_all
3315bind . <$M1B-Key-minus> {show_less_context;break}
3316bind . <$M1B-Key-KP_Subtract> {show_less_context;break}
3317bind . <$M1B-Key-equal> {show_more_context;break}
3318bind . <$M1B-Key-plus> {show_more_context;break}
3319bind . <$M1B-Key-KP_Add> {show_more_context;break}
3320bind . <$M1B-Key-Return> do_commit
3321foreach i [list $ui_index $ui_workdir] {
3322 bind $i <Button-1> "toggle_or_diff $i %x %y; break"
3323 bind $i <$M1B-Button-1> "add_one_to_selection $i %x %y; break"
3324 bind $i <Shift-Button-1> "add_range_to_selection $i %x %y; break"
3325}
3326unset i
3327set file_lists($ui_index) [list]
3329set file_lists($ui_workdir) [list]
3330wm title . "[appname] ([reponame]) [file normalize [file dirname [gitdir]]]"
3332focus -force $ui_comm
3333# -- Warn the user about environmental problems. Cygwin's Tcl
3335# does *not* pass its env array onto any processes it spawns.
3336# This means that git processes get none of our environment.
3337#
3338if {[is_Cygwin]} {
3339 set ignored_env 0
3340 set suggest_user {}
3341 set msg [mc "Possible environment issues exist.
3342The following environment variables are probably
3344going to be ignored by any Git subprocess run
3345by %s:
3346" [appname]]
3348 foreach name [array names env] {
3349 switch -regexp -- $name {
3350 {^GIT_INDEX_FILE$} -
3351 {^GIT_OBJECT_DIRECTORY$} -
3352 {^GIT_ALTERNATE_OBJECT_DIRECTORIES$} -
3353 {^GIT_DIFF_OPTS$} -
3354 {^GIT_EXTERNAL_DIFF$} -
3355 {^GIT_PAGER$} -
3356 {^GIT_TRACE$} -
3357 {^GIT_CONFIG$} -
3358 {^GIT_(AUTHOR|COMMITTER)_DATE$} {
3359 append msg " - $name\n"
3360 incr ignored_env
3361 }
3362 {^GIT_(AUTHOR|COMMITTER)_(NAME|EMAIL)$} {
3363 append msg " - $name\n"
3364 incr ignored_env
3365 set suggest_user $name
3366 }
3367 }
3368 }
3369 if {$ignored_env > 0} {
3370 append msg [mc "
3371This is due to a known issue with the
3372Tcl binary distributed by Cygwin."]
3373 if {$suggest_user ne {}} {
3375 append msg [mc "
3376A good replacement for %s
3378is placing values for the user.name and
3379user.email settings into your personal
3380~/.gitconfig file.
3381" $suggest_user]
3382 }
3383 warn_popup $msg
3384 }
3385 unset ignored_env msg suggest_user name
3386}
3387# -- Only initialize complex UI if we are going to stay running.
3389#
3390if {[is_enabled transport]} {
3391 load_all_remotes
3392 set n [.mbar.remote index end]
3394 populate_remotes_menu
3395 set n [expr {[.mbar.remote index end] - $n}]
3396 if {$n > 0} {
3397 if {[.mbar.remote type 0] eq "tearoff"} { incr n }
3398 .mbar.remote insert $n separator
3399 }
3400 unset n
3401}
3402if {[winfo exists $ui_comm]} {
3404 set GITGUI_BCK_exists [load_message GITGUI_BCK]
3405 # -- If both our backup and message files exist use the
3407 # newer of the two files to initialize the buffer.
3408 #
3409 if {$GITGUI_BCK_exists} {
3410 set m [gitdir GITGUI_MSG]
3411 if {[file isfile $m]} {
3412 if {[file mtime [gitdir GITGUI_BCK]] > [file mtime $m]} {
3413 catch {file delete [gitdir GITGUI_MSG]}
3414 } else {
3415 $ui_comm delete 0.0 end
3416 $ui_comm edit reset
3417 $ui_comm edit modified false
3418 catch {file delete [gitdir GITGUI_BCK]}
3419 set GITGUI_BCK_exists 0
3420 }
3421 }
3422 unset m
3423 }
3424 proc backup_commit_buffer {} {
3426 global ui_comm GITGUI_BCK_exists
3427 set m [$ui_comm edit modified]
3429 if {$m || $GITGUI_BCK_exists} {
3430 set msg [string trim [$ui_comm get 0.0 end]]
3431 regsub -all -line {[ \r\t]+$} $msg {} msg
3432 if {$msg eq {}} {
3434 if {$GITGUI_BCK_exists} {
3435 catch {file delete [gitdir GITGUI_BCK]}
3436 set GITGUI_BCK_exists 0
3437 }
3438 } elseif {$m} {
3439 catch {
3440 set fd [open [gitdir GITGUI_BCK] w]
3441 puts -nonewline $fd $msg
3442 close $fd
3443 set GITGUI_BCK_exists 1
3444 }
3445 }
3446 $ui_comm edit modified false
3448 }
3449 set ::GITGUI_BCK_i [after 2000 backup_commit_buffer]
3451 }
3452 backup_commit_buffer
3454 # -- If the user has aspell available we can drive it
3456 # in pipe mode to spellcheck the commit message.
3457 #
3458 set spell_cmd [list |]
3459 set spell_dict [get_config gui.spellingdictionary]
3460 lappend spell_cmd aspell
3461 if {$spell_dict ne {}} {
3462 lappend spell_cmd --master=$spell_dict
3463 }
3464 lappend spell_cmd --mode=none
3465 lappend spell_cmd --encoding=utf-8
3466 lappend spell_cmd pipe
3467 if {$spell_dict eq {none}
3468 || [catch {set spell_fd [open $spell_cmd r+]} spell_err]} {
3469 bind_button3 $ui_comm [list tk_popup $ui_comm_ctxm %X %Y]
3470 } else {
3471 set ui_comm_spell [spellcheck::init \
3472 $spell_fd \
3473 $ui_comm \
3474 $ui_comm_ctxm \
3475 ]
3476 }
3477 unset -nocomplain spell_cmd spell_fd spell_err spell_dict
3478}
3479lock_index begin-read
3481if {![winfo ismapped .]} {
3482 wm deiconify .
3483}
3484after 1 {
3485 if {[is_enabled initialamend]} {
3486 force_amend
3487 } else {
3488 do_rescan
3489 }
3490 if {[is_enabled nocommitmsg]} {
3492 $ui_comm configure -state disabled -background gray
3493 }
3494}
3495if {[is_enabled multicommit]} {
3496 after 1000 hint_gc
3497}
3498if {[is_enabled retcode]} {
3499 bind . <Destroy> {+terminate_me %W}
3500}
3501if {$picked && [is_config_true gui.autoexplore]} {
3502 do_explore
3503}