| blob | 0ae7d685904b85f97a69b243e30f010671d050e3 |
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 {
2996 }
2998 }
3000 }
3002 proc resizecdetpanes {win w} {
3003 global oldwidth oldsash use_ttk
3009 } else {
3011 }
3014 } else {
3018 set sash0 45
3019 }
3022 }
3023 }
3026 } else {
3029 }
3031 }
3033 }
3035 proc allcanvs args {
3036 global canv canv2 canv3
3040 }
3042 proc bindall {event action} {
3043 global canv canv2 canv3
3047 }
3049 proc about {} {
3050 global bgcolor NS
3051 set w .about
3054 return
3055 }
3060 Gitk - a commit viewer for git
3062 Copyright \u00a9 2005-2016 Paul Mackerras
3064 Use and redistribute under the terms of the GNU General Public License"] \
3073 }
3075 proc keys {} {
3076 global bgcolor NS
3077 set w .keys
3080 return
3081 }
3082 if {[tk windowingsystem] eq {aqua}} {
3083 set M1T Cmd
3084 } else {
3085 set M1T Ctrl
3086 }
3091 [mc "Gitk key bindings:"]
3095 [mc "<Home> Move to first commit"]
3096 [mc "<End> Move to last commit"]
3097 [mc "<Up>, p, k Move up one commit"]
3098 [mc "<Down>, n, j Move down one commit"]
3099 [mc "<Left>, z, h Go back in history list"]
3100 [mc "<Right>, x, l Go forward in history list"]
3102 [mc "<PageUp> Move up one page in commit list"]
3103 [mc "<PageDown> Move down one page in commit list"]
3110 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
3111 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
3112 [mc "<Delete>, b Scroll diff view up one page"]
3113 [mc "<Backspace> Scroll diff view up one page"]
3114 [mc "<Space> Scroll diff view down one page"]
3115 [mc "u Scroll diff view up 18 lines"]
3116 [mc "d Scroll diff view down 18 lines"]
3119 [mc "<Return> Move to next find hit"]
3120 [mc "g Go to commit"]
3121 [mc "/ Focus the search box"]
3122 [mc "? Move to previous find hit"]
3123 [mc "f Scroll diff view to next file"]
3130 [mc "<F5> Update"]
3131 " \
3140 }
3142 # Procedures for manipulating the file list window at the
3143 # bottom right of the overall window.
3145 proc treeview {w l openlevs} {
3146 global treecontents treediropen treeheight treeparent treeindex
3148 set ix 0
3149 set treeindex() 0
3150 set lev 0
3151 set prefix {}
3152 set prefixend -1
3153 set prefendstack {}
3154 set htstack {}
3155 set ht 0
3156 set treecontents() {}
3163 }
3170 incr lev -1
3171 }
3175 set ht 0
3187 set ht 1
3192 set str "\n"
3200 }
3201 incr lev
3202 }
3205 incr ht
3206 set str "\n"
3210 }
3212 }
3213 }
3221 }
3223 }
3225 proc linetoelt {l} {
3226 global treeheight treecontents
3228 set y 2
3229 set prefix {}
3230 while {1} {
3234 }
3235 set n 1
3240 incr y
3241 break
3242 }
3243 }
3245 }
3246 }
3247 }
3249 proc highlight_tree {y prefix} {
3250 global treeheight treecontents cflist
3256 }
3257 incr y
3260 }
3261 }
3263 }
3265 proc treeclosedir {w dir} {
3266 global treediropen treeheight treeparent treeindex
3278 }
3279 }
3281 proc treeopendir {w dir} {
3282 global treediropen treeheight treeparent treecontents treeindex
3289 set lev 0
3290 set str "\n"
3293 incr lev
3294 append str "\t"
3296 }
3311 } else {
3314 }
3315 }
3328 }
3330 }
3331 }
3333 proc treeclick {w x y} {
3334 global treediropen cmitmode ctext cflist cflist_top
3337 if {![info exists cflist_top]} return
3344 return
3345 }
3351 } else {
3353 }
3354 }
3356 proc setfilelist {id} {
3357 global treefilelist cflist jump_to_here
3364 }
3365 }
3366 }
3368 image create bitmap tri-rt -background black -foreground blue -data {
3369 #define tri-rt_width 13
3370 #define tri-rt_height 13
3371 static unsigned char tri-rt_bits[] = {
3372 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3373 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3374 0x00, 0x00};
3375 } -maskdata {
3376 #define tri-rt-mask_width 13
3377 #define tri-rt-mask_height 13
3378 static unsigned char tri-rt-mask_bits[] = {
3379 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3380 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3381 0x08, 0x00};
3382 }
3383 image create bitmap tri-dn -background black -foreground blue -data {
3384 #define tri-dn_width 13
3385 #define tri-dn_height 13
3386 static unsigned char tri-dn_bits[] = {
3387 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3388 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3389 0x00, 0x00};
3390 } -maskdata {
3391 #define tri-dn-mask_width 13
3392 #define tri-dn-mask_height 13
3393 static unsigned char tri-dn-mask_bits[] = {
3394 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3395 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3396 0x00, 0x00};
3397 }
3399 image create bitmap reficon-T -background black -foreground yellow -data {
3400 #define tagicon_width 13
3401 #define tagicon_height 9
3402 static unsigned char tagicon_bits[] = {
3403 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3404 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3405 } -maskdata {
3406 #define tagicon-mask_width 13
3407 #define tagicon-mask_height 9
3408 static unsigned char tagicon-mask_bits[] = {
3409 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3410 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3411 }
3412 set rectdata {
3413 #define headicon_width 13
3414 #define headicon_height 9
3415 static unsigned char headicon_bits[] = {
3416 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3417 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3418 }
3419 set rectmask {
3420 #define headicon-mask_width 13
3421 #define headicon-mask_height 9
3422 static unsigned char headicon-mask_bits[] = {
3423 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3424 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3425 }
3426 image create bitmap reficon-H -background black -foreground "#00ff00" \
3428 image create bitmap reficon-R -background black -foreground "#ffddaa" \
3430 image create bitmap reficon-o -background black -foreground "#ddddff" \
3433 proc init_flist {first} {
3434 global cflist cflist_top difffilestart
3440 set cflist_top 1
3442 } else {
3443 unset -nocomplain cflist_top
3444 }
3446 set difffilestart {}
3447 }
3449 proc highlight_tag {f} {
3450 global highlight_paths
3454 return "bold"
3455 }
3456 }
3457 return {}
3458 }
3460 proc highlight_filelist {} {
3461 global cmitmode cflist
3470 }
3471 }
3472 } else {
3473 highlight_tree 2 {}
3474 }
3476 }
3478 proc unhighlight_filelist {} {
3479 global cflist
3484 }
3486 proc add_flist {fl} {
3487 global cflist
3493 }
3495 }
3497 proc sel_flist {w x y} {
3498 global ctext difffilestart cflist cflist_top cmitmode
3501 if {![info exists cflist_top]} return
3508 } else {
3510 }
3511 suppress_highlighting_file_for_current_scrollpos
3512 }
3514 proc pop_flist_menu {w X Y x y} {
3515 global ctext cflist cmitmode flist_menu flist_menu_file
3516 global treediffs diffids
3518 stopfinding
3524 } else {
3526 }
3528 set xdiffstate "normal"
3530 set xdiffstate "disabled"
3531 }
3532 # Disable "External diff" item in tree mode
3535 }
3537 proc find_ctext_fileinfo {line} {
3538 global ctext_file_names ctext_file_lines
3544 return {}
3545 } else {
3547 }
3548 }
3550 proc pop_diff_menu {w X Y x y} {
3551 global ctext diff_menu flist_menu_file
3552 global diff_menu_txtpos diff_menu_line
3553 global diff_menu_filebase
3557 # don't pop up the menu on hunk-separator or file-separator lines
3559 return
3560 }
3561 stopfinding
3567 }
3569 proc flist_hl {only} {
3570 global flist_menu_file findstring gdttype
3575 } else {
3577 }
3578 set gdttype [mc "touching paths:"]
3579 }
3581 proc gitknewtmpdir {} {
3582 global diffnum gitktmpdir gitdir env
3584 if {![info exists gitktmpdir]} {
3585 if {[info exists env(GITK_TMPDIR)]} {
3587 } elseif {[info exists env(TMPDIR)]} {
3589 } else {
3591 }
3595 }
3598 unset gitktmpdir
3599 return {}
3600 }
3601 set diffnum 0
3602 }
3603 incr diffnum
3607 return {}
3608 }
3610 }
3612 proc save_file_from_commit {filename output what} {
3613 global nullfile
3618 }
3620 return {}
3621 }
3623 }
3625 proc external_diff_get_one_file {diffid filename diffdir} {
3626 global nullid nullid2 nullfile
3627 global worktree
3633 }
3635 }
3639 }
3643 }
3645 proc external_diff {} {
3646 global nullid nullid2
3647 global flist_menu_file
3648 global diffids
3649 global extdifftool
3652 # no reference commit given
3655 # diffing working copy with index
3658 # diffing index with HEAD
3659 set diffidfrom "HEAD"
3660 } else {
3661 # use first parent commit
3662 global parentlist selectedline
3664 }
3665 } else {
3668 }
3670 # make sure that several diffs wont collide
3671 set diffdir [gitknewtmpdir]
3674 # gather files to diff
3683 } else {
3686 }
3687 }
3688 }
3690 proc find_hunk_blamespec {base line} {
3691 global ctext
3693 # Find and parse the hunk header
3699 s_line old_specs osz osz1 new_line nsz]} {
3700 return
3701 }
3703 # base lines for the parents
3707 old_spec old_line osz]} {
3708 return
3709 }
3711 }
3713 # Now scan the lines to determine offset within the hunk
3715 set dline 0
3718 # Determine if the line is removed
3722 # Choose a parent index
3725 } else {
3729 } else {
3730 # blame the current commit
3731 set parent -1
3732 }
3733 }
3734 # then count other lines that belong to it
3737 # Determine if the line is removed
3742 incr dline
3743 }
3744 } else {
3746 incr dline
3747 }
3748 }
3749 }
3750 incr parent
3751 } else {
3752 set parent 0
3753 }
3757 }
3759 proc external_blame_diff {} {
3760 global currentid cmitmode
3761 global diff_menu_txtpos diff_menu_line
3762 global diff_menu_filebase flist_menu_file
3765 set parent_idx 0
3767 } else {
3772 } else {
3773 set parent_idx 0
3774 set line 0
3775 }
3776 }
3779 }
3782 # at stage 0 or 2
3783 proc index_sha1 {fname} {
3791 }
3792 }
3794 return {}
3795 }
3797 # Turn an absolute path into one relative to the current directory
3798 proc make_relative {f} {
3801 }
3803 set here [file split [pwd]]
3804 set ei 0
3805 set hi 0
3806 set res {}
3809 lappend res ".."
3810 } else {
3811 incr ei
3812 }
3813 incr hi
3814 }
3817 }
3819 proc external_blame {parent_idx {line {}}} {
3820 global flist_menu_file cdup
3821 global nullid nullid2
3822 global parentlist selectedline currentid
3826 } else {
3828 }
3831 error_popup [mc "No such commit"]
3832 return
3833 }
3835 set cmdline [list git gui blame]
3838 }
3840 # Unfortunately it seems git gui blame doesn't like
3841 # being given an absolute path...
3846 }
3847 }
3849 proc show_line_source {} {
3850 global cmitmode currentid parents curview blamestuff blameinst
3851 global diff_menu_line diff_menu_filebase flist_menu_file
3852 global nullid nullid2 gitdir cdup
3854 set from_index {}
3858 } else {
3864 return
3865 }
3866 incr pi -1
3869 # must be a merge in progress...
3870 if {[catch {
3871 # get the last line from .git/MERGE_HEAD
3875 } err]} {
3877 return
3878 }
3880 # need to do the blame from the index
3881 if {[catch {
3883 } err]} {
3885 return
3886 }
3887 } else {
3889 }
3890 } else {
3892 }
3894 }
3895 set blameargs {}
3898 }
3901 lappend blameargs --contents -
3902 } else {
3904 }
3906 if {[catch {
3908 } err]} {
3910 return
3911 }
3912 nowbusy blaming [mc "Searching"]
3918 }
3920 proc stopblaming {} {
3921 global blameinst
3923 if {[info exists blameinst]} {
3925 unset blameinst
3926 notbusy blaming
3927 }
3928 }
3930 proc read_line_source {fd inst} {
3931 global blamestuff curview commfd blameinst nullid nullid2
3935 }
3937 return 1
3938 }
3940 unset blameinst
3941 notbusy blaming
3945 return 0
3946 }
3948 set fname {}
3954 # look for "filename" line
3958 break
3959 }
3960 }
3961 }
3963 # all looks good, select it
3965 # blame uses all-zeroes to mean not committed,
3966 # which would mean a change in the index
3968 }
3971 } else {
3972 error_popup [mc "That line comes from commit %s, \
3974 }
3975 } else {
3976 puts "oops couldn't parse git blame output"
3977 }
3978 return 0
3979 }
3982 proc delete_at_eof {f dir} {
3987 }
3989 return 0
3990 }
3991 return 1
3992 }
3994 # Functions for adding and removing shell-type quoting
3996 proc shellquote {str} {
3999 }
4002 }
4005 }
4007 }
4009 proc shellarglist {l} {
4010 set str {}
4013 append str " "
4014 }
4016 }
4018 }
4020 proc shelldequote {str} {
4021 set ret {}
4022 set used -1
4023 while {1} {
4024 incr used
4028 break
4029 }
4035 }
4037 incr used
4041 error "unmatched single-quote"
4042 }
4045 continue
4046 }
4049 error "trailing backslash"
4050 }
4052 continue
4053 }
4054 # here ch == "\""
4055 while {1} {
4057 error "unmatched double-quote"
4058 }
4064 }
4066 incr used
4068 incr used
4069 }
4070 }
4072 }
4074 proc shellsplit {str} {
4075 set l {}
4076 while {1} {
4084 }
4086 }
4088 proc set_window_title {} {
4089 global appname curview viewname vrevs
4090 set rev [mc "All files"]
4094 } else {
4096 }
4097 }
4099 }
4101 # Code to implement multiple views
4103 proc newview {ishighlight} {
4104 global nextviewnum newviewname newishighlight
4105 global revtreeargs viewargscmd newviewopts curview
4108 set top .gitkview
4111 return
4112 }
4118 }
4120 set known_view_options {
4121 {perm b . {} {mc "Remember this view"}}
4122 {reflabel l + {} {mc "References (space separated list):"}}
4123 {refs t15 .. {} {mc "Branches & tags:"}}
4124 {allrefs b *. "--all" {mc "All refs"}}
4125 {branches b . "--branches" {mc "All (local) branches"}}
4126 {tags b . "--tags" {mc "All tags"}}
4127 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
4128 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
4129 {author t15 .. "--author=*" {mc "Author:"}}
4130 {committer t15 . "--committer=*" {mc "Committer:"}}
4131 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
4132 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
4133 {igrep b .. "--invert-grep" {mc "Matches no Commit Info criteria"}}
4134 {changes_l l + {} {mc "Changes to Files:"}}
4135 {pickaxe_s r0 . {} {mc "Fixed String"}}
4136 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
4137 {pickaxe t15 .. "-S*" {mc "Search string:"}}
4138 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
4139 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
4140 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
4141 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
4142 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
4143 {skip t10 . "--skip=*" {mc "Number to skip:"}}
4144 {misc_lbl l + {} {mc "Miscellaneous options:"}}
4145 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
4146 {lright b . "--left-right" {mc "Mark branch sides"}}
4147 {first b . "--first-parent" {mc "Limit to first parent"}}
4148 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
4149 {args t50 *. {} {mc "Additional arguments to git log:"}}
4150 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
4151 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
4152 }
4155 proc encode_view_opts {n} {
4156 global known_view_options newviewopts
4158 set rargs [list]
4168 }
4174 }
4175 } else {
4181 }
4182 }
4183 }
4186 }
4189 proc decode_view_opts {n view_args} {
4190 global known_view_options newviewopts
4195 # Checkboxes
4196 set val 0
4198 # Radiobuttons
4200 set val 0
4201 } else {
4202 # Text fields
4203 set val {}
4204 }
4206 }
4207 set oargs [list]
4208 set refargs [list]
4211 && ![info exists found(limit)]} {
4213 set found(limit) 1
4214 continue
4215 }
4216 catch { unset val }
4223 # Check buttons
4224 set val 1
4226 # Radio buttons
4229 } else {
4230 # Text input fields
4233 }
4236 break
4237 }
4238 if {[info exists val]} break
4239 }
4240 if {[info exists val]} continue
4243 } else {
4245 }
4246 }
4249 }
4251 proc edit_or_newview {} {
4252 global curview
4255 editview
4256 } else {
4257 newview 0
4258 }
4259 }
4261 proc editview {} {
4262 global curview
4263 global viewname viewperm newviewname newviewopts
4264 global viewargs viewargscmd
4269 return
4270 }
4276 }
4278 proc vieweditor {top n title} {
4279 global newviewname newviewopts viewfiles bgcolor
4280 global known_view_options NS
4286 # View name
4294 # View options
4296 set cexpand 0
4297 set cnt 0
4303 set lxpad 0
4307 incr cnt
4313 incr cnt
4317 } else {
4318 set lxpad 5
4319 }
4353 }
4356 }
4358 }
4359 }
4374 }
4376 proc doviewmenu {m first cmd op argv} {
4381 break
4382 }
4383 }
4384 }
4386 proc allviewmenus {n op args} {
4387 # global viewhlmenu
4391 }
4393 proc newviewok {top n {apply 0}} {
4394 global nextviewnum newviewperm newviewname newishighlight
4395 global viewname viewfiles viewperm viewchanged selectedview curview
4396 global viewargs viewargscmd newviewopts viewhlmenu
4398 if {[catch {
4400 } err]} {
4402 return
4403 }
4404 set files {}
4409 }
4410 }
4412 # creating a new view
4413 incr nextviewnum
4423 } else {
4425 }
4426 } else {
4427 # editing an existing view
4436 }
4443 run reloadcommits
4444 }
4445 }
4446 }
4449 }
4451 proc delview {} {
4452 global curview viewperm hlview selectedhlview viewchanged
4456 set selectedhlview [mc "None"]
4457 unset hlview
4458 }
4462 showview 0
4463 }
4465 proc addviewmenu {n} {
4466 global viewname viewhlmenu
4472 }
4474 proc showview {n} {
4475 global curview cached_commitrow ordertok
4476 global displayorder parentlist rowidlist rowisopt rowfinal
4477 global colormap rowtextx nextcolor canvxmax
4478 global numcommits viewcomplete
4479 global selectedline currentid canv canvy0
4480 global treediffs
4481 global pending_select mainheadid
4482 global commitidx
4483 global selectedview
4484 global hlview selectedhlview commitinterest
4487 set selid {}
4498 }
4499 } elseif {[info exists pending_select]} {
4501 unset pending_select
4502 }
4503 unselectline
4504 normalline
4505 unset -nocomplain treediffs
4506 clear_display
4508 unset hlview
4509 set selectedhlview [mc "None"]
4510 }
4511 unset -nocomplain commitinterest
4512 unset -nocomplain cached_commitrow
4513 unset -nocomplain ordertok
4520 run refill_reflist
4523 return
4524 }
4526 set displayorder {}
4527 set parentlist {}
4528 set rowidlist {}
4529 set rowisopt {}
4530 set rowfinal {}
4533 unset -nocomplain colormap
4534 unset -nocomplain rowtextx
4535 set nextcolor 0
4538 set row 0
4539 setcanvscroll
4540 set yf 0
4541 set row {}
4544 # try to get the selected row in the same position on the screen
4548 set ytop 0
4549 }
4551 }
4553 drawvisible
4558 } else {
4559 reset_pending_select {}
4563 } else {
4564 set row [first_real_row]
4567 }
4568 }
4569 }
4572 show_status [mc "Reading commits..."]
4573 }
4575 show_status [mc "No commits selected"]
4576 }
4577 set_window_title
4578 }
4580 # Stuff relating to the highlighting facility
4582 proc ishighlighted {id} {
4583 global vhighlights fhighlights nhighlights rhighlights
4587 }
4590 }
4593 }
4596 }
4597 return 0
4598 }
4600 proc bolden {id font} {
4601 global canv linehtag currentid boldids need_redisplay markedid
4603 # need_redisplay = 1 means the display is stale and about to be redrawn
4610 -outline {{}} -tags secsel \
4613 }
4616 }
4617 }
4619 proc bolden_name {id font} {
4620 global canv2 linentag currentid boldnameids need_redisplay
4628 -outline {{}} -tags secsel \
4631 }
4632 }
4634 proc unbolden {} {
4635 global boldids
4637 set stillbold {}
4641 } else {
4643 }
4644 }
4646 }
4648 proc addvhighlight {n} {
4649 global hlview viewcomplete curview vhl_done commitidx
4651 if {[info exists hlview]} {
4652 delvhighlight
4653 }
4657 }
4660 drawvisible
4661 }
4662 }
4664 proc delvhighlight {} {
4665 global hlview vhighlights
4667 if {![info exists hlview]} return
4668 unset hlview
4669 unset -nocomplain vhighlights
4670 unbolden
4671 }
4673 proc vhighlightmore {} {
4674 global hlview vhl_done commitidx vhighlights curview
4677 set vr [visiblerows]
4687 }
4689 }
4690 }
4691 }
4693 return 0
4694 }
4696 proc askvhighlight {row id} {
4697 global hlview vhighlights iddrawn
4702 }
4704 } else {
4706 }
4707 }
4709 proc hfiles_change {} {
4710 global highlight_files filehighlight fhighlights fh_serial
4711 global highlight_paths
4713 if {[info exists filehighlight]} {
4714 # delete previous highlights
4716 unset filehighlight
4717 unset -nocomplain fhighlights
4718 unbolden
4719 unhighlight_filelist
4720 }
4721 set highlight_paths {}
4723 incr fh_serial
4726 }
4727 }
4729 proc gdttype_change {name ix op} {
4730 global gdttype highlight_files findstring findpattern
4732 stopfinding
4736 set highlight_files {}
4737 hfiles_change
4738 }
4739 findcom_change
4740 } else {
4742 set findpattern {}
4743 findcom_change
4744 }
4746 hfiles_change
4747 }
4748 drawvisible
4749 }
4750 # enable/disable findtype/findloc menus too
4751 }
4753 proc find_change {name ix op} {
4754 global gdttype findstring highlight_files
4756 stopfinding
4758 findcom_change
4759 } else {
4762 hfiles_change
4763 }
4764 }
4765 drawvisible
4766 }
4768 proc findcom_change args {
4769 global nhighlights boldnameids
4770 global findpattern findtype findstring gdttype
4772 stopfinding
4773 # delete previous highlights, if any
4776 }
4777 set boldnameids {}
4778 unset -nocomplain nhighlights
4779 unbolden
4780 unmarkmatches
4782 set findpattern {}
4785 } else {
4786 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4789 }
4790 }
4792 proc makepatterns {l} {
4793 set ret {}
4798 } else {
4801 }
4802 }
4804 }
4806 proc do_file_hl {serial} {
4807 global highlight_files filehighlight highlight_paths gdttype fhl_list
4808 global cdup findtype
4811 # If "exact" match then convert backslashes to forward slashes.
4812 # Most useful to support Windows-flavoured file paths.
4815 }
4818 highlight_filelist
4819 set relative_paths {}
4822 }
4828 } else {
4829 # must be "containing:", i.e. we're searching commit info
4830 return
4831 }
4836 set fhl_list {}
4837 drawvisible
4838 flushhighlights
4839 }
4841 proc flushhighlights {} {
4842 global filehighlight fhl_list
4844 if {[info exists filehighlight]} {
4845 lappend fhl_list {}
4848 }
4849 }
4851 proc askfilehighlight {row id} {
4852 global filehighlight fhighlights fhl_list
4857 }
4859 proc readfhighlight {} {
4860 global filehighlight fhighlights curview iddrawn
4861 global fhl_list find_dirn
4863 if {![info exists filehighlight]} {
4864 return 0
4865 }
4866 set nr 0
4874 }
4880 }
4882 }
4884 # strange...
4885 puts "oops, git diff-tree died"
4887 unset filehighlight
4888 return 0
4889 }
4890 if {[info exists find_dirn]} {
4891 run findmore
4892 }
4893 return 1
4894 }
4896 proc doesmatch {f} {
4897 global findtype findpattern
4903 } else {
4905 }
4906 }
4908 proc askfindhighlight {row id} {
4909 global nhighlights commitinfo iddrawn
4910 global findloc
4911 global markingmatches
4915 }
4917 set isbold 0
4918 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4924 set isbold 2
4925 break
4926 }
4927 set isbold 1
4928 }
4929 }
4935 }
4936 }
4939 }
4940 }
4942 }
4944 proc markrowmatches {row id} {
4945 global canv canv2 linehtag linentag commitinfo findloc
4956 }
4957 }
4963 }
4964 }
4965 }
4967 proc vrel_change {name ix op} {
4968 global highlight_related
4970 rhighlight_none
4972 run drawvisible
4973 }
4974 }
4976 # prepare for testing whether commits are descendents or ancestors of a
4977 proc rhighlight_sel {a} {
4978 global descendent desc_todo ancestor anc_todo
4979 global highlight_related
4981 unset -nocomplain descendent
4983 unset -nocomplain ancestor
4986 rhighlight_none
4987 run drawvisible
4988 }
4989 }
4991 proc rhighlight_none {} {
4992 global rhighlights
4994 unset -nocomplain rhighlights
4995 unbolden
4996 }
4998 proc is_descendent {a} {
4999 global curview children descendent desc_todo
5004 set leftover {}
5005 set done 0
5010 continue
5011 }
5017 set done 1
5018 }
5019 }
5020 }
5023 return
5024 }
5025 }
5028 }
5030 proc is_ancestor {a} {
5031 global curview parents ancestor anc_todo
5036 set leftover {}
5037 set done 0
5042 continue
5043 }
5049 set done 1
5050 }
5051 }
5052 }
5055 return
5056 }
5057 }
5060 }
5062 proc askrelhighlight {row id} {
5063 global descendent highlight_related iddrawn rhighlights
5064 global selectedline ancestor
5067 set isbold 0
5072 }
5074 set isbold 1
5075 }
5080 }
5082 set isbold 1
5083 }
5084 }
5088 }
5089 }
5091 }
5093 # Graph layout functions
5095 proc shortids {ids} {
5096 set res {}
5102 } else {
5104 }
5105 }
5107 }
5109 proc ntimes {n o} {
5110 set ret {}
5115 }
5117 }
5119 }
5121 proc ordertoken {id} {
5122 global ordertok curview varcid varcstart varctok curview parents children
5123 global nullid nullid2
5127 }
5129 set todo {}
5130 while {1} {
5134 } else {
5136 }
5139 break
5140 }
5143 # it's a root
5145 break
5146 }
5149 } else {
5153 }
5155 }
5156 }
5161 }
5164 }
5166 # Work out where id should go in idlist so that order-token
5167 # values increase from left to right
5168 proc idcol {idlist id {i 0}} {
5171 set i 0
5172 }
5176 }
5178 incr i
5179 } else {
5183 }
5184 }
5186 }
5188 proc initlayout {} {
5189 global rowidlist rowisopt rowfinal displayorder parentlist
5190 global numcommits canvxmax canv
5191 global nextcolor
5192 global colormap rowtextx
5194 set numcommits 0
5195 set displayorder {}
5196 set parentlist {}
5197 set nextcolor 0
5198 set rowidlist {}
5199 set rowisopt {}
5200 set rowfinal {}
5202 unset -nocomplain colormap
5203 unset -nocomplain rowtextx
5204 setcanvscroll
5205 }
5207 proc setcanvscroll {} {
5208 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5209 global lastscrollset lastscrollrows
5215 set lastscrollset [clock clicks -milliseconds]
5217 }
5219 proc visiblerows {} {
5220 global canv numcommits linespc
5228 set r0 0
5229 }
5234 }
5236 }
5238 proc layoutmore {} {
5239 global commitidx viewcomplete curview
5240 global numcommits pending_select curview
5241 global lastscrollset lastscrollrows
5245 setcanvscroll
5246 }
5247 if {[info exists pending_select] &&
5249 update
5251 }
5252 drawvisible
5253 }
5255 # With path limiting, we mightn't get the actual HEAD commit,
5256 # so ask git rev-list what is the first ancestor of HEAD that
5257 # touches a file in the path limit.
5258 proc get_viewmainhead {view} {
5259 global viewmainheadid vfilelimit viewinstances mainheadid
5261 catch {
5269 }
5270 }
5273 proc getviewhead {fd inst view} {
5274 global viewmainheadid commfd curview viewinstances showlocalchanges
5276 set id {}
5279 return 1
5280 }
5283 }
5290 }
5292 doshowlocalchanges
5293 }
5294 return 0
5295 }
5297 proc doshowlocalchanges {} {
5298 global curview viewmainheadid
5302 dodiffindex
5303 } else {
5305 }
5306 }
5308 proc dohidelocalchanges {} {
5309 global nullid nullid2 lserial curview
5313 }
5316 }
5317 incr lserial
5318 }
5320 # spawn off a process to do git diff-index --cached HEAD
5321 proc dodiffindex {} {
5322 global lserial showlocalchanges vfilelimit curview
5323 global hasworktree git_version
5326 incr lserial
5328 set cmd "|git diff-index --cached --ignore-submodules=dirty HEAD"
5329 } else {
5330 set cmd "|git diff-index --cached HEAD"
5331 }
5334 }
5339 }
5341 proc readdiffindex {fd serial inst} {
5342 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5343 global vfilelimit
5345 set isdiff 1
5348 return 1
5349 }
5350 set isdiff 0
5351 }
5352 # we only need to see one line and we don't really care what it says...
5356 return 0
5357 }
5359 # now see if there are any local changes not checked in to the index
5360 set cmd "|git diff-files"
5363 }
5370 # add the line for the changes in the index to the graph
5371 set hl [mc "Local changes checked in to index but not committed"]
5376 }
5381 }
5383 }
5384 return 0
5385 }
5387 proc readdifffiles {fd serial inst} {
5388 global viewmainheadid nullid nullid2 curview
5389 global commitinfo commitdata lserial
5391 set isdiff 1
5394 return 1
5395 }
5396 set isdiff 0
5397 }
5398 # we only need to see one line and we don't really care what it says...
5402 return 0
5403 }
5406 # add the line for the local diff to the graph
5407 set hl [mc "Local uncommitted changes, not checked in to index"]
5412 } else {
5414 }
5418 }
5419 return 0
5420 }
5422 proc nextuse {id row} {
5423 global curview children
5428 return -1
5429 }
5432 }
5433 }
5434 }
5437 }
5438 return -1
5439 }
5441 proc prevuse {id row} {
5442 global curview children
5444 set ret -1
5450 }
5451 }
5452 }
5454 }
5456 proc make_idlist {row} {
5457 global displayorder parentlist uparrowlen downarrowlen mingaplen
5458 global commitidx curview children
5462 set r 0
5463 }
5466 set ra 0
5467 }
5471 }
5473 set ids {}
5482 }
5483 }
5484 }
5492 }
5493 }
5494 }
5502 }
5503 }
5504 incr r
5510 }
5511 }
5512 }
5513 set idlist {}
5516 }
5518 }
5520 proc rowsequal {a b} {
5523 }
5526 }
5528 }
5530 proc makeupline {id row rend col} {
5531 global rowidlist uparrowlen downarrowlen mingaplen
5537 }
5540 }
5547 }
5548 }
5549 }
5551 proc layoutrows {row endrow} {
5552 global rowidlist rowisopt rowfinal displayorder
5553 global uparrowlen downarrowlen maxwidth mingaplen
5554 global children parentlist
5555 global commitidx viewcomplete curview
5558 set idlist {}
5564 }
5565 }
5567 }
5572 set final 1
5573 } else {
5581 # if not the first child, we have to insert a line going up
5584 }
5585 }
5586 }
5596 }
5597 }
5598 }
5605 }
5606 }
5616 }
5617 }
5625 }
5626 }
5627 }
5628 }
5629 }
5633 set final 0
5634 }
5638 lappend rowisopt 0
5644 }
5646 } else {
5653 }
5654 }
5656 }
5658 proc changedrow {row} {
5659 global displayorder iddrawn rowisopt need_redisplay
5668 }
5669 }
5670 }
5673 set need_redisplay 1
5674 }
5675 }
5677 proc insert_pad {row col npad} {
5678 global rowidlist
5687 }
5690 }
5692 proc optimize_rows {row col endrow} {
5693 global rowidlist rowisopt displayorder curview children
5696 set row 1
5697 }
5700 set haspad 0
5709 } else {
5710 set pprevidlist {}
5711 }
5712 set x0 -1
5713 set xm -1
5718 set haspad 1
5719 continue
5720 }
5724 set isarrow 0
5725 set z0 {}
5730 }
5731 }
5736 set isarrow 1
5737 }
5738 }
5741 set isarrow 1
5742 }
5743 # Looking at lines from this row to the previous row,
5744 # make them go straight up if they end in an arrow on
5745 # the previous row; otherwise make them go straight up
5746 # or at 45 degrees.
5748 # Line currently goes left too much;
5749 # insert pads in the previous row, then optimize it
5754 }
5762 }
5764 # Line currently goes right too much;
5765 # insert pads in this line
5771 set haspad 1
5772 }
5779 }
5780 }
5781 # avoid lines jigging left then immediately right
5784 incr x0
5787 }
5788 }
5790 # Find the first column that doesn't have a line going right
5796 # check if this is the link to the first child
5799 # it is, work out offset to child
5801 }
5802 }
5804 }
5805 # Insert a pad at that column as long as it has a line and
5806 # isn't the last column
5811 }
5812 }
5813 }
5814 }
5816 proc xc {row col} {
5817 global canvx0 linespc
5819 }
5821 proc yc {row} {
5822 global canvy0 linespc
5824 }
5826 proc linewidth {id} {
5827 global thickerline lthickness
5832 }
5834 }
5836 proc rowranges {id} {
5837 global curview children uparrowlen downarrowlen
5838 global rowidlist
5842 return {}
5843 }
5844 set ret {}
5849 if {![info exists prev]} {
5851 } else {
5853 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5854 }
5855 # see if the line extends the whole way from prevrow to row
5859 # it doesn't, see where it ends
5864 } else {
5867 incr r -1
5868 }
5870 # see where it starts up again
5875 } else {
5878 incr r
5879 }
5881 }
5882 }
5885 }
5888 }
5890 }
5892 proc drawlineseg {id row endrow arrowlow} {
5893 global rowidlist displayorder iddrawn linesegs
5894 global canv colormap linespc curview maxlinelen parentlist
5898 set arrowhigh 1
5899 while {1} {
5902 incr le -1
5903 break
5904 }
5908 set arrowhigh 0
5909 break
5910 }
5915 set arrowhigh 0
5916 }
5917 break
5918 }
5919 incr le
5920 }
5923 }
5925 set lines {}
5926 set i 0
5927 set joinhigh 0
5934 set joinhigh 1
5935 }
5936 break
5937 }
5938 incr i
5939 }
5940 }
5941 set joinlow 0
5946 set joinlow 1
5947 }
5948 }
5961 }
5962 } else {
5964 }
5972 set arrowlow 0
5973 }
5974 }
5982 }
5984 }
5987 # join parent line to first child
5998 } else {
6000 }
6008 }
6010 }
6012 } else {
6016 }
6024 } else {
6028 }
6030 }
6031 } else {
6037 }
6041 } else {
6042 # coalesce two pieces
6047 }
6051 }
6052 }
6056 }
6058 proc drawparentlinks {id row} {
6059 global rowidlist canv colormap curview parentlist
6060 global idpos linespc
6073 # rmx = right-most X coord used
6074 set rmx 0
6079 continue
6080 }
6084 }
6087 # drawlineseg will do this one for us
6088 continue
6089 }
6091 # should handle duplicated parents here...
6094 # if attaching to a vertical segment, draw a smaller
6095 # slant for visual distinctness
6099 } else {
6101 }
6103 # segment slants towards us already
6105 } else {
6110 }
6112 }
6113 } else {
6115 }
6120 }
6124 }
6125 }
6127 proc drawlines {id} {
6128 global canv
6131 }
6133 proc drawcmittext {id row col} {
6134 global linespc canv canv2 canv3 fgcolor curview
6135 global cmitlisted commitinfo rowidlist parentlist
6136 global rowtextx idpos idtags idheads idotherrefs
6137 global linehtag linentag linedtag selectedline
6138 global canvxmax boldids boldnameids fgcolor markedid
6139 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
6140 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
6141 global circleoutlinecolor
6143 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
6151 } else {
6153 }
6162 # triangle pointing left for left-side commits
6168 } else {
6169 # triangle pointing right for right-side commits
6175 }
6187 }
6188 }
6189 }
6196 }
6199 }
6204 set font mainfont
6205 set nfont mainfont
6209 set font mainfontbold
6212 set nfont mainfontbold
6213 }
6214 }
6224 }
6227 }
6231 setcanvscroll
6232 }
6233 }
6235 proc drawcmitrow {row} {
6236 global displayorder rowidlist nrows_drawn
6237 global iddrawn markingmatches
6238 global commitinfo numcommits
6239 global filehighlight fhighlights findpattern nhighlights
6240 global hlview vhighlights
6241 global highlight_related rhighlights
6248 }
6251 }
6254 }
6257 }
6262 return
6263 }
6266 }
6270 incr nrows_drawn
6271 }
6274 }
6275 }
6277 proc drawcommits {row {endrow {}}} {
6278 global numcommits iddrawn displayorder curview need_redisplay
6279 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6282 set row 0
6283 }
6286 }
6289 }
6293 set rl1 0
6294 }
6297 set ro1 0
6298 }
6302 }
6307 }
6309 }
6310 }
6313 }
6316 clear_display
6317 }
6319 # make the lines join to already-drawn rows either side
6323 }
6328 }
6343 # see if this is the first child of any of its parents
6346 # make this line extend up to the child
6348 }
6349 }
6350 } else {
6352 }
6353 }
6354 }
6355 }
6357 proc undolayout {row} {
6358 global uparrowlen mingaplen downarrowlen
6359 global rowidlist rowisopt rowfinal need_redisplay
6363 set r 0
6364 }
6366 incr r -1
6370 set need_redisplay 1
6371 run drawvisible
6372 }
6373 }
6375 proc drawvisible {} {
6376 global canv linespc curview vrowmod selectedline targetrow targetid
6377 global need_redisplay cscroll numcommits
6387 if {[info exists targetid]} {
6391 # Fix up the scrollregion and change the scrolling position
6392 # now that our target row has moved.
6395 setcanvscroll
6403 set need_redisplay 1
6404 }
6405 } else {
6406 unset targetid
6407 }
6408 }
6414 }
6418 } elseif {[info exists targetid]} {
6420 }
6421 if {[info exists targetrow]} {
6424 }
6426 }
6428 }
6430 proc clear_display {} {
6431 global iddrawn linesegs need_redisplay nrows_drawn
6432 global vhighlights fhighlights nhighlights rhighlights
6433 global linehtag linentag linedtag boldids boldnameids
6435 allcanvs delete all
6436 unset -nocomplain iddrawn
6437 unset -nocomplain linesegs
6438 unset -nocomplain linehtag
6439 unset -nocomplain linentag
6440 unset -nocomplain linedtag
6441 set boldids {}
6442 set boldnameids {}
6443 unset -nocomplain vhighlights
6444 unset -nocomplain fhighlights
6445 unset -nocomplain nhighlights
6446 unset -nocomplain rhighlights
6447 set need_redisplay 0
6448 set nrows_drawn 0
6449 }
6451 proc findcrossings {id} {
6452 global rowidlist parentlist numcommits displayorder
6454 set cross {}
6455 set ccross {}
6459 }
6478 }
6479 }
6480 }
6481 }
6482 }
6484 }
6486 proc assigncolor {id} {
6487 global colormap colors nextcolor
6488 global parents children children curview
6494 } else {
6495 set kids {}
6496 }
6502 return
6503 }
6504 }
6505 set badcolors {}
6506 set origbad {}
6509 # delimiter between corner crossings and other crossings
6512 }
6516 }
6517 }
6520 }
6527 }
6532 }
6533 }
6534 }
6537 }
6538 }
6542 set nextcolor 0
6543 }
6545 }
6547 }
6549 proc bindline {t id} {
6550 global canv
6556 }
6558 proc graph_pane_width {} {
6559 global use_ttk
6562 set g [.tf.histframe.pwclist sashpos 0]
6563 } else {
6564 set g [.tf.histframe.pwclist sash coord 0]
6565 }
6567 }
6569 proc totalwidth {l font extra} {
6570 set tot 0
6573 }
6575 }
6577 proc drawtags {id x xt y1} {
6578 global idtags idheads idotherrefs mainhead
6579 global linespc lthickness
6580 global canv rowtextx curview fgcolor bgcolor ctxbut
6581 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
6582 global tagbgcolor tagfgcolor tagoutlinecolor
6583 global reflinecolor
6585 set marks {}
6586 set ntags 0
6587 set nheads 0
6588 set singletag 0
6589 set maxtags 3
6590 set maxtagpct 25
6600 # show just a single "n tags..." tag
6601 set singletag 1
6603 set marks [list "tag..."]
6604 } else {
6606 }
6607 set ntags 1
6608 }
6609 }
6613 }
6616 }
6619 }
6623 set xvals {}
6624 set wvals {}
6625 set i -1
6627 incr i
6630 } else {
6632 }
6636 }
6644 set font mainfont
6645 if {[incr ntags -1] >= 0} {
6646 # draw a tag
6653 } else {
6655 }
6658 } else {
6659 # draw a head or other ref
6660 if {[incr nheads -1] >= 0} {
6663 set font mainfontbold
6664 }
6665 } else {
6666 set col "#ddddff"
6667 }
6678 }
6679 }
6686 }
6687 }
6689 }
6691 proc drawnotesign {xt y} {
6692 global linespc canv fgcolor
6700 }
6702 proc xcoord {i level ln} {
6703 global canvx0 xspc1 xspc2
6710 }
6712 }
6714 proc show_status {msg} {
6715 global canv fgcolor
6717 clear_display
6718 set_window_title
6721 }
6723 # Don't change the text pane cursor if it is currently the hand cursor,
6724 # showing that we are over a sha1 ID link.
6725 proc settextcursor {c} {
6726 global ctext curtextcursor
6730 }
6732 }
6734 proc nowbusy {what {name {}}} {
6735 global isbusy busyname statusw
6737 if {[array names isbusy] eq {}} {
6738 . config -cursor watch
6739 settextcursor watch
6740 }
6745 }
6746 }
6748 proc notbusy {what} {
6749 global isbusy maincursor textcursor busyname statusw
6751 catch {
6756 }
6757 }
6758 if {[array names isbusy] eq {}} {
6761 }
6762 }
6764 proc findmatches {f} {
6765 global findtype findstring
6768 } else {
6773 }
6774 set matches {}
6775 set i 0
6780 }
6781 }
6783 }
6785 proc dofind {{dirn 1} {wrap 1}} {
6786 global findstring findstartline findcurline selectedline numcommits
6787 global gdttype filehighlight fh_serial find_dirn findallowwrap
6789 if {[info exists find_dirn]} {
6791 stopfinding
6792 }
6793 focus .
6797 } else {
6799 }
6801 nowbusy finding [mc "Searching"]
6805 }
6808 run findmore
6809 }
6811 proc stopfinding {} {
6812 global find_dirn findcurline fprogcoord
6814 if {[info exists find_dirn]} {
6815 unset find_dirn
6816 unset findcurline
6817 notbusy finding
6818 set fprogcoord 0
6819 adjustprogress
6820 }
6821 stopblaming
6822 }
6824 proc findmore {} {
6825 global commitdata commitinfo numcommits findpattern findloc
6826 global findstartline findcurline findallowwrap
6827 global find_dirn gdttype fhighlights fprogcoord
6828 global curview varcorder vrownum varccommits vrowmod
6830 if {![info exists find_dirn]} {
6831 return 0
6832 }
6833 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6835 set moretodo 0
6837 incr l
6839 set l 0
6840 }
6843 } else {
6846 }
6847 } else {
6850 }
6851 incr l -1
6854 } else {
6855 set lim -1
6857 }
6858 }
6861 set n 500
6862 set moretodo 1
6863 }
6866 }
6867 set found 0
6868 set domore 1
6882 }
6884 # shouldn't happen unless git log doesn't give all the commits...
6887 continue
6888 }
6891 }
6897 set found 1
6898 break
6899 }
6900 }
6902 }
6903 } else {
6911 }
6916 }
6919 break
6920 }
6923 set domore 0
6925 }
6926 }
6927 }
6928 }
6930 unset findcurline
6931 unset find_dirn
6932 notbusy finding
6933 set fprogcoord 0
6934 adjustprogress
6937 } else {
6938 bell
6939 }
6940 return 0
6941 }
6943 flushhighlights
6944 } else {
6946 }
6950 }
6952 adjustprogress
6954 }
6956 proc findselectline {l} {
6957 global findloc commentend ctext findcurline markingmatches gdttype
6964 # highlight the matches in the comments
6971 }
6972 }
6973 drawvisible
6974 }
6976 # mark the bits of a headline or author that match a find string
6977 proc markmatches {canv l str tag matches font row} {
6978 global selectedline
6996 }
6997 }
6998 }
7000 proc unmarkmatches {} {
7001 global markingmatches
7003 allcanvs delete matches
7004 set markingmatches 0
7005 stopfinding
7006 }
7008 proc selcanvline {w x y} {
7009 global canv canvy0 ctext linespc
7010 global rowtextx
7017 set l 0
7018 }
7023 }
7024 unmarkmatches
7026 }
7028 proc commit_descriptor {p} {
7029 global commitinfo
7032 }
7033 set l "..."
7036 }
7038 }
7040 # append some text to the ctext widget, and make any SHA1 ID
7041 # that we know about be a clickable link.
7042 # Also look for URLs of the form "http[s]://..." and make them web links.
7043 proc appendwithlinks {text tags} {
7044 global ctext linknum curview
7053 incr e
7057 incr linknum
7058 }
7059 set wlinks [regexp -indices -all -inline -line \
7065 incr e2
7069 incr linknum
7070 }
7071 }
7073 proc setlink {id lk} {
7074 global curview ctext pendinglinks
7075 global linkfgcolor
7079 }
7081 set known 0
7086 set known 1
7088 }
7089 } else {
7091 }
7097 } else {
7100 }
7101 }
7103 proc setwlink {url lk} {
7104 global ctext
7105 global linkfgcolor
7106 global web_browser
7113 }
7115 proc appendshortlink {id {pre {}} {post {}}} {
7116 global ctext linknum
7123 incr linknum
7124 }
7126 proc makelink {id} {
7127 global pendinglinks
7132 }
7134 }
7136 proc linkcursor {w inc} {
7137 global linkentercount curtextcursor
7141 } else {
7144 set linkentercount 0
7145 }
7146 }
7147 }
7149 proc browseweb {url} {
7150 global web_browser
7156 }
7157 }
7159 proc viewnextline {dir} {
7160 global canv linespc
7168 set newtop 0
7171 }
7173 }
7175 # add a list of tag or branch names at position pos
7176 # returns the number of names inserted
7177 proc appendrefs {pos ids var} {
7181 return 0
7182 }
7185 set tags {}
7189 }
7190 }
7192 set sep {}
7194 set nutags 0
7197 # If we are displaying heads, and there are too many,
7198 # see if there are some important heads to display.
7200 set itags {}
7202 set utags {}
7209 } else {
7211 }
7212 }
7214 }
7216 set str [mc "and many more"]
7217 set sep " "
7218 } else {
7219 set str [mc "many"]
7220 }
7224 }
7229 incr linknum
7234 set sep ", "
7235 }
7239 }
7241 # called when we have finished computing the nearby tags
7242 proc dispneartags {delay} {
7243 global selectedline currentid showneartags tagphase
7246 after cancel dispnexttag
7248 after 200 dispnexttag
7249 set tagphase -1
7250 } else {
7251 after idle dispnexttag
7252 set tagphase 0
7253 }
7254 }
7256 proc dispnexttag {} {
7257 global selectedline currentid showneartags tagphase ctext
7261 0 {
7265 }
7266 }
7267 1 {
7271 }
7272 }
7273 2 {
7278 # turn "Branch" into "Branches"
7282 }
7283 }
7284 }
7285 }
7286 if {[incr tagphase] <= 2} {
7287 after idle dispnexttag
7288 }
7289 }
7291 proc make_secsel {id} {
7292 global linehtag linentag linedtag canv canv2 canv3
7307 }
7309 proc make_idmark {id} {
7310 global linehtag canv fgcolor
7317 }
7319 proc selectline {l isnew {desired_loc {}} {switch_to_patch 0}} {
7320 global canv ctext commitinfo selectedline
7321 global canvy0 linespc parents children curview
7322 global currentid sha1entry
7323 global commentend idtags linknum
7324 global mergemax numcommits pending_select
7325 global cmitmode showneartags allcommits
7326 global targetrow targetid lastscrollrows
7327 global autoselect autosellen jump_to_here
7328 global vinlinediff
7330 unset -nocomplain pending_select
7332 normalline
7333 unsel_reflist
7334 stopfinding
7342 setcanvscroll
7343 }
7346 set cmitmode "patch"
7347 }
7361 } else {
7365 }
7366 }
7370 } else {
7374 }
7375 }
7376 }
7379 set newtop 0
7380 }
7382 drawvisible
7383 }
7389 }
7395 }
7399 clear_ctext
7400 set linknum 0
7403 }
7413 }
7415 }
7417 set headers {}
7420 set np 0
7423 set tag mmax
7424 } else {
7426 }
7429 incr np
7430 }
7431 } else {
7434 }
7435 }
7439 }
7441 # make anything that looks like a SHA1 ID be a clickable link
7444 if {![info exists allcommits]} {
7445 getallcommits
7446 }
7457 dispneartags 1
7458 }
7463 }
7471 init_flist [mc "Comments"]
7478 } else {
7480 }
7481 }
7483 proc selfirstline {} {
7484 unmarkmatches
7485 selectline 0 1
7486 }
7488 proc sellastline {} {
7489 global numcommits
7490 unmarkmatches
7493 }
7495 proc selnextline {dir} {
7496 global selectedline
7497 focus .
7500 unmarkmatches
7502 }
7504 proc selnextpage {dir} {
7505 global canv linespc selectedline numcommits
7509 set lpp 1
7510 }
7512 drawvisible
7516 set l 0
7519 }
7520 unmarkmatches
7522 }
7524 proc unselectline {} {
7525 global selectedline currentid
7527 set selectedline {}
7528 unset -nocomplain currentid
7529 allcanvs delete secsel
7530 rhighlight_none
7531 }
7533 proc reselectline {} {
7534 global selectedline
7538 }
7539 }
7541 proc addtohistory {cmd {saveproc {}}} {
7542 global history historyindex curview
7544 unset_posvars
7545 save_position
7549 return
7550 }
7554 } else {
7556 }
7557 incr historyindex
7559 .tf.bar.leftbut conf -state normal
7560 } else {
7561 .tf.bar.leftbut conf -state disabled
7562 }
7563 .tf.bar.rightbut conf -state disabled
7564 }
7566 # save the scrolling position of the diff display pane
7567 proc save_position {} {
7568 global historyindex history
7575 }
7576 }
7578 proc unset_posvars {} {
7579 global last_posvars
7581 if {[info exists last_posvars]} {
7585 }
7586 unset last_posvars
7587 }
7588 }
7590 proc godo {elt} {
7591 global curview last_posvars
7598 }
7599 unset_posvars
7603 }
7606 }
7608 proc goback {} {
7609 global history historyindex
7610 focus .
7613 save_position
7614 incr historyindex -1
7616 .tf.bar.rightbut conf -state normal
7617 }
7619 .tf.bar.leftbut conf -state disabled
7620 }
7621 }
7623 proc goforw {} {
7624 global history historyindex
7625 focus .
7628 save_position
7630 incr historyindex
7632 .tf.bar.leftbut conf -state normal
7633 }
7635 .tf.bar.rightbut conf -state disabled
7636 }
7637 }
7639 proc go_to_parent {i} {
7640 global parents curview targetid
7644 }
7645 }
7647 proc gettree {id} {
7648 global treefilelist treeidlist diffids diffmergeid treepending
7649 global nullid nullid2
7652 unset -nocomplain diffmergeid
7654 if {![info exists treepending]} {
7656 set cmd [list | git ls-files]
7658 set cmd [list | git ls-files --stage -t]
7659 } else {
7661 }
7663 return
7664 }
7670 }
7671 } else {
7673 }
7674 }
7676 proc gettreeline {gtf id} {
7677 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7679 set nl 0
7683 } else {
7691 }
7694 }
7697 }
7700 }
7702 unset treepending
7704 if {![info exists diffmergeid]} {
7706 }
7709 } else {
7711 }
7712 return 0
7713 }
7715 proc showfile {f} {
7716 global treefilelist treeidlist diffids nullid nullid2
7717 global ctext_file_names ctext_file_lines
7718 global ctext commentend
7723 return
7724 }
7728 return
7729 }
7730 } else {
7734 return
7735 }
7736 }
7747 settabs 0
7748 }
7750 proc getblobline {bf id} {
7751 global diffids cmitmode ctext
7755 return 0
7756 }
7758 set nl 0
7761 }
7763 global jump_to_here ctext_file_names commentend
7765 # delete last newline
7773 }
7775 return 0
7776 }
7779 }
7781 proc mark_ctext_line {lnum} {
7782 global ctext markbgcolor
7788 }
7790 proc mergediff {id} {
7791 global diffmergeid
7792 global diffids treediffs
7793 global parents curview
7801 }
7803 proc startdiff {ids} {
7804 global treediffs diffids treepending diffmergeid nullid nullid2
7806 settabs 1
7808 unset -nocomplain diffmergeid
7812 if {![info exists treepending]} {
7814 }
7815 } else {
7817 }
7818 }
7820 proc showinlinediff {ids} {
7821 global commitinfo commitdata ctext
7822 global treediffs
7828 initblobdiffvars
7829 set treediff {}
7831 set inhdr 0
7834 set inhdr 1
7836 # offset also accounts for the b/ prefix
7838 set inhdr 0
7839 }
7840 }
7848 }
7849 maybe_scroll_ctext 1
7851 }
7853 # If the filename (name) is under any of the passed filter paths
7854 # then return true to include the file in the listing.
7855 proc path_filter {filter name} {
7856 set worktree [gitworktree]
7861 return 1
7862 }
7863 }
7864 return 0
7865 }
7867 proc addtocflist {ids} {
7868 global treediffs
7872 }
7874 proc diffcmd {ids flags} {
7875 global log_showroot nullid nullid2 git_version
7881 # comparing working directory with some specific revision
7885 } else {
7887 }
7888 } else {
7889 # comparing working directory with index
7892 lappend cmd -R
7893 }
7894 }
7898 }
7901 # comparing index with specific revision
7904 } else {
7906 }
7907 } else {
7908 # comparing index with HEAD
7909 lappend cmd HEAD
7910 }
7911 } else {
7913 lappend flags --root
7914 }
7916 }
7918 }
7920 proc gettreediffs {ids} {
7921 global treediff treepending limitdiffs vfilelimit curview
7926 }
7930 set treediff {}
7933 }
7935 proc gettreediffline {gdtf ids} {
7936 global treediff treediffs treepending diffids diffmergeid
7937 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7939 set nr 0
7940 set sublist {}
7941 set max 1000
7943 # cache_gitattr is slow, and even slower on win32 where we
7944 # have to invoke it for only about 30 paths at a time
7945 set max 500
7946 if {[tk windowingsystem] == "win32"} {
7947 set max 120
7948 }
7949 }
7956 }
7961 }
7962 }
7963 }
7966 }
7969 }
7972 unset treepending
7976 if {![info exists diffmergeid]} {
7978 }
7979 } else {
7981 }
7982 return 0
7983 }
7985 # empty string or positive integer
7986 proc diffcontextvalidate {v} {
7988 }
7990 proc diffcontextchange {n1 n2 op} {
7991 global diffcontextstring diffcontext
7996 reselectline
7997 }
7998 }
7999 }
8001 proc changeignorespace {} {
8002 reselectline
8003 }
8005 proc changeworddiff {name ix op} {
8006 reselectline
8007 }
8009 proc initblobdiffvars {} {
8010 global diffencoding targetline diffnparents
8011 global diffinhdr currdiffsubmod diffseehere
8012 set targetline {}
8013 set diffnparents 0
8014 set diffinhdr 0
8015 set diffencoding [get_path_encoding {}]
8016 set currdiffsubmod ""
8017 set diffseehere -1
8018 }
8020 proc getblobdiffs {ids} {
8021 global blobdifffd diffids env
8022 global treediffs
8023 global diffcontext
8024 global ignorespace
8025 global worddiff
8026 global limitdiffs vfilelimit curview
8027 global git_version
8029 set textconv {}
8031 set textconv "--textconv"
8032 }
8033 set submodule {}
8035 set submodule "--submodule"
8036 }
8039 append cmd " -w"
8040 }
8042 append cmd " --word-diff=porcelain"
8043 }
8046 }
8049 return
8050 }
8053 initblobdiffvars
8055 }
8057 proc savecmitpos {} {
8058 global ctext cmitmode
8061 return {}
8062 }
8064 }
8066 proc savectextpos {} {
8067 global ctext
8070 }
8072 proc maybe_scroll_ctext {ateof} {
8073 global ctext target_scrollpos
8075 if {![info exists target_scrollpos]} return
8078 / [font metrics textfont -linespace]}]
8080 }
8082 unset target_scrollpos
8083 }
8085 proc setinlist {var i val} {
8090 }
8093 } else {
8095 }
8096 }
8098 proc makediffhdr {fname ids} {
8099 global ctext curdiffstart treediffs diffencoding
8100 global ctext_file_names jump_to_here targetline diffline
8107 }
8112 set targetline {}
8115 }
8116 set diffline 0
8117 }
8119 proc blobdiffmaybeseehere {ateof} {
8120 global diffseehere
8123 }
8125 }
8127 proc getblobdiffline {bdf ids} {
8128 global diffids blobdifffd
8129 global ctext
8131 set nr 0
8135 # Older diff read. Abort it.
8139 }
8140 return 0
8141 }
8143 }
8149 return 0
8150 }
8152 }
8154 proc parseblobdiffline {ids line} {
8155 global ctext curdiffstart
8156 global diffnexthead diffnextnote difffilestart
8157 global ctext_file_names ctext_file_lines
8158 global diffinhdr treediffs mergemax diffnparents
8159 global diffencoding jump_to_here targetline diffline currdiffsubmod
8160 global worddiff diffseehere
8166 continue
8167 }
8168 # start of a new file
8169 set diffinhdr 1
8170 set currdiffsubmod ""
8174 lappend ctext_file_names ""
8179 # start of a new file in a merge diff
8184 }
8186 } else {
8188 # If the name hasn't changed the length will be odd,
8189 # the middle char will be a space, and the two bits either
8190 # side will be a/name and b/name, or "a/name" and "b/name".
8191 # If the name has changed we'll get "rename from" and
8192 # "rename to" or "copy from" and "copy to" lines following
8193 # this, and we'll use them to get the filenames.
8194 # This complexity is necessary because spaces in the
8195 # filename(s) don't get escaped.
8201 return
8202 }
8203 # unescape if quoted and chop off the a/ from the front
8206 } else {
8208 }
8209 }
8222 }
8230 }
8232 set diffinhdr 0
8235 # start of a new submodule
8238 } else {
8240 }
8243 }
8246 lappend ctext_file_names ""
8251 } else {
8253 }
8265 }
8270 }
8276 }
8279 # do nothing
8280 return
8282 set diffinhdr 0
8283 return
8284 }
8287 } else {
8288 set line [string map {\x1A ^Z} \
8290 # parse the prefix - one ' ', '-' or '+' for each parent
8294 set words_pre_markup ""
8295 set words_post_markup ""
8297 # prefix only has " ", "-" and "+" in it: normal diff line
8301 }
8305 set num "max"
8306 }
8309 } else {
8311 }
8314 }
8315 } else {
8316 set tags {}
8318 # added line
8324 set num "max"
8325 }
8327 }
8328 }
8329 set words_pre_markup "{+"
8330 set words_post_markup "+}"
8331 }
8335 set targetline {}
8336 } else {
8337 incr diffline
8338 }
8339 }
8342 } else {
8344 }
8347 }
8348 }
8351 } else {
8352 # "\ No newline at end of file",
8353 # or something else we don't recognize
8355 }
8356 }
8357 }
8359 proc changediffdisp {} {
8360 global ctext diffelide
8364 }
8366 proc highlightfile {cline} {
8367 global cflist cflist_top
8369 if {![info exists cflist_top]} return
8375 }
8377 proc highlightfile_for_scrollpos {topidx} {
8378 global cmitmode difffilestart
8381 if {![info exists difffilestart]} return
8385 highlightfile 0
8386 } else {
8388 }
8389 }
8391 proc prevfile {} {
8392 global difffilestart ctext cmitmode
8395 set prev 0.0
8400 return
8401 }
8403 }
8405 }
8407 proc nextfile {} {
8408 global difffilestart ctext cmitmode
8415 return
8416 }
8417 }
8418 }
8420 proc clear_ctext {{first 1.0}} {
8421 global ctext smarktop smarkbot
8422 global ctext_file_names ctext_file_lines
8423 global pendinglinks
8428 }
8431 }
8434 unset -nocomplain pendinglinks
8435 }
8436 set ctext_file_names {}
8437 set ctext_file_lines {}
8438 }
8440 proc settabs {{firstab {}}} {
8441 global firsttabstop tabstop ctext have_tk85
8445 }
8446 set w [font measure textfont "0"]
8452 } else {
8454 }
8455 }
8457 proc incrsearch {name ix op} {
8458 global ctext searchstring searchdirn
8461 # no anchor set, use start of selection, or of visible area
8467 } else {
8469 }
8470 }
8478 suppress_highlighting_file_for_current_scrollpos
8480 }
8481 }
8482 rehighlight_search_results
8483 }
8485 proc dosearch {} {
8486 global sstring ctext searchstring searchdirn
8490 set searchdirn -forwards
8496 set start "@0,0"
8497 }
8501 bell
8502 return
8503 }
8505 suppress_highlighting_file_for_current_scrollpos
8510 rehighlight_search_results
8511 }
8512 }
8514 proc dosearchback {} {
8515 global sstring ctext searchstring searchdirn
8519 set searchdirn -backwards
8526 }
8530 bell
8531 return
8532 }
8534 suppress_highlighting_file_for_current_scrollpos
8539 rehighlight_search_results
8540 }
8541 }
8543 proc rehighlight_search_results {} {
8544 global ctext searchstring
8550 searchmarkvisible 1
8551 }
8552 }
8554 proc searchmark {first last} {
8555 global ctext searchstring
8560 while {1} {
8566 } else {
8568 }
8569 }
8570 }
8572 proc searchmarkvisible {doall} {
8573 global ctext smarktop smarkbot
8578 # no overlap with previous
8582 } else {
8586 }
8590 }
8591 }
8592 }
8594 proc suppress_highlighting_file_for_current_scrollpos {} {
8595 global ctext suppress_highlighting_file_for_this_scrollpos
8598 }
8600 proc scrolltext {f0 f1} {
8601 global searchstring cmitmode ctext
8602 global suppress_highlighting_file_for_this_scrollpos
8605 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8608 }
8610 unset -nocomplain suppress_highlighting_file_for_this_scrollpos
8614 searchmarkvisible 0
8615 }
8616 }
8618 proc setcoords {} {
8619 global linespc charspc canvx0 canvy0
8620 global xspc1 xspc2 lthickness
8622 set linespc [font metrics mainfont -linespace]
8623 set charspc [font measure mainfont "m"]
8629 }
8631 proc redisplay {} {
8632 global canv
8633 global selectedline
8638 clear_display
8639 setcanvscroll
8641 drawvisible
8645 }
8646 }
8648 proc parsefont {f n} {
8649 global fontattr
8654 set s 10
8657 }
8663 "normal" -
8665 "roman" -
8667 }
8668 }
8669 }
8671 proc fontflags {f {isbold 0}} {
8672 global fontattr
8677 }
8679 proc fontname {f} {
8680 global fontattr
8684 lappend n "bold"
8685 }
8687 lappend n "italic"
8688 }
8690 }
8692 proc incrfont {inc} {
8693 global mainfont textfont ctext canv cflist showrefstop
8694 global stopped entries fontattr
8696 unmarkmatches
8700 set s 1
8701 }
8705 set mainfont [fontname mainfont]
8709 set s 1
8710 }
8714 set textfont [fontname textfont]
8715 setcoords
8716 settabs
8717 redisplay
8718 }
8720 proc clearsha1 {} {
8721 global sha1entry sha1string
8724 }
8725 }
8727 proc sha1change {n1 n2 op} {
8728 global sha1string currentid sha1but
8731 set state disabled
8732 } else {
8733 set state normal
8734 }
8738 } else {
8740 }
8741 }
8743 proc gotocommit {} {
8744 global sha1string tagids headids curview varcid
8752 } else {
8759 return
8760 }
8762 }
8763 } else {
8766 return
8767 }
8768 }
8769 }
8772 return
8773 }
8776 } else {
8778 }
8780 }
8782 proc lineenter {x y id} {
8783 global hoverx hovery hoverid hovertimer
8784 global commitinfo canv
8790 if {[info exists hovertimer]} {
8792 }
8793 set hovertimer [after 500 linehover]
8795 }
8797 proc linemotion {x y id} {
8798 global hoverx hovery hoverid hovertimer
8803 if {[info exists hovertimer]} {
8805 }
8806 set hovertimer [after 500 linehover]
8807 }
8808 }
8810 proc lineleave {id} {
8811 global hoverid hovertimer canv
8815 if {[info exists hovertimer]} {
8817 unset hovertimer
8818 }
8819 unset hoverid
8820 }
8821 }
8823 proc linehover {} {
8824 global hoverx hovery hoverid hovertimer
8825 global canv linespc lthickness
8826 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8828 global commitinfo
8842 -width 1 -tags hover]
8847 }
8849 proc clickisonarrow {id y} {
8850 global lthickness
8859 }
8860 }
8861 return {}
8862 }
8864 proc arrowjump {id n y} {
8865 global canv
8867 # 1 <-> 2, 3 <-> 4, etc...
8877 set yfrac 0
8878 }
8880 }
8882 proc lineclick {x y id isnew} {
8883 global ctext commitinfo children canv thickerline curview
8886 unmarkmatches
8887 unselectline
8888 normalline
8890 # draw this line thicker than normal
8898 }
8902 return
8903 }
8907 }
8908 # fill the details pane with info about this line
8910 clear_ctext
8911 settabs 0
8923 set i 0
8925 incr i
8935 }
8936 }
8937 maybe_scroll_ctext 1
8939 init_flist {}
8940 }
8942 proc normalline {} {
8943 global thickerline
8944 if {[info exists thickerline]} {
8946 unset thickerline
8948 }
8949 }
8951 proc selbyid {id {isnew 1}} {
8952 global curview
8955 }
8956 }
8958 proc mstime {} {
8959 global startmstime
8960 if {![info exists startmstime]} {
8961 set startmstime [clock clicks -milliseconds]
8962 }
8964 }
8966 proc rowmenu {x y id} {
8967 global rowctxmenu selectedline rowmenuid curview
8968 global nullid nullid2 fakerowmenu mainhead markedid
8970 stopfinding
8973 set state disabled
8974 } else {
8975 set state normal
8976 }
8978 set mstate normal
8979 } else {
8980 set mstate disabled
8981 }
8986 } else {
8988 }
8992 } else {
8994 }
9001 }
9003 proc markhere {} {
9004 global rowmenuid markedid canv
9008 }
9010 proc gotomark {} {
9011 global markedid
9013 if {[info exists markedid]} {
9015 }
9016 }
9018 proc replace_by_kids {l r} {
9019 global curview children
9025 }
9027 }
9029 proc find_common_desc {} {
9030 global markedid rowmenuid curview children
9032 if {![info exists markedid]} return
9035 #set t1 [clock clicks -milliseconds]
9038 while 1 {
9044 break
9045 }
9048 } else {
9050 }
9051 }
9052 #set t2 [clock clicks -milliseconds]
9054 }
9056 proc compare_commits {} {
9057 global markedid rowmenuid curview children
9059 if {![info exists markedid]} return
9063 }
9065 proc getpatchid {id} {
9066 global patchids
9070 # trim off the initial "|"
9072 if {[catch {
9075 }]} {
9077 }
9078 }
9080 }
9082 proc do_cmp_commits {a b} {
9083 global ctext curview parents children patchids commitinfo
9086 clear_ctext
9087 init_flist {}
9089 set skipa 0
9090 set skipb 0
9093 set skipa 1
9094 } else {
9096 }
9099 set skipb 1
9100 } else {
9102 }
9108 [mc " - stopping\n"]
9109 break
9110 }
9113 [mc " - stopping\n"]
9114 break
9115 }
9120 } else {
9124 }
9125 set skipa 1
9126 set skipb 1
9127 } else {
9134 update
9136 return
9137 }
9138 }
9145 break
9146 }
9148 }
9154 break
9155 }
9157 }
9158 }
9160 }
9162 proc diffcommits {a b} {
9163 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
9165 set tmpdir [gitknewtmpdir]
9168 if {[catch {
9171 } err]} {
9173 return
9174 }
9175 if {[catch {
9177 } err]} {
9179 return
9180 }
9183 set diffinhdr 0
9184 set currdiffsubmod ""
9186 }
9188 proc diffvssel {dirn} {
9189 global rowmenuid selectedline
9195 } else {
9198 }
9201 }
9203 proc diffvsmark {dirn} {
9204 global rowmenuid markedid
9206 if {![info exists markedid]} return
9210 } else {
9213 }
9216 }
9218 proc doseldiff {oldid newid} {
9219 global ctext
9220 global commitinfo
9223 clear_ctext
9224 init_flist [mc "Top"]
9239 }
9241 proc mkpatch {} {
9242 global rowmenuid currentid commitinfo patchtop patchnum NS
9244 if {![info exists currentid]} return
9249 set top .patch
9279 incr patchnum
9291 }
9293 proc mkpatchrev {} {
9294 global patchtop
9300 foreach e [list fromsha1 fromhead tosha1 tohead] \
9306 }
9307 }
9309 proc mkpatchgo {} {
9310 global patchtop nullid nullid2
9316 # trim off the initial "|"
9321 }
9323 unset patchtop
9324 }
9326 proc mkpatchcan {} {
9327 global patchtop
9330 unset patchtop
9331 }
9333 proc mktag {} {
9334 global rowmenuid mktagtop commitinfo NS
9336 set top .maketag
9370 }
9372 proc domktag {} {
9373 global mktagtop env tagids idtags
9380 return 0
9381 }
9384 return 0
9385 }
9386 if {[catch {
9389 } else {
9391 }
9392 } err]} {
9394 return 0
9395 }
9401 dispneartags 0
9402 run refill_reflist
9403 return 1
9404 }
9406 proc redrawtags {id} {
9407 global canv linehtag idpos currentid curview cmitlisted markedid
9408 global canvxmax iddrawn circleitem mainheadid circlecolors
9409 global mainheadcirclecolor
9416 } else {
9418 }
9428 setcanvscroll
9429 }
9432 }
9435 }
9436 }
9438 proc mktagcan {} {
9439 global mktagtop
9442 unset mktagtop
9443 }
9445 proc mktaggo {} {
9446 if {![domktag]} return
9447 mktagcan
9448 }
9450 proc copyreference {} {
9451 global rowmenuid autosellen
9453 set format "%h (\"%s\", %ad)"
9457 }
9460 clipboard clear
9462 }
9464 proc writecommit {} {
9465 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9467 set top .writecommit
9500 }
9502 proc wrcomgo {} {
9503 global wrcomtop
9510 }
9512 unset wrcomtop
9513 }
9515 proc wrcomcan {} {
9516 global wrcomtop
9519 unset wrcomtop
9520 }
9522 proc mkbranch {} {
9523 global NS rowmenuid
9525 set top .branchdialog
9527 set val(name) ""
9531 set ui(title) [mc "Create branch"]
9532 set ui(accept) [mc "Create"]
9535 }
9537 proc mvbranch {} {
9538 global NS
9539 global headmenuid headmenuhead
9541 set top .branchdialog
9548 set ui(accept) [mc "Rename"]
9551 }
9553 proc branchdia {top valvar uivar} {
9554 global NS commitinfo
9586 }
9588 proc mkbrgo {top} {
9589 global headids idheads
9593 set cmdargs {}
9594 set old_id {}
9597 return
9598 }
9600 if {![confirm_popup [mc \
9602 return
9603 }
9605 lappend cmdargs -f
9606 }
9609 nowbusy newbranch
9610 update
9611 if {[catch {
9613 } err]} {
9614 notbusy newbranch
9616 } else {
9617 notbusy newbranch
9623 } else {
9628 }
9629 dispneartags 0
9630 run refill_reflist
9631 }
9632 }
9634 proc mvbrgo {top prevname} {
9635 global headids idheads mainhead mainheadid
9639 set cmdargs {}
9642 return
9643 }
9646 return
9647 }
9650 nowbusy renamebranch
9651 update
9652 if {[catch {
9654 } err]} {
9655 notbusy renamebranch
9657 } else {
9658 notbusy renamebranch
9667 }
9669 dispneartags 0
9670 run refill_reflist
9671 }
9672 }
9674 proc exec_citool {tool_args {baseid {}}} {
9675 global commitinfo env
9677 set save_env [array get env GIT_AUTHOR_*]
9682 }
9685 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9691 }
9692 }
9696 array unset env GIT_AUTHOR_*
9698 }
9700 proc cherrypick {} {
9701 global rowmenuid curview
9702 global mainhead mainheadid
9703 global gitdir
9705 set oldhead [exec git rev-parse HEAD]
9708 set ok [confirm_popup [mc "Commit %s is already\
9709 included in branch %s -- really re-apply it?" \
9712 }
9713 nowbusy cherrypick [mc "Cherry-picking"]
9714 update
9715 # Unfortunately git-cherry-pick writes stuff to stderr even when
9716 # no error occurs, and exec takes that as an indication of error...
9718 notbusy cherrypick
9719 if {[regexp -line \
9720 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9722 error_popup [mc "Cherry-pick failed because of local changes\
9723 to file '%s'.\nPlease commit, reset or stash\
9725 } elseif {[regexp -line \
9726 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9728 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9729 conflict.\nDo you wish to run git citool to\
9730 resolve it?"]]} {
9731 # Force citool to read MERGE_MSG
9734 }
9735 } else {
9737 }
9738 run updatecommits
9739 return
9740 }
9741 set newhead [exec git rev-parse HEAD]
9743 notbusy cherrypick
9744 error_popup [mc "No changes committed"]
9745 return
9746 }
9749 # XXX this isn't right if we have a path limit...
9754 }
9759 }
9760 notbusy cherrypick
9761 }
9763 proc revert {} {
9764 global rowmenuid curview
9765 global mainhead mainheadid
9766 global gitdir
9768 set oldhead [exec git rev-parse HEAD]
9771 set ok [confirm_popup [mc "Commit %s is not\
9772 included in branch %s -- really revert it?" \
9775 }
9776 nowbusy revert [mc "Reverting"]
9777 update
9780 notbusy revert
9781 if [regexp {files would be overwritten by merge:(\n(( |\t)+[^\n]+\n)+)}\
9784 error_popup [mc "Revert failed because of local changes to\
9785 the following files:%s Please commit, reset or stash \
9788 if [confirm_popup [mc "Revert failed because of merge conflict.\n\
9789 Do you wish to run git citool to resolve it?"]] {
9790 # Force citool to read MERGE_MSG
9793 }
9795 run updatecommits
9796 return
9797 }
9799 set newhead [exec git rev-parse HEAD]
9801 notbusy revert
9802 error_popup [mc "No changes committed"]
9803 return
9804 }
9809 # XXX this isn't right if we have a path limit...
9814 }
9819 }
9821 notbusy revert
9822 }
9824 proc resethead {} {
9825 global mainhead rowmenuid confirm_ok resettype NS
9827 set confirm_ok 0
9828 set w ".confirmreset"
9836 set resettype mixed
9838 -text [mc "Soft: Leave working tree and index untouched"]
9841 -text [mc "Mixed: Leave working tree untouched, reset index"]
9844 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9855 if {[catch {set fd [open \
9858 } else {
9859 dohidelocalchanges
9861 nowbusy reset [mc "Resetting"]
9863 }
9864 }
9866 proc readresetstat {fd} {
9867 global mainhead mainheadid showlocalchanges rprogcoord
9872 adjustprogress
9873 }
9874 return 1
9875 }
9876 set rprogcoord 0
9877 adjustprogress
9878 notbusy reset
9881 }
9883 set newhead [exec git rev-parse HEAD]
9890 }
9892 doshowlocalchanges
9893 }
9894 return 0
9895 }
9897 # context menu for a head
9898 proc headmenu {x y id head} {
9899 global headmenuid headmenuhead headctxmenu mainhead headids
9901 stopfinding
9904 array set state {0 normal 1 normal 2 normal}
9908 set state(0) disabled
9909 }
9910 array set state {1 disabled 2 disabled}
9911 }
9913 array set state {0 disabled 2 disabled}
9914 }
9915 foreach i {0 1 2} {
9917 }
9919 }
9921 proc cobranch {} {
9922 global headmenuid headmenuhead headids
9923 global showlocalchanges
9925 # check the tree is clean first??
9927 set command [list | git checkout]
9931 # The following check is redundant - the menu option should
9932 # be disabled to begin with...
9935 return
9936 }
9938 } else {
9940 }
9941 lappend command 2>@1
9942 nowbusy checkout [mc "Checking out"]
9943 update
9944 dohidelocalchanges
9945 if {[catch {
9947 } err]} {
9948 notbusy checkout
9951 dodiffindex
9952 }
9953 } else {
9955 }
9956 }
9958 proc readcheckoutstat {fd newhead newheadid} {
9959 global mainhead mainheadid headids idheads showlocalchanges progresscoords
9960 global viewmainheadid curview
9965 adjustprogress
9966 }
9967 return 1
9968 }
9969 set progresscoords {0 0}
9970 adjustprogress
9971 notbusy checkout
9974 return
9975 }
9981 }
9989 dodiffindex
9990 }
9991 }
9993 proc rmbranch {} {
9994 global headmenuid headmenuhead mainhead
9995 global idheads
9999 # this check shouldn't be needed any more...
10001 error_popup [mc "Cannot delete the currently checked-out branch"]
10002 return
10003 }
10006 # the stuff on this branch isn't on any other branch
10007 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
10009 }
10010 nowbusy rmbranch
10011 update
10013 notbusy rmbranch
10015 return
10016 }
10020 notbusy rmbranch
10021 dispneartags 0
10022 run refill_reflist
10023 }
10025 # Display a list of tags and heads
10026 proc showrefs {} {
10027 global showrefstop bgcolor fgcolor selectbgcolor NS
10028 global bglist fglist reflistfilter reflist maincursor
10030 set top .showrefs
10034 refill_reflist
10035 return
10036 }
10044 -spacing1 1 -spacing3 1 -state disabled
10049 }
10057 set reflistfilter "*"
10058 trace add variable reflistfilter write reflistfilter_change
10070 set reflist {}
10071 refill_reflist
10072 }
10074 proc sel_reflist {w x y} {
10075 global showrefstop reflist headids tagids otherrefids
10086 }
10088 }
10090 proc unsel_reflist {} {
10091 global showrefstop
10095 }
10097 proc reflistfilter_change {n1 n2 op} {
10098 global reflistfilter
10100 after cancel refill_reflist
10101 after 200 refill_reflist
10102 }
10104 proc refill_reflist {} {
10105 global reflist reflistfilter showrefstop headids tagids otherrefids
10106 global curview
10109 set refs {}
10110 foreach n [array names headids] {
10115 } else {
10117 }
10118 } else {
10120 }
10121 }
10122 }
10123 foreach n [array names tagids] {
10127 } else {
10129 }
10130 }
10131 }
10132 foreach n [array names otherrefids] {
10136 } else {
10138 }
10139 }
10140 }
10148 set i 0
10149 set j 0
10158 }
10159 } else {
10160 set cmp -1
10161 }
10162 } else {
10163 set cmp 1
10164 }
10166 -1 {
10168 incr i
10169 }
10170 0 {
10171 incr i
10172 incr j
10173 }
10174 1 {
10179 incr j
10180 }
10181 }
10182 }
10184 # delete last newline
10187 }
10189 # Stuff for finding nearby tags
10190 proc getallcommits {} {
10191 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
10192 global idheads idtags idotherrefs allparents tagobjid
10193 global gitdir
10195 if {![info exists allcommits]} {
10196 set nextarc 0
10197 set allcommits 0
10198 set seeds {}
10199 set allcwait 0
10200 set cachedarcs 0
10202 if {![catch {
10204 set allcwait 1
10206 }]} return
10207 }
10210 return
10211 }
10212 set cmd [list | git rev-list --parents]
10215 set ids "--all"
10216 } else {
10217 set refs [concat [array names idheads] [array names idtags] \
10218 [array names idotherrefs]]
10219 set ids {}
10220 set tagobjs {}
10221 foreach name [array names tagobjid] {
10223 }
10228 }
10229 }
10233 }
10234 }
10235 }
10239 incr allcommits
10240 nowbusy allcommits
10242 } else {
10243 dispneartags 0
10244 }
10245 }
10247 # Since most commits have 1 parent and 1 child, we group strings of
10248 # such commits into "arcs" joining branch/merge points (BMPs), which
10249 # are commits that either don't have 1 parent or don't have 1 child.
10250 #
10251 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
10252 # arcout(id) - outgoing arcs for BMP
10253 # arcids(a) - list of IDs on arc including end but not start
10254 # arcstart(a) - BMP ID at start of arc
10255 # arcend(a) - BMP ID at end of arc
10256 # growing(a) - arc a is still growing
10257 # arctags(a) - IDs out of arcids (excluding end) that have tags
10258 # archeads(a) - IDs out of arcids (excluding end) that have heads
10259 # The start of an arc is at the descendent end, so "incoming" means
10260 # coming from descendents, and "outgoing" means going towards ancestors.
10262 proc getallclines {fd} {
10263 global allparents allchildren idtags idheads nextarc
10264 global arcnos arcids arctags arcout arcend arcstart archeads growing
10265 global seeds allcommits cachedarcs allcupdate
10267 set nid 0
10271 # seen it already
10272 continue
10273 }
10274 set cachedarcs 0
10281 } else {
10287 }
10290 }
10292 # seen parent already
10295 }
10299 }
10302 continue
10303 }
10304 }
10309 }
10311 set ao {}
10314 set a [incr nextarc]
10323 # seen it already, may need to make a new branch
10326 }
10330 }
10332 }
10334 }
10336 global cached_dheads cached_dtags cached_atags
10337 unset -nocomplain cached_dheads
10338 unset -nocomplain cached_dtags
10339 unset -nocomplain cached_atags
10340 }
10343 }
10344 set cacheok 1
10345 if {[catch {
10348 } err]} {
10349 # got an error reading the list of commits
10350 # if we were updating, try rereading the whole thing again
10352 incr allcommits -1
10354 return
10355 }
10356 error_popup "[mc "Error reading commit topology information;\
10357 branch and preceding/following tag information\
10359 set cacheok 0
10360 }
10361 if {[incr allcommits -1] == 0} {
10362 notbusy allcommits
10364 run savecache
10365 }
10366 }
10367 dispneartags 0
10368 return 0
10369 }
10371 proc recalcarc {a} {
10372 global arctags archeads arcids idtags idheads
10374 set at {}
10375 set ah {}
10379 }
10382 }
10383 }
10386 }
10388 proc splitarc {p} {
10389 global arcnos arcids nextarc arctags archeads idtags idheads
10390 global arcstart arcend arcout allparents growing
10395 return
10396 }
10401 return
10402 }
10403 set na [incr nextarc]
10406 } else {
10410 }
10420 }
10425 } else {
10428 }
10429 }
10431 # reconstruct tags and heads lists
10435 } else {
10438 }
10439 }
10441 # Update things for a new commit added that is a child of one
10442 # existing commit. Used when cherry-picking.
10443 proc addnewchild {id p} {
10444 global allparents allchildren idtags nextarc
10445 global arcnos arcids arctags arcout arcend arcstart archeads growing
10446 global seeds allcommits
10454 set a [incr nextarc]
10462 }
10465 }
10467 # This implements a cache for the topology information.
10468 # The cache saves, for each arc, the start and end of the arc,
10469 # the ids on the arc, and the outgoing arcs from the end.
10470 proc readcache {f} {
10471 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
10472 global idtags idheads allparents cachedarcs possible_seeds seeds growing
10473 global allcwait
10479 }
10480 if {[catch {
10482 # finish reading the cache and setting up arctags, etc.
10486 foreach id [array names idtags] {
10492 }
10493 }
10494 }
10495 foreach id [array names idheads] {
10501 }
10502 }
10503 }
10507 }
10508 }
10509 set allcwait 0
10510 } else {
10520 }
10524 } else {
10528 }
10529 }
10535 }
10538 }
10541 }
10543 }
10544 } err]} {
10546 return 0
10547 }
10549 getallcommits
10550 }
10552 }
10554 proc getcache {f} {
10555 global nextarc cachedarcs possible_seeds
10557 if {[catch {
10560 # make sure it's an integer
10563 set nextarc 0
10564 set possible_seeds {}
10566 } err]} {
10568 }
10569 return 0
10570 }
10572 proc dropcache {err} {
10573 global allcwait nextarc cachedarcs seeds
10576 foreach v {arcnos arcout arcids arcstart arcend growing \
10577 arctags archeads allparents allchildren} {
10580 }
10581 set allcwait 0
10582 set nextarc 0
10583 set cachedarcs 0
10584 set seeds {}
10585 getallcommits
10586 }
10588 proc writecache {f} {
10589 global cachearc cachedarcs allccache
10590 global arcstart arcend arcnos arcids arcout
10596 }
10597 if {[catch {
10601 } else {
10603 }
10604 }
10605 } err]} {
10609 return 0
10610 }
10615 return 0
10616 }
10617 return 1
10618 }
10620 proc savecache {} {
10621 global nextarc cachedarcs cachearc allccache
10624 set cachearc 0
10626 catch {
10630 }
10631 }
10633 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10634 # or 0 if neither is true.
10635 proc anc_or_desc {a b} {
10636 global arcout arcstart arcend arcnos cached_isanc
10639 # Both are on the same arc(s); either both are the same BMP,
10640 # or if one is not a BMP, the other is also not a BMP or is
10641 # the BMP at end of the arc (and it only has 1 incoming arc).
10642 # Or both can be BMPs with no incoming arcs.
10644 return 0
10645 }
10651 return 1
10652 } else {
10653 return -1
10654 }
10655 }
10661 } else {
10662 set aend {}
10663 }
10665 } else {
10667 }
10672 } else {
10673 set bend {}
10674 }
10676 } else {
10678 }
10680 return 1
10681 }
10683 return -1
10684 }
10687 return 1
10688 }
10689 }
10692 return -1
10693 }
10695 return 0
10696 }
10697 }
10705 continue
10706 }
10712 return 1
10716 return -1
10717 }
10723 }
10724 }
10725 }
10728 return 0
10729 }
10733 # and returns 0 if so and 1 if not.
10734 # If we subsequently discover a tag on such a growing tip, and that
10737 # isn't a good choice to display as a descendent tag of
10741 #
10742 proc is_certain {desc anc} {
10743 global arcnos arcout arcstart arcend growing problems
10745 set certain {}
10747 # tags on the same arc are certain
10749 return 1
10750 }
10755 }
10756 }
10759 } else {
10762 }
10764 return 1
10765 }
10768 set nnh 1
10769 set ngrowanc 0
10773 incr nnh -1
10774 }
10780 incr ngrowanc
10781 }
10782 } else {
10789 incr nnh -1
10790 }
10792 incr ngrowanc -1
10793 }
10803 incr nnh -1
10804 }
10806 incr ngrowanc -1
10807 }
10809 }
10810 }
10811 }
10812 }
10813 }
10814 }
10818 } else {
10821 incr nnh
10822 }
10823 }
10824 }
10825 }
10826 foreach x [array names growanc] {
10828 return 0
10829 }
10830 return 0
10831 }
10832 return 1
10833 }
10835 proc validate_arctags {a} {
10836 global arctags idtags
10838 set i -1
10841 incr i
10844 incr i -1
10845 }
10846 }
10848 }
10850 proc validate_archeads {a} {
10851 global archeads idheads
10853 set i -1
10856 incr i
10859 incr i -1
10860 }
10861 }
10863 }
10865 # Return the list of IDs that have tags that are descendents of id,
10866 # ignoring IDs that are descendents of IDs already reported.
10867 proc desctags {id} {
10868 global arcnos arcstart arcids arctags idtags allparents
10869 global growing cached_dtags
10872 return {}
10873 }
10874 set t1 [clock clicks -milliseconds]
10877 # part-way along an arc; check that arc first
10882 set tid {}
10887 }
10890 }
10891 }
10895 }
10896 }
10899 }
10904 set nc 1
10910 incr nc -1
10911 }
10912 # ignore tags on starting node
10916 set ta 1
10919 set ta 1
10920 }
10921 }
10928 }
10929 }
10938 }
10941 }
10943 incr nc -1
10944 }
10946 }
10947 }
10948 }
10953 incr nc
10954 }
10955 }
10956 }
10957 }
10958 set tags {}
10959 foreach id [array names tagloc] {
10964 }
10965 }
10966 }
10967 }
10968 set t2 [clock clicks -milliseconds]
10971 # remove tags that are descendents of other tags
10979 incr j -1
10980 incr i -1
10983 incr i -1
10984 break
10985 }
10986 }
10987 }
10989 if {[array names growing] ne {}} {
10990 # graph isn't finished, need to check if any tag could get
10991 # eclipsed by another tag coming later. Simply ignore any
10992 # tags that could later get eclipsed.
10993 set ctags {}
10997 }
10998 }
11001 } else {
11003 }
11004 } else {
11006 }
11007 set t3 [clock clicks -milliseconds]
11011 }
11013 }
11015 proc anctags {id} {
11016 global arcnos arcids arcout arcend arctags idtags allparents
11017 global growing cached_atags
11020 return {}
11021 }
11022 set t1 [clock clicks -milliseconds]
11025 # part-way along an arc; check that arc first
11034 }
11035 }
11036 }
11038 return {}
11039 }
11043 }
11044 }
11047 }
11052 set taglist {}
11053 set nc 1
11059 incr nc -1
11060 }
11061 # ignore tags on starting node
11065 set td 1
11068 set td 1
11069 }
11070 }
11076 }
11077 }
11089 }
11090 }
11093 }
11095 incr nc -1
11096 }
11098 }
11099 }
11100 }
11105 incr nc
11106 }
11107 }
11108 }
11109 }
11110 set t2 [clock clicks -milliseconds]
11112 set tags {}
11113 foreach id [array names tagloc] {
11118 }
11119 }
11120 }
11121 }
11123 # remove tags that are ancestors of other tags
11131 incr j -1
11132 incr i -1
11135 incr i -1
11136 break
11137 }
11138 }
11139 }
11141 if {[array names growing] ne {}} {
11142 # graph isn't finished, need to check if any tag could get
11143 # eclipsed by another tag coming later. Simply ignore any
11144 # tags that could later get eclipsed.
11145 set ctags {}
11149 }
11150 }
11153 } else {
11155 }
11156 } else {
11158 }
11159 set t3 [clock clicks -milliseconds]
11163 }
11165 }
11167 # Return the list of IDs that have heads that are descendents of id,
11168 # including id itself if it has a head.
11169 proc descheads {id} {
11170 global arcnos arcstart arcids archeads idheads cached_dheads
11171 global allparents arcout
11174 return {}
11175 }
11176 set aret {}
11178 # part-way along an arc; check it first
11187 }
11188 }
11190 }
11194 set ret {}
11199 } else {
11202 }
11208 }
11209 }
11214 }
11215 }
11216 }
11217 }
11221 }
11223 proc addedtag {id} {
11224 global arcnos arcout cached_dtags cached_atags
11229 }
11230 unset -nocomplain cached_dtags
11231 unset -nocomplain cached_atags
11232 }
11234 proc addedhead {hid head} {
11235 global arcnos arcout cached_dheads
11240 }
11241 unset -nocomplain cached_dheads
11242 }
11244 proc removedhead {hid head} {
11245 global cached_dheads
11247 unset -nocomplain cached_dheads
11248 }
11250 proc movedhead {hid head} {
11251 global arcnos arcout cached_dheads
11256 }
11257 unset -nocomplain cached_dheads
11258 }
11260 proc changedrefs {} {
11261 global cached_dheads cached_dtags cached_atags cached_tagcontent
11262 global arctags archeads arcnos arcout idheads idtags
11264 foreach id [concat [array names idheads] [array names idtags]] {
11270 }
11271 }
11272 }
11273 unset -nocomplain cached_tagcontent
11274 unset -nocomplain cached_dtags
11275 unset -nocomplain cached_atags
11276 unset -nocomplain cached_dheads
11277 }
11279 proc rereadrefs {} {
11280 global idtags idheads idotherrefs mainheadid
11282 set refids [concat [array names idtags] \
11283 [array names idheads] [array names idotherrefs]]
11287 }
11288 }
11290 readrefs
11291 changedrefs
11293 [array names idheads] [array names idotherrefs]]]
11298 }
11299 }
11303 }
11304 run refill_reflist
11305 }
11307 proc listrefs {id} {
11308 global idtags idheads idotherrefs
11310 set x {}
11313 }
11314 set y {}
11317 }
11318 set z {}
11321 }
11323 }
11325 proc add_tag_ctext {tag} {
11326 global ctext cached_tagcontent tagids
11329 catch {
11331 }
11332 }
11336 } else {
11338 }
11340 }
11342 proc showtag {tag isnew} {
11343 global ctext cached_tagcontent tagids linknum tagobjid
11347 }
11349 clear_ctext
11350 settabs 0
11351 set linknum 0
11353 maybe_scroll_ctext 1
11355 init_flist {}
11356 }
11358 proc showtags {id isnew} {
11359 global idtags ctext linknum
11363 }
11365 clear_ctext
11366 settabs 0
11367 set linknum 0
11368 set sep {}
11372 set sep "\n\n"
11373 }
11374 maybe_scroll_ctext 1
11376 init_flist {}
11377 }
11379 proc doquit {} {
11380 global stopped
11381 global gitktmpdir
11383 set stopped 100
11384 savestuff .
11385 destroy .
11387 if {[info exists gitktmpdir]} {
11389 }
11390 }
11392 proc mkfontdisp {font top which} {
11401 }
11403 proc choosefont {font which} {
11404 global fontparam fontlist fonttop fontattr
11405 global prefstop NS
11413 set top .gitkfont
11416 font create sample
11423 set fontlist [lsort [font families]]
11434 -textvariable fontparam(size) \
11435 -validatecommand {string is integer -strict %s}
11437 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
11438 -variable fontparam(weight) -onvalue bold -offvalue normal
11440 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
11441 -variable fontparam(slant) -onvalue italic -offvalue roman
11445 -background white
11447 -fill black -tags text
11459 trace add variable fontparam write chg_fontparam
11460 } else {
11463 }
11468 }
11469 }
11471 proc centertext {w} {
11473 }
11475 proc fontok {} {
11476 global fontparam fontpref prefstop
11482 }
11485 }
11489 fontcan
11490 }
11492 proc fontcan {} {
11493 global fonttop fontparam
11495 if {[info exists fonttop]} {
11497 catch {font delete sample}
11498 unset fonttop
11499 unset fontparam
11500 }
11501 }
11503 if {[package vsatisfies [package provide Tk] 8.6]} {
11504 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
11505 # function to make use of it.
11506 proc choosefont {font which} {
11509 tk fontchooser show
11510 }
11511 proc on_choosefont {font which newfont} {
11512 global fontparam
11521 fontok
11522 }
11523 }
11525 proc selfontfam {} {
11526 global fonttop fontparam
11531 }
11532 }
11534 proc chg_fontparam {v sub op} {
11535 global fontparam
11538 }
11540 # Create a property sheet tab page
11541 proc create_prefs_page {w} {
11542 global NS
11546 } else {
11548 }
11549 }
11551 proc prefspage_general {notebook} {
11552 global NS maxwidth maxgraphpct showneartags showlocalchanges
11553 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11554 global hideremotes want_ttk have_ttk maxrefs web_browser
11564 #xgettext:no-tcl-format
11569 -variable showlocalchanges
11572 -variable autoselect
11576 -variable hideremotes
11585 -variable showneartags
11591 -variable limitdiffs
11594 -variable perfile_attrs
11615 -text [mc "Use themed widgets"]
11618 } else {
11620 }
11623 }
11625 proc prefspage_colors {notebook} {
11626 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11627 global diffbgcolors
11653 [mc "diff old lines bg"] \
11664 [mc "diff new lines bg"] \
11670 [mc "diff hunk header"] \
11676 [mc "marked line background"] \
11684 }
11686 proc prefspage_fonts {notebook} {
11687 global NS
11695 }
11697 proc doprefs {} {
11698 global maxwidth maxgraphpct use_ttk NS
11699 global oldprefs prefstop showneartags showlocalchanges
11700 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11701 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11702 global hideremotes want_ttk have_ttk
11704 set top .gitkprefs
11708 return
11709 }
11710 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11711 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11713 }
11720 } else {
11722 }
11727 set col 0
11731 } else {
11737 }
11738 }
11744 }
11761 }
11763 proc choose_extdiff {} {
11764 global extdifftool
11766 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11769 }
11770 }
11772 proc choosecolor {v vi w x cmd} {
11781 }
11783 proc setselbg {c} {
11784 global bglist cflist
11788 }
11789 }
11793 }
11795 # This sets the background color and the color scheme for the whole UI.
11796 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11797 # if we don't specify one ourselves, which makes the checkbuttons and
11798 # radiobuttons look bad. This chooses white for selectColor if the
11799 # background color is light, or black if it is dark.
11800 proc setui {c} {
11801 if {[tk windowingsystem] eq "win32"} { return }
11803 set selc black
11805 set selc white
11806 }
11808 }
11810 proc setbg {c} {
11811 global bglist
11816 }
11817 }
11818 }
11820 proc setfg {c} {
11821 global fglist canv
11826 }
11827 }
11831 }
11833 proc prefscan {} {
11834 global oldprefs prefstop
11836 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11837 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11840 }
11842 unset prefstop
11843 fontcan
11844 }
11846 proc prefsok {} {
11847 global maxwidth maxgraphpct
11848 global oldprefs prefstop showneartags showlocalchanges
11849 global fontpref mainfont textfont uifont
11850 global limitdiffs treediffs perfile_attrs
11851 global hideremotes
11854 unset prefstop
11855 fontcan
11856 set fontchanged 0
11860 eval font configure mainfont [fontflags mainfont]
11861 eval font configure mainfontbold [fontflags mainfont 1]
11862 setcoords
11863 set fontchanged 1
11864 }
11868 eval font configure textfont [fontflags textfont]
11869 eval font configure textfontbold [fontflags textfont 1]
11870 }
11874 eval font configure uifont [fontflags uifont]
11875 }
11876 settabs
11879 doshowlocalchanges
11880 } else {
11881 dohidelocalchanges
11882 }
11883 }
11886 # treediffs elements are limited by path;
11887 # won't have encodings cached if perfile_attrs was just turned on
11888 unset -nocomplain treediffs
11889 }
11892 redisplay
11895 reselectline
11896 }
11898 rereadrefs
11899 }
11900 }
11902 proc formatdate {d} {
11903 global datetimeformat
11906 # timezone of the argument. Otherwise, display in local time.
11908 if {[catch {set d [clock format [lindex $d 0] -timezone [lindex $d 1] -format $datetimeformat]}]} {
11909 # Tcl < 8.5 does not support -timezone. Emulate it by
11910 # setting TZ (e.g. TZ=<-0430>+04:30).
11911 global env
11912 if {[info exists env(TZ)]} {
11914 }
11919 if {[info exists savedTZ]} {
11921 } else {
11922 unset env(TZ)
11923 }
11924 }
11925 } else {
11927 }
11928 }
11930 }
11932 # This list of encoding names and aliases is distilled from
11933 # http://www.iana.org/assignments/character-sets.
11934 # Not all of them are supported by Tcl.
11935 set encoding_aliases {
11936 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11937 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11938 { ISO-10646-UTF-1 csISO10646UTF1 }
11939 { ISO_646.basic:1983 ref csISO646basic1983 }
11940 { INVARIANT csINVARIANT }
11941 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11942 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11943 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11944 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11945 { NATS-DANO iso-ir-9-1 csNATSDANO }
11946 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11947 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11948 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11949 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11950 { ISO-2022-KR csISO2022KR }
11951 { EUC-KR csEUCKR }
11952 { ISO-2022-JP csISO2022JP }
11953 { ISO-2022-JP-2 csISO2022JP2 }
11954 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11955 csISO13JISC6220jp }
11956 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11957 { IT iso-ir-15 ISO646-IT csISO15Italian }
11958 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11959 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11960 { greek7-old iso-ir-18 csISO18Greek7Old }
11961 { latin-greek iso-ir-19 csISO19LatinGreek }
11962 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11963 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11964 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11965 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11966 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11967 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11968 { INIS iso-ir-49 csISO49INIS }
11969 { INIS-8 iso-ir-50 csISO50INIS8 }
11970 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11971 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11972 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11973 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11974 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11975 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11976 csISO60Norwegian1 }
11977 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11978 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11979 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11980 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11981 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11982 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11983 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11984 { greek7 iso-ir-88 csISO88Greek7 }
11985 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11986 { iso-ir-90 csISO90 }
11987 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11988 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11989 csISO92JISC62991984b }
11990 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11991 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11992 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11993 csISO95JIS62291984handadd }
11994 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11995 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11996 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11997 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11998 CP819 csISOLatin1 }
11999 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
12000 { T.61-7bit iso-ir-102 csISO102T617bit }
12001 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
12002 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
12003 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
12004 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
12005 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
12006 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
12007 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
12008 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
12009 arabic csISOLatinArabic }
12010 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
12011 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
12012 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
12013 greek greek8 csISOLatinGreek }
12014 { T.101-G2 iso-ir-128 csISO128T101G2 }
12015 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
12016 csISOLatinHebrew }
12017 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
12018 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
12019 { CSN_369103 iso-ir-139 csISO139CSN369103 }
12020 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
12021 { ISO_6937-2-add iso-ir-142 csISOTextComm }
12022 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
12023 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
12024 csISOLatinCyrillic }
12025 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
12026 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
12027 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
12028 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
12029 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
12030 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
12031 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
12032 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
12033 { ISO_10367-box iso-ir-155 csISO10367Box }
12034 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
12035 { latin-lap lap iso-ir-158 csISO158Lap }
12036 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
12037 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
12038 { us-dk csUSDK }
12039 { dk-us csDKUS }
12040 { JIS_X0201 X0201 csHalfWidthKatakana }
12041 { KSC5636 ISO646-KR csKSC5636 }
12042 { ISO-10646-UCS-2 csUnicode }
12043 { ISO-10646-UCS-4 csUCS4 }
12044 { DEC-MCS dec csDECMCS }
12045 { hp-roman8 roman8 r8 csHPRoman8 }
12046 { macintosh mac csMacintosh }
12047 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
12048 csIBM037 }
12049 { IBM038 EBCDIC-INT cp038 csIBM038 }
12050 { IBM273 CP273 csIBM273 }
12051 { IBM274 EBCDIC-BE CP274 csIBM274 }
12052 { IBM275 EBCDIC-BR cp275 csIBM275 }
12053 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
12054 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
12055 { IBM280 CP280 ebcdic-cp-it csIBM280 }
12056 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
12057 { IBM284 CP284 ebcdic-cp-es csIBM284 }
12058 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
12059 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
12060 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
12061 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
12062 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
12063 { IBM424 cp424 ebcdic-cp-he csIBM424 }
12064 { IBM437 cp437 437 csPC8CodePage437 }
12065 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
12066 { IBM775 cp775 csPC775Baltic }
12067 { IBM850 cp850 850 csPC850Multilingual }
12068 { IBM851 cp851 851 csIBM851 }
12069 { IBM852 cp852 852 csPCp852 }
12070 { IBM855 cp855 855 csIBM855 }
12071 { IBM857 cp857 857 csIBM857 }
12072 { IBM860 cp860 860 csIBM860 }
12073 { IBM861 cp861 861 cp-is csIBM861 }
12074 { IBM862 cp862 862 csPC862LatinHebrew }
12075 { IBM863 cp863 863 csIBM863 }
12076 { IBM864 cp864 csIBM864 }
12077 { IBM865 cp865 865 csIBM865 }
12078 { IBM866 cp866 866 csIBM866 }
12079 { IBM868 CP868 cp-ar csIBM868 }
12080 { IBM869 cp869 869 cp-gr csIBM869 }
12081 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
12082 { IBM871 CP871 ebcdic-cp-is csIBM871 }
12083 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
12084 { IBM891 cp891 csIBM891 }
12085 { IBM903 cp903 csIBM903 }
12086 { IBM904 cp904 904 csIBBM904 }
12087 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
12088 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
12089 { IBM1026 CP1026 csIBM1026 }
12090 { EBCDIC-AT-DE csIBMEBCDICATDE }
12091 { EBCDIC-AT-DE-A csEBCDICATDEA }
12092 { EBCDIC-CA-FR csEBCDICCAFR }
12093 { EBCDIC-DK-NO csEBCDICDKNO }
12094 { EBCDIC-DK-NO-A csEBCDICDKNOA }
12095 { EBCDIC-FI-SE csEBCDICFISE }
12096 { EBCDIC-FI-SE-A csEBCDICFISEA }
12097 { EBCDIC-FR csEBCDICFR }
12098 { EBCDIC-IT csEBCDICIT }
12099 { EBCDIC-PT csEBCDICPT }
12100 { EBCDIC-ES csEBCDICES }
12101 { EBCDIC-ES-A csEBCDICESA }
12102 { EBCDIC-ES-S csEBCDICESS }
12103 { EBCDIC-UK csEBCDICUK }
12104 { EBCDIC-US csEBCDICUS }
12105 { UNKNOWN-8BIT csUnknown8BiT }
12106 { MNEMONIC csMnemonic }
12107 { MNEM csMnem }
12108 { VISCII csVISCII }
12109 { VIQR csVIQR }
12110 { KOI8-R csKOI8R }
12111 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
12112 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
12113 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
12114 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
12115 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
12116 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
12117 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
12118 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
12119 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
12120 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
12121 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
12122 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
12123 { IBM1047 IBM-1047 }
12124 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
12125 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
12126 { UNICODE-1-1 csUnicode11 }
12127 { CESU-8 csCESU-8 }
12128 { BOCU-1 csBOCU-1 }
12129 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
12130 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
12131 l8 }
12132 { ISO-8859-15 ISO_8859-15 Latin-9 }
12133 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
12134 { GBK CP936 MS936 windows-936 }
12135 { JIS_Encoding csJISEncoding }
12136 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
12137 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
12138 EUC-JP }
12139 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
12140 { ISO-10646-UCS-Basic csUnicodeASCII }
12141 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
12142 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
12143 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
12144 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
12145 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
12146 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
12147 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
12148 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
12149 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
12150 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
12151 { Adobe-Standard-Encoding csAdobeStandardEncoding }
12152 { Ventura-US csVenturaUS }
12153 { Ventura-International csVenturaInternational }
12154 { PC8-Danish-Norwegian csPC8DanishNorwegian }
12155 { PC8-Turkish csPC8Turkish }
12156 { IBM-Symbols csIBMSymbols }
12157 { IBM-Thai csIBMThai }
12158 { HP-Legal csHPLegal }
12159 { HP-Pi-font csHPPiFont }
12160 { HP-Math8 csHPMath8 }
12161 { Adobe-Symbol-Encoding csHPPSMath }
12162 { HP-DeskTop csHPDesktop }
12163 { Ventura-Math csVenturaMath }
12164 { Microsoft-Publishing csMicrosoftPublishing }
12165 { Windows-31J csWindows31J }
12166 { GB2312 csGB2312 }
12167 { Big5 csBig5 }
12168 }
12170 proc tcl_encoding {enc} {
12171 global encoding_aliases tcl_encoding_cache
12174 }
12175 set names [encoding names]
12180 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
12183 }
12184 }
12189 # look through the aliases for one that tcl knows about
12195 }
12196 }
12198 }
12199 break
12200 }
12201 }
12202 set tclenc {}
12205 }
12208 }
12210 proc gitattr {path attr default} {
12211 global path_attr_cache
12214 } else {
12215 set r "unspecified"
12218 }
12220 }
12223 }
12225 }
12227 proc cache_gitattr {attr pathlist} {
12228 global path_attr_cache
12229 set newlist {}
12233 }
12234 }
12235 set lim 1000
12236 if {[tk windowingsystem] == "win32"} {
12237 # windows has a 32k limit on the arguments to a command...
12238 set lim 30
12239 }
12248 }
12250 }
12251 }
12252 }
12253 }
12254 }
12256 proc get_path_encoding {path} {
12257 global gui_encoding perfile_attrs
12263 }
12264 }
12266 }
12268 ## For msgcat loading, first locate the installation location.
12269 if { [info exists ::env(GITK_MSGSDIR)] } {
12270 ## Msgsdir was manually set in the environment.
12271 set gitk_msgsdir $::env(GITK_MSGSDIR)
12272 } else {
12273 ## Let's guess the prefix from argv0.
12277 unset gitk_prefix
12278 }
12280 ## Internationalization (i18n) through msgcat and gettext. See
12281 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
12282 package require msgcat
12283 namespace import ::msgcat::mc
12284 ## And eventually load the actual message catalog
12287 # First check that Tcl/Tk is recent enough
12288 if {[catch {package require Tk 8.4} err]} {
12289 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
12290 Gitk requires at least Tcl/Tk 8.4."]
12291 exit 1
12292 }
12294 # on OSX bring the current Wish process window to front
12295 if {[tk windowingsystem] eq "aqua"} {
12296 exec osascript -e [format {
12297 tell application "System Events"
12298 set frontmost of processes whose unix id is %d to true
12299 end tell
12300 } [pid] ]
12301 }
12303 # Unset GIT_TRACE var if set
12304 if { [info exists ::env(GIT_TRACE)] } {
12305 unset ::env(GIT_TRACE)
12306 }
12308 # defaults...
12309 set wrcomcmd "git diff-tree --stdin -p --pretty=email"
12311 set gitencoding {}
12312 catch {
12313 set gitencoding [exec git config --get i18n.commitencoding]
12314 }
12315 catch {
12316 set gitencoding [exec git config --get i18n.logoutputencoding]
12317 }
12319 set gitencoding "utf-8"
12320 }
12324 }
12326 set gui_encoding [encoding system]
12327 catch {
12328 set enc [exec git config --get gui.encoding]
12333 } else {
12335 }
12336 }
12337 }
12339 set log_showroot true
12340 catch {
12341 set log_showroot [exec git config --bool --get log.showroot]
12342 }
12344 if {[tk windowingsystem] eq "aqua"} {
12345 set mainfont {{Lucida Grande} 9}
12346 set textfont {Monaco 9}
12347 set uifont {{Lucida Grande} 9 bold}
12349 # fontconfig!
12350 set mainfont {sans 9}
12351 set textfont {monospace 9}
12352 set uifont {sans 9 bold}
12353 } else {
12354 set mainfont {Helvetica 9}
12355 set textfont {Courier 9}
12356 set uifont {Helvetica 9 bold}
12357 }
12358 set tabstop 8
12359 set findmergefiles 0
12360 set maxgraphpct 50
12361 set maxwidth 16
12362 set revlistorder 0
12363 set fastdate 0
12364 set uparrowlen 5
12365 set downarrowlen 5
12366 set mingaplen 100
12367 set cmitmode "patch"
12368 set wrapcomment "none"
12369 set showneartags 1
12370 set hideremotes 0
12371 set maxrefs 20
12372 set visiblerefs {"master"}
12373 set maxlinelen 200
12374 set showlocalchanges 1
12375 set limitdiffs 1
12376 set datetimeformat "%Y-%m-%d %H:%M:%S"
12377 set autoselect 1
12378 set autosellen 40
12379 set perfile_attrs 0
12380 set want_ttk 1
12382 if {[tk windowingsystem] eq "aqua"} {
12383 set extdifftool "opendiff"
12384 } else {
12385 set extdifftool "meld"
12386 }
12388 set colors {"#00ff00" red blue magenta darkgrey brown orange}
12389 if {[tk windowingsystem] eq "win32"} {
12390 set uicolor SystemButtonFace
12391 set uifgcolor SystemButtonText
12392 set uifgdisabledcolor SystemDisabledText
12393 set bgcolor SystemWindow
12394 set fgcolor SystemWindowText
12395 set selectbgcolor SystemHighlight
12396 set web_browser "cmd /c start"
12397 } else {
12398 set uicolor grey85
12399 set uifgcolor black
12400 set uifgdisabledcolor "#999"
12401 set bgcolor white
12402 set fgcolor black
12403 set selectbgcolor gray85
12404 if {[tk windowingsystem] eq "aqua"} {
12405 set web_browser "open"
12406 } else {
12407 set web_browser "xdg-open"
12408 }
12409 }
12410 set diffcolors {"#c30000" "#009800" blue}
12411 set diffbgcolors {"#fff3f3" "#f0fff0"}
12412 set diffcontext 3
12413 set mergecolors {red blue "#00ff00" purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
12414 set ignorespace 0
12415 set worddiff ""
12416 set markbgcolor "#e0e0ff"
12418 set headbgcolor "#00ff00"
12419 set headfgcolor black
12420 set headoutlinecolor black
12421 set remotebgcolor #ffddaa
12422 set tagbgcolor yellow
12423 set tagfgcolor black
12424 set tagoutlinecolor black
12425 set reflinecolor black
12426 set filesepbgcolor #aaaaaa
12427 set filesepfgcolor black
12428 set linehoverbgcolor #ffff80
12429 set linehoverfgcolor black
12430 set linehoveroutlinecolor black
12431 set mainheadcirclecolor yellow
12432 set workingfilescirclecolor red
12433 set indexcirclecolor "#00ff00"
12434 set circlecolors {white blue gray blue blue}
12435 set linkfgcolor blue
12437 set foundbgcolor yellow
12438 set currentsearchhitbgcolor orange
12440 # button for popping up context menus
12441 if {[tk windowingsystem] eq "aqua"} {
12442 set ctxbut <Button-2>
12443 } else {
12444 set ctxbut <Button-3>
12445 }
12447 catch {
12448 # follow the XDG base directory specification by default. See
12449 # http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html
12451 # XDG_CONFIG_HOME environment variable is set
12454 } else {
12455 # default XDG_CONFIG_HOME
12456 set config_file "~/.config/git/gitk"
12457 set config_file_tmp "~/.config/git/gitk-tmp"
12458 }
12460 # for backward compatibility use the old config file if it exists
12461 if {[file exists "~/.gitk"]} {
12462 set config_file "~/.gitk"
12463 set config_file_tmp "~/.gitk-tmp"
12466 }
12467 }
12469 }
12470 config_check_tmp_exists 50
12472 set config_variables {
12473 mainfont textfont uifont tabstop findmergefiles maxgraphpct maxwidth
12474 cmitmode wrapcomment autoselect autosellen showneartags maxrefs visiblerefs
12475 hideremotes showlocalchanges datetimeformat limitdiffs uicolor want_ttk
12476 bgcolor fgcolor uifgcolor uifgdisabledcolor colors diffcolors mergecolors
12477 markbgcolor diffcontext selectbgcolor foundbgcolor currentsearchhitbgcolor
12478 extdifftool perfile_attrs headbgcolor headfgcolor headoutlinecolor
12479 remotebgcolor tagbgcolor tagfgcolor tagoutlinecolor reflinecolor
12480 filesepbgcolor filesepfgcolor linehoverbgcolor linehoverfgcolor
12481 linehoveroutlinecolor mainheadcirclecolor workingfilescirclecolor
12482 indexcirclecolor circlecolors linkfgcolor circleoutlinecolor diffbgcolors
12483 web_browser
12484 }
12488 }
12491 eval font create mainfont [fontflags mainfont]
12492 eval font create mainfontbold [fontflags mainfont 1]
12495 eval font create textfont [fontflags textfont]
12496 eval font create textfontbold [fontflags textfont 1]
12499 eval font create uifont [fontflags uifont]
12503 setoptions
12505 # check that we can find a .git directory somewhere...
12506 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
12507 show_error {} . [mc "Cannot find a git repository here."]
12508 exit 1
12509 }
12511 set selecthead {}
12512 set selectheadid {}
12514 set revtreeargs {}
12515 set cmdline_files {}
12516 set i 0
12517 set revtreeargscmd {}
12520 "" { }
12521 "--" {
12523 break
12524 }
12525 "--select-commit=*" {
12527 }
12528 "--argscmd=*" {
12530 }
12531 default {
12533 }
12534 }
12535 incr i
12536 }
12539 set selecthead {}
12540 }
12543 # no -- on command line, but some arguments (other than --argscmd)
12544 if {[catch {
12549 # Unfortunately git rev-parse doesn't produce an error when
12550 # something is both a revision and a filename. To be consistent
12551 # with git log and git rev-list, check revtreeargs for filenames.
12554 show_error {} . [mc "Ambiguous argument '%s': both revision\
12556 exit 1
12557 }
12558 }
12559 } err]} {
12561 # so look for "fatal:".
12565 }
12567 exit 1
12568 }
12569 }
12571 set nullid "0000000000000000000000000000000000000000"
12572 set nullid2 "0000000000000000000000000000000000000001"
12573 set nullfile "/dev/null"
12576 if {![info exists have_ttk]} {
12577 set have_ttk [llength [info commands ::ttk::style]]
12578 }
12583 setttkstyle
12584 }
12586 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
12588 set show_notes {}
12590 set show_notes "--show-notes"
12591 }
12593 set appname "gitk"
12595 set runq {}
12596 set history {}
12597 set historyindex 0
12598 set fh_serial 0
12599 set nhl_names {}
12600 set highlight_paths {}
12601 set findpattern {}
12602 set searchdirn -forwards
12603 set boldids {}
12604 set boldnameids {}
12605 set diffelide {0 0}
12606 set markingmatches 0
12607 set linkentercount 0
12608 set need_redisplay 0
12609 set nrows_drawn 0
12610 set firsttabstop 0
12612 set nextviewnum 1
12613 set curview 0
12614 set selectedview 0
12615 set selectedhlview [mc "None"]
12616 set highlight_related [mc "None"]
12617 set highlight_files {}
12618 set viewfiles(0) {}
12619 set viewperm(0) 0
12620 set viewchanged(0) 0
12621 set viewargs(0) {}
12622 set viewargscmd(0) {}
12624 set selectedline {}
12625 set numcommits 0
12626 set loginstance 0
12627 set cmdlineok 0
12628 set stopped 0
12629 set stuffsaved 0
12630 set patchnum 0
12631 set lserial 0
12632 set hasworktree [hasworktree]
12633 set cdup {}
12634 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
12635 set cdup [exec git rev-parse --show-cdup]
12636 }
12637 set worktree [gitworktree]
12638 setcoords
12639 makewindow
12640 catch {
12641 image create photo gitlogo -width 16 -height 16
12643 image create photo gitlogominus -width 4 -height 2
12644 gitlogominus put #C00000 -to 0 0 4 2
12645 gitlogo copy gitlogominus -to 1 5
12646 gitlogo copy gitlogominus -to 6 5
12647 gitlogo copy gitlogominus -to 11 5
12648 image delete gitlogominus
12650 image create photo gitlogoplus -width 4 -height 4
12651 gitlogoplus put #008000 -to 1 0 3 4
12652 gitlogoplus put #008000 -to 0 1 4 3
12653 gitlogo copy gitlogoplus -to 1 9
12654 gitlogo copy gitlogoplus -to 6 9
12655 gitlogo copy gitlogoplus -to 11 9
12656 image delete gitlogoplus
12658 image create photo gitlogo32 -width 32 -height 32
12659 gitlogo32 copy gitlogo -zoom 2 2
12661 wm iconphoto . -default gitlogo gitlogo32
12662 }
12663 # wait for the window to become visible
12664 tkwait visibility .
12665 set_window_title
12666 update
12667 readrefs
12670 # create a view for the files/dirs specified on the command line
12671 set curview 1
12672 set selectedview 1
12673 set nextviewnum 2
12674 set viewname(1) [mc "Command line"]
12678 set viewperm(1) 0
12679 set viewchanged(1) 0
12680 set vdatemode(1) 0
12681 addviewmenu 1
12682 .bar.view entryconf [mca "&Edit view..."] -state normal
12683 .bar.view entryconf [mca "&Delete view"] -state normal
12684 }
12686 if {[info exists permviews]} {
12689 incr nextviewnum
12697 }
12698 }
12700 if {[tk windowingsystem] eq "win32"} {
12701 focus -force .
12702 }
12704 getcommits {}
12706 # Local variables:
12707 # mode: tcl
12708 # indent-tabs-mode: t
12709 # tab-width: 8
12710 # End: