2 # Tcl ignores the next line -*- tcl -*- \
5 set appvers
{@@GITGUI_VERSION@@
}
7 Copyright ©
2006, 2007 Shawn Pearce
, et. al.
9 This program is free software
; you can redistribute it and
/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation
; either version
2 of the License
, or
12 (at your option
) any later version.
14 This program is distributed
in the hope that it will be useful
,
15 but WITHOUT ANY WARRANTY
; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License
for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program
; if not
, write to the Free Software
21 Foundation
, Inc.
, 59 Temple Place
, Suite
330, Boston
, MA
02111-1307 USA
}
23 ######################################################################
25 ## Tcl/Tk sanity check
27 if {[catch
{package require Tcl
8.4} err
]
28 ||
[catch
{package require Tk
8.4} err
]
34 -title "git-gui: fatal error" \
39 ######################################################################
41 ## enable verbose loading?
43 if {![catch
{set _verbose
$env(GITGUI_VERBOSE
)}]} {
45 rename auto_load real__auto_load
46 proc auto_load
{name args
} {
47 puts stderr
"auto_load $name"
48 return [uplevel
1 real__auto_load
$name $args]
50 rename
source real__source
52 puts stderr
"source $name"
53 uplevel
1 real__source
$name
57 ######################################################################
59 ## configure our library
61 set oguilib
{@@GITGUI_LIBDIR@@
}
62 set oguirel
{@@GITGUI_RELATIVE@@
}
63 if {$oguirel eq
{1}} {
64 set oguilib
[file dirname [file dirname [file normalize
$argv0]]]
65 set oguilib
[file join $oguilib share git-gui lib
]
66 } elseif
{[string match @@
* $oguirel]} {
67 set oguilib
[file join [file dirname [file normalize
$argv0]] lib
]
70 set idx
[file join $oguilib tclIndex
]
71 if {[catch
{set fd
[open
$idx r
]} err
]} {
76 -title "git-gui: fatal error" \
80 if {[gets
$fd] eq
{# Autogenerated by git-gui Makefile}} {
82 while {[gets
$fd n
] >= 0} {
83 if {$n ne
{} && ![string match
#* $n]} {
95 if {[lsearch
-exact $loaded $p] >= 0} continue
96 source [file join $oguilib $p]
101 set auto_path
[concat
[list
$oguilib] $auto_path]
103 unset -nocomplain oguirel idx fd
105 ######################################################################
109 set _appname
[lindex
[file split $argv0] end
]
125 return [eval [concat
[list
file join $_gitdir] $args]]
128 proc gitexec
{args
} {
130 if {$_gitexec eq
{}} {
131 if {[catch
{set _gitexec
[git
--exec-path]} err
]} {
132 error
"Git not installed?\n\n$err"
138 return [eval [concat
[list
file join $_gitexec] $args]]
147 global tcl_platform tk_library
148 if {[tk windowingsystem
] eq
{aqua
}} {
156 if {$tcl_platform(platform
) eq
{windows
}} {
163 global tcl_platform _iscygwin
164 if {$_iscygwin eq
{}} {
165 if {$tcl_platform(platform
) eq
{windows
}} {
166 if {[catch
{set p
[exec cygpath
--windir]} err
]} {
178 proc is_enabled
{option
} {
179 global enabled_options
180 if {[catch
{set on
$enabled_options($option)}]} {return 0}
184 proc enable_option
{option
} {
185 global enabled_options
186 set enabled_options
($option) 1
189 proc disable_option
{option
} {
190 global enabled_options
191 set enabled_options
($option) 0
194 ######################################################################
198 proc is_many_config
{name
} {
199 switch
-glob -- $name {
208 proc is_config_true
{name
} {
210 if {[catch
{set v
$repo_config($name)}]} {
212 } elseif
{$v eq
{true
} ||
$v eq
{1} ||
$v eq
{yes}} {
219 proc get_config
{name
} {
221 if {[catch
{set v
$repo_config($name)}]} {
228 proc load_config
{include_global
} {
229 global repo_config global_config default_config
231 array
unset global_config
232 if {$include_global} {
234 set fd_rc
[open
"| git config --global --list" r
]
235 while {[gets
$fd_rc line
] >= 0} {
236 if {[regexp
{^
([^
=]+)=(.
*)$
} $line line name value
]} {
237 if {[is_many_config
$name]} {
238 lappend global_config
($name) $value
240 set global_config
($name) $value
248 array
unset repo_config
250 set fd_rc
[open
"| git config --list" r
]
251 while {[gets
$fd_rc line
] >= 0} {
252 if {[regexp
{^
([^
=]+)=(.
*)$
} $line line name value
]} {
253 if {[is_many_config
$name]} {
254 lappend repo_config
($name) $value
256 set repo_config
($name) $value
263 foreach name
[array names default_config
] {
264 if {[catch
{set v
$global_config($name)}]} {
265 set global_config
($name) $default_config($name)
267 if {[catch
{set v
$repo_config($name)}]} {
268 set repo_config
($name) $default_config($name)
273 ######################################################################
278 return [eval exec git
$args]
281 proc current-branch
{} {
283 set fd
[open
[gitdir HEAD
] r
]
284 if {[gets
$fd ref
] <16
285 ||
![regsub
{^ref
: refs
/heads
/} $ref {} ref
]} {
292 auto_load tk_optionMenu
293 rename tk_optionMenu real__tkOptionMenu
294 proc tk_optionMenu
{w varName args
} {
295 set m
[eval real__tkOptionMenu
$w $varName $args]
296 $m configure
-font font_ui
297 $w configure
-font font_ui
301 ######################################################################
305 if {{--version} eq
$argv ||
{version
} eq
$argv} {
306 puts
"git-gui version $appvers"
313 if {[catch
{set v
[git
--version]} err
]} {
314 catch
{wm withdraw .
}
315 error_popup
"Cannot determine Git version:
319 [appname] requires Git $req_maj.$req_min or later."
322 if {[regexp
{^git version
(\d
+)\.
(\d
+)} $v _junk act_maj act_min
]} {
323 if {$act_maj < $req_maj
324 ||
($act_maj == $req_maj && $act_min < $req_min)} {
325 catch
{wm withdraw .
}
326 error_popup
"[appname] requires Git $req_maj.$req_min or later.
332 catch
{wm withdraw .
}
333 error_popup
"Cannot parse Git version string:\n\n$v"
336 unset -nocomplain v _junk act_maj act_min req_maj req_min
338 ######################################################################
343 set _gitdir
$env(GIT_DIR
)
347 set _gitdir
[git rev-parse
--git-dir]
348 set _prefix
[git rev-parse
--show-prefix]
350 catch
{wm withdraw .
}
351 error_popup
"Cannot find the git directory:\n\n$err"
354 if {![file isdirectory
$_gitdir] && [is_Cygwin
]} {
355 catch
{set _gitdir
[exec cygpath
--unix $_gitdir]}
357 if {![file isdirectory
$_gitdir]} {
358 catch
{wm withdraw .
}
359 error_popup
"Git directory not found:\n\n$_gitdir"
362 if {[lindex
[file split $_gitdir] end
] ne
{.git
}} {
363 catch
{wm withdraw .
}
364 error_popup
"Cannot use funny .git directory:\n\n$_gitdir"
367 if {[catch
{cd [file dirname $_gitdir]} err
]} {
368 catch
{wm withdraw .
}
369 error_popup
"No working directory [file dirname $_gitdir]:\n\n$err"
372 set _reponame
[lindex
[file split \
373 [file normalize
[file dirname $_gitdir]]] \
376 ######################################################################
380 set current_diff_path
{}
381 set current_diff_side
{}
382 set diff_actions
[list
]
383 set ui_status_value
{Initializing...
}
387 set MERGE_HEAD
[list
]
390 set current_branch
{}
391 set current_diff_path
{}
392 set selected_commit_type new
394 ######################################################################
402 set disable_on_lock
[list
]
403 set index_lock_type none
405 proc lock_index
{type} {
406 global index_lock_type disable_on_lock
408 if {$index_lock_type eq
{none
}} {
409 set index_lock_type
$type
410 foreach w
$disable_on_lock {
411 uplevel
#0 $w disabled
414 } elseif
{$index_lock_type eq
"begin-$type"} {
415 set index_lock_type
$type
421 proc unlock_index
{} {
422 global index_lock_type disable_on_lock
424 set index_lock_type none
425 foreach w
$disable_on_lock {
430 ######################################################################
434 proc repository_state
{ctvar hdvar mhvar
} {
435 global current_branch
436 upvar
$ctvar ct
$hdvar hd
$mhvar mh
440 set current_branch
[current-branch
]
441 if {[catch
{set hd
[git rev-parse
--verify HEAD
]}]} {
447 set merge_head
[gitdir MERGE_HEAD
]
448 if {[file exists
$merge_head]} {
450 set fd_mh
[open
$merge_head r
]
451 while {[gets
$fd_mh line
] >= 0} {
462 global PARENT empty_tree
464 set p
[lindex
$PARENT 0]
468 if {$empty_tree eq
{}} {
469 set empty_tree
[git mktree
<< {}]
474 proc rescan
{after
{honor_trustmtime
1}} {
475 global HEAD PARENT MERGE_HEAD commit_type
476 global ui_index ui_workdir ui_status_value ui_comm
477 global rescan_active file_states
480 if {$rescan_active > 0 ||
![lock_index
read]} return
482 repository_state newType newHEAD newMERGE_HEAD
483 if {[string match amend
* $commit_type]
484 && $newType eq
{normal
}
485 && $newHEAD eq
$HEAD} {
489 set MERGE_HEAD
$newMERGE_HEAD
490 set commit_type
$newType
493 array
unset file_states
495 if {![$ui_comm edit modified
]
496 ||
[string trim
[$ui_comm get
0.0 end
]] eq
{}} {
497 if {[load_message GITGUI_MSG
]} {
498 } elseif
{[load_message MERGE_MSG
]} {
499 } elseif
{[load_message SQUASH_MSG
]} {
502 $ui_comm edit modified false
505 if {[is_enabled branch
]} {
510 if {$honor_trustmtime && $repo_config(gui.trustmtime
) eq
{true
}} {
511 rescan_stage2
{} $after
514 set ui_status_value
{Refreshing
file status...
}
515 set cmd
[list git update-index
]
517 lappend cmd
--unmerged
518 lappend cmd
--ignore-missing
519 lappend cmd
--refresh
520 set fd_rf
[open
"| $cmd" r
]
521 fconfigure
$fd_rf -blocking 0 -translation binary
522 fileevent
$fd_rf readable \
523 [list rescan_stage2
$fd_rf $after]
527 proc rescan_stage2
{fd after
} {
528 global ui_status_value
529 global rescan_active buf_rdi buf_rdf buf_rlo
533 if {![eof
$fd]} return
537 set ls_others
[list | git ls-files
--others -z \
538 --exclude-per-directory=.gitignore
]
539 set info_exclude
[gitdir info exclude
]
540 if {[file readable
$info_exclude]} {
541 lappend ls_others
"--exclude-from=$info_exclude"
549 set ui_status_value
{Scanning
for modified files ...
}
550 set fd_di
[open
"| git diff-index --cached -z [PARENT]" r
]
551 set fd_df
[open
"| git diff-files -z" r
]
552 set fd_lo
[open
$ls_others r
]
554 fconfigure
$fd_di -blocking 0 -translation binary
-encoding binary
555 fconfigure
$fd_df -blocking 0 -translation binary
-encoding binary
556 fconfigure
$fd_lo -blocking 0 -translation binary
-encoding binary
557 fileevent
$fd_di readable
[list read_diff_index
$fd_di $after]
558 fileevent
$fd_df readable
[list read_diff_files
$fd_df $after]
559 fileevent
$fd_lo readable
[list read_ls_others
$fd_lo $after]
562 proc load_message
{file} {
566 if {[file isfile
$f]} {
567 if {[catch
{set fd
[open
$f r
]}]} {
570 set content
[string trim
[read $fd]]
572 regsub
-all -line {[ \r\t]+$
} $content {} content
573 $ui_comm delete
0.0 end
574 $ui_comm insert end
$content
580 proc read_diff_index
{fd after
} {
583 append buf_rdi
[read $fd]
585 set n
[string length
$buf_rdi]
587 set z1
[string first
"\0" $buf_rdi $c]
590 set z2
[string first
"\0" $buf_rdi $z1]
594 set i
[split [string range
$buf_rdi $c [expr {$z1 - 2}]] { }]
595 set p
[string range
$buf_rdi $z1 [expr {$z2 - 1}]]
597 [encoding convertfrom
$p] \
599 [list
[lindex
$i 0] [lindex
$i 2]] \
605 set buf_rdi
[string range
$buf_rdi $c end
]
610 rescan_done
$fd buf_rdi
$after
613 proc read_diff_files
{fd after
} {
616 append buf_rdf
[read $fd]
618 set n
[string length
$buf_rdf]
620 set z1
[string first
"\0" $buf_rdf $c]
623 set z2
[string first
"\0" $buf_rdf $z1]
627 set i
[split [string range
$buf_rdf $c [expr {$z1 - 2}]] { }]
628 set p
[string range
$buf_rdf $z1 [expr {$z2 - 1}]]
630 [encoding convertfrom
$p] \
633 [list
[lindex
$i 0] [lindex
$i 2]]
638 set buf_rdf
[string range
$buf_rdf $c end
]
643 rescan_done
$fd buf_rdf
$after
646 proc read_ls_others
{fd after
} {
649 append buf_rlo
[read $fd]
650 set pck
[split $buf_rlo "\0"]
651 set buf_rlo
[lindex
$pck end
]
652 foreach p
[lrange
$pck 0 end-1
] {
653 merge_state
[encoding convertfrom
$p] ?O
655 rescan_done
$fd buf_rlo
$after
658 proc rescan_done
{fd buf after
} {
659 global rescan_active current_diff_path
660 global file_states repo_config
663 if {![eof
$fd]} return
666 if {[incr rescan_active
-1] > 0} return
671 if {$current_diff_path ne
{}} reshow_diff
675 proc prune_selection
{} {
676 global file_states selected_paths
678 foreach path
[array names selected_paths
] {
679 if {[catch
{set still_here
$file_states($path)}]} {
680 unset selected_paths
($path)
685 ######################################################################
689 proc mapicon
{w state path
} {
692 if {[catch
{set r
$all_icons($state$w)}]} {
693 puts
"error: no icon for $w state={$state} $path"
699 proc mapdesc
{state path
} {
702 if {[catch
{set r
$all_descs($state)}]} {
703 puts
"error: no desc for state={$state} $path"
709 proc escape_path
{path
} {
710 regsub
-all {\\} $path "\\\\" path
711 regsub
-all "\n" $path "\\n" path
715 proc short_path
{path
} {
716 return [escape_path
[lindex
[file split $path] end
]]
720 set null_sha1
[string repeat
0 40]
722 proc merge_state
{path new_state
{head_info
{}} {index_info
{}}} {
723 global file_states next_icon_id null_sha1
725 set s0
[string index
$new_state 0]
726 set s1
[string index
$new_state 1]
728 if {[catch
{set info
$file_states($path)}]} {
730 set icon n
[incr next_icon_id
]
732 set state
[lindex
$info 0]
733 set icon
[lindex
$info 1]
734 if {$head_info eq
{}} {set head_info
[lindex
$info 2]}
735 if {$index_info eq
{}} {set index_info
[lindex
$info 3]}
738 if {$s0 eq
{?
}} {set s0
[string index
$state 0]} \
739 elseif
{$s0 eq
{_
}} {set s0 _
}
741 if {$s1 eq
{?
}} {set s1
[string index
$state 1]} \
742 elseif
{$s1 eq
{_
}} {set s1 _
}
744 if {$s0 eq
{A
} && $s1 eq
{_
} && $head_info eq
{}} {
745 set head_info
[list
0 $null_sha1]
746 } elseif
{$s0 ne
{_
} && [string index
$state 0] eq
{_
}
747 && $head_info eq
{}} {
748 set head_info
$index_info
751 set file_states
($path) [list
$s0$s1 $icon \
752 $head_info $index_info \
757 proc display_file_helper
{w path icon_name old_m new_m
} {
761 set lno
[lsearch
-sorted -exact $file_lists($w) $path]
763 set file_lists
($w) [lreplace
$file_lists($w) $lno $lno]
765 $w conf
-state normal
766 $w delete
$lno.0 [expr {$lno + 1}].0
767 $w conf
-state disabled
769 } elseif
{$old_m eq
{_
} && $new_m ne
{_
}} {
770 lappend file_lists
($w) $path
771 set file_lists
($w) [lsort
-unique $file_lists($w)]
772 set lno
[lsearch
-sorted -exact $file_lists($w) $path]
774 $w conf
-state normal
775 $w image create
$lno.0 \
776 -align center
-padx 5 -pady 1 \
778 -image [mapicon
$w $new_m $path]
779 $w insert
$lno.1 "[escape_path $path]\n"
780 $w conf
-state disabled
781 } elseif
{$old_m ne
$new_m} {
782 $w conf
-state normal
783 $w image conf
$icon_name -image [mapicon
$w $new_m $path]
784 $w conf
-state disabled
788 proc display_file
{path state
} {
789 global file_states selected_paths
790 global ui_index ui_workdir
792 set old_m
[merge_state
$path $state]
793 set s
$file_states($path)
794 set new_m
[lindex
$s 0]
795 set icon_name
[lindex
$s 1]
797 set o
[string index
$old_m 0]
798 set n
[string index
$new_m 0]
805 display_file_helper
$ui_index $path $icon_name $o $n
807 if {[string index
$old_m 0] eq
{U
}} {
810 set o
[string index
$old_m 1]
812 if {[string index
$new_m 0] eq
{U
}} {
815 set n
[string index
$new_m 1]
817 display_file_helper
$ui_workdir $path $icon_name $o $n
819 if {$new_m eq
{__
}} {
820 unset file_states
($path)
821 catch
{unset selected_paths
($path)}
825 proc display_all_files_helper
{w path icon_name m
} {
828 lappend file_lists
($w) $path
829 set lno
[expr {[lindex
[split [$w index end
] .
] 0] - 1}]
830 $w image create end \
831 -align center
-padx 5 -pady 1 \
833 -image [mapicon
$w $m $path]
834 $w insert end
"[escape_path $path]\n"
837 proc display_all_files
{} {
838 global ui_index ui_workdir
839 global file_states file_lists
842 $ui_index conf
-state normal
843 $ui_workdir conf
-state normal
845 $ui_index delete
0.0 end
846 $ui_workdir delete
0.0 end
849 set file_lists
($ui_index) [list
]
850 set file_lists
($ui_workdir) [list
]
852 foreach path
[lsort
[array names file_states
]] {
853 set s
$file_states($path)
855 set icon_name
[lindex
$s 1]
857 set s
[string index
$m 0]
858 if {$s ne
{U
} && $s ne
{_
}} {
859 display_all_files_helper
$ui_index $path \
863 if {[string index
$m 0] eq
{U
}} {
866 set s
[string index
$m 1]
869 display_all_files_helper
$ui_workdir $path \
874 $ui_index conf
-state disabled
875 $ui_workdir conf
-state disabled
878 ######################################################################
883 #define mask_width 14
884 #define mask_height 15
885 static unsigned char mask_bits
[] = {
886 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
887 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
888 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
891 image create bitmap file_plain
-background white
-foreground black
-data {
892 #define plain_width 14
893 #define plain_height 15
894 static unsigned char plain_bits
[] = {
895 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
896 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
897 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
898 } -maskdata $filemask
900 image create bitmap file_mod
-background white
-foreground blue
-data {
902 #define mod_height 15
903 static unsigned char mod_bits
[] = {
904 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
905 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
906 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
907 } -maskdata $filemask
909 image create bitmap file_fulltick
-background white
-foreground "#007000" -data {
910 #define file_fulltick_width 14
911 #define file_fulltick_height 15
912 static unsigned char file_fulltick_bits
[] = {
913 0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
914 0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
915 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
916 } -maskdata $filemask
918 image create bitmap file_parttick
-background white
-foreground "#005050" -data {
919 #define parttick_width 14
920 #define parttick_height 15
921 static unsigned char parttick_bits
[] = {
922 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
923 0x7a, 0x14, 0x02, 0x16, 0x02, 0x13, 0x8a, 0x11, 0xda, 0x10, 0x72, 0x10,
924 0x22, 0x10, 0x02, 0x10, 0xfe, 0x1f};
925 } -maskdata $filemask
927 image create bitmap file_question
-background white
-foreground black
-data {
928 #define file_question_width 14
929 #define file_question_height 15
930 static unsigned char file_question_bits
[] = {
931 0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
932 0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
933 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
934 } -maskdata $filemask
936 image create bitmap file_removed
-background white
-foreground red
-data {
937 #define file_removed_width 14
938 #define file_removed_height 15
939 static unsigned char file_removed_bits
[] = {
940 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
941 0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
942 0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
943 } -maskdata $filemask
945 image create bitmap file_merge
-background white
-foreground blue
-data {
946 #define file_merge_width 14
947 #define file_merge_height 15
948 static unsigned char file_merge_bits
[] = {
949 0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
950 0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
951 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
952 } -maskdata $filemask
955 #define file_width 18
956 #define file_height 18
957 static unsigned char file_bits
[] = {
958 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x03, 0x00,
959 0x0c, 0x03, 0x00, 0x04, 0xfe, 0x00, 0x06, 0x80, 0x00, 0xff, 0x9f, 0x00,
960 0x03, 0x98, 0x00, 0x02, 0x90, 0x00, 0x06, 0xb0, 0x00, 0x04, 0xa0, 0x00,
961 0x0c, 0xe0, 0x00, 0x08, 0xc0, 0x00, 0xf8, 0xff, 0x00, 0x00, 0x00, 0x00,
962 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
964 image create bitmap file_dir
-background white
-foreground blue \
965 -data $file_dir_data -maskdata $file_dir_data
968 set file_uplevel_data
{
971 static unsigned char up_bits
[] = {
972 0x80, 0x00, 0xc0, 0x01, 0xe0, 0x03, 0xf0, 0x07, 0xf8, 0x0f, 0xfc, 0x1f,
973 0xfe, 0x3f, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01,
974 0xc0, 0x01, 0xc0, 0x01, 0x00, 0x00};
976 image create bitmap file_uplevel
-background white
-foreground red \
977 -data $file_uplevel_data -maskdata $file_uplevel_data
978 unset file_uplevel_data
980 set ui_index .vpane.files.index.list
981 set ui_workdir .vpane.files.workdir.list
983 set all_icons
(_
$ui_index) file_plain
984 set all_icons
(A
$ui_index) file_fulltick
985 set all_icons
(M
$ui_index) file_fulltick
986 set all_icons
(D
$ui_index) file_removed
987 set all_icons
(U
$ui_index) file_merge
989 set all_icons
(_
$ui_workdir) file_plain
990 set all_icons
(M
$ui_workdir) file_mod
991 set all_icons
(D
$ui_workdir) file_question
992 set all_icons
(U
$ui_workdir) file_merge
993 set all_icons
(O
$ui_workdir) file_plain
995 set max_status_desc
0
999 {_M
"Modified, not staged"}
1000 {M_
"Staged for commit"}
1001 {MM
"Portions staged for commit"}
1002 {MD
"Staged for commit, missing"}
1004 {_O
"Untracked, not staged"}
1005 {A_
"Staged for commit"}
1006 {AM
"Portions staged for commit"}
1007 {AD
"Staged for commit, missing"}
1010 {D_
"Staged for removal"}
1011 {DO
"Staged for removal, still present"}
1013 {U_
"Requires merge resolution"}
1014 {UU
"Requires merge resolution"}
1015 {UM
"Requires merge resolution"}
1016 {UD
"Requires merge resolution"}
1018 if {$max_status_desc < [string length
[lindex
$i 1]]} {
1019 set max_status_desc
[string length
[lindex
$i 1]]
1021 set all_descs
([lindex
$i 0]) [lindex
$i 1]
1025 ######################################################################
1029 proc bind_button3
{w cmd
} {
1030 bind $w <Any-Button-3
> $cmd
1032 bind $w <Control-Button-1
> $cmd
1036 proc scrollbar2many
{list mode args
} {
1037 foreach w
$list {eval $w $mode $args}
1040 proc many2scrollbar
{list mode sb top bottom
} {
1041 $sb set $top $bottom
1042 foreach w
$list {$w $mode moveto
$top}
1045 proc incr_font_size
{font
{amt
1}} {
1046 set sz
[font configure
$font -size]
1048 font configure
$font -size $sz
1049 font configure
${font}bold
-size $sz
1050 font configure
${font}italic
-size $sz
1053 ######################################################################
1057 set starting_gitk_msg
{Starting gitk... please
wait...
}
1059 proc do_gitk
{revs
} {
1060 global env ui_status_value starting_gitk_msg
1062 # -- Always start gitk through whatever we were loaded with. This
1063 # lets us bypass using shell process on Windows systems.
1065 set cmd
[list
[info nameofexecutable
]]
1066 lappend cmd
[gitexec gitk
]
1072 if {[catch
{eval exec $cmd &} err
]} {
1073 error_popup
"Failed to start gitk:\n\n$err"
1075 set ui_status_value
$starting_gitk_msg
1077 if {$ui_status_value eq
$starting_gitk_msg} {
1078 set ui_status_value
{Ready.
}
1087 global ui_comm is_quitting repo_config commit_type
1089 if {$is_quitting} return
1092 if {[winfo exists
$ui_comm]} {
1093 # -- Stash our current commit buffer.
1095 set save
[gitdir GITGUI_MSG
]
1096 set msg
[string trim
[$ui_comm get
0.0 end
]]
1097 regsub
-all -line {[ \r\t]+$
} $msg {} msg
1098 if {(![string match amend
* $commit_type]
1099 ||
[$ui_comm edit modified
])
1102 set fd
[open
$save w
]
1103 puts
-nonewline $fd $msg
1107 catch
{file delete
$save}
1110 # -- Stash our current window geometry into this repository.
1112 set cfg_geometry
[list
]
1113 lappend cfg_geometry
[wm geometry .
]
1114 lappend cfg_geometry
[lindex
[.vpane sash coord
0] 1]
1115 lappend cfg_geometry
[lindex
[.vpane.files sash coord
0] 0]
1116 if {[catch
{set rc_geometry
$repo_config(gui.geometry
)}]} {
1119 if {$cfg_geometry ne
$rc_geometry} {
1120 catch
{git config gui.geometry
$cfg_geometry}
1128 rescan
{set ui_status_value
{Ready.
}}
1135 proc toggle_or_diff
{w x y
} {
1136 global file_states file_lists current_diff_path ui_index ui_workdir
1137 global last_clicked selected_paths
1139 set pos
[split [$w index @
$x,$y] .
]
1140 set lno
[lindex
$pos 0]
1141 set col [lindex
$pos 1]
1142 set path
[lindex
$file_lists($w) [expr {$lno - 1}]]
1148 set last_clicked
[list
$w $lno]
1149 array
unset selected_paths
1150 $ui_index tag remove in_sel
0.0 end
1151 $ui_workdir tag remove in_sel
0.0 end
1154 if {$current_diff_path eq
$path} {
1155 set after
{reshow_diff
;}
1159 if {$w eq
$ui_index} {
1161 "Unstaging [short_path $path] from commit" \
1163 [concat
$after {set ui_status_value
{Ready.
}}]
1164 } elseif
{$w eq
$ui_workdir} {
1166 "Adding [short_path $path]" \
1168 [concat
$after {set ui_status_value
{Ready.
}}]
1171 show_diff
$path $w $lno
1175 proc add_one_to_selection
{w x y
} {
1176 global file_lists last_clicked selected_paths
1178 set lno
[lindex
[split [$w index @
$x,$y] .
] 0]
1179 set path
[lindex
$file_lists($w) [expr {$lno - 1}]]
1185 if {$last_clicked ne
{}
1186 && [lindex
$last_clicked 0] ne
$w} {
1187 array
unset selected_paths
1188 [lindex
$last_clicked 0] tag remove in_sel
0.0 end
1191 set last_clicked
[list
$w $lno]
1192 if {[catch
{set in_sel
$selected_paths($path)}]} {
1196 unset selected_paths
($path)
1197 $w tag remove in_sel
$lno.0 [expr {$lno + 1}].0
1199 set selected_paths
($path) 1
1200 $w tag add in_sel
$lno.0 [expr {$lno + 1}].0
1204 proc add_range_to_selection
{w x y
} {
1205 global file_lists last_clicked selected_paths
1207 if {[lindex
$last_clicked 0] ne
$w} {
1208 toggle_or_diff
$w $x $y
1212 set lno
[lindex
[split [$w index @
$x,$y] .
] 0]
1213 set lc
[lindex
$last_clicked 1]
1222 foreach path
[lrange
$file_lists($w) \
1223 [expr {$begin - 1}] \
1224 [expr {$end - 1}]] {
1225 set selected_paths
($path) 1
1227 $w tag add in_sel
$begin.0 [expr {$end + 1}].0
1230 ######################################################################
1234 set cursor_ptr arrow
1235 font create font_diff
-family Courier
-size 10
1239 eval font configure font_ui
[font actual
[.dummy cget
-font]]
1243 font create font_uiitalic
1244 font create font_uibold
1245 font create font_diffbold
1246 font create font_diffitalic
1248 foreach class
{Button Checkbutton Entry Label
1249 Labelframe Listbox Menu Message
1250 Radiobutton Spinbox Text
} {
1251 option add
*$class.font font_ui
1255 if {[is_Windows
] ||
[is_MacOSX
]} {
1256 option add
*Menu.tearOff
0
1267 proc apply_config
{} {
1268 global repo_config font_descs
1270 foreach option
$font_descs {
1271 set name
[lindex
$option 0]
1272 set font
[lindex
$option 1]
1274 foreach
{cn cv
} $repo_config(gui.
$name) {
1275 font configure
$font $cn $cv
1278 error_popup
"Invalid font specified in gui.$name:\n\n$err"
1280 foreach
{cn cv
} [font configure
$font] {
1281 font configure
${font}bold
$cn $cv
1282 font configure
${font}italic
$cn $cv
1284 font configure
${font}bold
-weight bold
1285 font configure
${font}italic
-slant italic
1289 set default_config
(merge.diffstat
) true
1290 set default_config
(merge.summary
) false
1291 set default_config
(merge.verbosity
) 2
1292 set default_config
(user.name
) {}
1293 set default_config
(user.email
) {}
1295 set default_config
(gui.pruneduringfetch
) false
1296 set default_config
(gui.trustmtime
) false
1297 set default_config
(gui.diffcontext
) 5
1298 set default_config
(gui.newbranchtemplate
) {}
1299 set default_config
(gui.fontui
) [font configure font_ui
]
1300 set default_config
(gui.fontdiff
) [font configure font_diff
]
1302 {fontui font_ui
{Main Font
}}
1303 {fontdiff font_diff
{Diff
/Console Font
}}
1308 ######################################################################
1310 ## feature option selection
1312 if {[regexp
{^git-
(.
+)$
} [appname
] _junk subcommand
]} {
1317 if {$subcommand eq
{gui.sh
}} {
1320 if {$subcommand eq
{gui
} && [llength
$argv] > 0} {
1321 set subcommand
[lindex
$argv 0]
1322 set argv
[lrange
$argv 1 end
]
1325 enable_option multicommit
1326 enable_option branch
1327 enable_option transport
1329 switch
-- $subcommand {
1332 disable_option multicommit
1333 disable_option branch
1334 disable_option transport
1337 enable_option singlecommit
1339 disable_option multicommit
1340 disable_option branch
1341 disable_option transport
1345 ######################################################################
1353 menu .mbar
-tearoff 0
1354 .mbar add cascade
-label Repository
-menu .mbar.repository
1355 .mbar add cascade
-label Edit
-menu .mbar.edit
1356 if {[is_enabled branch
]} {
1357 .mbar add cascade
-label Branch
-menu .mbar.branch
1359 if {[is_enabled multicommit
] ||
[is_enabled singlecommit
]} {
1360 .mbar add cascade
-label Commit
-menu .mbar.commit
1362 if {[is_enabled transport
]} {
1363 .mbar add cascade
-label Merge
-menu .mbar.merge
1364 .mbar add cascade
-label Fetch
-menu .mbar.fetch
1365 .mbar add cascade
-label Push
-menu .mbar.push
1367 . configure
-menu .mbar
1369 # -- Repository Menu
1371 menu .mbar.repository
1373 .mbar.repository add
command \
1374 -label {Browse Current Branch
} \
1375 -command {browser
::new
$current_branch}
1376 trace add variable current_branch
write ".mbar.repository entryconf [.mbar.repository index last] -label \"Browse \$current_branch\" ;#"
1377 .mbar.repository add separator
1379 .mbar.repository add
command \
1380 -label {Visualize Current Branch
} \
1381 -command {do_gitk
$current_branch}
1382 trace add variable current_branch
write ".mbar.repository entryconf [.mbar.repository index last] -label \"Visualize \$current_branch\" ;#"
1383 .mbar.repository add
command \
1384 -label {Visualize All Branches
} \
1385 -command {do_gitk
--all}
1386 .mbar.repository add separator
1388 if {[is_enabled multicommit
]} {
1389 .mbar.repository add
command -label {Database Statistics
} \
1392 .mbar.repository add
command -label {Compress Database
} \
1395 .mbar.repository add
command -label {Verify Database
} \
1396 -command do_fsck_objects
1398 .mbar.repository add separator
1401 .mbar.repository add
command \
1402 -label {Create Desktop Icon
} \
1403 -command do_cygwin_shortcut
1404 } elseif
{[is_Windows
]} {
1405 .mbar.repository add
command \
1406 -label {Create Desktop Icon
} \
1407 -command do_windows_shortcut
1408 } elseif
{[is_MacOSX
]} {
1409 .mbar.repository add
command \
1410 -label {Create Desktop Icon
} \
1411 -command do_macosx_app
1415 .mbar.repository add
command -label Quit \
1422 .mbar.edit add
command -label Undo \
1423 -command {catch
{[focus
] edit undo
}} \
1425 .mbar.edit add
command -label Redo \
1426 -command {catch
{[focus
] edit redo
}} \
1428 .mbar.edit add separator
1429 .mbar.edit add
command -label Cut \
1430 -command {catch
{tk_textCut
[focus
]}} \
1432 .mbar.edit add
command -label Copy \
1433 -command {catch
{tk_textCopy
[focus
]}} \
1435 .mbar.edit add
command -label Paste \
1436 -command {catch
{tk_textPaste
[focus
]; [focus
] see insert
}} \
1438 .mbar.edit add
command -label Delete \
1439 -command {catch
{[focus
] delete sel.first sel.last
}} \
1441 .mbar.edit add separator
1442 .mbar.edit add
command -label {Select All
} \
1443 -command {catch
{[focus
] tag add sel
0.0 end
}} \
1448 if {[is_enabled branch
]} {
1451 .mbar.branch add
command -label {Create...
} \
1452 -command do_create_branch \
1454 lappend disable_on_lock
[list .mbar.branch entryconf \
1455 [.mbar.branch index last
] -state]
1457 .mbar.branch add
command -label {Rename...
} \
1458 -command branch_rename
::dialog
1459 lappend disable_on_lock
[list .mbar.branch entryconf \
1460 [.mbar.branch index last
] -state]
1462 .mbar.branch add
command -label {Delete...
} \
1463 -command do_delete_branch
1464 lappend disable_on_lock
[list .mbar.branch entryconf \
1465 [.mbar.branch index last
] -state]
1467 .mbar.branch add
command -label {Reset...
} \
1468 -command merge
::reset_hard
1469 lappend disable_on_lock
[list .mbar.branch entryconf \
1470 [.mbar.branch index last
] -state]
1475 if {[is_enabled multicommit
] ||
[is_enabled singlecommit
]} {
1478 .mbar.commit add radiobutton \
1479 -label {New Commit
} \
1480 -command do_select_commit_type \
1481 -variable selected_commit_type \
1483 lappend disable_on_lock \
1484 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1486 .mbar.commit add radiobutton \
1487 -label {Amend Last Commit
} \
1488 -command do_select_commit_type \
1489 -variable selected_commit_type \
1491 lappend disable_on_lock \
1492 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1494 .mbar.commit add separator
1496 .mbar.commit add
command -label Rescan \
1497 -command do_rescan \
1499 lappend disable_on_lock \
1500 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1502 .mbar.commit add
command -label {Add To Commit
} \
1503 -command do_add_selection
1504 lappend disable_on_lock \
1505 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1507 .mbar.commit add
command -label {Add Existing To Commit
} \
1508 -command do_add_all \
1510 lappend disable_on_lock \
1511 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1513 .mbar.commit add
command -label {Unstage From Commit
} \
1514 -command do_unstage_selection
1515 lappend disable_on_lock \
1516 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1518 .mbar.commit add
command -label {Revert Changes
} \
1519 -command do_revert_selection
1520 lappend disable_on_lock \
1521 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1523 .mbar.commit add separator
1525 .mbar.commit add
command -label {Sign Off
} \
1526 -command do_signoff \
1529 .mbar.commit add
command -label Commit \
1530 -command do_commit \
1531 -accelerator $M1T-Return
1532 lappend disable_on_lock \
1533 [list .mbar.commit entryconf
[.mbar.commit index last
] -state]
1538 if {[is_enabled branch
]} {
1540 .mbar.merge add
command -label {Local Merge...
} \
1541 -command merge
::dialog
1542 lappend disable_on_lock \
1543 [list .mbar.merge entryconf
[.mbar.merge index last
] -state]
1544 .mbar.merge add
command -label {Abort Merge...
} \
1545 -command merge
::reset_hard
1546 lappend disable_on_lock \
1547 [list .mbar.merge entryconf
[.mbar.merge index last
] -state]
1553 if {[is_enabled transport
]} {
1557 .mbar.push add
command -label {Push...
} \
1558 -command do_push_anywhere
1559 .mbar.push add
command -label {Delete...
} \
1560 -command remote_branch_delete
::dialog
1564 # -- Apple Menu (Mac OS X only)
1566 .mbar add cascade
-label Apple
-menu .mbar.apple
1569 .mbar.apple add
command -label "About [appname]" \
1571 .mbar.apple add
command -label "Options..." \
1576 .mbar.edit add separator
1577 .mbar.edit add
command -label {Options...
} \
1582 if {[file exists
/usr
/local
/miga
/lib
/gui-miga
]
1583 && [file exists .pvcsrc
]} {
1585 global ui_status_value
1586 if {![lock_index update
]} return
1587 set cmd
[list sh
--login -c "/usr/local/miga/lib/gui-miga \"[pwd]\""]
1588 set miga_fd
[open
"|$cmd" r
]
1589 fconfigure
$miga_fd -blocking 0
1590 fileevent
$miga_fd readable
[list miga_done
$miga_fd]
1591 set ui_status_value
{Running miga...
}
1593 proc miga_done
{fd
} {
1598 rescan
[list
set ui_status_value
{Ready.
}]
1601 .mbar add cascade
-label Tools
-menu .mbar.tools
1603 .mbar.tools add
command -label "Migrate" \
1605 lappend disable_on_lock \
1606 [list .mbar.tools entryconf
[.mbar.tools index last
] -state]
1612 .mbar add cascade
-label Help
-menu .mbar.
help
1616 .mbar.
help add
command -label "About [appname]" \
1621 catch
{set browser
$repo_config(instaweb.browser
)}
1622 set doc_path
[file dirname [gitexec
]]
1623 set doc_path
[file join $doc_path Documentation index.html
]
1626 set doc_path
[exec cygpath
--mixed $doc_path]
1629 if {$browser eq
{}} {
1632 } elseif
{[is_Cygwin
]} {
1633 set program_files
[file dirname [exec cygpath
--windir]]
1634 set program_files
[file join $program_files {Program Files
}]
1635 set firefox
[file join $program_files {Mozilla Firefox
} firefox.exe
]
1636 set ie
[file join $program_files {Internet Explorer
} IEXPLORE.EXE
]
1637 if {[file exists
$firefox]} {
1638 set browser
$firefox
1639 } elseif
{[file exists
$ie]} {
1642 unset program_files firefox ie
1646 if {[file isfile
$doc_path]} {
1647 set doc_url
"file:$doc_path"
1649 set doc_url
{http
://www.kernel.org
/pub
/software
/scm
/git
/docs
/}
1652 if {$browser ne
{}} {
1653 .mbar.
help add
command -label {Online Documentation
} \
1654 -command [list
exec $browser $doc_url &]
1656 unset browser doc_path doc_url
1658 # -- Standard bindings
1660 bind .
<Destroy
> {if {{%W
} eq
{.
}} do_quit
}
1661 bind all
<$M1B-Key-q> do_quit
1662 bind all
<$M1B-Key-Q> do_quit
1663 bind all
<$M1B-Key-w> {destroy
[winfo toplevel
%W
]}
1664 bind all
<$M1B-Key-W> {destroy
[winfo toplevel
%W
]}
1666 set subcommand_args
{}
1668 puts stderr
"usage: $::argv0 $::subcommand $::subcommand_args"
1672 # -- Not a normal commit type invocation? Do that instead!
1674 switch
-- $subcommand {
1676 set subcommand_args
{rev?
}
1677 switch
[llength
$argv] {
1678 0 { set current_branch
[current-branch
] }
1679 1 { set current_branch
[lindex
$argv 0] }
1682 browser
::new
$current_branch
1686 set subcommand_args
{rev? path?
}
1691 if {$is_path ||
[file exists
$_prefix$a]} {
1692 if {$path ne
{}} usage
1695 } elseif
{$a eq
{--}} {
1697 if {$head ne
{}} usage
1702 } elseif
{$head eq
{}} {
1703 if {$head ne
{}} usage
1712 set current_branch
[current-branch
]
1714 set current_branch
$head
1717 if {$path eq
{}} usage
1718 blame
::new
$head $path
1723 if {[llength
$argv] != 0} {
1724 puts
-nonewline stderr
"usage: $argv0"
1725 if {$subcommand ne
{gui
} && [appname
] ne
"git-$subcommand"} {
1726 puts
-nonewline stderr
" $subcommand"
1731 # fall through to setup UI for commits
1734 puts stderr
"usage: $argv0 \[{blame|browser|citool}\]"
1745 -text {Current Branch
:} \
1749 -textvariable current_branch \
1752 pack .branch.l1
-side left
1753 pack .branch.cb
-side left
-fill x
1754 pack .branch
-side top
-fill x
1756 # -- Main Window Layout
1758 panedwindow .vpane
-orient vertical
1759 panedwindow .vpane.files
-orient horizontal
1760 .vpane add .vpane.files
-sticky nsew
-height 100 -width 200
1761 pack .vpane
-anchor n
-side top
-fill both
-expand 1
1763 # -- Index File List
1765 frame .vpane.files.index
-height 100 -width 200
1766 label .vpane.files.index.title
-text {Staged Changes
(Will Be Committed
)} \
1767 -background lightgreen
1768 text
$ui_index -background white
-borderwidth 0 \
1769 -width 20 -height 10 \
1771 -cursor $cursor_ptr \
1772 -xscrollcommand {.vpane.files.index.sx
set} \
1773 -yscrollcommand {.vpane.files.index.sy
set} \
1775 scrollbar .vpane.files.index.sx
-orient h
-command [list
$ui_index xview
]
1776 scrollbar .vpane.files.index.sy
-orient v
-command [list
$ui_index yview
]
1777 pack .vpane.files.index.title
-side top
-fill x
1778 pack .vpane.files.index.sx
-side bottom
-fill x
1779 pack .vpane.files.index.sy
-side right
-fill y
1780 pack
$ui_index -side left
-fill both
-expand 1
1781 .vpane.files add .vpane.files.index
-sticky nsew
1783 # -- Working Directory File List
1785 frame .vpane.files.workdir
-height 100 -width 200
1786 label .vpane.files.workdir.title
-text {Unstaged Changes
(Will Not Be Committed
)} \
1787 -background lightsalmon
1788 text
$ui_workdir -background white
-borderwidth 0 \
1789 -width 20 -height 10 \
1791 -cursor $cursor_ptr \
1792 -xscrollcommand {.vpane.files.workdir.sx
set} \
1793 -yscrollcommand {.vpane.files.workdir.sy
set} \
1795 scrollbar .vpane.files.workdir.sx
-orient h
-command [list
$ui_workdir xview
]
1796 scrollbar .vpane.files.workdir.sy
-orient v
-command [list
$ui_workdir yview
]
1797 pack .vpane.files.workdir.title
-side top
-fill x
1798 pack .vpane.files.workdir.sx
-side bottom
-fill x
1799 pack .vpane.files.workdir.sy
-side right
-fill y
1800 pack
$ui_workdir -side left
-fill both
-expand 1
1801 .vpane.files add .vpane.files.workdir
-sticky nsew
1803 foreach i
[list
$ui_index $ui_workdir] {
1804 $i tag conf in_diff
-background lightgray
1805 $i tag conf in_sel
-background lightgray
1809 # -- Diff and Commit Area
1811 frame .vpane.lower
-height 300 -width 400
1812 frame .vpane.lower.commarea
1813 frame .vpane.lower.
diff -relief sunken
-borderwidth 1
1814 pack .vpane.lower.commarea
-side top
-fill x
1815 pack .vpane.lower.
diff -side bottom
-fill both
-expand 1
1816 .vpane add .vpane.lower
-sticky nsew
1818 # -- Commit Area Buttons
1820 frame .vpane.lower.commarea.buttons
1821 label .vpane.lower.commarea.buttons.l
-text {} \
1824 pack .vpane.lower.commarea.buttons.l
-side top
-fill x
1825 pack .vpane.lower.commarea.buttons
-side left
-fill y
1827 button .vpane.lower.commarea.buttons.rescan
-text {Rescan
} \
1829 pack .vpane.lower.commarea.buttons.rescan
-side top
-fill x
1830 lappend disable_on_lock \
1831 {.vpane.lower.commarea.buttons.rescan conf
-state}
1833 button .vpane.lower.commarea.buttons.incall
-text {Add Existing
} \
1835 pack .vpane.lower.commarea.buttons.incall
-side top
-fill x
1836 lappend disable_on_lock \
1837 {.vpane.lower.commarea.buttons.incall conf
-state}
1839 button .vpane.lower.commarea.buttons.signoff
-text {Sign Off
} \
1841 pack .vpane.lower.commarea.buttons.signoff
-side top
-fill x
1843 button .vpane.lower.commarea.buttons.commit
-text {Commit
} \
1845 pack .vpane.lower.commarea.buttons.commit
-side top
-fill x
1846 lappend disable_on_lock \
1847 {.vpane.lower.commarea.buttons.commit conf
-state}
1849 # -- Commit Message Buffer
1851 frame .vpane.lower.commarea.buffer
1852 frame .vpane.lower.commarea.buffer.header
1853 set ui_comm .vpane.lower.commarea.buffer.t
1854 set ui_coml .vpane.lower.commarea.buffer.header.l
1855 radiobutton .vpane.lower.commarea.buffer.header.new \
1856 -text {New Commit
} \
1857 -command do_select_commit_type \
1858 -variable selected_commit_type \
1860 lappend disable_on_lock \
1861 [list .vpane.lower.commarea.buffer.header.new conf
-state]
1862 radiobutton .vpane.lower.commarea.buffer.header.amend \
1863 -text {Amend Last Commit
} \
1864 -command do_select_commit_type \
1865 -variable selected_commit_type \
1867 lappend disable_on_lock \
1868 [list .vpane.lower.commarea.buffer.header.amend conf
-state]
1872 proc trace_commit_type
{varname args
} {
1873 global ui_coml commit_type
1874 switch
-glob -- $commit_type {
1875 initial
{set txt
{Initial Commit Message
:}}
1876 amend
{set txt
{Amended Commit Message
:}}
1877 amend-initial
{set txt
{Amended Initial Commit Message
:}}
1878 amend-merge
{set txt
{Amended Merge Commit Message
:}}
1879 merge
{set txt
{Merge Commit Message
:}}
1880 * {set txt
{Commit Message
:}}
1882 $ui_coml conf
-text $txt
1884 trace add variable commit_type
write trace_commit_type
1885 pack
$ui_coml -side left
-fill x
1886 pack .vpane.lower.commarea.buffer.header.amend
-side right
1887 pack .vpane.lower.commarea.buffer.header.new
-side right
1889 text
$ui_comm -background white
-borderwidth 1 \
1892 -autoseparators true \
1894 -width 75 -height 9 -wrap none \
1896 -yscrollcommand {.vpane.lower.commarea.buffer.sby
set}
1897 scrollbar .vpane.lower.commarea.buffer.sby \
1898 -command [list
$ui_comm yview
]
1899 pack .vpane.lower.commarea.buffer.header
-side top
-fill x
1900 pack .vpane.lower.commarea.buffer.sby
-side right
-fill y
1901 pack
$ui_comm -side left
-fill y
1902 pack .vpane.lower.commarea.buffer
-side left
-fill y
1904 # -- Commit Message Buffer Context Menu
1906 set ctxm .vpane.lower.commarea.buffer.ctxm
1907 menu
$ctxm -tearoff 0
1910 -command {tk_textCut
$ui_comm}
1913 -command {tk_textCopy
$ui_comm}
1916 -command {tk_textPaste
$ui_comm}
1919 -command {$ui_comm delete sel.first sel.last
}
1922 -label {Select All
} \
1923 -command {focus
$ui_comm;$ui_comm tag add sel
0.0 end
}
1927 $ui_comm tag add sel
0.0 end
1928 tk_textCopy
$ui_comm
1929 $ui_comm tag remove sel
0.0 end
1935 bind_button3
$ui_comm "tk_popup $ctxm %X %Y"
1939 proc trace_current_diff_path
{varname args
} {
1940 global current_diff_path diff_actions file_states
1941 if {$current_diff_path eq
{}} {
1947 set p
$current_diff_path
1948 set s
[mapdesc
[lindex
$file_states($p) 0] $p]
1950 set p
[escape_path
$p]
1954 .vpane.lower.
diff.header.status configure
-text $s
1955 .vpane.lower.
diff.header.
file configure
-text $f
1956 .vpane.lower.
diff.header.path configure
-text $p
1957 foreach w
$diff_actions {
1961 trace add variable current_diff_path
write trace_current_diff_path
1963 frame .vpane.lower.
diff.header
-background gold
1964 label .vpane.lower.
diff.header.status \
1966 -width $max_status_desc \
1969 label .vpane.lower.
diff.header.
file \
1973 label .vpane.lower.
diff.header.path \
1977 pack .vpane.lower.
diff.header.status
-side left
1978 pack .vpane.lower.
diff.header.
file -side left
1979 pack .vpane.lower.
diff.header.path
-fill x
1980 set ctxm .vpane.lower.
diff.header.ctxm
1981 menu
$ctxm -tearoff 0
1989 -- $current_diff_path
1991 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
1992 bind_button3 .vpane.lower.
diff.header.path
"tk_popup $ctxm %X %Y"
1996 frame .vpane.lower.
diff.body
1997 set ui_diff .vpane.lower.
diff.body.t
1998 text
$ui_diff -background white
-borderwidth 0 \
1999 -width 80 -height 15 -wrap none \
2001 -xscrollcommand {.vpane.lower.
diff.body.sbx
set} \
2002 -yscrollcommand {.vpane.lower.
diff.body.sby
set} \
2004 scrollbar .vpane.lower.
diff.body.sbx
-orient horizontal \
2005 -command [list
$ui_diff xview
]
2006 scrollbar .vpane.lower.
diff.body.sby
-orient vertical \
2007 -command [list
$ui_diff yview
]
2008 pack .vpane.lower.
diff.body.sbx
-side bottom
-fill x
2009 pack .vpane.lower.
diff.body.sby
-side right
-fill y
2010 pack
$ui_diff -side left
-fill both
-expand 1
2011 pack .vpane.lower.
diff.header
-side top
-fill x
2012 pack .vpane.lower.
diff.body
-side bottom
-fill both
-expand 1
2014 $ui_diff tag conf d_cr
-elide true
2015 $ui_diff tag conf d_@
-foreground blue
-font font_diffbold
2016 $ui_diff tag conf d_
+ -foreground {#00a000}
2017 $ui_diff tag conf d_-
-foreground red
2019 $ui_diff tag conf d_
++ -foreground {#00a000}
2020 $ui_diff tag conf d_--
-foreground red
2021 $ui_diff tag conf d_
+s \
2022 -foreground {#00a000} \
2023 -background {#e2effa}
2024 $ui_diff tag conf d_-s \
2026 -background {#e2effa}
2027 $ui_diff tag conf d_s
+ \
2028 -foreground {#00a000} \
2030 $ui_diff tag conf d_s- \
2034 $ui_diff tag conf d
<<<<<<< \
2035 -foreground orange \
2037 $ui_diff tag conf d
======= \
2038 -foreground orange \
2040 $ui_diff tag conf d
>>>>>>> \
2041 -foreground orange \
2044 $ui_diff tag raise sel
2046 # -- Diff Body Context Menu
2048 set ctxm .vpane.lower.
diff.body.ctxm
2049 menu
$ctxm -tearoff 0
2052 -command reshow_diff
2053 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2056 -command {tk_textCopy
$ui_diff}
2057 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2059 -label {Select All
} \
2060 -command {focus
$ui_diff;$ui_diff tag add sel
0.0 end
}
2061 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2065 $ui_diff tag add sel
0.0 end
2066 tk_textCopy
$ui_diff
2067 $ui_diff tag remove sel
0.0 end
2069 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2072 -label {Apply
/Reverse Hunk
} \
2073 -command {apply_hunk
$cursorX $cursorY}
2074 set ui_diff_applyhunk
[$ctxm index last
]
2075 lappend diff_actions
[list
$ctxm entryconf
$ui_diff_applyhunk -state]
2078 -label {Decrease Font Size
} \
2079 -command {incr_font_size font_diff
-1}
2080 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2082 -label {Increase Font Size
} \
2083 -command {incr_font_size font_diff
1}
2084 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2087 -label {Show Less Context
} \
2088 -command {if {$repo_config(gui.diffcontext
) >= 1} {
2089 incr repo_config
(gui.diffcontext
) -1
2092 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2094 -label {Show More Context
} \
2095 -command {if {$repo_config(gui.diffcontext
) < 99} {
2096 incr repo_config
(gui.diffcontext
)
2099 lappend diff_actions
[list
$ctxm entryconf
[$ctxm index last
] -state]
2101 $ctxm add
command -label {Options...
} \
2103 bind_button3
$ui_diff "
2106 if {\$ui_index eq \$current_diff_side} {
2107 $ctxm entryconf $ui_diff_applyhunk -label {Unstage Hunk From Commit}
2109 $ctxm entryconf $ui_diff_applyhunk -label {Stage Hunk For Commit}
2111 tk_popup $ctxm %X %Y
2113 unset ui_diff_applyhunk
2117 label .status
-textvariable ui_status_value \
2122 pack .status
-anchor w
-side bottom
-fill x
2127 set gm
$repo_config(gui.geometry
)
2128 wm geometry .
[lindex
$gm 0]
2129 .vpane sash place
0 \
2130 [lindex
[.vpane sash coord
0] 0] \
2132 .vpane.files sash place
0 \
2134 [lindex
[.vpane.files sash coord
0] 1]
2140 bind $ui_comm <$M1B-Key-Return> {do_commit
;break}
2141 bind $ui_comm <$M1B-Key-i> {do_add_all
;break}
2142 bind $ui_comm <$M1B-Key-I> {do_add_all
;break}
2143 bind $ui_comm <$M1B-Key-x> {tk_textCut
%W
;break}
2144 bind $ui_comm <$M1B-Key-X> {tk_textCut
%W
;break}
2145 bind $ui_comm <$M1B-Key-c> {tk_textCopy
%W
;break}
2146 bind $ui_comm <$M1B-Key-C> {tk_textCopy
%W
;break}
2147 bind $ui_comm <$M1B-Key-v> {tk_textPaste
%W
; %W see insert
; break}
2148 bind $ui_comm <$M1B-Key-V> {tk_textPaste
%W
; %W see insert
; break}
2149 bind $ui_comm <$M1B-Key-a> {%W tag add sel
0.0 end
;break}
2150 bind $ui_comm <$M1B-Key-A> {%W tag add sel
0.0 end
;break}
2152 bind $ui_diff <$M1B-Key-x> {tk_textCopy
%W
;break}
2153 bind $ui_diff <$M1B-Key-X> {tk_textCopy
%W
;break}
2154 bind $ui_diff <$M1B-Key-c> {tk_textCopy
%W
;break}
2155 bind $ui_diff <$M1B-Key-C> {tk_textCopy
%W
;break}
2156 bind $ui_diff <$M1B-Key-v> {break}
2157 bind $ui_diff <$M1B-Key-V> {break}
2158 bind $ui_diff <$M1B-Key-a> {%W tag add sel
0.0 end
;break}
2159 bind $ui_diff <$M1B-Key-A> {%W tag add sel
0.0 end
;break}
2160 bind $ui_diff <Key-Up
> {catch
{%W yview scroll
-1 units
};break}
2161 bind $ui_diff <Key-Down
> {catch
{%W yview scroll
1 units
};break}
2162 bind $ui_diff <Key-Left
> {catch
{%W xview scroll
-1 units
};break}
2163 bind $ui_diff <Key-Right
> {catch
{%W xview scroll
1 units
};break}
2164 bind $ui_diff <Key-k
> {catch
{%W yview scroll
-1 units
};break}
2165 bind $ui_diff <Key-j
> {catch
{%W yview scroll
1 units
};break}
2166 bind $ui_diff <Key-h
> {catch
{%W xview scroll
-1 units
};break}
2167 bind $ui_diff <Key-l
> {catch
{%W xview scroll
1 units
};break}
2168 bind $ui_diff <Control-Key-b
> {catch
{%W yview scroll
-1 pages
};break}
2169 bind $ui_diff <Control-Key-f
> {catch
{%W yview scroll
1 pages
};break}
2170 bind $ui_diff <Button-1
> {focus
%W
}
2172 if {[is_enabled branch
]} {
2173 bind .
<$M1B-Key-n> do_create_branch
2174 bind .
<$M1B-Key-N> do_create_branch
2177 bind all
<Key-F5
> do_rescan
2178 bind all
<$M1B-Key-r> do_rescan
2179 bind all
<$M1B-Key-R> do_rescan
2180 bind .
<$M1B-Key-s> do_signoff
2181 bind .
<$M1B-Key-S> do_signoff
2182 bind .
<$M1B-Key-i> do_add_all
2183 bind .
<$M1B-Key-I> do_add_all
2184 bind .
<$M1B-Key-Return> do_commit
2185 foreach i
[list
$ui_index $ui_workdir] {
2186 bind $i <Button-1
> "toggle_or_diff $i %x %y; break"
2187 bind $i <$M1B-Button-1> "add_one_to_selection $i %x %y; break"
2188 bind $i <Shift-Button-1
> "add_range_to_selection $i %x %y; break"
2192 set file_lists
($ui_index) [list
]
2193 set file_lists
($ui_workdir) [list
]
2195 wm title .
"[appname] ([reponame]) [file normalize [file dirname [gitdir]]]"
2196 focus
-force $ui_comm
2198 # -- Warn the user about environmental problems. Cygwin's Tcl
2199 # does *not* pass its env array onto any processes it spawns.
2200 # This means that git processes get none of our environment.
2205 set msg
"Possible environment issues exist.
2207 The following environment variables are probably
2208 going to be ignored by any Git subprocess run
2212 foreach name
[array names env
] {
2213 switch
-regexp -- $name {
2214 {^GIT_INDEX_FILE$
} -
2215 {^GIT_OBJECT_DIRECTORY$
} -
2216 {^GIT_ALTERNATE_OBJECT_DIRECTORIES$
} -
2218 {^GIT_EXTERNAL_DIFF$
} -
2222 {^GIT_CONFIG_LOCAL$
} -
2223 {^GIT_
(AUTHOR|COMMITTER
)_DATE$
} {
2224 append msg
" - $name\n"
2227 {^GIT_
(AUTHOR|COMMITTER
)_
(NAME|EMAIL
)$
} {
2228 append msg
" - $name\n"
2230 set suggest_user
$name
2234 if {$ignored_env > 0} {
2236 This is due to a known issue with the
2237 Tcl binary distributed by Cygwin."
2239 if {$suggest_user ne
{}} {
2242 A good replacement for $suggest_user
2243 is placing values for the user.name and
2244 user.email settings into your personal
2250 unset ignored_env msg suggest_user name
2253 # -- Only initialize complex UI if we are going to stay running.
2255 if {[is_enabled transport
]} {
2259 populate_branch_menu
2264 # -- Only suggest a gc run if we are going to stay running.
2266 if {[is_enabled multicommit
]} {
2267 set object_limit
2000
2268 if {[is_Windows
]} {set object_limit
200}
2269 regexp
{^
([0-9]+) objects
,} [git count-objects
] _junk objects_current
2270 if {$objects_current >= $object_limit} {
2272 "This repository currently has $objects_current loose objects.
2274 To maintain optimal performance it is strongly recommended that you compress the database when more than $object_limit loose objects exist.
2276 Compress the database now?"] eq
yes} {
2280 unset object_limit _junk objects_current
2283 lock_index begin-read