d640b143f31510f3a1de41444def5b71f0a47e4e
1#!/bin/sh
2# Tcl ignores the next line -*- tcl -*- \
3exec wish "$0" -- "$@"
4
5set appvers {@@GITGUI_VERSION@@}
6set copyright {
7Copyright © 2006, 2007 Shawn Pearce, et. al.
8
9This program is free software; you can redistribute it and/or modify
10it under the terms of the GNU General Public License as published by
11the Free Software Foundation; either version 2 of the License, or
12(at your option) any later version.
13
14This program is distributed in the hope that it will be useful,
15but WITHOUT ANY WARRANTY; without even the implied warranty of
16MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17GNU General Public License for more details.
18
19You should have received a copy of the GNU General Public License
20along with this program; if not, write to the Free Software
21Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA}
22
23######################################################################
24##
25## enable verbose loading?
26
27if {![catch {set _verbose $env(GITGUI_VERBOSE)}]} {
28 unset _verbose
29 rename auto_load real__auto_load
30 proc auto_load {name args} {
31 puts stderr "auto_load $name"
32 return [uplevel 1 real__auto_load $name $args]
33 }
34 rename source real__source
35 proc source {name} {
36 puts stderr "source $name"
37 uplevel 1 real__source $name
38 }
39}
40
41######################################################################
42##
43## configure our library
44
45set oguilib {@@GITGUI_LIBDIR@@}
46set oguirel {@@GITGUI_RELATIVE@@}
47if {$oguirel eq {1}} {
48 set oguilib [file dirname [file dirname [file normalize $argv0]]]
49 set oguilib [file join $oguilib share git-gui lib]
50} elseif {[string match @@* $oguirel]} {
51 set oguilib [file join [file dirname [file normalize $argv0]] lib]
52}
53
54set idx [file join $oguilib tclIndex]
55if {[catch {set fd [open $idx r]} err]} {
56 catch {wm withdraw .}
57 tk_messageBox \
58 -icon error \
59 -type ok \
60 -title "git-gui: fatal error" \
61 -message $err
62 exit 1
63}
64if {[gets $fd] eq {# Autogenerated by git-gui Makefile}} {
65 set idx [list]
66 while {[gets $fd n] >= 0} {
67 if {$n ne {} && ![string match #* $n]} {
68 lappend idx $n
69 }
70 }
71} else {
72 set idx {}
73}
74close $fd
75
76if {$idx ne {}} {
77 set loaded [list]
78 foreach p $idx {
79 if {[lsearch -exact $loaded $p] >= 0} continue
80 source [file join $oguilib $p]
81 lappend loaded $p
82 }
83 unset loaded p
84} else {
85 set auto_path [concat [list $oguilib] $auto_path]
86}
87unset -nocomplain oguirel idx fd
88
89######################################################################
90##
91## read only globals
92
93set _appname [lindex [file split $argv0] end]
94set _gitdir {}
95set _gitexec {}
96set _reponame {}
97set _iscygwin {}
98
99proc appname {} {
100 global _appname
101 return $_appname
102}
103
104proc gitdir {args} {
105 global _gitdir
106 if {$args eq {}} {
107 return $_gitdir
108 }
109 return [eval [concat [list file join $_gitdir] $args]]
110}
111
112proc gitexec {args} {
113 global _gitexec
114 if {$_gitexec eq {}} {
115 if {[catch {set _gitexec [git --exec-path]} err]} {
116 error "Git not installed?\n\n$err"
117 }
118 }
119 if {$args eq {}} {
120 return $_gitexec
121 }
122 return [eval [concat [list file join $_gitexec] $args]]
123}
124
125proc reponame {} {
126 global _reponame
127 return $_reponame
128}
129
130proc is_MacOSX {} {
131 global tcl_platform tk_library
132 if {[tk windowingsystem] eq {aqua}} {
133 return 1
134 }
135 return 0
136}
137
138proc is_Windows {} {
139 global tcl_platform
140 if {$tcl_platform(platform) eq {windows}} {
141 return 1
142 }
143 return 0
144}
145
146proc is_Cygwin {} {
147 global tcl_platform _iscygwin
148 if {$_iscygwin eq {}} {
149 if {$tcl_platform(platform) eq {windows}} {
150 if {[catch {set p [exec cygpath --windir]} err]} {
151 set _iscygwin 0
152 } else {
153 set _iscygwin 1
154 }
155 } else {
156 set _iscygwin 0
157 }
158 }
159 return $_iscygwin
160}
161
162proc is_enabled {option} {
163 global enabled_options
164 if {[catch {set on $enabled_options($option)}]} {return 0}
165 return $on
166}
167
168proc enable_option {option} {
169 global enabled_options
170 set enabled_options($option) 1
171}
172
173proc disable_option {option} {
174 global enabled_options
175 set enabled_options($option) 0
176}
177
178######################################################################
179##
180## config
181
182proc is_many_config {name} {
183 switch -glob -- $name {
184 remote.*.fetch -
185 remote.*.push
186 {return 1}
187 *
188 {return 0}
189 }
190}
191
192proc is_config_true {name} {
193 global repo_config
194 if {[catch {set v $repo_config($name)}]} {
195 return 0
196 } elseif {$v eq {true} || $v eq {1} || $v eq {yes}} {
197 return 1
198 } else {
199 return 0
200 }
201}
202
203proc load_config {include_global} {
204 global repo_config global_config default_config
205
206 array unset global_config
207 if {$include_global} {
208 catch {
209 set fd_rc [open "| git config --global --list" r]
210 while {[gets $fd_rc line] >= 0} {
211 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
212 if {[is_many_config $name]} {
213 lappend global_config($name) $value
214 } else {
215 set global_config($name) $value
216 }
217 }
218 }
219 close $fd_rc
220 }
221 }
222
223 array unset repo_config
224 catch {
225 set fd_rc [open "| git config --list" r]
226 while {[gets $fd_rc line] >= 0} {
227 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
228 if {[is_many_config $name]} {
229 lappend repo_config($name) $value
230 } else {
231 set repo_config($name) $value
232 }
233 }
234 }
235 close $fd_rc
236 }
237
238 foreach name [array names default_config] {
239 if {[catch {set v $global_config($name)}]} {
240 set global_config($name) $default_config($name)
241 }
242 if {[catch {set v $repo_config($name)}]} {
243 set repo_config($name) $default_config($name)
244 }
245 }
246}
247
248######################################################################
249##
250## handy utils
251
252proc git {args} {
253 return [eval exec git $args]
254}
255
256auto_load tk_optionMenu
257rename tk_optionMenu real__tkOptionMenu
258proc tk_optionMenu {w varName args} {
259 set m [eval real__tkOptionMenu $w $varName $args]
260 $m configure -font font_ui
261 $w configure -font font_ui
262 return $m
263}
264
265######################################################################
266##
267## version check
268
269if {{--version} eq $argv || {version} eq $argv} {
270 puts "git-gui version $appvers"
271 exit
272}
273
274set req_maj 1
275set req_min 5
276
277if {[catch {set v [git --version]} err]} {
278 catch {wm withdraw .}
279 error_popup "Cannot determine Git version:
280
281$err
282
283[appname] requires Git $req_maj.$req_min or later."
284 exit 1
285}
286if {[regexp {^git version (\d+)\.(\d+)} $v _junk act_maj act_min]} {
287 if {$act_maj < $req_maj
288 || ($act_maj == $req_maj && $act_min < $req_min)} {
289 catch {wm withdraw .}
290 error_popup "[appname] requires Git $req_maj.$req_min or later.
291
292You are using $v."
293 exit 1
294 }
295} else {
296 catch {wm withdraw .}
297 error_popup "Cannot parse Git version string:\n\n$v"
298 exit 1
299}
300unset -nocomplain v _junk act_maj act_min req_maj req_min
301
302######################################################################
303##
304## repository setup
305
306if {[catch {
307 set _gitdir $env(GIT_DIR)
308 set _prefix {}
309 }]
310 && [catch {
311 set _gitdir [git rev-parse --git-dir]
312 set _prefix [git rev-parse --show-prefix]
313 } err]} {
314 catch {wm withdraw .}
315 error_popup "Cannot find the git directory:\n\n$err"
316 exit 1
317}
318if {![file isdirectory $_gitdir] && [is_Cygwin]} {
319 catch {set _gitdir [exec cygpath --unix $_gitdir]}
320}
321if {![file isdirectory $_gitdir]} {
322 catch {wm withdraw .}
323 error_popup "Git directory not found:\n\n$_gitdir"
324 exit 1
325}
326if {[lindex [file split $_gitdir] end] ne {.git}} {
327 catch {wm withdraw .}
328 error_popup "Cannot use funny .git directory:\n\n$_gitdir"
329 exit 1
330}
331if {[catch {cd [file dirname $_gitdir]} err]} {
332 catch {wm withdraw .}
333 error_popup "No working directory [file dirname $_gitdir]:\n\n$err"
334 exit 1
335}
336set _reponame [lindex [file split \
337 [file normalize [file dirname $_gitdir]]] \
338 end]
339
340######################################################################
341##
342## global init
343
344set current_diff_path {}
345set current_diff_side {}
346set diff_actions [list]
347set ui_status_value {Initializing...}
348
349set HEAD {}
350set PARENT {}
351set MERGE_HEAD [list]
352set commit_type {}
353set empty_tree {}
354set current_branch {}
355set current_diff_path {}
356set selected_commit_type new
357
358######################################################################
359##
360## task management
361
362set rescan_active 0
363set diff_active 0
364set last_clicked {}
365
366set disable_on_lock [list]
367set index_lock_type none
368
369proc lock_index {type} {
370 global index_lock_type disable_on_lock
371
372 if {$index_lock_type eq {none}} {
373 set index_lock_type $type
374 foreach w $disable_on_lock {
375 uplevel #0 $w disabled
376 }
377 return 1
378 } elseif {$index_lock_type eq "begin-$type"} {
379 set index_lock_type $type
380 return 1
381 }
382 return 0
383}
384
385proc unlock_index {} {
386 global index_lock_type disable_on_lock
387
388 set index_lock_type none
389 foreach w $disable_on_lock {
390 uplevel #0 $w normal
391 }
392}
393
394######################################################################
395##
396## status
397
398proc repository_state {ctvar hdvar mhvar} {
399 global current_branch
400 upvar $ctvar ct $hdvar hd $mhvar mh
401
402 set mh [list]
403
404 if {[catch {set current_branch [git symbolic-ref HEAD]}]} {
405 set current_branch {}
406 } else {
407 regsub ^refs/((heads|tags|remotes)/)? \
408 $current_branch \
409 {} \
410 current_branch
411 }
412
413 if {[catch {set hd [git rev-parse --verify HEAD]}]} {
414 set hd {}
415 set ct initial
416 return
417 }
418
419 set merge_head [gitdir MERGE_HEAD]
420 if {[file exists $merge_head]} {
421 set ct merge
422 set fd_mh [open $merge_head r]
423 while {[gets $fd_mh line] >= 0} {
424 lappend mh $line
425 }
426 close $fd_mh
427 return
428 }
429
430 set ct normal
431}
432
433proc PARENT {} {
434 global PARENT empty_tree
435
436 set p [lindex $PARENT 0]
437 if {$p ne {}} {
438 return $p
439 }
440 if {$empty_tree eq {}} {
441 set empty_tree [git mktree << {}]
442 }
443 return $empty_tree
444}
445
446proc rescan {after {honor_trustmtime 1}} {
447 global HEAD PARENT MERGE_HEAD commit_type
448 global ui_index ui_workdir ui_status_value ui_comm
449 global rescan_active file_states
450 global repo_config
451
452 if {$rescan_active > 0 || ![lock_index read]} return
453
454 repository_state newType newHEAD newMERGE_HEAD
455 if {[string match amend* $commit_type]
456 && $newType eq {normal}
457 && $newHEAD eq $HEAD} {
458 } else {
459 set HEAD $newHEAD
460 set PARENT $newHEAD
461 set MERGE_HEAD $newMERGE_HEAD
462 set commit_type $newType
463 }
464
465 array unset file_states
466
467 if {![$ui_comm edit modified]
468 || [string trim [$ui_comm get 0.0 end]] eq {}} {
469 if {[load_message GITGUI_MSG]} {
470 } elseif {[load_message MERGE_MSG]} {
471 } elseif {[load_message SQUASH_MSG]} {
472 }
473 $ui_comm edit reset
474 $ui_comm edit modified false
475 }
476
477 if {[is_enabled branch]} {
478 load_all_heads
479 populate_branch_menu
480 }
481
482 if {$honor_trustmtime && $repo_config(gui.trustmtime) eq {true}} {
483 rescan_stage2 {} $after
484 } else {
485 set rescan_active 1
486 set ui_status_value {Refreshing file status...}
487 set cmd [list git update-index]
488 lappend cmd -q
489 lappend cmd --unmerged
490 lappend cmd --ignore-missing
491 lappend cmd --refresh
492 set fd_rf [open "| $cmd" r]
493 fconfigure $fd_rf -blocking 0 -translation binary
494 fileevent $fd_rf readable \
495 [list rescan_stage2 $fd_rf $after]
496 }
497}
498
499proc rescan_stage2 {fd after} {
500 global ui_status_value
501 global rescan_active buf_rdi buf_rdf buf_rlo
502
503 if {$fd ne {}} {
504 read $fd
505 if {![eof $fd]} return
506 close $fd
507 }
508
509 set ls_others [list | git ls-files --others -z \
510 --exclude-per-directory=.gitignore]
511 set info_exclude [gitdir info exclude]
512 if {[file readable $info_exclude]} {
513 lappend ls_others "--exclude-from=$info_exclude"
514 }
515
516 set buf_rdi {}
517 set buf_rdf {}
518 set buf_rlo {}
519
520 set rescan_active 3
521 set ui_status_value {Scanning for modified files ...}
522 set fd_di [open "| git diff-index --cached -z [PARENT]" r]
523 set fd_df [open "| git diff-files -z" r]
524 set fd_lo [open $ls_others r]
525
526 fconfigure $fd_di -blocking 0 -translation binary -encoding binary
527 fconfigure $fd_df -blocking 0 -translation binary -encoding binary
528 fconfigure $fd_lo -blocking 0 -translation binary -encoding binary
529 fileevent $fd_di readable [list read_diff_index $fd_di $after]
530 fileevent $fd_df readable [list read_diff_files $fd_df $after]
531 fileevent $fd_lo readable [list read_ls_others $fd_lo $after]
532}
533
534proc load_message {file} {
535 global ui_comm
536
537 set f [gitdir $file]
538 if {[file isfile $f]} {
539 if {[catch {set fd [open $f r]}]} {
540 return 0
541 }
542 set content [string trim [read $fd]]
543 close $fd
544 regsub -all -line {[ \r\t]+$} $content {} content
545 $ui_comm delete 0.0 end
546 $ui_comm insert end $content
547 return 1
548 }
549 return 0
550}
551
552proc read_diff_index {fd after} {
553 global buf_rdi
554
555 append buf_rdi [read $fd]
556 set c 0
557 set n [string length $buf_rdi]
558 while {$c < $n} {
559 set z1 [string first "\0" $buf_rdi $c]
560 if {$z1 == -1} break
561 incr z1
562 set z2 [string first "\0" $buf_rdi $z1]
563 if {$z2 == -1} break
564
565 incr c
566 set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
567 set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
568 merge_state \
569 [encoding convertfrom $p] \
570 [lindex $i 4]? \
571 [list [lindex $i 0] [lindex $i 2]] \
572 [list]
573 set c $z2
574 incr c
575 }
576 if {$c < $n} {
577 set buf_rdi [string range $buf_rdi $c end]
578 } else {
579 set buf_rdi {}
580 }
581
582 rescan_done $fd buf_rdi $after
583}
584
585proc read_diff_files {fd after} {
586 global buf_rdf
587
588 append buf_rdf [read $fd]
589 set c 0
590 set n [string length $buf_rdf]
591 while {$c < $n} {
592 set z1 [string first "\0" $buf_rdf $c]
593 if {$z1 == -1} break
594 incr z1
595 set z2 [string first "\0" $buf_rdf $z1]
596 if {$z2 == -1} break
597
598 incr c
599 set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
600 set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
601 merge_state \
602 [encoding convertfrom $p] \
603 ?[lindex $i 4] \
604 [list] \
605 [list [lindex $i 0] [lindex $i 2]]
606 set c $z2
607 incr c
608 }
609 if {$c < $n} {
610 set buf_rdf [string range $buf_rdf $c end]
611 } else {
612 set buf_rdf {}
613 }
614
615 rescan_done $fd buf_rdf $after
616}
617
618proc read_ls_others {fd after} {
619 global buf_rlo
620
621 append buf_rlo [read $fd]
622 set pck [split $buf_rlo "\0"]
623 set buf_rlo [lindex $pck end]
624 foreach p [lrange $pck 0 end-1] {
625 merge_state [encoding convertfrom $p] ?O
626 }
627 rescan_done $fd buf_rlo $after
628}
629
630proc rescan_done {fd buf after} {
631 global rescan_active current_diff_path
632 global file_states repo_config
633 upvar $buf to_clear
634
635 if {![eof $fd]} return
636 set to_clear {}
637 close $fd
638 if {[incr rescan_active -1] > 0} return
639
640 prune_selection
641 unlock_index
642 display_all_files
643 if {$current_diff_path ne {}} reshow_diff
644 uplevel #0 $after
645}
646
647proc prune_selection {} {
648 global file_states selected_paths
649
650 foreach path [array names selected_paths] {
651 if {[catch {set still_here $file_states($path)}]} {
652 unset selected_paths($path)
653 }
654 }
655}
656
657######################################################################
658##
659## ui helpers
660
661proc mapicon {w state path} {
662 global all_icons
663
664 if {[catch {set r $all_icons($state$w)}]} {
665 puts "error: no icon for $w state={$state} $path"
666 return file_plain
667 }
668 return $r
669}
670
671proc mapdesc {state path} {
672 global all_descs
673
674 if {[catch {set r $all_descs($state)}]} {
675 puts "error: no desc for state={$state} $path"
676 return $state
677 }
678 return $r
679}
680
681proc escape_path {path} {
682 regsub -all {\\} $path "\\\\" path
683 regsub -all "\n" $path "\\n" path
684 return $path
685}
686
687proc short_path {path} {
688 return [escape_path [lindex [file split $path] end]]
689}
690
691set next_icon_id 0
692set null_sha1 [string repeat 0 40]
693
694proc merge_state {path new_state {head_info {}} {index_info {}}} {
695 global file_states next_icon_id null_sha1
696
697 set s0 [string index $new_state 0]
698 set s1 [string index $new_state 1]
699
700 if {[catch {set info $file_states($path)}]} {
701 set state __
702 set icon n[incr next_icon_id]
703 } else {
704 set state [lindex $info 0]
705 set icon [lindex $info 1]
706 if {$head_info eq {}} {set head_info [lindex $info 2]}
707 if {$index_info eq {}} {set index_info [lindex $info 3]}
708 }
709
710 if {$s0 eq {?}} {set s0 [string index $state 0]} \
711 elseif {$s0 eq {_}} {set s0 _}
712
713 if {$s1 eq {?}} {set s1 [string index $state 1]} \
714 elseif {$s1 eq {_}} {set s1 _}
715
716 if {$s0 eq {A} && $s1 eq {_} && $head_info eq {}} {
717 set head_info [list 0 $null_sha1]
718 } elseif {$s0 ne {_} && [string index $state 0] eq {_}
719 && $head_info eq {}} {
720 set head_info $index_info
721 }
722
723 set file_states($path) [list $s0$s1 $icon \
724 $head_info $index_info \
725 ]
726 return $state
727}
728
729proc display_file_helper {w path icon_name old_m new_m} {
730 global file_lists
731
732 if {$new_m eq {_}} {
733 set lno [lsearch -sorted -exact $file_lists($w) $path]
734 if {$lno >= 0} {
735 set file_lists($w) [lreplace $file_lists($w) $lno $lno]
736 incr lno
737 $w conf -state normal
738 $w delete $lno.0 [expr {$lno + 1}].0
739 $w conf -state disabled
740 }
741 } elseif {$old_m eq {_} && $new_m ne {_}} {
742 lappend file_lists($w) $path
743 set file_lists($w) [lsort -unique $file_lists($w)]
744 set lno [lsearch -sorted -exact $file_lists($w) $path]
745 incr lno
746 $w conf -state normal
747 $w image create $lno.0 \
748 -align center -padx 5 -pady 1 \
749 -name $icon_name \
750 -image [mapicon $w $new_m $path]
751 $w insert $lno.1 "[escape_path $path]\n"
752 $w conf -state disabled
753 } elseif {$old_m ne $new_m} {
754 $w conf -state normal
755 $w image conf $icon_name -image [mapicon $w $new_m $path]
756 $w conf -state disabled
757 }
758}
759
760proc display_file {path state} {
761 global file_states selected_paths
762 global ui_index ui_workdir
763
764 set old_m [merge_state $path $state]
765 set s $file_states($path)
766 set new_m [lindex $s 0]
767 set icon_name [lindex $s 1]
768
769 set o [string index $old_m 0]
770 set n [string index $new_m 0]
771 if {$o eq {U}} {
772 set o _
773 }
774 if {$n eq {U}} {
775 set n _
776 }
777 display_file_helper $ui_index $path $icon_name $o $n
778
779 if {[string index $old_m 0] eq {U}} {
780 set o U
781 } else {
782 set o [string index $old_m 1]
783 }
784 if {[string index $new_m 0] eq {U}} {
785 set n U
786 } else {
787 set n [string index $new_m 1]
788 }
789 display_file_helper $ui_workdir $path $icon_name $o $n
790
791 if {$new_m eq {__}} {
792 unset file_states($path)
793 catch {unset selected_paths($path)}
794 }
795}
796
797proc display_all_files_helper {w path icon_name m} {
798 global file_lists
799
800 lappend file_lists($w) $path
801 set lno [expr {[lindex [split [$w index end] .] 0] - 1}]
802 $w image create end \
803 -align center -padx 5 -pady 1 \
804 -name $icon_name \
805 -image [mapicon $w $m $path]
806 $w insert end "[escape_path $path]\n"
807}
808
809proc display_all_files {} {
810 global ui_index ui_workdir
811 global file_states file_lists
812 global last_clicked
813
814 $ui_index conf -state normal
815 $ui_workdir conf -state normal
816
817 $ui_index delete 0.0 end
818 $ui_workdir delete 0.0 end
819 set last_clicked {}
820
821 set file_lists($ui_index) [list]
822 set file_lists($ui_workdir) [list]
823
824 foreach path [lsort [array names file_states]] {
825 set s $file_states($path)
826 set m [lindex $s 0]
827 set icon_name [lindex $s 1]
828
829 set s [string index $m 0]
830 if {$s ne {U} && $s ne {_}} {
831 display_all_files_helper $ui_index $path \
832 $icon_name $s
833 }
834
835 if {[string index $m 0] eq {U}} {
836 set s U
837 } else {
838 set s [string index $m 1]
839 }
840 if {$s ne {_}} {
841 display_all_files_helper $ui_workdir $path \
842 $icon_name $s
843 }
844 }
845
846 $ui_index conf -state disabled
847 $ui_workdir conf -state disabled
848}
849
850######################################################################
851##
852## icons
853
854set filemask {
855#define mask_width 14
856#define mask_height 15
857static unsigned char mask_bits[] = {
858 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
859 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
860 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
861}
862
863image create bitmap file_plain -background white -foreground black -data {
864#define plain_width 14
865#define plain_height 15
866static unsigned char plain_bits[] = {
867 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
868 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
869 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
870} -maskdata $filemask
871
872image create bitmap file_mod -background white -foreground blue -data {
873#define mod_width 14
874#define mod_height 15
875static unsigned char mod_bits[] = {
876 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
877 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
878 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
879} -maskdata $filemask
880
881image create bitmap file_fulltick -background white -foreground "#007000" -data {
882#define file_fulltick_width 14
883#define file_fulltick_height 15
884static unsigned char file_fulltick_bits[] = {
885 0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
886 0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
887 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
888} -maskdata $filemask
889
890image create bitmap file_parttick -background white -foreground "#005050" -data {
891#define parttick_width 14
892#define parttick_height 15
893static unsigned char parttick_bits[] = {
894 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
895 0x7a, 0x14, 0x02, 0x16, 0x02, 0x13, 0x8a, 0x11, 0xda, 0x10, 0x72, 0x10,
896 0x22, 0x10, 0x02, 0x10, 0xfe, 0x1f};
897} -maskdata $filemask
898
899image create bitmap file_question -background white -foreground black -data {
900#define file_question_width 14
901#define file_question_height 15
902static unsigned char file_question_bits[] = {
903 0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
904 0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
905 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
906} -maskdata $filemask
907
908image create bitmap file_removed -background white -foreground red -data {
909#define file_removed_width 14
910#define file_removed_height 15
911static unsigned char file_removed_bits[] = {
912 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
913 0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
914 0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
915} -maskdata $filemask
916
917image create bitmap file_merge -background white -foreground blue -data {
918#define file_merge_width 14
919#define file_merge_height 15
920static unsigned char file_merge_bits[] = {
921 0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
922 0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
923 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
924} -maskdata $filemask
925
926set file_dir_data {
927#define file_width 18
928#define file_height 18
929static unsigned char file_bits[] = {
930 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x03, 0x00,
931 0x0c, 0x03, 0x00, 0x04, 0xfe, 0x00, 0x06, 0x80, 0x00, 0xff, 0x9f, 0x00,
932 0x03, 0x98, 0x00, 0x02, 0x90, 0x00, 0x06, 0xb0, 0x00, 0x04, 0xa0, 0x00,
933 0x0c, 0xe0, 0x00, 0x08, 0xc0, 0x00, 0xf8, 0xff, 0x00, 0x00, 0x00, 0x00,
934 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
935}
936image create bitmap file_dir -background white -foreground blue \
937 -data $file_dir_data -maskdata $file_dir_data
938unset file_dir_data
939
940set file_uplevel_data {
941#define up_width 15
942#define up_height 15
943static unsigned char up_bits[] = {
944 0x80, 0x00, 0xc0, 0x01, 0xe0, 0x03, 0xf0, 0x07, 0xf8, 0x0f, 0xfc, 0x1f,
945 0xfe, 0x3f, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01,
946 0xc0, 0x01, 0xc0, 0x01, 0x00, 0x00};
947}
948image create bitmap file_uplevel -background white -foreground red \
949 -data $file_uplevel_data -maskdata $file_uplevel_data
950unset file_uplevel_data
951
952set ui_index .vpane.files.index.list
953set ui_workdir .vpane.files.workdir.list
954
955set all_icons(_$ui_index) file_plain
956set all_icons(A$ui_index) file_fulltick
957set all_icons(M$ui_index) file_fulltick
958set all_icons(D$ui_index) file_removed
959set all_icons(U$ui_index) file_merge
960
961set all_icons(_$ui_workdir) file_plain
962set all_icons(M$ui_workdir) file_mod
963set all_icons(D$ui_workdir) file_question
964set all_icons(U$ui_workdir) file_merge
965set all_icons(O$ui_workdir) file_plain
966
967set max_status_desc 0
968foreach i {
969 {__ "Unmodified"}
970
971 {_M "Modified, not staged"}
972 {M_ "Staged for commit"}
973 {MM "Portions staged for commit"}
974 {MD "Staged for commit, missing"}
975
976 {_O "Untracked, not staged"}
977 {A_ "Staged for commit"}
978 {AM "Portions staged for commit"}
979 {AD "Staged for commit, missing"}
980
981 {_D "Missing"}
982 {D_ "Staged for removal"}
983 {DO "Staged for removal, still present"}
984
985 {U_ "Requires merge resolution"}
986 {UU "Requires merge resolution"}
987 {UM "Requires merge resolution"}
988 {UD "Requires merge resolution"}
989 } {
990 if {$max_status_desc < [string length [lindex $i 1]]} {
991 set max_status_desc [string length [lindex $i 1]]
992 }
993 set all_descs([lindex $i 0]) [lindex $i 1]
994}
995unset i
996
997######################################################################
998##
999## util
1000
1001proc bind_button3 {w cmd} {
1002 bind $w <Any-Button-3> $cmd
1003 if {[is_MacOSX]} {
1004 bind $w <Control-Button-1> $cmd
1005 }
1006}
1007
1008proc scrollbar2many {list mode args} {
1009 foreach w $list {eval $w $mode $args}
1010}
1011
1012proc many2scrollbar {list mode sb top bottom} {
1013 $sb set $top $bottom
1014 foreach w $list {$w $mode moveto $top}
1015}
1016
1017proc incr_font_size {font {amt 1}} {
1018 set sz [font configure $font -size]
1019 incr sz $amt
1020 font configure $font -size $sz
1021 font configure ${font}bold -size $sz
1022}
1023
1024######################################################################
1025##
1026## ui commands
1027
1028set starting_gitk_msg {Starting gitk... please wait...}
1029
1030proc do_gitk {revs} {
1031 global env ui_status_value starting_gitk_msg
1032
1033 # -- Always start gitk through whatever we were loaded with. This
1034 # lets us bypass using shell process on Windows systems.
1035 #
1036 set cmd [list [info nameofexecutable]]
1037 lappend cmd [gitexec gitk]
1038 if {$revs ne {}} {
1039 append cmd { }
1040 append cmd $revs
1041 }
1042
1043 if {[catch {eval exec $cmd &} err]} {
1044 error_popup "Failed to start gitk:\n\n$err"
1045 } else {
1046 set ui_status_value $starting_gitk_msg
1047 after 10000 {
1048 if {$ui_status_value eq $starting_gitk_msg} {
1049 set ui_status_value {Ready.}
1050 }
1051 }
1052 }
1053}
1054
1055set is_quitting 0
1056
1057proc do_quit {} {
1058 global ui_comm is_quitting repo_config commit_type
1059
1060 if {$is_quitting} return
1061 set is_quitting 1
1062
1063 if {[winfo exists $ui_comm]} {
1064 # -- Stash our current commit buffer.
1065 #
1066 set save [gitdir GITGUI_MSG]
1067 set msg [string trim [$ui_comm get 0.0 end]]
1068 regsub -all -line {[ \r\t]+$} $msg {} msg
1069 if {(![string match amend* $commit_type]
1070 || [$ui_comm edit modified])
1071 && $msg ne {}} {
1072 catch {
1073 set fd [open $save w]
1074 puts -nonewline $fd $msg
1075 close $fd
1076 }
1077 } else {
1078 catch {file delete $save}
1079 }
1080
1081 # -- Stash our current window geometry into this repository.
1082 #
1083 set cfg_geometry [list]
1084 lappend cfg_geometry [wm geometry .]
1085 lappend cfg_geometry [lindex [.vpane sash coord 0] 1]
1086 lappend cfg_geometry [lindex [.vpane.files sash coord 0] 0]
1087 if {[catch {set rc_geometry $repo_config(gui.geometry)}]} {
1088 set rc_geometry {}
1089 }
1090 if {$cfg_geometry ne $rc_geometry} {
1091 catch {git config gui.geometry $cfg_geometry}
1092 }
1093 }
1094
1095 destroy .
1096}
1097
1098proc do_rescan {} {
1099 rescan {set ui_status_value {Ready.}}
1100}
1101
1102proc do_commit {} {
1103 commit_tree
1104}
1105
1106proc toggle_or_diff {w x y} {
1107 global file_states file_lists current_diff_path ui_index ui_workdir
1108 global last_clicked selected_paths
1109
1110 set pos [split [$w index @$x,$y] .]
1111 set lno [lindex $pos 0]
1112 set col [lindex $pos 1]
1113 set path [lindex $file_lists($w) [expr {$lno - 1}]]
1114 if {$path eq {}} {
1115 set last_clicked {}
1116 return
1117 }
1118
1119 set last_clicked [list $w $lno]
1120 array unset selected_paths
1121 $ui_index tag remove in_sel 0.0 end
1122 $ui_workdir tag remove in_sel 0.0 end
1123
1124 if {$col == 0} {
1125 if {$current_diff_path eq $path} {
1126 set after {reshow_diff;}
1127 } else {
1128 set after {}
1129 }
1130 if {$w eq $ui_index} {
1131 update_indexinfo \
1132 "Unstaging [short_path $path] from commit" \
1133 [list $path] \
1134 [concat $after {set ui_status_value {Ready.}}]
1135 } elseif {$w eq $ui_workdir} {
1136 update_index \
1137 "Adding [short_path $path]" \
1138 [list $path] \
1139 [concat $after {set ui_status_value {Ready.}}]
1140 }
1141 } else {
1142 show_diff $path $w $lno
1143 }
1144}
1145
1146proc add_one_to_selection {w x y} {
1147 global file_lists last_clicked selected_paths
1148
1149 set lno [lindex [split [$w index @$x,$y] .] 0]
1150 set path [lindex $file_lists($w) [expr {$lno - 1}]]
1151 if {$path eq {}} {
1152 set last_clicked {}
1153 return
1154 }
1155
1156 if {$last_clicked ne {}
1157 && [lindex $last_clicked 0] ne $w} {
1158 array unset selected_paths
1159 [lindex $last_clicked 0] tag remove in_sel 0.0 end
1160 }
1161
1162 set last_clicked [list $w $lno]
1163 if {[catch {set in_sel $selected_paths($path)}]} {
1164 set in_sel 0
1165 }
1166 if {$in_sel} {
1167 unset selected_paths($path)
1168 $w tag remove in_sel $lno.0 [expr {$lno + 1}].0
1169 } else {
1170 set selected_paths($path) 1
1171 $w tag add in_sel $lno.0 [expr {$lno + 1}].0
1172 }
1173}
1174
1175proc add_range_to_selection {w x y} {
1176 global file_lists last_clicked selected_paths
1177
1178 if {[lindex $last_clicked 0] ne $w} {
1179 toggle_or_diff $w $x $y
1180 return
1181 }
1182
1183 set lno [lindex [split [$w index @$x,$y] .] 0]
1184 set lc [lindex $last_clicked 1]
1185 if {$lc < $lno} {
1186 set begin $lc
1187 set end $lno
1188 } else {
1189 set begin $lno
1190 set end $lc
1191 }
1192
1193 foreach path [lrange $file_lists($w) \
1194 [expr {$begin - 1}] \
1195 [expr {$end - 1}]] {
1196 set selected_paths($path) 1
1197 }
1198 $w tag add in_sel $begin.0 [expr {$end + 1}].0
1199}
1200
1201######################################################################
1202##
1203## config defaults
1204
1205set cursor_ptr arrow
1206font create font_diff -family Courier -size 10
1207font create font_ui
1208catch {
1209 label .dummy
1210 eval font configure font_ui [font actual [.dummy cget -font]]
1211 destroy .dummy
1212}
1213
1214font create font_uibold
1215font create font_diffbold
1216
1217foreach class {Button Checkbutton Entry Label
1218 Labelframe Listbox Menu Message
1219 Radiobutton Text} {
1220 option add *$class.font font_ui
1221}
1222unset class
1223
1224if {[is_Windows] || [is_MacOSX]} {
1225 option add *Menu.tearOff 0
1226}
1227
1228if {[is_MacOSX]} {
1229 set M1B M1
1230 set M1T Cmd
1231} else {
1232 set M1B Control
1233 set M1T Ctrl
1234}
1235
1236proc apply_config {} {
1237 global repo_config font_descs
1238
1239 foreach option $font_descs {
1240 set name [lindex $option 0]
1241 set font [lindex $option 1]
1242 if {[catch {
1243 foreach {cn cv} $repo_config(gui.$name) {
1244 font configure $font $cn $cv
1245 }
1246 } err]} {
1247 error_popup "Invalid font specified in gui.$name:\n\n$err"
1248 }
1249 foreach {cn cv} [font configure $font] {
1250 font configure ${font}bold $cn $cv
1251 }
1252 font configure ${font}bold -weight bold
1253 }
1254}
1255
1256set default_config(merge.summary) false
1257set default_config(merge.verbosity) 2
1258set default_config(user.name) {}
1259set default_config(user.email) {}
1260
1261set default_config(gui.pruneduringfetch) false
1262set default_config(gui.trustmtime) false
1263set default_config(gui.diffcontext) 5
1264set default_config(gui.newbranchtemplate) {}
1265set default_config(gui.fontui) [font configure font_ui]
1266set default_config(gui.fontdiff) [font configure font_diff]
1267set font_descs {
1268 {fontui font_ui {Main Font}}
1269 {fontdiff font_diff {Diff/Console Font}}
1270}
1271load_config 0
1272apply_config
1273
1274######################################################################
1275##
1276## feature option selection
1277
1278if {[regexp {^git-(.+)$} [appname] _junk subcommand]} {
1279 unset _junk
1280} else {
1281 set subcommand gui
1282}
1283if {$subcommand eq {gui.sh}} {
1284 set subcommand gui
1285}
1286if {$subcommand eq {gui} && [llength $argv] > 0} {
1287 set subcommand [lindex $argv 0]
1288 set argv [lrange $argv 1 end]
1289}
1290
1291enable_option multicommit
1292enable_option branch
1293enable_option transport
1294
1295switch -- $subcommand {
1296browser -
1297blame {
1298 disable_option multicommit
1299 disable_option branch
1300 disable_option transport
1301}
1302citool {
1303 enable_option singlecommit
1304
1305 disable_option multicommit
1306 disable_option branch
1307 disable_option transport
1308}
1309}
1310
1311######################################################################
1312##
1313## ui construction
1314
1315set ui_comm {}
1316
1317# -- Menu Bar
1318#
1319menu .mbar -tearoff 0
1320.mbar add cascade -label Repository -menu .mbar.repository
1321.mbar add cascade -label Edit -menu .mbar.edit
1322if {[is_enabled branch]} {
1323 .mbar add cascade -label Branch -menu .mbar.branch
1324}
1325if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1326 .mbar add cascade -label Commit -menu .mbar.commit
1327}
1328if {[is_enabled transport]} {
1329 .mbar add cascade -label Merge -menu .mbar.merge
1330 .mbar add cascade -label Fetch -menu .mbar.fetch
1331 .mbar add cascade -label Push -menu .mbar.push
1332}
1333. configure -menu .mbar
1334
1335# -- Repository Menu
1336#
1337menu .mbar.repository
1338
1339.mbar.repository add command \
1340 -label {Browse Current Branch} \
1341 -command {browser::new $current_branch}
1342trace add variable current_branch write ".mbar.repository entryconf [.mbar.repository index last] -label \"Browse \$current_branch\" ;#"
1343.mbar.repository add separator
1344
1345.mbar.repository add command \
1346 -label {Visualize Current Branch} \
1347 -command {do_gitk $current_branch}
1348trace add variable current_branch write ".mbar.repository entryconf [.mbar.repository index last] -label \"Visualize \$current_branch\" ;#"
1349.mbar.repository add command \
1350 -label {Visualize All Branches} \
1351 -command {do_gitk --all}
1352.mbar.repository add separator
1353
1354if {[is_enabled multicommit]} {
1355 .mbar.repository add command -label {Database Statistics} \
1356 -command do_stats
1357
1358 .mbar.repository add command -label {Compress Database} \
1359 -command do_gc
1360
1361 .mbar.repository add command -label {Verify Database} \
1362 -command do_fsck_objects
1363
1364 .mbar.repository add separator
1365
1366 if {[is_Cygwin]} {
1367 .mbar.repository add command \
1368 -label {Create Desktop Icon} \
1369 -command do_cygwin_shortcut
1370 } elseif {[is_Windows]} {
1371 .mbar.repository add command \
1372 -label {Create Desktop Icon} \
1373 -command do_windows_shortcut
1374 } elseif {[is_MacOSX]} {
1375 .mbar.repository add command \
1376 -label {Create Desktop Icon} \
1377 -command do_macosx_app
1378 }
1379}
1380
1381.mbar.repository add command -label Quit \
1382 -command do_quit \
1383 -accelerator $M1T-Q
1384
1385# -- Edit Menu
1386#
1387menu .mbar.edit
1388.mbar.edit add command -label Undo \
1389 -command {catch {[focus] edit undo}} \
1390 -accelerator $M1T-Z
1391.mbar.edit add command -label Redo \
1392 -command {catch {[focus] edit redo}} \
1393 -accelerator $M1T-Y
1394.mbar.edit add separator
1395.mbar.edit add command -label Cut \
1396 -command {catch {tk_textCut [focus]}} \
1397 -accelerator $M1T-X
1398.mbar.edit add command -label Copy \
1399 -command {catch {tk_textCopy [focus]}} \
1400 -accelerator $M1T-C
1401.mbar.edit add command -label Paste \
1402 -command {catch {tk_textPaste [focus]; [focus] see insert}} \
1403 -accelerator $M1T-V
1404.mbar.edit add command -label Delete \
1405 -command {catch {[focus] delete sel.first sel.last}} \
1406 -accelerator Del
1407.mbar.edit add separator
1408.mbar.edit add command -label {Select All} \
1409 -command {catch {[focus] tag add sel 0.0 end}} \
1410 -accelerator $M1T-A
1411
1412# -- Branch Menu
1413#
1414if {[is_enabled branch]} {
1415 menu .mbar.branch
1416
1417 .mbar.branch add command -label {Create...} \
1418 -command do_create_branch \
1419 -accelerator $M1T-N
1420 lappend disable_on_lock [list .mbar.branch entryconf \
1421 [.mbar.branch index last] -state]
1422
1423 .mbar.branch add command -label {Delete...} \
1424 -command do_delete_branch
1425 lappend disable_on_lock [list .mbar.branch entryconf \
1426 [.mbar.branch index last] -state]
1427
1428 .mbar.branch add command -label {Reset...} \
1429 -command merge::reset_hard
1430 lappend disable_on_lock [list .mbar.branch entryconf \
1431 [.mbar.branch index last] -state]
1432}
1433
1434# -- Commit Menu
1435#
1436if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1437 menu .mbar.commit
1438
1439 .mbar.commit add radiobutton \
1440 -label {New Commit} \
1441 -command do_select_commit_type \
1442 -variable selected_commit_type \
1443 -value new
1444 lappend disable_on_lock \
1445 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1446
1447 .mbar.commit add radiobutton \
1448 -label {Amend Last Commit} \
1449 -command do_select_commit_type \
1450 -variable selected_commit_type \
1451 -value amend
1452 lappend disable_on_lock \
1453 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1454
1455 .mbar.commit add separator
1456
1457 .mbar.commit add command -label Rescan \
1458 -command do_rescan \
1459 -accelerator F5
1460 lappend disable_on_lock \
1461 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1462
1463 .mbar.commit add command -label {Add To Commit} \
1464 -command do_add_selection
1465 lappend disable_on_lock \
1466 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1467
1468 .mbar.commit add command -label {Add Existing To Commit} \
1469 -command do_add_all \
1470 -accelerator $M1T-I
1471 lappend disable_on_lock \
1472 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1473
1474 .mbar.commit add command -label {Unstage From Commit} \
1475 -command do_unstage_selection
1476 lappend disable_on_lock \
1477 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1478
1479 .mbar.commit add command -label {Revert Changes} \
1480 -command do_revert_selection
1481 lappend disable_on_lock \
1482 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1483
1484 .mbar.commit add separator
1485
1486 .mbar.commit add command -label {Sign Off} \
1487 -command do_signoff \
1488 -accelerator $M1T-S
1489
1490 .mbar.commit add command -label Commit \
1491 -command do_commit \
1492 -accelerator $M1T-Return
1493 lappend disable_on_lock \
1494 [list .mbar.commit entryconf [.mbar.commit index last] -state]
1495}
1496
1497# -- Merge Menu
1498#
1499if {[is_enabled branch]} {
1500 menu .mbar.merge
1501 .mbar.merge add command -label {Local Merge...} \
1502 -command merge::dialog
1503 lappend disable_on_lock \
1504 [list .mbar.merge entryconf [.mbar.merge index last] -state]
1505 .mbar.merge add command -label {Abort Merge...} \
1506 -command merge::reset_hard
1507 lappend disable_on_lock \
1508 [list .mbar.merge entryconf [.mbar.merge index last] -state]
1509
1510}
1511
1512# -- Transport Menu
1513#
1514if {[is_enabled transport]} {
1515 menu .mbar.fetch
1516
1517 menu .mbar.push
1518 .mbar.push add command -label {Push...} \
1519 -command do_push_anywhere
1520}
1521
1522if {[is_MacOSX]} {
1523 # -- Apple Menu (Mac OS X only)
1524 #
1525 .mbar add cascade -label Apple -menu .mbar.apple
1526 menu .mbar.apple
1527
1528 .mbar.apple add command -label "About [appname]" \
1529 -command do_about
1530 .mbar.apple add command -label "Options..." \
1531 -command do_options
1532} else {
1533 # -- Edit Menu
1534 #
1535 .mbar.edit add separator
1536 .mbar.edit add command -label {Options...} \
1537 -command do_options
1538
1539 # -- Tools Menu
1540 #
1541 if {[file exists /usr/local/miga/lib/gui-miga]
1542 && [file exists .pvcsrc]} {
1543 proc do_miga {} {
1544 global ui_status_value
1545 if {![lock_index update]} return
1546 set cmd [list sh --login -c "/usr/local/miga/lib/gui-miga \"[pwd]\""]
1547 set miga_fd [open "|$cmd" r]
1548 fconfigure $miga_fd -blocking 0
1549 fileevent $miga_fd readable [list miga_done $miga_fd]
1550 set ui_status_value {Running miga...}
1551 }
1552 proc miga_done {fd} {
1553 read $fd 512
1554 if {[eof $fd]} {
1555 close $fd
1556 unlock_index
1557 rescan [list set ui_status_value {Ready.}]
1558 }
1559 }
1560 .mbar add cascade -label Tools -menu .mbar.tools
1561 menu .mbar.tools
1562 .mbar.tools add command -label "Migrate" \
1563 -command do_miga
1564 lappend disable_on_lock \
1565 [list .mbar.tools entryconf [.mbar.tools index last] -state]
1566 }
1567}
1568
1569# -- Help Menu
1570#
1571.mbar add cascade -label Help -menu .mbar.help
1572menu .mbar.help
1573
1574if {![is_MacOSX]} {
1575 .mbar.help add command -label "About [appname]" \
1576 -command do_about
1577}
1578
1579set browser {}
1580catch {set browser $repo_config(instaweb.browser)}
1581set doc_path [file dirname [gitexec]]
1582set doc_path [file join $doc_path Documentation index.html]
1583
1584if {[is_Cygwin]} {
1585 set doc_path [exec cygpath --mixed $doc_path]
1586}
1587
1588if {$browser eq {}} {
1589 if {[is_MacOSX]} {
1590 set browser open
1591 } elseif {[is_Cygwin]} {
1592 set program_files [file dirname [exec cygpath --windir]]
1593 set program_files [file join $program_files {Program Files}]
1594 set firefox [file join $program_files {Mozilla Firefox} firefox.exe]
1595 set ie [file join $program_files {Internet Explorer} IEXPLORE.EXE]
1596 if {[file exists $firefox]} {
1597 set browser $firefox
1598 } elseif {[file exists $ie]} {
1599 set browser $ie
1600 }
1601 unset program_files firefox ie
1602 }
1603}
1604
1605if {[file isfile $doc_path]} {
1606 set doc_url "file:$doc_path"
1607} else {
1608 set doc_url {http://www.kernel.org/pub/software/scm/git/docs/}
1609}
1610
1611if {$browser ne {}} {
1612 .mbar.help add command -label {Online Documentation} \
1613 -command [list exec $browser $doc_url &]
1614}
1615unset browser doc_path doc_url
1616
1617# -- Standard bindings
1618#
1619bind . <Destroy> do_quit
1620bind all <$M1B-Key-q> do_quit
1621bind all <$M1B-Key-Q> do_quit
1622bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}
1623bind all <$M1B-Key-W> {destroy [winfo toplevel %W]}
1624
1625set subcommand_args {}
1626proc usage {} {
1627 puts stderr "usage: $::argv0 $::subcommand $::subcommand_args"
1628 exit 1
1629}
1630
1631# -- Not a normal commit type invocation? Do that instead!
1632#
1633switch -- $subcommand {
1634browser {
1635 set subcommand_args {rev?}
1636 switch [llength $argv] {
1637 0 {
1638 set current_branch [git symbolic-ref HEAD]
1639 regsub ^refs/((heads|tags|remotes)/)? \
1640 $current_branch {} current_branch
1641 }
1642 1 {
1643 set current_branch [lindex $argv 0]
1644 }
1645 default usage
1646 }
1647 browser::new $current_branch
1648 return
1649}
1650blame {
1651 set subcommand_args {rev? path?}
1652 set head {}
1653 set path {}
1654 set is_path 0
1655 foreach a $argv {
1656 if {$is_path || [file exists $_prefix$a]} {
1657 if {$path ne {}} usage
1658 set path $_prefix$a
1659 break
1660 } elseif {$a eq {--}} {
1661 if {$path ne {}} {
1662 if {$head ne {}} usage
1663 set head $path
1664 set path {}
1665 }
1666 set is_path 1
1667 } elseif {$head eq {}} {
1668 if {$head ne {}} usage
1669 set head $a
1670 } else {
1671 usage
1672 }
1673 }
1674 unset is_path
1675
1676 if {$head eq {}} {
1677 set current_branch [git symbolic-ref HEAD]
1678 regsub ^refs/((heads|tags|remotes)/)? \
1679 $current_branch {} current_branch
1680 } else {
1681 set current_branch $head
1682 }
1683
1684 if {$path eq {}} usage
1685 blame::new $head $path
1686 return
1687}
1688citool -
1689gui {
1690 if {[llength $argv] != 0} {
1691 puts -nonewline stderr "usage: $argv0"
1692 if {$subcommand ne {gui} && [appname] ne "git-$subcommand"} {
1693 puts -nonewline stderr " $subcommand"
1694 }
1695 puts stderr {}
1696 exit 1
1697 }
1698 # fall through to setup UI for commits
1699}
1700default {
1701 puts stderr "usage: $argv0 \[{blame|browser|citool}\]"
1702 exit 1
1703}
1704}
1705
1706# -- Branch Control
1707#
1708frame .branch \
1709 -borderwidth 1 \
1710 -relief sunken
1711label .branch.l1 \
1712 -text {Current Branch:} \
1713 -anchor w \
1714 -justify left
1715label .branch.cb \
1716 -textvariable current_branch \
1717 -anchor w \
1718 -justify left
1719pack .branch.l1 -side left
1720pack .branch.cb -side left -fill x
1721pack .branch -side top -fill x
1722
1723# -- Main Window Layout
1724#
1725panedwindow .vpane -orient vertical
1726panedwindow .vpane.files -orient horizontal
1727.vpane add .vpane.files -sticky nsew -height 100 -width 200
1728pack .vpane -anchor n -side top -fill both -expand 1
1729
1730# -- Index File List
1731#
1732frame .vpane.files.index -height 100 -width 200
1733label .vpane.files.index.title -text {Staged Changes (Will Be Committed)} \
1734 -background green
1735text $ui_index -background white -borderwidth 0 \
1736 -width 20 -height 10 \
1737 -wrap none \
1738 -cursor $cursor_ptr \
1739 -xscrollcommand {.vpane.files.index.sx set} \
1740 -yscrollcommand {.vpane.files.index.sy set} \
1741 -state disabled
1742scrollbar .vpane.files.index.sx -orient h -command [list $ui_index xview]
1743scrollbar .vpane.files.index.sy -orient v -command [list $ui_index yview]
1744pack .vpane.files.index.title -side top -fill x
1745pack .vpane.files.index.sx -side bottom -fill x
1746pack .vpane.files.index.sy -side right -fill y
1747pack $ui_index -side left -fill both -expand 1
1748.vpane.files add .vpane.files.index -sticky nsew
1749
1750# -- Working Directory File List
1751#
1752frame .vpane.files.workdir -height 100 -width 200
1753label .vpane.files.workdir.title -text {Unstaged Changes (Will Not Be Committed)} \
1754 -background red
1755text $ui_workdir -background white -borderwidth 0 \
1756 -width 20 -height 10 \
1757 -wrap none \
1758 -cursor $cursor_ptr \
1759 -xscrollcommand {.vpane.files.workdir.sx set} \
1760 -yscrollcommand {.vpane.files.workdir.sy set} \
1761 -state disabled
1762scrollbar .vpane.files.workdir.sx -orient h -command [list $ui_workdir xview]
1763scrollbar .vpane.files.workdir.sy -orient v -command [list $ui_workdir yview]
1764pack .vpane.files.workdir.title -side top -fill x
1765pack .vpane.files.workdir.sx -side bottom -fill x
1766pack .vpane.files.workdir.sy -side right -fill y
1767pack $ui_workdir -side left -fill both -expand 1
1768.vpane.files add .vpane.files.workdir -sticky nsew
1769
1770foreach i [list $ui_index $ui_workdir] {
1771 $i tag conf in_diff -font font_uibold
1772 $i tag conf in_sel \
1773 -background [$i cget -foreground] \
1774 -foreground [$i cget -background]
1775}
1776unset i
1777
1778# -- Diff and Commit Area
1779#
1780frame .vpane.lower -height 300 -width 400
1781frame .vpane.lower.commarea
1782frame .vpane.lower.diff -relief sunken -borderwidth 1
1783pack .vpane.lower.commarea -side top -fill x
1784pack .vpane.lower.diff -side bottom -fill both -expand 1
1785.vpane add .vpane.lower -sticky nsew
1786
1787# -- Commit Area Buttons
1788#
1789frame .vpane.lower.commarea.buttons
1790label .vpane.lower.commarea.buttons.l -text {} \
1791 -anchor w \
1792 -justify left
1793pack .vpane.lower.commarea.buttons.l -side top -fill x
1794pack .vpane.lower.commarea.buttons -side left -fill y
1795
1796button .vpane.lower.commarea.buttons.rescan -text {Rescan} \
1797 -command do_rescan
1798pack .vpane.lower.commarea.buttons.rescan -side top -fill x
1799lappend disable_on_lock \
1800 {.vpane.lower.commarea.buttons.rescan conf -state}
1801
1802button .vpane.lower.commarea.buttons.incall -text {Add Existing} \
1803 -command do_add_all
1804pack .vpane.lower.commarea.buttons.incall -side top -fill x
1805lappend disable_on_lock \
1806 {.vpane.lower.commarea.buttons.incall conf -state}
1807
1808button .vpane.lower.commarea.buttons.signoff -text {Sign Off} \
1809 -command do_signoff
1810pack .vpane.lower.commarea.buttons.signoff -side top -fill x
1811
1812button .vpane.lower.commarea.buttons.commit -text {Commit} \
1813 -command do_commit
1814pack .vpane.lower.commarea.buttons.commit -side top -fill x
1815lappend disable_on_lock \
1816 {.vpane.lower.commarea.buttons.commit conf -state}
1817
1818# -- Commit Message Buffer
1819#
1820frame .vpane.lower.commarea.buffer
1821frame .vpane.lower.commarea.buffer.header
1822set ui_comm .vpane.lower.commarea.buffer.t
1823set ui_coml .vpane.lower.commarea.buffer.header.l
1824radiobutton .vpane.lower.commarea.buffer.header.new \
1825 -text {New Commit} \
1826 -command do_select_commit_type \
1827 -variable selected_commit_type \
1828 -value new
1829lappend disable_on_lock \
1830 [list .vpane.lower.commarea.buffer.header.new conf -state]
1831radiobutton .vpane.lower.commarea.buffer.header.amend \
1832 -text {Amend Last Commit} \
1833 -command do_select_commit_type \
1834 -variable selected_commit_type \
1835 -value amend
1836lappend disable_on_lock \
1837 [list .vpane.lower.commarea.buffer.header.amend conf -state]
1838label $ui_coml \
1839 -anchor w \
1840 -justify left
1841proc trace_commit_type {varname args} {
1842 global ui_coml commit_type
1843 switch -glob -- $commit_type {
1844 initial {set txt {Initial Commit Message:}}
1845 amend {set txt {Amended Commit Message:}}
1846 amend-initial {set txt {Amended Initial Commit Message:}}
1847 amend-merge {set txt {Amended Merge Commit Message:}}
1848 merge {set txt {Merge Commit Message:}}
1849 * {set txt {Commit Message:}}
1850 }
1851 $ui_coml conf -text $txt
1852}
1853trace add variable commit_type write trace_commit_type
1854pack $ui_coml -side left -fill x
1855pack .vpane.lower.commarea.buffer.header.amend -side right
1856pack .vpane.lower.commarea.buffer.header.new -side right
1857
1858text $ui_comm -background white -borderwidth 1 \
1859 -undo true \
1860 -maxundo 20 \
1861 -autoseparators true \
1862 -relief sunken \
1863 -width 75 -height 9 -wrap none \
1864 -font font_diff \
1865 -yscrollcommand {.vpane.lower.commarea.buffer.sby set}
1866scrollbar .vpane.lower.commarea.buffer.sby \
1867 -command [list $ui_comm yview]
1868pack .vpane.lower.commarea.buffer.header -side top -fill x
1869pack .vpane.lower.commarea.buffer.sby -side right -fill y
1870pack $ui_comm -side left -fill y
1871pack .vpane.lower.commarea.buffer -side left -fill y
1872
1873# -- Commit Message Buffer Context Menu
1874#
1875set ctxm .vpane.lower.commarea.buffer.ctxm
1876menu $ctxm -tearoff 0
1877$ctxm add command \
1878 -label {Cut} \
1879 -command {tk_textCut $ui_comm}
1880$ctxm add command \
1881 -label {Copy} \
1882 -command {tk_textCopy $ui_comm}
1883$ctxm add command \
1884 -label {Paste} \
1885 -command {tk_textPaste $ui_comm}
1886$ctxm add command \
1887 -label {Delete} \
1888 -command {$ui_comm delete sel.first sel.last}
1889$ctxm add separator
1890$ctxm add command \
1891 -label {Select All} \
1892 -command {focus $ui_comm;$ui_comm tag add sel 0.0 end}
1893$ctxm add command \
1894 -label {Copy All} \
1895 -command {
1896 $ui_comm tag add sel 0.0 end
1897 tk_textCopy $ui_comm
1898 $ui_comm tag remove sel 0.0 end
1899 }
1900$ctxm add separator
1901$ctxm add command \
1902 -label {Sign Off} \
1903 -command do_signoff
1904bind_button3 $ui_comm "tk_popup $ctxm %X %Y"
1905
1906# -- Diff Header
1907#
1908proc trace_current_diff_path {varname args} {
1909 global current_diff_path diff_actions file_states
1910 if {$current_diff_path eq {}} {
1911 set s {}
1912 set f {}
1913 set p {}
1914 set o disabled
1915 } else {
1916 set p $current_diff_path
1917 set s [mapdesc [lindex $file_states($p) 0] $p]
1918 set f {File:}
1919 set p [escape_path $p]
1920 set o normal
1921 }
1922
1923 .vpane.lower.diff.header.status configure -text $s
1924 .vpane.lower.diff.header.file configure -text $f
1925 .vpane.lower.diff.header.path configure -text $p
1926 foreach w $diff_actions {
1927 uplevel #0 $w $o
1928 }
1929}
1930trace add variable current_diff_path write trace_current_diff_path
1931
1932frame .vpane.lower.diff.header -background orange
1933label .vpane.lower.diff.header.status \
1934 -background orange \
1935 -width $max_status_desc \
1936 -anchor w \
1937 -justify left
1938label .vpane.lower.diff.header.file \
1939 -background orange \
1940 -anchor w \
1941 -justify left
1942label .vpane.lower.diff.header.path \
1943 -background orange \
1944 -anchor w \
1945 -justify left
1946pack .vpane.lower.diff.header.status -side left
1947pack .vpane.lower.diff.header.file -side left
1948pack .vpane.lower.diff.header.path -fill x
1949set ctxm .vpane.lower.diff.header.ctxm
1950menu $ctxm -tearoff 0
1951$ctxm add command \
1952 -label {Copy} \
1953 -command {
1954 clipboard clear
1955 clipboard append \
1956 -format STRING \
1957 -type STRING \
1958 -- $current_diff_path
1959 }
1960lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
1961bind_button3 .vpane.lower.diff.header.path "tk_popup $ctxm %X %Y"
1962
1963# -- Diff Body
1964#
1965frame .vpane.lower.diff.body
1966set ui_diff .vpane.lower.diff.body.t
1967text $ui_diff -background white -borderwidth 0 \
1968 -width 80 -height 15 -wrap none \
1969 -font font_diff \
1970 -xscrollcommand {.vpane.lower.diff.body.sbx set} \
1971 -yscrollcommand {.vpane.lower.diff.body.sby set} \
1972 -state disabled
1973scrollbar .vpane.lower.diff.body.sbx -orient horizontal \
1974 -command [list $ui_diff xview]
1975scrollbar .vpane.lower.diff.body.sby -orient vertical \
1976 -command [list $ui_diff yview]
1977pack .vpane.lower.diff.body.sbx -side bottom -fill x
1978pack .vpane.lower.diff.body.sby -side right -fill y
1979pack $ui_diff -side left -fill both -expand 1
1980pack .vpane.lower.diff.header -side top -fill x
1981pack .vpane.lower.diff.body -side bottom -fill both -expand 1
1982
1983$ui_diff tag conf d_cr -elide true
1984$ui_diff tag conf d_@ -foreground blue -font font_diffbold
1985$ui_diff tag conf d_+ -foreground {#00a000}
1986$ui_diff tag conf d_- -foreground red
1987
1988$ui_diff tag conf d_++ -foreground {#00a000}
1989$ui_diff tag conf d_-- -foreground red
1990$ui_diff tag conf d_+s \
1991 -foreground {#00a000} \
1992 -background {#e2effa}
1993$ui_diff tag conf d_-s \
1994 -foreground red \
1995 -background {#e2effa}
1996$ui_diff tag conf d_s+ \
1997 -foreground {#00a000} \
1998 -background ivory1
1999$ui_diff tag conf d_s- \
2000 -foreground red \
2001 -background ivory1
2002
2003$ui_diff tag conf d<<<<<<< \
2004 -foreground orange \
2005 -font font_diffbold
2006$ui_diff tag conf d======= \
2007 -foreground orange \
2008 -font font_diffbold
2009$ui_diff tag conf d>>>>>>> \
2010 -foreground orange \
2011 -font font_diffbold
2012
2013$ui_diff tag raise sel
2014
2015# -- Diff Body Context Menu
2016#
2017set ctxm .vpane.lower.diff.body.ctxm
2018menu $ctxm -tearoff 0
2019$ctxm add command \
2020 -label {Refresh} \
2021 -command reshow_diff
2022lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2023$ctxm add command \
2024 -label {Copy} \
2025 -command {tk_textCopy $ui_diff}
2026lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2027$ctxm add command \
2028 -label {Select All} \
2029 -command {focus $ui_diff;$ui_diff tag add sel 0.0 end}
2030lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2031$ctxm add command \
2032 -label {Copy All} \
2033 -command {
2034 $ui_diff tag add sel 0.0 end
2035 tk_textCopy $ui_diff
2036 $ui_diff tag remove sel 0.0 end
2037 }
2038lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2039$ctxm add separator
2040$ctxm add command \
2041 -label {Apply/Reverse Hunk} \
2042 -command {apply_hunk $cursorX $cursorY}
2043set ui_diff_applyhunk [$ctxm index last]
2044lappend diff_actions [list $ctxm entryconf $ui_diff_applyhunk -state]
2045$ctxm add separator
2046$ctxm add command \
2047 -label {Decrease Font Size} \
2048 -command {incr_font_size font_diff -1}
2049lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2050$ctxm add command \
2051 -label {Increase Font Size} \
2052 -command {incr_font_size font_diff 1}
2053lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2054$ctxm add separator
2055$ctxm add command \
2056 -label {Show Less Context} \
2057 -command {if {$repo_config(gui.diffcontext) >= 2} {
2058 incr repo_config(gui.diffcontext) -1
2059 reshow_diff
2060 }}
2061lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2062$ctxm add command \
2063 -label {Show More Context} \
2064 -command {
2065 incr repo_config(gui.diffcontext)
2066 reshow_diff
2067 }
2068lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2069$ctxm add separator
2070$ctxm add command -label {Options...} \
2071 -command do_options
2072bind_button3 $ui_diff "
2073 set cursorX %x
2074 set cursorY %y
2075 if {\$ui_index eq \$current_diff_side} {
2076 $ctxm entryconf $ui_diff_applyhunk -label {Unstage Hunk From Commit}
2077 } else {
2078 $ctxm entryconf $ui_diff_applyhunk -label {Stage Hunk For Commit}
2079 }
2080 tk_popup $ctxm %X %Y
2081"
2082unset ui_diff_applyhunk
2083
2084# -- Status Bar
2085#
2086label .status -textvariable ui_status_value \
2087 -anchor w \
2088 -justify left \
2089 -borderwidth 1 \
2090 -relief sunken
2091pack .status -anchor w -side bottom -fill x
2092
2093# -- Load geometry
2094#
2095catch {
2096set gm $repo_config(gui.geometry)
2097wm geometry . [lindex $gm 0]
2098.vpane sash place 0 \
2099 [lindex [.vpane sash coord 0] 0] \
2100 [lindex $gm 1]
2101.vpane.files sash place 0 \
2102 [lindex $gm 2] \
2103 [lindex [.vpane.files sash coord 0] 1]
2104unset gm
2105}
2106
2107# -- Key Bindings
2108#
2109bind $ui_comm <$M1B-Key-Return> {do_commit;break}
2110bind $ui_comm <$M1B-Key-i> {do_add_all;break}
2111bind $ui_comm <$M1B-Key-I> {do_add_all;break}
2112bind $ui_comm <$M1B-Key-x> {tk_textCut %W;break}
2113bind $ui_comm <$M1B-Key-X> {tk_textCut %W;break}
2114bind $ui_comm <$M1B-Key-c> {tk_textCopy %W;break}
2115bind $ui_comm <$M1B-Key-C> {tk_textCopy %W;break}
2116bind $ui_comm <$M1B-Key-v> {tk_textPaste %W; %W see insert; break}
2117bind $ui_comm <$M1B-Key-V> {tk_textPaste %W; %W see insert; break}
2118bind $ui_comm <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2119bind $ui_comm <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2120
2121bind $ui_diff <$M1B-Key-x> {tk_textCopy %W;break}
2122bind $ui_diff <$M1B-Key-X> {tk_textCopy %W;break}
2123bind $ui_diff <$M1B-Key-c> {tk_textCopy %W;break}
2124bind $ui_diff <$M1B-Key-C> {tk_textCopy %W;break}
2125bind $ui_diff <$M1B-Key-v> {break}
2126bind $ui_diff <$M1B-Key-V> {break}
2127bind $ui_diff <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2128bind $ui_diff <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2129bind $ui_diff <Key-Up> {catch {%W yview scroll -1 units};break}
2130bind $ui_diff <Key-Down> {catch {%W yview scroll 1 units};break}
2131bind $ui_diff <Key-Left> {catch {%W xview scroll -1 units};break}
2132bind $ui_diff <Key-Right> {catch {%W xview scroll 1 units};break}
2133bind $ui_diff <Key-k> {catch {%W yview scroll -1 units};break}
2134bind $ui_diff <Key-j> {catch {%W yview scroll 1 units};break}
2135bind $ui_diff <Key-h> {catch {%W xview scroll -1 units};break}
2136bind $ui_diff <Key-l> {catch {%W xview scroll 1 units};break}
2137bind $ui_diff <Control-Key-b> {catch {%W yview scroll -1 pages};break}
2138bind $ui_diff <Control-Key-f> {catch {%W yview scroll 1 pages};break}
2139bind $ui_diff <Button-1> {focus %W}
2140
2141if {[is_enabled branch]} {
2142 bind . <$M1B-Key-n> do_create_branch
2143 bind . <$M1B-Key-N> do_create_branch
2144}
2145
2146bind all <Key-F5> do_rescan
2147bind all <$M1B-Key-r> do_rescan
2148bind all <$M1B-Key-R> do_rescan
2149bind . <$M1B-Key-s> do_signoff
2150bind . <$M1B-Key-S> do_signoff
2151bind . <$M1B-Key-i> do_add_all
2152bind . <$M1B-Key-I> do_add_all
2153bind . <$M1B-Key-Return> do_commit
2154foreach i [list $ui_index $ui_workdir] {
2155 bind $i <Button-1> "toggle_or_diff $i %x %y; break"
2156 bind $i <$M1B-Button-1> "add_one_to_selection $i %x %y; break"
2157 bind $i <Shift-Button-1> "add_range_to_selection $i %x %y; break"
2158}
2159unset i
2160
2161set file_lists($ui_index) [list]
2162set file_lists($ui_workdir) [list]
2163
2164wm title . "[appname] ([reponame]) [file normalize [file dirname [gitdir]]]"
2165focus -force $ui_comm
2166
2167# -- Warn the user about environmental problems. Cygwin's Tcl
2168# does *not* pass its env array onto any processes it spawns.
2169# This means that git processes get none of our environment.
2170#
2171if {[is_Cygwin]} {
2172 set ignored_env 0
2173 set suggest_user {}
2174 set msg "Possible environment issues exist.
2175
2176The following environment variables are probably
2177going to be ignored by any Git subprocess run
2178by [appname]:
2179
2180"
2181 foreach name [array names env] {
2182 switch -regexp -- $name {
2183 {^GIT_INDEX_FILE$} -
2184 {^GIT_OBJECT_DIRECTORY$} -
2185 {^GIT_ALTERNATE_OBJECT_DIRECTORIES$} -
2186 {^GIT_DIFF_OPTS$} -
2187 {^GIT_EXTERNAL_DIFF$} -
2188 {^GIT_PAGER$} -
2189 {^GIT_TRACE$} -
2190 {^GIT_CONFIG$} -
2191 {^GIT_CONFIG_LOCAL$} -
2192 {^GIT_(AUTHOR|COMMITTER)_DATE$} {
2193 append msg " - $name\n"
2194 incr ignored_env
2195 }
2196 {^GIT_(AUTHOR|COMMITTER)_(NAME|EMAIL)$} {
2197 append msg " - $name\n"
2198 incr ignored_env
2199 set suggest_user $name
2200 }
2201 }
2202 }
2203 if {$ignored_env > 0} {
2204 append msg "
2205This is due to a known issue with the
2206Tcl binary distributed by Cygwin."
2207
2208 if {$suggest_user ne {}} {
2209 append msg "
2210
2211A good replacement for $suggest_user
2212is placing values for the user.name and
2213user.email settings into your personal
2214~/.gitconfig file.
2215"
2216 }
2217 warn_popup $msg
2218 }
2219 unset ignored_env msg suggest_user name
2220}
2221
2222# -- Only initialize complex UI if we are going to stay running.
2223#
2224if {[is_enabled transport]} {
2225 load_all_remotes
2226 load_all_heads
2227
2228 populate_branch_menu
2229 populate_fetch_menu
2230 populate_push_menu
2231}
2232
2233# -- Only suggest a gc run if we are going to stay running.
2234#
2235if {[is_enabled multicommit]} {
2236 set object_limit 2000
2237 if {[is_Windows]} {set object_limit 200}
2238 regexp {^([0-9]+) objects,} [git count-objects] _junk objects_current
2239 if {$objects_current >= $object_limit} {
2240 if {[ask_popup \
2241 "This repository currently has $objects_current loose objects.
2242
2243To maintain optimal performance it is strongly recommended that you compress the database when more than $object_limit loose objects exist.
2244
2245Compress the database now?"] eq yes} {
2246 do_gc
2247 }
2248 }
2249 unset object_limit _junk objects_current
2250}
2251
2252lock_index begin-read
2253after 1 do_rescan