| blob | 88c986884f5ac45694a50052727107f88f9e01f0 |
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 use_ttk
2961 } else {
2964 }
2968 } else {
2973 set sash0 30
2974 }
2977 }
2982 }
2983 }
2984 }
2988 } else {
2991 }
2992 }
2994 }
2996 proc resizecdetpanes {win w} {
2997 global oldwidth use_ttk
3001 } else {
3003 }
3006 } else {
3010 set sash0 45
3011 }
3014 }
3015 }
3018 } else {
3020 }
3021 }
3023 }
3025 proc allcanvs args {
3026 global canv canv2 canv3
3030 }
3032 proc bindall {event action} {
3033 global canv canv2 canv3
3037 }
3039 proc about {} {
3040 global bgcolor NS
3041 set w .about
3044 return
3045 }
3050 Gitk - a commit viewer for git
3052 Copyright \u00a9 2005-2016 Paul Mackerras
3054 Use and redistribute under the terms of the GNU General Public License"] \
3063 }
3065 proc keys {} {
3066 global bgcolor NS
3067 set w .keys
3070 return
3071 }
3072 if {[tk windowingsystem] eq {aqua}} {
3073 set M1T Cmd
3074 } else {
3075 set M1T Ctrl
3076 }
3081 [mc "Gitk key bindings:"]
3085 [mc "<Home> Move to first commit"]
3086 [mc "<End> Move to last commit"]
3087 [mc "<Up>, p, k Move up one commit"]
3088 [mc "<Down>, n, j Move down one commit"]
3089 [mc "<Left>, z, h Go back in history list"]
3090 [mc "<Right>, x, l Go forward in history list"]
3092 [mc "<PageUp> Move up one page in commit list"]
3093 [mc "<PageDown> Move down one page in commit list"]
3100 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
3101 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
3102 [mc "<Delete>, b Scroll diff view up one page"]
3103 [mc "<Backspace> Scroll diff view up one page"]
3104 [mc "<Space> Scroll diff view down one page"]
3105 [mc "u Scroll diff view up 18 lines"]
3106 [mc "d Scroll diff view down 18 lines"]
3109 [mc "<Return> Move to next find hit"]
3110 [mc "g Go to commit"]
3111 [mc "/ Focus the search box"]
3112 [mc "? Move to previous find hit"]
3113 [mc "f Scroll diff view to next file"]
3120 [mc "<F5> Update"]
3121 " \
3130 }
3132 # Procedures for manipulating the file list window at the
3133 # bottom right of the overall window.
3135 proc treeview {w l openlevs} {
3136 global treecontents treediropen treeheight treeparent treeindex
3138 set ix 0
3139 set treeindex() 0
3140 set lev 0
3141 set prefix {}
3142 set prefixend -1
3143 set prefendstack {}
3144 set htstack {}
3145 set ht 0
3146 set treecontents() {}
3153 }
3160 incr lev -1
3161 }
3165 set ht 0
3177 set ht 1
3182 set str "\n"
3190 }
3191 incr lev
3192 }
3195 incr ht
3196 set str "\n"
3200 }
3202 }
3203 }
3211 }
3213 }
3215 proc linetoelt {l} {
3216 global treeheight treecontents
3218 set y 2
3219 set prefix {}
3220 while {1} {
3224 }
3225 set n 1
3230 incr y
3231 break
3232 }
3233 }
3235 }
3236 }
3237 }
3239 proc highlight_tree {y prefix} {
3240 global treeheight treecontents cflist
3246 }
3247 incr y
3250 }
3251 }
3253 }
3255 proc treeclosedir {w dir} {
3256 global treediropen treeheight treeparent treeindex
3268 }
3269 }
3271 proc treeopendir {w dir} {
3272 global treediropen treeheight treeparent treecontents treeindex
3279 set lev 0
3280 set str "\n"
3283 incr lev
3284 append str "\t"
3286 }
3301 } else {
3304 }
3305 }
3318 }
3320 }
3321 }
3323 proc treeclick {w x y} {
3324 global treediropen cmitmode ctext cflist cflist_top
3327 if {![info exists cflist_top]} return
3334 return
3335 }
3341 } else {
3343 }
3344 }
3346 proc setfilelist {id} {
3347 global treefilelist cflist jump_to_here
3354 }
3355 }
3356 }
3358 image create bitmap tri-rt -background black -foreground blue -data {
3359 #define tri-rt_width 13
3360 #define tri-rt_height 13
3361 static unsigned char tri-rt_bits[] = {
3362 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3363 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3364 0x00, 0x00};
3365 } -maskdata {
3366 #define tri-rt-mask_width 13
3367 #define tri-rt-mask_height 13
3368 static unsigned char tri-rt-mask_bits[] = {
3369 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3370 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3371 0x08, 0x00};
3372 }
3373 image create bitmap tri-dn -background black -foreground blue -data {
3374 #define tri-dn_width 13
3375 #define tri-dn_height 13
3376 static unsigned char tri-dn_bits[] = {
3377 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3378 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3379 0x00, 0x00};
3380 } -maskdata {
3381 #define tri-dn-mask_width 13
3382 #define tri-dn-mask_height 13
3383 static unsigned char tri-dn-mask_bits[] = {
3384 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3385 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3386 0x00, 0x00};
3387 }
3389 image create bitmap reficon-T -background black -foreground yellow -data {
3390 #define tagicon_width 13
3391 #define tagicon_height 9
3392 static unsigned char tagicon_bits[] = {
3393 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3394 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3395 } -maskdata {
3396 #define tagicon-mask_width 13
3397 #define tagicon-mask_height 9
3398 static unsigned char tagicon-mask_bits[] = {
3399 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3400 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3401 }
3402 set rectdata {
3403 #define headicon_width 13
3404 #define headicon_height 9
3405 static unsigned char headicon_bits[] = {
3406 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3407 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3408 }
3409 set rectmask {
3410 #define headicon-mask_width 13
3411 #define headicon-mask_height 9
3412 static unsigned char headicon-mask_bits[] = {
3413 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3414 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3415 }
3416 image create bitmap reficon-H -background black -foreground "#00ff00" \
3418 image create bitmap reficon-R -background black -foreground "#ffddaa" \
3420 image create bitmap reficon-o -background black -foreground "#ddddff" \
3423 proc init_flist {first} {
3424 global cflist cflist_top difffilestart
3430 set cflist_top 1
3432 } else {
3433 unset -nocomplain cflist_top
3434 }
3436 set difffilestart {}
3437 }
3439 proc highlight_tag {f} {
3440 global highlight_paths
3444 return "bold"
3445 }
3446 }
3447 return {}
3448 }
3450 proc highlight_filelist {} {
3451 global cmitmode cflist
3460 }
3461 }
3462 } else {
3463 highlight_tree 2 {}
3464 }
3466 }
3468 proc unhighlight_filelist {} {
3469 global cflist
3474 }
3476 proc add_flist {fl} {
3477 global cflist
3483 }
3485 }
3487 proc sel_flist {w x y} {
3488 global ctext difffilestart cflist cflist_top cmitmode
3491 if {![info exists cflist_top]} return
3498 } else {
3500 }
3501 suppress_highlighting_file_for_current_scrollpos
3502 }
3504 proc pop_flist_menu {w X Y x y} {
3505 global ctext cflist cmitmode flist_menu flist_menu_file
3506 global treediffs diffids
3508 stopfinding
3514 } else {
3516 }
3518 set xdiffstate "normal"
3520 set xdiffstate "disabled"
3521 }
3522 # Disable "External diff" item in tree mode
3525 }
3527 proc find_ctext_fileinfo {line} {
3528 global ctext_file_names ctext_file_lines
3534 return {}
3535 } else {
3537 }
3538 }
3540 proc pop_diff_menu {w X Y x y} {
3541 global ctext diff_menu flist_menu_file
3542 global diff_menu_txtpos diff_menu_line
3543 global diff_menu_filebase
3547 # don't pop up the menu on hunk-separator or file-separator lines
3549 return
3550 }
3551 stopfinding
3557 }
3559 proc flist_hl {only} {
3560 global flist_menu_file findstring gdttype
3565 } else {
3567 }
3568 set gdttype [mc "touching paths:"]
3569 }
3571 proc gitknewtmpdir {} {
3572 global diffnum gitktmpdir gitdir env
3574 if {![info exists gitktmpdir]} {
3575 if {[info exists env(GITK_TMPDIR)]} {
3577 } elseif {[info exists env(TMPDIR)]} {
3579 } else {
3581 }
3585 }
3588 unset gitktmpdir
3589 return {}
3590 }
3591 set diffnum 0
3592 }
3593 incr diffnum
3597 return {}
3598 }
3600 }
3602 proc save_file_from_commit {filename output what} {
3603 global nullfile
3608 }
3610 return {}
3611 }
3613 }
3615 proc external_diff_get_one_file {diffid filename diffdir} {
3616 global nullid nullid2 nullfile
3617 global worktree
3623 }
3625 }
3629 }
3633 }
3635 proc external_diff {} {
3636 global nullid nullid2
3637 global flist_menu_file
3638 global diffids
3639 global extdifftool
3642 # no reference commit given
3645 # diffing working copy with index
3648 # diffing index with HEAD
3649 set diffidfrom "HEAD"
3650 } else {
3651 # use first parent commit
3652 global parentlist selectedline
3654 }
3655 } else {
3658 }
3660 # make sure that several diffs wont collide
3661 set diffdir [gitknewtmpdir]
3664 # gather files to diff
3673 } else {
3676 }
3677 }
3678 }
3680 proc find_hunk_blamespec {base line} {
3681 global ctext
3683 # Find and parse the hunk header
3689 s_line old_specs osz osz1 new_line nsz]} {
3690 return
3691 }
3693 # base lines for the parents
3697 old_spec old_line osz]} {
3698 return
3699 }
3701 }
3703 # Now scan the lines to determine offset within the hunk
3705 set dline 0
3708 # Determine if the line is removed
3712 # Choose a parent index
3715 } else {
3719 } else {
3720 # blame the current commit
3721 set parent -1
3722 }
3723 }
3724 # then count other lines that belong to it
3727 # Determine if the line is removed
3732 incr dline
3733 }
3734 } else {
3736 incr dline
3737 }
3738 }
3739 }
3740 incr parent
3741 } else {
3742 set parent 0
3743 }
3747 }
3749 proc external_blame_diff {} {
3750 global currentid cmitmode
3751 global diff_menu_txtpos diff_menu_line
3752 global diff_menu_filebase flist_menu_file
3755 set parent_idx 0
3757 } else {
3762 } else {
3763 set parent_idx 0
3764 set line 0
3765 }
3766 }
3769 }
3772 # at stage 0 or 2
3773 proc index_sha1 {fname} {
3781 }
3782 }
3784 return {}
3785 }
3787 # Turn an absolute path into one relative to the current directory
3788 proc make_relative {f} {
3791 }
3793 set here [file split [pwd]]
3794 set ei 0
3795 set hi 0
3796 set res {}
3799 lappend res ".."
3800 } else {
3801 incr ei
3802 }
3803 incr hi
3804 }
3807 }
3809 proc external_blame {parent_idx {line {}}} {
3810 global flist_menu_file cdup
3811 global nullid nullid2
3812 global parentlist selectedline currentid
3816 } else {
3818 }
3821 error_popup [mc "No such commit"]
3822 return
3823 }
3825 set cmdline [list git gui blame]
3828 }
3830 # Unfortunately it seems git gui blame doesn't like
3831 # being given an absolute path...
3836 }
3837 }
3839 proc show_line_source {} {
3840 global cmitmode currentid parents curview blamestuff blameinst
3841 global diff_menu_line diff_menu_filebase flist_menu_file
3842 global nullid nullid2 gitdir cdup
3844 set from_index {}
3848 } else {
3854 return
3855 }
3856 incr pi -1
3859 # must be a merge in progress...
3860 if {[catch {
3861 # get the last line from .git/MERGE_HEAD
3865 } err]} {
3867 return
3868 }
3870 # need to do the blame from the index
3871 if {[catch {
3873 } err]} {
3875 return
3876 }
3877 } else {
3879 }
3880 } else {
3882 }
3884 }
3885 set blameargs {}
3888 }
3891 lappend blameargs --contents -
3892 } else {
3894 }
3896 if {[catch {
3898 } err]} {
3900 return
3901 }
3902 nowbusy blaming [mc "Searching"]
3908 }
3910 proc stopblaming {} {
3911 global blameinst
3913 if {[info exists blameinst]} {
3915 unset blameinst
3916 notbusy blaming
3917 }
3918 }
3920 proc read_line_source {fd inst} {
3921 global blamestuff curview commfd blameinst nullid nullid2
3925 }
3927 return 1
3928 }
3930 unset blameinst
3931 notbusy blaming
3935 return 0
3936 }
3938 set fname {}
3944 # look for "filename" line
3948 break
3949 }
3950 }
3951 }
3953 # all looks good, select it
3955 # blame uses all-zeroes to mean not committed,
3956 # which would mean a change in the index
3958 }
3961 } else {
3962 error_popup [mc "That line comes from commit %s, \
3964 }
3965 } else {
3966 puts "oops couldn't parse git blame output"
3967 }
3968 return 0
3969 }
3972 proc delete_at_eof {f dir} {
3977 }
3979 return 0
3980 }
3981 return 1
3982 }
3984 # Functions for adding and removing shell-type quoting
3986 proc shellquote {str} {
3989 }
3992 }
3995 }
3997 }
3999 proc shellarglist {l} {
4000 set str {}
4003 append str " "
4004 }
4006 }
4008 }
4010 proc shelldequote {str} {
4011 set ret {}
4012 set used -1
4013 while {1} {
4014 incr used
4018 break
4019 }
4025 }
4027 incr used
4031 error "unmatched single-quote"
4032 }
4035 continue
4036 }
4039 error "trailing backslash"
4040 }
4042 continue
4043 }
4044 # here ch == "\""
4045 while {1} {
4047 error "unmatched double-quote"
4048 }
4054 }
4056 incr used
4058 incr used
4059 }
4060 }
4062 }
4064 proc shellsplit {str} {
4065 set l {}
4066 while {1} {
4074 }
4076 }
4078 proc set_window_title {} {
4079 global appname curview viewname vrevs
4080 set rev [mc "All files"]
4084 } else {
4086 }
4087 }
4089 }
4091 # Code to implement multiple views
4093 proc newview {ishighlight} {
4094 global nextviewnum newviewname newishighlight
4095 global revtreeargs viewargscmd newviewopts curview
4098 set top .gitkview
4101 return
4102 }
4108 }
4110 set known_view_options {
4111 {perm b . {} {mc "Remember this view"}}
4112 {reflabel l + {} {mc "References (space separated list):"}}
4113 {refs t15 .. {} {mc "Branches & tags:"}}
4114 {allrefs b *. "--all" {mc "All refs"}}
4115 {branches b . "--branches" {mc "All (local) branches"}}
4116 {tags b . "--tags" {mc "All tags"}}
4117 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
4118 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
4119 {author t15 .. "--author=*" {mc "Author:"}}
4120 {committer t15 . "--committer=*" {mc "Committer:"}}
4121 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
4122 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
4123 {igrep b .. "--invert-grep" {mc "Matches no Commit Info criteria"}}
4124 {changes_l l + {} {mc "Changes to Files:"}}
4125 {pickaxe_s r0 . {} {mc "Fixed String"}}
4126 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
4127 {pickaxe t15 .. "-S*" {mc "Search string:"}}
4128 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
4129 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
4130 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
4131 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
4132 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
4133 {skip t10 . "--skip=*" {mc "Number to skip:"}}
4134 {misc_lbl l + {} {mc "Miscellaneous options:"}}
4135 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
4136 {lright b . "--left-right" {mc "Mark branch sides"}}
4137 {first b . "--first-parent" {mc "Limit to first parent"}}
4138 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
4139 {args t50 *. {} {mc "Additional arguments to git log:"}}
4140 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
4141 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
4142 }
4145 proc encode_view_opts {n} {
4146 global known_view_options newviewopts
4148 set rargs [list]
4158 }
4164 }
4165 } else {
4171 }
4172 }
4173 }
4176 }
4179 proc decode_view_opts {n view_args} {
4180 global known_view_options newviewopts
4185 # Checkboxes
4186 set val 0
4188 # Radiobuttons
4190 set val 0
4191 } else {
4192 # Text fields
4193 set val {}
4194 }
4196 }
4197 set oargs [list]
4198 set refargs [list]
4201 && ![info exists found(limit)]} {
4203 set found(limit) 1
4204 continue
4205 }
4206 catch { unset val }
4213 # Check buttons
4214 set val 1
4216 # Radio buttons
4219 } else {
4220 # Text input fields
4223 }
4226 break
4227 }
4228 if {[info exists val]} break
4229 }
4230 if {[info exists val]} continue
4233 } else {
4235 }
4236 }
4239 }
4241 proc edit_or_newview {} {
4242 global curview
4245 editview
4246 } else {
4247 newview 0
4248 }
4249 }
4251 proc editview {} {
4252 global curview
4253 global viewname viewperm newviewname newviewopts
4254 global viewargs viewargscmd
4259 return
4260 }
4266 }
4268 proc vieweditor {top n title} {
4269 global newviewname newviewopts viewfiles bgcolor
4270 global known_view_options NS
4276 # View name
4284 # View options
4286 set cexpand 0
4287 set cnt 0
4293 set lxpad 0
4297 incr cnt
4303 incr cnt
4307 } else {
4308 set lxpad 5
4309 }
4343 }
4346 }
4348 }
4349 }
4364 }
4366 proc doviewmenu {m first cmd op argv} {
4371 break
4372 }
4373 }
4374 }
4376 proc allviewmenus {n op args} {
4377 # global viewhlmenu
4381 }
4383 proc newviewok {top n {apply 0}} {
4384 global nextviewnum newviewperm newviewname newishighlight
4385 global viewname viewfiles viewperm viewchanged selectedview curview
4386 global viewargs viewargscmd newviewopts viewhlmenu
4388 if {[catch {
4390 } err]} {
4392 return
4393 }
4394 set files {}
4399 }
4400 }
4402 # creating a new view
4403 incr nextviewnum
4413 } else {
4415 }
4416 } else {
4417 # editing an existing view
4426 }
4433 run reloadcommits
4434 }
4435 }
4436 }
4439 }
4441 proc delview {} {
4442 global curview viewperm hlview selectedhlview viewchanged
4446 set selectedhlview [mc "None"]
4447 unset hlview
4448 }
4452 showview 0
4453 }
4455 proc addviewmenu {n} {
4456 global viewname viewhlmenu
4462 }
4464 proc showview {n} {
4465 global curview cached_commitrow ordertok
4466 global displayorder parentlist rowidlist rowisopt rowfinal
4467 global colormap rowtextx nextcolor canvxmax
4468 global numcommits viewcomplete
4469 global selectedline currentid canv canvy0
4470 global treediffs
4471 global pending_select mainheadid
4472 global commitidx
4473 global selectedview
4474 global hlview selectedhlview commitinterest
4477 set selid {}
4488 }
4489 } elseif {[info exists pending_select]} {
4491 unset pending_select
4492 }
4493 unselectline
4494 normalline
4495 unset -nocomplain treediffs
4496 clear_display
4498 unset hlview
4499 set selectedhlview [mc "None"]
4500 }
4501 unset -nocomplain commitinterest
4502 unset -nocomplain cached_commitrow
4503 unset -nocomplain ordertok
4510 run refill_reflist
4513 return
4514 }
4516 set displayorder {}
4517 set parentlist {}
4518 set rowidlist {}
4519 set rowisopt {}
4520 set rowfinal {}
4523 unset -nocomplain colormap
4524 unset -nocomplain rowtextx
4525 set nextcolor 0
4528 set row 0
4529 setcanvscroll
4530 set yf 0
4531 set row {}
4534 # try to get the selected row in the same position on the screen
4538 set ytop 0
4539 }
4541 }
4543 drawvisible
4548 } else {
4549 reset_pending_select {}
4553 } else {
4554 set row [first_real_row]
4557 }
4558 }
4559 }
4562 show_status [mc "Reading commits..."]
4563 }
4565 show_status [mc "No commits selected"]
4566 }
4567 set_window_title
4568 }
4570 # Stuff relating to the highlighting facility
4572 proc ishighlighted {id} {
4573 global vhighlights fhighlights nhighlights rhighlights
4577 }
4580 }
4583 }
4586 }
4587 return 0
4588 }
4590 proc bolden {id font} {
4591 global canv linehtag currentid boldids need_redisplay markedid
4593 # need_redisplay = 1 means the display is stale and about to be redrawn
4600 -outline {{}} -tags secsel \
4603 }
4606 }
4607 }
4609 proc bolden_name {id font} {
4610 global canv2 linentag currentid boldnameids need_redisplay
4618 -outline {{}} -tags secsel \
4621 }
4622 }
4624 proc unbolden {} {
4625 global boldids
4627 set stillbold {}
4631 } else {
4633 }
4634 }
4636 }
4638 proc addvhighlight {n} {
4639 global hlview viewcomplete curview vhl_done commitidx
4641 if {[info exists hlview]} {
4642 delvhighlight
4643 }
4647 }
4650 drawvisible
4651 }
4652 }
4654 proc delvhighlight {} {
4655 global hlview vhighlights
4657 if {![info exists hlview]} return
4658 unset hlview
4659 unset -nocomplain vhighlights
4660 unbolden
4661 }
4663 proc vhighlightmore {} {
4664 global hlview vhl_done commitidx vhighlights curview
4667 set vr [visiblerows]
4677 }
4679 }
4680 }
4681 }
4683 return 0
4684 }
4686 proc askvhighlight {row id} {
4687 global hlview vhighlights iddrawn
4692 }
4694 } else {
4696 }
4697 }
4699 proc hfiles_change {} {
4700 global highlight_files filehighlight fhighlights fh_serial
4701 global highlight_paths
4703 if {[info exists filehighlight]} {
4704 # delete previous highlights
4706 unset filehighlight
4707 unset -nocomplain fhighlights
4708 unbolden
4709 unhighlight_filelist
4710 }
4711 set highlight_paths {}
4713 incr fh_serial
4716 }
4717 }
4719 proc gdttype_change {name ix op} {
4720 global gdttype highlight_files findstring findpattern
4722 stopfinding
4726 set highlight_files {}
4727 hfiles_change
4728 }
4729 findcom_change
4730 } else {
4732 set findpattern {}
4733 findcom_change
4734 }
4736 hfiles_change
4737 }
4738 drawvisible
4739 }
4740 # enable/disable findtype/findloc menus too
4741 }
4743 proc find_change {name ix op} {
4744 global gdttype findstring highlight_files
4746 stopfinding
4748 findcom_change
4749 } else {
4752 hfiles_change
4753 }
4754 }
4755 drawvisible
4756 }
4758 proc findcom_change args {
4759 global nhighlights boldnameids
4760 global findpattern findtype findstring gdttype
4762 stopfinding
4763 # delete previous highlights, if any
4766 }
4767 set boldnameids {}
4768 unset -nocomplain nhighlights
4769 unbolden
4770 unmarkmatches
4772 set findpattern {}
4775 } else {
4776 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4779 }
4780 }
4782 proc makepatterns {l} {
4783 set ret {}
4788 } else {
4791 }
4792 }
4794 }
4796 proc do_file_hl {serial} {
4797 global highlight_files filehighlight highlight_paths gdttype fhl_list
4798 global cdup findtype
4801 # If "exact" match then convert backslashes to forward slashes.
4802 # Most useful to support Windows-flavoured file paths.
4805 }
4808 highlight_filelist
4809 set relative_paths {}
4812 }
4818 } else {
4819 # must be "containing:", i.e. we're searching commit info
4820 return
4821 }
4826 set fhl_list {}
4827 drawvisible
4828 flushhighlights
4829 }
4831 proc flushhighlights {} {
4832 global filehighlight fhl_list
4834 if {[info exists filehighlight]} {
4835 lappend fhl_list {}
4838 }
4839 }
4841 proc askfilehighlight {row id} {
4842 global filehighlight fhighlights fhl_list
4847 }
4849 proc readfhighlight {} {
4850 global filehighlight fhighlights curview iddrawn
4851 global fhl_list find_dirn
4853 if {![info exists filehighlight]} {
4854 return 0
4855 }
4856 set nr 0
4864 }
4870 }
4872 }
4874 # strange...
4875 puts "oops, git diff-tree died"
4877 unset filehighlight
4878 return 0
4879 }
4880 if {[info exists find_dirn]} {
4881 run findmore
4882 }
4883 return 1
4884 }
4886 proc doesmatch {f} {
4887 global findtype findpattern
4893 } else {
4895 }
4896 }
4898 proc askfindhighlight {row id} {
4899 global nhighlights commitinfo iddrawn
4900 global findloc
4901 global markingmatches
4905 }
4907 set isbold 0
4908 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4914 set isbold 2
4915 break
4916 }
4917 set isbold 1
4918 }
4919 }
4925 }
4926 }
4929 }
4930 }
4932 }
4934 proc markrowmatches {row id} {
4935 global canv canv2 linehtag linentag commitinfo findloc
4946 }
4947 }
4953 }
4954 }
4955 }
4957 proc vrel_change {name ix op} {
4958 global highlight_related
4960 rhighlight_none
4962 run drawvisible
4963 }
4964 }
4966 # prepare for testing whether commits are descendents or ancestors of a
4967 proc rhighlight_sel {a} {
4968 global descendent desc_todo ancestor anc_todo
4969 global highlight_related
4971 unset -nocomplain descendent
4973 unset -nocomplain ancestor
4976 rhighlight_none
4977 run drawvisible
4978 }
4979 }
4981 proc rhighlight_none {} {
4982 global rhighlights
4984 unset -nocomplain rhighlights
4985 unbolden
4986 }
4988 proc is_descendent {a} {
4989 global curview children descendent desc_todo
4994 set leftover {}
4995 set done 0
5000 continue
5001 }
5007 set done 1
5008 }
5009 }
5010 }
5013 return
5014 }
5015 }
5018 }
5020 proc is_ancestor {a} {
5021 global curview parents ancestor anc_todo
5026 set leftover {}
5027 set done 0
5032 continue
5033 }
5039 set done 1
5040 }
5041 }
5042 }
5045 return
5046 }
5047 }
5050 }
5052 proc askrelhighlight {row id} {
5053 global descendent highlight_related iddrawn rhighlights
5054 global selectedline ancestor
5057 set isbold 0
5062 }
5064 set isbold 1
5065 }
5070 }
5072 set isbold 1
5073 }
5074 }
5078 }
5079 }
5081 }
5083 # Graph layout functions
5085 proc shortids {ids} {
5086 set res {}
5092 } else {
5094 }
5095 }
5097 }
5099 proc ntimes {n o} {
5100 set ret {}
5105 }
5107 }
5109 }
5111 proc ordertoken {id} {
5112 global ordertok curview varcid varcstart varctok curview parents children
5113 global nullid nullid2
5117 }
5119 set todo {}
5120 while {1} {
5124 } else {
5126 }
5129 break
5130 }
5133 # it's a root
5135 break
5136 }
5139 } else {
5143 }
5145 }
5146 }
5151 }
5154 }
5156 # Work out where id should go in idlist so that order-token
5157 # values increase from left to right
5158 proc idcol {idlist id {i 0}} {
5161 set i 0
5162 }
5166 }
5168 incr i
5169 } else {
5173 }
5174 }
5176 }
5178 proc initlayout {} {
5179 global rowidlist rowisopt rowfinal displayorder parentlist
5180 global numcommits canvxmax canv
5181 global nextcolor
5182 global colormap rowtextx
5184 set numcommits 0
5185 set displayorder {}
5186 set parentlist {}
5187 set nextcolor 0
5188 set rowidlist {}
5189 set rowisopt {}
5190 set rowfinal {}
5192 unset -nocomplain colormap
5193 unset -nocomplain rowtextx
5194 setcanvscroll
5195 }
5197 proc setcanvscroll {} {
5198 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5199 global lastscrollset lastscrollrows
5205 set lastscrollset [clock clicks -milliseconds]
5207 }
5209 proc visiblerows {} {
5210 global canv numcommits linespc
5218 set r0 0
5219 }
5224 }
5226 }
5228 proc layoutmore {} {
5229 global commitidx viewcomplete curview
5230 global numcommits pending_select curview
5231 global lastscrollset lastscrollrows
5235 setcanvscroll
5236 }
5237 if {[info exists pending_select] &&
5239 update
5241 }
5242 drawvisible
5243 }
5245 # With path limiting, we mightn't get the actual HEAD commit,
5246 # so ask git rev-list what is the first ancestor of HEAD that
5247 # touches a file in the path limit.
5248 proc get_viewmainhead {view} {
5249 global viewmainheadid vfilelimit viewinstances mainheadid
5251 catch {
5259 }
5260 }
5263 proc getviewhead {fd inst view} {
5264 global viewmainheadid commfd curview viewinstances showlocalchanges
5266 set id {}
5269 return 1
5270 }
5273 }
5280 }
5282 doshowlocalchanges
5283 }
5284 return 0
5285 }
5287 proc doshowlocalchanges {} {
5288 global curview viewmainheadid
5292 dodiffindex
5293 } else {
5295 }
5296 }
5298 proc dohidelocalchanges {} {
5299 global nullid nullid2 lserial curview
5303 }
5306 }
5307 incr lserial
5308 }
5310 # spawn off a process to do git diff-index --cached HEAD
5311 proc dodiffindex {} {
5312 global lserial showlocalchanges vfilelimit curview
5313 global hasworktree git_version
5316 incr lserial
5318 set cmd "|git diff-index --cached --ignore-submodules=dirty HEAD"
5319 } else {
5320 set cmd "|git diff-index --cached HEAD"
5321 }
5324 }
5329 }
5331 proc readdiffindex {fd serial inst} {
5332 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5333 global vfilelimit
5335 set isdiff 1
5338 return 1
5339 }
5340 set isdiff 0
5341 }
5342 # we only need to see one line and we don't really care what it says...
5346 return 0
5347 }
5349 # now see if there are any local changes not checked in to the index
5350 set cmd "|git diff-files"
5353 }
5360 # add the line for the changes in the index to the graph
5361 set hl [mc "Local changes checked in to index but not committed"]
5366 }
5371 }
5373 }
5374 return 0
5375 }
5377 proc readdifffiles {fd serial inst} {
5378 global viewmainheadid nullid nullid2 curview
5379 global commitinfo commitdata lserial
5381 set isdiff 1
5384 return 1
5385 }
5386 set isdiff 0
5387 }
5388 # we only need to see one line and we don't really care what it says...
5392 return 0
5393 }
5396 # add the line for the local diff to the graph
5397 set hl [mc "Local uncommitted changes, not checked in to index"]
5402 } else {
5404 }
5408 }
5409 return 0
5410 }
5412 proc nextuse {id row} {
5413 global curview children
5418 return -1
5419 }
5422 }
5423 }
5424 }
5427 }
5428 return -1
5429 }
5431 proc prevuse {id row} {
5432 global curview children
5434 set ret -1
5440 }
5441 }
5442 }
5444 }
5446 proc make_idlist {row} {
5447 global displayorder parentlist uparrowlen downarrowlen mingaplen
5448 global commitidx curview children
5452 set r 0
5453 }
5456 set ra 0
5457 }
5461 }
5463 set ids {}
5472 }
5473 }
5474 }
5482 }
5483 }
5484 }
5492 }
5493 }
5494 incr r
5500 }
5501 }
5502 }
5503 set idlist {}
5506 }
5508 }
5510 proc rowsequal {a b} {
5513 }
5516 }
5518 }
5520 proc makeupline {id row rend col} {
5521 global rowidlist uparrowlen downarrowlen mingaplen
5527 }
5530 }
5537 }
5538 }
5539 }
5541 proc layoutrows {row endrow} {
5542 global rowidlist rowisopt rowfinal displayorder
5543 global uparrowlen downarrowlen maxwidth mingaplen
5544 global children parentlist
5545 global commitidx viewcomplete curview
5548 set idlist {}
5554 }
5555 }
5557 }
5562 set final 1
5563 } else {
5571 # if not the first child, we have to insert a line going up
5574 }
5575 }
5576 }
5586 }
5587 }
5588 }
5595 }
5596 }
5606 }
5607 }
5615 }
5616 }
5617 }
5618 }
5619 }
5623 set final 0
5624 }
5628 lappend rowisopt 0
5634 }
5636 } else {
5643 }
5644 }
5646 }
5648 proc changedrow {row} {
5649 global displayorder iddrawn rowisopt need_redisplay
5658 }
5659 }
5660 }
5663 set need_redisplay 1
5664 }
5665 }
5667 proc insert_pad {row col npad} {
5668 global rowidlist
5677 }
5680 }
5682 proc optimize_rows {row col endrow} {
5683 global rowidlist rowisopt displayorder curview children
5686 set row 1
5687 }
5690 set haspad 0
5699 } else {
5700 set pprevidlist {}
5701 }
5702 set x0 -1
5703 set xm -1
5708 set haspad 1
5709 continue
5710 }
5714 set isarrow 0
5715 set z0 {}
5720 }
5721 }
5726 set isarrow 1
5727 }
5728 }
5731 set isarrow 1
5732 }
5733 # Looking at lines from this row to the previous row,
5734 # make them go straight up if they end in an arrow on
5735 # the previous row; otherwise make them go straight up
5736 # or at 45 degrees.
5738 # Line currently goes left too much;
5739 # insert pads in the previous row, then optimize it
5744 }
5752 }
5754 # Line currently goes right too much;
5755 # insert pads in this line
5761 set haspad 1
5762 }
5769 }
5770 }
5771 # avoid lines jigging left then immediately right
5774 incr x0
5777 }
5778 }
5780 # Find the first column that doesn't have a line going right
5786 # check if this is the link to the first child
5789 # it is, work out offset to child
5791 }
5792 }
5794 }
5795 # Insert a pad at that column as long as it has a line and
5796 # isn't the last column
5801 }
5802 }
5803 }
5804 }
5806 proc xc {row col} {
5807 global canvx0 linespc
5809 }
5811 proc yc {row} {
5812 global canvy0 linespc
5814 }
5816 proc linewidth {id} {
5817 global thickerline lthickness
5822 }
5824 }
5826 proc rowranges {id} {
5827 global curview children uparrowlen downarrowlen
5828 global rowidlist
5832 return {}
5833 }
5834 set ret {}
5839 if {![info exists prev]} {
5841 } else {
5843 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5844 }
5845 # see if the line extends the whole way from prevrow to row
5849 # it doesn't, see where it ends
5854 } else {
5857 incr r -1
5858 }
5860 # see where it starts up again
5865 } else {
5868 incr r
5869 }
5871 }
5872 }
5875 }
5878 }
5880 }
5882 proc drawlineseg {id row endrow arrowlow} {
5883 global rowidlist displayorder iddrawn linesegs
5884 global canv colormap linespc curview maxlinelen parentlist
5888 set arrowhigh 1
5889 while {1} {
5892 incr le -1
5893 break
5894 }
5898 set arrowhigh 0
5899 break
5900 }
5905 set arrowhigh 0
5906 }
5907 break
5908 }
5909 incr le
5910 }
5913 }
5915 set lines {}
5916 set i 0
5917 set joinhigh 0
5924 set joinhigh 1
5925 }
5926 break
5927 }
5928 incr i
5929 }
5930 }
5931 set joinlow 0
5936 set joinlow 1
5937 }
5938 }
5951 }
5952 } else {
5954 }
5962 set arrowlow 0
5963 }
5964 }
5972 }
5974 }
5977 # join parent line to first child
5988 } else {
5990 }
5998 }
6000 }
6002 } else {
6006 }
6014 } else {
6018 }
6020 }
6021 } else {
6027 }
6031 } else {
6032 # coalesce two pieces
6037 }
6041 }
6042 }
6046 }
6048 proc drawparentlinks {id row} {
6049 global rowidlist canv colormap curview parentlist
6050 global idpos linespc
6063 # rmx = right-most X coord used
6064 set rmx 0
6069 continue
6070 }
6074 }
6077 # drawlineseg will do this one for us
6078 continue
6079 }
6081 # should handle duplicated parents here...
6084 # if attaching to a vertical segment, draw a smaller
6085 # slant for visual distinctness
6089 } else {
6091 }
6093 # segment slants towards us already
6095 } else {
6100 }
6102 }
6103 } else {
6105 }
6110 }
6114 }
6115 }
6117 proc drawlines {id} {
6118 global canv
6121 }
6123 proc drawcmittext {id row col} {
6124 global linespc canv canv2 canv3 fgcolor curview
6125 global cmitlisted commitinfo rowidlist parentlist
6126 global rowtextx idpos idtags idheads idotherrefs
6127 global linehtag linentag linedtag selectedline
6128 global canvxmax boldids boldnameids fgcolor markedid
6129 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
6130 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
6131 global circleoutlinecolor
6133 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
6141 } else {
6143 }
6152 # triangle pointing left for left-side commits
6158 } else {
6159 # triangle pointing right for right-side commits
6165 }
6177 }
6178 }
6179 }
6186 }
6189 }
6194 set font mainfont
6195 set nfont mainfont
6199 set font mainfontbold
6202 set nfont mainfontbold
6203 }
6204 }
6214 }
6217 }
6221 setcanvscroll
6222 }
6223 }
6225 proc drawcmitrow {row} {
6226 global displayorder rowidlist nrows_drawn
6227 global iddrawn markingmatches
6228 global commitinfo numcommits
6229 global filehighlight fhighlights findpattern nhighlights
6230 global hlview vhighlights
6231 global highlight_related rhighlights
6238 }
6241 }
6244 }
6247 }
6252 return
6253 }
6256 }
6260 incr nrows_drawn
6261 }
6264 }
6265 }
6267 proc drawcommits {row {endrow {}}} {
6268 global numcommits iddrawn displayorder curview need_redisplay
6269 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6272 set row 0
6273 }
6276 }
6279 }
6283 set rl1 0
6284 }
6287 set ro1 0
6288 }
6292 }
6297 }
6299 }
6300 }
6303 }
6306 clear_display
6307 }
6309 # make the lines join to already-drawn rows either side
6313 }
6318 }
6333 # see if this is the first child of any of its parents
6336 # make this line extend up to the child
6338 }
6339 }
6340 } else {
6342 }
6343 }
6344 }
6345 }
6347 proc undolayout {row} {
6348 global uparrowlen mingaplen downarrowlen
6349 global rowidlist rowisopt rowfinal need_redisplay
6353 set r 0
6354 }
6356 incr r -1
6360 set need_redisplay 1
6361 run drawvisible
6362 }
6363 }
6365 proc drawvisible {} {
6366 global canv linespc curview vrowmod selectedline targetrow targetid
6367 global need_redisplay cscroll numcommits
6377 if {[info exists targetid]} {
6381 # Fix up the scrollregion and change the scrolling position
6382 # now that our target row has moved.
6385 setcanvscroll
6393 set need_redisplay 1
6394 }
6395 } else {
6396 unset targetid
6397 }
6398 }
6404 }
6408 } elseif {[info exists targetid]} {
6410 }
6411 if {[info exists targetrow]} {
6414 }
6416 }
6418 }
6420 proc clear_display {} {
6421 global iddrawn linesegs need_redisplay nrows_drawn
6422 global vhighlights fhighlights nhighlights rhighlights
6423 global linehtag linentag linedtag boldids boldnameids
6425 allcanvs delete all
6426 unset -nocomplain iddrawn
6427 unset -nocomplain linesegs
6428 unset -nocomplain linehtag
6429 unset -nocomplain linentag
6430 unset -nocomplain linedtag
6431 set boldids {}
6432 set boldnameids {}
6433 unset -nocomplain vhighlights
6434 unset -nocomplain fhighlights
6435 unset -nocomplain nhighlights
6436 unset -nocomplain rhighlights
6437 set need_redisplay 0
6438 set nrows_drawn 0
6439 }
6441 proc findcrossings {id} {
6442 global rowidlist parentlist numcommits displayorder
6444 set cross {}
6445 set ccross {}
6449 }
6468 }
6469 }
6470 }
6471 }
6472 }
6474 }
6476 proc assigncolor {id} {
6477 global colormap colors nextcolor
6478 global parents children children curview
6484 } else {
6485 set kids {}
6486 }
6492 return
6493 }
6494 }
6495 set badcolors {}
6496 set origbad {}
6499 # delimiter between corner crossings and other crossings
6502 }
6506 }
6507 }
6510 }
6517 }
6522 }
6523 }
6524 }
6527 }
6528 }
6532 set nextcolor 0
6533 }
6535 }
6537 }
6539 proc bindline {t id} {
6540 global canv
6546 }
6548 proc graph_pane_width {} {
6549 global use_ttk
6552 set g [.tf.histframe.pwclist sashpos 0]
6553 } else {
6554 set g [.tf.histframe.pwclist sash coord 0]
6555 }
6557 }
6559 proc totalwidth {l font extra} {
6560 set tot 0
6563 }
6565 }
6567 proc drawtags {id x xt y1} {
6568 global idtags idheads idotherrefs mainhead
6569 global linespc lthickness
6570 global canv rowtextx curview fgcolor bgcolor ctxbut
6571 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
6572 global tagbgcolor tagfgcolor tagoutlinecolor
6573 global reflinecolor
6575 set marks {}
6576 set ntags 0
6577 set nheads 0
6578 set singletag 0
6579 set maxtags 3
6580 set maxtagpct 25
6590 # show just a single "n tags..." tag
6591 set singletag 1
6593 set marks [list "tag..."]
6594 } else {
6596 }
6597 set ntags 1
6598 }
6599 }
6603 }
6606 }
6609 }
6613 set xvals {}
6614 set wvals {}
6615 set i -1
6617 incr i
6620 } else {
6622 }
6626 }
6634 set font mainfont
6635 if {[incr ntags -1] >= 0} {
6636 # draw a tag
6643 } else {
6645 }
6648 } else {
6649 # draw a head or other ref
6650 if {[incr nheads -1] >= 0} {
6653 set font mainfontbold
6654 }
6655 } else {
6656 set col "#ddddff"
6657 }
6668 }
6669 }
6676 }
6677 }
6679 }
6681 proc drawnotesign {xt y} {
6682 global linespc canv fgcolor
6690 }
6692 proc xcoord {i level ln} {
6693 global canvx0 xspc1 xspc2
6700 }
6702 }
6704 proc show_status {msg} {
6705 global canv fgcolor
6707 clear_display
6708 set_window_title
6711 }
6713 # Don't change the text pane cursor if it is currently the hand cursor,
6714 # showing that we are over a sha1 ID link.
6715 proc settextcursor {c} {
6716 global ctext curtextcursor
6720 }
6722 }
6724 proc nowbusy {what {name {}}} {
6725 global isbusy busyname statusw
6727 if {[array names isbusy] eq {}} {
6728 . config -cursor watch
6729 settextcursor watch
6730 }
6735 }
6736 }
6738 proc notbusy {what} {
6739 global isbusy maincursor textcursor busyname statusw
6741 catch {
6746 }
6747 }
6748 if {[array names isbusy] eq {}} {
6751 }
6752 }
6754 proc findmatches {f} {
6755 global findtype findstring
6758 } else {
6763 }
6764 set matches {}
6765 set i 0
6770 }
6771 }
6773 }
6775 proc dofind {{dirn 1} {wrap 1}} {
6776 global findstring findstartline findcurline selectedline numcommits
6777 global gdttype filehighlight fh_serial find_dirn findallowwrap
6779 if {[info exists find_dirn]} {
6781 stopfinding
6782 }
6783 focus .
6787 } else {
6789 }
6791 nowbusy finding [mc "Searching"]
6795 }
6798 run findmore
6799 }
6801 proc stopfinding {} {
6802 global find_dirn findcurline fprogcoord
6804 if {[info exists find_dirn]} {
6805 unset find_dirn
6806 unset findcurline
6807 notbusy finding
6808 set fprogcoord 0
6809 adjustprogress
6810 }
6811 stopblaming
6812 }
6814 proc findmore {} {
6815 global commitdata commitinfo numcommits findpattern findloc
6816 global findstartline findcurline findallowwrap
6817 global find_dirn gdttype fhighlights fprogcoord
6818 global curview varcorder vrownum varccommits vrowmod
6820 if {![info exists find_dirn]} {
6821 return 0
6822 }
6823 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6825 set moretodo 0
6827 incr l
6829 set l 0
6830 }
6833 } else {
6836 }
6837 } else {
6840 }
6841 incr l -1
6844 } else {
6845 set lim -1
6847 }
6848 }
6851 set n 500
6852 set moretodo 1
6853 }
6856 }
6857 set found 0
6858 set domore 1
6872 }
6874 # shouldn't happen unless git log doesn't give all the commits...
6877 continue
6878 }
6881 }
6887 set found 1
6888 break
6889 }
6890 }
6892 }
6893 } else {
6901 }
6906 }
6909 break
6910 }
6913 set domore 0
6915 }
6916 }
6917 }
6918 }
6920 unset findcurline
6921 unset find_dirn
6922 notbusy finding
6923 set fprogcoord 0
6924 adjustprogress
6927 } else {
6928 bell
6929 }
6930 return 0
6931 }
6933 flushhighlights
6934 } else {
6936 }
6940 }
6942 adjustprogress
6944 }
6946 proc findselectline {l} {
6947 global findloc commentend ctext findcurline markingmatches gdttype
6954 # highlight the matches in the comments
6961 }
6962 }
6963 drawvisible
6964 }
6966 # mark the bits of a headline or author that match a find string
6967 proc markmatches {canv l str tag matches font row} {
6968 global selectedline
6986 }
6987 }
6988 }
6990 proc unmarkmatches {} {
6991 global markingmatches
6993 allcanvs delete matches
6994 set markingmatches 0
6995 stopfinding
6996 }
6998 proc selcanvline {w x y} {
6999 global canv canvy0 ctext linespc
7000 global rowtextx
7007 set l 0
7008 }
7013 }
7014 unmarkmatches
7016 }
7018 proc commit_descriptor {p} {
7019 global commitinfo
7022 }
7023 set l "..."
7026 }
7028 }
7030 # append some text to the ctext widget, and make any SHA1 ID
7031 # that we know about be a clickable link.
7032 # Also look for URLs of the form "http[s]://..." and make them web links.
7033 proc appendwithlinks {text tags} {
7034 global ctext linknum curview
7043 incr e
7047 incr linknum
7048 }
7049 set wlinks [regexp -indices -all -inline -line \
7055 incr e2
7059 incr linknum
7060 }
7061 }
7063 proc setlink {id lk} {
7064 global curview ctext pendinglinks
7065 global linkfgcolor
7069 }
7071 set known 0
7076 set known 1
7078 }
7079 } else {
7081 }
7087 } else {
7090 }
7091 }
7093 proc setwlink {url lk} {
7094 global ctext
7095 global linkfgcolor
7096 global web_browser
7103 }
7105 proc appendshortlink {id {pre {}} {post {}}} {
7106 global ctext linknum
7113 incr linknum
7114 }
7116 proc makelink {id} {
7117 global pendinglinks
7122 }
7124 }
7126 proc linkcursor {w inc} {
7127 global linkentercount curtextcursor
7131 } else {
7134 set linkentercount 0
7135 }
7136 }
7137 }
7139 proc browseweb {url} {
7140 global web_browser
7146 }
7147 }
7149 proc viewnextline {dir} {
7150 global canv linespc
7158 set newtop 0
7161 }
7163 }
7165 # add a list of tag or branch names at position pos
7166 # returns the number of names inserted
7167 proc appendrefs {pos ids var} {
7171 return 0
7172 }
7175 set tags {}
7179 }
7180 }
7182 set sep {}
7184 set nutags 0
7187 # If we are displaying heads, and there are too many,
7188 # see if there are some important heads to display.
7190 set itags {}
7192 set utags {}
7199 } else {
7201 }
7202 }
7204 }
7206 set str [mc "and many more"]
7207 set sep " "
7208 } else {
7209 set str [mc "many"]
7210 }
7214 }
7219 incr linknum
7224 set sep ", "
7225 }
7229 }
7231 # called when we have finished computing the nearby tags
7232 proc dispneartags {delay} {
7233 global selectedline currentid showneartags tagphase
7236 after cancel dispnexttag
7238 after 200 dispnexttag
7239 set tagphase -1
7240 } else {
7241 after idle dispnexttag
7242 set tagphase 0
7243 }
7244 }
7246 proc dispnexttag {} {
7247 global selectedline currentid showneartags tagphase ctext
7251 0 {
7255 }
7256 }
7257 1 {
7261 }
7262 }
7263 2 {
7268 # turn "Branch" into "Branches"
7272 }
7273 }
7274 }
7275 }
7276 if {[incr tagphase] <= 2} {
7277 after idle dispnexttag
7278 }
7279 }
7281 proc make_secsel {id} {
7282 global linehtag linentag linedtag canv canv2 canv3
7297 }
7299 proc make_idmark {id} {
7300 global linehtag canv fgcolor
7307 }
7309 proc selectline {l isnew {desired_loc {}} {switch_to_patch 0}} {
7310 global canv ctext commitinfo selectedline
7311 global canvy0 linespc parents children curview
7312 global currentid sha1entry
7313 global commentend idtags linknum
7314 global mergemax numcommits pending_select
7315 global cmitmode showneartags allcommits
7316 global targetrow targetid lastscrollrows
7317 global autoselect autosellen jump_to_here
7318 global vinlinediff
7320 unset -nocomplain pending_select
7322 normalline
7323 unsel_reflist
7324 stopfinding
7332 setcanvscroll
7333 }
7336 set cmitmode "patch"
7337 }
7351 } else {
7355 }
7356 }
7360 } else {
7364 }
7365 }
7366 }
7369 set newtop 0
7370 }
7372 drawvisible
7373 }
7379 }
7385 }
7389 clear_ctext
7390 set linknum 0
7393 }
7403 }
7405 }
7407 set headers {}
7410 set np 0
7413 set tag mmax
7414 } else {
7416 }
7419 incr np
7420 }
7421 } else {
7424 }
7425 }
7429 }
7431 # make anything that looks like a SHA1 ID be a clickable link
7434 if {![info exists allcommits]} {
7435 getallcommits
7436 }
7447 dispneartags 1
7448 }
7453 }
7461 init_flist [mc "Comments"]
7468 } else {
7470 }
7471 }
7473 proc selfirstline {} {
7474 unmarkmatches
7475 selectline 0 1
7476 }
7478 proc sellastline {} {
7479 global numcommits
7480 unmarkmatches
7483 }
7485 proc selnextline {dir} {
7486 global selectedline
7487 focus .
7490 unmarkmatches
7492 }
7494 proc selnextpage {dir} {
7495 global canv linespc selectedline numcommits
7499 set lpp 1
7500 }
7502 drawvisible
7506 set l 0
7509 }
7510 unmarkmatches
7512 }
7514 proc unselectline {} {
7515 global selectedline currentid
7517 set selectedline {}
7518 unset -nocomplain currentid
7519 allcanvs delete secsel
7520 rhighlight_none
7521 }
7523 proc reselectline {} {
7524 global selectedline
7528 }
7529 }
7531 proc addtohistory {cmd {saveproc {}}} {
7532 global history historyindex curview
7534 unset_posvars
7535 save_position
7539 return
7540 }
7544 } else {
7546 }
7547 incr historyindex
7549 .tf.bar.leftbut conf -state normal
7550 } else {
7551 .tf.bar.leftbut conf -state disabled
7552 }
7553 .tf.bar.rightbut conf -state disabled
7554 }
7556 # save the scrolling position of the diff display pane
7557 proc save_position {} {
7558 global historyindex history
7565 }
7566 }
7568 proc unset_posvars {} {
7569 global last_posvars
7571 if {[info exists last_posvars]} {
7575 }
7576 unset last_posvars
7577 }
7578 }
7580 proc godo {elt} {
7581 global curview last_posvars
7588 }
7589 unset_posvars
7593 }
7596 }
7598 proc goback {} {
7599 global history historyindex
7600 focus .
7603 save_position
7604 incr historyindex -1
7606 .tf.bar.rightbut conf -state normal
7607 }
7609 .tf.bar.leftbut conf -state disabled
7610 }
7611 }
7613 proc goforw {} {
7614 global history historyindex
7615 focus .
7618 save_position
7620 incr historyindex
7622 .tf.bar.leftbut conf -state normal
7623 }
7625 .tf.bar.rightbut conf -state disabled
7626 }
7627 }
7629 proc go_to_parent {i} {
7630 global parents curview targetid
7634 }
7635 }
7637 proc gettree {id} {
7638 global treefilelist treeidlist diffids diffmergeid treepending
7639 global nullid nullid2
7642 unset -nocomplain diffmergeid
7644 if {![info exists treepending]} {
7646 set cmd [list | git ls-files]
7648 set cmd [list | git ls-files --stage -t]
7649 } else {
7651 }
7653 return
7654 }
7660 }
7661 } else {
7663 }
7664 }
7666 proc gettreeline {gtf id} {
7667 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7669 set nl 0
7673 } else {
7681 }
7684 }
7687 }
7690 }
7692 unset treepending
7694 if {![info exists diffmergeid]} {
7696 }
7699 } else {
7701 }
7702 return 0
7703 }
7705 proc showfile {f} {
7706 global treefilelist treeidlist diffids nullid nullid2
7707 global ctext_file_names ctext_file_lines
7708 global ctext commentend
7713 return
7714 }
7718 return
7719 }
7720 } else {
7724 return
7725 }
7726 }
7737 settabs 0
7738 }
7740 proc getblobline {bf id} {
7741 global diffids cmitmode ctext
7745 return 0
7746 }
7748 set nl 0
7751 }
7753 global jump_to_here ctext_file_names commentend
7755 # delete last newline
7763 }
7765 return 0
7766 }
7769 }
7771 proc mark_ctext_line {lnum} {
7772 global ctext markbgcolor
7778 }
7780 proc mergediff {id} {
7781 global diffmergeid
7782 global diffids treediffs
7783 global parents curview
7791 }
7793 proc startdiff {ids} {
7794 global treediffs diffids treepending diffmergeid nullid nullid2
7796 settabs 1
7798 unset -nocomplain diffmergeid
7802 if {![info exists treepending]} {
7804 }
7805 } else {
7807 }
7808 }
7810 proc showinlinediff {ids} {
7811 global commitinfo commitdata ctext
7812 global treediffs
7818 initblobdiffvars
7819 set treediff {}
7821 set inhdr 0
7824 set inhdr 1
7826 # offset also accounts for the b/ prefix
7828 set inhdr 0
7829 }
7830 }
7838 }
7839 maybe_scroll_ctext 1
7841 }
7843 # If the filename (name) is under any of the passed filter paths
7844 # then return true to include the file in the listing.
7845 proc path_filter {filter name} {
7846 set worktree [gitworktree]
7851 return 1
7852 }
7853 }
7854 return 0
7855 }
7857 proc addtocflist {ids} {
7858 global treediffs
7862 }
7864 proc diffcmd {ids flags} {
7865 global log_showroot nullid nullid2 git_version
7871 # comparing working directory with some specific revision
7875 } else {
7877 }
7878 } else {
7879 # comparing working directory with index
7882 lappend cmd -R
7883 }
7884 }
7888 }
7891 # comparing index with specific revision
7894 } else {
7896 }
7897 } else {
7898 # comparing index with HEAD
7899 lappend cmd HEAD
7900 }
7901 } else {
7903 lappend flags --root
7904 }
7906 }
7908 }
7910 proc gettreediffs {ids} {
7911 global treediff treepending limitdiffs vfilelimit curview
7916 }
7920 set treediff {}
7923 }
7925 proc gettreediffline {gdtf ids} {
7926 global treediff treediffs treepending diffids diffmergeid
7927 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7929 set nr 0
7930 set sublist {}
7931 set max 1000
7933 # cache_gitattr is slow, and even slower on win32 where we
7934 # have to invoke it for only about 30 paths at a time
7935 set max 500
7936 if {[tk windowingsystem] == "win32"} {
7937 set max 120
7938 }
7939 }
7946 }
7951 }
7952 }
7953 }
7956 }
7959 }
7962 unset treepending
7966 if {![info exists diffmergeid]} {
7968 }
7969 } else {
7971 }
7972 return 0
7973 }
7975 # empty string or positive integer
7976 proc diffcontextvalidate {v} {
7978 }
7980 proc diffcontextchange {n1 n2 op} {
7981 global diffcontextstring diffcontext
7986 reselectline
7987 }
7988 }
7989 }
7991 proc changeignorespace {} {
7992 reselectline
7993 }
7995 proc changeworddiff {name ix op} {
7996 reselectline
7997 }
7999 proc initblobdiffvars {} {
8000 global diffencoding targetline diffnparents
8001 global diffinhdr currdiffsubmod diffseehere
8002 set targetline {}
8003 set diffnparents 0
8004 set diffinhdr 0
8005 set diffencoding [get_path_encoding {}]
8006 set currdiffsubmod ""
8007 set diffseehere -1
8008 }
8010 proc getblobdiffs {ids} {
8011 global blobdifffd diffids env
8012 global treediffs
8013 global diffcontext
8014 global ignorespace
8015 global worddiff
8016 global limitdiffs vfilelimit curview
8017 global git_version
8019 set textconv {}
8021 set textconv "--textconv"
8022 }
8023 set submodule {}
8025 set submodule "--submodule"
8026 }
8029 append cmd " -w"
8030 }
8032 append cmd " --word-diff=porcelain"
8033 }
8036 }
8039 return
8040 }
8043 initblobdiffvars
8045 }
8047 proc savecmitpos {} {
8048 global ctext cmitmode
8051 return {}
8052 }
8054 }
8056 proc savectextpos {} {
8057 global ctext
8060 }
8062 proc maybe_scroll_ctext {ateof} {
8063 global ctext target_scrollpos
8065 if {![info exists target_scrollpos]} return
8068 / [font metrics textfont -linespace]}]
8070 }
8072 unset target_scrollpos
8073 }
8075 proc setinlist {var i val} {
8080 }
8083 } else {
8085 }
8086 }
8088 proc makediffhdr {fname ids} {
8089 global ctext curdiffstart treediffs diffencoding
8090 global ctext_file_names jump_to_here targetline diffline
8097 }
8102 set targetline {}
8105 }
8106 set diffline 0
8107 }
8109 proc blobdiffmaybeseehere {ateof} {
8110 global diffseehere
8113 }
8115 }
8117 proc getblobdiffline {bdf ids} {
8118 global diffids blobdifffd
8119 global ctext
8121 set nr 0
8125 # Older diff read. Abort it.
8129 }
8130 return 0
8131 }
8133 }
8139 return 0
8140 }
8142 }
8144 proc parseblobdiffline {ids line} {
8145 global ctext curdiffstart
8146 global diffnexthead diffnextnote difffilestart
8147 global ctext_file_names ctext_file_lines
8148 global diffinhdr treediffs mergemax diffnparents
8149 global diffencoding jump_to_here targetline diffline currdiffsubmod
8150 global worddiff diffseehere
8156 continue
8157 }
8158 # start of a new file
8159 set diffinhdr 1
8160 set currdiffsubmod ""
8164 lappend ctext_file_names ""
8169 # start of a new file in a merge diff
8174 }
8176 } else {
8178 # If the name hasn't changed the length will be odd,
8179 # the middle char will be a space, and the two bits either
8180 # side will be a/name and b/name, or "a/name" and "b/name".
8181 # If the name has changed we'll get "rename from" and
8182 # "rename to" or "copy from" and "copy to" lines following
8183 # this, and we'll use them to get the filenames.
8184 # This complexity is necessary because spaces in the
8185 # filename(s) don't get escaped.
8191 return
8192 }
8193 # unescape if quoted and chop off the a/ from the front
8196 } else {
8198 }
8199 }
8212 }
8220 }
8222 set diffinhdr 0
8225 # start of a new submodule
8228 } else {
8230 }
8233 }
8235 lappend ctext_file_names ""
8241 } else {
8243 }
8255 }
8260 }
8266 }
8269 # do nothing
8270 return
8272 set diffinhdr 0
8273 return
8274 }
8277 } else {
8278 set line [string map {\x1A ^Z} \
8280 # parse the prefix - one ' ', '-' or '+' for each parent
8284 set words_pre_markup ""
8285 set words_post_markup ""
8287 # prefix only has " ", "-" and "+" in it: normal diff line
8291 }
8295 set num "max"
8296 }
8299 } else {
8301 }
8304 }
8305 } else {
8306 set tags {}
8308 # added line
8314 set num "max"
8315 }
8317 }
8318 }
8319 set words_pre_markup "{+"
8320 set words_post_markup "+}"
8321 }
8325 set targetline {}
8326 } else {
8327 incr diffline
8328 }
8329 }
8332 } else {
8334 }
8337 }
8338 }
8341 } else {
8342 # "\ No newline at end of file",
8343 # or something else we don't recognize
8345 }
8346 }
8347 }
8349 proc changediffdisp {} {
8350 global ctext diffelide
8354 }
8356 proc highlightfile {cline} {
8357 global cflist cflist_top
8359 if {![info exists cflist_top]} return
8365 }
8367 proc highlightfile_for_scrollpos {topidx} {
8368 global cmitmode difffilestart
8371 if {![info exists difffilestart]} return
8375 highlightfile 0
8376 } else {
8378 }
8379 }
8381 proc prevfile {} {
8382 global difffilestart ctext cmitmode
8385 set prev 0.0
8390 return
8391 }
8393 }
8395 }
8397 proc nextfile {} {
8398 global difffilestart ctext cmitmode
8405 return
8406 }
8407 }
8408 }
8410 proc clear_ctext {{first 1.0}} {
8411 global ctext smarktop smarkbot
8412 global ctext_file_names ctext_file_lines
8413 global pendinglinks
8418 }
8421 }
8424 unset -nocomplain pendinglinks
8425 }
8426 set ctext_file_names {}
8427 set ctext_file_lines {}
8428 }
8430 proc settabs {{firstab {}}} {
8431 global firsttabstop tabstop ctext have_tk85
8435 }
8436 set w [font measure textfont "0"]
8442 } else {
8444 }
8445 }
8447 proc incrsearch {name ix op} {
8448 global ctext searchstring searchdirn
8451 # no anchor set, use start of selection, or of visible area
8457 } else {
8459 }
8460 }
8468 suppress_highlighting_file_for_current_scrollpos
8470 }
8471 }
8472 rehighlight_search_results
8473 }
8475 proc dosearch {} {
8476 global sstring ctext searchstring searchdirn
8480 set searchdirn -forwards
8486 set start "@0,0"
8487 }
8491 bell
8492 return
8493 }
8495 suppress_highlighting_file_for_current_scrollpos
8500 rehighlight_search_results
8501 }
8502 }
8504 proc dosearchback {} {
8505 global sstring ctext searchstring searchdirn
8509 set searchdirn -backwards
8516 }
8520 bell
8521 return
8522 }
8524 suppress_highlighting_file_for_current_scrollpos
8529 rehighlight_search_results
8530 }
8531 }
8533 proc rehighlight_search_results {} {
8534 global ctext searchstring
8540 searchmarkvisible 1
8541 }
8542 }
8544 proc searchmark {first last} {
8545 global ctext searchstring
8550 while {1} {
8556 } else {
8558 }
8559 }
8560 }
8562 proc searchmarkvisible {doall} {
8563 global ctext smarktop smarkbot
8568 # no overlap with previous
8572 } else {
8576 }
8580 }
8581 }
8582 }
8584 proc suppress_highlighting_file_for_current_scrollpos {} {
8585 global ctext suppress_highlighting_file_for_this_scrollpos
8588 }
8590 proc scrolltext {f0 f1} {
8591 global searchstring cmitmode ctext
8592 global suppress_highlighting_file_for_this_scrollpos
8595 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8598 }
8600 unset -nocomplain suppress_highlighting_file_for_this_scrollpos
8604 searchmarkvisible 0
8605 }
8606 }
8608 proc setcoords {} {
8609 global linespc charspc canvx0 canvy0
8610 global xspc1 xspc2 lthickness
8612 set linespc [font metrics mainfont -linespace]
8613 set charspc [font measure mainfont "m"]
8619 }
8621 proc redisplay {} {
8622 global canv
8623 global selectedline
8628 clear_display
8629 setcanvscroll
8631 drawvisible
8635 }
8636 }
8638 proc parsefont {f n} {
8639 global fontattr
8644 set s 10
8647 }
8653 "normal" -
8655 "roman" -
8657 }
8658 }
8659 }
8661 proc fontflags {f {isbold 0}} {
8662 global fontattr
8667 }
8669 proc fontname {f} {
8670 global fontattr
8674 lappend n "bold"
8675 }
8677 lappend n "italic"
8678 }
8680 }
8682 proc incrfont {inc} {
8683 global mainfont textfont ctext canv cflist showrefstop
8684 global stopped entries fontattr
8686 unmarkmatches
8690 set s 1
8691 }
8695 set mainfont [fontname mainfont]
8699 set s 1
8700 }
8704 set textfont [fontname textfont]
8705 setcoords
8706 settabs
8707 redisplay
8708 }
8710 proc clearsha1 {} {
8711 global sha1entry sha1string
8714 }
8715 }
8717 proc sha1change {n1 n2 op} {
8718 global sha1string currentid sha1but
8721 set state disabled
8722 } else {
8723 set state normal
8724 }
8728 } else {
8730 }
8731 }
8733 proc gotocommit {} {
8734 global sha1string tagids headids curview varcid
8742 } else {
8749 return
8750 }
8752 }
8753 } else {
8756 return
8757 }
8758 }
8759 }
8762 return
8763 }
8766 } else {
8768 }
8770 }
8772 proc lineenter {x y id} {
8773 global hoverx hovery hoverid hovertimer
8774 global commitinfo canv
8780 if {[info exists hovertimer]} {
8782 }
8783 set hovertimer [after 500 linehover]
8785 }
8787 proc linemotion {x y id} {
8788 global hoverx hovery hoverid hovertimer
8793 if {[info exists hovertimer]} {
8795 }
8796 set hovertimer [after 500 linehover]
8797 }
8798 }
8800 proc lineleave {id} {
8801 global hoverid hovertimer canv
8805 if {[info exists hovertimer]} {
8807 unset hovertimer
8808 }
8809 unset hoverid
8810 }
8811 }
8813 proc linehover {} {
8814 global hoverx hovery hoverid hovertimer
8815 global canv linespc lthickness
8816 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8818 global commitinfo
8832 -width 1 -tags hover]
8837 }
8839 proc clickisonarrow {id y} {
8840 global lthickness
8849 }
8850 }
8851 return {}
8852 }
8854 proc arrowjump {id n y} {
8855 global canv
8857 # 1 <-> 2, 3 <-> 4, etc...
8867 set yfrac 0
8868 }
8870 }
8872 proc lineclick {x y id isnew} {
8873 global ctext commitinfo children canv thickerline curview
8876 unmarkmatches
8877 unselectline
8878 normalline
8880 # draw this line thicker than normal
8888 }
8892 return
8893 }
8897 }
8898 # fill the details pane with info about this line
8900 clear_ctext
8901 settabs 0
8913 set i 0
8915 incr i
8925 }
8926 }
8927 maybe_scroll_ctext 1
8929 init_flist {}
8930 }
8932 proc normalline {} {
8933 global thickerline
8934 if {[info exists thickerline]} {
8936 unset thickerline
8938 }
8939 }
8941 proc selbyid {id {isnew 1}} {
8942 global curview
8945 }
8946 }
8948 proc mstime {} {
8949 global startmstime
8950 if {![info exists startmstime]} {
8951 set startmstime [clock clicks -milliseconds]
8952 }
8954 }
8956 proc rowmenu {x y id} {
8957 global rowctxmenu selectedline rowmenuid curview
8958 global nullid nullid2 fakerowmenu mainhead markedid
8960 stopfinding
8963 set state disabled
8964 } else {
8965 set state normal
8966 }
8968 set mstate normal
8969 } else {
8970 set mstate disabled
8971 }
8976 } else {
8978 }
8982 } else {
8984 }
8991 }
8993 proc markhere {} {
8994 global rowmenuid markedid canv
8998 }
9000 proc gotomark {} {
9001 global markedid
9003 if {[info exists markedid]} {
9005 }
9006 }
9008 proc replace_by_kids {l r} {
9009 global curview children
9015 }
9017 }
9019 proc find_common_desc {} {
9020 global markedid rowmenuid curview children
9022 if {![info exists markedid]} return
9025 #set t1 [clock clicks -milliseconds]
9028 while 1 {
9034 break
9035 }
9038 } else {
9040 }
9041 }
9042 #set t2 [clock clicks -milliseconds]
9044 }
9046 proc compare_commits {} {
9047 global markedid rowmenuid curview children
9049 if {![info exists markedid]} return
9053 }
9055 proc getpatchid {id} {
9056 global patchids
9060 # trim off the initial "|"
9062 if {[catch {
9065 }]} {
9067 }
9068 }
9070 }
9072 proc do_cmp_commits {a b} {
9073 global ctext curview parents children patchids commitinfo
9076 clear_ctext
9077 init_flist {}
9079 set skipa 0
9080 set skipb 0
9083 set skipa 1
9084 } else {
9086 }
9089 set skipb 1
9090 } else {
9092 }
9098 [mc " - stopping\n"]
9099 break
9100 }
9103 [mc " - stopping\n"]
9104 break
9105 }
9110 } else {
9114 }
9115 set skipa 1
9116 set skipb 1
9117 } else {
9124 update
9126 return
9127 }
9128 }
9135 break
9136 }
9138 }
9144 break
9145 }
9147 }
9148 }
9150 }
9152 proc diffcommits {a b} {
9153 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
9155 set tmpdir [gitknewtmpdir]
9158 if {[catch {
9161 } err]} {
9163 return
9164 }
9165 if {[catch {
9167 } err]} {
9169 return
9170 }
9173 set diffinhdr 0
9174 set currdiffsubmod ""
9176 }
9178 proc diffvssel {dirn} {
9179 global rowmenuid selectedline
9185 } else {
9188 }
9191 }
9193 proc diffvsmark {dirn} {
9194 global rowmenuid markedid
9196 if {![info exists markedid]} return
9200 } else {
9203 }
9206 }
9208 proc doseldiff {oldid newid} {
9209 global ctext
9210 global commitinfo
9213 clear_ctext
9214 init_flist [mc "Top"]
9229 }
9231 proc mkpatch {} {
9232 global rowmenuid currentid commitinfo patchtop patchnum NS
9234 if {![info exists currentid]} return
9239 set top .patch
9269 incr patchnum
9281 }
9283 proc mkpatchrev {} {
9284 global patchtop
9290 foreach e [list fromsha1 fromhead tosha1 tohead] \
9296 }
9297 }
9299 proc mkpatchgo {} {
9300 global patchtop nullid nullid2
9306 # trim off the initial "|"
9311 }
9313 unset patchtop
9314 }
9316 proc mkpatchcan {} {
9317 global patchtop
9320 unset patchtop
9321 }
9323 proc mktag {} {
9324 global rowmenuid mktagtop commitinfo NS
9326 set top .maketag
9360 }
9362 proc domktag {} {
9363 global mktagtop env tagids idtags
9370 return 0
9371 }
9374 return 0
9375 }
9376 if {[catch {
9379 } else {
9381 }
9382 } err]} {
9384 return 0
9385 }
9391 dispneartags 0
9392 run refill_reflist
9393 return 1
9394 }
9396 proc redrawtags {id} {
9397 global canv linehtag idpos currentid curview cmitlisted markedid
9398 global canvxmax iddrawn circleitem mainheadid circlecolors
9399 global mainheadcirclecolor
9406 } else {
9408 }
9418 setcanvscroll
9419 }
9422 }
9425 }
9426 }
9428 proc mktagcan {} {
9429 global mktagtop
9432 unset mktagtop
9433 }
9435 proc mktaggo {} {
9436 if {![domktag]} return
9437 mktagcan
9438 }
9440 proc copyreference {} {
9441 global rowmenuid autosellen
9443 set format "%h (\"%s\", %ad)"
9447 }
9450 clipboard clear
9452 }
9454 proc writecommit {} {
9455 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9457 set top .writecommit
9490 }
9492 proc wrcomgo {} {
9493 global wrcomtop
9500 }
9502 unset wrcomtop
9503 }
9505 proc wrcomcan {} {
9506 global wrcomtop
9509 unset wrcomtop
9510 }
9512 proc mkbranch {} {
9513 global NS rowmenuid
9515 set top .branchdialog
9517 set val(name) ""
9521 set ui(title) [mc "Create branch"]
9522 set ui(accept) [mc "Create"]
9525 }
9527 proc mvbranch {} {
9528 global NS
9529 global headmenuid headmenuhead
9531 set top .branchdialog
9538 set ui(accept) [mc "Rename"]
9541 }
9543 proc branchdia {top valvar uivar} {
9544 global NS commitinfo
9576 }
9578 proc mkbrgo {top} {
9579 global headids idheads
9583 set cmdargs {}
9584 set old_id {}
9587 return
9588 }
9590 if {![confirm_popup [mc \
9592 return
9593 }
9595 lappend cmdargs -f
9596 }
9599 nowbusy newbranch
9600 update
9601 if {[catch {
9603 } err]} {
9604 notbusy newbranch
9606 } else {
9607 notbusy newbranch
9613 } else {
9618 }
9619 dispneartags 0
9620 run refill_reflist
9621 }
9622 }
9624 proc mvbrgo {top prevname} {
9625 global headids idheads mainhead mainheadid
9629 set cmdargs {}
9632 return
9633 }
9636 return
9637 }
9640 nowbusy renamebranch
9641 update
9642 if {[catch {
9644 } err]} {
9645 notbusy renamebranch
9647 } else {
9648 notbusy renamebranch
9657 }
9659 dispneartags 0
9660 run refill_reflist
9661 }
9662 }
9664 proc exec_citool {tool_args {baseid {}}} {
9665 global commitinfo env
9667 set save_env [array get env GIT_AUTHOR_*]
9672 }
9675 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9681 }
9682 }
9686 array unset env GIT_AUTHOR_*
9688 }
9690 proc cherrypick {} {
9691 global rowmenuid curview
9692 global mainhead mainheadid
9693 global gitdir
9695 set oldhead [exec git rev-parse HEAD]
9698 set ok [confirm_popup [mc "Commit %s is already\
9699 included in branch %s -- really re-apply it?" \
9702 }
9703 nowbusy cherrypick [mc "Cherry-picking"]
9704 update
9705 # Unfortunately git-cherry-pick writes stuff to stderr even when
9706 # no error occurs, and exec takes that as an indication of error...
9708 notbusy cherrypick
9709 if {[regexp -line \
9710 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9712 error_popup [mc "Cherry-pick failed because of local changes\
9713 to file '%s'.\nPlease commit, reset or stash\
9715 } elseif {[regexp -line \
9716 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9718 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9719 conflict.\nDo you wish to run git citool to\
9720 resolve it?"]]} {
9721 # Force citool to read MERGE_MSG
9724 }
9725 } else {
9727 }
9728 run updatecommits
9729 return
9730 }
9731 set newhead [exec git rev-parse HEAD]
9733 notbusy cherrypick
9734 error_popup [mc "No changes committed"]
9735 return
9736 }
9739 # XXX this isn't right if we have a path limit...
9744 }
9749 }
9750 notbusy cherrypick
9751 }
9753 proc revert {} {
9754 global rowmenuid curview
9755 global mainhead mainheadid
9756 global gitdir
9758 set oldhead [exec git rev-parse HEAD]
9761 set ok [confirm_popup [mc "Commit %s is not\
9762 included in branch %s -- really revert it?" \
9765 }
9766 nowbusy revert [mc "Reverting"]
9767 update
9770 notbusy revert
9771 if [regexp {files would be overwritten by merge:(\n(( |\t)+[^\n]+\n)+)}\
9774 error_popup [mc "Revert failed because of local changes to\
9775 the following files:%s Please commit, reset or stash \
9778 if [confirm_popup [mc "Revert failed because of merge conflict.\n\
9779 Do you wish to run git citool to resolve it?"]] {
9780 # Force citool to read MERGE_MSG
9783 }
9785 run updatecommits
9786 return
9787 }
9789 set newhead [exec git rev-parse HEAD]
9791 notbusy revert
9792 error_popup [mc "No changes committed"]
9793 return
9794 }
9799 # XXX this isn't right if we have a path limit...
9804 }
9809 }
9811 notbusy revert
9812 }
9814 proc resethead {} {
9815 global mainhead rowmenuid confirm_ok resettype NS
9817 set confirm_ok 0
9818 set w ".confirmreset"
9826 set resettype mixed
9828 -text [mc "Soft: Leave working tree and index untouched"]
9831 -text [mc "Mixed: Leave working tree untouched, reset index"]
9834 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9845 if {[catch {set fd [open \
9848 } else {
9849 dohidelocalchanges
9851 nowbusy reset [mc "Resetting"]
9853 }
9854 }
9856 proc readresetstat {fd} {
9857 global mainhead mainheadid showlocalchanges rprogcoord
9862 adjustprogress
9863 }
9864 return 1
9865 }
9866 set rprogcoord 0
9867 adjustprogress
9868 notbusy reset
9871 }
9873 set newhead [exec git rev-parse HEAD]
9880 }
9882 doshowlocalchanges
9883 }
9884 return 0
9885 }
9887 # context menu for a head
9888 proc headmenu {x y id head} {
9889 global headmenuid headmenuhead headctxmenu mainhead headids
9891 stopfinding
9894 array set state {0 normal 1 normal 2 normal}
9898 set state(0) disabled
9899 }
9900 array set state {1 disabled 2 disabled}
9901 }
9903 array set state {0 disabled 2 disabled}
9904 }
9905 foreach i {0 1 2} {
9907 }
9909 }
9911 proc cobranch {} {
9912 global headmenuid headmenuhead headids
9913 global showlocalchanges
9915 # check the tree is clean first??
9917 set command [list | git checkout]
9921 # The following check is redundant - the menu option should
9922 # be disabled to begin with...
9925 return
9926 }
9928 } else {
9930 }
9931 lappend command 2>@1
9932 nowbusy checkout [mc "Checking out"]
9933 update
9934 dohidelocalchanges
9935 if {[catch {
9937 } err]} {
9938 notbusy checkout
9941 dodiffindex
9942 }
9943 } else {
9945 }
9946 }
9948 proc readcheckoutstat {fd newhead newheadid} {
9949 global mainhead mainheadid headids idheads showlocalchanges progresscoords
9950 global viewmainheadid curview
9955 adjustprogress
9956 }
9957 return 1
9958 }
9959 set progresscoords {0 0}
9960 adjustprogress
9961 notbusy checkout
9964 return
9965 }
9971 }
9979 dodiffindex
9980 }
9981 }
9983 proc rmbranch {} {
9984 global headmenuid headmenuhead mainhead
9985 global idheads
9989 # this check shouldn't be needed any more...
9991 error_popup [mc "Cannot delete the currently checked-out branch"]
9992 return
9993 }
9996 # the stuff on this branch isn't on any other branch
9997 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9999 }
10000 nowbusy rmbranch
10001 update
10003 notbusy rmbranch
10005 return
10006 }
10010 notbusy rmbranch
10011 dispneartags 0
10012 run refill_reflist
10013 }
10015 # Display a list of tags and heads
10016 proc showrefs {} {
10017 global showrefstop bgcolor fgcolor selectbgcolor NS
10018 global bglist fglist reflistfilter reflist maincursor
10020 set top .showrefs
10024 refill_reflist
10025 return
10026 }
10034 -spacing1 1 -spacing3 1 -state disabled
10039 }
10047 set reflistfilter "*"
10048 trace add variable reflistfilter write reflistfilter_change
10060 set reflist {}
10061 refill_reflist
10062 }
10064 proc sel_reflist {w x y} {
10065 global showrefstop reflist headids tagids otherrefids
10076 }
10078 }
10080 proc unsel_reflist {} {
10081 global showrefstop
10085 }
10087 proc reflistfilter_change {n1 n2 op} {
10088 global reflistfilter
10090 after cancel refill_reflist
10091 after 200 refill_reflist
10092 }
10094 proc refill_reflist {} {
10095 global reflist reflistfilter showrefstop headids tagids otherrefids
10096 global curview
10099 set refs {}
10100 foreach n [array names headids] {
10105 } else {
10107 }
10108 } else {
10110 }
10111 }
10112 }
10113 foreach n [array names tagids] {
10117 } else {
10119 }
10120 }
10121 }
10122 foreach n [array names otherrefids] {
10126 } else {
10128 }
10129 }
10130 }
10138 set i 0
10139 set j 0
10148 }
10149 } else {
10150 set cmp -1
10151 }
10152 } else {
10153 set cmp 1
10154 }
10156 -1 {
10158 incr i
10159 }
10160 0 {
10161 incr i
10162 incr j
10163 }
10164 1 {
10169 incr j
10170 }
10171 }
10172 }
10174 # delete last newline
10177 }
10179 # Stuff for finding nearby tags
10180 proc getallcommits {} {
10181 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
10182 global idheads idtags idotherrefs allparents tagobjid
10183 global gitdir
10185 if {![info exists allcommits]} {
10186 set nextarc 0
10187 set allcommits 0
10188 set seeds {}
10189 set allcwait 0
10190 set cachedarcs 0
10192 if {![catch {
10194 set allcwait 1
10196 }]} return
10197 }
10200 return
10201 }
10202 set cmd [list | git rev-list --parents]
10205 set ids "--all"
10206 } else {
10207 set refs [concat [array names idheads] [array names idtags] \
10208 [array names idotherrefs]]
10209 set ids {}
10210 set tagobjs {}
10211 foreach name [array names tagobjid] {
10213 }
10218 }
10219 }
10223 }
10224 }
10225 }
10229 incr allcommits
10230 nowbusy allcommits
10232 } else {
10233 dispneartags 0
10234 }
10235 }
10237 # Since most commits have 1 parent and 1 child, we group strings of
10238 # such commits into "arcs" joining branch/merge points (BMPs), which
10239 # are commits that either don't have 1 parent or don't have 1 child.
10240 #
10241 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
10242 # arcout(id) - outgoing arcs for BMP
10243 # arcids(a) - list of IDs on arc including end but not start
10244 # arcstart(a) - BMP ID at start of arc
10245 # arcend(a) - BMP ID at end of arc
10246 # growing(a) - arc a is still growing
10247 # arctags(a) - IDs out of arcids (excluding end) that have tags
10248 # archeads(a) - IDs out of arcids (excluding end) that have heads
10249 # The start of an arc is at the descendent end, so "incoming" means
10250 # coming from descendents, and "outgoing" means going towards ancestors.
10252 proc getallclines {fd} {
10253 global allparents allchildren idtags idheads nextarc
10254 global arcnos arcids arctags arcout arcend arcstart archeads growing
10255 global seeds allcommits cachedarcs allcupdate
10257 set nid 0
10261 # seen it already
10262 continue
10263 }
10264 set cachedarcs 0
10271 } else {
10277 }
10280 }
10282 # seen parent already
10285 }
10289 }
10292 continue
10293 }
10294 }
10299 }
10301 set ao {}
10304 set a [incr nextarc]
10313 # seen it already, may need to make a new branch
10316 }
10320 }
10322 }
10324 }
10326 global cached_dheads cached_dtags cached_atags
10327 unset -nocomplain cached_dheads
10328 unset -nocomplain cached_dtags
10329 unset -nocomplain cached_atags
10330 }
10333 }
10334 set cacheok 1
10335 if {[catch {
10338 } err]} {
10339 # got an error reading the list of commits
10340 # if we were updating, try rereading the whole thing again
10342 incr allcommits -1
10344 return
10345 }
10346 error_popup "[mc "Error reading commit topology information;\
10347 branch and preceding/following tag information\
10349 set cacheok 0
10350 }
10351 if {[incr allcommits -1] == 0} {
10352 notbusy allcommits
10354 run savecache
10355 }
10356 }
10357 dispneartags 0
10358 return 0
10359 }
10361 proc recalcarc {a} {
10362 global arctags archeads arcids idtags idheads
10364 set at {}
10365 set ah {}
10369 }
10372 }
10373 }
10376 }
10378 proc splitarc {p} {
10379 global arcnos arcids nextarc arctags archeads idtags idheads
10380 global arcstart arcend arcout allparents growing
10385 return
10386 }
10391 return
10392 }
10393 set na [incr nextarc]
10396 } else {
10400 }
10410 }
10415 } else {
10418 }
10419 }
10421 # reconstruct tags and heads lists
10425 } else {
10428 }
10429 }
10431 # Update things for a new commit added that is a child of one
10432 # existing commit. Used when cherry-picking.
10433 proc addnewchild {id p} {
10434 global allparents allchildren idtags nextarc
10435 global arcnos arcids arctags arcout arcend arcstart archeads growing
10436 global seeds allcommits
10444 set a [incr nextarc]
10452 }
10455 }
10457 # This implements a cache for the topology information.
10458 # The cache saves, for each arc, the start and end of the arc,
10459 # the ids on the arc, and the outgoing arcs from the end.
10460 proc readcache {f} {
10461 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
10462 global idtags idheads allparents cachedarcs possible_seeds seeds growing
10463 global allcwait
10469 }
10470 if {[catch {
10472 # finish reading the cache and setting up arctags, etc.
10476 foreach id [array names idtags] {
10482 }
10483 }
10484 }
10485 foreach id [array names idheads] {
10491 }
10492 }
10493 }
10497 }
10498 }
10499 set allcwait 0
10500 } else {
10510 }
10514 } else {
10518 }
10519 }
10525 }
10528 }
10531 }
10533 }
10534 } err]} {
10536 return 0
10537 }
10539 getallcommits
10540 }
10542 }
10544 proc getcache {f} {
10545 global nextarc cachedarcs possible_seeds
10547 if {[catch {
10550 # make sure it's an integer
10553 set nextarc 0
10554 set possible_seeds {}
10556 } err]} {
10558 }
10559 return 0
10560 }
10562 proc dropcache {err} {
10563 global allcwait nextarc cachedarcs seeds
10566 foreach v {arcnos arcout arcids arcstart arcend growing \
10567 arctags archeads allparents allchildren} {
10570 }
10571 set allcwait 0
10572 set nextarc 0
10573 set cachedarcs 0
10574 set seeds {}
10575 getallcommits
10576 }
10578 proc writecache {f} {
10579 global cachearc cachedarcs allccache
10580 global arcstart arcend arcnos arcids arcout
10586 }
10587 if {[catch {
10591 } else {
10593 }
10594 }
10595 } err]} {
10599 return 0
10600 }
10605 return 0
10606 }
10607 return 1
10608 }
10610 proc savecache {} {
10611 global nextarc cachedarcs cachearc allccache
10614 set cachearc 0
10616 catch {
10620 }
10621 }
10623 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10624 # or 0 if neither is true.
10625 proc anc_or_desc {a b} {
10626 global arcout arcstart arcend arcnos cached_isanc
10629 # Both are on the same arc(s); either both are the same BMP,
10630 # or if one is not a BMP, the other is also not a BMP or is
10631 # the BMP at end of the arc (and it only has 1 incoming arc).
10632 # Or both can be BMPs with no incoming arcs.
10634 return 0
10635 }
10641 return 1
10642 } else {
10643 return -1
10644 }
10645 }
10651 } else {
10652 set aend {}
10653 }
10655 } else {
10657 }
10662 } else {
10663 set bend {}
10664 }
10666 } else {
10668 }
10670 return 1
10671 }
10673 return -1
10674 }
10677 return 1
10678 }
10679 }
10682 return -1
10683 }
10685 return 0
10686 }
10687 }
10695 continue
10696 }
10702 return 1
10706 return -1
10707 }
10713 }
10714 }
10715 }
10718 return 0
10719 }
10723 # and returns 0 if so and 1 if not.
10724 # If we subsequently discover a tag on such a growing tip, and that
10727 # isn't a good choice to display as a descendent tag of
10731 #
10732 proc is_certain {desc anc} {
10733 global arcnos arcout arcstart arcend growing problems
10735 set certain {}
10737 # tags on the same arc are certain
10739 return 1
10740 }
10745 }
10746 }
10749 } else {
10752 }
10754 return 1
10755 }
10758 set nnh 1
10759 set ngrowanc 0
10763 incr nnh -1
10764 }
10770 incr ngrowanc
10771 }
10772 } else {
10779 incr nnh -1
10780 }
10782 incr ngrowanc -1
10783 }
10793 incr nnh -1
10794 }
10796 incr ngrowanc -1
10797 }
10799 }
10800 }
10801 }
10802 }
10803 }
10804 }
10808 } else {
10811 incr nnh
10812 }
10813 }
10814 }
10815 }
10816 foreach x [array names growanc] {
10818 return 0
10819 }
10820 return 0
10821 }
10822 return 1
10823 }
10825 proc validate_arctags {a} {
10826 global arctags idtags
10828 set i -1
10831 incr i
10834 incr i -1
10835 }
10836 }
10838 }
10840 proc validate_archeads {a} {
10841 global archeads idheads
10843 set i -1
10846 incr i
10849 incr i -1
10850 }
10851 }
10853 }
10855 # Return the list of IDs that have tags that are descendents of id,
10856 # ignoring IDs that are descendents of IDs already reported.
10857 proc desctags {id} {
10858 global arcnos arcstart arcids arctags idtags allparents
10859 global growing cached_dtags
10862 return {}
10863 }
10864 set t1 [clock clicks -milliseconds]
10867 # part-way along an arc; check that arc first
10872 set tid {}
10877 }
10880 }
10881 }
10885 }
10886 }
10889 }
10894 set nc 1
10900 incr nc -1
10901 }
10902 # ignore tags on starting node
10906 set ta 1
10909 set ta 1
10910 }
10911 }
10918 }
10919 }
10928 }
10931 }
10933 incr nc -1
10934 }
10936 }
10937 }
10938 }
10943 incr nc
10944 }
10945 }
10946 }
10947 }
10948 set tags {}
10949 foreach id [array names tagloc] {
10954 }
10955 }
10956 }
10957 }
10958 set t2 [clock clicks -milliseconds]
10961 # remove tags that are descendents of other tags
10969 incr j -1
10970 incr i -1
10973 incr i -1
10974 break
10975 }
10976 }
10977 }
10979 if {[array names growing] ne {}} {
10980 # graph isn't finished, need to check if any tag could get
10981 # eclipsed by another tag coming later. Simply ignore any
10982 # tags that could later get eclipsed.
10983 set ctags {}
10987 }
10988 }
10991 } else {
10993 }
10994 } else {
10996 }
10997 set t3 [clock clicks -milliseconds]
11001 }
11003 }
11005 proc anctags {id} {
11006 global arcnos arcids arcout arcend arctags idtags allparents
11007 global growing cached_atags
11010 return {}
11011 }
11012 set t1 [clock clicks -milliseconds]
11015 # part-way along an arc; check that arc first
11024 }
11025 }
11026 }
11028 return {}
11029 }
11033 }
11034 }
11037 }
11042 set taglist {}
11043 set nc 1
11049 incr nc -1
11050 }
11051 # ignore tags on starting node
11055 set td 1
11058 set td 1
11059 }
11060 }
11066 }
11067 }
11079 }
11080 }
11083 }
11085 incr nc -1
11086 }
11088 }
11089 }
11090 }
11095 incr nc
11096 }
11097 }
11098 }
11099 }
11100 set t2 [clock clicks -milliseconds]
11102 set tags {}
11103 foreach id [array names tagloc] {
11108 }
11109 }
11110 }
11111 }
11113 # remove tags that are ancestors of other tags
11121 incr j -1
11122 incr i -1
11125 incr i -1
11126 break
11127 }
11128 }
11129 }
11131 if {[array names growing] ne {}} {
11132 # graph isn't finished, need to check if any tag could get
11133 # eclipsed by another tag coming later. Simply ignore any
11134 # tags that could later get eclipsed.
11135 set ctags {}
11139 }
11140 }
11143 } else {
11145 }
11146 } else {
11148 }
11149 set t3 [clock clicks -milliseconds]
11153 }
11155 }
11157 # Return the list of IDs that have heads that are descendents of id,
11158 # including id itself if it has a head.
11159 proc descheads {id} {
11160 global arcnos arcstart arcids archeads idheads cached_dheads
11161 global allparents arcout
11164 return {}
11165 }
11166 set aret {}
11168 # part-way along an arc; check it first
11177 }
11178 }
11180 }
11184 set ret {}
11189 } else {
11192 }
11198 }
11199 }
11204 }
11205 }
11206 }
11207 }
11211 }
11213 proc addedtag {id} {
11214 global arcnos arcout cached_dtags cached_atags
11219 }
11220 unset -nocomplain cached_dtags
11221 unset -nocomplain cached_atags
11222 }
11224 proc addedhead {hid head} {
11225 global arcnos arcout cached_dheads
11230 }
11231 unset -nocomplain cached_dheads
11232 }
11234 proc removedhead {hid head} {
11235 global cached_dheads
11237 unset -nocomplain cached_dheads
11238 }
11240 proc movedhead {hid head} {
11241 global arcnos arcout cached_dheads
11246 }
11247 unset -nocomplain cached_dheads
11248 }
11250 proc changedrefs {} {
11251 global cached_dheads cached_dtags cached_atags cached_tagcontent
11252 global arctags archeads arcnos arcout idheads idtags
11254 foreach id [concat [array names idheads] [array names idtags]] {
11260 }
11261 }
11262 }
11263 unset -nocomplain cached_tagcontent
11264 unset -nocomplain cached_dtags
11265 unset -nocomplain cached_atags
11266 unset -nocomplain cached_dheads
11267 }
11269 proc rereadrefs {} {
11270 global idtags idheads idotherrefs mainheadid
11272 set refids [concat [array names idtags] \
11273 [array names idheads] [array names idotherrefs]]
11277 }
11278 }
11280 readrefs
11281 changedrefs
11283 [array names idheads] [array names idotherrefs]]]
11288 }
11289 }
11293 }
11294 run refill_reflist
11295 }
11297 proc listrefs {id} {
11298 global idtags idheads idotherrefs
11300 set x {}
11303 }
11304 set y {}
11307 }
11308 set z {}
11311 }
11313 }
11315 proc add_tag_ctext {tag} {
11316 global ctext cached_tagcontent tagids
11319 catch {
11321 }
11322 }
11326 } else {
11328 }
11330 }
11332 proc showtag {tag isnew} {
11333 global ctext cached_tagcontent tagids linknum tagobjid
11337 }
11339 clear_ctext
11340 settabs 0
11341 set linknum 0
11343 maybe_scroll_ctext 1
11345 init_flist {}
11346 }
11348 proc showtags {id isnew} {
11349 global idtags ctext linknum
11353 }
11355 clear_ctext
11356 settabs 0
11357 set linknum 0
11358 set sep {}
11362 set sep "\n\n"
11363 }
11364 maybe_scroll_ctext 1
11366 init_flist {}
11367 }
11369 proc doquit {} {
11370 global stopped
11371 global gitktmpdir
11373 set stopped 100
11374 savestuff .
11375 destroy .
11377 if {[info exists gitktmpdir]} {
11379 }
11380 }
11382 proc mkfontdisp {font top which} {
11391 }
11393 proc choosefont {font which} {
11394 global fontparam fontlist fonttop fontattr
11395 global prefstop NS
11403 set top .gitkfont
11406 font create sample
11413 set fontlist [lsort [font families]]
11424 -textvariable fontparam(size) \
11425 -validatecommand {string is integer -strict %s}
11427 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
11428 -variable fontparam(weight) -onvalue bold -offvalue normal
11430 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
11431 -variable fontparam(slant) -onvalue italic -offvalue roman
11435 -background white
11437 -fill black -tags text
11449 trace add variable fontparam write chg_fontparam
11450 } else {
11453 }
11458 }
11459 }
11461 proc centertext {w} {
11463 }
11465 proc fontok {} {
11466 global fontparam fontpref prefstop
11472 }
11475 }
11479 fontcan
11480 }
11482 proc fontcan {} {
11483 global fonttop fontparam
11485 if {[info exists fonttop]} {
11487 catch {font delete sample}
11488 unset fonttop
11489 unset fontparam
11490 }
11491 }
11493 if {[package vsatisfies [package provide Tk] 8.6]} {
11494 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
11495 # function to make use of it.
11496 proc choosefont {font which} {
11499 tk fontchooser show
11500 }
11501 proc on_choosefont {font which newfont} {
11502 global fontparam
11511 fontok
11512 }
11513 }
11515 proc selfontfam {} {
11516 global fonttop fontparam
11521 }
11522 }
11524 proc chg_fontparam {v sub op} {
11525 global fontparam
11528 }
11530 # Create a property sheet tab page
11531 proc create_prefs_page {w} {
11532 global NS
11536 } else {
11538 }
11539 }
11541 proc prefspage_general {notebook} {
11542 global NS maxwidth maxgraphpct showneartags showlocalchanges
11543 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11544 global hideremotes want_ttk have_ttk maxrefs web_browser
11554 #xgettext:no-tcl-format
11559 -variable showlocalchanges
11562 -variable autoselect
11566 -variable hideremotes
11575 -variable showneartags
11581 -variable limitdiffs
11584 -variable perfile_attrs
11605 -text [mc "Use themed widgets"]
11608 } else {
11610 }
11613 }
11615 proc prefspage_colors {notebook} {
11616 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11617 global diffbgcolors
11643 [mc "diff old lines bg"] \
11654 [mc "diff new lines bg"] \
11660 [mc "diff hunk header"] \
11666 [mc "marked line background"] \
11674 }
11676 proc prefspage_fonts {notebook} {
11677 global NS
11685 }
11687 proc doprefs {} {
11688 global maxwidth maxgraphpct use_ttk NS
11689 global oldprefs prefstop showneartags showlocalchanges
11690 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11691 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11692 global hideremotes want_ttk have_ttk
11694 set top .gitkprefs
11698 return
11699 }
11700 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11701 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11703 }
11710 } else {
11712 }
11717 set col 0
11721 } else {
11727 }
11728 }
11734 }
11751 }
11753 proc choose_extdiff {} {
11754 global extdifftool
11756 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11759 }
11760 }
11762 proc choosecolor {v vi w x cmd} {
11771 }
11773 proc setselbg {c} {
11774 global bglist cflist
11778 }
11779 }
11783 }
11785 # This sets the background color and the color scheme for the whole UI.
11786 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11787 # if we don't specify one ourselves, which makes the checkbuttons and
11788 # radiobuttons look bad. This chooses white for selectColor if the
11789 # background color is light, or black if it is dark.
11790 proc setui {c} {
11791 if {[tk windowingsystem] eq "win32"} { return }
11793 set selc black
11795 set selc white
11796 }
11798 }
11800 proc setbg {c} {
11801 global bglist
11806 }
11807 }
11808 }
11810 proc setfg {c} {
11811 global fglist canv
11816 }
11817 }
11821 }
11823 proc prefscan {} {
11824 global oldprefs prefstop
11826 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11827 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11830 }
11832 unset prefstop
11833 fontcan
11834 }
11836 proc prefsok {} {
11837 global maxwidth maxgraphpct
11838 global oldprefs prefstop showneartags showlocalchanges
11839 global fontpref mainfont textfont uifont
11840 global limitdiffs treediffs perfile_attrs
11841 global hideremotes
11844 unset prefstop
11845 fontcan
11846 set fontchanged 0
11850 eval font configure mainfont [fontflags mainfont]
11851 eval font configure mainfontbold [fontflags mainfont 1]
11852 setcoords
11853 set fontchanged 1
11854 }
11858 eval font configure textfont [fontflags textfont]
11859 eval font configure textfontbold [fontflags textfont 1]
11860 }
11864 eval font configure uifont [fontflags uifont]
11865 }
11866 settabs
11869 doshowlocalchanges
11870 } else {
11871 dohidelocalchanges
11872 }
11873 }
11876 # treediffs elements are limited by path;
11877 # won't have encodings cached if perfile_attrs was just turned on
11878 unset -nocomplain treediffs
11879 }
11882 redisplay
11885 reselectline
11886 }
11888 rereadrefs
11889 }
11890 }
11892 proc formatdate {d} {
11893 global datetimeformat
11896 # timezone of the argument. Otherwise, display in local time.
11898 if {[catch {set d [clock format [lindex $d 0] -timezone [lindex $d 1] -format $datetimeformat]}]} {
11899 # Tcl < 8.5 does not support -timezone. Emulate it by
11900 # setting TZ (e.g. TZ=<-0430>+04:30).
11901 global env
11902 if {[info exists env(TZ)]} {
11904 }
11909 if {[info exists savedTZ]} {
11911 } else {
11912 unset env(TZ)
11913 }
11914 }
11915 } else {
11917 }
11918 }
11920 }
11922 # This list of encoding names and aliases is distilled from
11923 # http://www.iana.org/assignments/character-sets.
11924 # Not all of them are supported by Tcl.
11925 set encoding_aliases {
11926 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11927 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11928 { ISO-10646-UTF-1 csISO10646UTF1 }
11929 { ISO_646.basic:1983 ref csISO646basic1983 }
11930 { INVARIANT csINVARIANT }
11931 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11932 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11933 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11934 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11935 { NATS-DANO iso-ir-9-1 csNATSDANO }
11936 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11937 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11938 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11939 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11940 { ISO-2022-KR csISO2022KR }
11941 { EUC-KR csEUCKR }
11942 { ISO-2022-JP csISO2022JP }
11943 { ISO-2022-JP-2 csISO2022JP2 }
11944 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11945 csISO13JISC6220jp }
11946 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11947 { IT iso-ir-15 ISO646-IT csISO15Italian }
11948 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11949 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11950 { greek7-old iso-ir-18 csISO18Greek7Old }
11951 { latin-greek iso-ir-19 csISO19LatinGreek }
11952 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11953 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11954 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11955 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11956 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11957 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11958 { INIS iso-ir-49 csISO49INIS }
11959 { INIS-8 iso-ir-50 csISO50INIS8 }
11960 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11961 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11962 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11963 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11964 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11965 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11966 csISO60Norwegian1 }
11967 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11968 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11969 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11970 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11971 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11972 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11973 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11974 { greek7 iso-ir-88 csISO88Greek7 }
11975 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11976 { iso-ir-90 csISO90 }
11977 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11978 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11979 csISO92JISC62991984b }
11980 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11981 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11982 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11983 csISO95JIS62291984handadd }
11984 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11985 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11986 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11987 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11988 CP819 csISOLatin1 }
11989 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11990 { T.61-7bit iso-ir-102 csISO102T617bit }
11991 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11992 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11993 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11994 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11995 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11996 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11997 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11998 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11999 arabic csISOLatinArabic }
12000 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
12001 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
12002 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
12003 greek greek8 csISOLatinGreek }
12004 { T.101-G2 iso-ir-128 csISO128T101G2 }
12005 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
12006 csISOLatinHebrew }
12007 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
12008 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
12009 { CSN_369103 iso-ir-139 csISO139CSN369103 }
12010 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
12011 { ISO_6937-2-add iso-ir-142 csISOTextComm }
12012 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
12013 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
12014 csISOLatinCyrillic }
12015 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
12016 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
12017 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
12018 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
12019 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
12020 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
12021 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
12022 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
12023 { ISO_10367-box iso-ir-155 csISO10367Box }
12024 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
12025 { latin-lap lap iso-ir-158 csISO158Lap }
12026 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
12027 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
12028 { us-dk csUSDK }
12029 { dk-us csDKUS }
12030 { JIS_X0201 X0201 csHalfWidthKatakana }
12031 { KSC5636 ISO646-KR csKSC5636 }
12032 { ISO-10646-UCS-2 csUnicode }
12033 { ISO-10646-UCS-4 csUCS4 }
12034 { DEC-MCS dec csDECMCS }
12035 { hp-roman8 roman8 r8 csHPRoman8 }
12036 { macintosh mac csMacintosh }
12037 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
12038 csIBM037 }
12039 { IBM038 EBCDIC-INT cp038 csIBM038 }
12040 { IBM273 CP273 csIBM273 }
12041 { IBM274 EBCDIC-BE CP274 csIBM274 }
12042 { IBM275 EBCDIC-BR cp275 csIBM275 }
12043 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
12044 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
12045 { IBM280 CP280 ebcdic-cp-it csIBM280 }
12046 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
12047 { IBM284 CP284 ebcdic-cp-es csIBM284 }
12048 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
12049 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
12050 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
12051 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
12052 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
12053 { IBM424 cp424 ebcdic-cp-he csIBM424 }
12054 { IBM437 cp437 437 csPC8CodePage437 }
12055 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
12056 { IBM775 cp775 csPC775Baltic }
12057 { IBM850 cp850 850 csPC850Multilingual }
12058 { IBM851 cp851 851 csIBM851 }
12059 { IBM852 cp852 852 csPCp852 }
12060 { IBM855 cp855 855 csIBM855 }
12061 { IBM857 cp857 857 csIBM857 }
12062 { IBM860 cp860 860 csIBM860 }
12063 { IBM861 cp861 861 cp-is csIBM861 }
12064 { IBM862 cp862 862 csPC862LatinHebrew }
12065 { IBM863 cp863 863 csIBM863 }
12066 { IBM864 cp864 csIBM864 }
12067 { IBM865 cp865 865 csIBM865 }
12068 { IBM866 cp866 866 csIBM866 }
12069 { IBM868 CP868 cp-ar csIBM868 }
12070 { IBM869 cp869 869 cp-gr csIBM869 }
12071 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
12072 { IBM871 CP871 ebcdic-cp-is csIBM871 }
12073 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
12074 { IBM891 cp891 csIBM891 }
12075 { IBM903 cp903 csIBM903 }
12076 { IBM904 cp904 904 csIBBM904 }
12077 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
12078 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
12079 { IBM1026 CP1026 csIBM1026 }
12080 { EBCDIC-AT-DE csIBMEBCDICATDE }
12081 { EBCDIC-AT-DE-A csEBCDICATDEA }
12082 { EBCDIC-CA-FR csEBCDICCAFR }
12083 { EBCDIC-DK-NO csEBCDICDKNO }
12084 { EBCDIC-DK-NO-A csEBCDICDKNOA }
12085 { EBCDIC-FI-SE csEBCDICFISE }
12086 { EBCDIC-FI-SE-A csEBCDICFISEA }
12087 { EBCDIC-FR csEBCDICFR }
12088 { EBCDIC-IT csEBCDICIT }
12089 { EBCDIC-PT csEBCDICPT }
12090 { EBCDIC-ES csEBCDICES }
12091 { EBCDIC-ES-A csEBCDICESA }
12092 { EBCDIC-ES-S csEBCDICESS }
12093 { EBCDIC-UK csEBCDICUK }
12094 { EBCDIC-US csEBCDICUS }
12095 { UNKNOWN-8BIT csUnknown8BiT }
12096 { MNEMONIC csMnemonic }
12097 { MNEM csMnem }
12098 { VISCII csVISCII }
12099 { VIQR csVIQR }
12100 { KOI8-R csKOI8R }
12101 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
12102 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
12103 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
12104 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
12105 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
12106 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
12107 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
12108 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
12109 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
12110 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
12111 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
12112 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
12113 { IBM1047 IBM-1047 }
12114 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
12115 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
12116 { UNICODE-1-1 csUnicode11 }
12117 { CESU-8 csCESU-8 }
12118 { BOCU-1 csBOCU-1 }
12119 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
12120 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
12121 l8 }
12122 { ISO-8859-15 ISO_8859-15 Latin-9 }
12123 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
12124 { GBK CP936 MS936 windows-936 }
12125 { JIS_Encoding csJISEncoding }
12126 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
12127 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
12128 EUC-JP }
12129 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
12130 { ISO-10646-UCS-Basic csUnicodeASCII }
12131 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
12132 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
12133 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
12134 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
12135 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
12136 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
12137 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
12138 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
12139 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
12140 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
12141 { Adobe-Standard-Encoding csAdobeStandardEncoding }
12142 { Ventura-US csVenturaUS }
12143 { Ventura-International csVenturaInternational }
12144 { PC8-Danish-Norwegian csPC8DanishNorwegian }
12145 { PC8-Turkish csPC8Turkish }
12146 { IBM-Symbols csIBMSymbols }
12147 { IBM-Thai csIBMThai }
12148 { HP-Legal csHPLegal }
12149 { HP-Pi-font csHPPiFont }
12150 { HP-Math8 csHPMath8 }
12151 { Adobe-Symbol-Encoding csHPPSMath }
12152 { HP-DeskTop csHPDesktop }
12153 { Ventura-Math csVenturaMath }
12154 { Microsoft-Publishing csMicrosoftPublishing }
12155 { Windows-31J csWindows31J }
12156 { GB2312 csGB2312 }
12157 { Big5 csBig5 }
12158 }
12160 proc tcl_encoding {enc} {
12161 global encoding_aliases tcl_encoding_cache
12164 }
12165 set names [encoding names]
12170 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
12173 }
12174 }
12179 # look through the aliases for one that tcl knows about
12185 }
12186 }
12188 }
12189 break
12190 }
12191 }
12192 set tclenc {}
12195 }
12198 }
12200 proc gitattr {path attr default} {
12201 global path_attr_cache
12204 } else {
12205 set r "unspecified"
12208 }
12210 }
12213 }
12215 }
12217 proc cache_gitattr {attr pathlist} {
12218 global path_attr_cache
12219 set newlist {}
12223 }
12224 }
12225 set lim 1000
12226 if {[tk windowingsystem] == "win32"} {
12227 # windows has a 32k limit on the arguments to a command...
12228 set lim 30
12229 }
12238 }
12240 }
12241 }
12242 }
12243 }
12244 }
12246 proc get_path_encoding {path} {
12247 global gui_encoding perfile_attrs
12253 }
12254 }
12256 }
12258 ## For msgcat loading, first locate the installation location.
12259 if { [info exists ::env(GITK_MSGSDIR)] } {
12260 ## Msgsdir was manually set in the environment.
12261 set gitk_msgsdir $::env(GITK_MSGSDIR)
12262 } else {
12263 ## Let's guess the prefix from argv0.
12267 unset gitk_prefix
12268 }
12270 ## Internationalization (i18n) through msgcat and gettext. See
12271 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
12272 package require msgcat
12273 namespace import ::msgcat::mc
12274 ## And eventually load the actual message catalog
12277 # First check that Tcl/Tk is recent enough
12278 if {[catch {package require Tk 8.4} err]} {
12279 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
12280 Gitk requires at least Tcl/Tk 8.4."]
12281 exit 1
12282 }
12284 # on OSX bring the current Wish process window to front
12285 if {[tk windowingsystem] eq "aqua"} {
12286 exec osascript -e [format {
12287 tell application "System Events"
12288 set frontmost of processes whose unix id is %d to true
12289 end tell
12290 } [pid] ]
12291 }
12293 # Unset GIT_TRACE var if set
12294 if { [info exists ::env(GIT_TRACE)] } {
12295 unset ::env(GIT_TRACE)
12296 }
12298 # defaults...
12299 set wrcomcmd "git diff-tree --stdin -p --pretty=email"
12301 set gitencoding {}
12302 catch {
12303 set gitencoding [exec git config --get i18n.commitencoding]
12304 }
12305 catch {
12306 set gitencoding [exec git config --get i18n.logoutputencoding]
12307 }
12309 set gitencoding "utf-8"
12310 }
12314 }
12316 set gui_encoding [encoding system]
12317 catch {
12318 set enc [exec git config --get gui.encoding]
12323 } else {
12325 }
12326 }
12327 }
12329 set log_showroot true
12330 catch {
12331 set log_showroot [exec git config --bool --get log.showroot]
12332 }
12334 if {[tk windowingsystem] eq "aqua"} {
12335 set mainfont {{Lucida Grande} 9}
12336 set textfont {Monaco 9}
12337 set uifont {{Lucida Grande} 9 bold}
12339 # fontconfig!
12340 set mainfont {sans 9}
12341 set textfont {monospace 9}
12342 set uifont {sans 9 bold}
12343 } else {
12344 set mainfont {Helvetica 9}
12345 set textfont {Courier 9}
12346 set uifont {Helvetica 9 bold}
12347 }
12348 set tabstop 8
12349 set findmergefiles 0
12350 set maxgraphpct 50
12351 set maxwidth 16
12352 set revlistorder 0
12353 set fastdate 0
12354 set uparrowlen 5
12355 set downarrowlen 5
12356 set mingaplen 100
12357 set cmitmode "patch"
12358 set wrapcomment "none"
12359 set showneartags 1
12360 set hideremotes 0
12361 set maxrefs 20
12362 set visiblerefs {"master"}
12363 set maxlinelen 200
12364 set showlocalchanges 1
12365 set limitdiffs 1
12366 set datetimeformat "%Y-%m-%d %H:%M:%S"
12367 set autoselect 1
12368 set autosellen 40
12369 set perfile_attrs 0
12370 set want_ttk 1
12372 if {[tk windowingsystem] eq "aqua"} {
12373 set extdifftool "opendiff"
12374 } else {
12375 set extdifftool "meld"
12376 }
12378 set colors {"#00ff00" red blue magenta darkgrey brown orange}
12379 if {[tk windowingsystem] eq "win32"} {
12380 set uicolor SystemButtonFace
12381 set uifgcolor SystemButtonText
12382 set uifgdisabledcolor SystemDisabledText
12383 set bgcolor SystemWindow
12384 set fgcolor SystemWindowText
12385 set selectbgcolor SystemHighlight
12386 set web_browser "cmd /c start"
12387 } else {
12388 set uicolor grey85
12389 set uifgcolor black
12390 set uifgdisabledcolor "#999"
12391 set bgcolor white
12392 set fgcolor black
12393 set selectbgcolor gray85
12394 if {[tk windowingsystem] eq "aqua"} {
12395 set web_browser "open"
12396 } else {
12397 set web_browser "xdg-open"
12398 }
12399 }
12400 set diffcolors {"#c30000" "#009800" blue}
12401 set diffbgcolors {"#fff3f3" "#f0fff0"}
12402 set diffcontext 3
12403 set mergecolors {red blue "#00ff00" purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
12404 set ignorespace 0
12405 set worddiff ""
12406 set markbgcolor "#e0e0ff"
12408 set headbgcolor "#00ff00"
12409 set headfgcolor black
12410 set headoutlinecolor black
12411 set remotebgcolor #ffddaa
12412 set tagbgcolor yellow
12413 set tagfgcolor black
12414 set tagoutlinecolor black
12415 set reflinecolor black
12416 set filesepbgcolor #aaaaaa
12417 set filesepfgcolor black
12418 set linehoverbgcolor #ffff80
12419 set linehoverfgcolor black
12420 set linehoveroutlinecolor black
12421 set mainheadcirclecolor yellow
12422 set workingfilescirclecolor red
12423 set indexcirclecolor "#00ff00"
12424 set circlecolors {white blue gray blue blue}
12425 set linkfgcolor blue
12427 set foundbgcolor yellow
12428 set currentsearchhitbgcolor orange
12430 # button for popping up context menus
12431 if {[tk windowingsystem] eq "aqua"} {
12432 set ctxbut <Button-2>
12433 } else {
12434 set ctxbut <Button-3>
12435 }
12437 catch {
12438 # follow the XDG base directory specification by default. See
12439 # http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html
12441 # XDG_CONFIG_HOME environment variable is set
12444 } else {
12445 # default XDG_CONFIG_HOME
12446 set config_file "~/.config/git/gitk"
12447 set config_file_tmp "~/.config/git/gitk-tmp"
12448 }
12450 # for backward compatibility use the old config file if it exists
12451 if {[file exists "~/.gitk"]} {
12452 set config_file "~/.gitk"
12453 set config_file_tmp "~/.gitk-tmp"
12456 }
12457 }
12459 }
12460 config_check_tmp_exists 50
12462 set config_variables {
12463 mainfont textfont uifont tabstop findmergefiles maxgraphpct maxwidth
12464 cmitmode wrapcomment autoselect autosellen showneartags maxrefs visiblerefs
12465 hideremotes showlocalchanges datetimeformat limitdiffs uicolor want_ttk
12466 bgcolor fgcolor uifgcolor uifgdisabledcolor colors diffcolors mergecolors
12467 markbgcolor diffcontext selectbgcolor foundbgcolor currentsearchhitbgcolor
12468 extdifftool perfile_attrs headbgcolor headfgcolor headoutlinecolor
12469 remotebgcolor tagbgcolor tagfgcolor tagoutlinecolor reflinecolor
12470 filesepbgcolor filesepfgcolor linehoverbgcolor linehoverfgcolor
12471 linehoveroutlinecolor mainheadcirclecolor workingfilescirclecolor
12472 indexcirclecolor circlecolors linkfgcolor circleoutlinecolor diffbgcolors
12473 web_browser
12474 }
12478 }
12481 eval font create mainfont [fontflags mainfont]
12482 eval font create mainfontbold [fontflags mainfont 1]
12485 eval font create textfont [fontflags textfont]
12486 eval font create textfontbold [fontflags textfont 1]
12489 eval font create uifont [fontflags uifont]
12493 setoptions
12495 # check that we can find a .git directory somewhere...
12496 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
12497 show_error {} . [mc "Cannot find a git repository here."]
12498 exit 1
12499 }
12501 set selecthead {}
12502 set selectheadid {}
12504 set revtreeargs {}
12505 set cmdline_files {}
12506 set i 0
12507 set revtreeargscmd {}
12510 "" { }
12511 "--" {
12513 break
12514 }
12515 "--select-commit=*" {
12517 }
12518 "--argscmd=*" {
12520 }
12521 default {
12523 }
12524 }
12525 incr i
12526 }
12529 set selecthead {}
12530 }
12533 # no -- on command line, but some arguments (other than --argscmd)
12534 if {[catch {
12539 # Unfortunately git rev-parse doesn't produce an error when
12540 # something is both a revision and a filename. To be consistent
12541 # with git log and git rev-list, check revtreeargs for filenames.
12544 show_error {} . [mc "Ambiguous argument '%s': both revision\
12546 exit 1
12547 }
12548 }
12549 } err]} {
12551 # so look for "fatal:".
12555 }
12557 exit 1
12558 }
12559 }
12561 set nullid "0000000000000000000000000000000000000000"
12562 set nullid2 "0000000000000000000000000000000000000001"
12563 set nullfile "/dev/null"
12566 if {![info exists have_ttk]} {
12567 set have_ttk [llength [info commands ::ttk::style]]
12568 }
12573 setttkstyle
12574 }
12576 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
12578 set show_notes {}
12580 set show_notes "--show-notes"
12581 }
12583 set appname "gitk"
12585 set runq {}
12586 set history {}
12587 set historyindex 0
12588 set fh_serial 0
12589 set nhl_names {}
12590 set highlight_paths {}
12591 set findpattern {}
12592 set searchdirn -forwards
12593 set boldids {}
12594 set boldnameids {}
12595 set diffelide {0 0}
12596 set markingmatches 0
12597 set linkentercount 0
12598 set need_redisplay 0
12599 set nrows_drawn 0
12600 set firsttabstop 0
12602 set nextviewnum 1
12603 set curview 0
12604 set selectedview 0
12605 set selectedhlview [mc "None"]
12606 set highlight_related [mc "None"]
12607 set highlight_files {}
12608 set viewfiles(0) {}
12609 set viewperm(0) 0
12610 set viewchanged(0) 0
12611 set viewargs(0) {}
12612 set viewargscmd(0) {}
12614 set selectedline {}
12615 set numcommits 0
12616 set loginstance 0
12617 set cmdlineok 0
12618 set stopped 0
12619 set stuffsaved 0
12620 set patchnum 0
12621 set lserial 0
12622 set hasworktree [hasworktree]
12623 set cdup {}
12624 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
12625 set cdup [exec git rev-parse --show-cdup]
12626 }
12627 set worktree [gitworktree]
12628 setcoords
12629 makewindow
12630 catch {
12631 image create photo gitlogo -width 16 -height 16
12633 image create photo gitlogominus -width 4 -height 2
12634 gitlogominus put #C00000 -to 0 0 4 2
12635 gitlogo copy gitlogominus -to 1 5
12636 gitlogo copy gitlogominus -to 6 5
12637 gitlogo copy gitlogominus -to 11 5
12638 image delete gitlogominus
12640 image create photo gitlogoplus -width 4 -height 4
12641 gitlogoplus put #008000 -to 1 0 3 4
12642 gitlogoplus put #008000 -to 0 1 4 3
12643 gitlogo copy gitlogoplus -to 1 9
12644 gitlogo copy gitlogoplus -to 6 9
12645 gitlogo copy gitlogoplus -to 11 9
12646 image delete gitlogoplus
12648 image create photo gitlogo32 -width 32 -height 32
12649 gitlogo32 copy gitlogo -zoom 2 2
12651 wm iconphoto . -default gitlogo gitlogo32
12652 }
12653 # wait for the window to become visible
12654 tkwait visibility .
12655 set_window_title
12656 update
12657 readrefs
12660 # create a view for the files/dirs specified on the command line
12661 set curview 1
12662 set selectedview 1
12663 set nextviewnum 2
12664 set viewname(1) [mc "Command line"]
12668 set viewperm(1) 0
12669 set viewchanged(1) 0
12670 set vdatemode(1) 0
12671 addviewmenu 1
12672 .bar.view entryconf [mca "&Edit view..."] -state normal
12673 .bar.view entryconf [mca "&Delete view"] -state normal
12674 }
12676 if {[info exists permviews]} {
12679 incr nextviewnum
12687 }
12688 }
12690 if {[tk windowingsystem] eq "win32"} {
12691 focus -force .
12692 }
12694 getcommits {}
12696 # Local variables:
12697 # mode: tcl
12698 # indent-tabs-mode: t
12699 # tab-width: 8
12700 # End: