| blob | 23d9dd1fe0d024c4af344c35faf01365ec8a6c58 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2016 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 package require Tk
12 proc hasworktree {} {
15 }
17 proc reponame {} {
18 global gitdir
22 }
24 }
26 proc gitworktree {} {
27 variable _gitworktree
30 }
31 # v1.7.0 introduced --show-toplevel to return the canonical work-tree
33 # try to set work tree from environment, core.worktree or use
34 # cdup to obtain a relative path to the top of the worktree. If
35 # run from the top, the ./ prefix ensures normalize expands pwd.
39 }
40 }
41 }
43 }
45 # A simple scheduler for compute-intensive stuff.
46 # The aim is to make sure that event handlers for GUI actions can
47 # run at least every 50-100 ms. Unfortunately fileevent handlers are
48 # run before X event handlers, so reading from a fast source can
49 # make the GUI completely unresponsive.
50 proc run args {
51 global isonrunq runq currunq
56 after idle dorunq
57 }
60 }
64 }
67 global runq currunq
71 after idle dorunq
72 }
74 }
77 global runq
83 incr i
84 }
85 }
86 }
88 proc dorunq {} {
89 global isonrunq runq currunq
99 unset currunq
104 # script returns 1 if it wants to be readded
105 # file readers return 2 if they could do more straight away
109 }
112 }
115 }
117 after idle dorunq
118 }
119 }
122 global commfd leftover loginstance
128 }
131 global nr_unmerged
133 # find the list of unmerged files
140 exit 1
141 }
147 incr nr_unmerged
150 }
151 }
154 }
156 proc parseviewargs {n arglist} {
157 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
158 global vinlinediff
159 global worddiff git_version
164 set glflags {}
165 set diffargs {}
166 set nextisval 0
167 set revargs {}
169 set allknown 1
170 set filtered 0
171 set i -1
173 incr i
176 set nextisval 0
177 continue
178 }
180 "-d" -
181 "--date-order" {
183 # remove from origargs in case we hit an unknown option
185 incr i -1
186 }
187 "-[puabwcrRBMC]" -
188 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
189 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
190 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
191 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
192 "--ignore-space-change" - "-U*" - "--unified=*" {
193 # These request or affect diff output, which we don't want.
194 # Some could be used to set our defaults for diff display.
195 lappend diffargs $arg
196 }
204 # These cause our parsing of git log's output to fail, or else
205 # they're options we want to set ourselves, so ignore them.
206 }
208 # These trigger a word diff in the console interface,
209 # so help the user by enabling our own support
212 }
213 }
217 }
218 }
223 # These are harmless, and some are even useful
224 lappend glflags $arg
225 }
233 # These mean that we get a subset of the commits
235 lappend glflags $arg
236 }
238 # Line-log with 'stuck' argument (unstuck form is
239 # not supported)
243 lappend glflags $arg
244 }
246 # This appears to be the only one that has a value as a
247 # separate word following it
250 lappend glflags $arg
251 }
253 lappend revargs $arg
254 }
257 # git rev-parse doesn't understand --merge
258 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
259 }
262 }
264 # Other flag arguments including -<n>
268 # a flag argument that we don't recognize;
269 # that means we can't optimize
271 }
272 lappend glflags $arg
273 }
274 default {
275 # Non-flag arguments specify commits or ranges of commits
277 lappend revargs --gitk-symmetric-diff-marker
278 }
279 lappend revargs $arg
280 }
281 }
282 }
289 }
292 global vposids vnegids
295 set revs HEAD
297 lappend revs HEAD
298 }
300 # we get stdout followed by stderr in $err
301 # for an unknown rev, git rev-parse echoes it and then errors out
314 }
317 }
318 break
319 }
320 lappend badrev $line
321 }
322 }
325 }
335 lappend ret $id
338 }
339 }
343 lappend ret $id
346 }
347 lappend pos $id
348 }
349 incr sdm -1
350 }
354 }
356 # Start off a git log process and arrange to read its output
358 global startmsecs commitidx viewcomplete curview
359 global tclencoding
360 global viewargs viewargscmd viewfiles vfilelimit
361 global showlocalchanges
362 global viewactive viewinstances vmergeonly
363 global mainheadid viewmainheadid viewmainheadid_orig
364 global vcanopt vflags vrevs vorigargs
365 global show_notes
369 # these are set this way for the error exits
372 varcinit $view
381 }
383 }
390 global nr_unmerged
397 }
399 }
400 }
407 }
411 }
419 }
425 get_viewmainhead $view
426 }
429 }
433 }
439 }
442 global commfd leftover
445 catch {
452 }
453 }
455 nukefile $fd
458 }
460 proc stop_backends {} {
461 global commfd
464 stop_instance $inst
465 }
466 }
469 global viewinstances
472 stop_instance $inst
473 }
475 }
478 global pending_select mainheadid selectheadid
486 }
487 }
490 global canv curview need_redisplay viewactive
492 initlayout
494 reset_pending_select $selid
499 }
500 }
502 proc updatecommits {} {
503 global curview vcanopt vorigargs vfilelimit viewinstances
504 global viewactive viewcomplete tclencoding
505 global startmsecs showneartags showlocalchanges
506 global mainheadid viewmainheadid viewmainheadid_orig pending_select
507 global hasworktree
508 global varcid vposids vnegids vflags vrevs
509 global show_notes
512 rereadrefs
516 dohidelocalchanges
517 }
521 get_viewmainhead $view
522 }
523 }
525 doshowlocalchanges
526 }
532 return
533 }
534 # note: getting the delta when negative refs change is hard,
535 # and could require multiple git log invocations, so in that
536 # case we ask git log for all the commits (not just the delta)
540 # take out positive refs that we asked for before or
541 # that we have already seen
546 lappend newrevs $rev
547 incr npos
548 }
550 lappend $newrevs $rev
551 }
552 }
556 }
560 }
566 return
567 }
570 }
576 }
580 reset_pending_select {}
583 getallcommits
584 }
585 }
587 proc reloadcommits {} {
588 global curview viewcomplete selectedline currentid thickerline
589 global showneartags treediffs commitinterest cached_commitrow
590 global targetid commitinfo
595 }
598 stop_rev_list $curview
599 }
600 resetvarcs $curview
602 unset -nocomplain currentid
603 unset -nocomplain thickerline
604 unset -nocomplain treediffs
605 readrefs
606 changedrefs
608 getallcommits
609 }
610 clear_display
611 unset -nocomplain commitinfo
612 unset -nocomplain commitinterest
613 unset -nocomplain cached_commitrow
614 unset -nocomplain targetid
615 setcanvscroll
616 getcommits $selid
618 }
620 # This makes a string representation of a positive integer which
621 # sorts as a string in numerical order
629 }
631 }
633 # Procedures used in reordering commits from git log (without
634 # --topo-order) into the order for display.
637 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
638 global vtokmod varcmod vrowmod varcix vlastins
652 }
655 global varcid varccommits parents children vseedcount ordertok
656 global vshortids
662 }
665 }
666 # some commits might have children but haven't been seen yet
669 }
672 }
675 }
676 unset -nocomplain ordertok
677 }
679 # returns a list of the commits with no children
681 global vdownptr vleftptr varcstart
688 }
690 }
693 global varcid varctok parents children vdatemode
694 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
695 global commitdata commitinfo vseedcount varccommits vlastins
702 }
706 }
709 }
715 }
724 }
725 }
730 }
737 }
741 }
748 }
754 }
763 }
766 global varcid varcstart varccommits varctok vtokmod
767 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
775 # "%" sorts before "0"...
785 }
795 }
797 modify_arc $v $oa
798 }
799 }
802 global parents children varctok varcstart varccommits
803 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
812 lappend todo $a
817 }
818 }
819 }
820 incr ntot
827 }
828 }
830 }
837 }
843 }
852 }
853 }
858 }
860 continue
861 }
868 }
869 }
874 modify_arc $v $ka
875 }
877 modify_arc $v $b
878 }
885 }
888 }
891 }
900 }
905 }
912 }
916 }
918 }
919 }
924 }
925 }
927 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
928 }
930 # Fix up the graph after we have found out that in view $v,
931 # $p (a commit that we have already seen) is actually the parent
932 # of the last commit in arc $a.
934 global varcid varcstart varctok vupptr
938 splitvarc $p $v
940 }
941 # seeds always need to be renumbered
945 renumbervarc $pa $v
946 }
947 }
950 global cmitlisted children parents varcid varctok vtokmod
951 global varccommits ordertok commitidx numcommits curview
952 global targetid targetrow vshortids
954 readcommit $id
963 modify_arc $v $a
964 }
969 unset -nocomplain ordertok
970 }
971 fix_reversal $p $a $v
975 setcanvscroll
978 incr targetrow
979 }
980 }
981 }
982 }
985 global varcid varccommits parents children cmitlisted
986 global commitidx varctok vtokmod targetid targetrow curview numcommits
993 return
994 }
1001 # note we deliberately don't update varcstart($v) even if $i == 0
1003 modify_arc $v $a $i
1006 incr targetrow
1007 }
1008 }
1009 setcanvscroll
1010 drawvisible
1011 }
1014 global varcid varccommits parents children commitidx
1015 global varctok vtokmod cmitlisted currentid selectedline
1016 global targetid curview numcommits
1021 return
1022 }
1028 return
1029 }
1039 }
1040 modify_arc $v $a $i
1042 unset currentid
1044 }
1047 }
1048 setcanvscroll
1049 drawvisible
1050 }
1053 global children nullid nullid2
1058 lappend kids $id
1059 }
1060 }
1062 }
1065 global children nullid nullid2
1070 }
1071 }
1073 }
1076 global children nullid nullid2
1083 }
1084 }
1086 }
1089 global varctok varcid
1093 }
1095 # This assumes that if lim is not given, the caller has checked that
1096 # arc a's token is less than $vtokmod($v)
1098 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1106 }
1107 }
1114 }
1119 }
1121 }
1123 undolayout $r
1124 }
1125 }
1128 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1129 global varcid vrownum varcorder varcix varccommits
1130 global vupptr vdownptr vleftptr varctok
1131 global displayorder parentlist curview cached_commitrow
1138 }
1139 unset -nocomplain cached_commitrow
1140 }
1144 # go up the tree until we find something that has a row number,
1145 # or we get to a seed
1147 }
1162 }
1164 }
1168 # go down if possible
1171 # if not, go left, or go up until we can go left
1176 }
1178 }
1180 incr arcn
1185 }
1191 }
1192 }
1194 # Test whether view $v contains commit $id
1196 global varcid
1199 }
1201 # Return the row number for commit $id in the current view
1203 global varcid varccommits varcrow curview cached_commitrow
1204 global varctok vtokmod
1210 }
1213 update_arcrows $v
1214 }
1217 }
1222 }
1226 }
1228 # Returns 1 if a is on an earlier row than b, otherwise 0
1230 global varcid varctok curview
1236 }
1240 }
1242 }
1247 }
1259 }
1260 }
1262 }
1264 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1266 global vrownum curview commitidx displayorder parentlist
1267 global varccommits varcorder parents vrowmod varcrow
1268 global d_valid_start d_valid_end
1271 update_arcrows $curview
1272 }
1288 }
1290 lappend displayorder $id
1292 }
1296 lset displayorder $i $id
1298 incr i
1299 }
1300 }
1301 incr r $al
1302 }
1303 }
1306 global displayorder
1312 }
1314 }
1317 global varctok varccommits varcid parents children
1318 global cmitlisted commitidx vtokmod curview numcommits
1327 # add p as a new commit
1328 incr missing_parents
1336 }
1339 modify_arc $v $b
1340 }
1345 }
1347 }
1348 }
1352 }
1353 }
1354 }
1356 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1357 # Assumes we already have an arc for $rwid.
1359 global children parents varcid varctok vtokmod varccommits
1362 # make $rwid be $ch's parent in place of $id
1366 }
1368 # add $ch to $rwid's children and sort the list if necessary
1372 }
1373 # fix the graph after joining $id to $rwid
1375 fix_reversal $rwid $a $v
1376 # parentlist is wrong for the last element of arc $a
1377 # even if displayorder is right, hence the 3rd arg here
1379 }
1380 }
1382 # Mechanism for registering a command to be executed when we come
1383 # across a particular commit. To handle the case when only the
1384 # prefix of the commit is known, the commitinterest array is now
1385 # indexed by the first 4 characters of the ID. Each element is a
1386 # list of id, cmd pairs.
1388 global commitinterest
1391 }
1394 global commitinterest
1403 lappend newlist $i $script
1404 }
1405 }
1410 }
1411 }
1413 }
1416 global cmitlisted leftover
1417 global commitidx commitdata vdatemode
1418 global parents children curview hlview
1419 global idpending ordertok
1420 global varccommits varcid varctok vtokmod vfilelimit vshortids
1423 # git log doesn't terminate the last commit with a null...
1426 }
1430 }
1431 global commfd viewcomplete viewactive viewname
1432 global viewinstances
1437 }
1438 # set it blocking so we wait for the process to terminate
1444 }
1447 bad arguments to git log."
1449 append err \
1450 " (Note: arguments to gitk are passed to git log\
1451 to allow selection of commits to be displayed.)"
1452 }
1455 }
1456 error_popup $err
1457 }
1460 # Check if we have seen any ids listed as parents that haven't
1461 # appeared in the list
1462 closevarcs $view
1463 notbusy $view
1464 }
1466 run chewcommits
1467 }
1469 }
1477 break
1478 }
1485 }
1498 }
1500 }
1505 break
1506 }
1507 }
1508 }
1513 }
1515 exit 1
1516 }
1525 # when doing path limiting, so work around that here
1526 # by working out the rewritten parent with git rev-list
1527 # and if we already know about it, using the rewritten
1528 # parent as a substitute parent for $id's children.
1532 }]} {
1534 # use $rwid in place of $id
1535 rewrite_commit $view $id $rwid
1536 continue
1537 }
1538 }
1539 }
1545 }
1550 }
1562 }
1563 }
1565 # new arc
1567 }
1569 modify_arc $view $a
1570 }
1575 }
1585 unset -nocomplain ordertok
1586 }
1588 fix_reversal $p $a $view
1589 }
1590 }
1591 incr i
1592 }
1596 }
1598 global numcommits hlview
1602 run chewcommits
1603 }
1605 # we never actually get here...
1606 run vhighlightmore
1607 }
1610 }
1611 }
1613 }
1615 proc chewcommits {} {
1616 global curview hlview viewcomplete
1617 global pending_select
1619 layoutmore
1621 global commitidx varctok
1622 global numcommits startmsecs
1625 update
1626 reset_pending_select {}
1633 }
1634 }
1636 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1637 #puts "overall $ms ms for $numcommits commits"
1638 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1641 }
1642 notbusy layout
1643 }
1645 }
1648 global tclencoding
1650 # Invoke git-log to handle automatic encoding conversion
1652 # Read the results using i18n.logoutputencoding
1656 }
1658 close $fd
1659 # Remove the heading line
1663 }
1668 }
1671 global commitinfo
1682 # should never happen...
1684 }
1696 }
1697 }
1699 # take the first non-blank line of the comment as the headline
1704 }
1709 }
1711 # git log indents the comment by 4 spaces;
1712 # if we got this via git cat-file, add the indentation
1715 append newcomment " "
1716 append newcomment $line
1718 }
1720 }
1723 # If there is diff output shown in the git-log stream, split it
1724 # out. But get rid of the empty line that always precedes the
1725 # diff.
1730 }
1733 }
1736 global commitdata commitinfo
1741 readcommit $id
1744 }
1745 }
1747 }
1749 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1750 # and are present in the current view.
1751 # This is fairly slow...
1753 global varcid curview vshortids
1762 lappend ids $id
1764 }
1765 }
1766 }
1767 }
1772 }
1773 }
1775 }
1777 proc readrefs {} {
1778 global tagids idtags headids idheads tagobjid
1779 global otherrefids idotherrefs mainhead mainheadid
1780 global selecthead selectheadid
1781 global hideremotes
1782 global tclencoding
1786 }
1790 }
1801 }
1807 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1808 # which is what we want since the former is the commit ID
1814 }
1820 }
1821 }
1825 catch {
1830 }
1831 }
1834 catch {
1836 }
1837 }
1838 }
1840 # skip over fake commits
1841 proc first_real_row {} {
1842 global nullid nullid2 numcommits
1847 break
1848 }
1849 }
1851 }
1853 # update things for a head moved to a child of its previous location
1855 global headids idheads
1860 }
1862 # update things when a head has been removed
1864 global headids idheads
1872 }
1873 }
1875 }
1878 global use_ttk
1882 }
1884 }
1887 global have_tk85
1889 # In MacOS Tk 8.4 transient appears to work by setting
1890 # overrideredirect, which is utterly useless, since the
1891 # windows get no border, and are not even kept above
1892 # the parent.
1895 wm transient $window $origin
1897 # Windows fails to place transient windows normally, so
1898 # schedule a callback to center them on the parent.
1901 }
1902 }
1905 global NS
1916 tkwait window $top
1917 }
1924 set w .error
1925 ttk_toplevel $w
1926 make_transient $w $owner
1927 show_error $w $w $msg
1928 }
1929 }
1932 global confirm_ok NS
1934 set w .confirm
1935 ttk_toplevel $w
1936 make_transient $w $owner
1948 tkwait window $w
1950 }
1952 proc setoptions {} {
1953 global use_ttk
1957 option add *Panedwindow.sashRelief raised startupFile
1959 option add *Menu.font uifont startupFile
1960 }
1963 }
1964 option add *Button.font uifont startupFile
1965 option add *Checkbutton.font uifont startupFile
1966 option add *Radiobutton.font uifont startupFile
1967 option add *Menubutton.font uifont startupFile
1968 option add *Label.font uifont startupFile
1969 option add *Message.font uifont startupFile
1970 option add *Entry.font textfont startupFile
1971 option add *Text.font textfont startupFile
1972 option add *Labelframe.font uifont startupFile
1973 option add *Spinbox.font textfont startupFile
1974 option add *Listbox.font mainfont startupFile
1975 }
1977 proc setttkstyle {} {
1987 }
1989 # Make a menu and submenus.
1990 # m is the window name for the menu, items is the list of menu items to add.
1991 # Each item is a list {mc label type description options...}
1992 # mc is ignored; it's so we can put mc there to alert xgettext
1993 # label is the string that appears in the menu
1994 # type is cascade, command or radiobutton (should add checkbutton)
1995 # description depends on type; it's the sublist for cascade, the
1996 # command to invoke for command, or {variable value} for radiobutton
1998 menu $m
2000 set Meta1 Cmd
2002 set Meta1 Ctrl
2003 }
2014 }
2015 }
2020 }
2023 }
2027 }
2028 }
2034 }
2035 }
2036 }
2038 # translate string and remove ampersands
2041 }
2045 }
2047 global use_ttk
2053 }
2058 } else {
2060 }
2062 }
2064 proc makewindow {} {
2065 global canv canv2 canv3 linespc charspc ctext cflist cscroll
2066 global tabstop
2067 global findtype findtypemenu findloc findstring fstring geometry
2068 global entries sha1entry sha1string sha1but
2069 global diffcontextstring diffcontext
2070 global ignorespace
2071 global maincursor textcursor curtextcursor
2072 global rowctxmenu fakerowmenu mergemax wrapcomment
2073 global highlight_files gdttype
2074 global searchstring sstring
2075 global bgcolor fgcolor bglist fglist diffcolors diffbgcolors selectbgcolor
2076 global uifgcolor uifgdisabledcolor
2077 global filesepbgcolor filesepfgcolor
2078 global mergecolors foundbgcolor currentsearchhitbgcolor
2079 global headctxmenu progresscanv progressitem progresscoords statusw
2080 global fprogitem fprogcoord lastprogupdate progupdatepending
2081 global rprogitem rprogcoord rownumsel numcommits
2082 global have_tk85 use_ttk NS
2083 global git_version
2084 global worddiff
2086 # The "mc" arguments here are purely so that xgettext
2087 # sees the following string as needing to be translated
2088 set file {
2089 mc "&File" cascade {
2090 {mc "&Update" command updatecommits -accelerator F5}
2091 {mc "&Reload" command reloadcommits -accelerator Shift-F5}
2092 {mc "Reread re&ferences" command rereadrefs}
2093 {mc "&List references" command showrefs -accelerator F2}
2094 {xx "" separator}
2095 {mc "Start git &gui" command {exec git gui &}}
2096 {xx "" separator}
2097 {mc "&Quit" command doquit -accelerator Meta1-Q}
2098 }}
2099 set edit {
2100 mc "&Edit" cascade {
2101 {mc "&Preferences" command doprefs}
2102 }}
2103 set view {
2104 mc "&View" cascade {
2105 {mc "&New view..." command {newview 0} -accelerator Shift-F4}
2106 {mc "&Edit view..." command editview -state disabled -accelerator F4}
2107 {mc "&Delete view" command delview -state disabled}
2108 {xx "" separator}
2109 {mc "&All files" radiobutton {selectedview 0} -command {showview 0}}
2110 }}
2111 if {[tk windowingsystem] ne "aqua"} {
2112 set help {
2113 mc "&Help" cascade {
2114 {mc "&About gitk" command about}
2115 {mc "&Key bindings" command keys}
2116 }}
2118 } else {
2119 proc ::tk::mac::ShowPreferences {} {doprefs}
2120 proc ::tk::mac::Quit {} {doquit}
2122 set apple {
2123 xx "&Apple" cascade {
2124 {mc "&About gitk" command about}
2125 {xx "" separator}
2126 }}
2127 set help {
2128 mc "&Help" cascade {
2129 {mc "&Key bindings" command keys}
2130 }}
2132 }
2134 . configure -menu .bar
2137 # cover the non-themed toplevel with a themed frame.
2138 place [ttk::frame ._main_background] -x 0 -y 0 -relwidth 1 -relheight 1
2139 }
2141 # the gui has upper and lower half, parts of a paned window.
2144 # possibly use assumed geometry
2145 if {![info exists geometry(pwsash0)]} {
2152 }
2154 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2159 .tf.histframe.pwclist configure -sashpad 0 -handlesize 4
2160 }
2162 # create three canvases
2163 set cscroll .tf.histframe.csb
2164 set canv .tf.histframe.pwclist.canv
2170 set canv2 .tf.histframe.pwclist.canv2
2175 set canv3 .tf.histframe.pwclist.canv3
2181 bind .tf.histframe.pwclist <Map> {
2182 bind %W <Map> {}
2183 .tf.histframe.pwclist sashpos 1 [lindex $::geometry(pwsash1) 0]
2184 .tf.histframe.pwclist sashpos 0 [lindex $::geometry(pwsash0) 0]
2185 }
2186 } else {
2189 }
2191 # a scroll bar to rule them
2195 bind .tf.histframe.pwclist <Configure> {resizeclistpanes %W %w}
2197 pack .tf.histframe.pwclist -fill both -expand 1 -side left
2199 # we have two button bars at bottom of top frame. Bar 1
2203 set sha1entry .tf.bar.sha1
2205 set sha1but .tf.bar.sha1label
2207 -command gotocommit -width 8
2209 pack .tf.bar.sha1label -side left
2211 trace add variable sha1string write sha1change
2214 set bm_left_data {
2215 #define left_width 16
2216 #define left_height 16
2217 static unsigned char left_bits[] = {
2218 0x00, 0x00, 0xc0, 0x01, 0xe0, 0x00, 0x70, 0x00, 0x38, 0x00, 0x1c, 0x00,
2219 0x0e, 0x00, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x0e, 0x00, 0x1c, 0x00,
2220 0x38, 0x00, 0x70, 0x00, 0xe0, 0x00, 0xc0, 0x01};
2221 }
2222 set bm_right_data {
2223 #define right_width 16
2224 #define right_height 16
2225 static unsigned char right_bits[] = {
2226 0x00, 0x00, 0xc0, 0x01, 0x80, 0x03, 0x00, 0x07, 0x00, 0x0e, 0x00, 0x1c,
2227 0x00, 0x38, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x00, 0x38, 0x00, 0x1c,
2228 0x00, 0x0e, 0x00, 0x07, 0x80, 0x03, 0xc0, 0x01};
2229 }
2237 .tf.bar.leftbut configure -image [list bm-left disabled bm-left-gray]
2238 } else {
2239 .tf.bar.leftbut configure -image bm-left
2240 }
2241 pack .tf.bar.leftbut -side left -fill y
2244 .tf.bar.rightbut configure -image [list bm-right disabled bm-right-gray]
2245 } else {
2246 .tf.bar.rightbut configure -image bm-right
2247 }
2248 pack .tf.bar.rightbut -side left -fill y
2251 set rownumsel {}
2253 -relief sunken -anchor e
2256 -relief sunken -anchor e
2257 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2258 -side left
2261 }
2262 global selectedline
2263 trace add variable selectedline write selectedline_change
2265 # Status label and progress bar
2266 set statusw .tf.bar.status
2270 set progresscanv [ttk::progressbar .tf.bar.progress]
2271 } else {
2272 set h [expr {[font metrics uifont -linespace] + 2}]
2273 set progresscanv .tf.bar.progress
2278 }
2280 set progresscoords {0 0}
2281 set fprogcoord 0
2282 set rprogcoord 0
2284 set lastprogupdate [clock clicks -milliseconds]
2285 set progupdatepending 0
2287 # build up the bottom bar of upper window
2290 set bm_down_data {
2291 #define down_width 16
2292 #define down_height 16
2293 static unsigned char down_bits[] = {
2294 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2295 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2296 0x87, 0xe1, 0x8e, 0x71, 0x9c, 0x39, 0xb8, 0x1d,
2297 0xf0, 0x0f, 0xe0, 0x07, 0xc0, 0x03, 0x80, 0x01};
2298 }
2301 .tf.lbar.fnext configure -image bm-down
2303 set bm_up_data {
2304 #define up_width 16
2305 #define up_height 16
2306 static unsigned char up_bits[] = {
2307 0x80, 0x01, 0xc0, 0x03, 0xe0, 0x07, 0xf0, 0x0f,
2308 0xb8, 0x1d, 0x9c, 0x39, 0x8e, 0x71, 0x87, 0xe1,
2309 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2310 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01};
2311 }
2314 .tf.lbar.fprev configure -image bm-up
2318 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2319 -side left -fill y
2320 set gdttype [mc "containing:"]
2321 set gm [makedroplist .tf.lbar.gdttype gdttype \
2322 [mc "containing:"] \
2323 [mc "touching paths:"] \
2324 [mc "adding/removing string:"] \
2325 [mc "changing lines matching:"]]
2326 trace add variable gdttype write gdttype_change
2327 pack .tf.lbar.gdttype -side left -fill y
2329 set findstring {}
2330 set fstring .tf.lbar.findstring
2333 trace add variable findstring write find_change
2334 set findtype [mc "Exact"]
2335 set findtypemenu [makedroplist .tf.lbar.findtype \
2336 findtype [mc "Exact"] [mc "IgnCase"] [mc "Regexp"]]
2337 trace add variable findtype write findcom_change
2338 set findloc [mc "All fields"]
2339 makedroplist .tf.lbar.findloc findloc [mc "All fields"] [mc "Headline"] \
2340 [mc "Comments"] [mc "Author"] [mc "Committer"]
2341 trace add variable findloc write find_change
2342 pack .tf.lbar.findloc -side right
2343 pack .tf.lbar.findtype -side right
2346 # Finish putting the upper half of the viewer together
2347 pack .tf.lbar -in .tf -side bottom -fill x
2348 pack .tf.bar -in .tf -side bottom -fill x
2349 pack .tf.histframe -fill both -side top -expand 1
2350 .ctop add .tf
2354 }
2356 # now build up the bottom
2359 # lower left, a text box over search bar, scroll bar to the right
2360 # if we know window height, then that will set the lower text height, otherwise
2361 # we set lower text height which will drive window height
2362 if {[info exists geometry(main)]} {
2364 } else {
2366 }
2371 # gap between sub-widgets
2372 set wgap [font measure uifont "i"]
2375 pack .bleft.top.search -side left -padx 5
2376 set sstring .bleft.top.sstring
2377 set searchstring ""
2380 trace add variable searchstring write incrsearch
2383 -command changediffdisp -variable diffelide -value {0 0}
2385 -command changediffdisp -variable diffelide -value {0 1}
2387 -command changediffdisp -variable diffelide -value {1 0}
2391 spinbox .bleft.mid.diffcontext -width 5 \
2392 -from 0 -increment 1 -to 10000000 \
2393 -validate all -validatecommand "diffcontextvalidate %P" \
2394 -textvariable diffcontextstring
2396 trace add variable diffcontextstring write diffcontextchange
2397 lappend entries .bleft.mid.diffcontext
2400 -command changeignorespace -variable ignorespace
2401 pack .bleft.mid.ignspace -side left -padx 5
2403 set worddiff [mc "Line diff"]
2405 makedroplist .bleft.mid.worddiff worddiff [mc "Line diff"] \
2406 [mc "Markup words"] [mc "Color words"]
2407 trace add variable worddiff write changeworddiff
2408 pack .bleft.mid.worddiff -side left -padx 5
2409 }
2411 set ctext .bleft.bottom.ctext
2413 -state disabled -undo 0 -font textfont \
2414 -yscrollcommand scrolltext -wrap none \
2415 -xscrollcommand ".bleft.bottom.sbhorizontal set"
2418 }
2421 pack .bleft.top -side top -fill x
2422 pack .bleft.mid -side top -fill x
2424 grid .bleft.bottom.sbhorizontal -sticky ew
2425 grid columnconfigure .bleft.bottom 0 -weight 1
2426 grid rowconfigure .bleft.bottom 0 -weight 1
2427 grid rowconfigure .bleft.bottom 1 -weight 0
2428 pack .bleft.bottom -side top -fill both -expand 1
2456 set mergemax 16
2463 # set these to the lowest priority:
2470 .pwbottom add .bleft
2473 }
2475 # lower right
2479 -command reselectline -variable cmitmode -value "patch"
2481 -command reselectline -variable cmitmode -value "tree"
2482 grid .bright.mode.patch .bright.mode.tree -sticky ew
2483 pack .bright.mode -side top -fill x
2484 set cflist .bright.cfiles
2485 set indent [font measure mainfont "nn"]
2489 -font mainfont \
2491 -yscrollcommand ".bright.sb set" \
2492 -cursor [. cget -cursor] \
2493 -spacing1 1 -spacing3 1
2497 pack .bright.sb -side right -fill y
2503 .pwbottom add .bright
2504 .ctop add .pwbottom
2506 # restore window width & height if known
2507 if {[info exists geometry(main)]} {
2510 set w [winfo screenwidth .]
2511 }
2513 set h [winfo screenheight .]
2514 }
2516 }
2517 }
2521 }
2523 if {[tk windowingsystem] eq {aqua}} {
2524 set M1B M1
2525 set ::BM "3"
2526 } else {
2527 set M1B Control
2528 set ::BM "2"
2529 }
2532 bind .ctop <Map> {
2533 bind %W <Map> {}
2534 %W sashpos 0 $::geometry(topheight)
2535 }
2536 bind .pwbottom <Map> {
2537 bind %W <Map> {}
2538 %W sashpos 0 $::geometry(botwidth)
2539 }
2540 bind .pwbottom <Configure> {resizecdetpanes %W %w}
2541 }
2543 pack .ctop -fill both -expand 1
2544 bindall <1> {selcanvline %W %x %y}
2545 #bindall <B1-Motion> {selcanvline %W %x %y}
2546 if {[tk windowingsystem] == "win32"} {
2547 bind . <MouseWheel> { windows_mousewheel_redirector %W %X %Y %D }
2549 } else {
2550 bindall <ButtonRelease-4> "allcanvs yview scroll -5 units"
2551 bindall <ButtonRelease-5> "allcanvs yview scroll 5 units"
2553 if {"%b" eq 6} {
2555 } elseif {"%b" eq 7} {
2557 }
2558 }
2559 if {[tk windowingsystem] eq "aqua"} {
2560 bindall <MouseWheel> {
2561 set delta [expr {- (%D)}]
2563 }
2564 bindall <Shift-MouseWheel> {
2565 set delta [expr {- (%D)}]
2567 }
2568 }
2569 }
2570 bindall <$::BM> "canvscan mark %W %x %y"
2571 bindall <B$::BM-Motion> "canvscan dragto %W %x %y"
2574 bindkey <Home> selfirstline
2575 bindkey <End> sellastline
2576 bind . <Key-Up> "selnextline -1"
2577 bind . <Key-Down> "selnextline 1"
2578 bind . <Shift-Key-Up> "dofind -1 0"
2579 bind . <Shift-Key-Down> "dofind 1 0"
2580 bindkey <Key-Right> "goforw"
2581 bindkey <Key-Left> "goback"
2582 bind . <Key-Prior> "selnextpage -1"
2583 bind . <Key-Next> "selnextpage 1"
2593 bindkey p "selnextline -1"
2594 bindkey n "selnextline 1"
2595 bindkey z "goback"
2596 bindkey x "goforw"
2597 bindkey k "selnextline -1"
2598 bindkey j "selnextline 1"
2599 bindkey h "goback"
2600 bindkey l "goforw"
2601 bindkey b prevfile
2607 bindkey <Key-Return> {dofind 1 1}
2608 bindkey ? {dofind -1 1}
2609 bindkey f nextfile
2610 bind . <F5> updatecommits
2611 bindmodfunctionkey Shift 5 reloadcommits
2612 bind . <F2> showrefs
2613 bindmodfunctionkey Shift 4 {newview 0}
2614 bind . <F4> edit_or_newview
2625 wm protocol . WM_DELETE_WINDOW doquit
2626 bind . <Destroy> {stop_backends}
2627 bind . <Button-1> "click %W"
2635 global ctxbut
2642 }
2644 set maincursor [. cget -cursor]
2648 set rowctxmenu .rowctxmenu
2650 {mc "Diff this -> selected" command {diffvssel 0}}
2651 {mc "Diff selected -> this" command {diffvssel 1}}
2652 {mc "Make patch" command mkpatch}
2653 {mc "Create tag" command mktag}
2654 {mc "Copy commit reference" command copyreference}
2655 {mc "Write commit to file" command writecommit}
2656 {mc "Create new branch" command mkbranch}
2657 {mc "Cherry-pick this commit" command cherrypick}
2658 {mc "Reset HEAD branch to here" command resethead}
2659 {mc "Mark this commit" command markhere}
2660 {mc "Return to mark" command gotomark}
2661 {mc "Find descendant of this and mark" command find_common_desc}
2662 {mc "Compare with marked commit" command compare_commits}
2663 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2664 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2665 {mc "Revert this commit" command revert}
2666 }
2669 set fakerowmenu .fakerowmenu
2671 {mc "Diff this -> selected" command {diffvssel 0}}
2672 {mc "Diff selected -> this" command {diffvssel 1}}
2673 {mc "Make patch" command mkpatch}
2674 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2675 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2676 }
2679 set headctxmenu .headctxmenu
2681 {mc "Check out this branch" command cobranch}
2682 {mc "Rename this branch" command mvbranch}
2683 {mc "Remove this branch" command rmbranch}
2685 }
2688 global flist_menu
2689 set flist_menu .flistctxmenu
2691 {mc "Highlight this too" command {flist_hl 0}}
2692 {mc "Highlight this only" command {flist_hl 1}}
2693 {mc "External diff" command {external_diff}}
2694 {mc "Blame parent commit" command {external_blame 1}}
2696 }
2699 global diff_menu
2700 set diff_menu .diffctxmenu
2702 {mc "Show origin of this line" command show_line_source}
2703 {mc "Run git gui blame on this line" command {external_blame_diff}}
2704 }
2706 }
2708 # Windows sends all mouse wheel events to the current focused window, not
2709 # the one where the mouse hovers, so bind those events here and redirect
2710 # to the correct window
2711 proc windows_mousewheel_redirector {W X Y D} {
2712 global canv canv2 canv3
2718 } else {
2719 catch {
2721 }
2722 }
2723 }
2724 }
2726 # Update row number label when selectedline changes
2727 proc selectedline_change {n1 n2 op} {
2728 global selectedline rownumsel
2731 set rownumsel {}
2732 } else {
2734 }
2735 }
2737 # mouse-2 makes all windows scan vertically, but only the one
2738 # the cursor is in scans horizontally
2739 proc canvscan {op w x y} {
2740 global canv canv2 canv3
2744 } else {
2746 }
2747 }
2748 }
2750 proc scrollcanv {cscroll f0 f1} {
2752 drawvisible
2753 flushhighlights
2754 }
2756 # when we make a key binding for the toplevel, make sure
2757 # it doesn't get triggered when that key is pressed in the
2758 # find string entry widget.
2759 proc bindkey {ev script} {
2760 global entries
2764 set escript [bind Entry <Key>]
2765 }
2768 }
2769 }
2771 proc bindmodfunctionkey {mod n script} {
2774 }
2776 # set the focus back to the toplevel for any click outside
2777 # the entry widgets
2778 proc click {w} {
2779 global ctext entries
2782 }
2783 focus .
2784 }
2786 # Adjust the progress bar for a change in requested extent or canvas size
2787 proc adjustprogress {} {
2788 global progresscanv progressitem progresscoords
2789 global fprogitem fprogcoord lastprogupdate progupdatepending
2790 global rprogitem rprogcoord use_ttk
2794 return
2795 }
2804 set now [clock clicks -milliseconds]
2806 set progupdatepending 0
2807 update
2809 set progupdatepending 1
2811 }
2812 }
2814 proc doprogupdate {} {
2815 global lastprogupdate progupdatepending
2818 set progupdatepending 0
2819 set lastprogupdate [clock clicks -milliseconds]
2820 update
2821 }
2822 }
2824 proc config_check_tmp_exists {tries_left} {
2825 global config_file_tmp
2828 incr tries_left -1
2831 } else {
2833 file, which will prevent gitk from saving its configuration on exit.\
2834 Please remove it if it is not being used by any existing gitk process."
2835 }
2836 }
2837 }
2839 proc config_init_trace {name} {
2840 global config_variable_changed config_variable_original
2845 }
2847 proc config_variable_change_cb {name name2 op} {
2848 global config_variable_changed config_variable_original
2855 }
2856 }
2858 proc savestuff {w} {
2859 global stuffsaved
2860 global config_file config_file_tmp
2861 global config_variables config_variable_changed
2862 global viewchanged
2864 upvar #0 viewname current_viewname
2865 upvar #0 viewfiles current_viewfiles
2866 upvar #0 viewargs current_viewargs
2867 upvar #0 viewargscmd current_viewargscmd
2868 upvar #0 viewperm current_viewperm
2869 upvar #0 nextviewnum current_nextviewnum
2870 upvar #0 use_ttk current_use_ttk
2873 if {![winfo viewable .]} return
2874 set remove_tmp 0
2875 if {[catch {
2876 set try_count 0
2878 if {[incr try_count] > 50} {
2880 }
2881 after 100
2882 }
2883 set remove_tmp 1
2884 if {$::tcl_platform(platform) eq {windows}} {
2886 }
2889 }
2895 } else {
2897 }
2898 }
2907 } else {
2910 }
2914 array set view_save {}
2915 array set views {}
2916 if {![info exists permviews]} { set permviews {} }
2920 }
2925 set views($current_viewname($v)) [list $current_viewname($v) $current_viewfiles($v) $current_viewargs($v) $current_viewargscmd($v)]
2926 } else {
2928 }
2929 }
2930 }
2931 # write old and updated view to their places and append remaining to the end
2936 }
2938 }
2939 foreach view_name [array names views] {
2941 }
2945 set remove_tmp 0
2946 } err]} {
2948 }
2951 }
2952 set stuffsaved 1
2953 }
2955 proc resizeclistpanes {win w} {
2956 global oldwidth oldsash use_ttk
2964 } else {
2967 }
2971 } else {
2976 set sash0 30
2977 }
2980 }
2985 }
2986 }
2987 }
2991 } else {
2994 }
2996 }
2998 }
3000 proc resizecdetpanes {win w} {
3001 global oldwidth oldsash use_ttk
3007 } else {
3009 }
3012 } else {
3016 set sash0 45
3017 }
3020 }
3021 }
3024 } else {
3026 }
3028 }
3030 }
3032 proc allcanvs args {
3033 global canv canv2 canv3
3037 }
3039 proc bindall {event action} {
3040 global canv canv2 canv3
3044 }
3046 proc about {} {
3047 global bgcolor NS
3048 set w .about
3051 return
3052 }
3057 Gitk - a commit viewer for git
3059 Copyright \u00a9 2005-2016 Paul Mackerras
3061 Use and redistribute under the terms of the GNU General Public License"] \
3070 }
3072 proc keys {} {
3073 global bgcolor NS
3074 set w .keys
3077 return
3078 }
3079 if {[tk windowingsystem] eq {aqua}} {
3080 set M1T Cmd
3081 } else {
3082 set M1T Ctrl
3083 }
3088 [mc "Gitk key bindings:"]
3092 [mc "<Home> Move to first commit"]
3093 [mc "<End> Move to last commit"]
3094 [mc "<Up>, p, k Move up one commit"]
3095 [mc "<Down>, n, j Move down one commit"]
3096 [mc "<Left>, z, h Go back in history list"]
3097 [mc "<Right>, x, l Go forward in history list"]
3099 [mc "<PageUp> Move up one page in commit list"]
3100 [mc "<PageDown> Move down one page in commit list"]
3107 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
3108 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
3109 [mc "<Delete>, b Scroll diff view up one page"]
3110 [mc "<Backspace> Scroll diff view up one page"]
3111 [mc "<Space> Scroll diff view down one page"]
3112 [mc "u Scroll diff view up 18 lines"]
3113 [mc "d Scroll diff view down 18 lines"]
3116 [mc "<Return> Move to next find hit"]
3117 [mc "g Go to commit"]
3118 [mc "/ Focus the search box"]
3119 [mc "? Move to previous find hit"]
3120 [mc "f Scroll diff view to next file"]
3127 [mc "<F5> Update"]
3128 " \
3137 }
3139 # Procedures for manipulating the file list window at the
3140 # bottom right of the overall window.
3142 proc treeview {w l openlevs} {
3143 global treecontents treediropen treeheight treeparent treeindex
3145 set ix 0
3146 set treeindex() 0
3147 set lev 0
3148 set prefix {}
3149 set prefixend -1
3150 set prefendstack {}
3151 set htstack {}
3152 set ht 0
3153 set treecontents() {}
3160 }
3167 incr lev -1
3168 }
3172 set ht 0
3184 set ht 1
3189 set str "\n"
3197 }
3198 incr lev
3199 }
3202 incr ht
3203 set str "\n"
3207 }
3209 }
3210 }
3218 }
3220 }
3222 proc linetoelt {l} {
3223 global treeheight treecontents
3225 set y 2
3226 set prefix {}
3227 while {1} {
3231 }
3232 set n 1
3237 incr y
3238 break
3239 }
3240 }
3242 }
3243 }
3244 }
3246 proc highlight_tree {y prefix} {
3247 global treeheight treecontents cflist
3253 }
3254 incr y
3257 }
3258 }
3260 }
3262 proc treeclosedir {w dir} {
3263 global treediropen treeheight treeparent treeindex
3275 }
3276 }
3278 proc treeopendir {w dir} {
3279 global treediropen treeheight treeparent treecontents treeindex
3286 set lev 0
3287 set str "\n"
3290 incr lev
3291 append str "\t"
3293 }
3308 } else {
3311 }
3312 }
3325 }
3327 }
3328 }
3330 proc treeclick {w x y} {
3331 global treediropen cmitmode ctext cflist cflist_top
3334 if {![info exists cflist_top]} return
3341 return
3342 }
3348 } else {
3350 }
3351 }
3353 proc setfilelist {id} {
3354 global treefilelist cflist jump_to_here
3361 }
3362 }
3363 }
3365 image create bitmap tri-rt -background black -foreground blue -data {
3366 #define tri-rt_width 13
3367 #define tri-rt_height 13
3368 static unsigned char tri-rt_bits[] = {
3369 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3370 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3371 0x00, 0x00};
3372 } -maskdata {
3373 #define tri-rt-mask_width 13
3374 #define tri-rt-mask_height 13
3375 static unsigned char tri-rt-mask_bits[] = {
3376 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3377 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3378 0x08, 0x00};
3379 }
3380 image create bitmap tri-dn -background black -foreground blue -data {
3381 #define tri-dn_width 13
3382 #define tri-dn_height 13
3383 static unsigned char tri-dn_bits[] = {
3384 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3385 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3386 0x00, 0x00};
3387 } -maskdata {
3388 #define tri-dn-mask_width 13
3389 #define tri-dn-mask_height 13
3390 static unsigned char tri-dn-mask_bits[] = {
3391 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3392 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3393 0x00, 0x00};
3394 }
3396 image create bitmap reficon-T -background black -foreground yellow -data {
3397 #define tagicon_width 13
3398 #define tagicon_height 9
3399 static unsigned char tagicon_bits[] = {
3400 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3401 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3402 } -maskdata {
3403 #define tagicon-mask_width 13
3404 #define tagicon-mask_height 9
3405 static unsigned char tagicon-mask_bits[] = {
3406 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3407 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3408 }
3409 set rectdata {
3410 #define headicon_width 13
3411 #define headicon_height 9
3412 static unsigned char headicon_bits[] = {
3413 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3414 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3415 }
3416 set rectmask {
3417 #define headicon-mask_width 13
3418 #define headicon-mask_height 9
3419 static unsigned char headicon-mask_bits[] = {
3420 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3421 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3422 }
3423 image create bitmap reficon-H -background black -foreground "#00ff00" \
3425 image create bitmap reficon-R -background black -foreground "#ffddaa" \
3427 image create bitmap reficon-o -background black -foreground "#ddddff" \
3430 proc init_flist {first} {
3431 global cflist cflist_top difffilestart
3437 set cflist_top 1
3439 } else {
3440 unset -nocomplain cflist_top
3441 }
3443 set difffilestart {}
3444 }
3446 proc highlight_tag {f} {
3447 global highlight_paths
3451 return "bold"
3452 }
3453 }
3454 return {}
3455 }
3457 proc highlight_filelist {} {
3458 global cmitmode cflist
3467 }
3468 }
3469 } else {
3470 highlight_tree 2 {}
3471 }
3473 }
3475 proc unhighlight_filelist {} {
3476 global cflist
3481 }
3483 proc add_flist {fl} {
3484 global cflist
3490 }
3492 }
3494 proc sel_flist {w x y} {
3495 global ctext difffilestart cflist cflist_top cmitmode
3498 if {![info exists cflist_top]} return
3505 } else {
3507 }
3508 suppress_highlighting_file_for_current_scrollpos
3509 }
3511 proc pop_flist_menu {w X Y x y} {
3512 global ctext cflist cmitmode flist_menu flist_menu_file
3513 global treediffs diffids
3515 stopfinding
3521 } else {
3523 }
3525 set xdiffstate "normal"
3527 set xdiffstate "disabled"
3528 }
3529 # Disable "External diff" item in tree mode
3532 }
3534 proc find_ctext_fileinfo {line} {
3535 global ctext_file_names ctext_file_lines
3541 return {}
3542 } else {
3544 }
3545 }
3547 proc pop_diff_menu {w X Y x y} {
3548 global ctext diff_menu flist_menu_file
3549 global diff_menu_txtpos diff_menu_line
3550 global diff_menu_filebase
3554 # don't pop up the menu on hunk-separator or file-separator lines
3556 return
3557 }
3558 stopfinding
3564 }
3566 proc flist_hl {only} {
3567 global flist_menu_file findstring gdttype
3572 } else {
3574 }
3575 set gdttype [mc "touching paths:"]
3576 }
3578 proc gitknewtmpdir {} {
3579 global diffnum gitktmpdir gitdir env
3581 if {![info exists gitktmpdir]} {
3582 if {[info exists env(GITK_TMPDIR)]} {
3584 } elseif {[info exists env(TMPDIR)]} {
3586 } else {
3588 }
3592 }
3595 unset gitktmpdir
3596 return {}
3597 }
3598 set diffnum 0
3599 }
3600 incr diffnum
3604 return {}
3605 }
3607 }
3609 proc save_file_from_commit {filename output what} {
3610 global nullfile
3615 }
3617 return {}
3618 }
3620 }
3622 proc external_diff_get_one_file {diffid filename diffdir} {
3623 global nullid nullid2 nullfile
3624 global worktree
3630 }
3632 }
3636 }
3640 }
3642 proc external_diff {} {
3643 global nullid nullid2
3644 global flist_menu_file
3645 global diffids
3646 global extdifftool
3649 # no reference commit given
3652 # diffing working copy with index
3655 # diffing index with HEAD
3656 set diffidfrom "HEAD"
3657 } else {
3658 # use first parent commit
3659 global parentlist selectedline
3661 }
3662 } else {
3665 }
3667 # make sure that several diffs wont collide
3668 set diffdir [gitknewtmpdir]
3671 # gather files to diff
3680 } else {
3683 }
3684 }
3685 }
3687 proc find_hunk_blamespec {base line} {
3688 global ctext
3690 # Find and parse the hunk header
3696 s_line old_specs osz osz1 new_line nsz]} {
3697 return
3698 }
3700 # base lines for the parents
3704 old_spec old_line osz]} {
3705 return
3706 }
3708 }
3710 # Now scan the lines to determine offset within the hunk
3712 set dline 0
3715 # Determine if the line is removed
3719 # Choose a parent index
3722 } else {
3726 } else {
3727 # blame the current commit
3728 set parent -1
3729 }
3730 }
3731 # then count other lines that belong to it
3734 # Determine if the line is removed
3739 incr dline
3740 }
3741 } else {
3743 incr dline
3744 }
3745 }
3746 }
3747 incr parent
3748 } else {
3749 set parent 0
3750 }
3754 }
3756 proc external_blame_diff {} {
3757 global currentid cmitmode
3758 global diff_menu_txtpos diff_menu_line
3759 global diff_menu_filebase flist_menu_file
3762 set parent_idx 0
3764 } else {
3769 } else {
3770 set parent_idx 0
3771 set line 0
3772 }
3773 }
3776 }
3779 # at stage 0 or 2
3780 proc index_sha1 {fname} {
3788 }
3789 }
3791 return {}
3792 }
3794 # Turn an absolute path into one relative to the current directory
3795 proc make_relative {f} {
3798 }
3800 set here [file split [pwd]]
3801 set ei 0
3802 set hi 0
3803 set res {}
3806 lappend res ".."
3807 } else {
3808 incr ei
3809 }
3810 incr hi
3811 }
3814 }
3816 proc external_blame {parent_idx {line {}}} {
3817 global flist_menu_file cdup
3818 global nullid nullid2
3819 global parentlist selectedline currentid
3823 } else {
3825 }
3828 error_popup [mc "No such commit"]
3829 return
3830 }
3832 set cmdline [list git gui blame]
3835 }
3837 # Unfortunately it seems git gui blame doesn't like
3838 # being given an absolute path...
3843 }
3844 }
3846 proc show_line_source {} {
3847 global cmitmode currentid parents curview blamestuff blameinst
3848 global diff_menu_line diff_menu_filebase flist_menu_file
3849 global nullid nullid2 gitdir cdup
3851 set from_index {}
3855 } else {
3861 return
3862 }
3863 incr pi -1
3866 # must be a merge in progress...
3867 if {[catch {
3868 # get the last line from .git/MERGE_HEAD
3872 } err]} {
3874 return
3875 }
3877 # need to do the blame from the index
3878 if {[catch {
3880 } err]} {
3882 return
3883 }
3884 } else {
3886 }
3887 } else {
3889 }
3891 }
3892 set blameargs {}
3895 }
3898 lappend blameargs --contents -
3899 } else {
3901 }
3903 if {[catch {
3905 } err]} {
3907 return
3908 }
3909 nowbusy blaming [mc "Searching"]
3915 }
3917 proc stopblaming {} {
3918 global blameinst
3920 if {[info exists blameinst]} {
3922 unset blameinst
3923 notbusy blaming
3924 }
3925 }
3927 proc read_line_source {fd inst} {
3928 global blamestuff curview commfd blameinst nullid nullid2
3932 }
3934 return 1
3935 }
3937 unset blameinst
3938 notbusy blaming
3942 return 0
3943 }
3945 set fname {}
3951 # look for "filename" line
3955 break
3956 }
3957 }
3958 }
3960 # all looks good, select it
3962 # blame uses all-zeroes to mean not committed,
3963 # which would mean a change in the index
3965 }
3968 } else {
3969 error_popup [mc "That line comes from commit %s, \
3971 }
3972 } else {
3973 puts "oops couldn't parse git blame output"
3974 }
3975 return 0
3976 }
3979 proc delete_at_eof {f dir} {
3984 }
3986 return 0
3987 }
3988 return 1
3989 }
3991 # Functions for adding and removing shell-type quoting
3993 proc shellquote {str} {
3996 }
3999 }
4002 }
4004 }
4006 proc shellarglist {l} {
4007 set str {}
4010 append str " "
4011 }
4013 }
4015 }
4017 proc shelldequote {str} {
4018 set ret {}
4019 set used -1
4020 while {1} {
4021 incr used
4025 break
4026 }
4032 }
4034 incr used
4038 error "unmatched single-quote"
4039 }
4042 continue
4043 }
4046 error "trailing backslash"
4047 }
4049 continue
4050 }
4051 # here ch == "\""
4052 while {1} {
4054 error "unmatched double-quote"
4055 }
4061 }
4063 incr used
4065 incr used
4066 }
4067 }
4069 }
4071 proc shellsplit {str} {
4072 set l {}
4073 while {1} {
4081 }
4083 }
4085 proc set_window_title {} {
4086 global appname curview viewname vrevs
4087 set rev [mc "All files"]
4091 } else {
4093 }
4094 }
4096 }
4098 # Code to implement multiple views
4100 proc newview {ishighlight} {
4101 global nextviewnum newviewname newishighlight
4102 global revtreeargs viewargscmd newviewopts curview
4105 set top .gitkview
4108 return
4109 }
4115 }
4117 set known_view_options {
4118 {perm b . {} {mc "Remember this view"}}
4119 {reflabel l + {} {mc "References (space separated list):"}}
4120 {refs t15 .. {} {mc "Branches & tags:"}}
4121 {allrefs b *. "--all" {mc "All refs"}}
4122 {branches b . "--branches" {mc "All (local) branches"}}
4123 {tags b . "--tags" {mc "All tags"}}
4124 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
4125 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
4126 {author t15 .. "--author=*" {mc "Author:"}}
4127 {committer t15 . "--committer=*" {mc "Committer:"}}
4128 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
4129 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
4130 {igrep b .. "--invert-grep" {mc "Matches no Commit Info criteria"}}
4131 {changes_l l + {} {mc "Changes to Files:"}}
4132 {pickaxe_s r0 . {} {mc "Fixed String"}}
4133 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
4134 {pickaxe t15 .. "-S*" {mc "Search string:"}}
4135 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
4136 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
4137 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
4138 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
4139 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
4140 {skip t10 . "--skip=*" {mc "Number to skip:"}}
4141 {misc_lbl l + {} {mc "Miscellaneous options:"}}
4142 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
4143 {lright b . "--left-right" {mc "Mark branch sides"}}
4144 {first b . "--first-parent" {mc "Limit to first parent"}}
4145 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
4146 {args t50 *. {} {mc "Additional arguments to git log:"}}
4147 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
4148 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
4149 }
4152 proc encode_view_opts {n} {
4153 global known_view_options newviewopts
4155 set rargs [list]
4165 }
4171 }
4172 } else {
4178 }
4179 }
4180 }
4183 }
4186 proc decode_view_opts {n view_args} {
4187 global known_view_options newviewopts
4192 # Checkboxes
4193 set val 0
4195 # Radiobuttons
4197 set val 0
4198 } else {
4199 # Text fields
4200 set val {}
4201 }
4203 }
4204 set oargs [list]
4205 set refargs [list]
4208 && ![info exists found(limit)]} {
4210 set found(limit) 1
4211 continue
4212 }
4213 catch { unset val }
4220 # Check buttons
4221 set val 1
4223 # Radio buttons
4226 } else {
4227 # Text input fields
4230 }
4233 break
4234 }
4235 if {[info exists val]} break
4236 }
4237 if {[info exists val]} continue
4240 } else {
4242 }
4243 }
4246 }
4248 proc edit_or_newview {} {
4249 global curview
4252 editview
4253 } else {
4254 newview 0
4255 }
4256 }
4258 proc editview {} {
4259 global curview
4260 global viewname viewperm newviewname newviewopts
4261 global viewargs viewargscmd
4266 return
4267 }
4273 }
4275 proc vieweditor {top n title} {
4276 global newviewname newviewopts viewfiles bgcolor
4277 global known_view_options NS
4283 # View name
4291 # View options
4293 set cexpand 0
4294 set cnt 0
4300 set lxpad 0
4304 incr cnt
4310 incr cnt
4314 } else {
4315 set lxpad 5
4316 }
4350 }
4353 }
4355 }
4356 }
4371 }
4373 proc doviewmenu {m first cmd op argv} {
4378 break
4379 }
4380 }
4381 }
4383 proc allviewmenus {n op args} {
4384 # global viewhlmenu
4388 }
4390 proc newviewok {top n {apply 0}} {
4391 global nextviewnum newviewperm newviewname newishighlight
4392 global viewname viewfiles viewperm viewchanged selectedview curview
4393 global viewargs viewargscmd newviewopts viewhlmenu
4395 if {[catch {
4397 } err]} {
4399 return
4400 }
4401 set files {}
4406 }
4407 }
4409 # creating a new view
4410 incr nextviewnum
4420 } else {
4422 }
4423 } else {
4424 # editing an existing view
4433 }
4440 run reloadcommits
4441 }
4442 }
4443 }
4446 }
4448 proc delview {} {
4449 global curview viewperm hlview selectedhlview viewchanged
4453 set selectedhlview [mc "None"]
4454 unset hlview
4455 }
4459 showview 0
4460 }
4462 proc addviewmenu {n} {
4463 global viewname viewhlmenu
4469 }
4471 proc showview {n} {
4472 global curview cached_commitrow ordertok
4473 global displayorder parentlist rowidlist rowisopt rowfinal
4474 global colormap rowtextx nextcolor canvxmax
4475 global numcommits viewcomplete
4476 global selectedline currentid canv canvy0
4477 global treediffs
4478 global pending_select mainheadid
4479 global commitidx
4480 global selectedview
4481 global hlview selectedhlview commitinterest
4484 set selid {}
4495 }
4496 } elseif {[info exists pending_select]} {
4498 unset pending_select
4499 }
4500 unselectline
4501 normalline
4502 unset -nocomplain treediffs
4503 clear_display
4505 unset hlview
4506 set selectedhlview [mc "None"]
4507 }
4508 unset -nocomplain commitinterest
4509 unset -nocomplain cached_commitrow
4510 unset -nocomplain ordertok
4517 run refill_reflist
4520 return
4521 }
4523 set displayorder {}
4524 set parentlist {}
4525 set rowidlist {}
4526 set rowisopt {}
4527 set rowfinal {}
4530 unset -nocomplain colormap
4531 unset -nocomplain rowtextx
4532 set nextcolor 0
4535 set row 0
4536 setcanvscroll
4537 set yf 0
4538 set row {}
4541 # try to get the selected row in the same position on the screen
4545 set ytop 0
4546 }
4548 }
4550 drawvisible
4555 } else {
4556 reset_pending_select {}
4560 } else {
4561 set row [first_real_row]
4564 }
4565 }
4566 }
4569 show_status [mc "Reading commits..."]
4570 }
4572 show_status [mc "No commits selected"]
4573 }
4574 set_window_title
4575 }
4577 # Stuff relating to the highlighting facility
4579 proc ishighlighted {id} {
4580 global vhighlights fhighlights nhighlights rhighlights
4584 }
4587 }
4590 }
4593 }
4594 return 0
4595 }
4597 proc bolden {id font} {
4598 global canv linehtag currentid boldids need_redisplay markedid
4600 # need_redisplay = 1 means the display is stale and about to be redrawn
4607 -outline {{}} -tags secsel \
4610 }
4613 }
4614 }
4616 proc bolden_name {id font} {
4617 global canv2 linentag currentid boldnameids need_redisplay
4625 -outline {{}} -tags secsel \
4628 }
4629 }
4631 proc unbolden {} {
4632 global boldids
4634 set stillbold {}
4638 } else {
4640 }
4641 }
4643 }
4645 proc addvhighlight {n} {
4646 global hlview viewcomplete curview vhl_done commitidx
4648 if {[info exists hlview]} {
4649 delvhighlight
4650 }
4654 }
4657 drawvisible
4658 }
4659 }
4661 proc delvhighlight {} {
4662 global hlview vhighlights
4664 if {![info exists hlview]} return
4665 unset hlview
4666 unset -nocomplain vhighlights
4667 unbolden
4668 }
4670 proc vhighlightmore {} {
4671 global hlview vhl_done commitidx vhighlights curview
4674 set vr [visiblerows]
4684 }
4686 }
4687 }
4688 }
4690 return 0
4691 }
4693 proc askvhighlight {row id} {
4694 global hlview vhighlights iddrawn
4699 }
4701 } else {
4703 }
4704 }
4706 proc hfiles_change {} {
4707 global highlight_files filehighlight fhighlights fh_serial
4708 global highlight_paths
4710 if {[info exists filehighlight]} {
4711 # delete previous highlights
4713 unset filehighlight
4714 unset -nocomplain fhighlights
4715 unbolden
4716 unhighlight_filelist
4717 }
4718 set highlight_paths {}
4720 incr fh_serial
4723 }
4724 }
4726 proc gdttype_change {name ix op} {
4727 global gdttype highlight_files findstring findpattern
4729 stopfinding
4733 set highlight_files {}
4734 hfiles_change
4735 }
4736 findcom_change
4737 } else {
4739 set findpattern {}
4740 findcom_change
4741 }
4743 hfiles_change
4744 }
4745 drawvisible
4746 }
4747 # enable/disable findtype/findloc menus too
4748 }
4750 proc find_change {name ix op} {
4751 global gdttype findstring highlight_files
4753 stopfinding
4755 findcom_change
4756 } else {
4759 hfiles_change
4760 }
4761 }
4762 drawvisible
4763 }
4765 proc findcom_change args {
4766 global nhighlights boldnameids
4767 global findpattern findtype findstring gdttype
4769 stopfinding
4770 # delete previous highlights, if any
4773 }
4774 set boldnameids {}
4775 unset -nocomplain nhighlights
4776 unbolden
4777 unmarkmatches
4779 set findpattern {}
4782 } else {
4783 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4786 }
4787 }
4789 proc makepatterns {l} {
4790 set ret {}
4795 } else {
4798 }
4799 }
4801 }
4803 proc do_file_hl {serial} {
4804 global highlight_files filehighlight highlight_paths gdttype fhl_list
4805 global cdup findtype
4808 # If "exact" match then convert backslashes to forward slashes.
4809 # Most useful to support Windows-flavoured file paths.
4812 }
4815 highlight_filelist
4816 set relative_paths {}
4819 }
4825 } else {
4826 # must be "containing:", i.e. we're searching commit info
4827 return
4828 }
4833 set fhl_list {}
4834 drawvisible
4835 flushhighlights
4836 }
4838 proc flushhighlights {} {
4839 global filehighlight fhl_list
4841 if {[info exists filehighlight]} {
4842 lappend fhl_list {}
4845 }
4846 }
4848 proc askfilehighlight {row id} {
4849 global filehighlight fhighlights fhl_list
4854 }
4856 proc readfhighlight {} {
4857 global filehighlight fhighlights curview iddrawn
4858 global fhl_list find_dirn
4860 if {![info exists filehighlight]} {
4861 return 0
4862 }
4863 set nr 0
4871 }
4877 }
4879 }
4881 # strange...
4882 puts "oops, git diff-tree died"
4884 unset filehighlight
4885 return 0
4886 }
4887 if {[info exists find_dirn]} {
4888 run findmore
4889 }
4890 return 1
4891 }
4893 proc doesmatch {f} {
4894 global findtype findpattern
4900 } else {
4902 }
4903 }
4905 proc askfindhighlight {row id} {
4906 global nhighlights commitinfo iddrawn
4907 global findloc
4908 global markingmatches
4912 }
4914 set isbold 0
4915 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4921 set isbold 2
4922 break
4923 }
4924 set isbold 1
4925 }
4926 }
4932 }
4933 }
4936 }
4937 }
4939 }
4941 proc markrowmatches {row id} {
4942 global canv canv2 linehtag linentag commitinfo findloc
4953 }
4954 }
4960 }
4961 }
4962 }
4964 proc vrel_change {name ix op} {
4965 global highlight_related
4967 rhighlight_none
4969 run drawvisible
4970 }
4971 }
4973 # prepare for testing whether commits are descendents or ancestors of a
4974 proc rhighlight_sel {a} {
4975 global descendent desc_todo ancestor anc_todo
4976 global highlight_related
4978 unset -nocomplain descendent
4980 unset -nocomplain ancestor
4983 rhighlight_none
4984 run drawvisible
4985 }
4986 }
4988 proc rhighlight_none {} {
4989 global rhighlights
4991 unset -nocomplain rhighlights
4992 unbolden
4993 }
4995 proc is_descendent {a} {
4996 global curview children descendent desc_todo
5001 set leftover {}
5002 set done 0
5007 continue
5008 }
5014 set done 1
5015 }
5016 }
5017 }
5020 return
5021 }
5022 }
5025 }
5027 proc is_ancestor {a} {
5028 global curview parents ancestor anc_todo
5033 set leftover {}
5034 set done 0
5039 continue
5040 }
5046 set done 1
5047 }
5048 }
5049 }
5052 return
5053 }
5054 }
5057 }
5059 proc askrelhighlight {row id} {
5060 global descendent highlight_related iddrawn rhighlights
5061 global selectedline ancestor
5064 set isbold 0
5069 }
5071 set isbold 1
5072 }
5077 }
5079 set isbold 1
5080 }
5081 }
5085 }
5086 }
5088 }
5090 # Graph layout functions
5092 proc shortids {ids} {
5093 set res {}
5099 } else {
5101 }
5102 }
5104 }
5106 proc ntimes {n o} {
5107 set ret {}
5112 }
5114 }
5116 }
5118 proc ordertoken {id} {
5119 global ordertok curview varcid varcstart varctok curview parents children
5120 global nullid nullid2
5124 }
5126 set todo {}
5127 while {1} {
5131 } else {
5133 }
5136 break
5137 }
5140 # it's a root
5142 break
5143 }
5146 } else {
5150 }
5152 }
5153 }
5158 }
5161 }
5163 # Work out where id should go in idlist so that order-token
5164 # values increase from left to right
5165 proc idcol {idlist id {i 0}} {
5168 set i 0
5169 }
5173 }
5175 incr i
5176 } else {
5180 }
5181 }
5183 }
5185 proc initlayout {} {
5186 global rowidlist rowisopt rowfinal displayorder parentlist
5187 global numcommits canvxmax canv
5188 global nextcolor
5189 global colormap rowtextx
5191 set numcommits 0
5192 set displayorder {}
5193 set parentlist {}
5194 set nextcolor 0
5195 set rowidlist {}
5196 set rowisopt {}
5197 set rowfinal {}
5199 unset -nocomplain colormap
5200 unset -nocomplain rowtextx
5201 setcanvscroll
5202 }
5204 proc setcanvscroll {} {
5205 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5206 global lastscrollset lastscrollrows
5212 set lastscrollset [clock clicks -milliseconds]
5214 }
5216 proc visiblerows {} {
5217 global canv numcommits linespc
5225 set r0 0
5226 }
5231 }
5233 }
5235 proc layoutmore {} {
5236 global commitidx viewcomplete curview
5237 global numcommits pending_select curview
5238 global lastscrollset lastscrollrows
5242 setcanvscroll
5243 }
5244 if {[info exists pending_select] &&
5246 update
5248 }
5249 drawvisible
5250 }
5252 # With path limiting, we mightn't get the actual HEAD commit,
5253 # so ask git rev-list what is the first ancestor of HEAD that
5254 # touches a file in the path limit.
5255 proc get_viewmainhead {view} {
5256 global viewmainheadid vfilelimit viewinstances mainheadid
5258 catch {
5266 }
5267 }
5270 proc getviewhead {fd inst view} {
5271 global viewmainheadid commfd curview viewinstances showlocalchanges
5273 set id {}
5276 return 1
5277 }
5280 }
5287 }
5289 doshowlocalchanges
5290 }
5291 return 0
5292 }
5294 proc doshowlocalchanges {} {
5295 global curview viewmainheadid
5299 dodiffindex
5300 } else {
5302 }
5303 }
5305 proc dohidelocalchanges {} {
5306 global nullid nullid2 lserial curview
5310 }
5313 }
5314 incr lserial
5315 }
5317 # spawn off a process to do git diff-index --cached HEAD
5318 proc dodiffindex {} {
5319 global lserial showlocalchanges vfilelimit curview
5320 global hasworktree git_version
5323 incr lserial
5325 set cmd "|git diff-index --cached --ignore-submodules=dirty HEAD"
5326 } else {
5327 set cmd "|git diff-index --cached HEAD"
5328 }
5331 }
5336 }
5338 proc readdiffindex {fd serial inst} {
5339 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5340 global vfilelimit
5342 set isdiff 1
5345 return 1
5346 }
5347 set isdiff 0
5348 }
5349 # we only need to see one line and we don't really care what it says...
5353 return 0
5354 }
5356 # now see if there are any local changes not checked in to the index
5357 set cmd "|git diff-files"
5360 }
5367 # add the line for the changes in the index to the graph
5368 set hl [mc "Local changes checked in to index but not committed"]
5373 }
5378 }
5380 }
5381 return 0
5382 }
5384 proc readdifffiles {fd serial inst} {
5385 global viewmainheadid nullid nullid2 curview
5386 global commitinfo commitdata lserial
5388 set isdiff 1
5391 return 1
5392 }
5393 set isdiff 0
5394 }
5395 # we only need to see one line and we don't really care what it says...
5399 return 0
5400 }
5403 # add the line for the local diff to the graph
5404 set hl [mc "Local uncommitted changes, not checked in to index"]
5409 } else {
5411 }
5415 }
5416 return 0
5417 }
5419 proc nextuse {id row} {
5420 global curview children
5425 return -1
5426 }
5429 }
5430 }
5431 }
5434 }
5435 return -1
5436 }
5438 proc prevuse {id row} {
5439 global curview children
5441 set ret -1
5447 }
5448 }
5449 }
5451 }
5453 proc make_idlist {row} {
5454 global displayorder parentlist uparrowlen downarrowlen mingaplen
5455 global commitidx curview children
5459 set r 0
5460 }
5463 set ra 0
5464 }
5468 }
5470 set ids {}
5479 }
5480 }
5481 }
5489 }
5490 }
5491 }
5499 }
5500 }
5501 incr r
5507 }
5508 }
5509 }
5510 set idlist {}
5513 }
5515 }
5517 proc rowsequal {a b} {
5520 }
5523 }
5525 }
5527 proc makeupline {id row rend col} {
5528 global rowidlist uparrowlen downarrowlen mingaplen
5534 }
5537 }
5544 }
5545 }
5546 }
5548 proc layoutrows {row endrow} {
5549 global rowidlist rowisopt rowfinal displayorder
5550 global uparrowlen downarrowlen maxwidth mingaplen
5551 global children parentlist
5552 global commitidx viewcomplete curview
5555 set idlist {}
5561 }
5562 }
5564 }
5569 set final 1
5570 } else {
5578 # if not the first child, we have to insert a line going up
5581 }
5582 }
5583 }
5593 }
5594 }
5595 }
5602 }
5603 }
5613 }
5614 }
5622 }
5623 }
5624 }
5625 }
5626 }
5630 set final 0
5631 }
5635 lappend rowisopt 0
5641 }
5643 } else {
5650 }
5651 }
5653 }
5655 proc changedrow {row} {
5656 global displayorder iddrawn rowisopt need_redisplay
5665 }
5666 }
5667 }
5670 set need_redisplay 1
5671 }
5672 }
5674 proc insert_pad {row col npad} {
5675 global rowidlist
5684 }
5687 }
5689 proc optimize_rows {row col endrow} {
5690 global rowidlist rowisopt displayorder curview children
5693 set row 1
5694 }
5697 set haspad 0
5706 } else {
5707 set pprevidlist {}
5708 }
5709 set x0 -1
5710 set xm -1
5715 set haspad 1
5716 continue
5717 }
5721 set isarrow 0
5722 set z0 {}
5727 }
5728 }
5733 set isarrow 1
5734 }
5735 }
5738 set isarrow 1
5739 }
5740 # Looking at lines from this row to the previous row,
5741 # make them go straight up if they end in an arrow on
5742 # the previous row; otherwise make them go straight up
5743 # or at 45 degrees.
5745 # Line currently goes left too much;
5746 # insert pads in the previous row, then optimize it
5751 }
5759 }
5761 # Line currently goes right too much;
5762 # insert pads in this line
5768 set haspad 1
5769 }
5776 }
5777 }
5778 # avoid lines jigging left then immediately right
5781 incr x0
5784 }
5785 }
5787 # Find the first column that doesn't have a line going right
5793 # check if this is the link to the first child
5796 # it is, work out offset to child
5798 }
5799 }
5801 }
5802 # Insert a pad at that column as long as it has a line and
5803 # isn't the last column
5808 }
5809 }
5810 }
5811 }
5813 proc xc {row col} {
5814 global canvx0 linespc
5816 }
5818 proc yc {row} {
5819 global canvy0 linespc
5821 }
5823 proc linewidth {id} {
5824 global thickerline lthickness
5829 }
5831 }
5833 proc rowranges {id} {
5834 global curview children uparrowlen downarrowlen
5835 global rowidlist
5839 return {}
5840 }
5841 set ret {}
5846 if {![info exists prev]} {
5848 } else {
5850 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5851 }
5852 # see if the line extends the whole way from prevrow to row
5856 # it doesn't, see where it ends
5861 } else {
5864 incr r -1
5865 }
5867 # see where it starts up again
5872 } else {
5875 incr r
5876 }
5878 }
5879 }
5882 }
5885 }
5887 }
5889 proc drawlineseg {id row endrow arrowlow} {
5890 global rowidlist displayorder iddrawn linesegs
5891 global canv colormap linespc curview maxlinelen parentlist
5895 set arrowhigh 1
5896 while {1} {
5899 incr le -1
5900 break
5901 }
5905 set arrowhigh 0
5906 break
5907 }
5912 set arrowhigh 0
5913 }
5914 break
5915 }
5916 incr le
5917 }
5920 }
5922 set lines {}
5923 set i 0
5924 set joinhigh 0
5931 set joinhigh 1
5932 }
5933 break
5934 }
5935 incr i
5936 }
5937 }
5938 set joinlow 0
5943 set joinlow 1
5944 }
5945 }
5958 }
5959 } else {
5961 }
5969 set arrowlow 0
5970 }
5971 }
5979 }
5981 }
5984 # join parent line to first child
5995 } else {
5997 }
6005 }
6007 }
6009 } else {
6013 }
6021 } else {
6025 }
6027 }
6028 } else {
6034 }
6038 } else {
6039 # coalesce two pieces
6044 }
6048 }
6049 }
6053 }
6055 proc drawparentlinks {id row} {
6056 global rowidlist canv colormap curview parentlist
6057 global idpos linespc
6070 # rmx = right-most X coord used
6071 set rmx 0
6076 continue
6077 }
6081 }
6084 # drawlineseg will do this one for us
6085 continue
6086 }
6088 # should handle duplicated parents here...
6091 # if attaching to a vertical segment, draw a smaller
6092 # slant for visual distinctness
6096 } else {
6098 }
6100 # segment slants towards us already
6102 } else {
6107 }
6109 }
6110 } else {
6112 }
6117 }
6121 }
6122 }
6124 proc drawlines {id} {
6125 global canv
6128 }
6130 proc drawcmittext {id row col} {
6131 global linespc canv canv2 canv3 fgcolor curview
6132 global cmitlisted commitinfo rowidlist parentlist
6133 global rowtextx idpos idtags idheads idotherrefs
6134 global linehtag linentag linedtag selectedline
6135 global canvxmax boldids boldnameids fgcolor markedid
6136 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
6137 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
6138 global circleoutlinecolor
6140 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
6148 } else {
6150 }
6159 # triangle pointing left for left-side commits
6165 } else {
6166 # triangle pointing right for right-side commits
6172 }
6184 }
6185 }
6186 }
6193 }
6196 }
6201 set font mainfont
6202 set nfont mainfont
6206 set font mainfontbold
6209 set nfont mainfontbold
6210 }
6211 }
6221 }
6224 }
6228 setcanvscroll
6229 }
6230 }
6232 proc drawcmitrow {row} {
6233 global displayorder rowidlist nrows_drawn
6234 global iddrawn markingmatches
6235 global commitinfo numcommits
6236 global filehighlight fhighlights findpattern nhighlights
6237 global hlview vhighlights
6238 global highlight_related rhighlights
6245 }
6248 }
6251 }
6254 }
6259 return
6260 }
6263 }
6267 incr nrows_drawn
6268 }
6271 }
6272 }
6274 proc drawcommits {row {endrow {}}} {
6275 global numcommits iddrawn displayorder curview need_redisplay
6276 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6279 set row 0
6280 }
6283 }
6286 }
6290 set rl1 0
6291 }
6294 set ro1 0
6295 }
6299 }
6304 }
6306 }
6307 }
6310 }
6313 clear_display
6314 }
6316 # make the lines join to already-drawn rows either side
6320 }
6325 }
6340 # see if this is the first child of any of its parents
6343 # make this line extend up to the child
6345 }
6346 }
6347 } else {
6349 }
6350 }
6351 }
6352 }
6354 proc undolayout {row} {
6355 global uparrowlen mingaplen downarrowlen
6356 global rowidlist rowisopt rowfinal need_redisplay
6360 set r 0
6361 }
6363 incr r -1
6367 set need_redisplay 1
6368 run drawvisible
6369 }
6370 }
6372 proc drawvisible {} {
6373 global canv linespc curview vrowmod selectedline targetrow targetid
6374 global need_redisplay cscroll numcommits
6384 if {[info exists targetid]} {
6388 # Fix up the scrollregion and change the scrolling position
6389 # now that our target row has moved.
6392 setcanvscroll
6400 set need_redisplay 1
6401 }
6402 } else {
6403 unset targetid
6404 }
6405 }
6411 }
6415 } elseif {[info exists targetid]} {
6417 }
6418 if {[info exists targetrow]} {
6421 }
6423 }
6425 }
6427 proc clear_display {} {
6428 global iddrawn linesegs need_redisplay nrows_drawn
6429 global vhighlights fhighlights nhighlights rhighlights
6430 global linehtag linentag linedtag boldids boldnameids
6432 allcanvs delete all
6433 unset -nocomplain iddrawn
6434 unset -nocomplain linesegs
6435 unset -nocomplain linehtag
6436 unset -nocomplain linentag
6437 unset -nocomplain linedtag
6438 set boldids {}
6439 set boldnameids {}
6440 unset -nocomplain vhighlights
6441 unset -nocomplain fhighlights
6442 unset -nocomplain nhighlights
6443 unset -nocomplain rhighlights
6444 set need_redisplay 0
6445 set nrows_drawn 0
6446 }
6448 proc findcrossings {id} {
6449 global rowidlist parentlist numcommits displayorder
6451 set cross {}
6452 set ccross {}
6456 }
6475 }
6476 }
6477 }
6478 }
6479 }
6481 }
6483 proc assigncolor {id} {
6484 global colormap colors nextcolor
6485 global parents children children curview
6491 } else {
6492 set kids {}
6493 }
6499 return
6500 }
6501 }
6502 set badcolors {}
6503 set origbad {}
6506 # delimiter between corner crossings and other crossings
6509 }
6513 }
6514 }
6517 }
6524 }
6529 }
6530 }
6531 }
6534 }
6535 }
6539 set nextcolor 0
6540 }
6542 }
6544 }
6546 proc bindline {t id} {
6547 global canv
6553 }
6555 proc graph_pane_width {} {
6556 global use_ttk
6559 set g [.tf.histframe.pwclist sashpos 0]
6560 } else {
6561 set g [.tf.histframe.pwclist sash coord 0]
6562 }
6564 }
6566 proc totalwidth {l font extra} {
6567 set tot 0
6570 }
6572 }
6574 proc drawtags {id x xt y1} {
6575 global idtags idheads idotherrefs mainhead
6576 global linespc lthickness
6577 global canv rowtextx curview fgcolor bgcolor ctxbut
6578 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
6579 global tagbgcolor tagfgcolor tagoutlinecolor
6580 global reflinecolor
6582 set marks {}
6583 set ntags 0
6584 set nheads 0
6585 set singletag 0
6586 set maxtags 3
6587 set maxtagpct 25
6597 # show just a single "n tags..." tag
6598 set singletag 1
6600 set marks [list "tag..."]
6601 } else {
6603 }
6604 set ntags 1
6605 }
6606 }
6610 }
6613 }
6616 }
6620 set xvals {}
6621 set wvals {}
6622 set i -1
6624 incr i
6627 } else {
6629 }
6633 }
6641 set font mainfont
6642 if {[incr ntags -1] >= 0} {
6643 # draw a tag
6650 } else {
6652 }
6655 } else {
6656 # draw a head or other ref
6657 if {[incr nheads -1] >= 0} {
6660 set font mainfontbold
6661 }
6662 } else {
6663 set col "#ddddff"
6664 }
6675 }
6676 }
6683 }
6684 }
6686 }
6688 proc drawnotesign {xt y} {
6689 global linespc canv fgcolor
6697 }
6699 proc xcoord {i level ln} {
6700 global canvx0 xspc1 xspc2
6707 }
6709 }
6711 proc show_status {msg} {
6712 global canv fgcolor
6714 clear_display
6715 set_window_title
6718 }
6720 # Don't change the text pane cursor if it is currently the hand cursor,
6721 # showing that we are over a sha1 ID link.
6722 proc settextcursor {c} {
6723 global ctext curtextcursor
6727 }
6729 }
6731 proc nowbusy {what {name {}}} {
6732 global isbusy busyname statusw
6734 if {[array names isbusy] eq {}} {
6735 . config -cursor watch
6736 settextcursor watch
6737 }
6742 }
6743 }
6745 proc notbusy {what} {
6746 global isbusy maincursor textcursor busyname statusw
6748 catch {
6753 }
6754 }
6755 if {[array names isbusy] eq {}} {
6758 }
6759 }
6761 proc findmatches {f} {
6762 global findtype findstring
6765 } else {
6770 }
6771 set matches {}
6772 set i 0
6777 }
6778 }
6780 }
6782 proc dofind {{dirn 1} {wrap 1}} {
6783 global findstring findstartline findcurline selectedline numcommits
6784 global gdttype filehighlight fh_serial find_dirn findallowwrap
6786 if {[info exists find_dirn]} {
6788 stopfinding
6789 }
6790 focus .
6794 } else {
6796 }
6798 nowbusy finding [mc "Searching"]
6802 }
6805 run findmore
6806 }
6808 proc stopfinding {} {
6809 global find_dirn findcurline fprogcoord
6811 if {[info exists find_dirn]} {
6812 unset find_dirn
6813 unset findcurline
6814 notbusy finding
6815 set fprogcoord 0
6816 adjustprogress
6817 }
6818 stopblaming
6819 }
6821 proc findmore {} {
6822 global commitdata commitinfo numcommits findpattern findloc
6823 global findstartline findcurline findallowwrap
6824 global find_dirn gdttype fhighlights fprogcoord
6825 global curview varcorder vrownum varccommits vrowmod
6827 if {![info exists find_dirn]} {
6828 return 0
6829 }
6830 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6832 set moretodo 0
6834 incr l
6836 set l 0
6837 }
6840 } else {
6843 }
6844 } else {
6847 }
6848 incr l -1
6851 } else {
6852 set lim -1
6854 }
6855 }
6858 set n 500
6859 set moretodo 1
6860 }
6863 }
6864 set found 0
6865 set domore 1
6879 }
6881 # shouldn't happen unless git log doesn't give all the commits...
6884 continue
6885 }
6888 }
6894 set found 1
6895 break
6896 }
6897 }
6899 }
6900 } else {
6908 }
6913 }
6916 break
6917 }
6920 set domore 0
6922 }
6923 }
6924 }
6925 }
6927 unset findcurline
6928 unset find_dirn
6929 notbusy finding
6930 set fprogcoord 0
6931 adjustprogress
6934 } else {
6935 bell
6936 }
6937 return 0
6938 }
6940 flushhighlights
6941 } else {
6943 }
6947 }
6949 adjustprogress
6951 }
6953 proc findselectline {l} {
6954 global findloc commentend ctext findcurline markingmatches gdttype
6961 # highlight the matches in the comments
6968 }
6969 }
6970 drawvisible
6971 }
6973 # mark the bits of a headline or author that match a find string
6974 proc markmatches {canv l str tag matches font row} {
6975 global selectedline
6993 }
6994 }
6995 }
6997 proc unmarkmatches {} {
6998 global markingmatches
7000 allcanvs delete matches
7001 set markingmatches 0
7002 stopfinding
7003 }
7005 proc selcanvline {w x y} {
7006 global canv canvy0 ctext linespc
7007 global rowtextx
7014 set l 0
7015 }
7020 }
7021 unmarkmatches
7023 }
7025 proc commit_descriptor {p} {
7026 global commitinfo
7029 }
7030 set l "..."
7033 }
7035 }
7037 # append some text to the ctext widget, and make any SHA1 ID
7038 # that we know about be a clickable link.
7039 # Also look for URLs of the form "http[s]://..." and make them web links.
7040 proc appendwithlinks {text tags} {
7041 global ctext linknum curview
7050 incr e
7054 incr linknum
7055 }
7056 set wlinks [regexp -indices -all -inline -line \
7062 incr e2
7066 incr linknum
7067 }
7068 }
7070 proc setlink {id lk} {
7071 global curview ctext pendinglinks
7072 global linkfgcolor
7076 }
7078 set known 0
7083 set known 1
7085 }
7086 } else {
7088 }
7094 } else {
7097 }
7098 }
7100 proc setwlink {url lk} {
7101 global ctext
7102 global linkfgcolor
7103 global web_browser
7110 }
7112 proc appendshortlink {id {pre {}} {post {}}} {
7113 global ctext linknum
7120 incr linknum
7121 }
7123 proc makelink {id} {
7124 global pendinglinks
7129 }
7131 }
7133 proc linkcursor {w inc} {
7134 global linkentercount curtextcursor
7138 } else {
7141 set linkentercount 0
7142 }
7143 }
7144 }
7146 proc browseweb {url} {
7147 global web_browser
7153 }
7154 }
7156 proc viewnextline {dir} {
7157 global canv linespc
7165 set newtop 0
7168 }
7170 }
7172 # add a list of tag or branch names at position pos
7173 # returns the number of names inserted
7174 proc appendrefs {pos ids var} {
7178 return 0
7179 }
7182 set tags {}
7186 }
7187 }
7189 set sep {}
7191 set nutags 0
7194 # If we are displaying heads, and there are too many,
7195 # see if there are some important heads to display.
7197 set itags {}
7199 set utags {}
7206 } else {
7208 }
7209 }
7211 }
7213 set str [mc "and many more"]
7214 set sep " "
7215 } else {
7216 set str [mc "many"]
7217 }
7221 }
7226 incr linknum
7231 set sep ", "
7232 }
7236 }
7238 # called when we have finished computing the nearby tags
7239 proc dispneartags {delay} {
7240 global selectedline currentid showneartags tagphase
7243 after cancel dispnexttag
7245 after 200 dispnexttag
7246 set tagphase -1
7247 } else {
7248 after idle dispnexttag
7249 set tagphase 0
7250 }
7251 }
7253 proc dispnexttag {} {
7254 global selectedline currentid showneartags tagphase ctext
7258 0 {
7262 }
7263 }
7264 1 {
7268 }
7269 }
7270 2 {
7275 # turn "Branch" into "Branches"
7279 }
7280 }
7281 }
7282 }
7283 if {[incr tagphase] <= 2} {
7284 after idle dispnexttag
7285 }
7286 }
7288 proc make_secsel {id} {
7289 global linehtag linentag linedtag canv canv2 canv3
7304 }
7306 proc make_idmark {id} {
7307 global linehtag canv fgcolor
7314 }
7316 proc selectline {l isnew {desired_loc {}} {switch_to_patch 0}} {
7317 global canv ctext commitinfo selectedline
7318 global canvy0 linespc parents children curview
7319 global currentid sha1entry
7320 global commentend idtags linknum
7321 global mergemax numcommits pending_select
7322 global cmitmode showneartags allcommits
7323 global targetrow targetid lastscrollrows
7324 global autoselect autosellen jump_to_here
7325 global vinlinediff
7327 unset -nocomplain pending_select
7329 normalline
7330 unsel_reflist
7331 stopfinding
7339 setcanvscroll
7340 }
7343 set cmitmode "patch"
7344 }
7358 } else {
7362 }
7363 }
7367 } else {
7371 }
7372 }
7373 }
7376 set newtop 0
7377 }
7379 drawvisible
7380 }
7386 }
7392 }
7396 clear_ctext
7397 set linknum 0
7400 }
7410 }
7412 }
7414 set headers {}
7417 set np 0
7420 set tag mmax
7421 } else {
7423 }
7426 incr np
7427 }
7428 } else {
7431 }
7432 }
7436 }
7438 # make anything that looks like a SHA1 ID be a clickable link
7441 if {![info exists allcommits]} {
7442 getallcommits
7443 }
7454 dispneartags 1
7455 }
7460 }
7468 init_flist [mc "Comments"]
7475 } else {
7477 }
7478 }
7480 proc selfirstline {} {
7481 unmarkmatches
7482 selectline 0 1
7483 }
7485 proc sellastline {} {
7486 global numcommits
7487 unmarkmatches
7490 }
7492 proc selnextline {dir} {
7493 global selectedline
7494 focus .
7497 unmarkmatches
7499 }
7501 proc selnextpage {dir} {
7502 global canv linespc selectedline numcommits
7506 set lpp 1
7507 }
7509 drawvisible
7513 set l 0
7516 }
7517 unmarkmatches
7519 }
7521 proc unselectline {} {
7522 global selectedline currentid
7524 set selectedline {}
7525 unset -nocomplain currentid
7526 allcanvs delete secsel
7527 rhighlight_none
7528 }
7530 proc reselectline {} {
7531 global selectedline
7535 }
7536 }
7538 proc addtohistory {cmd {saveproc {}}} {
7539 global history historyindex curview
7541 unset_posvars
7542 save_position
7546 return
7547 }
7551 } else {
7553 }
7554 incr historyindex
7556 .tf.bar.leftbut conf -state normal
7557 } else {
7558 .tf.bar.leftbut conf -state disabled
7559 }
7560 .tf.bar.rightbut conf -state disabled
7561 }
7563 # save the scrolling position of the diff display pane
7564 proc save_position {} {
7565 global historyindex history
7572 }
7573 }
7575 proc unset_posvars {} {
7576 global last_posvars
7578 if {[info exists last_posvars]} {
7582 }
7583 unset last_posvars
7584 }
7585 }
7587 proc godo {elt} {
7588 global curview last_posvars
7595 }
7596 unset_posvars
7600 }
7603 }
7605 proc goback {} {
7606 global history historyindex
7607 focus .
7610 save_position
7611 incr historyindex -1
7613 .tf.bar.rightbut conf -state normal
7614 }
7616 .tf.bar.leftbut conf -state disabled
7617 }
7618 }
7620 proc goforw {} {
7621 global history historyindex
7622 focus .
7625 save_position
7627 incr historyindex
7629 .tf.bar.leftbut conf -state normal
7630 }
7632 .tf.bar.rightbut conf -state disabled
7633 }
7634 }
7636 proc go_to_parent {i} {
7637 global parents curview targetid
7641 }
7642 }
7644 proc gettree {id} {
7645 global treefilelist treeidlist diffids diffmergeid treepending
7646 global nullid nullid2
7649 unset -nocomplain diffmergeid
7651 if {![info exists treepending]} {
7653 set cmd [list | git ls-files]
7655 set cmd [list | git ls-files --stage -t]
7656 } else {
7658 }
7660 return
7661 }
7667 }
7668 } else {
7670 }
7671 }
7673 proc gettreeline {gtf id} {
7674 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7676 set nl 0
7680 } else {
7688 }
7691 }
7694 }
7697 }
7699 unset treepending
7701 if {![info exists diffmergeid]} {
7703 }
7706 } else {
7708 }
7709 return 0
7710 }
7712 proc showfile {f} {
7713 global treefilelist treeidlist diffids nullid nullid2
7714 global ctext_file_names ctext_file_lines
7715 global ctext commentend
7720 return
7721 }
7725 return
7726 }
7727 } else {
7731 return
7732 }
7733 }
7744 settabs 0
7745 }
7747 proc getblobline {bf id} {
7748 global diffids cmitmode ctext
7752 return 0
7753 }
7755 set nl 0
7758 }
7760 global jump_to_here ctext_file_names commentend
7762 # delete last newline
7770 }
7772 return 0
7773 }
7776 }
7778 proc mark_ctext_line {lnum} {
7779 global ctext markbgcolor
7785 }
7787 proc mergediff {id} {
7788 global diffmergeid
7789 global diffids treediffs
7790 global parents curview
7798 }
7800 proc startdiff {ids} {
7801 global treediffs diffids treepending diffmergeid nullid nullid2
7803 settabs 1
7805 unset -nocomplain diffmergeid
7809 if {![info exists treepending]} {
7811 }
7812 } else {
7814 }
7815 }
7817 proc showinlinediff {ids} {
7818 global commitinfo commitdata ctext
7819 global treediffs
7825 initblobdiffvars
7826 set treediff {}
7828 set inhdr 0
7831 set inhdr 1
7833 # offset also accounts for the b/ prefix
7835 set inhdr 0
7836 }
7837 }
7845 }
7846 maybe_scroll_ctext 1
7848 }
7850 # If the filename (name) is under any of the passed filter paths
7851 # then return true to include the file in the listing.
7852 proc path_filter {filter name} {
7853 set worktree [gitworktree]
7858 return 1
7859 }
7860 }
7861 return 0
7862 }
7864 proc addtocflist {ids} {
7865 global treediffs
7869 }
7871 proc diffcmd {ids flags} {
7872 global log_showroot nullid nullid2 git_version
7878 # comparing working directory with some specific revision
7882 } else {
7884 }
7885 } else {
7886 # comparing working directory with index
7889 lappend cmd -R
7890 }
7891 }
7895 }
7898 # comparing index with specific revision
7901 } else {
7903 }
7904 } else {
7905 # comparing index with HEAD
7906 lappend cmd HEAD
7907 }
7908 } else {
7910 lappend flags --root
7911 }
7913 }
7915 }
7917 proc gettreediffs {ids} {
7918 global treediff treepending limitdiffs vfilelimit curview
7923 }
7927 set treediff {}
7930 }
7932 proc gettreediffline {gdtf ids} {
7933 global treediff treediffs treepending diffids diffmergeid
7934 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7936 set nr 0
7937 set sublist {}
7938 set max 1000
7940 # cache_gitattr is slow, and even slower on win32 where we
7941 # have to invoke it for only about 30 paths at a time
7942 set max 500
7943 if {[tk windowingsystem] == "win32"} {
7944 set max 120
7945 }
7946 }
7953 }
7958 }
7959 }
7960 }
7963 }
7966 }
7969 unset treepending
7973 if {![info exists diffmergeid]} {
7975 }
7976 } else {
7978 }
7979 return 0
7980 }
7982 # empty string or positive integer
7983 proc diffcontextvalidate {v} {
7985 }
7987 proc diffcontextchange {n1 n2 op} {
7988 global diffcontextstring diffcontext
7993 reselectline
7994 }
7995 }
7996 }
7998 proc changeignorespace {} {
7999 reselectline
8000 }
8002 proc changeworddiff {name ix op} {
8003 reselectline
8004 }
8006 proc initblobdiffvars {} {
8007 global diffencoding targetline diffnparents
8008 global diffinhdr currdiffsubmod diffseehere
8009 set targetline {}
8010 set diffnparents 0
8011 set diffinhdr 0
8012 set diffencoding [get_path_encoding {}]
8013 set currdiffsubmod ""
8014 set diffseehere -1
8015 }
8017 proc getblobdiffs {ids} {
8018 global blobdifffd diffids env
8019 global treediffs
8020 global diffcontext
8021 global ignorespace
8022 global worddiff
8023 global limitdiffs vfilelimit curview
8024 global git_version
8026 set textconv {}
8028 set textconv "--textconv"
8029 }
8030 set submodule {}
8032 set submodule "--submodule"
8033 }
8036 append cmd " -w"
8037 }
8039 append cmd " --word-diff=porcelain"
8040 }
8043 }
8046 return
8047 }
8050 initblobdiffvars
8052 }
8054 proc savecmitpos {} {
8055 global ctext cmitmode
8058 return {}
8059 }
8061 }
8063 proc savectextpos {} {
8064 global ctext
8067 }
8069 proc maybe_scroll_ctext {ateof} {
8070 global ctext target_scrollpos
8072 if {![info exists target_scrollpos]} return
8075 / [font metrics textfont -linespace]}]
8077 }
8079 unset target_scrollpos
8080 }
8082 proc setinlist {var i val} {
8087 }
8090 } else {
8092 }
8093 }
8095 proc makediffhdr {fname ids} {
8096 global ctext curdiffstart treediffs diffencoding
8097 global ctext_file_names jump_to_here targetline diffline
8104 }
8109 set targetline {}
8112 }
8113 set diffline 0
8114 }
8116 proc blobdiffmaybeseehere {ateof} {
8117 global diffseehere
8120 }
8122 }
8124 proc getblobdiffline {bdf ids} {
8125 global diffids blobdifffd
8126 global ctext
8128 set nr 0
8132 # Older diff read. Abort it.
8136 }
8137 return 0
8138 }
8140 }
8146 return 0
8147 }
8149 }
8151 proc parseblobdiffline {ids line} {
8152 global ctext curdiffstart
8153 global diffnexthead diffnextnote difffilestart
8154 global ctext_file_names ctext_file_lines
8155 global diffinhdr treediffs mergemax diffnparents
8156 global diffencoding jump_to_here targetline diffline currdiffsubmod
8157 global worddiff diffseehere
8163 continue
8164 }
8165 # start of a new file
8166 set diffinhdr 1
8167 set currdiffsubmod ""
8171 lappend ctext_file_names ""
8176 # start of a new file in a merge diff
8181 }
8183 } else {
8185 # If the name hasn't changed the length will be odd,
8186 # the middle char will be a space, and the two bits either
8187 # side will be a/name and b/name, or "a/name" and "b/name".
8188 # If the name has changed we'll get "rename from" and
8189 # "rename to" or "copy from" and "copy to" lines following
8190 # this, and we'll use them to get the filenames.
8191 # This complexity is necessary because spaces in the
8192 # filename(s) don't get escaped.
8198 return
8199 }
8200 # unescape if quoted and chop off the a/ from the front
8203 } else {
8205 }
8206 }
8219 }
8227 }
8229 set diffinhdr 0
8232 # start of a new submodule
8235 } else {
8237 }
8240 }
8243 lappend ctext_file_names ""
8248 } else {
8250 }
8262 }
8267 }
8273 }
8276 # do nothing
8277 return
8279 set diffinhdr 0
8280 return
8281 }
8284 } else {
8285 set line [string map {\x1A ^Z} \
8287 # parse the prefix - one ' ', '-' or '+' for each parent
8291 set words_pre_markup ""
8292 set words_post_markup ""
8294 # prefix only has " ", "-" and "+" in it: normal diff line
8298 }
8302 set num "max"
8303 }
8306 } else {
8308 }
8311 }
8312 } else {
8313 set tags {}
8315 # added line
8321 set num "max"
8322 }
8324 }
8325 }
8326 set words_pre_markup "{+"
8327 set words_post_markup "+}"
8328 }
8332 set targetline {}
8333 } else {
8334 incr diffline
8335 }
8336 }
8339 } else {
8341 }
8344 }
8345 }
8348 } else {
8349 # "\ No newline at end of file",
8350 # or something else we don't recognize
8352 }
8353 }
8354 }
8356 proc changediffdisp {} {
8357 global ctext diffelide
8361 }
8363 proc highlightfile {cline} {
8364 global cflist cflist_top
8366 if {![info exists cflist_top]} return
8372 }
8374 proc highlightfile_for_scrollpos {topidx} {
8375 global cmitmode difffilestart
8378 if {![info exists difffilestart]} return
8382 highlightfile 0
8383 } else {
8385 }
8386 }
8388 proc prevfile {} {
8389 global difffilestart ctext cmitmode
8392 set prev 0.0
8397 return
8398 }
8400 }
8402 }
8404 proc nextfile {} {
8405 global difffilestart ctext cmitmode
8412 return
8413 }
8414 }
8415 }
8417 proc clear_ctext {{first 1.0}} {
8418 global ctext smarktop smarkbot
8419 global ctext_file_names ctext_file_lines
8420 global pendinglinks
8425 }
8428 }
8431 unset -nocomplain pendinglinks
8432 }
8433 set ctext_file_names {}
8434 set ctext_file_lines {}
8435 }
8437 proc settabs {{firstab {}}} {
8438 global firsttabstop tabstop ctext have_tk85
8442 }
8443 set w [font measure textfont "0"]
8449 } else {
8451 }
8452 }
8454 proc incrsearch {name ix op} {
8455 global ctext searchstring searchdirn
8458 # no anchor set, use start of selection, or of visible area
8464 } else {
8466 }
8467 }
8475 suppress_highlighting_file_for_current_scrollpos
8477 }
8478 }
8479 rehighlight_search_results
8480 }
8482 proc dosearch {} {
8483 global sstring ctext searchstring searchdirn
8487 set searchdirn -forwards
8493 set start "@0,0"
8494 }
8498 bell
8499 return
8500 }
8502 suppress_highlighting_file_for_current_scrollpos
8507 rehighlight_search_results
8508 }
8509 }
8511 proc dosearchback {} {
8512 global sstring ctext searchstring searchdirn
8516 set searchdirn -backwards
8523 }
8527 bell
8528 return
8529 }
8531 suppress_highlighting_file_for_current_scrollpos
8536 rehighlight_search_results
8537 }
8538 }
8540 proc rehighlight_search_results {} {
8541 global ctext searchstring
8547 searchmarkvisible 1
8548 }
8549 }
8551 proc searchmark {first last} {
8552 global ctext searchstring
8557 while {1} {
8563 } else {
8565 }
8566 }
8567 }
8569 proc searchmarkvisible {doall} {
8570 global ctext smarktop smarkbot
8575 # no overlap with previous
8579 } else {
8583 }
8587 }
8588 }
8589 }
8591 proc suppress_highlighting_file_for_current_scrollpos {} {
8592 global ctext suppress_highlighting_file_for_this_scrollpos
8595 }
8597 proc scrolltext {f0 f1} {
8598 global searchstring cmitmode ctext
8599 global suppress_highlighting_file_for_this_scrollpos
8602 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8605 }
8607 unset -nocomplain suppress_highlighting_file_for_this_scrollpos
8611 searchmarkvisible 0
8612 }
8613 }
8615 proc setcoords {} {
8616 global linespc charspc canvx0 canvy0
8617 global xspc1 xspc2 lthickness
8619 set linespc [font metrics mainfont -linespace]
8620 set charspc [font measure mainfont "m"]
8626 }
8628 proc redisplay {} {
8629 global canv
8630 global selectedline
8635 clear_display
8636 setcanvscroll
8638 drawvisible
8642 }
8643 }
8645 proc parsefont {f n} {
8646 global fontattr
8651 set s 10
8654 }
8660 "normal" -
8662 "roman" -
8664 }
8665 }
8666 }
8668 proc fontflags {f {isbold 0}} {
8669 global fontattr
8674 }
8676 proc fontname {f} {
8677 global fontattr
8681 lappend n "bold"
8682 }
8684 lappend n "italic"
8685 }
8687 }
8689 proc incrfont {inc} {
8690 global mainfont textfont ctext canv cflist showrefstop
8691 global stopped entries fontattr
8693 unmarkmatches
8697 set s 1
8698 }
8702 set mainfont [fontname mainfont]
8706 set s 1
8707 }
8711 set textfont [fontname textfont]
8712 setcoords
8713 settabs
8714 redisplay
8715 }
8717 proc clearsha1 {} {
8718 global sha1entry sha1string
8721 }
8722 }
8724 proc sha1change {n1 n2 op} {
8725 global sha1string currentid sha1but
8728 set state disabled
8729 } else {
8730 set state normal
8731 }
8735 } else {
8737 }
8738 }
8740 proc gotocommit {} {
8741 global sha1string tagids headids curview varcid
8749 } else {
8756 return
8757 }
8759 }
8760 } else {
8763 return
8764 }
8765 }
8766 }
8769 return
8770 }
8773 } else {
8775 }
8777 }
8779 proc lineenter {x y id} {
8780 global hoverx hovery hoverid hovertimer
8781 global commitinfo canv
8787 if {[info exists hovertimer]} {
8789 }
8790 set hovertimer [after 500 linehover]
8792 }
8794 proc linemotion {x y id} {
8795 global hoverx hovery hoverid hovertimer
8800 if {[info exists hovertimer]} {
8802 }
8803 set hovertimer [after 500 linehover]
8804 }
8805 }
8807 proc lineleave {id} {
8808 global hoverid hovertimer canv
8812 if {[info exists hovertimer]} {
8814 unset hovertimer
8815 }
8816 unset hoverid
8817 }
8818 }
8820 proc linehover {} {
8821 global hoverx hovery hoverid hovertimer
8822 global canv linespc lthickness
8823 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8825 global commitinfo
8839 -width 1 -tags hover]
8844 }
8846 proc clickisonarrow {id y} {
8847 global lthickness
8856 }
8857 }
8858 return {}
8859 }
8861 proc arrowjump {id n y} {
8862 global canv
8864 # 1 <-> 2, 3 <-> 4, etc...
8874 set yfrac 0
8875 }
8877 }
8879 proc lineclick {x y id isnew} {
8880 global ctext commitinfo children canv thickerline curview
8883 unmarkmatches
8884 unselectline
8885 normalline
8887 # draw this line thicker than normal
8895 }
8899 return
8900 }
8904 }
8905 # fill the details pane with info about this line
8907 clear_ctext
8908 settabs 0
8920 set i 0
8922 incr i
8932 }
8933 }
8934 maybe_scroll_ctext 1
8936 init_flist {}
8937 }
8939 proc normalline {} {
8940 global thickerline
8941 if {[info exists thickerline]} {
8943 unset thickerline
8945 }
8946 }
8948 proc selbyid {id {isnew 1}} {
8949 global curview
8952 }
8953 }
8955 proc mstime {} {
8956 global startmstime
8957 if {![info exists startmstime]} {
8958 set startmstime [clock clicks -milliseconds]
8959 }
8961 }
8963 proc rowmenu {x y id} {
8964 global rowctxmenu selectedline rowmenuid curview
8965 global nullid nullid2 fakerowmenu mainhead markedid
8967 stopfinding
8970 set state disabled
8971 } else {
8972 set state normal
8973 }
8975 set mstate normal
8976 } else {
8977 set mstate disabled
8978 }
8983 } else {
8985 }
8989 } else {
8991 }
8998 }
9000 proc markhere {} {
9001 global rowmenuid markedid canv
9005 }
9007 proc gotomark {} {
9008 global markedid
9010 if {[info exists markedid]} {
9012 }
9013 }
9015 proc replace_by_kids {l r} {
9016 global curview children
9022 }
9024 }
9026 proc find_common_desc {} {
9027 global markedid rowmenuid curview children
9029 if {![info exists markedid]} return
9032 #set t1 [clock clicks -milliseconds]
9035 while 1 {
9041 break
9042 }
9045 } else {
9047 }
9048 }
9049 #set t2 [clock clicks -milliseconds]
9051 }
9053 proc compare_commits {} {
9054 global markedid rowmenuid curview children
9056 if {![info exists markedid]} return
9060 }
9062 proc getpatchid {id} {
9063 global patchids
9067 # trim off the initial "|"
9069 if {[catch {
9072 }]} {
9074 }
9075 }
9077 }
9079 proc do_cmp_commits {a b} {
9080 global ctext curview parents children patchids commitinfo
9083 clear_ctext
9084 init_flist {}
9086 set skipa 0
9087 set skipb 0
9090 set skipa 1
9091 } else {
9093 }
9096 set skipb 1
9097 } else {
9099 }
9105 [mc " - stopping\n"]
9106 break
9107 }
9110 [mc " - stopping\n"]
9111 break
9112 }
9117 } else {
9121 }
9122 set skipa 1
9123 set skipb 1
9124 } else {
9131 update
9133 return
9134 }
9135 }
9142 break
9143 }
9145 }
9151 break
9152 }
9154 }
9155 }
9157 }
9159 proc diffcommits {a b} {
9160 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
9162 set tmpdir [gitknewtmpdir]
9165 if {[catch {
9168 } err]} {
9170 return
9171 }
9172 if {[catch {
9174 } err]} {
9176 return
9177 }
9180 set diffinhdr 0
9181 set currdiffsubmod ""
9183 }
9185 proc diffvssel {dirn} {
9186 global rowmenuid selectedline
9192 } else {
9195 }
9198 }
9200 proc diffvsmark {dirn} {
9201 global rowmenuid markedid
9203 if {![info exists markedid]} return
9207 } else {
9210 }
9213 }
9215 proc doseldiff {oldid newid} {
9216 global ctext
9217 global commitinfo
9220 clear_ctext
9221 init_flist [mc "Top"]
9236 }
9238 proc mkpatch {} {
9239 global rowmenuid currentid commitinfo patchtop patchnum NS
9241 if {![info exists currentid]} return
9246 set top .patch
9276 incr patchnum
9288 }
9290 proc mkpatchrev {} {
9291 global patchtop
9297 foreach e [list fromsha1 fromhead tosha1 tohead] \
9303 }
9304 }
9306 proc mkpatchgo {} {
9307 global patchtop nullid nullid2
9313 # trim off the initial "|"
9318 }
9320 unset patchtop
9321 }
9323 proc mkpatchcan {} {
9324 global patchtop
9327 unset patchtop
9328 }
9330 proc mktag {} {
9331 global rowmenuid mktagtop commitinfo NS
9333 set top .maketag
9367 }
9369 proc domktag {} {
9370 global mktagtop env tagids idtags
9377 return 0
9378 }
9381 return 0
9382 }
9383 if {[catch {
9386 } else {
9388 }
9389 } err]} {
9391 return 0
9392 }
9398 dispneartags 0
9399 run refill_reflist
9400 return 1
9401 }
9403 proc redrawtags {id} {
9404 global canv linehtag idpos currentid curview cmitlisted markedid
9405 global canvxmax iddrawn circleitem mainheadid circlecolors
9406 global mainheadcirclecolor
9413 } else {
9415 }
9425 setcanvscroll
9426 }
9429 }
9432 }
9433 }
9435 proc mktagcan {} {
9436 global mktagtop
9439 unset mktagtop
9440 }
9442 proc mktaggo {} {
9443 if {![domktag]} return
9444 mktagcan
9445 }
9447 proc copyreference {} {
9448 global rowmenuid autosellen
9450 set format "%h (\"%s\", %ad)"
9454 }
9457 clipboard clear
9459 }
9461 proc writecommit {} {
9462 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9464 set top .writecommit
9497 }
9499 proc wrcomgo {} {
9500 global wrcomtop
9507 }
9509 unset wrcomtop
9510 }
9512 proc wrcomcan {} {
9513 global wrcomtop
9516 unset wrcomtop
9517 }
9519 proc mkbranch {} {
9520 global NS rowmenuid
9522 set top .branchdialog
9524 set val(name) ""
9528 set ui(title) [mc "Create branch"]
9529 set ui(accept) [mc "Create"]
9532 }
9534 proc mvbranch {} {
9535 global NS
9536 global headmenuid headmenuhead
9538 set top .branchdialog
9545 set ui(accept) [mc "Rename"]
9548 }
9550 proc branchdia {top valvar uivar} {
9551 global NS commitinfo
9583 }
9585 proc mkbrgo {top} {
9586 global headids idheads
9590 set cmdargs {}
9591 set old_id {}
9594 return
9595 }
9597 if {![confirm_popup [mc \
9599 return
9600 }
9602 lappend cmdargs -f
9603 }
9606 nowbusy newbranch
9607 update
9608 if {[catch {
9610 } err]} {
9611 notbusy newbranch
9613 } else {
9614 notbusy newbranch
9620 } else {
9625 }
9626 dispneartags 0
9627 run refill_reflist
9628 }
9629 }
9631 proc mvbrgo {top prevname} {
9632 global headids idheads mainhead mainheadid
9636 set cmdargs {}
9639 return
9640 }
9643 return
9644 }
9647 nowbusy renamebranch
9648 update
9649 if {[catch {
9651 } err]} {
9652 notbusy renamebranch
9654 } else {
9655 notbusy renamebranch
9664 }
9666 dispneartags 0
9667 run refill_reflist
9668 }
9669 }
9671 proc exec_citool {tool_args {baseid {}}} {
9672 global commitinfo env
9674 set save_env [array get env GIT_AUTHOR_*]
9679 }
9682 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9688 }
9689 }
9693 array unset env GIT_AUTHOR_*
9695 }
9697 proc cherrypick {} {
9698 global rowmenuid curview
9699 global mainhead mainheadid
9700 global gitdir
9702 set oldhead [exec git rev-parse HEAD]
9705 set ok [confirm_popup [mc "Commit %s is already\
9706 included in branch %s -- really re-apply it?" \
9709 }
9710 nowbusy cherrypick [mc "Cherry-picking"]
9711 update
9712 # Unfortunately git-cherry-pick writes stuff to stderr even when
9713 # no error occurs, and exec takes that as an indication of error...
9715 notbusy cherrypick
9716 if {[regexp -line \
9717 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9719 error_popup [mc "Cherry-pick failed because of local changes\
9720 to file '%s'.\nPlease commit, reset or stash\
9722 } elseif {[regexp -line \
9723 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9725 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9726 conflict.\nDo you wish to run git citool to\
9727 resolve it?"]]} {
9728 # Force citool to read MERGE_MSG
9731 }
9732 } else {
9734 }
9735 run updatecommits
9736 return
9737 }
9738 set newhead [exec git rev-parse HEAD]
9740 notbusy cherrypick
9741 error_popup [mc "No changes committed"]
9742 return
9743 }
9746 # XXX this isn't right if we have a path limit...
9751 }
9756 }
9757 notbusy cherrypick
9758 }
9760 proc revert {} {
9761 global rowmenuid curview
9762 global mainhead mainheadid
9763 global gitdir
9765 set oldhead [exec git rev-parse HEAD]
9768 set ok [confirm_popup [mc "Commit %s is not\
9769 included in branch %s -- really revert it?" \
9772 }
9773 nowbusy revert [mc "Reverting"]
9774 update
9777 notbusy revert
9778 if [regexp {files would be overwritten by merge:(\n(( |\t)+[^\n]+\n)+)}\
9781 error_popup [mc "Revert failed because of local changes to\
9782 the following files:%s Please commit, reset or stash \
9785 if [confirm_popup [mc "Revert failed because of merge conflict.\n\
9786 Do you wish to run git citool to resolve it?"]] {
9787 # Force citool to read MERGE_MSG
9790 }
9792 run updatecommits
9793 return
9794 }
9796 set newhead [exec git rev-parse HEAD]
9798 notbusy revert
9799 error_popup [mc "No changes committed"]
9800 return
9801 }
9806 # XXX this isn't right if we have a path limit...
9811 }
9816 }
9818 notbusy revert
9819 }
9821 proc resethead {} {
9822 global mainhead rowmenuid confirm_ok resettype NS
9824 set confirm_ok 0
9825 set w ".confirmreset"
9833 set resettype mixed
9835 -text [mc "Soft: Leave working tree and index untouched"]
9838 -text [mc "Mixed: Leave working tree untouched, reset index"]
9841 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9852 if {[catch {set fd [open \
9855 } else {
9856 dohidelocalchanges
9858 nowbusy reset [mc "Resetting"]
9860 }
9861 }
9863 proc readresetstat {fd} {
9864 global mainhead mainheadid showlocalchanges rprogcoord
9869 adjustprogress
9870 }
9871 return 1
9872 }
9873 set rprogcoord 0
9874 adjustprogress
9875 notbusy reset
9878 }
9880 set newhead [exec git rev-parse HEAD]
9887 }
9889 doshowlocalchanges
9890 }
9891 return 0
9892 }
9894 # context menu for a head
9895 proc headmenu {x y id head} {
9896 global headmenuid headmenuhead headctxmenu mainhead headids
9898 stopfinding
9901 array set state {0 normal 1 normal 2 normal}
9905 set state(0) disabled
9906 }
9907 array set state {1 disabled 2 disabled}
9908 }
9910 array set state {0 disabled 2 disabled}
9911 }
9912 foreach i {0 1 2} {
9914 }
9916 }
9918 proc cobranch {} {
9919 global headmenuid headmenuhead headids
9920 global showlocalchanges
9922 # check the tree is clean first??
9924 set command [list | git checkout]
9928 # The following check is redundant - the menu option should
9929 # be disabled to begin with...
9932 return
9933 }
9935 } else {
9937 }
9938 lappend command 2>@1
9939 nowbusy checkout [mc "Checking out"]
9940 update
9941 dohidelocalchanges
9942 if {[catch {
9944 } err]} {
9945 notbusy checkout
9948 dodiffindex
9949 }
9950 } else {
9952 }
9953 }
9955 proc readcheckoutstat {fd newhead newheadid} {
9956 global mainhead mainheadid headids idheads showlocalchanges progresscoords
9957 global viewmainheadid curview
9962 adjustprogress
9963 }
9964 return 1
9965 }
9966 set progresscoords {0 0}
9967 adjustprogress
9968 notbusy checkout
9971 return
9972 }
9978 }
9986 dodiffindex
9987 }
9988 }
9990 proc rmbranch {} {
9991 global headmenuid headmenuhead mainhead
9992 global idheads
9996 # this check shouldn't be needed any more...
9998 error_popup [mc "Cannot delete the currently checked-out branch"]
9999 return
10000 }
10003 # the stuff on this branch isn't on any other branch
10004 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
10006 }
10007 nowbusy rmbranch
10008 update
10010 notbusy rmbranch
10012 return
10013 }
10017 notbusy rmbranch
10018 dispneartags 0
10019 run refill_reflist
10020 }
10022 # Display a list of tags and heads
10023 proc showrefs {} {
10024 global showrefstop bgcolor fgcolor selectbgcolor NS
10025 global bglist fglist reflistfilter reflist maincursor
10027 set top .showrefs
10031 refill_reflist
10032 return
10033 }
10041 -spacing1 1 -spacing3 1 -state disabled
10046 }
10054 set reflistfilter "*"
10055 trace add variable reflistfilter write reflistfilter_change
10067 set reflist {}
10068 refill_reflist
10069 }
10071 proc sel_reflist {w x y} {
10072 global showrefstop reflist headids tagids otherrefids
10083 }
10085 }
10087 proc unsel_reflist {} {
10088 global showrefstop
10092 }
10094 proc reflistfilter_change {n1 n2 op} {
10095 global reflistfilter
10097 after cancel refill_reflist
10098 after 200 refill_reflist
10099 }
10101 proc refill_reflist {} {
10102 global reflist reflistfilter showrefstop headids tagids otherrefids
10103 global curview
10106 set refs {}
10107 foreach n [array names headids] {
10112 } else {
10114 }
10115 } else {
10117 }
10118 }
10119 }
10120 foreach n [array names tagids] {
10124 } else {
10126 }
10127 }
10128 }
10129 foreach n [array names otherrefids] {
10133 } else {
10135 }
10136 }
10137 }
10145 set i 0
10146 set j 0
10155 }
10156 } else {
10157 set cmp -1
10158 }
10159 } else {
10160 set cmp 1
10161 }
10163 -1 {
10165 incr i
10166 }
10167 0 {
10168 incr i
10169 incr j
10170 }
10171 1 {
10176 incr j
10177 }
10178 }
10179 }
10181 # delete last newline
10184 }
10186 # Stuff for finding nearby tags
10187 proc getallcommits {} {
10188 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
10189 global idheads idtags idotherrefs allparents tagobjid
10190 global gitdir
10192 if {![info exists allcommits]} {
10193 set nextarc 0
10194 set allcommits 0
10195 set seeds {}
10196 set allcwait 0
10197 set cachedarcs 0
10199 if {![catch {
10201 set allcwait 1
10203 }]} return
10204 }
10207 return
10208 }
10209 set cmd [list | git rev-list --parents]
10212 set ids "--all"
10213 } else {
10214 set refs [concat [array names idheads] [array names idtags] \
10215 [array names idotherrefs]]
10216 set ids {}
10217 set tagobjs {}
10218 foreach name [array names tagobjid] {
10220 }
10225 }
10226 }
10230 }
10231 }
10232 }
10236 incr allcommits
10237 nowbusy allcommits
10239 } else {
10240 dispneartags 0
10241 }
10242 }
10244 # Since most commits have 1 parent and 1 child, we group strings of
10245 # such commits into "arcs" joining branch/merge points (BMPs), which
10246 # are commits that either don't have 1 parent or don't have 1 child.
10247 #
10248 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
10249 # arcout(id) - outgoing arcs for BMP
10250 # arcids(a) - list of IDs on arc including end but not start
10251 # arcstart(a) - BMP ID at start of arc
10252 # arcend(a) - BMP ID at end of arc
10253 # growing(a) - arc a is still growing
10254 # arctags(a) - IDs out of arcids (excluding end) that have tags
10255 # archeads(a) - IDs out of arcids (excluding end) that have heads
10256 # The start of an arc is at the descendent end, so "incoming" means
10257 # coming from descendents, and "outgoing" means going towards ancestors.
10259 proc getallclines {fd} {
10260 global allparents allchildren idtags idheads nextarc
10261 global arcnos arcids arctags arcout arcend arcstart archeads growing
10262 global seeds allcommits cachedarcs allcupdate
10264 set nid 0
10268 # seen it already
10269 continue
10270 }
10271 set cachedarcs 0
10278 } else {
10284 }
10287 }
10289 # seen parent already
10292 }
10296 }
10299 continue
10300 }
10301 }
10306 }
10308 set ao {}
10311 set a [incr nextarc]
10320 # seen it already, may need to make a new branch
10323 }
10327 }
10329 }
10331 }
10333 global cached_dheads cached_dtags cached_atags
10334 unset -nocomplain cached_dheads
10335 unset -nocomplain cached_dtags
10336 unset -nocomplain cached_atags
10337 }
10340 }
10341 set cacheok 1
10342 if {[catch {
10345 } err]} {
10346 # got an error reading the list of commits
10347 # if we were updating, try rereading the whole thing again
10349 incr allcommits -1
10351 return
10352 }
10353 error_popup "[mc "Error reading commit topology information;\
10354 branch and preceding/following tag information\
10356 set cacheok 0
10357 }
10358 if {[incr allcommits -1] == 0} {
10359 notbusy allcommits
10361 run savecache
10362 }
10363 }
10364 dispneartags 0
10365 return 0
10366 }
10368 proc recalcarc {a} {
10369 global arctags archeads arcids idtags idheads
10371 set at {}
10372 set ah {}
10376 }
10379 }
10380 }
10383 }
10385 proc splitarc {p} {
10386 global arcnos arcids nextarc arctags archeads idtags idheads
10387 global arcstart arcend arcout allparents growing
10392 return
10393 }
10398 return
10399 }
10400 set na [incr nextarc]
10403 } else {
10407 }
10417 }
10422 } else {
10425 }
10426 }
10428 # reconstruct tags and heads lists
10432 } else {
10435 }
10436 }
10438 # Update things for a new commit added that is a child of one
10439 # existing commit. Used when cherry-picking.
10440 proc addnewchild {id p} {
10441 global allparents allchildren idtags nextarc
10442 global arcnos arcids arctags arcout arcend arcstart archeads growing
10443 global seeds allcommits
10451 set a [incr nextarc]
10459 }
10462 }
10464 # This implements a cache for the topology information.
10465 # The cache saves, for each arc, the start and end of the arc,
10466 # the ids on the arc, and the outgoing arcs from the end.
10467 proc readcache {f} {
10468 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
10469 global idtags idheads allparents cachedarcs possible_seeds seeds growing
10470 global allcwait
10476 }
10477 if {[catch {
10479 # finish reading the cache and setting up arctags, etc.
10483 foreach id [array names idtags] {
10489 }
10490 }
10491 }
10492 foreach id [array names idheads] {
10498 }
10499 }
10500 }
10504 }
10505 }
10506 set allcwait 0
10507 } else {
10517 }
10521 } else {
10525 }
10526 }
10532 }
10535 }
10538 }
10540 }
10541 } err]} {
10543 return 0
10544 }
10546 getallcommits
10547 }
10549 }
10551 proc getcache {f} {
10552 global nextarc cachedarcs possible_seeds
10554 if {[catch {
10557 # make sure it's an integer
10560 set nextarc 0
10561 set possible_seeds {}
10563 } err]} {
10565 }
10566 return 0
10567 }
10569 proc dropcache {err} {
10570 global allcwait nextarc cachedarcs seeds
10573 foreach v {arcnos arcout arcids arcstart arcend growing \
10574 arctags archeads allparents allchildren} {
10577 }
10578 set allcwait 0
10579 set nextarc 0
10580 set cachedarcs 0
10581 set seeds {}
10582 getallcommits
10583 }
10585 proc writecache {f} {
10586 global cachearc cachedarcs allccache
10587 global arcstart arcend arcnos arcids arcout
10593 }
10594 if {[catch {
10598 } else {
10600 }
10601 }
10602 } err]} {
10606 return 0
10607 }
10612 return 0
10613 }
10614 return 1
10615 }
10617 proc savecache {} {
10618 global nextarc cachedarcs cachearc allccache
10621 set cachearc 0
10623 catch {
10627 }
10628 }
10630 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10631 # or 0 if neither is true.
10632 proc anc_or_desc {a b} {
10633 global arcout arcstart arcend arcnos cached_isanc
10636 # Both are on the same arc(s); either both are the same BMP,
10637 # or if one is not a BMP, the other is also not a BMP or is
10638 # the BMP at end of the arc (and it only has 1 incoming arc).
10639 # Or both can be BMPs with no incoming arcs.
10641 return 0
10642 }
10648 return 1
10649 } else {
10650 return -1
10651 }
10652 }
10658 } else {
10659 set aend {}
10660 }
10662 } else {
10664 }
10669 } else {
10670 set bend {}
10671 }
10673 } else {
10675 }
10677 return 1
10678 }
10680 return -1
10681 }
10684 return 1
10685 }
10686 }
10689 return -1
10690 }
10692 return 0
10693 }
10694 }
10702 continue
10703 }
10709 return 1
10713 return -1
10714 }
10720 }
10721 }
10722 }
10725 return 0
10726 }
10730 # and returns 0 if so and 1 if not.
10731 # If we subsequently discover a tag on such a growing tip, and that
10734 # isn't a good choice to display as a descendent tag of
10738 #
10739 proc is_certain {desc anc} {
10740 global arcnos arcout arcstart arcend growing problems
10742 set certain {}
10744 # tags on the same arc are certain
10746 return 1
10747 }
10752 }
10753 }
10756 } else {
10759 }
10761 return 1
10762 }
10765 set nnh 1
10766 set ngrowanc 0
10770 incr nnh -1
10771 }
10777 incr ngrowanc
10778 }
10779 } else {
10786 incr nnh -1
10787 }
10789 incr ngrowanc -1
10790 }
10800 incr nnh -1
10801 }
10803 incr ngrowanc -1
10804 }
10806 }
10807 }
10808 }
10809 }
10810 }
10811 }
10815 } else {
10818 incr nnh
10819 }
10820 }
10821 }
10822 }
10823 foreach x [array names growanc] {
10825 return 0
10826 }
10827 return 0
10828 }
10829 return 1
10830 }
10832 proc validate_arctags {a} {
10833 global arctags idtags
10835 set i -1
10838 incr i
10841 incr i -1
10842 }
10843 }
10845 }
10847 proc validate_archeads {a} {
10848 global archeads idheads
10850 set i -1
10853 incr i
10856 incr i -1
10857 }
10858 }
10860 }
10862 # Return the list of IDs that have tags that are descendents of id,
10863 # ignoring IDs that are descendents of IDs already reported.
10864 proc desctags {id} {
10865 global arcnos arcstart arcids arctags idtags allparents
10866 global growing cached_dtags
10869 return {}
10870 }
10871 set t1 [clock clicks -milliseconds]
10874 # part-way along an arc; check that arc first
10879 set tid {}
10884 }
10887 }
10888 }
10892 }
10893 }
10896 }
10901 set nc 1
10907 incr nc -1
10908 }
10909 # ignore tags on starting node
10913 set ta 1
10916 set ta 1
10917 }
10918 }
10925 }
10926 }
10935 }
10938 }
10940 incr nc -1
10941 }
10943 }
10944 }
10945 }
10950 incr nc
10951 }
10952 }
10953 }
10954 }
10955 set tags {}
10956 foreach id [array names tagloc] {
10961 }
10962 }
10963 }
10964 }
10965 set t2 [clock clicks -milliseconds]
10968 # remove tags that are descendents of other tags
10976 incr j -1
10977 incr i -1
10980 incr i -1
10981 break
10982 }
10983 }
10984 }
10986 if {[array names growing] ne {}} {
10987 # graph isn't finished, need to check if any tag could get
10988 # eclipsed by another tag coming later. Simply ignore any
10989 # tags that could later get eclipsed.
10990 set ctags {}
10994 }
10995 }
10998 } else {
11000 }
11001 } else {
11003 }
11004 set t3 [clock clicks -milliseconds]
11008 }
11010 }
11012 proc anctags {id} {
11013 global arcnos arcids arcout arcend arctags idtags allparents
11014 global growing cached_atags
11017 return {}
11018 }
11019 set t1 [clock clicks -milliseconds]
11022 # part-way along an arc; check that arc first
11031 }
11032 }
11033 }
11035 return {}
11036 }
11040 }
11041 }
11044 }
11049 set taglist {}
11050 set nc 1
11056 incr nc -1
11057 }
11058 # ignore tags on starting node
11062 set td 1
11065 set td 1
11066 }
11067 }
11073 }
11074 }
11086 }
11087 }
11090 }
11092 incr nc -1
11093 }
11095 }
11096 }
11097 }
11102 incr nc
11103 }
11104 }
11105 }
11106 }
11107 set t2 [clock clicks -milliseconds]
11109 set tags {}
11110 foreach id [array names tagloc] {
11115 }
11116 }
11117 }
11118 }
11120 # remove tags that are ancestors of other tags
11128 incr j -1
11129 incr i -1
11132 incr i -1
11133 break
11134 }
11135 }
11136 }
11138 if {[array names growing] ne {}} {
11139 # graph isn't finished, need to check if any tag could get
11140 # eclipsed by another tag coming later. Simply ignore any
11141 # tags that could later get eclipsed.
11142 set ctags {}
11146 }
11147 }
11150 } else {
11152 }
11153 } else {
11155 }
11156 set t3 [clock clicks -milliseconds]
11160 }
11162 }
11164 # Return the list of IDs that have heads that are descendents of id,
11165 # including id itself if it has a head.
11166 proc descheads {id} {
11167 global arcnos arcstart arcids archeads idheads cached_dheads
11168 global allparents arcout
11171 return {}
11172 }
11173 set aret {}
11175 # part-way along an arc; check it first
11184 }
11185 }
11187 }
11191 set ret {}
11196 } else {
11199 }
11205 }
11206 }
11211 }
11212 }
11213 }
11214 }
11218 }
11220 proc addedtag {id} {
11221 global arcnos arcout cached_dtags cached_atags
11226 }
11227 unset -nocomplain cached_dtags
11228 unset -nocomplain cached_atags
11229 }
11231 proc addedhead {hid head} {
11232 global arcnos arcout cached_dheads
11237 }
11238 unset -nocomplain cached_dheads
11239 }
11241 proc removedhead {hid head} {
11242 global cached_dheads
11244 unset -nocomplain cached_dheads
11245 }
11247 proc movedhead {hid head} {
11248 global arcnos arcout cached_dheads
11253 }
11254 unset -nocomplain cached_dheads
11255 }
11257 proc changedrefs {} {
11258 global cached_dheads cached_dtags cached_atags cached_tagcontent
11259 global arctags archeads arcnos arcout idheads idtags
11261 foreach id [concat [array names idheads] [array names idtags]] {
11267 }
11268 }
11269 }
11270 unset -nocomplain cached_tagcontent
11271 unset -nocomplain cached_dtags
11272 unset -nocomplain cached_atags
11273 unset -nocomplain cached_dheads
11274 }
11276 proc rereadrefs {} {
11277 global idtags idheads idotherrefs mainheadid
11279 set refids [concat [array names idtags] \
11280 [array names idheads] [array names idotherrefs]]
11284 }
11285 }
11287 readrefs
11288 changedrefs
11290 [array names idheads] [array names idotherrefs]]]
11295 }
11296 }
11300 }
11301 run refill_reflist
11302 }
11304 proc listrefs {id} {
11305 global idtags idheads idotherrefs
11307 set x {}
11310 }
11311 set y {}
11314 }
11315 set z {}
11318 }
11320 }
11322 proc add_tag_ctext {tag} {
11323 global ctext cached_tagcontent tagids
11326 catch {
11328 }
11329 }
11333 } else {
11335 }
11337 }
11339 proc showtag {tag isnew} {
11340 global ctext cached_tagcontent tagids linknum tagobjid
11344 }
11346 clear_ctext
11347 settabs 0
11348 set linknum 0
11350 maybe_scroll_ctext 1
11352 init_flist {}
11353 }
11355 proc showtags {id isnew} {
11356 global idtags ctext linknum
11360 }
11362 clear_ctext
11363 settabs 0
11364 set linknum 0
11365 set sep {}
11369 set sep "\n\n"
11370 }
11371 maybe_scroll_ctext 1
11373 init_flist {}
11374 }
11376 proc doquit {} {
11377 global stopped
11378 global gitktmpdir
11380 set stopped 100
11381 savestuff .
11382 destroy .
11384 if {[info exists gitktmpdir]} {
11386 }
11387 }
11389 proc mkfontdisp {font top which} {
11398 }
11400 proc choosefont {font which} {
11401 global fontparam fontlist fonttop fontattr
11402 global prefstop NS
11410 set top .gitkfont
11413 font create sample
11420 set fontlist [lsort [font families]]
11431 -textvariable fontparam(size) \
11432 -validatecommand {string is integer -strict %s}
11434 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
11435 -variable fontparam(weight) -onvalue bold -offvalue normal
11437 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
11438 -variable fontparam(slant) -onvalue italic -offvalue roman
11442 -background white
11444 -fill black -tags text
11456 trace add variable fontparam write chg_fontparam
11457 } else {
11460 }
11465 }
11466 }
11468 proc centertext {w} {
11470 }
11472 proc fontok {} {
11473 global fontparam fontpref prefstop
11479 }
11482 }
11486 fontcan
11487 }
11489 proc fontcan {} {
11490 global fonttop fontparam
11492 if {[info exists fonttop]} {
11494 catch {font delete sample}
11495 unset fonttop
11496 unset fontparam
11497 }
11498 }
11500 if {[package vsatisfies [package provide Tk] 8.6]} {
11501 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
11502 # function to make use of it.
11503 proc choosefont {font which} {
11506 tk fontchooser show
11507 }
11508 proc on_choosefont {font which newfont} {
11509 global fontparam
11518 fontok
11519 }
11520 }
11522 proc selfontfam {} {
11523 global fonttop fontparam
11528 }
11529 }
11531 proc chg_fontparam {v sub op} {
11532 global fontparam
11535 }
11537 # Create a property sheet tab page
11538 proc create_prefs_page {w} {
11539 global NS
11543 } else {
11545 }
11546 }
11548 proc prefspage_general {notebook} {
11549 global NS maxwidth maxgraphpct showneartags showlocalchanges
11550 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11551 global hideremotes want_ttk have_ttk maxrefs web_browser
11561 #xgettext:no-tcl-format
11566 -variable showlocalchanges
11569 -variable autoselect
11573 -variable hideremotes
11582 -variable showneartags
11588 -variable limitdiffs
11591 -variable perfile_attrs
11612 -text [mc "Use themed widgets"]
11615 } else {
11617 }
11620 }
11622 proc prefspage_colors {notebook} {
11623 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11624 global diffbgcolors
11650 [mc "diff old lines bg"] \
11661 [mc "diff new lines bg"] \
11667 [mc "diff hunk header"] \
11673 [mc "marked line background"] \
11681 }
11683 proc prefspage_fonts {notebook} {
11684 global NS
11692 }
11694 proc doprefs {} {
11695 global maxwidth maxgraphpct use_ttk NS
11696 global oldprefs prefstop showneartags showlocalchanges
11697 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11698 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11699 global hideremotes want_ttk have_ttk
11701 set top .gitkprefs
11705 return
11706 }
11707 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11708 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11710 }
11717 } else {
11719 }
11724 set col 0
11728 } else {
11734 }
11735 }
11741 }
11758 }
11760 proc choose_extdiff {} {
11761 global extdifftool
11763 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11766 }
11767 }
11769 proc choosecolor {v vi w x cmd} {
11778 }
11780 proc setselbg {c} {
11781 global bglist cflist
11785 }
11786 }
11790 }
11792 # This sets the background color and the color scheme for the whole UI.
11793 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11794 # if we don't specify one ourselves, which makes the checkbuttons and
11795 # radiobuttons look bad. This chooses white for selectColor if the
11796 # background color is light, or black if it is dark.
11797 proc setui {c} {
11798 if {[tk windowingsystem] eq "win32"} { return }
11800 set selc black
11802 set selc white
11803 }
11805 }
11807 proc setbg {c} {
11808 global bglist
11813 }
11814 }
11815 }
11817 proc setfg {c} {
11818 global fglist canv
11823 }
11824 }
11828 }
11830 proc prefscan {} {
11831 global oldprefs prefstop
11833 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11834 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11837 }
11839 unset prefstop
11840 fontcan
11841 }
11843 proc prefsok {} {
11844 global maxwidth maxgraphpct
11845 global oldprefs prefstop showneartags showlocalchanges
11846 global fontpref mainfont textfont uifont
11847 global limitdiffs treediffs perfile_attrs
11848 global hideremotes
11851 unset prefstop
11852 fontcan
11853 set fontchanged 0
11857 eval font configure mainfont [fontflags mainfont]
11858 eval font configure mainfontbold [fontflags mainfont 1]
11859 setcoords
11860 set fontchanged 1
11861 }
11865 eval font configure textfont [fontflags textfont]
11866 eval font configure textfontbold [fontflags textfont 1]
11867 }
11871 eval font configure uifont [fontflags uifont]
11872 }
11873 settabs
11876 doshowlocalchanges
11877 } else {
11878 dohidelocalchanges
11879 }
11880 }
11883 # treediffs elements are limited by path;
11884 # won't have encodings cached if perfile_attrs was just turned on
11885 unset -nocomplain treediffs
11886 }
11889 redisplay
11892 reselectline
11893 }
11895 rereadrefs
11896 }
11897 }
11899 proc formatdate {d} {
11900 global datetimeformat
11903 # timezone of the argument. Otherwise, display in local time.
11905 if {[catch {set d [clock format [lindex $d 0] -timezone [lindex $d 1] -format $datetimeformat]}]} {
11906 # Tcl < 8.5 does not support -timezone. Emulate it by
11907 # setting TZ (e.g. TZ=<-0430>+04:30).
11908 global env
11909 if {[info exists env(TZ)]} {
11911 }
11916 if {[info exists savedTZ]} {
11918 } else {
11919 unset env(TZ)
11920 }
11921 }
11922 } else {
11924 }
11925 }
11927 }
11929 # This list of encoding names and aliases is distilled from
11930 # http://www.iana.org/assignments/character-sets.
11931 # Not all of them are supported by Tcl.
11932 set encoding_aliases {
11933 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11934 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11935 { ISO-10646-UTF-1 csISO10646UTF1 }
11936 { ISO_646.basic:1983 ref csISO646basic1983 }
11937 { INVARIANT csINVARIANT }
11938 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11939 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11940 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11941 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11942 { NATS-DANO iso-ir-9-1 csNATSDANO }
11943 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11944 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11945 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11946 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11947 { ISO-2022-KR csISO2022KR }
11948 { EUC-KR csEUCKR }
11949 { ISO-2022-JP csISO2022JP }
11950 { ISO-2022-JP-2 csISO2022JP2 }
11951 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11952 csISO13JISC6220jp }
11953 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11954 { IT iso-ir-15 ISO646-IT csISO15Italian }
11955 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11956 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11957 { greek7-old iso-ir-18 csISO18Greek7Old }
11958 { latin-greek iso-ir-19 csISO19LatinGreek }
11959 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11960 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11961 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11962 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11963 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11964 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11965 { INIS iso-ir-49 csISO49INIS }
11966 { INIS-8 iso-ir-50 csISO50INIS8 }
11967 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11968 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11969 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11970 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11971 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11972 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11973 csISO60Norwegian1 }
11974 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11975 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11976 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11977 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11978 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11979 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11980 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11981 { greek7 iso-ir-88 csISO88Greek7 }
11982 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11983 { iso-ir-90 csISO90 }
11984 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11985 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11986 csISO92JISC62991984b }
11987 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11988 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11989 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11990 csISO95JIS62291984handadd }
11991 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11992 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11993 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11994 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11995 CP819 csISOLatin1 }
11996 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11997 { T.61-7bit iso-ir-102 csISO102T617bit }
11998 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11999 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
12000 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
12001 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
12002 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
12003 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
12004 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
12005 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
12006 arabic csISOLatinArabic }
12007 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
12008 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
12009 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
12010 greek greek8 csISOLatinGreek }
12011 { T.101-G2 iso-ir-128 csISO128T101G2 }
12012 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
12013 csISOLatinHebrew }
12014 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
12015 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
12016 { CSN_369103 iso-ir-139 csISO139CSN369103 }
12017 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
12018 { ISO_6937-2-add iso-ir-142 csISOTextComm }
12019 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
12020 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
12021 csISOLatinCyrillic }
12022 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
12023 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
12024 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
12025 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
12026 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
12027 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
12028 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
12029 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
12030 { ISO_10367-box iso-ir-155 csISO10367Box }
12031 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
12032 { latin-lap lap iso-ir-158 csISO158Lap }
12033 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
12034 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
12035 { us-dk csUSDK }
12036 { dk-us csDKUS }
12037 { JIS_X0201 X0201 csHalfWidthKatakana }
12038 { KSC5636 ISO646-KR csKSC5636 }
12039 { ISO-10646-UCS-2 csUnicode }
12040 { ISO-10646-UCS-4 csUCS4 }
12041 { DEC-MCS dec csDECMCS }
12042 { hp-roman8 roman8 r8 csHPRoman8 }
12043 { macintosh mac csMacintosh }
12044 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
12045 csIBM037 }
12046 { IBM038 EBCDIC-INT cp038 csIBM038 }
12047 { IBM273 CP273 csIBM273 }
12048 { IBM274 EBCDIC-BE CP274 csIBM274 }
12049 { IBM275 EBCDIC-BR cp275 csIBM275 }
12050 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
12051 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
12052 { IBM280 CP280 ebcdic-cp-it csIBM280 }
12053 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
12054 { IBM284 CP284 ebcdic-cp-es csIBM284 }
12055 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
12056 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
12057 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
12058 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
12059 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
12060 { IBM424 cp424 ebcdic-cp-he csIBM424 }
12061 { IBM437 cp437 437 csPC8CodePage437 }
12062 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
12063 { IBM775 cp775 csPC775Baltic }
12064 { IBM850 cp850 850 csPC850Multilingual }
12065 { IBM851 cp851 851 csIBM851 }
12066 { IBM852 cp852 852 csPCp852 }
12067 { IBM855 cp855 855 csIBM855 }
12068 { IBM857 cp857 857 csIBM857 }
12069 { IBM860 cp860 860 csIBM860 }
12070 { IBM861 cp861 861 cp-is csIBM861 }
12071 { IBM862 cp862 862 csPC862LatinHebrew }
12072 { IBM863 cp863 863 csIBM863 }
12073 { IBM864 cp864 csIBM864 }
12074 { IBM865 cp865 865 csIBM865 }
12075 { IBM866 cp866 866 csIBM866 }
12076 { IBM868 CP868 cp-ar csIBM868 }
12077 { IBM869 cp869 869 cp-gr csIBM869 }
12078 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
12079 { IBM871 CP871 ebcdic-cp-is csIBM871 }
12080 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
12081 { IBM891 cp891 csIBM891 }
12082 { IBM903 cp903 csIBM903 }
12083 { IBM904 cp904 904 csIBBM904 }
12084 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
12085 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
12086 { IBM1026 CP1026 csIBM1026 }
12087 { EBCDIC-AT-DE csIBMEBCDICATDE }
12088 { EBCDIC-AT-DE-A csEBCDICATDEA }
12089 { EBCDIC-CA-FR csEBCDICCAFR }
12090 { EBCDIC-DK-NO csEBCDICDKNO }
12091 { EBCDIC-DK-NO-A csEBCDICDKNOA }
12092 { EBCDIC-FI-SE csEBCDICFISE }
12093 { EBCDIC-FI-SE-A csEBCDICFISEA }
12094 { EBCDIC-FR csEBCDICFR }
12095 { EBCDIC-IT csEBCDICIT }
12096 { EBCDIC-PT csEBCDICPT }
12097 { EBCDIC-ES csEBCDICES }
12098 { EBCDIC-ES-A csEBCDICESA }
12099 { EBCDIC-ES-S csEBCDICESS }
12100 { EBCDIC-UK csEBCDICUK }
12101 { EBCDIC-US csEBCDICUS }
12102 { UNKNOWN-8BIT csUnknown8BiT }
12103 { MNEMONIC csMnemonic }
12104 { MNEM csMnem }
12105 { VISCII csVISCII }
12106 { VIQR csVIQR }
12107 { KOI8-R csKOI8R }
12108 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
12109 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
12110 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
12111 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
12112 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
12113 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
12114 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
12115 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
12116 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
12117 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
12118 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
12119 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
12120 { IBM1047 IBM-1047 }
12121 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
12122 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
12123 { UNICODE-1-1 csUnicode11 }
12124 { CESU-8 csCESU-8 }
12125 { BOCU-1 csBOCU-1 }
12126 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
12127 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
12128 l8 }
12129 { ISO-8859-15 ISO_8859-15 Latin-9 }
12130 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
12131 { GBK CP936 MS936 windows-936 }
12132 { JIS_Encoding csJISEncoding }
12133 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
12134 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
12135 EUC-JP }
12136 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
12137 { ISO-10646-UCS-Basic csUnicodeASCII }
12138 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
12139 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
12140 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
12141 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
12142 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
12143 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
12144 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
12145 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
12146 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
12147 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
12148 { Adobe-Standard-Encoding csAdobeStandardEncoding }
12149 { Ventura-US csVenturaUS }
12150 { Ventura-International csVenturaInternational }
12151 { PC8-Danish-Norwegian csPC8DanishNorwegian }
12152 { PC8-Turkish csPC8Turkish }
12153 { IBM-Symbols csIBMSymbols }
12154 { IBM-Thai csIBMThai }
12155 { HP-Legal csHPLegal }
12156 { HP-Pi-font csHPPiFont }
12157 { HP-Math8 csHPMath8 }
12158 { Adobe-Symbol-Encoding csHPPSMath }
12159 { HP-DeskTop csHPDesktop }
12160 { Ventura-Math csVenturaMath }
12161 { Microsoft-Publishing csMicrosoftPublishing }
12162 { Windows-31J csWindows31J }
12163 { GB2312 csGB2312 }
12164 { Big5 csBig5 }
12165 }
12167 proc tcl_encoding {enc} {
12168 global encoding_aliases tcl_encoding_cache
12171 }
12172 set names [encoding names]
12177 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
12180 }
12181 }
12186 # look through the aliases for one that tcl knows about
12192 }
12193 }
12195 }
12196 break
12197 }
12198 }
12199 set tclenc {}
12202 }
12205 }
12207 proc gitattr {path attr default} {
12208 global path_attr_cache
12211 } else {
12212 set r "unspecified"
12215 }
12217 }
12220 }
12222 }
12224 proc cache_gitattr {attr pathlist} {
12225 global path_attr_cache
12226 set newlist {}
12230 }
12231 }
12232 set lim 1000
12233 if {[tk windowingsystem] == "win32"} {
12234 # windows has a 32k limit on the arguments to a command...
12235 set lim 30
12236 }
12245 }
12247 }
12248 }
12249 }
12250 }
12251 }
12253 proc get_path_encoding {path} {
12254 global gui_encoding perfile_attrs
12260 }
12261 }
12263 }
12265 ## For msgcat loading, first locate the installation location.
12266 if { [info exists ::env(GITK_MSGSDIR)] } {
12267 ## Msgsdir was manually set in the environment.
12268 set gitk_msgsdir $::env(GITK_MSGSDIR)
12269 } else {
12270 ## Let's guess the prefix from argv0.
12274 unset gitk_prefix
12275 }
12277 ## Internationalization (i18n) through msgcat and gettext. See
12278 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
12279 package require msgcat
12280 namespace import ::msgcat::mc
12281 ## And eventually load the actual message catalog
12284 # First check that Tcl/Tk is recent enough
12285 if {[catch {package require Tk 8.4} err]} {
12286 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
12287 Gitk requires at least Tcl/Tk 8.4."]
12288 exit 1
12289 }
12291 # on OSX bring the current Wish process window to front
12292 if {[tk windowingsystem] eq "aqua"} {
12293 exec osascript -e [format {
12294 tell application "System Events"
12295 set frontmost of processes whose unix id is %d to true
12296 end tell
12297 } [pid] ]
12298 }
12300 # Unset GIT_TRACE var if set
12301 if { [info exists ::env(GIT_TRACE)] } {
12302 unset ::env(GIT_TRACE)
12303 }
12305 # defaults...
12306 set wrcomcmd "git diff-tree --stdin -p --pretty=email"
12308 set gitencoding {}
12309 catch {
12310 set gitencoding [exec git config --get i18n.commitencoding]
12311 }
12312 catch {
12313 set gitencoding [exec git config --get i18n.logoutputencoding]
12314 }
12316 set gitencoding "utf-8"
12317 }
12321 }
12323 set gui_encoding [encoding system]
12324 catch {
12325 set enc [exec git config --get gui.encoding]
12330 } else {
12332 }
12333 }
12334 }
12336 set log_showroot true
12337 catch {
12338 set log_showroot [exec git config --bool --get log.showroot]
12339 }
12341 if {[tk windowingsystem] eq "aqua"} {
12342 set mainfont {{Lucida Grande} 9}
12343 set textfont {Monaco 9}
12344 set uifont {{Lucida Grande} 9 bold}
12346 # fontconfig!
12347 set mainfont {sans 9}
12348 set textfont {monospace 9}
12349 set uifont {sans 9 bold}
12350 } else {
12351 set mainfont {Helvetica 9}
12352 set textfont {Courier 9}
12353 set uifont {Helvetica 9 bold}
12354 }
12355 set tabstop 8
12356 set findmergefiles 0
12357 set maxgraphpct 50
12358 set maxwidth 16
12359 set revlistorder 0
12360 set fastdate 0
12361 set uparrowlen 5
12362 set downarrowlen 5
12363 set mingaplen 100
12364 set cmitmode "patch"
12365 set wrapcomment "none"
12366 set showneartags 1
12367 set hideremotes 0
12368 set maxrefs 20
12369 set visiblerefs {"master"}
12370 set maxlinelen 200
12371 set showlocalchanges 1
12372 set limitdiffs 1
12373 set datetimeformat "%Y-%m-%d %H:%M:%S"
12374 set autoselect 1
12375 set autosellen 40
12376 set perfile_attrs 0
12377 set want_ttk 1
12379 if {[tk windowingsystem] eq "aqua"} {
12380 set extdifftool "opendiff"
12381 } else {
12382 set extdifftool "meld"
12383 }
12385 set colors {"#00ff00" red blue magenta darkgrey brown orange}
12386 if {[tk windowingsystem] eq "win32"} {
12387 set uicolor SystemButtonFace
12388 set uifgcolor SystemButtonText
12389 set uifgdisabledcolor SystemDisabledText
12390 set bgcolor SystemWindow
12391 set fgcolor SystemWindowText
12392 set selectbgcolor SystemHighlight
12393 set web_browser "cmd /c start"
12394 } else {
12395 set uicolor grey85
12396 set uifgcolor black
12397 set uifgdisabledcolor "#999"
12398 set bgcolor white
12399 set fgcolor black
12400 set selectbgcolor gray85
12401 if {[tk windowingsystem] eq "aqua"} {
12402 set web_browser "open"
12403 } else {
12404 set web_browser "xdg-open"
12405 }
12406 }
12407 set diffcolors {"#c30000" "#009800" blue}
12408 set diffbgcolors {"#fff3f3" "#f0fff0"}
12409 set diffcontext 3
12410 set mergecolors {red blue "#00ff00" purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
12411 set ignorespace 0
12412 set worddiff ""
12413 set markbgcolor "#e0e0ff"
12415 set headbgcolor "#00ff00"
12416 set headfgcolor black
12417 set headoutlinecolor black
12418 set remotebgcolor #ffddaa
12419 set tagbgcolor yellow
12420 set tagfgcolor black
12421 set tagoutlinecolor black
12422 set reflinecolor black
12423 set filesepbgcolor #aaaaaa
12424 set filesepfgcolor black
12425 set linehoverbgcolor #ffff80
12426 set linehoverfgcolor black
12427 set linehoveroutlinecolor black
12428 set mainheadcirclecolor yellow
12429 set workingfilescirclecolor red
12430 set indexcirclecolor "#00ff00"
12431 set circlecolors {white blue gray blue blue}
12432 set linkfgcolor blue
12434 set foundbgcolor yellow
12435 set currentsearchhitbgcolor orange
12437 # button for popping up context menus
12438 if {[tk windowingsystem] eq "aqua"} {
12439 set ctxbut <Button-2>
12440 } else {
12441 set ctxbut <Button-3>
12442 }
12444 catch {
12445 # follow the XDG base directory specification by default. See
12446 # http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html
12448 # XDG_CONFIG_HOME environment variable is set
12451 } else {
12452 # default XDG_CONFIG_HOME
12453 set config_file "~/.config/git/gitk"
12454 set config_file_tmp "~/.config/git/gitk-tmp"
12455 }
12457 # for backward compatibility use the old config file if it exists
12458 if {[file exists "~/.gitk"]} {
12459 set config_file "~/.gitk"
12460 set config_file_tmp "~/.gitk-tmp"
12463 }
12464 }
12466 }
12467 config_check_tmp_exists 50
12469 set config_variables {
12470 mainfont textfont uifont tabstop findmergefiles maxgraphpct maxwidth
12471 cmitmode wrapcomment autoselect autosellen showneartags maxrefs visiblerefs
12472 hideremotes showlocalchanges datetimeformat limitdiffs uicolor want_ttk
12473 bgcolor fgcolor uifgcolor uifgdisabledcolor colors diffcolors mergecolors
12474 markbgcolor diffcontext selectbgcolor foundbgcolor currentsearchhitbgcolor
12475 extdifftool perfile_attrs headbgcolor headfgcolor headoutlinecolor
12476 remotebgcolor tagbgcolor tagfgcolor tagoutlinecolor reflinecolor
12477 filesepbgcolor filesepfgcolor linehoverbgcolor linehoverfgcolor
12478 linehoveroutlinecolor mainheadcirclecolor workingfilescirclecolor
12479 indexcirclecolor circlecolors linkfgcolor circleoutlinecolor diffbgcolors
12480 web_browser
12481 }
12485 }
12488 eval font create mainfont [fontflags mainfont]
12489 eval font create mainfontbold [fontflags mainfont 1]
12492 eval font create textfont [fontflags textfont]
12493 eval font create textfontbold [fontflags textfont 1]
12496 eval font create uifont [fontflags uifont]
12500 setoptions
12502 # check that we can find a .git directory somewhere...
12503 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
12504 show_error {} . [mc "Cannot find a git repository here."]
12505 exit 1
12506 }
12508 set selecthead {}
12509 set selectheadid {}
12511 set revtreeargs {}
12512 set cmdline_files {}
12513 set i 0
12514 set revtreeargscmd {}
12517 "" { }
12518 "--" {
12520 break
12521 }
12522 "--select-commit=*" {
12524 }
12525 "--argscmd=*" {
12527 }
12528 default {
12530 }
12531 }
12532 incr i
12533 }
12536 set selecthead {}
12537 }
12540 # no -- on command line, but some arguments (other than --argscmd)
12541 if {[catch {
12546 # Unfortunately git rev-parse doesn't produce an error when
12547 # something is both a revision and a filename. To be consistent
12548 # with git log and git rev-list, check revtreeargs for filenames.
12551 show_error {} . [mc "Ambiguous argument '%s': both revision\
12553 exit 1
12554 }
12555 }
12556 } err]} {
12558 # so look for "fatal:".
12562 }
12564 exit 1
12565 }
12566 }
12568 set nullid "0000000000000000000000000000000000000000"
12569 set nullid2 "0000000000000000000000000000000000000001"
12570 set nullfile "/dev/null"
12573 if {![info exists have_ttk]} {
12574 set have_ttk [llength [info commands ::ttk::style]]
12575 }
12580 setttkstyle
12581 }
12583 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
12585 set show_notes {}
12587 set show_notes "--show-notes"
12588 }
12590 set appname "gitk"
12592 set runq {}
12593 set history {}
12594 set historyindex 0
12595 set fh_serial 0
12596 set nhl_names {}
12597 set highlight_paths {}
12598 set findpattern {}
12599 set searchdirn -forwards
12600 set boldids {}
12601 set boldnameids {}
12602 set diffelide {0 0}
12603 set markingmatches 0
12604 set linkentercount 0
12605 set need_redisplay 0
12606 set nrows_drawn 0
12607 set firsttabstop 0
12609 set nextviewnum 1
12610 set curview 0
12611 set selectedview 0
12612 set selectedhlview [mc "None"]
12613 set highlight_related [mc "None"]
12614 set highlight_files {}
12615 set viewfiles(0) {}
12616 set viewperm(0) 0
12617 set viewchanged(0) 0
12618 set viewargs(0) {}
12619 set viewargscmd(0) {}
12621 set selectedline {}
12622 set numcommits 0
12623 set loginstance 0
12624 set cmdlineok 0
12625 set stopped 0
12626 set stuffsaved 0
12627 set patchnum 0
12628 set lserial 0
12629 set hasworktree [hasworktree]
12630 set cdup {}
12631 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
12632 set cdup [exec git rev-parse --show-cdup]
12633 }
12634 set worktree [gitworktree]
12635 setcoords
12636 makewindow
12637 catch {
12638 image create photo gitlogo -width 16 -height 16
12640 image create photo gitlogominus -width 4 -height 2
12641 gitlogominus put #C00000 -to 0 0 4 2
12642 gitlogo copy gitlogominus -to 1 5
12643 gitlogo copy gitlogominus -to 6 5
12644 gitlogo copy gitlogominus -to 11 5
12645 image delete gitlogominus
12647 image create photo gitlogoplus -width 4 -height 4
12648 gitlogoplus put #008000 -to 1 0 3 4
12649 gitlogoplus put #008000 -to 0 1 4 3
12650 gitlogo copy gitlogoplus -to 1 9
12651 gitlogo copy gitlogoplus -to 6 9
12652 gitlogo copy gitlogoplus -to 11 9
12653 image delete gitlogoplus
12655 image create photo gitlogo32 -width 32 -height 32
12656 gitlogo32 copy gitlogo -zoom 2 2
12658 wm iconphoto . -default gitlogo gitlogo32
12659 }
12660 # wait for the window to become visible
12661 tkwait visibility .
12662 set_window_title
12663 update
12664 readrefs
12667 # create a view for the files/dirs specified on the command line
12668 set curview 1
12669 set selectedview 1
12670 set nextviewnum 2
12671 set viewname(1) [mc "Command line"]
12675 set viewperm(1) 0
12676 set viewchanged(1) 0
12677 set vdatemode(1) 0
12678 addviewmenu 1
12679 .bar.view entryconf [mca "&Edit view..."] -state normal
12680 .bar.view entryconf [mca "&Delete view"] -state normal
12681 }
12683 if {[info exists permviews]} {
12686 incr nextviewnum
12694 }
12695 }
12697 if {[tk windowingsystem] eq "win32"} {
12698 focus -force .
12699 }
12701 getcommits {}
12703 # Local variables:
12704 # mode: tcl
12705 # indent-tabs-mode: t
12706 # tab-width: 8
12707 # End: