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