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