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