git-gui: allow Ctrl+T to toggle multiple paths
[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@@}
2473543c
PT
13set copyright [string map [list (c) \u00a9] {
14Copyright (c) 2006-2010 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
d6db1ad5 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 \
9cb268c4 41 -title "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
a3b3ae35
DT
52if { [info exists ::env(GIT_GUI_LIB_DIR) ] } {
53 set oguilib $::env(GIT_GUI_LIB_DIR)
54} else {
55 set oguilib {@@GITGUI_LIBDIR@@}
56}
fc703c20
SP
57set oguirel {@@GITGUI_RELATIVE@@}
58if {$oguirel eq {1}} {
9534c9fb
JS
59 set oguilib [file dirname [file normalize $argv0]]
60 if {[file tail $oguilib] eq {git-core}} {
61 set oguilib [file dirname $oguilib]
62 }
63 set oguilib [file dirname $oguilib]
fc703c20 64 set oguilib [file join $oguilib share git-gui lib]
d4b0ccd9 65 set oguimsg [file join $oguilib msgs]
fc703c20
SP
66} elseif {[string match @@* $oguirel]} {
67 set oguilib [file join [file dirname [file normalize $argv0]] lib]
d4b0ccd9
SP
68 set oguimsg [file join [file dirname [file normalize $argv0]] po]
69} else {
70 set oguimsg [file join $oguilib msgs]
fc703c20
SP
71}
72unset oguirel
73
cd12901b
SP
74######################################################################
75##
76## enable verbose loading?
77
78if {![catch {set _verbose $env(GITGUI_VERBOSE)}]} {
79 unset _verbose
80 rename auto_load real__auto_load
81 proc auto_load {name args} {
82 puts stderr "auto_load $name"
83 return [uplevel 1 real__auto_load $name $args]
84 }
85 rename source real__source
cdc6aba8
PT
86 proc source {args} {
87 puts stderr "source $args"
88 uplevel 1 [linsert $args 0 real__source]
cd12901b 89 }
c0d2c38d 90 if {[tk windowingsystem] eq "win32"} { console show }
cd12901b
SP
91}
92
c950c66e 93######################################################################
d4b0ccd9
SP
94##
95## Internationalization (i18n) through msgcat and gettext. See
96## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
97
98package require msgcat
146d73a3 99
35b6f72f
PT
100# Check for Windows 7 MUI language pack (missed by msgcat < 1.4.4)
101if {[tk windowingsystem] eq "win32"
102 && [package vcompare [package provide msgcat] 1.4.4] < 0
103} then {
104 proc _mc_update_locale {} {
105 set key {HKEY_CURRENT_USER\Control Panel\Desktop}
106 if {![catch {
107 package require registry
108 set uilocale [registry get $key "PreferredUILanguages"]
109 msgcat::ConvertLocale [string map {- _} [lindex $uilocale 0]]
110 } uilocale]} {
111 if {[string length $uilocale] > 0} {
112 msgcat::mclocale $uilocale
113 }
114 }
115 }
116 _mc_update_locale
117}
118
ab0d33c4 119proc _mc_trim {fmt} {
146d73a3
SP
120 set cmk [string first @@ $fmt]
121 if {$cmk > 0} {
ab0d33c4 122 return [string range $fmt 0 [expr {$cmk - 1}]]
146d73a3 123 }
ab0d33c4
SP
124 return $fmt
125}
126
127proc mc {en_fmt args} {
128 set fmt [_mc_trim [::msgcat::mc $en_fmt]]
129 if {[catch {set msg [eval [list format $fmt] $args]} err]} {
130 set msg [eval [list format [_mc_trim $en_fmt]] $args]
131 }
132 return $msg
146d73a3
SP
133}
134
31bb1d1b
SP
135proc strcat {args} {
136 return [join $args {}]
137}
138
d4b0ccd9
SP
139::msgcat::mcload $oguimsg
140unset oguimsg
141
7d2017e7
SH
142######################################################################
143##
144## On Mac, bring the current Wish process window to front
145
146if {[tk windowingsystem] eq "aqua"} {
147 catch {
148 exec osascript -e [format {
149 tell application "System Events"
150 set frontmost of processes whose unix id is %d to true
151 end tell
152 } [pid]]
153 }
154}
155
d4b0ccd9 156######################################################################
c950c66e
SP
157##
158## read only globals
159
0b2bc460 160set _appname {Git Gui}
c950c66e 161set _gitdir {}
21985a11 162set _gitworktree {}
29e5573d 163set _isbare {}
20ddfcaa 164set _gitexec {}
3eb5682b 165set _githtmldir {}
c950c66e 166set _reponame {}
20ddfcaa 167set _iscygwin {}
0b812616 168set _search_path {}
62f9a632 169set _shellpath {@@SHELL_PATH@@}
c950c66e 170
16dd62ac
SP
171set _trace [lsearch -exact $argv --trace]
172if {$_trace >= 0} {
173 set argv [lreplace $argv $_trace $_trace]
174 set _trace 1
c42939d2 175 if {[tk windowingsystem] eq "win32"} { console show }
16dd62ac
SP
176} else {
177 set _trace 0
178}
179
9d04278a
HV
180# variable for the last merged branch (useful for a default when deleting
181# branches).
182set _last_merged_branch {}
183
62f9a632 184proc shellpath {} {
d5257fb3
PT
185 global _shellpath env
186 if {[string match @@* $_shellpath]} {
187 if {[info exists env(SHELL)]} {
188 return $env(SHELL)
189 } else {
190 return /bin/sh
191 }
192 }
62f9a632
MM
193 return $_shellpath
194}
195
c950c66e
SP
196proc appname {} {
197 global _appname
198 return $_appname
199}
200
c2758a17 201proc gitdir {args} {
c950c66e 202 global _gitdir
c2758a17
SP
203 if {$args eq {}} {
204 return $_gitdir
205 }
0b812616 206 return [eval [list file join $_gitdir] $args]
c950c66e
SP
207}
208
20ddfcaa
SP
209proc gitexec {args} {
210 global _gitexec
211 if {$_gitexec eq {}} {
81347223 212 if {[catch {set _gitexec [git --exec-path]} err]} {
20ddfcaa
SP
213 error "Git not installed?\n\n$err"
214 }
0b812616
SP
215 if {[is_Cygwin]} {
216 set _gitexec [exec cygpath \
217 --windows \
218 --absolute \
219 $_gitexec]
220 } else {
221 set _gitexec [file normalize $_gitexec]
222 }
20ddfcaa
SP
223 }
224 if {$args eq {}} {
225 return $_gitexec
226 }
0b812616 227 return [eval [list file join $_gitexec] $args]
20ddfcaa
SP
228}
229
3eb5682b
MH
230proc githtmldir {args} {
231 global _githtmldir
232 if {$_githtmldir eq {}} {
233 if {[catch {set _githtmldir [git --html-path]}]} {
234 # Git not installed or option not yet supported
235 return {}
236 }
237 if {[is_Cygwin]} {
238 set _githtmldir [exec cygpath \
239 --windows \
240 --absolute \
241 $_githtmldir]
242 } else {
243 set _githtmldir [file normalize $_githtmldir]
244 }
245 }
246 if {$args eq {}} {
247 return $_githtmldir
248 }
249 return [eval [list file join $_githtmldir] $args]
250}
251
c950c66e 252proc reponame {} {
d36cd968 253 return $::_reponame
c950c66e 254}
da5239dc 255
20ddfcaa 256proc is_MacOSX {} {
20ddfcaa
SP
257 if {[tk windowingsystem] eq {aqua}} {
258 return 1
259 }
260 return 0
261}
262
263proc is_Windows {} {
d36cd968 264 if {$::tcl_platform(platform) eq {windows}} {
20ddfcaa
SP
265 return 1
266 }
267 return 0
268}
269
270proc is_Cygwin {} {
d36cd968 271 global _iscygwin
20ddfcaa 272 if {$_iscygwin eq {}} {
d36cd968 273 if {$::tcl_platform(platform) eq {windows}} {
20ddfcaa
SP
274 if {[catch {set p [exec cygpath --windir]} err]} {
275 set _iscygwin 0
276 } else {
277 set _iscygwin 1
577c7e8f
PT
278 # Handle MSys2 which is only cygwin when MSYSTEM is MSYS.
279 if {[info exists ::env(MSYSTEM)] && $::env(MSYSTEM) ne "MSYS"} {
280 set _iscygwin 0
281 }
20ddfcaa
SP
282 }
283 } else {
284 set _iscygwin 0
285 }
286 }
287 return $_iscygwin
288}
289
cf25ddc8
SP
290proc is_enabled {option} {
291 global enabled_options
292 if {[catch {set on $enabled_options($option)}]} {return 0}
293 return $on
294}
295
296proc enable_option {option} {
297 global enabled_options
298 set enabled_options($option) 1
299}
300
301proc disable_option {option} {
302 global enabled_options
303 set enabled_options($option) 0
304}
305
2d19516d
SP
306######################################################################
307##
308## config
309
51f4d16b
SP
310proc is_many_config {name} {
311 switch -glob -- $name {
24f7c64b 312 gui.recentrepo -
51f4d16b
SP
313 remote.*.fetch -
314 remote.*.push
315 {return 1}
316 *
317 {return 0}
318 }
319}
2d19516d 320
c539449b
SP
321proc is_config_true {name} {
322 global repo_config
323 if {[catch {set v $repo_config($name)}]} {
324 return 0
12b219f7
BW
325 }
326 set v [string tolower $v]
327 if {$v eq {} || $v eq {true} || $v eq {1} || $v eq {yes} || $v eq {on}} {
c539449b
SP
328 return 1
329 } else {
330 return 0
331 }
332}
333
1fbaccad
CP
334proc is_config_false {name} {
335 global repo_config
336 if {[catch {set v $repo_config($name)}]} {
337 return 0
12b219f7
BW
338 }
339 set v [string tolower $v]
340 if {$v eq {false} || $v eq {0} || $v eq {no} || $v eq {off}} {
1fbaccad
CP
341 return 1
342 } else {
343 return 0
344 }
345}
346
61f82ce7
SP
347proc get_config {name} {
348 global repo_config
349 if {[catch {set v $repo_config($name)}]} {
350 return {}
351 } else {
352 return $v
353 }
354}
355
29e5573d
GB
356proc is_bare {} {
357 global _isbare
358 global _gitdir
359 global _gitworktree
360
361 if {$_isbare eq {}} {
362 if {[catch {
363 set _bare [git rev-parse --is-bare-repository]
364 switch -- $_bare {
365 true { set _isbare 1 }
366 false { set _isbare 0}
367 default { throw }
368 }
369 }]} {
370 if {[is_config_true core.bare]
371 || ($_gitworktree eq {}
372 && [lindex [file split $_gitdir] end] ne {.git})} {
373 set _isbare 1
374 } else {
375 set _isbare 0
376 }
377 }
378 }
379 return $_isbare
380}
381
81347223
SP
382######################################################################
383##
384## handy utils
385
16dd62ac
SP
386proc _trace_exec {cmd} {
387 if {!$::_trace} return
388 set d {}
389 foreach v $cmd {
390 if {$d ne {}} {
391 append d { }
392 }
393 if {[regexp {[ \t\r\n'"$?*]} $v]} {
394 set v [sq $v]
395 }
396 append d $v
397 }
398 puts stderr $d
399}
400
2810a58d
PT
401#'" fix poor old emacs font-lock mode
402
0b812616
SP
403proc _git_cmd {name} {
404 global _git_cmd_path
405
406 if {[catch {set v $_git_cmd_path($name)}]} {
407 switch -- $name {
70a7595c 408 version -
0b812616
SP
409 --version -
410 --exec-path { return [list $::_git $name] }
411 }
412
413 set p [gitexec git-$name$::_search_exe]
414 if {[file exists $p]} {
415 set v [list $p]
c136f2b8
SP
416 } elseif {[is_Windows] && [file exists [gitexec git-$name]]} {
417 # Try to determine what sort of magic will make
418 # git-$name go and do its thing, because native
419 # Tcl on Windows doesn't know it.
0b812616 420 #
c136f2b8
SP
421 set p [gitexec git-$name]
422 set f [open $p r]
423 set s [gets $f]
424 close $f
425
6e4ba05c 426 switch -glob -- [lindex $s 0] {
c136f2b8
SP
427 #!*sh { set i sh }
428 #!*perl { set i perl }
429 #!*python { set i python }
430 default { error "git-$name is not supported: $s" }
431 }
432
433 upvar #0 _$i interp
434 if {![info exists interp]} {
435 set interp [_which $i]
436 }
437 if {$interp eq {}} {
438 error "git-$name requires $i (not in PATH)"
439 }
6e4ba05c 440 set v [concat [list $interp] [lrange $s 1 end] [list $p]]
0b812616 441 } else {
c6729890
SP
442 # Assume it is builtin to git somehow and we
443 # aren't actually able to see a file for it.
444 #
445 set v [list $::_git $name]
0b812616
SP
446 }
447 set _git_cmd_path($name) $v
448 }
449 return $v
450}
451
79317e5d 452proc _which {what args} {
0b812616
SP
453 global env _search_exe _search_path
454
455 if {$_search_path eq {}} {
299077fb 456 if {[is_Cygwin] && [regexp {^(/|\.:)} $env(PATH)]} {
0b812616
SP
457 set _search_path [split [exec cygpath \
458 --windows \
459 --path \
460 --absolute \
461 $env(PATH)] {;}]
462 set _search_exe .exe
463 } elseif {[is_Windows]} {
be700fe3
SP
464 set gitguidir [file dirname [info script]]
465 regsub -all ";" $gitguidir "\\;" gitguidir
466 set env(PATH) "$gitguidir;$env(PATH)"
0b812616
SP
467 set _search_path [split $env(PATH) {;}]
468 set _search_exe .exe
469 } else {
470 set _search_path [split $env(PATH) :]
471 set _search_exe {}
472 }
473 }
474
79317e5d
SP
475 if {[is_Windows] && [lsearch -exact $args -script] >= 0} {
476 set suffix {}
477 } else {
478 set suffix $_search_exe
479 }
480
0b812616 481 foreach p $_search_path {
79317e5d 482 set p [file join $p $what$suffix]
0b812616
SP
483 if {[file exists $p]} {
484 return [file normalize $p]
485 }
486 }
487 return {}
488}
489
7d076d56
PT
490# Test a file for a hashbang to identify executable scripts on Windows.
491proc is_shellscript {filename} {
492 if {![file exists $filename]} {return 0}
493 set f [open $filename r]
494 fconfigure $f -encoding binary
495 set magic [read $f 2]
496 close $f
497 return [expr {$magic eq "#!"}]
498}
499
500# Run a command connected via pipes on stdout.
501# This is for use with textconv filters and uses sh -c "..." to allow it to
502# contain a command with arguments. On windows we must check for shell
503# scripts specifically otherwise just call the filter command.
504proc open_cmd_pipe {cmd path} {
505 global env
506 if {![file executable [shellpath]]} {
507 set exe [auto_execok [lindex $cmd 0]]
508 if {[is_shellscript [lindex $exe 0]]} {
509 set run [linsert [auto_execok sh] end -c "$cmd \"\$0\"" $path]
510 } else {
511 set run [concat $exe [lrange $cmd 1 end] $path]
512 }
513 } else {
514 set run [list [shellpath] -c "$cmd \"\$0\"" $path]
515 }
516 return [open |$run r]
517}
518
6f62b4f7
SP
519proc _lappend_nice {cmd_var} {
520 global _nice
521 upvar $cmd_var cmd
522
523 if {![info exists _nice]} {
524 set _nice [_which nice]
9c898a18
HV
525 if {[catch {exec $_nice git version}]} {
526 set _nice {}
ff9db6c7
SS
527 } elseif {[is_Windows] && [file dirname $_nice] ne [file dirname $::_git]} {
528 set _nice {}
9c898a18 529 }
6f62b4f7
SP
530 }
531 if {$_nice ne {}} {
532 lappend cmd $_nice
533 }
534}
535
81347223 536proc git {args} {
ae75e1e4
KB
537 set fd [eval [list git_read] $args]
538 fconfigure $fd -translation binary -encoding utf-8
539 set result [string trimright [read $fd] "\n"]
540 close $fd
16dd62ac
SP
541 if {$::_trace} {
542 puts stderr "< $result"
543 }
544 return $result
0b812616
SP
545}
546
74c4763c 547proc _open_stdout_stderr {cmd} {
16dd62ac 548 _trace_exec $cmd
74c4763c 549 if {[catch {
16dd62ac 550 set fd [open [concat [list | ] $cmd] r]
74c4763c
SP
551 } err]} {
552 if { [lindex $cmd end] eq {2>@1}
553 && $err eq {can not find channel named "1"}
554 } {
555 # Older versions of Tcl 8.4 don't have this 2>@1 IO
556 # redirect operator. Fallback to |& cat for those.
557 # The command was not actually started, so its safe
558 # to try to start it a second time.
559 #
560 set fd [open [concat \
16dd62ac 561 [list | ] \
74c4763c
SP
562 [lrange $cmd 0 end-1] \
563 [list |& cat] \
564 ] r]
565 } else {
566 error $err
567 }
568 }
6eb420ef 569 fconfigure $fd -eofchar {}
74c4763c
SP
570 return $fd
571}
572
0b812616 573proc git_read {args} {
16dd62ac 574 set opt [list]
0b812616
SP
575
576 while {1} {
577 switch -- [lindex $args 0] {
578 --nice {
6f62b4f7 579 _lappend_nice opt
0b812616
SP
580 }
581
582 --stderr {
583 lappend args 2>@1
584 }
585
586 default {
587 break
588 }
589
590 }
591
592 set args [lrange $args 1 end]
593 }
594
595 set cmdp [_git_cmd [lindex $args 0]]
596 set args [lrange $args 1 end]
597
74c4763c 598 return [_open_stdout_stderr [concat $opt $cmdp $args]]
0b812616
SP
599}
600
601proc git_write {args} {
16dd62ac 602 set opt [list]
0b812616
SP
603
604 while {1} {
605 switch -- [lindex $args 0] {
606 --nice {
6f62b4f7 607 _lappend_nice opt
0b812616
SP
608 }
609
610 default {
611 break
612 }
613
614 }
615
616 set args [lrange $args 1 end]
617 }
618
619 set cmdp [_git_cmd [lindex $args 0]]
620 set args [lrange $args 1 end]
621
16dd62ac
SP
622 _trace_exec [concat $opt $cmdp $args]
623 return [open [concat [list | ] $opt $cmdp $args] w]
81347223
SP
624}
625
ed76cb70
SP
626proc githook_read {hook_name args} {
627 set pchook [gitdir hooks $hook_name]
628 lappend args 2>@1
629
fbc0e7ac 630 # On Windows [file executable] might lie so we need to ask
ed76cb70
SP
631 # the shell if the hook is executable. Yes that's annoying.
632 #
fbc0e7ac 633 if {[is_Windows]} {
ed76cb70
SP
634 upvar #0 _sh interp
635 if {![info exists interp]} {
636 set interp [_which sh]
637 }
638 if {$interp eq {}} {
639 error "hook execution requires sh (not in PATH)"
640 }
641
642 set scr {if test -x "$1";then exec "$@";fi}
16dd62ac 643 set sh_c [list $interp -c $scr $interp $pchook]
ed76cb70
SP
644 return [_open_stdout_stderr [concat $sh_c $args]]
645 }
646
647 if {[file executable $pchook]} {
16dd62ac 648 return [_open_stdout_stderr [concat [list $pchook] $args]]
ed76cb70
SP
649 }
650
651 return {}
652}
653
e6131d30
AG
654proc kill_file_process {fd} {
655 set process [pid $fd]
656
657 catch {
658 if {[is_Windows]} {
3b422bc8 659 exec taskkill /pid $process
e6131d30
AG
660 } else {
661 exec kill $process
662 }
663 }
664}
665
1ffca60f
SP
666proc gitattr {path attr default} {
667 if {[catch {set r [git check-attr $attr -- $path]}]} {
668 set r unspecified
669 } else {
670 set r [join [lrange [split $r :] 2 end] :]
671 regsub {^ } $r {} r
672 }
673 if {$r eq {unspecified}} {
674 return $default
675 }
676 return $r
677}
678
7eafa2f1
SP
679proc sq {value} {
680 regsub -all ' $value "'\\''" value
681 return "'$value'"
682}
683
d41b43eb
SP
684proc load_current_branch {} {
685 global current_branch is_detached
686
fc4e8da7 687 set fd [open [gitdir HEAD] r]
311e02a4 688 if {[gets $fd ref] < 1} {
fc4e8da7
SP
689 set ref {}
690 }
691 close $fd
311e02a4
SP
692
693 set pfx {ref: refs/heads/}
694 set len [string length $pfx]
695 if {[string equal -length $len $pfx $ref]} {
696 # We're on a branch. It might not exist. But
697 # HEAD looks good enough to be a branch.
698 #
d41b43eb
SP
699 set current_branch [string range $ref $len end]
700 set is_detached 0
311e02a4
SP
701 } else {
702 # Assume this is a detached head.
703 #
d41b43eb
SP
704 set current_branch HEAD
705 set is_detached 1
311e02a4 706 }
fc4e8da7
SP
707}
708
2739291b
SP
709auto_load tk_optionMenu
710rename tk_optionMenu real__tkOptionMenu
711proc tk_optionMenu {w varName args} {
712 set m [eval real__tkOptionMenu $w $varName $args]
713 $m configure -font font_ui
714 $w configure -font font_ui
715 return $m
716}
717
3849bfba
SP
718proc rmsel_tag {text} {
719 $text tag conf sel \
720 -background [$text cget -background] \
721 -foreground [$text cget -foreground] \
722 -borderwidth 0
723 $text tag conf in_sel -background lightgray
724 bind $text <Motion> break
725 return $text
726}
727
2810a58d 728wm withdraw .
a4bee597
SP
729set root_exists 0
730bind . <Visibility> {
731 bind . <Visibility> {}
732 set root_exists 1
733}
734
1bdd8a15
SP
735if {[is_Windows]} {
736 wm iconbitmap . -default $oguilib/git-gui.ico
f10d5b06 737 set ::tk::AlwaysShowSelection 1
c0d2c38d 738 bind . <Control-F2> {console show}
8c762125
AG
739
740 # Spoof an X11 display for SSH
741 if {![info exists env(DISPLAY)]} {
742 set env(DISPLAY) :9999
743 }
d1f2b362
GB
744} else {
745 catch {
746 image create photo gitlogo -width 16 -height 16
747
748 gitlogo put #33CC33 -to 7 0 9 2
749 gitlogo put #33CC33 -to 4 2 12 4
750 gitlogo put #33CC33 -to 7 4 9 6
751 gitlogo put #CC3333 -to 4 6 12 8
752 gitlogo put gray26 -to 4 9 6 10
753 gitlogo put gray26 -to 3 10 6 12
754 gitlogo put gray26 -to 8 9 13 11
755 gitlogo put gray26 -to 8 11 10 12
756 gitlogo put gray26 -to 11 11 13 14
757 gitlogo put gray26 -to 3 12 5 14
758 gitlogo put gray26 -to 5 13
759 gitlogo put gray26 -to 10 13
760 gitlogo put gray26 -to 4 14 12 15
761 gitlogo put gray26 -to 5 15 11 16
762 gitlogo redither
763
215d4fdb
SB
764 image create photo gitlogo32 -width 32 -height 32
765 gitlogo32 copy gitlogo -zoom 2 2
766
767 wm iconphoto . -default gitlogo gitlogo32
d1f2b362 768 }
1bdd8a15
SP
769}
770
a4bee597
SP
771######################################################################
772##
773## config defaults
774
775set cursor_ptr arrow
a4bee597 776font create font_ui
c80d7be5
PT
777if {[lsearch -exact [font names] TkDefaultFont] != -1} {
778 eval [linsert [font actual TkDefaultFont] 0 font configure font_ui]
779 eval [linsert [font actual TkFixedFont] 0 font create font_diff]
780} else {
781 font create font_diff -family Courier -size 10
782 catch {
783 label .dummy
784 eval font configure font_ui [font actual [.dummy cget -font]]
785 destroy .dummy
786 }
a4bee597
SP
787}
788
789font create font_uiitalic
790font create font_uibold
791font create font_diffbold
792font create font_diffitalic
793
794foreach class {Button Checkbutton Entry Label
a91be3fc 795 Labelframe Listbox Message
a4bee597
SP
796 Radiobutton Spinbox Text} {
797 option add *$class.font font_ui
798}
a91be3fc
DS
799if {![is_MacOSX]} {
800 option add *Menu.font font_ui
c80d7be5
PT
801 option add *Entry.borderWidth 1 startupFile
802 option add *Entry.relief sunken startupFile
803 option add *RadioButton.anchor w startupFile
a91be3fc 804}
a4bee597
SP
805unset class
806
807if {[is_Windows] || [is_MacOSX]} {
808 option add *Menu.tearOff 0
809}
810
811if {[is_MacOSX]} {
812 set M1B M1
813 set M1T Cmd
814} else {
815 set M1B Control
816 set M1T Ctrl
817}
818
819proc bind_button3 {w cmd} {
820 bind $w <Any-Button-3> $cmd
821 if {[is_MacOSX]} {
822 # Mac OS X sends Button-2 on right click through three-button mouse,
823 # or through trackpad right-clicking (two-finger touch + click).
824 bind $w <Any-Button-2> $cmd
825 bind $w <Control-Button-1> $cmd
826 }
827}
828
829proc apply_config {} {
830 global repo_config font_descs
831
832 foreach option $font_descs {
833 set name [lindex $option 0]
834 set font [lindex $option 1]
835 if {[catch {
48b8d2b3 836 set need_weight 1
a4bee597 837 foreach {cn cv} $repo_config(gui.$name) {
48b8d2b3
SP
838 if {$cn eq {-weight}} {
839 set need_weight 0
840 }
841 font configure $font $cn $cv
842 }
843 if {$need_weight} {
844 font configure $font -weight normal
a4bee597
SP
845 }
846 } err]} {
847 error_popup [strcat [mc "Invalid font specified in %s:" "gui.$name"] "\n\n$err"]
848 }
849 foreach {cn cv} [font configure $font] {
850 font configure ${font}bold $cn $cv
851 font configure ${font}italic $cn $cv
852 }
853 font configure ${font}bold -weight bold
854 font configure ${font}italic -slant italic
855 }
c80d7be5
PT
856
857 global use_ttk NS
858 set use_ttk 0
859 set NS {}
860 if {$repo_config(gui.usettk)} {
861 set use_ttk [package vsatisfies [package provide Tk] 8.5]
862 if {$use_ttk} {
863 set NS ttk
864 bind [winfo class .] <<ThemeChanged>> [list InitTheme]
865 pave_toplevel .
866 }
867 }
a4bee597
SP
868}
869
fe70225d 870set default_config(branch.autosetupmerge) true
7e30682c 871set default_config(merge.tool) {}
fb25092a 872set default_config(mergetool.keepbackup) true
a4bee597
SP
873set default_config(merge.diffstat) true
874set default_config(merge.summary) false
875set default_config(merge.verbosity) 2
876set default_config(user.name) {}
877set default_config(user.email) {}
878
72e6b002 879set default_config(gui.encoding) [encoding system]
a4bee597 880set default_config(gui.matchtrackingbranch) false
1fbaccad 881set default_config(gui.textconv) true
a4bee597
SP
882set default_config(gui.pruneduringfetch) false
883set default_config(gui.trustmtime) false
57cae87b 884set default_config(gui.fastcopyblame) false
d478056c 885set default_config(gui.maxrecentrepo) 10
57cae87b 886set default_config(gui.copyblamethreshold) 40
a9c80b83 887set default_config(gui.blamehistoryctx) 7
a4bee597 888set default_config(gui.diffcontext) 5
54531e7c 889set default_config(gui.diffopts) {}
11027d54 890set default_config(gui.commitmsgwidth) 75
a4bee597 891set default_config(gui.newbranchtemplate) {}
95b002ee 892set default_config(gui.spellingdictionary) {}
a4bee597
SP
893set default_config(gui.fontui) [font configure font_ui]
894set default_config(gui.fontdiff) [font configure font_diff]
dd6451f9
DZ
895# TODO: this option should be added to the git-config documentation
896set default_config(gui.maxfilesdisplayed) 5000
c80d7be5 897set default_config(gui.usettk) 1
e34789cc 898set default_config(gui.warndetachedcommit) 1
a43c5f51 899set default_config(gui.tabsize) 8
a4bee597
SP
900set font_descs {
901 {fontui font_ui {mc "Main Font"}}
902 {fontdiff font_diff {mc "Diff/Console Font"}}
903}
bb196e26 904set default_config(gui.stageuntracked) ask
e632b3c0 905set default_config(gui.displayuntracked) true
a4bee597 906
0b812616
SP
907######################################################################
908##
909## find git
910
911set _git [_which git]
912if {$_git eq {}} {
913 catch {wm withdraw .}
183a1d14
SP
914 tk_messageBox \
915 -icon error \
916 -type ok \
917 -title [mc "git-gui: fatal error"] \
918 -message [mc "Cannot find git in PATH."]
0b812616
SP
919 exit 1
920}
0b812616 921
54acdd95
SP
922######################################################################
923##
924## version check
925
d6967022 926if {[catch {set _git_version [git --version]} err]} {
54acdd95 927 catch {wm withdraw .}
875b7c93
SP
928 tk_messageBox \
929 -icon error \
930 -type ok \
c8c4854b 931 -title [mc "git-gui: fatal error"] \
875b7c93 932 -message "Cannot determine Git version:
54acdd95
SP
933
934$err
935
d6967022
SP
936[appname] requires Git 1.5.0 or later."
937 exit 1
938}
939if {![regsub {^git version } $_git_version {} _git_version]} {
940 catch {wm withdraw .}
875b7c93
SP
941 tk_messageBox \
942 -icon error \
943 -type ok \
c8c4854b 944 -title [mc "git-gui: fatal error"] \
31bb1d1b 945 -message [strcat [mc "Cannot parse Git version string:"] "\n\n$_git_version"]
54acdd95
SP
946 exit 1
947}
301dfaa9 948
67112c48
PT
949proc get_trimmed_version {s} {
950 set r {}
951 foreach x [split $s -._] {
952 if {[string is integer -strict $x]} {
953 lappend r $x
954 } else {
955 break
956 }
957 }
958 return [join $r .]
959}
301dfaa9 960set _real_git_version $_git_version
67112c48 961set _git_version [get_trimmed_version $_git_version]
d6967022 962
301dfaa9
SP
963if {![regexp {^[1-9]+(\.[0-9]+)+$} $_git_version]} {
964 catch {wm withdraw .}
965 if {[tk_messageBox \
966 -icon warning \
967 -type yesno \
968 -default no \
969 -title "[appname]: warning" \
1ac17950 970 -message [mc "Git version cannot be determined.
301dfaa9 971
1ac17950 972%s claims it is version '%s'.
301dfaa9 973
1ac17950 974%s requires at least Git 1.5.0 or later.
301dfaa9 975
1ac17950
CS
976Assume '%s' is version 1.5.0?
977" $_git $_real_git_version [appname] $_real_git_version]] eq {yes}} {
301dfaa9
SP
978 set _git_version 1.5.0
979 } else {
980 exit 1
981 }
982}
983unset _real_git_version
984
d6967022
SP
985proc git-version {args} {
986 global _git_version
987
988 switch [llength $args] {
989 0 {
990 return $_git_version
54acdd95 991 }
d6967022
SP
992
993 2 {
994 set op [lindex $args 0]
995 set vr [lindex $args 1]
996 set cm [package vcompare $_git_version $vr]
997 return [expr $cm $op 0]
998 }
999
1000 4 {
1001 set type [lindex $args 0]
1002 set name [lindex $args 1]
1003 set parm [lindex $args 2]
1004 set body [lindex $args 3]
1005
1006 if {($type ne {proc} && $type ne {method})} {
1007 error "Invalid arguments to git-version"
1008 }
1009 if {[llength $body] < 2 || [lindex $body end-1] ne {default}} {
1010 error "Last arm of $type $name must be default"
1011 }
1012
1013 foreach {op vr cb} [lrange $body 0 end-2] {
1014 if {[git-version $op $vr]} {
1015 return [uplevel [list $type $name $parm $cb]]
1016 }
1017 }
1018
1019 return [uplevel [list $type $name $parm [lindex $body end]]]
1020 }
1021
1022 default {
1023 error "git-version >= x"
1024 }
1025
1026 }
1027}
1028
1029if {[git-version < 1.5]} {
54acdd95 1030 catch {wm withdraw .}
875b7c93
SP
1031 tk_messageBox \
1032 -icon error \
1033 -type ok \
c8c4854b 1034 -title [mc "git-gui: fatal error"] \
875b7c93 1035 -message "[appname] requires Git 1.5.0 or later.
d6967022
SP
1036
1037You are using [git-version]:
1038
1039[git --version]"
54acdd95
SP
1040 exit 1
1041}
54acdd95 1042
875b7c93
SP
1043######################################################################
1044##
1045## configure our library
1046
875b7c93
SP
1047set idx [file join $oguilib tclIndex]
1048if {[catch {set fd [open $idx r]} err]} {
1049 catch {wm withdraw .}
1050 tk_messageBox \
1051 -icon error \
1052 -type ok \
c8c4854b 1053 -title [mc "git-gui: fatal error"] \
875b7c93
SP
1054 -message $err
1055 exit 1
1056}
1057if {[gets $fd] eq {# Autogenerated by git-gui Makefile}} {
1058 set idx [list]
1059 while {[gets $fd n] >= 0} {
1060 if {$n ne {} && ![string match #* $n]} {
1061 lappend idx $n
1062 }
1063 }
1064} else {
1065 set idx {}
1066}
1067close $fd
1068
1069if {$idx ne {}} {
1070 set loaded [list]
1071 foreach p $idx {
1072 if {[lsearch -exact $loaded $p] >= 0} continue
1073 source [file join $oguilib $p]
1074 lappend loaded $p
1075 }
1076 unset loaded p
1077} else {
1078 set auto_path [concat [list $oguilib] $auto_path]
1079}
fc703c20 1080unset -nocomplain idx fd
875b7c93 1081
ba7cc660 1082######################################################################
69f85ffa
SP
1083##
1084## config file parsing
1085
f00d504a 1086git-version proc _parse_config {arr_name args} {
85f7a94b
SP
1087 >= 1.5.3 {
1088 upvar $arr_name arr
1089 array unset arr
1090 set buf {}
1091 catch {
a5bb31fb
SP
1092 set fd_rc [eval \
1093 [list git_read config] \
1094 $args \
1095 [list --null --list]]
e2039e94 1096 fconfigure $fd_rc -translation binary -encoding utf-8
85f7a94b
SP
1097 set buf [read $fd_rc]
1098 close $fd_rc
1099 }
1100 foreach line [split $buf "\0"] {
1101 if {[regexp {^([^\n]+)\n(.*)$} $line line name value]} {
1102 if {[is_many_config $name]} {
1103 lappend arr($name) $value
1104 } else {
1105 set arr($name) $value
1106 }
12b219f7
BW
1107 } elseif {[regexp {^([^\n]+)$} $line line name]} {
1108 # no value given, but interpreting them as
1109 # boolean will be handled as true
1110 set arr($name) {}
85f7a94b
SP
1111 }
1112 }
1113 }
f00d504a
SP
1114 default {
1115 upvar $arr_name arr
1116 array unset arr
69f85ffa 1117 catch {
f00d504a 1118 set fd_rc [eval [list git_read config --list] $args]
69f85ffa
SP
1119 while {[gets $fd_rc line] >= 0} {
1120 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
1121 if {[is_many_config $name]} {
f00d504a 1122 lappend arr($name) $value
69f85ffa 1123 } else {
f00d504a 1124 set arr($name) $value
69f85ffa 1125 }
12b219f7
BW
1126 } elseif {[regexp {^([^=]+)$} $line line name]} {
1127 # no value given, but interpreting them as
1128 # boolean will be handled as true
1129 set arr($name) {}
69f85ffa
SP
1130 }
1131 }
1132 close $fd_rc
1133 }
1134 }
f00d504a 1135}
69f85ffa 1136
f00d504a 1137proc load_config {include_global} {
153ad78b 1138 global repo_config global_config system_config default_config
f00d504a
SP
1139
1140 if {$include_global} {
153ad78b 1141 _parse_config system_config --system
f00d504a 1142 _parse_config global_config --global
69f85ffa 1143 }
f00d504a 1144 _parse_config repo_config
69f85ffa
SP
1145
1146 foreach name [array names default_config] {
153ad78b
AG
1147 if {[catch {set v $system_config($name)}]} {
1148 set system_config($name) $default_config($name)
1149 }
1150 }
1151 foreach name [array names system_config] {
69f85ffa 1152 if {[catch {set v $global_config($name)}]} {
153ad78b 1153 set global_config($name) $system_config($name)
69f85ffa
SP
1154 }
1155 if {[catch {set v $repo_config($name)}]} {
153ad78b 1156 set repo_config($name) $system_config($name)
69f85ffa
SP
1157 }
1158 }
1159}
1160
1161######################################################################
ba7cc660
SP
1162##
1163## feature option selection
1164
0b2bc460 1165if {[regexp {^git-(.+)$} [file tail $argv0] _junk subcommand]} {
ba7cc660
SP
1166 unset _junk
1167} else {
1168 set subcommand gui
1169}
1170if {$subcommand eq {gui.sh}} {
1171 set subcommand gui
1172}
1173if {$subcommand eq {gui} && [llength $argv] > 0} {
1174 set subcommand [lindex $argv 0]
1175 set argv [lrange $argv 1 end]
1176}
1177
1178enable_option multicommit
1179enable_option branch
1180enable_option transport
c52c9452 1181disable_option bare
ba7cc660
SP
1182
1183switch -- $subcommand {
1184browser -
1185blame {
c52c9452
SP
1186 enable_option bare
1187
ba7cc660
SP
1188 disable_option multicommit
1189 disable_option branch
1190 disable_option transport
1191}
1192citool {
1193 enable_option singlecommit
1e65c622 1194 enable_option retcode
ba7cc660
SP
1195
1196 disable_option multicommit
1197 disable_option branch
1198 disable_option transport
1e65c622
AG
1199
1200 while {[llength $argv] > 0} {
1201 set a [lindex $argv 0]
1202 switch -- $a {
1203 --amend {
1204 enable_option initialamend
1205 }
1206 --nocommit {
1207 enable_option nocommit
1208 enable_option nocommitmsg
1209 }
1210 --commitmsg {
1211 disable_option nocommitmsg
1212 }
1213 default {
1214 break
1215 }
1216 }
1217
1218 set argv [lrange $argv 1 end]
1219 }
ba7cc660
SP
1220}
1221}
1222
e29c0d10
AG
1223######################################################################
1224##
1225## execution environment
1226
1227set have_tk85 [expr {[package vcompare $tk_version "8.5"] >= 0}]
1228
1229# Suggest our implementation of askpass, if none is set
1230if {![info exists env(SSH_ASKPASS)]} {
1231 set env(SSH_ASKPASS) [gitexec git-gui--askpass]
1232}
1233
2d19516d
SP
1234######################################################################
1235##
1236## repository setup
1237
bb4812bc 1238set picked 0
c6127856
SP
1239if {[catch {
1240 set _gitdir $env(GIT_DIR)
1241 set _prefix {}
1242 }]
1243 && [catch {
87cd09f4
GB
1244 # beware that from the .git dir this sets _gitdir to .
1245 # and _prefix to the empty string
c6127856
SP
1246 set _gitdir [git rev-parse --git-dir]
1247 set _prefix [git rev-parse --show-prefix]
1248 } err]} {
ab08b363
SP
1249 load_config 1
1250 apply_config
1251 choose_repository::pick
bb4812bc 1252 set picked 1
2d19516d 1253}
87cd09f4
GB
1254
1255# we expand the _gitdir when it's just a single dot (i.e. when we're being
1256# run from the .git dir itself) lest the routines to find the worktree
1257# get confused
1258if {$_gitdir eq "."} {
1259 set _gitdir [pwd]
1260}
1261
20ddfcaa 1262if {![file isdirectory $_gitdir] && [is_Cygwin]} {
2f7c9a7f 1263 catch {set _gitdir [exec cygpath --windows $_gitdir]}
20ddfcaa 1264}
c950c66e 1265if {![file isdirectory $_gitdir]} {
dbccbbda 1266 catch {wm withdraw .}
31bb1d1b 1267 error_popup [strcat [mc "Git directory not found:"] "\n\n$_gitdir"]
dbccbbda
SP
1268 exit 1
1269}
21985a11
GB
1270# _gitdir exists, so try loading the config
1271load_config 0
1272apply_config
38ec8d3e
PT
1273
1274# v1.7.0 introduced --show-toplevel to return the canonical work-tree
ce3e848b 1275if {[package vcompare $_git_version 1.7.0] >= 0} {
4394faf6
JM
1276 if { [is_Cygwin] } {
1277 catch {set _gitworktree [exec cygpath --windows [git rev-parse --show-toplevel]]}
1278 } else {
1279 set _gitworktree [git rev-parse --show-toplevel]
1280 }
38ec8d3e
PT
1281} else {
1282 # try to set work tree from environment, core.worktree or use
1283 # cdup to obtain a relative path to the top of the worktree. If
1284 # run from the top, the ./ prefix ensures normalize expands pwd.
1285 if {[catch { set _gitworktree $env(GIT_WORK_TREE) }]} {
1286 set _gitworktree [get_config core.worktree]
1287 if {$_gitworktree eq ""} {
1288 set _gitworktree [file normalize ./[git rev-parse --show-cdup]]
1289 }
13a3d637 1290 }
21985a11 1291}
38ec8d3e 1292
c80d25db 1293if {$_prefix ne {}} {
21985a11
GB
1294 if {$_gitworktree eq {}} {
1295 regsub -all {[^/]+/} $_prefix ../ cdup
1296 } else {
1297 set cdup $_gitworktree
1298 }
c80d25db
SP
1299 if {[catch {cd $cdup} err]} {
1300 catch {wm withdraw .}
31bb1d1b 1301 error_popup [strcat [mc "Cannot move to top of working directory:"] "\n\n$err"]
c80d25db
SP
1302 exit 1
1303 }
21985a11 1304 set _gitworktree [pwd]
c80d25db
SP
1305 unset cdup
1306} elseif {![is_enabled bare]} {
29e5573d 1307 if {[is_bare]} {
c52c9452 1308 catch {wm withdraw .}
29e5573d 1309 error_popup [strcat [mc "Cannot use bare repository:"] "\n\n$_gitdir"]
c52c9452
SP
1310 exit 1
1311 }
21985a11
GB
1312 if {$_gitworktree eq {}} {
1313 set _gitworktree [file dirname $_gitdir]
1314 }
1315 if {[catch {cd $_gitworktree} err]} {
c52c9452 1316 catch {wm withdraw .}
21985a11 1317 error_popup [strcat [mc "No working directory"] " $_gitworktree:\n\n$err"]
c52c9452
SP
1318 exit 1
1319 }
21985a11 1320 set _gitworktree [pwd]
dbccbbda 1321}
c52c9452
SP
1322set _reponame [file split [file normalize $_gitdir]]
1323if {[lindex $_reponame end] eq {.git}} {
1324 set _reponame [lindex $_reponame end-1]
1325} else {
1326 set _reponame [lindex $_reponame end]
2d19516d 1327}
2d19516d 1328
a9fa11fe
GB
1329set env(GIT_DIR) $_gitdir
1330set env(GIT_WORK_TREE) $_gitworktree
1331
372ef954
SP
1332######################################################################
1333##
1334## global init
1335
1336set current_diff_path {}
1337set current_diff_side {}
1338set diff_actions [list]
372ef954
SP
1339
1340set HEAD {}
1341set PARENT {}
1342set MERGE_HEAD [list]
1343set commit_type {}
1344set empty_tree {}
1345set current_branch {}
d41b43eb 1346set is_detached 0
372ef954 1347set current_diff_path {}
9c9f5fa9 1348set is_3way_diff 0
cd846aa1 1349set is_submodule_diff 0
3e34838c 1350set is_conflict_diff 0
372ef954 1351set selected_commit_type new
8052e788 1352set diff_empty_count 0
372ef954 1353
a9786bb4
AG
1354set nullid "0000000000000000000000000000000000000000"
1355set nullid2 "0000000000000000000000000000000000000001"
1356
cb07fc2a
SP
1357######################################################################
1358##
e210e674 1359## task management
cb07fc2a 1360
8f52548a 1361set rescan_active 0
131f503b 1362set diff_active 0
24263b77 1363set last_clicked {}
131f503b 1364
e210e674
SP
1365set disable_on_lock [list]
1366set index_lock_type none
1367
1368proc lock_index {type} {
1369 global index_lock_type disable_on_lock
131f503b 1370
043f7011 1371 if {$index_lock_type eq {none}} {
e210e674
SP
1372 set index_lock_type $type
1373 foreach w $disable_on_lock {
1374 uplevel #0 $w disabled
1375 }
1376 return 1
53716a7b 1377 } elseif {$index_lock_type eq "begin-$type"} {
e210e674 1378 set index_lock_type $type
131f503b
SP
1379 return 1
1380 }
1381 return 0
1382}
cb07fc2a 1383
e210e674
SP
1384proc unlock_index {} {
1385 global index_lock_type disable_on_lock
1386
1387 set index_lock_type none
1388 foreach w $disable_on_lock {
1389 uplevel #0 $w normal
1390 }
1391}
1392
1393######################################################################
1394##
1395## status
1396
f18e40a1 1397proc repository_state {ctvar hdvar mhvar} {
c950c66e 1398 global current_branch
f18e40a1
SP
1399 upvar $ctvar ct $hdvar hd $mhvar mh
1400
1401 set mh [list]
ec6b424a 1402
d41b43eb 1403 load_current_branch
81347223 1404 if {[catch {set hd [git rev-parse --verify HEAD]}]} {
4539eacd 1405 set hd {}
ec6b424a 1406 set ct initial
f18e40a1
SP
1407 return
1408 }
1409
c2758a17 1410 set merge_head [gitdir MERGE_HEAD]
f18e40a1 1411 if {[file exists $merge_head]} {
ec6b424a 1412 set ct merge
f18e40a1
SP
1413 set fd_mh [open $merge_head r]
1414 while {[gets $fd_mh line] >= 0} {
1415 lappend mh $line
1416 }
1417 close $fd_mh
1418 return
ec6b424a 1419 }
f18e40a1
SP
1420
1421 set ct normal
ec6b424a
SP
1422}
1423
4539eacd
SP
1424proc PARENT {} {
1425 global PARENT empty_tree
1426
f18e40a1
SP
1427 set p [lindex $PARENT 0]
1428 if {$p ne {}} {
1429 return $p
4539eacd
SP
1430 }
1431 if {$empty_tree eq {}} {
81347223 1432 set empty_tree [git mktree << {}]
4539eacd
SP
1433 }
1434 return $empty_tree
1435}
1436
1e65c622
AG
1437proc force_amend {} {
1438 global selected_commit_type
1439 global HEAD PARENT MERGE_HEAD commit_type
1440
1441 repository_state newType newHEAD newMERGE_HEAD
1442 set HEAD $newHEAD
1443 set PARENT $newHEAD
1444 set MERGE_HEAD $newMERGE_HEAD
1445 set commit_type $newType
1446
1447 set selected_commit_type amend
1448 do_select_commit_type
1449}
1450
46aaf90b 1451proc rescan {after {honor_trustmtime 1}} {
f18e40a1 1452 global HEAD PARENT MERGE_HEAD commit_type
699d5601 1453 global ui_index ui_workdir ui_comm
8f52548a 1454 global rescan_active file_states
cf25ddc8 1455 global repo_config
cb07fc2a 1456
8f52548a 1457 if {$rescan_active > 0 || ![lock_index read]} return
cb07fc2a 1458
f18e40a1 1459 repository_state newType newHEAD newMERGE_HEAD
4539eacd 1460 if {[string match amend* $commit_type]
f18e40a1
SP
1461 && $newType eq {normal}
1462 && $newHEAD eq $HEAD} {
e57ca85e 1463 } else {
f18e40a1
SP
1464 set HEAD $newHEAD
1465 set PARENT $newHEAD
1466 set MERGE_HEAD $newMERGE_HEAD
1467 set commit_type $newType
e57ca85e
SP
1468 }
1469
cb07fc2a 1470 array unset file_states
cb07fc2a 1471
1e0a92fd
SP
1472 if {!$::GITGUI_BCK_exists &&
1473 (![$ui_comm edit modified]
1474 || [string trim [$ui_comm get 0.0 end]] eq {})} {
b2f3bb1b 1475 if {[string match amend* $commit_type]} {
fda1ba02 1476 } elseif {[load_message GITGUI_MSG utf-8]} {
2cd1fd1f 1477 } elseif {[run_prepare_commit_msg_hook]} {
131f503b
SP
1478 } elseif {[load_message MERGE_MSG]} {
1479 } elseif {[load_message SQUASH_MSG]} {
1480 }
b2c6fcf1 1481 $ui_comm edit reset
21d7744f 1482 $ui_comm edit modified false
131f503b
SP
1483 }
1484
46aaf90b 1485 if {$honor_trustmtime && $repo_config(gui.trustmtime) eq {true}} {
8f52548a 1486 rescan_stage2 {} $after
e534f3a8 1487 } else {
8f52548a 1488 set rescan_active 1
1ac17950 1489 ui_status [mc "Refreshing file status..."]
0b812616
SP
1490 set fd_rf [git_read update-index \
1491 -q \
1492 --unmerged \
1493 --ignore-missing \
1494 --refresh \
1495 ]
e534f3a8 1496 fconfigure $fd_rf -blocking 0 -translation binary
390adaea 1497 fileevent $fd_rf readable \
8f52548a 1498 [list rescan_stage2 $fd_rf $after]
e534f3a8 1499 }
131f503b
SP
1500}
1501
2fe167b6 1502if {[is_Cygwin]} {
2fe167b6
SP
1503 set is_git_info_exclude {}
1504 proc have_info_exclude {} {
7f83aa2d 1505 global is_git_info_exclude
2fe167b6 1506
7f83aa2d
SP
1507 if {$is_git_info_exclude eq {}} {
1508 if {[catch {exec test -f [gitdir info exclude]}]} {
1509 set is_git_info_exclude 0
1510 } else {
1511 set is_git_info_exclude 1
2fe167b6 1512 }
2fe167b6 1513 }
7f83aa2d 1514 return $is_git_info_exclude
2fe167b6
SP
1515 }
1516} else {
1517 proc have_info_exclude {} {
1518 return [file readable [gitdir info exclude]]
1519 }
1520}
1521
8f52548a 1522proc rescan_stage2 {fd after} {
4539eacd 1523 global rescan_active buf_rdi buf_rdf buf_rlo
131f503b 1524
043f7011 1525 if {$fd ne {}} {
e534f3a8
SP
1526 read $fd
1527 if {![eof $fd]} return
1528 close $fd
1529 }
131f503b 1530
ce3e848b 1531 if {[package vcompare $::_git_version 1.6.3] >= 0} {
673eb4a0
SN
1532 set ls_others [list --exclude-standard]
1533 } else {
1534 set ls_others [list --exclude-per-directory=.gitignore]
1535 if {[have_info_exclude]} {
1536 lappend ls_others "--exclude-from=[gitdir info exclude]"
1537 }
1538 set user_exclude [get_config core.excludesfile]
1539 if {$user_exclude ne {} && [file readable $user_exclude]} {
1540 lappend ls_others "--exclude-from=[file normalize $user_exclude]"
1541 }
94a4dd9b 1542 }
cb07fc2a 1543
868c8752
SP
1544 set buf_rdi {}
1545 set buf_rdf {}
1546 set buf_rlo {}
1547
e632b3c0 1548 set rescan_active 2
1ac17950 1549 ui_status [mc "Scanning for modified files ..."]
e0db1dd7
JL
1550 if {[git-version >= "1.7.2"]} {
1551 set fd_di [git_read diff-index --cached --ignore-submodules=dirty -z [PARENT]]
1552 } else {
1553 set fd_di [git_read diff-index --cached -z [PARENT]]
1554 }
0b812616 1555 set fd_df [git_read diff-files -z]
cb07fc2a 1556
51a989ba
SP
1557 fconfigure $fd_di -blocking 0 -translation binary -encoding binary
1558 fconfigure $fd_df -blocking 0 -translation binary -encoding binary
e632b3c0 1559
8f52548a
SP
1560 fileevent $fd_di readable [list read_diff_index $fd_di $after]
1561 fileevent $fd_df readable [list read_diff_files $fd_df $after]
e632b3c0
MK
1562
1563 if {[is_config_true gui.displayuntracked]} {
1564 set fd_lo [eval git_read ls-files --others -z $ls_others]
1565 fconfigure $fd_lo -blocking 0 -translation binary -encoding binary
1566 fileevent $fd_lo readable [list read_ls_others $fd_lo $after]
1567 incr rescan_active
1568 }
cb07fc2a
SP
1569}
1570
fda1ba02 1571proc load_message {file {encoding {}}} {
c950c66e 1572 global ui_comm
131f503b 1573
c2758a17 1574 set f [gitdir $file]
e57ca85e 1575 if {[file isfile $f]} {
131f503b
SP
1576 if {[catch {set fd [open $f r]}]} {
1577 return 0
1578 }
6eb420ef 1579 fconfigure $fd -eofchar {}
fda1ba02
PT
1580 if {$encoding ne {}} {
1581 fconfigure $fd -encoding $encoding
1582 }
e57ca85e 1583 set content [string trim [read $fd]]
131f503b 1584 close $fd
4e55d19a 1585 regsub -all -line {[ \r\t]+$} $content {} content
131f503b
SP
1586 $ui_comm delete 0.0 end
1587 $ui_comm insert end $content
1588 return 1
1589 }
1590 return 0
1591}
1592
2cd1fd1f
JW
1593proc run_prepare_commit_msg_hook {} {
1594 global pch_error
1595
1596 # prepare-commit-msg requires PREPARE_COMMIT_MSG exist. From git-gui
1597 # it will be .git/MERGE_MSG (merge), .git/SQUASH_MSG (squash), or an
c5c45e1a 1598 # empty file but existent file.
2cd1fd1f
JW
1599
1600 set fd_pcm [open [gitdir PREPARE_COMMIT_MSG] a]
1601
1602 if {[file isfile [gitdir MERGE_MSG]]} {
1603 set pcm_source "merge"
1604 set fd_mm [open [gitdir MERGE_MSG] r]
af465c0c 1605 fconfigure $fd_mm -encoding utf-8
2cd1fd1f
JW
1606 puts -nonewline $fd_pcm [read $fd_mm]
1607 close $fd_mm
1608 } elseif {[file isfile [gitdir SQUASH_MSG]]} {
1609 set pcm_source "squash"
1610 set fd_sm [open [gitdir SQUASH_MSG] r]
af465c0c 1611 fconfigure $fd_sm -encoding utf-8
2cd1fd1f
JW
1612 puts -nonewline $fd_pcm [read $fd_sm]
1613 close $fd_sm
1614 } else {
1615 set pcm_source ""
1616 }
1617
1618 close $fd_pcm
1619
1620 set fd_ph [githook_read prepare-commit-msg \
1621 [gitdir PREPARE_COMMIT_MSG] $pcm_source]
1622 if {$fd_ph eq {}} {
1623 catch {file delete [gitdir PREPARE_COMMIT_MSG]}
1624 return 0;
1625 }
1626
1627 ui_status [mc "Calling prepare-commit-msg hook..."]
1628 set pch_error {}
1629
1630 fconfigure $fd_ph -blocking 0 -translation binary -eofchar {}
1631 fileevent $fd_ph readable \
1632 [list prepare_commit_msg_hook_wait $fd_ph]
1633
1634 return 1;
1635}
1636
1637proc prepare_commit_msg_hook_wait {fd_ph} {
1638 global pch_error
1639
1640 append pch_error [read $fd_ph]
1641 fconfigure $fd_ph -blocking 1
1642 if {[eof $fd_ph]} {
1643 if {[catch {close $fd_ph}]} {
1644 ui_status [mc "Commit declined by prepare-commit-msg hook."]
1645 hook_failed_popup prepare-commit-msg $pch_error
1646 catch {file delete [gitdir PREPARE_COMMIT_MSG]}
1647 exit 1
1648 } else {
1649 load_message PREPARE_COMMIT_MSG
1650 }
1651 set pch_error {}
1652 catch {file delete [gitdir PREPARE_COMMIT_MSG]}
1653 return
1654 }
1655 fconfigure $fd_ph -blocking 0
1656 catch {file delete [gitdir PREPARE_COMMIT_MSG]}
1657}
1658
8f52548a 1659proc read_diff_index {fd after} {
cb07fc2a
SP
1660 global buf_rdi
1661
1662 append buf_rdi [read $fd]
868c8752
SP
1663 set c 0
1664 set n [string length $buf_rdi]
1665 while {$c < $n} {
1666 set z1 [string first "\0" $buf_rdi $c]
1667 if {$z1 == -1} break
1668 incr z1
1669 set z2 [string first "\0" $buf_rdi $z1]
1670 if {$z2 == -1} break
1671
868c8752 1672 incr c
86291555 1673 set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
51a989ba 1674 set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
1461c5f3 1675 merge_state \
e2039e94 1676 [encoding convertfrom utf-8 $p] \
86291555
SP
1677 [lindex $i 4]? \
1678 [list [lindex $i 0] [lindex $i 2]] \
1461c5f3
SP
1679 [list]
1680 set c $z2
86291555 1681 incr c
cb07fc2a 1682 }
868c8752
SP
1683 if {$c < $n} {
1684 set buf_rdi [string range $buf_rdi $c end]
1685 } else {
1686 set buf_rdi {}
1687 }
1688
8f52548a 1689 rescan_done $fd buf_rdi $after
cb07fc2a
SP
1690}
1691
8f52548a 1692proc read_diff_files {fd after} {
cb07fc2a
SP
1693 global buf_rdf
1694
1695 append buf_rdf [read $fd]
868c8752
SP
1696 set c 0
1697 set n [string length $buf_rdf]
1698 while {$c < $n} {
1699 set z1 [string first "\0" $buf_rdf $c]
1700 if {$z1 == -1} break
1701 incr z1
1702 set z2 [string first "\0" $buf_rdf $z1]
1703 if {$z2 == -1} break
1704
868c8752 1705 incr c
86291555 1706 set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
51a989ba 1707 set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
1461c5f3 1708 merge_state \
e2039e94 1709 [encoding convertfrom utf-8 $p] \
86291555 1710 ?[lindex $i 4] \
1461c5f3 1711 [list] \
86291555 1712 [list [lindex $i 0] [lindex $i 2]]
1461c5f3 1713 set c $z2
86291555 1714 incr c
868c8752
SP
1715 }
1716 if {$c < $n} {
1717 set buf_rdf [string range $buf_rdf $c end]
1718 } else {
1719 set buf_rdf {}
cb07fc2a 1720 }
868c8752 1721
8f52548a 1722 rescan_done $fd buf_rdf $after
cb07fc2a
SP
1723}
1724
8f52548a 1725proc read_ls_others {fd after} {
cb07fc2a
SP
1726 global buf_rlo
1727
1728 append buf_rlo [read $fd]
1729 set pck [split $buf_rlo "\0"]
1730 set buf_rlo [lindex $pck end]
1731 foreach p [lrange $pck 0 end-1] {
e2039e94 1732 set p [encoding convertfrom utf-8 $p]
89384101
SP
1733 if {[string index $p end] eq {/}} {
1734 set p [string range $p 0 end-1]
1735 }
1736 merge_state $p ?O
cb07fc2a 1737 }
8f52548a 1738 rescan_done $fd buf_rlo $after
cb07fc2a
SP
1739}
1740
8f52548a 1741proc rescan_done {fd buf after} {
f522c9b5 1742 global rescan_active current_diff_path
f7f8d322 1743 global file_states repo_config
7f1df79b 1744 upvar $buf to_clear
cb07fc2a 1745
f7f8d322
SP
1746 if {![eof $fd]} return
1747 set to_clear {}
1748 close $fd
8f52548a 1749 if {[incr rescan_active -1] > 0} return
93f654df 1750
24263b77 1751 prune_selection
f7f8d322
SP
1752 unlock_index
1753 display_all_files
7cf4566f
AG
1754 if {$current_diff_path ne {}} { reshow_diff $after }
1755 if {$current_diff_path eq {}} { select_first_diff $after }
cb07fc2a
SP
1756}
1757
24263b77
SP
1758proc prune_selection {} {
1759 global file_states selected_paths
1760
1761 foreach path [array names selected_paths] {
1762 if {[catch {set still_here $file_states($path)}]} {
1763 unset selected_paths($path)
1764 }
1765 }
1766}
1767
cb07fc2a
SP
1768######################################################################
1769##
f522c9b5 1770## ui helpers
cb07fc2a 1771
f522c9b5
SP
1772proc mapicon {w state path} {
1773 global all_icons
1774
1775 if {[catch {set r $all_icons($state$w)}]} {
1776 puts "error: no icon for $w state={$state} $path"
1777 return file_plain
1778 }
1779 return $r
1780}
cb07fc2a 1781
f522c9b5
SP
1782proc mapdesc {state path} {
1783 global all_descs
03e4ec53 1784
f522c9b5
SP
1785 if {[catch {set r $all_descs($state)}]} {
1786 puts "error: no desc for state={$state} $path"
1787 return $state
1788 }
1789 return $r
1790}
03e4ec53 1791
699d5601 1792proc ui_status {msg} {
906ab7f6
SP
1793 global main_status
1794 if {[info exists main_status]} {
1795 $main_status show $msg
1796 }
699d5601
SP
1797}
1798
1799proc ui_ready {{test {}}} {
906ab7f6
SP
1800 global main_status
1801 if {[info exists main_status]} {
1802 $main_status show [mc "Ready."] $test
1803 }
699d5601
SP
1804}
1805
f522c9b5
SP
1806proc escape_path {path} {
1807 regsub -all {\\} $path "\\\\" path
1808 regsub -all "\n" $path "\\n" path
1809 return $path
cb07fc2a
SP
1810}
1811
f522c9b5
SP
1812proc short_path {path} {
1813 return [escape_path [lindex [file split $path] end]]
7f1df79b
SP
1814}
1815
f522c9b5
SP
1816set next_icon_id 0
1817set null_sha1 [string repeat 0 40]
16403d0b 1818
f522c9b5
SP
1819proc merge_state {path new_state {head_info {}} {index_info {}}} {
1820 global file_states next_icon_id null_sha1
16403d0b 1821
f522c9b5
SP
1822 set s0 [string index $new_state 0]
1823 set s1 [string index $new_state 1]
16403d0b 1824
f522c9b5
SP
1825 if {[catch {set info $file_states($path)}]} {
1826 set state __
1827 set icon n[incr next_icon_id]
1828 } else {
1829 set state [lindex $info 0]
1830 set icon [lindex $info 1]
1831 if {$head_info eq {}} {set head_info [lindex $info 2]}
1832 if {$index_info eq {}} {set index_info [lindex $info 3]}
1833 }
16403d0b 1834
f522c9b5
SP
1835 if {$s0 eq {?}} {set s0 [string index $state 0]} \
1836 elseif {$s0 eq {_}} {set s0 _}
124355d3 1837
f522c9b5
SP
1838 if {$s1 eq {?}} {set s1 [string index $state 1]} \
1839 elseif {$s1 eq {_}} {set s1 _}
16403d0b 1840
f522c9b5
SP
1841 if {$s0 eq {A} && $s1 eq {_} && $head_info eq {}} {
1842 set head_info [list 0 $null_sha1]
1843 } elseif {$s0 ne {_} && [string index $state 0] eq {_}
1844 && $head_info eq {}} {
1845 set head_info $index_info
7ec2b69f
JL
1846 } elseif {$s0 eq {_} && [string index $state 0] ne {_}} {
1847 set index_info $head_info
1848 set head_info {}
f522c9b5 1849 }
16403d0b 1850
f522c9b5
SP
1851 set file_states($path) [list $s0$s1 $icon \
1852 $head_info $index_info \
1853 ]
1854 return $state
1855}
cb07fc2a 1856
f522c9b5
SP
1857proc display_file_helper {w path icon_name old_m new_m} {
1858 global file_lists
cb07fc2a 1859
f522c9b5 1860 if {$new_m eq {_}} {
156b2921 1861 set lno [lsearch -sorted -exact $file_lists($w) $path]
5f8b70b1 1862 if {$lno >= 0} {
f522c9b5 1863 set file_lists($w) [lreplace $file_lists($w) $lno $lno]
5f8b70b1 1864 incr lno
f522c9b5
SP
1865 $w conf -state normal
1866 $w delete $lno.0 [expr {$lno + 1}].0
1867 $w conf -state disabled
03e4ec53 1868 }
f522c9b5
SP
1869 } elseif {$old_m eq {_} && $new_m ne {_}} {
1870 lappend file_lists($w) $path
1871 set file_lists($w) [lsort -unique $file_lists($w)]
1872 set lno [lsearch -sorted -exact $file_lists($w) $path]
1873 incr lno
1874 $w conf -state normal
1875 $w image create $lno.0 \
1876 -align center -padx 5 -pady 1 \
1877 -name $icon_name \
1878 -image [mapicon $w $new_m $path]
1879 $w insert $lno.1 "[escape_path $path]\n"
1880 $w conf -state disabled
1881 } elseif {$old_m ne $new_m} {
1882 $w conf -state normal
1883 $w image conf $icon_name -image [mapicon $w $new_m $path]
1884 $w conf -state disabled
03e4ec53 1885 }
f522c9b5
SP
1886}
1887
1888proc display_file {path state} {
1889 global file_states selected_paths
1890 global ui_index ui_workdir
03e4ec53 1891
f522c9b5 1892 set old_m [merge_state $path $state]
cb07fc2a 1893 set s $file_states($path)
f522c9b5
SP
1894 set new_m [lindex $s 0]
1895 set icon_name [lindex $s 1]
82cb8706 1896
f522c9b5
SP
1897 set o [string index $old_m 0]
1898 set n [string index $new_m 0]
1899 if {$o eq {U}} {
1900 set o _
1901 }
1902 if {$n eq {U}} {
1903 set n _
cb07fc2a 1904 }
f522c9b5 1905 display_file_helper $ui_index $path $icon_name $o $n
cb07fc2a 1906
f522c9b5
SP
1907 if {[string index $old_m 0] eq {U}} {
1908 set o U
1909 } else {
1910 set o [string index $old_m 1]
82cb8706 1911 }
f522c9b5
SP
1912 if {[string index $new_m 0] eq {U}} {
1913 set n U
1914 } else {
1915 set n [string index $new_m 1]
82cb8706 1916 }
f522c9b5
SP
1917 display_file_helper $ui_workdir $path $icon_name $o $n
1918
1919 if {$new_m eq {__}} {
1920 unset file_states($path)
1921 catch {unset selected_paths($path)}
cb07fc2a 1922 }
f522c9b5 1923}
cb07fc2a 1924
f522c9b5
SP
1925proc display_all_files_helper {w path icon_name m} {
1926 global file_lists
1927
1928 lappend file_lists($w) $path
1929 set lno [expr {[lindex [split [$w index end] .] 0] - 1}]
1930 $w image create end \
1931 -align center -padx 5 -pady 1 \
1932 -name $icon_name \
1933 -image [mapicon $w $m $path]
1934 $w insert end "[escape_path $path]\n"
cb07fc2a
SP
1935}
1936
dd6451f9 1937set files_warning 0
f522c9b5
SP
1938proc display_all_files {} {
1939 global ui_index ui_workdir
1940 global file_states file_lists
1941 global last_clicked
dd6451f9 1942 global files_warning
cb07fc2a 1943
f522c9b5
SP
1944 $ui_index conf -state normal
1945 $ui_workdir conf -state normal
cb07fc2a 1946
f522c9b5
SP
1947 $ui_index delete 0.0 end
1948 $ui_workdir delete 0.0 end
1949 set last_clicked {}
cb07fc2a 1950
f522c9b5
SP
1951 set file_lists($ui_index) [list]
1952 set file_lists($ui_workdir) [list]
16403d0b 1953
dd6451f9
DZ
1954 set to_display [lsort [array names file_states]]
1955 set display_limit [get_config gui.maxfilesdisplayed]
a117fa21 1956 set displayed 0
dd6451f9 1957 foreach path $to_display {
f522c9b5
SP
1958 set s $file_states($path)
1959 set m [lindex $s 0]
1960 set icon_name [lindex $s 1]
1961
a117fa21
CK
1962 if {$displayed > $display_limit && [string index $m 1] eq {O} } {
1963 if {!$files_warning} {
1964 # do not repeatedly warn:
1965 set files_warning 1
1966 info_popup [mc "Display limit (gui.maxfilesdisplayed = %s) reached, not showing all %s files." \
1967 $display_limit [llength $to_display]]
1968 }
1969 continue
1970 }
1971
f522c9b5
SP
1972 set s [string index $m 0]
1973 if {$s ne {U} && $s ne {_}} {
1974 display_all_files_helper $ui_index $path \
1975 $icon_name $s
16403d0b 1976 }
cb07fc2a 1977
f522c9b5
SP
1978 if {[string index $m 0] eq {U}} {
1979 set s U
1980 } else {
1981 set s [string index $m 1]
a25c5189 1982 }
f522c9b5
SP
1983 if {$s ne {_}} {
1984 display_all_files_helper $ui_workdir $path \
1985 $icon_name $s
a117fa21 1986 incr displayed
a25c5189
SP
1987 }
1988 }
1989
f522c9b5
SP
1990 $ui_index conf -state disabled
1991 $ui_workdir conf -state disabled
a25c5189
SP
1992}
1993
ec6b424a
SP
1994######################################################################
1995##
f522c9b5 1996## icons
ec6b424a 1997
f522c9b5
SP
1998set filemask {
1999#define mask_width 14
2000#define mask_height 15
2001static unsigned char mask_bits[] = {
2002 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
2003 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
2004 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
2005}
cb07fc2a
SP
2006
2007image create bitmap file_plain -background white -foreground black -data {
2008#define plain_width 14
2009#define plain_height 15
2010static unsigned char plain_bits[] = {
2011 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
2012 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
2013 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
2014} -maskdata $filemask
2015
2016image create bitmap file_mod -background white -foreground blue -data {
2017#define mod_width 14
2018#define mod_height 15
2019static unsigned char mod_bits[] = {
2020 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
2021 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
2022 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
2023} -maskdata $filemask
2024
131f503b
SP
2025image create bitmap file_fulltick -background white -foreground "#007000" -data {
2026#define file_fulltick_width 14
2027#define file_fulltick_height 15
2028static unsigned char file_fulltick_bits[] = {
cb07fc2a
SP
2029 0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
2030 0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
2031 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
2032} -maskdata $filemask
2033
cb07fc2a
SP
2034image create bitmap file_question -background white -foreground black -data {
2035#define file_question_width 14
2036#define file_question_height 15
2037static unsigned char file_question_bits[] = {
2038 0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
2039 0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
2040 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
2041} -maskdata $filemask
2042
2043image create bitmap file_removed -background white -foreground red -data {
2044#define file_removed_width 14
2045#define file_removed_height 15
2046static unsigned char file_removed_bits[] = {
2047 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
2048 0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
2049 0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
2050} -maskdata $filemask
2051
2052image create bitmap file_merge -background white -foreground blue -data {
2053#define file_merge_width 14
2054#define file_merge_height 15
2055static unsigned char file_merge_bits[] = {
2056 0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
2057 0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
2058 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
2059} -maskdata $filemask
2060
e681cb7d 2061image create bitmap file_statechange -background white -foreground green -data {
bf5fe3f3
BW
2062#define file_statechange_width 14
2063#define file_statechange_height 15
e681cb7d
GH
2064static unsigned char file_statechange_bits[] = {
2065 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x62, 0x10,
2066 0x62, 0x10, 0xba, 0x11, 0xba, 0x11, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10,
2067 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
2068} -maskdata $filemask
2069
6b292675 2070set ui_index .vpane.files.index.list
0812665e 2071set ui_workdir .vpane.files.workdir.list
21e409ad
SP
2072
2073set all_icons(_$ui_index) file_plain
0602de48 2074set all_icons(A$ui_index) file_plain
21e409ad
SP
2075set all_icons(M$ui_index) file_fulltick
2076set all_icons(D$ui_index) file_removed
2077set all_icons(U$ui_index) file_merge
e681cb7d 2078set all_icons(T$ui_index) file_statechange
21e409ad
SP
2079
2080set all_icons(_$ui_workdir) file_plain
2081set all_icons(M$ui_workdir) file_mod
2082set all_icons(D$ui_workdir) file_question
3b4db3c1 2083set all_icons(U$ui_workdir) file_merge
21e409ad 2084set all_icons(O$ui_workdir) file_plain
e681cb7d 2085set all_icons(T$ui_workdir) file_statechange
21e409ad 2086
131f503b 2087set max_status_desc 0
cb07fc2a 2088foreach i {
1ac17950
CS
2089 {__ {mc "Unmodified"}}
2090
2091 {_M {mc "Modified, not staged"}}
2092 {M_ {mc "Staged for commit"}}
2093 {MM {mc "Portions staged for commit"}}
2094 {MD {mc "Staged for commit, missing"}}
2095
e681cb7d 2096 {_T {mc "File type changed, not staged"}}
7587f4d3
BW
2097 {MT {mc "File type changed, old type staged for commit"}}
2098 {AT {mc "File type changed, old type staged for commit"}}
e681cb7d 2099 {T_ {mc "File type changed, staged"}}
7587f4d3
BW
2100 {TM {mc "File type change staged, modification not staged"}}
2101 {TD {mc "File type change staged, file missing"}}
e681cb7d 2102
1ac17950
CS
2103 {_O {mc "Untracked, not staged"}}
2104 {A_ {mc "Staged for commit"}}
2105 {AM {mc "Portions staged for commit"}}
2106 {AD {mc "Staged for commit, missing"}}
2107
2108 {_D {mc "Missing"}}
2109 {D_ {mc "Staged for removal"}}
2110 {DO {mc "Staged for removal, still present"}}
2111
ff515d81 2112 {_U {mc "Requires merge resolution"}}
1ac17950
CS
2113 {U_ {mc "Requires merge resolution"}}
2114 {UU {mc "Requires merge resolution"}}
2115 {UM {mc "Requires merge resolution"}}
2116 {UD {mc "Requires merge resolution"}}
ff515d81 2117 {UT {mc "Requires merge resolution"}}
cb07fc2a 2118 } {
1ac17950
CS
2119 set text [eval [lindex $i 1]]
2120 if {$max_status_desc < [string length $text]} {
2121 set max_status_desc [string length $text]
131f503b 2122 }
1ac17950 2123 set all_descs([lindex $i 0]) $text
cb07fc2a 2124}
21e409ad 2125unset i
cb07fc2a
SP
2126
2127######################################################################
2128##
2129## util
2130
35874c16
SP
2131proc scrollbar2many {list mode args} {
2132 foreach w $list {eval $w $mode $args}
2133}
2134
2135proc many2scrollbar {list mode sb top bottom} {
2136 $sb set $top $bottom
2137 foreach w $list {$w $mode moveto $top}
2138}
2139
b4946930
SP
2140proc incr_font_size {font {amt 1}} {
2141 set sz [font configure $font -size]
2142 incr sz $amt
2143 font configure $font -size $sz
2144 font configure ${font}bold -size $sz
debcd0fd 2145 font configure ${font}italic -size $sz
b4946930
SP
2146}
2147
cb07fc2a
SP
2148######################################################################
2149##
2150## ui commands
2151
1ac17950 2152set starting_gitk_msg [mc "Starting gitk... please wait..."]
cc4b1c02 2153
25476c63
JL
2154proc do_gitk {revs {is_submodule false}} {
2155 global current_diff_path file_states current_diff_side ui_index
a9fa11fe 2156 global _gitdir _gitworktree
25476c63 2157
20ddfcaa
SP
2158 # -- Always start gitk through whatever we were loaded with. This
2159 # lets us bypass using shell process on Windows systems.
2160 #
79317e5d 2161 set exe [_which gitk -script]
02efd48f 2162 set cmd [list [info nameofexecutable] $exe]
15430be5
AMS
2163 if {$exe eq {}} {
2164 error_popup [mc "Couldn't find gitk in PATH"]
cb07fc2a 2165 } else {
501e4c6f
SP
2166 global env
2167
501e4c6f 2168 set pwd [pwd]
501e4c6f 2169
25476c63 2170 if {!$is_submodule} {
29e5573d 2171 if {![is_bare]} {
21985a11
GB
2172 cd $_gitworktree
2173 }
25476c63
JL
2174 } else {
2175 cd $current_diff_path
2176 if {$revs eq {--}} {
2177 set s $file_states($current_diff_path)
2178 set old_sha1 {}
2179 set new_sha1 {}
2180 switch -glob -- [lindex $s 0] {
2181 M_ { set old_sha1 [lindex [lindex $s 2] 1] }
2182 _M { set old_sha1 [lindex [lindex $s 3] 1] }
2183 MM {
2184 if {$current_diff_side eq $ui_index} {
2185 set old_sha1 [lindex [lindex $s 2] 1]
2186 set new_sha1 [lindex [lindex $s 3] 1]
2187 } else {
2188 set old_sha1 [lindex [lindex $s 3] 1]
2189 }
2190 }
2191 }
2192 set revs $old_sha1...$new_sha1
2193 }
a9fa11fe
GB
2194 # GIT_DIR and GIT_WORK_TREE for the submodule are not the ones
2195 # we've been using for the main repository, so unset them.
2196 # TODO we could make life easier (start up faster?) for gitk
2197 # by setting these to the appropriate values to allow gitk
2198 # to skip the heuristics to find their proper value
2199 unset env(GIT_DIR)
2200 unset env(GIT_WORK_TREE)
25476c63 2201 }
e27d106e 2202 eval exec $cmd $revs "--" "--" &
501e4c6f 2203
a9fa11fe
GB
2204 set env(GIT_DIR) $_gitdir
2205 set env(GIT_WORK_TREE) $_gitworktree
25476c63
JL
2206 cd $pwd
2207
2208 ui_status $::starting_gitk_msg
2209 after 10000 {
2210 ui_ready $starting_gitk_msg
2211 }
2212 }
2213}
2214
2215proc do_git_gui {} {
2216 global current_diff_path
2217
2218 # -- Always start git gui through whatever we were loaded with. This
2219 # lets us bypass using shell process on Windows systems.
2220 #
831cc7eb 2221 set exe [list [_which git]]
25476c63
JL
2222 if {$exe eq {}} {
2223 error_popup [mc "Couldn't find git gui in PATH"]
2224 } else {
2225 global env
a9fa11fe 2226 global _gitdir _gitworktree
25476c63 2227
a9fa11fe
GB
2228 # see note in do_gitk about unsetting these vars when
2229 # running tools in a submodule
2230 unset env(GIT_DIR)
2231 unset env(GIT_WORK_TREE)
25476c63
JL
2232
2233 set pwd [pwd]
2234 cd $current_diff_path
2235
2236 eval exec $exe gui &
2237
a9fa11fe
GB
2238 set env(GIT_DIR) $_gitdir
2239 set env(GIT_WORK_TREE) $_gitworktree
501e4c6f
SP
2240 cd $pwd
2241
02efd48f 2242 ui_status $::starting_gitk_msg
d0752429 2243 after 10000 {
699d5601 2244 ui_ready $starting_gitk_msg
d0752429 2245 }
cb07fc2a
SP
2246 }
2247}
2248
afd54240 2249proc do_explore {} {
21985a11 2250 global _gitworktree
afd54240
PB
2251 set explorer {}
2252 if {[is_Cygwin] || [is_Windows]} {
2253 set explorer "explorer.exe"
2254 } elseif {[is_MacOSX]} {
2255 set explorer "open"
2256 } else {
2257 # freedesktop.org-conforming system is our best shot
2258 set explorer "xdg-open"
2259 }
2e0cda65 2260 eval exec $explorer [list [file nativename $_gitworktree]] &
afd54240
PB
2261}
2262
b5834d70 2263set is_quitting 0
1e65c622 2264set ret_code 1
c4fe7728 2265
1e65c622
AG
2266proc terminate_me {win} {
2267 global ret_code
2268 if {$win ne {.}} return
2269 exit $ret_code
2270}
2271
2272proc do_quit {{rc {1}}} {
c950c66e 2273 global ui_comm is_quitting repo_config commit_type
4578c5cb 2274 global GITGUI_BCK_exists GITGUI_BCK_i
95b002ee 2275 global ui_comm_spell
c80d7be5 2276 global ret_code use_ttk
c4fe7728 2277
b5834d70
SP
2278 if {$is_quitting} return
2279 set is_quitting 1
131f503b 2280
db7f34d4
SP
2281 if {[winfo exists $ui_comm]} {
2282 # -- Stash our current commit buffer.
2283 #
2284 set save [gitdir GITGUI_MSG]
4578c5cb
SP
2285 if {$GITGUI_BCK_exists && ![$ui_comm edit modified]} {
2286 file rename -force [gitdir GITGUI_BCK] $save
2287 set GITGUI_BCK_exists 0
db7f34d4 2288 } else {
4578c5cb
SP
2289 set msg [string trim [$ui_comm get 0.0 end]]
2290 regsub -all -line {[ \r\t]+$} $msg {} msg
2291 if {(![string match amend* $commit_type]
2292 || [$ui_comm edit modified])
2293 && $msg ne {}} {
2294 catch {
2295 set fd [open $save w]
fda1ba02 2296 fconfigure $fd -encoding utf-8
4578c5cb
SP
2297 puts -nonewline $fd $msg
2298 close $fd
2299 }
2300 } else {
2301 catch {file delete $save}
2302 }
2303 }
2304
95b002ee
SP
2305 # -- Cancel our spellchecker if its running.
2306 #
2307 if {[info exists ui_comm_spell]} {
2308 $ui_comm_spell stop
2309 }
2310
4578c5cb
SP
2311 # -- Remove our editor backup, its not needed.
2312 #
2313 after cancel $GITGUI_BCK_i
2314 if {$GITGUI_BCK_exists} {
2315 catch {file delete [gitdir GITGUI_BCK]}
131f503b 2316 }
131f503b 2317
db7f34d4
SP
2318 # -- Stash our current window geometry into this repository.
2319 #
ed7b6033
AB
2320 set cfg_wmstate [wm state .]
2321 if {[catch {set rc_wmstate $repo_config(gui.wmstate)}]} {
2322 set rc_wmstate {}
2323 }
2324 if {$cfg_wmstate ne $rc_wmstate} {
2325 catch {git config gui.wmstate $cfg_wmstate}
2326 }
2327 if {$cfg_wmstate eq {zoomed}} {
2328 # on Windows wm geometry will lie about window
2329 # position (but not size) when window is zoomed
2330 # restore the window before querying wm geometry
2331 wm state . normal
2332 }
db7f34d4
SP
2333 set cfg_geometry [list]
2334 lappend cfg_geometry [wm geometry .]
c80d7be5
PT
2335 if {$use_ttk} {
2336 lappend cfg_geometry [.vpane sashpos 0]
2337 lappend cfg_geometry [.vpane.files sashpos 0]
2338 } else {
2339 lappend cfg_geometry [lindex [.vpane sash coord 0] 0]
2340 lappend cfg_geometry [lindex [.vpane.files sash coord 0] 1]
2341 }
db7f34d4
SP
2342 if {[catch {set rc_geometry $repo_config(gui.geometry)}]} {
2343 set rc_geometry {}
2344 }
2345 if {$cfg_geometry ne $rc_geometry} {
81347223 2346 catch {git config gui.geometry $cfg_geometry}
db7f34d4 2347 }
51f4d16b
SP
2348 }
2349
1e65c622 2350 set ret_code $rc
60204ddb
JM
2351
2352 # Briefly enable send again, working around Tk bug
2353 # http://sourceforge.net/tracker/?func=detail&atid=112997&aid=1821174&group_id=12997
2354 tk appname [appname]
2355
cb07fc2a
SP
2356 destroy .
2357}
2358
2359proc do_rescan {} {
699d5601 2360 rescan ui_ready
cb07fc2a
SP
2361}
2362
8056cc4f 2363proc ui_do_rescan {} {
7cf4566f 2364 rescan {force_first_diff ui_ready}
8056cc4f
AG
2365}
2366
6e27d826 2367proc do_commit {} {
ec6b424a 2368 commit_tree
6e27d826
SP
2369}
2370
7cf4566f 2371proc next_diff {{after {}}} {
8a965b8e 2372 global next_diff_p next_diff_w next_diff_i
7cf4566f 2373 show_diff $next_diff_p $next_diff_w {} {} $after
29853b90
AG
2374}
2375
2376proc find_anchor_pos {lst name} {
2377 set lid [lsearch -sorted -exact $lst $name]
2378
2379 if {$lid == -1} {
2380 set lid 0
2381 foreach lname $lst {
2382 if {$lname >= $name} break
2383 incr lid
2384 }
2385 }
2386
2387 return $lid
2388}
2389
2390proc find_file_from {flist idx delta path mmask} {
2391 global file_states
2392
2393 set len [llength $flist]
2394 while {$idx >= 0 && $idx < $len} {
2395 set name [lindex $flist $idx]
2396
2397 if {$name ne $path && [info exists file_states($name)]} {
2398 set state [lindex $file_states($name) 0]
2399
2400 if {$mmask eq {} || [regexp $mmask $state]} {
2401 return $idx
2402 }
2403 }
2404
2405 incr idx $delta
2406 }
2407
2408 return {}
2409}
2410
2411proc find_next_diff {w path {lno {}} {mmask {}}} {
2412 global next_diff_p next_diff_w next_diff_i
2413 global file_lists ui_index ui_workdir
2414
2415 set flist $file_lists($w)
2416 if {$lno eq {}} {
2417 set lno [find_anchor_pos $flist $path]
2418 } else {
2419 incr lno -1
2420 }
2421
2422 if {$mmask ne {} && ![regexp {(^\^)|(\$$)} $mmask]} {
2423 if {$w eq $ui_index} {
2424 set mmask "^$mmask"
2425 } else {
2426 set mmask "$mmask\$"
2427 }
2428 }
2429
2430 set idx [find_file_from $flist $lno 1 $path $mmask]
2431 if {$idx eq {}} {
2432 incr lno -1
2433 set idx [find_file_from $flist $lno -1 $path $mmask]
2434 }
2435
2436 if {$idx ne {}} {
2437 set next_diff_w $w
2438 set next_diff_p [lindex $flist $idx]
2439 set next_diff_i [expr {$idx+1}]
2440 return 1
2441 } else {
2442 return 0
2443 }
2444}
2445
2446proc next_diff_after_action {w path {lno {}} {mmask {}}} {
2447 global current_diff_path
2448
2449 if {$path ne $current_diff_path} {
2450 return {}
2451 } elseif {[find_next_diff $w $path $lno $mmask]} {
2452 return {next_diff;}
2453 } else {
2454 return {reshow_diff;}
2455 }
2456}
2457
7cf4566f 2458proc select_first_diff {after} {
29853b90
AG
2459 global ui_workdir
2460
2461 if {[find_next_diff $ui_workdir {} 1 {^_?U}] ||
2462 [find_next_diff $ui_workdir {} 1 {[^O]$}]} {
7cf4566f
AG
2463 next_diff $after
2464 } else {
2465 uplevel #0 $after
29853b90 2466 }
8a965b8e
AMS
2467}
2468
7cf4566f
AG
2469proc force_first_diff {after} {
2470 global ui_workdir current_diff_path file_states
8056cc4f
AG
2471
2472 if {[info exists file_states($current_diff_path)]} {
2473 set state [lindex $file_states($current_diff_path) 0]
7cf4566f
AG
2474 } else {
2475 set state {OO}
2476 }
8056cc4f 2477
7cf4566f
AG
2478 set reselect 0
2479 if {[string first {U} $state] >= 0} {
2480 # Already a conflict, do nothing
2481 } elseif {[find_next_diff $ui_workdir $current_diff_path {} {^_?U}]} {
2482 set reselect 1
2483 } elseif {[string index $state 1] ne {O}} {
2484 # Already a diff & no conflicts, do nothing
2485 } elseif {[find_next_diff $ui_workdir $current_diff_path {} {[^O]$}]} {
2486 set reselect 1
8056cc4f
AG
2487 }
2488
7cf4566f
AG
2489 if {$reselect} {
2490 next_diff $after
2491 } else {
2492 uplevel #0 $after
2493 }
8056cc4f
AG
2494}
2495
088ad75d 2496proc toggle_or_diff {mode w args} {
20a53c02 2497 global file_states file_lists current_diff_path ui_index ui_workdir
24263b77 2498 global last_clicked selected_paths
131f503b 2499
088ad75d
PT
2500 if {$mode eq "click"} {
2501 foreach {x y} $args break
2502 set pos [split [$w index @$x,$y] .]
2503 foreach {lno col} $pos break
2504 } else {
76756d67
JS
2505 if {$mode eq "toggle"} {
2506 if {$w eq $ui_workdir} {
2507 do_add_selection
2508 set last_clicked {}
2509 return
2510 }
2511 if {$w eq $ui_index} {
2512 do_unstage_selection
2513 set last_clicked {}
2514 return
2515 }
2516 }
2517
088ad75d
PT
2518 if {$last_clicked ne {}} {
2519 set lno [lindex $last_clicked 1]
2520 } else {
2cd9179c
JS
2521 if {![info exists file_lists]
2522 || ![info exists file_lists($w)]
2523 || [llength $file_lists($w)] == 0} {
2365e5b1
JS
2524 set last_clicked {}
2525 return
2526 }
088ad75d
PT
2527 set lno [expr {int([lindex [$w tag ranges in_diff] 0])}]
2528 }
2529 if {$mode eq "toggle"} {
2530 set col 0; set y 2
2531 } else {
2532 incr lno [expr {$mode eq "up" ? -1 : 1}]
2533 set col 1
2534 }
2535 }
2536
2cd9179c
JS
2537 if {![info exists file_lists]
2538 || ![info exists file_lists($w)]
2539 || [llength $file_lists($w)] < $lno - 1} {
2540 set path {}
2541 } else {
2542 set path [lindex $file_lists($w) [expr {$lno - 1}]]
2543 }
24263b77
SP
2544 if {$path eq {}} {
2545 set last_clicked {}
2546 return
2547 }
2548
2549 set last_clicked [list $w $lno]
088ad75d 2550 focus $w
24263b77
SP
2551 array unset selected_paths
2552 $ui_index tag remove in_sel 0.0 end
0812665e 2553 $ui_workdir tag remove in_sel 0.0 end
cb07fc2a 2554
3e34838c 2555 # Determine the state of the file
617ceee6
AG
2556 if {[info exists file_states($path)]} {
2557 set state [lindex $file_states($path) 0]
8056cc4f
AG
2558 } else {
2559 set state {__}
2560 }
2561
8056cc4f 2562 # Restage the file, or simply show the diff
cead78ed 2563 if {$col == 0 && $y > 1} {
3e34838c
AG
2564 # Conflicts need special handling
2565 if {[string first {U} $state] >= 0} {
0aea2842
AG
2566 # $w must always be $ui_workdir, but...
2567 if {$w ne $ui_workdir} { set lno {} }
2568 merge_stage_workdir $path $lno
3e34838c
AG
2569 return
2570 }
2571
8056cc4f
AG
2572 if {[string index $state 1] eq {O}} {
2573 set mmask {}
2574 } else {
2575 set mmask {[^O]}
2576 }
2577
2578 set after [next_diff_after_action $w $path $lno $mmask]
8a965b8e 2579
de5f6d5d 2580 if {$w eq $ui_index} {
74d18d2e 2581 update_indexinfo \
93e912c5 2582 "Unstaging [short_path $path] from commit" \
74d18d2e 2583 [list $path] \
699d5601 2584 [concat $after [list ui_ready]]
de5f6d5d 2585 } elseif {$w eq $ui_workdir} {
74d18d2e 2586 update_index \
4d583c86 2587 "Adding [short_path $path]" \
74d18d2e 2588 [list $path] \
699d5601 2589 [concat $after [list ui_ready]]
74d18d2e 2590 }
24263b77 2591 } else {
a8ca7869 2592 set selected_paths($path) 1
03e4ec53 2593 show_diff $path $w $lno
cb07fc2a
SP
2594 }
2595}
2596
24263b77 2597proc add_one_to_selection {w x y} {
833eda73 2598 global file_lists last_clicked selected_paths
7f1df79b 2599
833eda73 2600 set lno [lindex [split [$w index @$x,$y] .] 0]
24263b77
SP
2601 set path [lindex $file_lists($w) [expr {$lno - 1}]]
2602 if {$path eq {}} {
2603 set last_clicked {}
2604 return
2605 }
cb07fc2a 2606
833eda73
SP
2607 if {$last_clicked ne {}
2608 && [lindex $last_clicked 0] ne $w} {
2609 array unset selected_paths
2610 [lindex $last_clicked 0] tag remove in_sel 0.0 end
2611 }
2612
24263b77
SP
2613 set last_clicked [list $w $lno]
2614 if {[catch {set in_sel $selected_paths($path)}]} {
2615 set in_sel 0
2616 }
2617 if {$in_sel} {
2618 unset selected_paths($path)
2619 $w tag remove in_sel $lno.0 [expr {$lno + 1}].0
2620 } else {
2621 set selected_paths($path) 1
2622 $w tag add in_sel $lno.0 [expr {$lno + 1}].0
2623 }
2624}
2625
2626proc add_range_to_selection {w x y} {
833eda73 2627 global file_lists last_clicked selected_paths
24263b77
SP
2628
2629 if {[lindex $last_clicked 0] ne $w} {
088ad75d 2630 toggle_or_diff click $w $x $y
24263b77 2631 return
cb07fc2a 2632 }
24263b77 2633
833eda73 2634 set lno [lindex [split [$w index @$x,$y] .] 0]
24263b77
SP
2635 set lc [lindex $last_clicked 1]
2636 if {$lc < $lno} {
2637 set begin $lc
2638 set end $lno
2639 } else {
2640 set begin $lno
2641 set end $lc
2642 }
2643
2644 foreach path [lrange $file_lists($w) \
2645 [expr {$begin - 1}] \
2646 [expr {$end - 1}]] {
2647 set selected_paths($path) 1
2648 }
2649 $w tag add in_sel $begin.0 [expr {$end + 1}].0
cb07fc2a
SP
2650}
2651
c91ee2bd
JS
2652proc show_more_context {} {
2653 global repo_config
2654 if {$repo_config(gui.diffcontext) < 99} {
2655 incr repo_config(gui.diffcontext)
2656 reshow_diff
2657 }
2658}
2659
2660proc show_less_context {} {
2661 global repo_config
55ba8a34 2662 if {$repo_config(gui.diffcontext) > 1} {
c91ee2bd
JS
2663 incr repo_config(gui.diffcontext) -1
2664 reshow_diff
2665 }
2666}
2667
cb07fc2a
SP
2668######################################################################
2669##
a4bee597 2670## ui construction
db453781 2671
2ebba528
SP
2672set ui_comm {}
2673
cb07fc2a 2674# -- Menu Bar
a49c67d1 2675#
b4946930 2676menu .mbar -tearoff 0
a91be3fc
DS
2677if {[is_MacOSX]} {
2678 # -- Apple Menu (Mac OS X only)
2679 #
2680 .mbar add cascade -label Apple -menu .mbar.apple
2681 menu .mbar.apple
2682}
1ac17950
CS
2683.mbar add cascade -label [mc Repository] -menu .mbar.repository
2684.mbar add cascade -label [mc Edit] -menu .mbar.edit
64a906f8 2685if {[is_enabled branch]} {
1ac17950 2686 .mbar add cascade -label [mc Branch] -menu .mbar.branch
700a65ce 2687}
2ebba528 2688if {[is_enabled multicommit] || [is_enabled singlecommit]} {
a9813cb5 2689 .mbar add cascade -label [mc Commit@@noun] -menu .mbar.commit
2ebba528 2690}
64a906f8 2691if {[is_enabled transport]} {
1ac17950 2692 .mbar add cascade -label [mc Merge] -menu .mbar.merge
6bdf5e5f 2693 .mbar add cascade -label [mc Remote] -menu .mbar.remote
4ccdab02 2694}
0ce76ded
AG
2695if {[is_enabled multicommit] || [is_enabled singlecommit]} {
2696 .mbar add cascade -label [mc Tools] -menu .mbar.tools
2697}
cb07fc2a 2698
a4abfa62 2699# -- Repository Menu
a49c67d1 2700#
a4abfa62 2701menu .mbar.repository
35874c16 2702
29e5573d
GB
2703if {![is_bare]} {
2704 .mbar.repository add command \
2705 -label [mc "Explore Working Copy"] \
2706 -command {do_explore}
224cce8f
PT
2707}
2708
2709if {[is_Windows]} {
2710 .mbar.repository add command \
2711 -label [mc "Git Bash"] \
2712 -command {eval exec [auto_execok start] \
2713 [list "Git Bash" bash --login -l &]}
2714}
2715
2716if {[is_Windows] || ![is_bare]} {
29e5573d
GB
2717 .mbar.repository add separator
2718}
afd54240 2719
35874c16 2720.mbar.repository add command \
1ac17950 2721 -label [mc "Browse Current Branch's Files"] \
c74b6c66 2722 -command {browser::new $current_branch}
a8139888 2723set ui_browse_current [.mbar.repository index last]
8e891fac 2724.mbar.repository add command \
1ac17950 2725 -label [mc "Browse Branch Files..."] \
8e891fac 2726 -command browser_open::dialog
35874c16
SP
2727.mbar.repository add separator
2728
d0752429 2729.mbar.repository add command \
1ac17950 2730 -label [mc "Visualize Current Branch's History"] \
7416bbc6 2731 -command {do_gitk $current_branch}
a8139888 2732set ui_visualize_current [.mbar.repository index last]
5753ef1a 2733.mbar.repository add command \
1ac17950 2734 -label [mc "Visualize All Branch History"] \
7416bbc6 2735 -command {do_gitk --all}
d0752429 2736.mbar.repository add separator
75e355d6 2737
a8139888
SP
2738proc current_branch_write {args} {
2739 global current_branch
2740 .mbar.repository entryconf $::ui_browse_current \
1ac17950 2741 -label [mc "Browse %s's Files" $current_branch]
a8139888 2742 .mbar.repository entryconf $::ui_visualize_current \
1ac17950 2743 -label [mc "Visualize %s's History" $current_branch]
a8139888
SP
2744}
2745trace add variable current_branch write current_branch_write
2746
cf25ddc8 2747if {[is_enabled multicommit]} {
1ac17950 2748 .mbar.repository add command -label [mc "Database Statistics"] \
7416bbc6 2749 -command do_stats
0fd49d0a 2750
1ac17950 2751 .mbar.repository add command -label [mc "Compress Database"] \
7416bbc6 2752 -command do_gc
4aca740b 2753
1ac17950 2754 .mbar.repository add command -label [mc "Verify Database"] \
7416bbc6 2755 -command do_fsck_objects
444f92d0 2756
a4abfa62 2757 .mbar.repository add separator
75e355d6 2758
20ddfcaa
SP
2759 if {[is_Cygwin]} {
2760 .mbar.repository add command \
1ac17950 2761 -label [mc "Create Desktop Icon"] \
7416bbc6 2762 -command do_cygwin_shortcut
20ddfcaa 2763 } elseif {[is_Windows]} {
a4abfa62 2764 .mbar.repository add command \
1ac17950 2765 -label [mc "Create Desktop Icon"] \
7416bbc6 2766 -command do_windows_shortcut
06c31115 2767 } elseif {[is_MacOSX]} {
a4abfa62 2768 .mbar.repository add command \
1ac17950 2769 -label [mc "Create Desktop Icon"] \
7416bbc6 2770 -command do_macosx_app
4aca740b 2771 }
4ccdab02 2772}
85ab313e 2773
af894943
SF
2774if {[is_MacOSX]} {
2775 proc ::tk::mac::Quit {args} { do_quit }
2776} else {
2777 .mbar.repository add command -label [mc Quit] \
2778 -command do_quit \
2779 -accelerator $M1T-Q
2780}
cb07fc2a 2781
9861671d
SP
2782# -- Edit Menu
2783#
2784menu .mbar.edit
1ac17950 2785.mbar.edit add command -label [mc Undo] \
9861671d 2786 -command {catch {[focus] edit undo}} \
7416bbc6 2787 -accelerator $M1T-Z
1ac17950 2788.mbar.edit add command -label [mc Redo] \
9861671d 2789 -command {catch {[focus] edit redo}} \
7416bbc6 2790 -accelerator $M1T-Y
9861671d 2791.mbar.edit add separator
1ac17950 2792.mbar.edit add command -label [mc Cut] \
9861671d 2793 -command {catch {tk_textCut [focus]}} \
7416bbc6 2794 -accelerator $M1T-X
1ac17950 2795.mbar.edit add command -label [mc Copy] \
9861671d 2796 -command {catch {tk_textCopy [focus]}} \
7416bbc6 2797 -accelerator $M1T-C
1ac17950 2798.mbar.edit add command -label [mc Paste] \
9861671d 2799 -command {catch {tk_textPaste [focus]; [focus] see insert}} \
7416bbc6 2800 -accelerator $M1T-V
1ac17950 2801.mbar.edit add command -label [mc Delete] \
9861671d 2802 -command {catch {[focus] delete sel.first sel.last}} \
7416bbc6 2803 -accelerator Del
9861671d 2804.mbar.edit add separator
1ac17950 2805.mbar.edit add command -label [mc "Select All"] \
9861671d 2806 -command {catch {[focus] tag add sel 0.0 end}} \
7416bbc6 2807 -accelerator $M1T-A
9861671d 2808
85ab313e
SP
2809# -- Branch Menu
2810#
64a906f8 2811if {[is_enabled branch]} {
700a65ce
SP
2812 menu .mbar.branch
2813
1ac17950 2814 .mbar.branch add command -label [mc "Create..."] \
b1fa2bff 2815 -command branch_create::dialog \
7416bbc6 2816 -accelerator $M1T-N
700a65ce
SP
2817 lappend disable_on_lock [list .mbar.branch entryconf \
2818 [.mbar.branch index last] -state]
2819
1ac17950 2820 .mbar.branch add command -label [mc "Checkout..."] \
d41b43eb
SP
2821 -command branch_checkout::dialog \
2822 -accelerator $M1T-O
2823 lappend disable_on_lock [list .mbar.branch entryconf \
2824 [.mbar.branch index last] -state]
2825
1ac17950 2826 .mbar.branch add command -label [mc "Rename..."] \
61f82ce7
SP
2827 -command branch_rename::dialog
2828 lappend disable_on_lock [list .mbar.branch entryconf \
2829 [.mbar.branch index last] -state]
2830
1ac17950 2831 .mbar.branch add command -label [mc "Delete..."] \
3206c63d 2832 -command branch_delete::dialog
700a65ce
SP
2833 lappend disable_on_lock [list .mbar.branch entryconf \
2834 [.mbar.branch index last] -state]
fd234dfd 2835
1ac17950 2836 .mbar.branch add command -label [mc "Reset..."] \
a6c9b081 2837 -command merge::reset_hard
fd234dfd
SP
2838 lappend disable_on_lock [list .mbar.branch entryconf \
2839 [.mbar.branch index last] -state]
700a65ce
SP
2840}
2841
cb07fc2a 2842# -- Commit Menu
a49c67d1 2843#
1e65c622
AG
2844proc commit_btn_caption {} {
2845 if {[is_enabled nocommit]} {
2846 return [mc "Done"]
2847 } else {
2848 return [mc Commit@@verb]
2849 }
2850}
2851
2ebba528
SP
2852if {[is_enabled multicommit] || [is_enabled singlecommit]} {
2853 menu .mbar.commit
2854
1e02b32e
SP
2855 if {![is_enabled nocommit]} {
2856 .mbar.commit add radiobutton \
2857 -label [mc "New Commit"] \
2858 -command do_select_commit_type \
2859 -variable selected_commit_type \
2860 -value new
2861 lappend disable_on_lock \
2862 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2863
2864 .mbar.commit add radiobutton \
2865 -label [mc "Amend Last Commit"] \
2866 -command do_select_commit_type \
2867 -variable selected_commit_type \
2868 -value amend
2869 lappend disable_on_lock \
2870 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2871
2872 .mbar.commit add separator
2873 }
24ac9b75 2874
1ac17950 2875 .mbar.commit add command -label [mc Rescan] \
8056cc4f 2876 -command ui_do_rescan \
7416bbc6 2877 -accelerator F5
2ebba528
SP
2878 lappend disable_on_lock \
2879 [list .mbar.commit entryconf [.mbar.commit index last] -state]
24ac9b75 2880
1ac17950 2881 .mbar.commit add command -label [mc "Stage To Commit"] \
cd16a6c9
SP
2882 -command do_add_selection \
2883 -accelerator $M1T-T
2ebba528
SP
2884 lappend disable_on_lock \
2885 [list .mbar.commit entryconf [.mbar.commit index last] -state]
24ac9b75 2886
1ac17950 2887 .mbar.commit add command -label [mc "Stage Changed Files To Commit"] \
2ebba528 2888 -command do_add_all \
7416bbc6 2889 -accelerator $M1T-I
2ebba528
SP
2890 lappend disable_on_lock \
2891 [list .mbar.commit entryconf [.mbar.commit index last] -state]
24ac9b75 2892
1ac17950 2893 .mbar.commit add command -label [mc "Unstage From Commit"] \
b677c66e
VS
2894 -command do_unstage_selection \
2895 -accelerator $M1T-U
2ebba528
SP
2896 lappend disable_on_lock \
2897 [list .mbar.commit entryconf [.mbar.commit index last] -state]
e734817d 2898
1ac17950 2899 .mbar.commit add command -label [mc "Revert Changes"] \
b677c66e
VS
2900 -command do_revert_selection \
2901 -accelerator $M1T-J
2ebba528
SP
2902 lappend disable_on_lock \
2903 [list .mbar.commit entryconf [.mbar.commit index last] -state]
e734817d 2904
2ebba528 2905 .mbar.commit add separator
1461c5f3 2906
c91ee2bd
JS
2907 .mbar.commit add command -label [mc "Show Less Context"] \
2908 -command show_less_context \
729ffa50 2909 -accelerator $M1T-\-
c91ee2bd
JS
2910
2911 .mbar.commit add command -label [mc "Show More Context"] \
2912 -command show_more_context \
729ffa50 2913 -accelerator $M1T-=
c91ee2bd
JS
2914
2915 .mbar.commit add separator
2916
ed70e4d7 2917 if {![is_enabled nocommitmsg]} {
1e02b32e
SP
2918 .mbar.commit add command -label [mc "Sign Off"] \
2919 -command do_signoff \
2920 -accelerator $M1T-S
2921 }
24ac9b75 2922
1e65c622 2923 .mbar.commit add command -label [commit_btn_caption] \
2ebba528 2924 -command do_commit \
7416bbc6 2925 -accelerator $M1T-Return
2ebba528
SP
2926 lappend disable_on_lock \
2927 [list .mbar.commit entryconf [.mbar.commit index last] -state]
2928}
cb07fc2a 2929
9b28a8b9
SP
2930# -- Merge Menu
2931#
2932if {[is_enabled branch]} {
2933 menu .mbar.merge
1ac17950 2934 .mbar.merge add command -label [mc "Local Merge..."] \
a870ddc0
SP
2935 -command merge::dialog \
2936 -accelerator $M1T-M
9b28a8b9
SP
2937 lappend disable_on_lock \
2938 [list .mbar.merge entryconf [.mbar.merge index last] -state]
1ac17950 2939 .mbar.merge add command -label [mc "Abort Merge..."] \
a6c9b081 2940 -command merge::reset_hard
9b28a8b9
SP
2941 lappend disable_on_lock \
2942 [list .mbar.merge entryconf [.mbar.merge index last] -state]
9b28a8b9
SP
2943}
2944
2945# -- Transport Menu
2946#
2947if {[is_enabled transport]} {
6bdf5e5f 2948 menu .mbar.remote
9b28a8b9 2949
ba6485e0
PB
2950 .mbar.remote add command \
2951 -label [mc "Add..."] \
2952 -command remote_add::dialog \
2953 -accelerator $M1T-A
6bdf5e5f
SP
2954 .mbar.remote add command \
2955 -label [mc "Push..."] \
840bcfa7
SP
2956 -command do_push_anywhere \
2957 -accelerator $M1T-P
6bdf5e5f 2958 .mbar.remote add command \
3c1c2a00 2959 -label [mc "Delete Branch..."] \
aa252f19 2960 -command remote_branch_delete::dialog
9b28a8b9
SP
2961}
2962
0c8d7839 2963if {[is_MacOSX]} {
a91be3fc 2964 proc ::tk::mac::ShowPreferences {} {do_options}
0c8d7839
SP
2965} else {
2966 # -- Edit Menu
2967 #
2968 .mbar.edit add separator
1ac17950 2969 .mbar.edit add command -label [mc "Options..."] \
7416bbc6 2970 -command do_options
273984fc 2971}
557afe82 2972
0ce76ded
AG
2973# -- Tools Menu
2974#
2975if {[is_enabled multicommit] || [is_enabled singlecommit]} {
2976 set tools_menubar .mbar.tools
2977 menu $tools_menubar
2978 $tools_menubar add separator
2979 $tools_menubar add command -label [mc "Add..."] -command tools_add::dialog
2980 $tools_menubar add command -label [mc "Remove..."] -command tools_remove::dialog
2981 set tools_tailcnt 3
2982 if {[array names repo_config guitool.*.cmd] ne {}} {
2983 tools_populate_all
2984 }
2985}
2986
273984fc
SP
2987# -- Help Menu
2988#
1ac17950 2989.mbar add cascade -label [mc Help] -menu .mbar.help
273984fc 2990menu .mbar.help
0c8d7839 2991
a91be3fc
DS
2992if {[is_MacOSX]} {
2993 .mbar.apple add command -label [mc "About %s" [appname]] \
2994 -command do_about
2995 .mbar.apple add separator
2996} else {
1ac17950 2997 .mbar.help add command -label [mc "About %s" [appname]] \
7416bbc6 2998 -command do_about
0c8d7839 2999}
a91be3fc 3000. configure -menu .mbar
2db21e70 3001
3eb5682b
MH
3002set doc_path [githtmldir]
3003if {$doc_path ne {}} {
3004 set doc_path [file join $doc_path index.html]
273984fc 3005
3eb5682b
MH
3006 if {[is_Cygwin]} {
3007 set doc_path [exec cygpath --mixed $doc_path]
3008 }
273984fc
SP
3009}
3010
273984fc
SP
3011if {[file isfile $doc_path]} {
3012 set doc_url "file:$doc_path"
3013} else {
3014 set doc_url {http://www.kernel.org/pub/software/scm/git/docs/}
3015}
3016
2db21e70
PB
3017proc start_browser {url} {
3018 git "web--browse" $url
273984fc 3019}
2db21e70
PB
3020
3021.mbar.help add command -label [mc "Online Documentation"] \
3022 -command [list start_browser $doc_url]
98a6846b
AG
3023
3024.mbar.help add command -label [mc "Show SSH Key"] \
3025 -command do_ssh_key
3026
2db21e70 3027unset doc_path doc_url
82aa2354 3028
2ebba528
SP
3029# -- Standard bindings
3030#
39fa2a98 3031wm protocol . WM_DELETE_WINDOW do_quit
2ebba528
SP
3032bind all <$M1B-Key-q> do_quit
3033bind all <$M1B-Key-Q> do_quit
3034bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}
3035bind all <$M1B-Key-W> {destroy [winfo toplevel %W]}
3036
3e45ee1e
SP
3037set subcommand_args {}
3038proc usage {} {
43c65a85 3039 set s "[mc usage:] $::argv0 $::subcommand $::subcommand_args"
ea47503d
PT
3040 if {[tk windowingsystem] eq "win32"} {
3041 wm withdraw .
7ae1e727
PT
3042 tk_messageBox -icon info -message $s \
3043 -title [mc "Usage"]
ea47503d
PT
3044 } else {
3045 puts stderr $s
3046 }
3e45ee1e
SP
3047 exit 1
3048}
3049
95e706b5
AG
3050proc normalize_relpath {path} {
3051 set elements {}
3052 foreach item [file split $path] {
3053 if {$item eq {.}} continue
3054 if {$item eq {..} && [llength $elements] > 0
3055 && [lindex $elements end] ne {..}} {
3056 set elements [lrange $elements 0 end-1]
3057 continue
3058 }
3059 lappend elements $item
3060 }
3061 return [eval file join $elements]
3062}
3063
2ebba528
SP
3064# -- Not a normal commit type invocation? Do that instead!
3065#
258871d3 3066switch -- $subcommand {
85d2d597 3067browser -
2ebba528 3068blame {
f7078b40
AG
3069 if {$subcommand eq "blame"} {
3070 set subcommand_args {[--line=<num>] rev? path}
3071 } else {
3072 set subcommand_args {rev? path}
3073 }
c52c9452 3074 if {$argv eq {}} usage
a0db0d61 3075 set head {}
3e45ee1e 3076 set path {}
f7078b40 3077 set jump_spec {}
3e45ee1e
SP
3078 set is_path 0
3079 foreach a $argv {
2f38dd03 3080 set p [file join $_prefix $a]
e3d06ca9 3081
2f38dd03 3082 if {$is_path || [file exists $p]} {
e3d06ca9 3083 if {$path ne {}} usage
2f38dd03 3084 set path [normalize_relpath $p]
e3d06ca9 3085 break
3e45ee1e
SP
3086 } elseif {$a eq {--}} {
3087 if {$path ne {}} {
a0db0d61
SP
3088 if {$head ne {}} usage
3089 set head $path
3e45ee1e
SP
3090 set path {}
3091 }
3092 set is_path 1
f7078b40
AG
3093 } elseif {[regexp {^--line=(\d+)$} $a a lnum]} {
3094 if {$jump_spec ne {} || $head ne {}} usage
3095 set jump_spec [list $lnum]
a0db0d61
SP
3096 } elseif {$head eq {}} {
3097 if {$head ne {}} usage
3098 set head $a
c52c9452 3099 set is_path 1
3e45ee1e
SP
3100 } else {
3101 usage
3102 }
3103 }
3104 unset is_path
3105
c52c9452 3106 if {$head ne {} && $path eq {}} {
df46eda3
AW
3107 if {[string index $head 0] eq {/}} {
3108 set path [normalize_relpath $head]
3109 set head {}
3110 } else {
3111 set path [normalize_relpath $_prefix$head]
3112 set head {}
3113 }
c52c9452
SP
3114 }
3115
a0db0d61 3116 if {$head eq {}} {
d41b43eb 3117 load_current_branch
a0db0d61 3118 } else {
02087abc
SP
3119 if {[regexp {^[0-9a-f]{1,39}$} $head]} {
3120 if {[catch {
3121 set head [git rev-parse --verify $head]
3122 } err]} {
7ae1e727
PT
3123 if {[tk windowingsystem] eq "win32"} {
3124 tk_messageBox -icon error -title [mc Error] -message $err
3125 } else {
3126 puts stderr $err
3127 }
02087abc
SP
3128 exit 1
3129 }
3130 }
a0db0d61 3131 set current_branch $head
2ebba528 3132 }
a0db0d61 3133
2810a58d 3134 wm deiconify .
85d2d597
SP
3135 switch -- $subcommand {
3136 browser {
f7078b40 3137 if {$jump_spec ne {}} usage
85d2d597
SP
3138 if {$head eq {}} {
3139 if {$path ne {} && [file isdirectory $path]} {
3140 set head $current_branch
3141 } else {
3142 set head $path
3143 set path {}
3144 }
3145 }
3146 browser::new $head $path
3147 }
3148 blame {
3149 if {$head eq {} && ![file exists $path]} {
78077772
PT
3150 catch {wm withdraw .}
3151 tk_messageBox \
3152 -icon error \
3153 -type ok \
3154 -title [mc "git-gui: fatal error"] \
3155 -message [mc "fatal: cannot stat path %s: No such file or directory" $path]
85d2d597
SP
3156 exit 1
3157 }
f7078b40 3158 blame::new $head $path $jump_spec
85d2d597 3159 }
c52c9452 3160 }
258871d3
SP
3161 return
3162}
3163citool -
3164gui {
3165 if {[llength $argv] != 0} {
7ae1e727 3166 usage
258871d3
SP
3167 }
3168 # fall through to setup UI for commits
2ebba528 3169}
2ebba528 3170default {
43c65a85 3171 set err "[mc usage:] $argv0 \[{blame|browser|citool}\]"
7ae1e727
PT
3172 if {[tk windowingsystem] eq "win32"} {
3173 wm withdraw .
3174 tk_messageBox -icon error -message $err \
3175 -title [mc "Usage"]
3176 } else {
3177 puts stderr $err
3178 }
2ebba528
SP
3179 exit 1
3180}
3181}
3182
8553b772
SP
3183# -- Branch Control
3184#
c80d7be5
PT
3185${NS}::frame .branch
3186if {!$use_ttk} {.branch configure -borderwidth 1 -relief sunken}
3187${NS}::label .branch.l1 \
1ac17950 3188 -text [mc "Current Branch:"] \
8553b772 3189 -anchor w \
7416bbc6 3190 -justify left
c80d7be5 3191${NS}::label .branch.cb \
8553b772
SP
3192 -textvariable current_branch \
3193 -anchor w \
7416bbc6 3194 -justify left
8553b772
SP
3195pack .branch.l1 -side left
3196pack .branch.cb -side left -fill x
3197pack .branch -side top -fill x
3198
cb07fc2a 3199# -- Main Window Layout
a49c67d1 3200#
c80d7be5
PT
3201${NS}::panedwindow .vpane -orient horizontal
3202${NS}::panedwindow .vpane.files -orient vertical
3203if {$use_ttk} {
3204 .vpane add .vpane.files
3205} else {
3206 .vpane add .vpane.files -sticky nsew -height 100 -width 200
3207}
cb07fc2a
SP
3208pack .vpane -anchor n -side top -fill both -expand 1
3209
30508bc4
PT
3210# -- Working Directory File List
3211
3212textframe .vpane.files.workdir -height 100 -width 200
3213tlabel .vpane.files.workdir.title -text [mc "Unstaged Changes"] \
3214 -background lightsalmon -foreground black
3215ttext $ui_workdir -background white -foreground black \
3216 -borderwidth 0 \
3217 -width 20 -height 10 \
3218 -wrap none \
3219 -takefocus 1 -highlightthickness 1\
3220 -cursor $cursor_ptr \
3221 -xscrollcommand {.vpane.files.workdir.sx set} \
3222 -yscrollcommand {.vpane.files.workdir.sy set} \
3223 -state disabled
3224${NS}::scrollbar .vpane.files.workdir.sx -orient h -command [list $ui_workdir xview]
3225${NS}::scrollbar .vpane.files.workdir.sy -orient v -command [list $ui_workdir yview]
3226pack .vpane.files.workdir.title -side top -fill x
3227pack .vpane.files.workdir.sx -side bottom -fill x
3228pack .vpane.files.workdir.sy -side right -fill y
3229pack $ui_workdir -side left -fill both -expand 1
3230
cb07fc2a 3231# -- Index File List
a49c67d1 3232#
30508bc4 3233textframe .vpane.files.index -height 100 -width 200
c80d7be5
PT
3234tlabel .vpane.files.index.title \
3235 -text [mc "Staged Changes (Will Commit)"] \
c382fdd7 3236 -background lightgreen -foreground black
30508bc4 3237ttext $ui_index -background white -foreground black \
c382fdd7 3238 -borderwidth 0 \
c5a1eb88 3239 -width 20 -height 10 \
3c236977 3240 -wrap none \
088ad75d 3241 -takefocus 1 -highlightthickness 1\
6c6dd01a 3242 -cursor $cursor_ptr \
3c236977
SP
3243 -xscrollcommand {.vpane.files.index.sx set} \
3244 -yscrollcommand {.vpane.files.index.sy set} \
cb07fc2a 3245 -state disabled
c80d7be5
PT
3246${NS}::scrollbar .vpane.files.index.sx -orient h -command [list $ui_index xview]
3247${NS}::scrollbar .vpane.files.index.sy -orient v -command [list $ui_index yview]
cb07fc2a 3248pack .vpane.files.index.title -side top -fill x
3c236977
SP
3249pack .vpane.files.index.sx -side bottom -fill x
3250pack .vpane.files.index.sy -side right -fill y
cb07fc2a 3251pack $ui_index -side left -fill both -expand 1
cb07fc2a 3252
30508bc4 3253# -- Insert the workdir and index into the panes
a49c67d1 3254#
c80d7be5
PT
3255.vpane.files add .vpane.files.workdir
3256.vpane.files add .vpane.files.index
3257if {!$use_ttk} {
3258 .vpane.files paneconfigure .vpane.files.workdir -sticky news
3259 .vpane.files paneconfigure .vpane.files.index -sticky news
3260}
cb07fc2a 3261
0812665e 3262foreach i [list $ui_index $ui_workdir] {
3849bfba
SP
3263 rmsel_tag $i
3264 $i tag conf in_diff -background [$i tag cget in_sel -background]
24263b77
SP
3265}
3266unset i
131f503b 3267
0fb8f9ce 3268# -- Diff and Commit Area
a49c67d1 3269#
02f6cfbd
MK
3270if {$have_tk85} {
3271 ${NS}::panedwindow .vpane.lower -orient vertical
3272 ${NS}::frame .vpane.lower.commarea
3273 ${NS}::frame .vpane.lower.diff -relief sunken -borderwidth 1 -height 500
3274 .vpane.lower add .vpane.lower.diff
3275 .vpane.lower add .vpane.lower.commarea
3276 .vpane add .vpane.lower
3277 if {$use_ttk} {
3278 .vpane.lower pane .vpane.lower.diff -weight 1
3279 .vpane.lower pane .vpane.lower.commarea -weight 0
3280 } else {
3281 .vpane.lower paneconfigure .vpane.lower.diff -stretch always
3282 .vpane.lower paneconfigure .vpane.lower.commarea -stretch never
3283 }
918dbf58 3284} else {
02f6cfbd
MK
3285 frame .vpane.lower -height 300 -width 400
3286 frame .vpane.lower.commarea
3287 frame .vpane.lower.diff -relief sunken -borderwidth 1
3288 pack .vpane.lower.diff -fill both -expand 1
3289 pack .vpane.lower.commarea -side bottom -fill x
3290 .vpane add .vpane.lower
3291 .vpane paneconfigure .vpane.lower -sticky nsew
918dbf58 3292}
cb07fc2a
SP
3293
3294# -- Commit Area Buttons
a49c67d1 3295#
c80d7be5
PT
3296${NS}::frame .vpane.lower.commarea.buttons
3297${NS}::label .vpane.lower.commarea.buttons.l -text {} \
cb07fc2a 3298 -anchor w \
7416bbc6 3299 -justify left
0fb8f9ce
SP
3300pack .vpane.lower.commarea.buttons.l -side top -fill x
3301pack .vpane.lower.commarea.buttons -side left -fill y
131f503b 3302
c80d7be5 3303${NS}::button .vpane.lower.commarea.buttons.rescan -text [mc Rescan] \
8056cc4f 3304 -command ui_do_rescan
0fb8f9ce 3305pack .vpane.lower.commarea.buttons.rescan -side top -fill x
390adaea
SP
3306lappend disable_on_lock \
3307 {.vpane.lower.commarea.buttons.rescan conf -state}
131f503b 3308
c80d7be5 3309${NS}::button .vpane.lower.commarea.buttons.incall -text [mc "Stage Changed"] \
7416bbc6 3310 -command do_add_all
7fe7e733 3311pack .vpane.lower.commarea.buttons.incall -side top -fill x
390adaea
SP
3312lappend disable_on_lock \
3313 {.vpane.lower.commarea.buttons.incall conf -state}
131f503b 3314
ed70e4d7 3315if {![is_enabled nocommitmsg]} {
c80d7be5 3316 ${NS}::button .vpane.lower.commarea.buttons.signoff -text [mc "Sign Off"] \
1e02b32e
SP
3317 -command do_signoff
3318 pack .vpane.lower.commarea.buttons.signoff -side top -fill x
3319}
131f503b 3320
c80d7be5 3321${NS}::button .vpane.lower.commarea.buttons.commit -text [commit_btn_caption] \
7416bbc6 3322 -command do_commit
0fb8f9ce 3323pack .vpane.lower.commarea.buttons.commit -side top -fill x
390adaea
SP
3324lappend disable_on_lock \
3325 {.vpane.lower.commarea.buttons.commit conf -state}
cb07fc2a 3326
1e02b32e 3327if {![is_enabled nocommit]} {
c80d7be5 3328 ${NS}::button .vpane.lower.commarea.buttons.push -text [mc Push] \
1e02b32e
SP
3329 -command do_push_anywhere
3330 pack .vpane.lower.commarea.buttons.push -side top -fill x
1e65c622
AG
3331}
3332
cb07fc2a 3333# -- Commit Message Buffer
a49c67d1 3334#
c80d7be5
PT
3335${NS}::frame .vpane.lower.commarea.buffer
3336${NS}::frame .vpane.lower.commarea.buffer.header
30508bc4 3337set ui_comm .vpane.lower.commarea.buffer.frame.t
24ac9b75 3338set ui_coml .vpane.lower.commarea.buffer.header.l
1e02b32e
SP
3339
3340if {![is_enabled nocommit]} {
c80d7be5 3341 ${NS}::radiobutton .vpane.lower.commarea.buffer.header.new \
1e02b32e
SP
3342 -text [mc "New Commit"] \
3343 -command do_select_commit_type \
3344 -variable selected_commit_type \
3345 -value new
3346 lappend disable_on_lock \
3347 [list .vpane.lower.commarea.buffer.header.new conf -state]
c80d7be5 3348 ${NS}::radiobutton .vpane.lower.commarea.buffer.header.amend \
1e02b32e
SP
3349 -text [mc "Amend Last Commit"] \
3350 -command do_select_commit_type \
3351 -variable selected_commit_type \
3352 -value amend
3353 lappend disable_on_lock \
3354 [list .vpane.lower.commarea.buffer.header.amend conf -state]
3355}
3356
c80d7be5 3357${NS}::label $ui_coml \
cb07fc2a 3358 -anchor w \
7416bbc6 3359 -justify left
4539eacd
SP
3360proc trace_commit_type {varname args} {
3361 global ui_coml commit_type
3362 switch -glob -- $commit_type {
1ac17950
CS
3363 initial {set txt [mc "Initial Commit Message:"]}
3364 amend {set txt [mc "Amended Commit Message:"]}
3365 amend-initial {set txt [mc "Amended Initial Commit Message:"]}
3366 amend-merge {set txt [mc "Amended Merge Commit Message:"]}
3367 merge {set txt [mc "Merge Commit Message:"]}
3368 * {set txt [mc "Commit Message:"]}
4539eacd
SP
3369 }
3370 $ui_coml conf -text $txt
3371}
3372trace add variable commit_type write trace_commit_type
24ac9b75 3373pack $ui_coml -side left -fill x
1e02b32e
SP
3374
3375if {![is_enabled nocommit]} {
3376 pack .vpane.lower.commarea.buffer.header.amend -side right
3377 pack .vpane.lower.commarea.buffer.header.new -side right
3378}
24ac9b75 3379
30508bc4
PT
3380textframe .vpane.lower.commarea.buffer.frame
3381ttext $ui_comm -background white -foreground black \
c382fdd7 3382 -borderwidth 1 \
9861671d 3383 -undo true \
b2c6fcf1 3384 -maxundo 20 \
9861671d 3385 -autoseparators true \
30508bc4
PT
3386 -takefocus 1 \
3387 -highlightthickness 1 \
cb07fc2a 3388 -relief sunken \
11027d54 3389 -width $repo_config(gui.commitmsgwidth) -height 9 -wrap none \
b4946930 3390 -font font_diff \
30508bc4
PT
3391 -yscrollcommand {.vpane.lower.commarea.buffer.frame.sby set}
3392${NS}::scrollbar .vpane.lower.commarea.buffer.frame.sby \
390adaea 3393 -command [list $ui_comm yview]
30508bc4
PT
3394
3395pack .vpane.lower.commarea.buffer.frame.sby -side right -fill y
cb07fc2a 3396pack $ui_comm -side left -fill y
30508bc4
PT
3397pack .vpane.lower.commarea.buffer.header -side top -fill x
3398pack .vpane.lower.commarea.buffer.frame -side left -fill y
0fb8f9ce
SP
3399pack .vpane.lower.commarea.buffer -side left -fill y
3400
0e794311
SP
3401# -- Commit Message Buffer Context Menu
3402#
e8ab6446
SP
3403set ctxm .vpane.lower.commarea.buffer.ctxm
3404menu $ctxm -tearoff 0
3405$ctxm add command \
1ac17950 3406 -label [mc Cut] \
e8ab6446
SP
3407 -command {tk_textCut $ui_comm}
3408$ctxm add command \
1ac17950 3409 -label [mc Copy] \
e8ab6446
SP
3410 -command {tk_textCopy $ui_comm}
3411$ctxm add command \
1ac17950 3412 -label [mc Paste] \
e8ab6446
SP
3413 -command {tk_textPaste $ui_comm}
3414$ctxm add command \
1ac17950 3415 -label [mc Delete] \
bf516eca 3416 -command {catch {$ui_comm delete sel.first sel.last}}
e8ab6446
SP
3417$ctxm add separator
3418$ctxm add command \
1ac17950 3419 -label [mc "Select All"] \
75e78c8a 3420 -command {focus $ui_comm;$ui_comm tag add sel 0.0 end}
e8ab6446 3421$ctxm add command \
1ac17950 3422 -label [mc "Copy All"] \
e8ab6446 3423 -command {
0e794311
SP
3424 $ui_comm tag add sel 0.0 end
3425 tk_textCopy $ui_comm
3426 $ui_comm tag remove sel 0.0 end
e8ab6446
SP
3427 }
3428$ctxm add separator
3429$ctxm add command \
1ac17950 3430 -label [mc "Sign Off"] \
0e794311 3431 -command do_signoff
95b002ee 3432set ui_comm_ctxm $ctxm
0e794311 3433
0fb8f9ce 3434# -- Diff Header
a49c67d1 3435#
20a53c02
SP
3436proc trace_current_diff_path {varname args} {
3437 global current_diff_path diff_actions file_states
3438 if {$current_diff_path eq {}} {
e8ab6446
SP
3439 set s {}
3440 set f {}
3441 set p {}
3442 set o disabled
3443 } else {
20a53c02 3444 set p $current_diff_path
e8ab6446 3445 set s [mapdesc [lindex $file_states($p) 0] $p]
1ac17950 3446 set f [mc "File:"]
e8ab6446
SP
3447 set p [escape_path $p]
3448 set o normal
3449 }
3450
3451 .vpane.lower.diff.header.status configure -text $s
3452 .vpane.lower.diff.header.file configure -text $f
3453 .vpane.lower.diff.header.path configure -text $p
3454 foreach w $diff_actions {
3455 uplevel #0 $w $o
3456 }
3457}
20a53c02 3458trace add variable current_diff_path write trace_current_diff_path
e8ab6446 3459
c80d7be5
PT
3460gold_frame .vpane.lower.diff.header
3461tlabel .vpane.lower.diff.header.status \
9adccb05 3462 -background gold \
c382fdd7 3463 -foreground black \
3e7b0e1d
SP
3464 -width $max_status_desc \
3465 -anchor w \
7416bbc6 3466 -justify left
c80d7be5 3467tlabel .vpane.lower.diff.header.file \
9adccb05 3468 -background gold \
c382fdd7 3469 -foreground black \
e8ab6446 3470 -anchor w \
7416bbc6 3471 -justify left
c80d7be5 3472tlabel .vpane.lower.diff.header.path \
9adccb05 3473 -background gold \
c382fdd7 3474 -foreground black \
fce89e46 3475 -anchor w \
7416bbc6 3476 -justify left
e8ab6446
SP
3477pack .vpane.lower.diff.header.status -side left
3478pack .vpane.lower.diff.header.file -side left
3479pack .vpane.lower.diff.header.path -fill x
3480set ctxm .vpane.lower.diff.header.ctxm
3481menu $ctxm -tearoff 0
3482$ctxm add command \
1ac17950 3483 -label [mc Copy] \
fce89e46
SP
3484 -command {
3485 clipboard clear
3486 clipboard append \
3487 -format STRING \
3488 -type STRING \
20a53c02 3489 -- $current_diff_path
fce89e46 3490 }
e8ab6446
SP
3491lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3492bind_button3 .vpane.lower.diff.header.path "tk_popup $ctxm %X %Y"
0fb8f9ce
SP
3493
3494# -- Diff Body
a49c67d1 3495#
30508bc4 3496textframe .vpane.lower.diff.body
0fb8f9ce 3497set ui_diff .vpane.lower.diff.body.t
30508bc4 3498ttext $ui_diff -background white -foreground black \
c382fdd7 3499 -borderwidth 0 \
acb9108c 3500 -width 80 -height 5 -wrap none \
b4946930 3501 -font font_diff \
30508bc4 3502 -takefocus 1 -highlightthickness 1 \
0fb8f9ce
SP
3503 -xscrollcommand {.vpane.lower.diff.body.sbx set} \
3504 -yscrollcommand {.vpane.lower.diff.body.sby set} \
0fb8f9ce 3505 -state disabled
c7440869 3506catch {$ui_diff configure -tabstyle wordprocessor}
c80d7be5 3507${NS}::scrollbar .vpane.lower.diff.body.sbx -orient horizontal \
0fb8f9ce 3508 -command [list $ui_diff xview]
c80d7be5 3509${NS}::scrollbar .vpane.lower.diff.body.sby -orient vertical \
0fb8f9ce
SP
3510 -command [list $ui_diff yview]
3511pack .vpane.lower.diff.body.sbx -side bottom -fill x
3512pack .vpane.lower.diff.body.sby -side right -fill y
3513pack $ui_diff -side left -fill both -expand 1
3514pack .vpane.lower.diff.header -side top -fill x
3515pack .vpane.lower.diff.body -side bottom -fill both -expand 1
3516
8f85599a
PT
3517foreach {n c} {0 black 1 red4 2 green4 3 yellow4 4 blue4 5 magenta4 6 cyan4 7 grey60} {
3518 $ui_diff tag configure clr4$n -background $c
3519 $ui_diff tag configure clri4$n -foreground $c
3520 $ui_diff tag configure clr3$n -foreground $c
3521 $ui_diff tag configure clri3$n -background $c
3522}
3523$ui_diff tag configure clr1 -font font_diffbold
9af6413b 3524$ui_diff tag configure clr4 -underline 1
8f85599a 3525
88b21c2a
BW
3526$ui_diff tag conf d_info -foreground blue -font font_diffbold
3527
30b14ed3 3528$ui_diff tag conf d_cr -elide true
8f85599a 3529$ui_diff tag conf d_@ -font font_diffbold
ca521566 3530$ui_diff tag conf d_+ -foreground {#00a000}
fec4a785
SP
3531$ui_diff tag conf d_- -foreground red
3532
ca521566 3533$ui_diff tag conf d_++ -foreground {#00a000}
fec4a785
SP
3534$ui_diff tag conf d_-- -foreground red
3535$ui_diff tag conf d_+s \
ca521566
SP
3536 -foreground {#00a000} \
3537 -background {#e2effa}
fec4a785
SP
3538$ui_diff tag conf d_-s \
3539 -foreground red \
ca521566 3540 -background {#e2effa}
fec4a785 3541$ui_diff tag conf d_s+ \
ca521566
SP
3542 -foreground {#00a000} \
3543 -background ivory1
fec4a785
SP
3544$ui_diff tag conf d_s- \
3545 -foreground red \
ca521566 3546 -background ivory1
fec4a785 3547
4590307a 3548$ui_diff tag conf d< \
fec4a785
SP
3549 -foreground orange \
3550 -font font_diffbold
4590307a 3551$ui_diff tag conf d= \
fec4a785
SP
3552 -foreground orange \
3553 -font font_diffbold
4590307a 3554$ui_diff tag conf d> \
fec4a785
SP
3555 -foreground orange \
3556 -font font_diffbold
cb07fc2a 3557
ca521566
SP
3558$ui_diff tag raise sel
3559
0e794311
SP
3560# -- Diff Body Context Menu
3561#
042c2325
AG
3562
3563proc create_common_diff_popup {ctxm} {
042c2325
AG
3564 $ctxm add command \
3565 -label [mc Refresh] \
3566 -command reshow_diff
3567 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3568 $ctxm add command \
3569 -label [mc Copy] \
3570 -command {tk_textCopy $ui_diff}
3571 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3572 $ctxm add command \
3573 -label [mc "Select All"] \
3574 -command {focus $ui_diff;$ui_diff tag add sel 0.0 end}
3575 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3576 $ctxm add command \
3577 -label [mc "Copy All"] \
3578 -command {
3579 $ui_diff tag add sel 0.0 end
3580 tk_textCopy $ui_diff
3581 $ui_diff tag remove sel 0.0 end
3582 }
3583 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3584 $ctxm add separator
3585 $ctxm add command \
3586 -label [mc "Decrease Font Size"] \
3587 -command {incr_font_size font_diff -1}
3588 lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
3589 $ctxm add command \
3590 -label [mc "Increase Font Size"] \