| blob | 4b7b019857b48756e7d07337e26a4da98ab9e56a |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 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 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq
30 after idle dorunq
31 }
34 }
38 }
41 global runq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq
76 # script returns 1 if it wants to be readded
77 # file readers return 2 if they could do more straight away
81 }
84 }
87 }
89 after idle dorunq
90 }
91 }
94 global nr_unmerged
96 # find the list of unmerged files
103 exit 1
104 }
110 incr nr_unmerged
113 }
114 }
117 }
119 proc parseviewargs {n arglist} {
120 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
124 set glflags {}
125 set diffargs {}
126 set nextisval 0
127 set revargs {}
129 set allknown 1
130 set filtered 0
131 set i -1
133 incr i
136 set nextisval 0
137 continue
138 }
140 "-d" -
141 "--date-order" {
143 # remove from origargs in case we hit an unknown option
145 incr i -1
146 }
147 # These request or affect diff output, which we don't want.
148 # Some could be used to set our defaults for diff display.
155 lappend diffargs $arg
156 }
157 # These cause our parsing of git log's output to fail, or else
158 # they're options we want to set ourselves, so ignore them.
166 }
167 # These are harmless, and some are even useful
172 lappend glflags $arg
173 }
174 # These mean that we get a subset of the commits
182 lappend glflags $arg
183 }
184 # This appears to be the only one that has a value as a
185 # separate word following it
189 lappend glflags $arg
190 }
193 lappend revargs $arg
194 }
196 lappend revargs $arg
197 }
200 # git rev-parse doesn't understand --merge
201 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
202 }
203 # Other flag arguments including -<n>
208 # a flag argument that we don't recognize;
209 # that means we can't optimize
211 }
212 lappend glflags $arg
213 }
214 # Non-flag arguments specify commits or ranges of commits
215 default {
217 lappend revargs --gitk-symmetric-diff-marker
218 }
219 lappend revargs $arg
220 }
221 }
222 }
229 }
232 global vposids vnegids
235 set revs HEAD
236 }
238 # we get stdout followed by stderr in $err
239 # for an unknown rev, git rev-parse echoes it and then errors out
252 }
255 }
256 break
257 }
258 lappend badrev $line
259 }
260 }
263 }
273 lappend ret $id
276 }
277 }
281 lappend ret $id
284 }
285 lappend pos $id
286 }
287 incr sdm -1
288 }
292 }
294 # Start off a git log process and arrange to read its output
296 global startmsecs commitidx viewcomplete
297 global commfd leftover tclencoding
298 global viewargs viewargscmd viewfiles vfilelimit
299 global showlocalchanges commitinterest mainheadid
300 global progressdirn progresscoords proglastnc curview
301 global viewactive loginstance viewinstances vmergeonly
302 global pending_select mainheadid
303 global vcanopt vflags vrevs vorigargs
307 # these are set this way for the error exits
310 varcinit $view
319 }
321 }
328 global nr_unmerged
335 }
337 }
338 }
345 }
349 }
357 }
364 }
368 }
376 }
380 }
383 global commfd viewinstances leftover
387 catch {
390 }
392 nukefile $fd
395 }
397 }
399 proc getcommits {} {
400 global canv curview need_redisplay viewactive
402 initlayout
408 }
409 }
411 proc updatecommits {} {
412 global curview vcanopt vorigargs vfilelimit viewinstances
413 global viewactive viewcomplete loginstance tclencoding mainheadid
414 global startmsecs commfd showneartags showlocalchanges leftover
415 global mainheadid pending_select
416 global isworktree
417 global varcid vposids vnegids vflags vrevs
421 rereadrefs
424 dohidelocalchanges
425 }
427 dodiffindex
428 }
429 }
436 return
437 }
438 # note: getting the delta when negative refs change is hard,
439 # and could require multiple git log invocations, so in that
440 # case we ask git log for all the commits (not just the delta)
444 # take out positive refs that we asked for before or
445 # that we have already seen
450 lappend newrevs $rev
451 incr npos
452 }
454 lappend $newrevs $rev
455 }
456 }
460 }
464 }
470 return
471 }
474 }
482 }
489 getallcommits
490 }
491 }
493 proc reloadcommits {} {
494 global curview viewcomplete selectedline currentid thickerline
495 global showneartags treediffs commitinterest cached_commitrow
496 global progresscoords targetid
499 stop_rev_list $curview
501 adjustprogress
502 }
503 resetvarcs $curview
508 readrefs
509 changedrefs
511 getallcommits
512 }
513 clear_display
517 setcanvscroll
518 getcommits
520 }
522 # This makes a string representation of a positive integer which
523 # sorts as a string in numerical order
531 }
533 }
535 # Procedures used in reordering commits from git log (without
536 # --topo-order) into the order for display.
539 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
540 global vtokmod varcmod vrowmod varcix vlastins
554 }
557 global varcid varccommits parents children vseedcount ordertok
563 }
564 # some commits might have children but haven't been seen yet
567 }
570 }
573 }
575 }
577 # returns a list of the commits with no children
579 global vdownptr vleftptr varcstart
586 }
588 }
591 global varcid varctok parents children vdatemode
592 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
593 global commitdata commitinfo vseedcount varccommits vlastins
600 }
604 }
607 }
613 }
622 }
623 }
628 }
635 }
639 }
646 }
652 }
661 }
664 global varcid varcstart varccommits varctok
665 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
672 # "%" sorts before "0"...
682 }
692 }
693 }
696 global parents children varctok varcstart varccommits
697 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
706 lappend todo $a
711 }
712 }
713 }
714 incr ntot
721 }
722 }
724 }
731 }
737 }
746 }
747 }
752 }
754 continue
755 }
762 }
763 }
768 modify_arc $v $ka
769 }
771 modify_arc $v $b
772 }
779 }
782 }
785 }
794 }
799 }
806 }
810 }
812 }
813 }
818 }
819 }
821 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
822 }
824 # Fix up the graph after we have found out that in view $v,
825 # $p (a commit that we have already seen) is actually the parent
826 # of the last commit in arc $a.
828 global varcid varcstart varctok vupptr
832 splitvarc $p $v
834 }
835 # seeds always need to be renumbered
839 renumbervarc $pa $v
840 }
841 }
844 global cmitlisted children parents varcid varctok vtokmod
845 global varccommits ordertok commitidx numcommits curview
846 global targetid targetrow
848 readcommit $id
856 modify_arc $v $a
857 }
863 }
864 fix_reversal $p $a $v
868 setcanvscroll
871 incr targetrow
872 }
873 }
874 }
875 }
878 global varcid varccommits parents children cmitlisted
879 global commitidx varctok vtokmod targetid targetrow curview numcommits
886 return
887 }
894 # note we deliberately don't update varcstart($v) even if $i == 0
896 modify_arc $v $a $i
899 incr targetrow
900 }
901 }
902 setcanvscroll
903 drawvisible
904 }
907 global varcid varccommits parents children commitidx
908 global varctok vtokmod cmitlisted currentid selectedline
909 global targetid curview numcommits
914 return
915 }
921 return
922 }
932 }
933 modify_arc $v $a $i
935 unset currentid
936 unset selectedline
937 }
940 }
941 setcanvscroll
942 drawvisible
943 }
946 global children nullid nullid2
951 }
952 }
954 }
957 global children nullid nullid2
964 }
965 }
967 }
970 global varctok varcid
974 }
976 # This assumes that if lim is not given, the caller has checked that
977 # arc a's token is less than $vtokmod($v)
979 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
987 }
988 }
995 }
1000 }
1002 }
1004 undolayout $r
1005 }
1006 }
1009 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1010 global varcid vrownum varcorder varcix varccommits
1011 global vupptr vdownptr vleftptr varctok
1012 global displayorder parentlist curview cached_commitrow
1019 }
1021 }
1025 # go up the tree until we find something that has a row number,
1026 # or we get to a seed
1028 }
1043 }
1045 }
1049 # go down if possible
1052 # if not, go left, or go up until we can go left
1057 }
1059 }
1061 incr arcn
1066 }
1072 }
1073 }
1075 # Test whether view $v contains commit $id
1077 global varcid
1080 }
1082 # Return the row number for commit $id in the current view
1084 global varcid varccommits varcrow curview cached_commitrow
1085 global varctok vtokmod
1091 }
1094 update_arcrows $v
1095 }
1098 }
1103 }
1107 }
1109 # Returns 1 if a is on an earlier row than b, otherwise 0
1111 global varcid varctok curview
1117 }
1121 }
1123 }
1128 }
1140 }
1141 }
1143 }
1145 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1147 global vrownum curview commitidx displayorder parentlist
1148 global varccommits varcorder parents vrowmod varcrow
1149 global d_valid_start d_valid_end
1152 update_arcrows $curview
1153 }
1169 }
1171 lappend displayorder $id
1173 }
1177 lset displayorder $i $id
1179 incr i
1180 }
1181 }
1182 incr r $al
1183 }
1184 }
1187 global displayorder
1193 }
1195 }
1198 global varctok varccommits varcid parents children
1199 global cmitlisted commitidx commitinterest vtokmod
1208 # add p as a new commit
1209 incr missing_parents
1217 }
1220 modify_arc $v $b
1221 }
1227 }
1229 }
1230 }
1231 }
1235 }
1236 }
1237 }
1239 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1240 # Assumes we already have an arc for $rwid.
1242 global children parents varcid varctok vtokmod varccommits
1245 # make $rwid be $ch's parent in place of $id
1249 }
1251 # add $ch to $rwid's children and sort the list if necessary
1255 }
1256 # fix the graph after joining $id to $rwid
1258 fix_reversal $rwid $a $v
1259 # parentlist is wrong for the last element of arc $a
1260 # even if displayorder is right, hence the 3rd arg here
1262 }
1263 }
1266 global cmitlisted commitinterest leftover
1267 global commitidx commitdata vdatemode
1268 global parents children curview hlview
1269 global idpending ordertok
1270 global varccommits varcid varctok vtokmod vfilelimit
1273 # git log doesn't terminate the last commit with a null...
1276 }
1280 }
1281 global commfd viewcomplete viewactive viewname progresscoords
1282 global viewinstances
1287 }
1288 # set it blocking so we wait for the process to terminate
1294 }
1297 bad arguments to git log."
1299 append err \
1300 " (Note: arguments to gitk are passed to git log\
1301 to allow selection of commits to be displayed.)"
1302 }
1305 }
1306 error_popup $err
1307 }
1310 # Check if we have seen any ids listed as parents that haven't
1311 # appeared in the list
1312 closevarcs $view
1313 notbusy $view
1315 adjustprogress
1316 }
1318 run chewcommits
1319 }
1321 }
1329 break
1330 }
1337 }
1350 }
1352 }
1357 break
1358 }
1359 }
1360 }
1365 }
1367 exit 1
1368 }
1375 # when doing path limiting, so work around that here
1376 # by working out the rewritten parent with git rev-list
1377 # and if we already know about it, using the rewritten
1378 # parent as a substitute parent for $id's children.
1382 }]} {
1384 # use $rwid in place of $id
1385 rewrite_commit $view $id $rwid
1386 continue
1387 }
1388 }
1389 }
1395 }
1400 }
1412 }
1413 }
1415 # new arc
1417 }
1419 modify_arc $view $a
1420 }
1425 }
1436 }
1438 fix_reversal $p $a $view
1439 }
1440 }
1441 incr i
1442 }
1447 }
1449 }
1451 }
1453 global numcommits hlview
1457 run chewcommits
1458 }
1460 # we never actually get here...
1461 run vhighlightmore
1462 }
1465 }
1467 # update progress bar
1468 global progressdirn progresscoords proglastnc
1478 }
1481 }
1487 }
1489 }
1491 adjustprogress
1492 }
1493 }
1495 }
1497 proc chewcommits {} {
1498 global curview hlview viewcomplete
1499 global pending_select
1501 layoutmore
1503 global commitidx varctok
1504 global numcommits startmsecs
1505 global mainheadid nullid
1510 }
1512 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1513 #puts "overall $ms ms for $numcommits commits"
1514 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1517 }
1518 notbusy layout
1519 }
1521 }
1526 }
1529 global commitinfo cdate
1540 # should never happen...
1542 }
1553 }
1554 }
1556 # take the first non-blank line of the comment as the headline
1561 }
1566 }
1568 # git log indents the comment by 4 spaces;
1569 # if we got this via git cat-file, add the indentation
1572 append newcomment " "
1573 append newcomment $line
1575 }
1577 }
1580 }
1583 }
1586 global commitdata commitinfo
1591 readcommit $id
1594 }
1595 }
1597 }
1599 proc readrefs {} {
1600 global tagids idtags headids idheads tagobjid
1601 global otherrefids idotherrefs mainhead mainheadid
1605 }
1617 }
1623 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1624 # which is what we want since the former is the commit ID
1630 }
1636 }
1637 }
1641 catch {
1647 }
1648 }
1649 }
1650 }
1652 # skip over fake commits
1653 proc first_real_row {} {
1654 global nullid nullid2 numcommits
1659 break
1660 }
1661 }
1663 }
1665 # update things for a head moved to a child of its previous location
1667 global headids idheads
1672 }
1674 # update things when a head has been removed
1676 global headids idheads
1684 }
1685 }
1687 }
1696 tkwait window $top
1697 }
1699 proc error_popup msg {
1700 set w .error
1701 toplevel $w
1702 wm transient $w .
1703 show_error $w $w $msg
1704 }
1706 proc confirm_popup msg {
1707 global confirm_ok
1709 set w .confirm
1710 toplevel $w
1711 wm transient $w .
1719 tkwait window $w
1721 }
1723 proc setoptions {} {
1725 option add *Panedwindow.sashRelief raised startupFile
1726 option add *Button.font uifont startupFile
1727 option add *Checkbutton.font uifont startupFile
1728 option add *Radiobutton.font uifont startupFile
1729 option add *Menu.font uifont startupFile
1730 option add *Menubutton.font uifont startupFile
1731 option add *Label.font uifont startupFile
1732 option add *Message.font uifont startupFile
1733 option add *Entry.font uifont startupFile
1734 }
1736 proc makewindow {} {
1737 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1738 global tabstop
1739 global findtype findtypemenu findloc findstring fstring geometry
1740 global entries sha1entry sha1string sha1but
1741 global diffcontextstring diffcontext
1742 global ignorespace
1743 global maincursor textcursor curtextcursor
1744 global rowctxmenu fakerowmenu mergemax wrapcomment
1745 global highlight_files gdttype
1746 global searchstring sstring
1747 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1748 global headctxmenu progresscanv progressitem progresscoords statusw
1749 global fprogitem fprogcoord lastprogupdate progupdatepending
1750 global rprogitem rprogcoord
1751 global have_tk85
1753 menu .bar
1755 menu .bar.file
1761 menu .bar.edit
1765 menu .bar.view
1769 -state disabled
1771 .bar.view add separator
1775 menu .bar.help
1779 .bar.help configure
1780 . configure -menu .bar
1782 # the gui has upper and lower half, parts of a paned window.
1783 panedwindow .ctop -orient vertical
1785 # possibly use assumed geometry
1793 }
1795 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1797 frame .tf.histframe
1800 # create three canvases
1801 set cscroll .tf.histframe.csb
1802 set canv .tf.histframe.pwclist.canv
1803 canvas $canv \
1807 .tf.histframe.pwclist add $canv
1808 set canv2 .tf.histframe.pwclist.canv2
1809 canvas $canv2 \
1812 .tf.histframe.pwclist add $canv2
1813 set canv3 .tf.histframe.pwclist.canv3
1814 canvas $canv3 \
1817 .tf.histframe.pwclist add $canv3
1821 # a scroll bar to rule them
1825 lappend bglist $canv $canv2 $canv3
1828 # we have two button bars at bottom of top frame. Bar 1
1829 frame .tf.bar
1832 set sha1entry .tf.bar.sha1
1834 set sha1but .tf.bar.sha1label
1838 pack .tf.bar.sha1label -side left
1840 trace add variable sha1string write sha1change
1844 #define left_width 16
1845 #define left_height 16
1846 static unsigned char left_bits[] = {
1850 }
1852 #define right_width 16
1853 #define right_height 16
1854 static unsigned char right_bits[] = {
1858 }
1866 # Status label and progress bar
1867 set statusw .tf.bar.status
1871 set progresscanv .tf.bar.progress
1884 # build up the bottom bar of upper window
1889 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1896 trace add variable gdttype write gdttype_change
1900 set fstring .tf.lbar.findstring
1901 lappend entries $fstring
1903 trace add variable findstring write find_change
1907 trace add variable findtype write findcom_change
1911 trace add variable findloc write find_change
1912 pack .tf.lbar.findloc -side right
1913 pack .tf.lbar.findtype -side right
1916 # Finish putting the upper half of the viewer together
1920 .ctop add .tf
1924 # now build up the bottom
1925 panedwindow .pwbottom -orient horizontal
1927 # lower left, a text box over search bar, scroll bar to the right
1928 # if we know window height, then that will set the lower text height, otherwise
1929 # we set lower text height which will drive window height
1934 }
1935 frame .bleft.top
1936 frame .bleft.mid
1937 frame .bleft.bottom
1941 set sstring .bleft.top.sstring
1943 lappend entries $sstring
1944 trace add variable searchstring write incrsearch
1957 -textvariable diffcontextstring
1959 trace add variable diffcontextstring write diffcontextchange
1960 lappend entries .bleft.mid.diffcontext
1961 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
1965 set ctext .bleft.bottom.ctext
1972 }
1979 grid .bleft.bottom.sbhorizontal -sticky ew
1984 lappend bglist $ctext
1985 lappend fglist $ctext
2014 .pwbottom add .bleft
2017 # lower right
2018 frame .bright
2019 frame .bright.mode
2026 set cflist .bright.cfiles
2028 text $cflist \
2031 -font mainfont \
2036 lappend bglist $cflist
2037 lappend fglist $cflist
2041 $cflist tag configure highlight \
2045 .pwbottom add .bright
2046 .ctop add .pwbottom
2048 # restore window width & height if known
2053 }
2056 }
2058 }
2059 }
2062 set M1B M1
2064 set M1B Control
2065 }
2070 #bindall <B1-Motion> {selcanvline %W %x %y}
2080 allcanvs yview scroll $delta units
2081 }
2082 }
2083 }
2105 bindkey p "selnextline -1"
2106 bindkey n "selnextline 1"
2107 bindkey z "goback"
2108 bindkey x "goforw"
2109 bindkey i "selnextline -1"
2110 bindkey k "selnextline 1"
2111 bindkey j "goback"
2112 bindkey l "goforw"
2113 bindkey b prevfile
2119 bindkey f nextfile
2131 wm protocol . WM_DELETE_WINDOW doquit
2141 set maincursor [. cget -cursor]
2145 set rowctxmenu .rowctxmenu
2148 -command {diffvssel 0}
2150 -command {diffvssel 1}
2156 -command cherrypick
2158 -command resethead
2160 set fakerowmenu .fakerowmenu
2163 -command {diffvssel 0}
2165 -command {diffvssel 1}
2171 set headctxmenu .headctxmenu
2174 -command cobranch
2176 -command rmbranch
2178 global flist_menu
2179 set flist_menu .flistctxmenu
2182 -command {flist_hl 0}
2184 -command {flist_hl 1}
2186 -command {external_diff}
2187 }
2189 # Windows sends all mouse wheel events to the current focused window, not
2190 # the one where the mouse hovers, so bind those events here and redirect
2191 # to the correct window
2192 proc windows_mousewheel_redirector {W X Y D} {
2193 global canv canv2 canv3
2199 } else {
2200 catch {
2202 }
2203 }
2204 }
2205 }
2207 # mouse-2 makes all windows scan vertically, but only the one
2208 # the cursor is in scans horizontally
2209 proc canvscan {op w x y} {
2210 global canv canv2 canv3
2214 } else {
2216 }
2217 }
2218 }
2220 proc scrollcanv {cscroll f0 f1} {
2222 drawvisible
2223 flushhighlights
2224 }
2226 # when we make a key binding for the toplevel, make sure
2227 # it doesn't get triggered when that key is pressed in the
2228 # find string entry widget.
2229 proc bindkey {ev script} {
2230 global entries
2234 set escript [bind Entry <Key>]
2235 }
2238 }
2239 }
2241 # set the focus back to the toplevel for any click outside
2242 # the entry widgets
2243 proc click {w} {
2244 global ctext entries
2247 }
2248 focus .
2249 }
2251 # Adjust the progress bar for a change in requested extent or canvas size
2252 proc adjustprogress {} {
2253 global progresscanv progressitem progresscoords
2254 global fprogitem fprogcoord lastprogupdate progupdatepending
2255 global rprogitem rprogcoord
2264 set now [clock clicks -milliseconds]
2266 set progupdatepending 0
2267 update
2269 set progupdatepending 1
2271 }
2272 }
2274 proc doprogupdate {} {
2275 global lastprogupdate progupdatepending
2278 set progupdatepending 0
2279 set lastprogupdate [clock clicks -milliseconds]
2280 update
2281 }
2282 }
2284 proc savestuff {w} {
2285 global canv canv2 canv3 mainfont textfont uifont tabstop
2286 global stuffsaved findmergefiles maxgraphpct
2287 global maxwidth showneartags showlocalchanges
2288 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2289 global cmitmode wrapcomment datetimeformat limitdiffs
2290 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2291 global autoselect extdifftool
2294 if {![winfo viewable .]} return
2295 catch {
2296 set f [open "~/.gitk-new" w]
2331 }
2332 }
2335 file rename -force "~/.gitk-new" "~/.gitk"
2336 }
2337 set stuffsaved 1
2338 }
2340 proc resizeclistpanes {win w} {
2341 global oldwidth
2348 } else {
2353 set sash0 30
2354 }
2357 }
2362 }
2363 }
2364 }
2367 }
2369 }
2371 proc resizecdetpanes {win w} {
2372 global oldwidth
2377 } else {
2381 set sash0 45
2382 }
2385 }
2386 }
2388 }
2390 }
2392 proc allcanvs args {
2393 global canv canv2 canv3
2397 }
2399 proc bindall {event action} {
2400 global canv canv2 canv3
2404 }
2406 proc about {} {
2407 global uifont
2408 set w .about
2411 return
2412 }
2416 Gitk - a commit viewer for git
2418 Copyright © 2005-2008 Paul Mackerras
2420 Use and redistribute under the terms of the GNU General Public License"] \
2421 -justify center -aspect 400 -border 2 -bg white -relief groove
2428 }
2430 proc keys {} {
2431 set w .keys
2434 return
2435 }
2436 if {[tk windowingsystem] eq {aqua}} {
2437 set M1T Cmd
2438 } else {
2439 set M1T Ctrl
2440 }
2444 [mc "Gitk key bindings:"]
2447 [mc "<Home> Move to first commit"]
2448 [mc "<End> Move to last commit"]
2449 [mc "<Up>, p, i Move up one commit"]
2450 [mc "<Down>, n, k Move down one commit"]
2451 [mc "<Left>, z, j Go back in history list"]
2452 [mc "<Right>, x, l Go forward in history list"]
2453 [mc "<PageUp> Move up one page in commit list"]
2454 [mc "<PageDown> Move down one page in commit list"]
2461 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2462 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2463 [mc "<Delete>, b Scroll diff view up one page"]
2464 [mc "<Backspace> Scroll diff view up one page"]
2465 [mc "<Space> Scroll diff view down one page"]
2466 [mc "u Scroll diff view up 18 lines"]
2467 [mc "d Scroll diff view down 18 lines"]
2470 [mc "<Return> Move to next find hit"]
2471 [mc "/ Move to next find hit, or redo find"]
2472 [mc "? Move to previous find hit"]
2473 [mc "f Scroll diff view to next file"]
2480 [mc "<F5> Update"]
2481 " \
2482 -justify left -bg white -border 2 -relief groove
2489 }
2491 # Procedures for manipulating the file list window at the
2492 # bottom right of the overall window.
2494 proc treeview {w l openlevs} {
2495 global treecontents treediropen treeheight treeparent treeindex
2497 set ix 0
2498 set treeindex() 0
2499 set lev 0
2500 set prefix {}
2501 set prefixend -1
2502 set prefendstack {}
2503 set htstack {}
2504 set ht 0
2505 set treecontents() {}
2512 }
2519 incr lev -1
2520 }
2524 set ht 0
2536 set ht 1
2541 set str "\n"
2549 }
2550 incr lev
2551 }
2554 incr ht
2555 set str "\n"
2559 }
2561 }
2562 }
2570 }
2572 }
2574 proc linetoelt {l} {
2575 global treeheight treecontents
2577 set y 2
2578 set prefix {}
2579 while {1} {
2583 }
2584 set n 1
2589 incr y
2590 break
2591 }
2592 }
2594 }
2595 }
2596 }
2598 proc highlight_tree {y prefix} {
2599 global treeheight treecontents cflist
2605 }
2606 incr y
2609 }
2610 }
2612 }
2614 proc treeclosedir {w dir} {
2615 global treediropen treeheight treeparent treeindex
2627 }
2628 }
2630 proc treeopendir {w dir} {
2631 global treediropen treeheight treeparent treecontents treeindex
2638 set lev 0
2639 set str "\n"
2642 incr lev
2643 append str "\t"
2645 }
2660 } else {
2663 }
2664 }
2677 }
2679 }
2680 }
2682 proc treeclick {w x y} {
2683 global treediropen cmitmode ctext cflist cflist_top
2686 if {![info exists cflist_top]} return
2693 return
2694 }
2700 } else {
2702 }
2703 }
2705 proc setfilelist {id} {
2706 global treefilelist cflist
2709 }
2711 image create bitmap tri-rt -background black -foreground blue -data {
2712 #define tri-rt_width 13
2713 #define tri-rt_height 13
2714 static unsigned char tri-rt_bits[] = {
2715 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2716 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2717 0x00, 0x00};
2718 } -maskdata {
2719 #define tri-rt-mask_width 13
2720 #define tri-rt-mask_height 13
2721 static unsigned char tri-rt-mask_bits[] = {
2722 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2723 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2724 0x08, 0x00};
2725 }
2726 image create bitmap tri-dn -background black -foreground blue -data {
2727 #define tri-dn_width 13
2728 #define tri-dn_height 13
2729 static unsigned char tri-dn_bits[] = {
2730 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2731 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2732 0x00, 0x00};
2733 } -maskdata {
2734 #define tri-dn-mask_width 13
2735 #define tri-dn-mask_height 13
2736 static unsigned char tri-dn-mask_bits[] = {
2737 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2738 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2739 0x00, 0x00};
2740 }
2742 image create bitmap reficon-T -background black -foreground yellow -data {
2743 #define tagicon_width 13
2744 #define tagicon_height 9
2745 static unsigned char tagicon_bits[] = {
2746 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2747 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2748 } -maskdata {
2749 #define tagicon-mask_width 13
2750 #define tagicon-mask_height 9
2751 static unsigned char tagicon-mask_bits[] = {
2752 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2753 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2754 }
2755 set rectdata {
2756 #define headicon_width 13
2757 #define headicon_height 9
2758 static unsigned char headicon_bits[] = {
2759 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2760 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2761 }
2762 set rectmask {
2763 #define headicon-mask_width 13
2764 #define headicon-mask_height 9
2765 static unsigned char headicon-mask_bits[] = {
2766 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2767 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2768 }
2769 image create bitmap reficon-H -background black -foreground green \
2771 image create bitmap reficon-o -background black -foreground "#ddddff" \
2774 proc init_flist {first} {
2775 global cflist cflist_top difffilestart
2781 set cflist_top 1
2783 } else {
2784 catch {unset cflist_top}
2785 }
2787 set difffilestart {}
2788 }
2790 proc highlight_tag {f} {
2791 global highlight_paths
2795 return "bold"
2796 }
2797 }
2798 return {}
2799 }
2801 proc highlight_filelist {} {
2802 global cmitmode cflist
2811 }
2812 }
2813 } else {
2814 highlight_tree 2 {}
2815 }
2817 }
2819 proc unhighlight_filelist {} {
2820 global cflist
2825 }
2827 proc add_flist {fl} {
2828 global cflist
2834 }
2836 }
2838 proc sel_flist {w x y} {
2839 global ctext difffilestart cflist cflist_top cmitmode
2842 if {![info exists cflist_top]} return
2849 } else {
2851 }
2852 }
2854 proc pop_flist_menu {w X Y x y} {
2855 global ctext cflist cmitmode flist_menu flist_menu_file
2856 global treediffs diffids
2858 stopfinding
2864 } else {
2866 }
2868 set xdiffstate "normal"
2870 set xdiffstate "disabled"
2871 }
2872 # Disable "External diff" item in tree mode
2875 }
2877 proc flist_hl {only} {
2878 global flist_menu_file findstring gdttype
2883 } else {
2885 }
2886 set gdttype [mc "touching paths:"]
2887 }
2889 proc save_file_from_commit {filename output what} {
2890 global nullfile
2895 }
2897 return {}
2898 }
2900 }
2902 proc external_diff_get_one_file {diffid filename diffdir} {
2903 global nullid nullid2 nullfile
2904 global gitdir
2910 }
2912 }
2916 }
2920 }
2922 proc external_diff {} {
2923 global gitktmpdir nullid nullid2
2924 global flist_menu_file
2925 global diffids
2926 global diffnum
2927 global gitdir extdifftool
2930 # no reference commit given
2933 # diffing working copy with index
2936 # diffing index with HEAD
2937 set diffidfrom "HEAD"
2938 } else {
2939 # use first parent commit
2940 global parentlist selectedline
2942 }
2943 } else {
2946 }
2948 # make sure that several diffs wont collide
2949 if {![info exists gitktmpdir]} {
2951 [format ".gitk-tmp.%s" [pid]]]
2954 unset gitktmpdir
2955 return
2956 }
2957 set diffnum 0
2958 }
2959 incr diffnum
2963 return
2964 }
2966 # gather files to diff
2976 } else {
2979 }
2980 }
2981 }
2984 proc delete_at_eof {f dir} {
2989 }
2991 return 0
2992 }
2993 return 1
2994 }
2996 # Functions for adding and removing shell-type quoting
2998 proc shellquote {str} {
3001 }
3004 }
3007 }
3009 }
3011 proc shellarglist {l} {
3012 set str {}
3015 append str " "
3016 }
3018 }
3020 }
3022 proc shelldequote {str} {
3023 set ret {}
3024 set used -1
3025 while {1} {
3026 incr used
3030 break
3031 }
3037 }
3039 incr used
3043 error "unmatched single-quote"
3044 }
3047 continue
3048 }
3051 error "trailing backslash"
3052 }
3054 continue
3055 }
3056 # here ch == "\""
3057 while {1} {
3059 error "unmatched double-quote"
3060 }
3066 }
3068 incr used
3070 incr used
3071 }
3072 }
3074 }
3076 proc shellsplit {str} {
3077 set l {}
3078 while {1} {
3086 }
3088 }
3090 # Code to implement multiple views
3092 proc newview {ishighlight} {
3093 global nextviewnum newviewname newviewperm newishighlight
3094 global newviewargs revtreeargs viewargscmd newviewargscmd curview
3097 set top .gitkview
3100 return
3101 }
3107 }
3109 proc editview {} {
3110 global curview
3111 global viewname viewperm newviewname newviewperm
3112 global viewargs newviewargs viewargscmd newviewargscmd
3117 return
3118 }
3124 }
3126 proc vieweditor {top n title} {
3127 global newviewname newviewperm viewfiles bgcolor
3138 -text [mc "Commits to include (arguments to git log):"]
3145 -text [mc "Command to generate more commits to include:"]
3148 -background white
3152 -text [mc "Enter files and directories to include, one per line:"]
3159 }
3162 }
3172 }
3174 proc doviewmenu {m first cmd op argv} {
3179 break
3180 }
3181 }
3182 }
3184 proc allviewmenus {n op args} {
3185 # global viewhlmenu
3189 }
3191 proc newviewok {top n} {
3192 global nextviewnum newviewperm newviewname newishighlight
3193 global viewname viewfiles viewperm selectedview curview
3194 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3196 if {[catch {
3198 } err]} {
3202 return
3203 }
3204 set files {}
3209 }
3210 }
3212 # creating a new view
3213 incr nextviewnum
3222 } else {
3224 }
3225 } else {
3226 # editing an existing view
3234 }
3241 run reloadcommits
3242 }
3243 }
3244 }
3246 }
3248 proc delview {} {
3249 global curview viewperm hlview selectedhlview
3253 set selectedhlview [mc "None"]
3254 unset hlview
3255 }
3258 showview 0
3259 }
3261 proc addviewmenu {n} {
3262 global viewname viewhlmenu
3268 }
3270 proc showview {n} {
3271 global curview cached_commitrow ordertok
3272 global displayorder parentlist rowidlist rowisopt rowfinal
3273 global colormap rowtextx nextcolor canvxmax
3274 global numcommits viewcomplete
3275 global selectedline currentid canv canvy0
3276 global treediffs
3277 global pending_select mainheadid
3278 global commitidx
3279 global selectedview
3280 global hlview selectedhlview commitinterest
3283 set selid {}
3289 if {[info exists selectedline]} {
3294 }
3295 } elseif {[info exists pending_select]} {
3297 unset pending_select
3298 }
3299 unselectline
3300 normalline
3301 catch {unset treediffs}
3302 clear_display
3304 unset hlview
3305 set selectedhlview [mc "None"]
3306 }
3307 catch {unset commitinterest}
3308 catch {unset cached_commitrow}
3309 catch {unset ordertok}
3316 run refill_reflist
3320 }
3321 getcommits
3322 return
3323 }
3325 set displayorder {}
3326 set parentlist {}
3327 set rowidlist {}
3328 set rowisopt {}
3329 set rowfinal {}
3332 catch {unset colormap}
3333 catch {unset rowtextx}
3334 set nextcolor 0
3337 set row 0
3338 setcanvscroll
3339 set yf 0
3340 set row {}
3343 # try to get the selected row in the same position on the screen
3347 set ytop 0
3348 }
3350 }
3352 drawvisible
3360 } else {
3362 }
3363 } else {
3364 set row [first_real_row]
3367 }
3368 }
3371 show_status [mc "Reading commits..."]
3372 }
3374 show_status [mc "No commits selected"]
3375 }
3376 }
3378 # Stuff relating to the highlighting facility
3380 proc ishighlighted {id} {
3381 global vhighlights fhighlights nhighlights rhighlights
3385 }
3388 }
3391 }
3394 }
3395 return 0
3396 }
3398 proc bolden {row font} {
3399 global canv linehtag selectedline boldrows
3406 -outline {{}} -tags secsel \
3409 }
3410 }
3412 proc bolden_name {row font} {
3413 global canv2 linentag selectedline boldnamerows
3420 -outline {{}} -tags secsel \
3423 }
3424 }
3426 proc unbolden {} {
3427 global boldrows
3429 set stillbold {}
3433 } else {
3435 }
3436 }
3438 }
3440 proc addvhighlight {n} {
3441 global hlview viewcomplete curview vhl_done commitidx
3443 if {[info exists hlview]} {
3444 delvhighlight
3445 }
3449 }
3452 drawvisible
3453 }
3454 }
3456 proc delvhighlight {} {
3457 global hlview vhighlights
3459 if {![info exists hlview]} return
3460 unset hlview
3461 catch {unset vhighlights}
3462 unbolden
3463 }
3465 proc vhighlightmore {} {
3466 global hlview vhl_done commitidx vhighlights curview
3469 set vr [visiblerows]
3479 }
3481 }
3482 }
3483 }
3485 return 0
3486 }
3488 proc askvhighlight {row id} {
3489 global hlview vhighlights iddrawn
3494 }
3496 } else {
3498 }
3499 }
3501 proc hfiles_change {} {
3502 global highlight_files filehighlight fhighlights fh_serial
3503 global highlight_paths gdttype
3505 if {[info exists filehighlight]} {
3506 # delete previous highlights
3508 unset filehighlight
3509 catch {unset fhighlights}
3510 unbolden
3511 unhighlight_filelist
3512 }
3513 set highlight_paths {}
3515 incr fh_serial
3518 }
3519 }
3521 proc gdttype_change {name ix op} {
3522 global gdttype highlight_files findstring findpattern
3524 stopfinding
3528 set highlight_files {}
3529 hfiles_change
3530 }
3531 findcom_change
3532 } else {
3534 set findpattern {}
3535 findcom_change
3536 }
3538 hfiles_change
3539 }
3540 drawvisible
3541 }
3542 # enable/disable findtype/findloc menus too
3543 }
3545 proc find_change {name ix op} {
3546 global gdttype findstring highlight_files
3548 stopfinding
3550 findcom_change
3551 } else {
3554 hfiles_change
3555 }
3556 }
3557 drawvisible
3558 }
3560 proc findcom_change args {
3561 global nhighlights boldnamerows
3562 global findpattern findtype findstring gdttype
3564 stopfinding
3565 # delete previous highlights, if any
3568 }
3569 set boldnamerows {}
3570 catch {unset nhighlights}
3571 unbolden
3572 unmarkmatches
3574 set findpattern {}
3577 } else {
3578 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3581 }
3582 }
3584 proc makepatterns {l} {
3585 set ret {}
3590 } else {
3593 }
3594 }
3596 }
3598 proc do_file_hl {serial} {
3599 global highlight_files filehighlight highlight_paths gdttype fhl_list
3604 highlight_filelist
3608 } else {
3609 # must be "containing:", i.e. we're searching commit info
3610 return
3611 }
3616 set fhl_list {}
3617 drawvisible
3618 flushhighlights
3619 }
3621 proc flushhighlights {} {
3622 global filehighlight fhl_list
3624 if {[info exists filehighlight]} {
3625 lappend fhl_list {}
3628 }
3629 }
3631 proc askfilehighlight {row id} {
3632 global filehighlight fhighlights fhl_list
3637 }
3639 proc readfhighlight {} {
3640 global filehighlight fhighlights curview iddrawn
3641 global fhl_list find_dirn
3643 if {![info exists filehighlight]} {
3644 return 0
3645 }
3646 set nr 0
3654 }
3661 }
3663 }
3665 # strange...
3666 puts "oops, git diff-tree died"
3668 unset filehighlight
3669 return 0
3670 }
3671 if {[info exists find_dirn]} {
3672 run findmore
3673 }
3674 return 1
3675 }
3677 proc doesmatch {f} {
3678 global findtype findpattern
3684 } else {
3686 }
3687 }
3689 proc askfindhighlight {row id} {
3690 global nhighlights commitinfo iddrawn
3691 global findloc
3692 global markingmatches
3696 }
3698 set isbold 0
3699 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3704 set isbold 2
3705 break
3706 }
3707 set isbold 1
3708 }
3709 }
3715 }
3716 }
3719 }
3720 }
3722 }
3724 proc markrowmatches {row id} {
3725 global canv canv2 linehtag linentag commitinfo findloc
3736 }
3737 }
3743 }
3744 }
3745 }
3747 proc vrel_change {name ix op} {
3748 global highlight_related
3750 rhighlight_none
3752 run drawvisible
3753 }
3754 }
3756 # prepare for testing whether commits are descendents or ancestors of a
3757 proc rhighlight_sel {a} {
3758 global descendent desc_todo ancestor anc_todo
3759 global highlight_related
3761 catch {unset descendent}
3763 catch {unset ancestor}
3766 rhighlight_none
3767 run drawvisible
3768 }
3769 }
3771 proc rhighlight_none {} {
3772 global rhighlights
3774 catch {unset rhighlights}
3775 unbolden
3776 }
3778 proc is_descendent {a} {
3779 global curview children descendent desc_todo
3784 set leftover {}
3785 set done 0
3790 continue
3791 }
3797 set done 1
3798 }
3799 }
3800 }
3803 return
3804 }
3805 }
3808 }
3810 proc is_ancestor {a} {
3811 global curview parents ancestor anc_todo
3816 set leftover {}
3817 set done 0
3822 continue
3823 }
3829 set done 1
3830 }
3831 }
3832 }
3835 return
3836 }
3837 }
3840 }
3842 proc askrelhighlight {row id} {
3843 global descendent highlight_related iddrawn rhighlights
3844 global selectedline ancestor
3846 if {![info exists selectedline]} return
3847 set isbold 0
3852 }
3854 set isbold 1
3855 }
3860 }
3862 set isbold 1
3863 }
3864 }
3868 }
3869 }
3871 }
3873 # Graph layout functions
3875 proc shortids {ids} {
3876 set res {}
3882 } else {
3884 }
3885 }
3887 }
3889 proc ntimes {n o} {
3890 set ret {}
3895 }
3897 }
3899 }
3901 proc ordertoken {id} {
3902 global ordertok curview varcid varcstart varctok curview parents children
3903 global nullid nullid2
3907 }
3909 set todo {}
3910 while {1} {
3914 } else {
3916 }
3919 break
3920 }
3923 # it's a root
3925 break
3926 }
3929 } else {
3933 }
3935 }
3936 }
3941 }
3944 }
3946 # Work out where id should go in idlist so that order-token
3947 # values increase from left to right
3948 proc idcol {idlist id {i 0}} {
3951 set i 0
3952 }
3956 }
3958 incr i
3959 } else {
3963 }
3964 }
3966 }
3968 proc initlayout {} {
3969 global rowidlist rowisopt rowfinal displayorder parentlist
3970 global numcommits canvxmax canv
3971 global nextcolor
3972 global colormap rowtextx
3974 set numcommits 0
3975 set displayorder {}
3976 set parentlist {}
3977 set nextcolor 0
3978 set rowidlist {}
3979 set rowisopt {}
3980 set rowfinal {}
3982 catch {unset colormap}
3983 catch {unset rowtextx}
3984 setcanvscroll
3985 }
3987 proc setcanvscroll {} {
3988 global canv canv2 canv3 numcommits linespc canvxmax canvy0
3989 global lastscrollset lastscrollrows
3995 set lastscrollset [clock clicks -milliseconds]
3997 }
3999 proc visiblerows {} {
4000 global canv numcommits linespc
4008 set r0 0
4009 }
4014 }
4016 }
4018 proc layoutmore {} {
4019 global commitidx viewcomplete curview
4020 global numcommits pending_select selectedline curview
4021 global lastscrollset lastscrollrows commitinterest
4025 setcanvscroll
4026 }
4027 if {[info exists pending_select] &&
4030 }
4031 drawvisible
4032 }
4034 proc doshowlocalchanges {} {
4035 global curview mainheadid
4038 dodiffindex
4039 } else {
4041 }
4042 }
4044 proc dohidelocalchanges {} {
4045 global nullid nullid2 lserial curview
4049 }
4052 }
4053 incr lserial
4054 }
4056 # spawn off a process to do git diff-index --cached HEAD
4057 proc dodiffindex {} {
4058 global lserial showlocalchanges
4059 global isworktree
4062 incr lserial
4063 set fd [open "|git diff-index --cached HEAD" r]
4066 }
4068 proc readdiffindex {fd serial} {
4069 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
4071 set isdiff 1
4074 return 1
4075 }
4076 set isdiff 0
4077 }
4078 # we only need to see one line and we don't really care what it says...
4082 return 0
4083 }
4085 # now see if there are any local changes not checked in to the index
4086 set fd [open "|git diff-files" r]
4091 # add the line for the changes in the index to the graph
4092 set hl [mc "Local changes checked in to index but not committed"]
4097 }
4101 }
4102 return 0
4103 }
4105 proc readdifffiles {fd serial} {
4106 global mainheadid nullid nullid2 curview
4107 global commitinfo commitdata lserial
4109 set isdiff 1
4112 return 1
4113 }
4114 set isdiff 0
4115 }
4116 # we only need to see one line and we don't really care what it says...
4120 return 0
4121 }
4124 # add the line for the local diff to the graph
4125 set hl [mc "Local uncommitted changes, not checked in to index"]
4130 } else {
4132 }
4136 }
4137 return 0
4138 }
4140 proc nextuse {id row} {
4141 global curview children
4146 return -1
4147 }
4150 }
4151 }
4152 }
4155 }
4156 return -1
4157 }
4159 proc prevuse {id row} {
4160 global curview children
4162 set ret -1
4168 }
4169 }
4170 }
4172 }
4174 proc make_idlist {row} {
4175 global displayorder parentlist uparrowlen downarrowlen mingaplen
4176 global commitidx curview children
4180 set r 0
4181 }
4184 set ra 0
4185 }
4189 }
4191 set ids {}
4200 }
4201 }
4202 }
4210 }
4211 }
4212 }
4220 }
4221 }
4222 incr r
4228 }
4229 }
4230 }
4231 set idlist {}
4234 }
4236 }
4238 proc rowsequal {a b} {
4241 }
4244 }
4246 }
4248 proc makeupline {id row rend col} {
4249 global rowidlist uparrowlen downarrowlen mingaplen
4255 }
4258 }
4265 }
4266 }
4267 }
4269 proc layoutrows {row endrow} {
4270 global rowidlist rowisopt rowfinal displayorder
4271 global uparrowlen downarrowlen maxwidth mingaplen
4272 global children parentlist
4273 global commitidx viewcomplete curview
4276 set idlist {}
4282 }
4283 }
4285 }
4290 set final 1
4291 } else {
4299 # if not the first child, we have to insert a line going up
4302 }
4303 }
4304 }
4314 }
4315 }
4316 }
4323 }
4324 }
4334 }
4335 }
4343 }
4344 }
4345 }
4346 }
4347 }
4351 set final 0
4352 }
4356 lappend rowisopt 0
4362 }
4364 } else {
4371 }
4372 }
4374 }
4376 proc changedrow {row} {
4377 global displayorder iddrawn rowisopt need_redisplay
4386 }
4387 }
4388 }
4391 set need_redisplay 1
4392 }
4393 }
4395 proc insert_pad {row col npad} {
4396 global rowidlist
4405 }
4408 }
4410 proc optimize_rows {row col endrow} {
4411 global rowidlist rowisopt displayorder curview children
4414 set row 1
4415 }
4418 set haspad 0
4427 } else {
4428 set pprevidlist {}
4429 }
4430 set x0 -1
4431 set xm -1
4436 set haspad 1
4437 continue
4438 }
4442 set isarrow 0
4443 set z0 {}
4448 }
4449 }
4454 set isarrow 1
4455 }
4456 }
4459 set isarrow 1
4460 }
4461 # Looking at lines from this row to the previous row,
4462 # make them go straight up if they end in an arrow on
4463 # the previous row; otherwise make them go straight up
4464 # or at 45 degrees.
4466 # Line currently goes left too much;
4467 # insert pads in the previous row, then optimize it
4472 }
4480 }
4482 # Line currently goes right too much;
4483 # insert pads in this line
4489 set haspad 1
4490 }
4497 }
4498 }
4499 # avoid lines jigging left then immediately right
4502 incr x0
4505 }
4506 }
4508 # Find the first column that doesn't have a line going right
4514 # check if this is the link to the first child
4517 # it is, work out offset to child
4519 }
4520 }
4522 }
4523 # Insert a pad at that column as long as it has a line and
4524 # isn't the last column
4529 }
4530 }
4531 }
4532 }
4534 proc xc {row col} {
4535 global canvx0 linespc
4537 }
4539 proc yc {row} {
4540 global canvy0 linespc
4542 }
4544 proc linewidth {id} {
4545 global thickerline lthickness
4550 }
4552 }
4554 proc rowranges {id} {
4555 global curview children uparrowlen downarrowlen
4556 global rowidlist
4560 return {}
4561 }
4562 set ret {}
4567 if {![info exists prev]} {
4569 } else {
4571 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4572 }
4573 # see if the line extends the whole way from prevrow to row
4577 # it doesn't, see where it ends
4582 } else {
4585 incr r -1
4586 }
4588 # see where it starts up again
4593 } else {
4596 incr r
4597 }
4599 }
4600 }
4603 }
4606 }
4608 }
4610 proc drawlineseg {id row endrow arrowlow} {
4611 global rowidlist displayorder iddrawn linesegs
4612 global canv colormap linespc curview maxlinelen parentlist
4616 set arrowhigh 1
4617 while {1} {
4620 incr le -1
4621 break
4622 }
4626 set arrowhigh 0
4627 break
4628 }
4633 set arrowhigh 0
4634 }
4635 break
4636 }
4637 incr le
4638 }
4641 }
4643 set lines {}
4644 set i 0
4645 set joinhigh 0
4652 set joinhigh 1
4653 }
4654 break
4655 }
4656 incr i
4657 }
4658 }
4659 set joinlow 0
4664 set joinlow 1
4665 }
4666 }
4679 }
4680 } else {
4682 }
4690 set arrowlow 0
4691 }
4692 }
4700 }
4702 }
4705 # join parent line to first child
4716 } else {
4718 }
4726 }
4728 }
4730 } else {
4734 }
4742 } else {
4746 }
4748 }
4749 } else {
4755 }
4759 } else {
4760 # coalesce two pieces
4765 }
4769 }
4770 }
4774 }
4776 proc drawparentlinks {id row} {
4777 global rowidlist canv colormap curview parentlist
4778 global idpos linespc
4791 # rmx = right-most X coord used
4792 set rmx 0
4797 continue
4798 }
4802 }
4805 # drawlineseg will do this one for us
4806 continue
4807 }
4809 # should handle duplicated parents here...
4812 # if attaching to a vertical segment, draw a smaller
4813 # slant for visual distinctness
4817 } else {
4819 }
4821 # segment slants towards us already
4823 } else {
4828 }
4830 }
4831 } else {
4833 }
4838 }
4842 }
4843 }
4845 proc drawlines {id} {
4846 global canv
4849 }
4851 proc drawcmittext {id row col} {
4852 global linespc canv canv2 canv3 fgcolor curview
4853 global cmitlisted commitinfo rowidlist parentlist
4854 global rowtextx idpos idtags idheads idotherrefs
4855 global linehtag linentag linedtag selectedline
4856 global canvxmax boldrows boldnamerows fgcolor nullid nullid2
4858 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4861 set ofill red
4863 set ofill green
4864 } else {
4866 }
4875 # triangle pointing left for left-side commits
4881 } else {
4882 # triangle pointing right for right-side commits
4888 }
4899 }
4900 }
4901 }
4908 }
4913 set font mainfont
4914 set nfont mainfont
4918 set font mainfontbold
4921 set nfont mainfontbold
4922 }
4923 }
4933 }
4937 setcanvscroll
4938 }
4939 }
4941 proc drawcmitrow {row} {
4942 global displayorder rowidlist nrows_drawn
4943 global iddrawn markingmatches
4944 global commitinfo numcommits
4945 global filehighlight fhighlights findpattern nhighlights
4946 global hlview vhighlights
4947 global highlight_related rhighlights
4954 }
4957 }
4960 }
4963 }
4968 return
4969 }
4972 }
4976 incr nrows_drawn
4977 }
4980 }
4981 }
4983 proc drawcommits {row {endrow {}}} {
4984 global numcommits iddrawn displayorder curview need_redisplay
4985 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
4988 set row 0
4989 }
4992 }
4995 }
4999 set rl1 0
5000 }
5003 set ro1 0
5004 }
5008 }
5013 }
5015 }
5016 }
5019 }
5022 clear_display
5023 drawvisible
5024 }
5026 # make the lines join to already-drawn rows either side
5030 }
5035 }
5050 # see if this is the first child of any of its parents
5053 # make this line extend up to the child
5055 }
5056 }
5057 } else {
5059 }
5060 }
5061 }
5062 }
5064 proc undolayout {row} {
5065 global uparrowlen mingaplen downarrowlen
5066 global rowidlist rowisopt rowfinal need_redisplay
5070 set r 0
5071 }
5073 incr r -1
5077 set need_redisplay 1
5078 run drawvisible
5079 }
5080 }
5082 proc drawvisible {} {
5083 global canv linespc curview vrowmod selectedline targetrow targetid
5084 global need_redisplay cscroll numcommits
5094 if {[info exists targetid]} {
5098 # Fix up the scrollregion and change the scrolling position
5099 # now that our target row has moved.
5102 setcanvscroll
5110 set need_redisplay 1
5111 }
5112 } else {
5113 unset targetid
5114 }
5115 }
5121 }
5122 if {[info exists selectedline] &&
5125 } elseif {[info exists targetid]} {
5127 }
5128 if {[info exists targetrow]} {
5131 }
5133 }
5135 }
5137 proc clear_display {} {
5138 global iddrawn linesegs need_redisplay nrows_drawn
5139 global vhighlights fhighlights nhighlights rhighlights
5141 allcanvs delete all
5142 catch {unset iddrawn}
5143 catch {unset linesegs}
5144 catch {unset vhighlights}
5145 catch {unset fhighlights}
5146 catch {unset nhighlights}
5147 catch {unset rhighlights}
5148 set need_redisplay 0
5149 set nrows_drawn 0
5150 }
5152 proc findcrossings {id} {
5153 global rowidlist parentlist numcommits displayorder
5155 set cross {}
5156 set ccross {}
5160 }
5179 }
5180 }
5181 }
5182 }
5183 }
5185 }
5187 proc assigncolor {id} {
5188 global colormap colors nextcolor
5189 global parents children children curview
5195 } else {
5196 set kids {}
5197 }
5203 return
5204 }
5205 }
5206 set badcolors {}
5207 set origbad {}
5210 # delimiter between corner crossings and other crossings
5213 }
5217 }
5218 }
5221 }
5228 }
5233 }
5234 }
5235 }
5238 }
5239 }
5243 set nextcolor 0
5244 }
5246 }
5248 }
5250 proc bindline {t id} {
5251 global canv
5257 }
5259 proc drawtags {id x xt y1} {
5260 global idtags idheads idotherrefs mainhead
5261 global linespc lthickness
5262 global canv rowtextx curview fgcolor bgcolor
5264 set marks {}
5265 set ntags 0
5266 set nheads 0
5270 }
5274 }
5277 }
5280 }
5285 set xvals {}
5286 set wvals {}
5287 set i -1
5289 incr i
5292 } else {
5294 }
5298 }
5305 set font mainfont
5306 if {[incr ntags -1] >= 0} {
5307 # draw a tag
5313 } else {
5314 # draw a head or other ref
5315 if {[incr nheads -1] >= 0} {
5316 set col green
5318 set font mainfontbold
5319 }
5320 } else {
5321 set col "#ddddff"
5322 }
5333 }
5334 }
5341 }
5342 }
5344 }
5346 proc xcoord {i level ln} {
5347 global canvx0 xspc1 xspc2
5354 }
5356 }
5358 proc show_status {msg} {
5359 global canv fgcolor
5361 clear_display
5364 }
5366 # Don't change the text pane cursor if it is currently the hand cursor,
5367 # showing that we are over a sha1 ID link.
5368 proc settextcursor {c} {
5369 global ctext curtextcursor
5373 }
5375 }
5377 proc nowbusy {what {name {}}} {
5378 global isbusy busyname statusw
5380 if {[array names isbusy] eq {}} {
5381 . config -cursor watch
5382 settextcursor watch
5383 }
5388 }
5389 }
5391 proc notbusy {what} {
5392 global isbusy maincursor textcursor busyname statusw
5394 catch {
5399 }
5400 }
5401 if {[array names isbusy] eq {}} {
5404 }
5405 }
5407 proc findmatches {f} {
5408 global findtype findstring
5411 } else {
5416 }
5417 set matches {}
5418 set i 0
5423 }
5424 }
5426 }
5428 proc dofind {{dirn 1} {wrap 1}} {
5429 global findstring findstartline findcurline selectedline numcommits
5430 global gdttype filehighlight fh_serial find_dirn findallowwrap
5432 if {[info exists find_dirn]} {
5434 stopfinding
5435 }
5436 focus .
5438 if {![info exists selectedline]} {
5440 } else {
5442 }
5444 nowbusy finding [mc "Searching"]
5448 }
5451 run findmore
5452 }
5454 proc stopfinding {} {
5455 global find_dirn findcurline fprogcoord
5457 if {[info exists find_dirn]} {
5458 unset find_dirn
5459 unset findcurline
5460 notbusy finding
5461 set fprogcoord 0
5462 adjustprogress
5463 }
5464 }
5466 proc findmore {} {
5467 global commitdata commitinfo numcommits findpattern findloc
5468 global findstartline findcurline findallowwrap
5469 global find_dirn gdttype fhighlights fprogcoord
5470 global curview varcorder vrownum varccommits vrowmod
5472 if {![info exists find_dirn]} {
5473 return 0
5474 }
5475 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5477 set moretodo 0
5479 incr l
5481 set l 0
5482 }
5485 } else {
5488 }
5489 } else {
5492 }
5493 incr l -1
5496 } else {
5497 set lim -1
5499 }
5500 }
5503 set n 500
5504 set moretodo 1
5505 }
5508 }
5509 set found 0
5510 set domore 1
5524 }
5526 # shouldn't happen unless git log doesn't give all the commits...
5529 continue
5530 }
5533 }
5538 set found 1
5539 break
5540 }
5541 }
5543 }
5544 } else {
5552 }
5557 }
5560 break
5561 }
5564 set domore 0
5566 }
5567 }
5568 }
5569 }
5571 unset findcurline
5572 unset find_dirn
5573 notbusy finding
5574 set fprogcoord 0
5575 adjustprogress
5578 } else {
5579 bell
5580 }
5581 return 0
5582 }
5584 flushhighlights
5585 } else {
5587 }
5591 }
5593 adjustprogress
5595 }
5597 proc findselectline {l} {
5598 global findloc commentend ctext findcurline markingmatches gdttype
5600 set markingmatches 1
5604 # highlight the matches in the comments
5611 }
5612 }
5613 drawvisible
5614 }
5616 # mark the bits of a headline or author that match a find string
5617 proc markmatches {canv l str tag matches font row} {
5618 global selectedline
5636 }
5637 }
5638 }
5640 proc unmarkmatches {} {
5641 global markingmatches
5643 allcanvs delete matches
5644 set markingmatches 0
5645 stopfinding
5646 }
5648 proc selcanvline {w x y} {
5649 global canv canvy0 ctext linespc
5650 global rowtextx
5657 set l 0
5658 }
5663 }
5664 unmarkmatches
5666 }
5668 proc commit_descriptor {p} {
5669 global commitinfo
5672 }
5673 set l "..."
5676 }
5678 }
5680 # append some text to the ctext widget, and make any SHA1 ID
5681 # that we know about be a clickable link.
5682 proc appendwithlinks {text tags} {
5683 global ctext linknum curview pendinglinks
5692 incr e
5696 incr linknum
5697 }
5698 }
5700 proc setlink {id lk} {
5701 global curview ctext pendinglinks commitinterest
5708 } else {
5711 }
5712 }
5714 proc makelink {id} {
5715 global pendinglinks
5720 }
5722 }
5724 proc linkcursor {w inc} {
5725 global linkentercount curtextcursor
5729 } else {
5732 set linkentercount 0
5733 }
5734 }
5735 }
5737 proc viewnextline {dir} {
5738 global canv linespc
5746 set newtop 0
5749 }
5751 }
5753 # add a list of tag or branch names at position pos
5754 # returns the number of names inserted
5755 proc appendrefs {pos ids var} {
5759 return 0
5760 }
5763 set tags {}
5767 }
5768 }
5771 } else {
5773 set sep {}
5777 incr linknum
5782 set sep ", "
5783 }
5784 }
5787 }
5789 # called when we have finished computing the nearby tags
5790 proc dispneartags {delay} {
5791 global selectedline currentid showneartags tagphase
5794 after cancel dispnexttag
5796 after 200 dispnexttag
5797 set tagphase -1
5798 } else {
5799 after idle dispnexttag
5800 set tagphase 0
5801 }
5802 }
5804 proc dispnexttag {} {
5805 global selectedline currentid showneartags tagphase ctext
5809 0 {
5813 }
5814 }
5815 1 {
5819 }
5820 }
5821 2 {
5826 # turn "Branch" into "Branches"
5830 }
5831 }
5832 }
5833 }
5834 if {[incr tagphase] <= 2} {
5835 after idle dispnexttag
5836 }
5837 }
5839 proc make_secsel {l} {
5840 global linehtag linentag linedtag canv canv2 canv3
5855 }
5857 proc selectline {l isnew} {
5858 global canv ctext commitinfo selectedline
5859 global canvy0 linespc parents children curview
5860 global currentid sha1entry
5861 global commentend idtags linknum
5862 global mergemax numcommits pending_select
5863 global cmitmode showneartags allcommits
5864 global targetrow targetid lastscrollrows
5865 global autoselect
5867 catch {unset pending_select}
5869 normalline
5870 unsel_reflist
5871 stopfinding
5879 setcanvscroll
5880 }
5894 } else {
5898 }
5899 }
5903 } else {
5907 }
5908 }
5909 }
5912 set newtop 0
5913 }
5915 drawvisible
5916 }
5922 }
5929 }
5933 clear_ctext
5934 set linknum 0
5937 }
5947 }
5949 }
5951 set headers {}
5954 set np 0
5957 set tag mmax
5958 } else {
5960 }
5963 incr np
5964 }
5965 } else {
5968 }
5969 }
5973 }
5975 # make anything that looks like a SHA1 ID be a clickable link
5978 if {![info exists allcommits]} {
5979 getallcommits
5980 }
5991 dispneartags 1
5992 }
5997 }
6004 init_flist [mc "Comments"]
6009 } else {
6011 }
6012 }
6014 proc selfirstline {} {
6015 unmarkmatches
6016 selectline 0 1
6017 }
6019 proc sellastline {} {
6020 global numcommits
6021 unmarkmatches
6024 }
6026 proc selnextline {dir} {
6027 global selectedline
6028 focus .
6029 if {![info exists selectedline]} return
6031 unmarkmatches
6033 }
6035 proc selnextpage {dir} {
6036 global canv linespc selectedline numcommits
6040 set lpp 1
6041 }
6043 drawvisible
6044 if {![info exists selectedline]} return
6047 set l 0
6050 }
6051 unmarkmatches
6053 }
6055 proc unselectline {} {
6056 global selectedline currentid
6058 catch {unset selectedline}
6059 catch {unset currentid}
6060 allcanvs delete secsel
6061 rhighlight_none
6062 }
6064 proc reselectline {} {
6065 global selectedline
6067 if {[info exists selectedline]} {
6069 }
6070 }
6072 proc addtohistory {cmd} {
6073 global history historyindex curview
6078 return
6079 }
6083 } else {
6085 }
6086 incr historyindex
6088 .tf.bar.leftbut conf -state normal
6089 } else {
6090 .tf.bar.leftbut conf -state disabled
6091 }
6092 .tf.bar.rightbut conf -state disabled
6093 }
6095 proc godo {elt} {
6096 global curview
6102 }
6104 }
6106 proc goback {} {
6107 global history historyindex
6108 focus .
6111 incr historyindex -1
6113 .tf.bar.rightbut conf -state normal
6114 }
6116 .tf.bar.leftbut conf -state disabled
6117 }
6118 }
6120 proc goforw {} {
6121 global history historyindex
6122 focus .
6126 incr historyindex
6128 .tf.bar.leftbut conf -state normal
6129 }
6131 .tf.bar.rightbut conf -state disabled
6132 }
6133 }
6135 proc gettree {id} {
6136 global treefilelist treeidlist diffids diffmergeid treepending
6137 global nullid nullid2
6140 catch {unset diffmergeid}
6142 if {![info exists treepending]} {
6144 set cmd [list | git ls-files]
6146 set cmd [list | git ls-files --stage -t]
6147 } else {
6149 }
6151 return
6152 }
6158 }
6159 } else {
6161 }
6162 }
6164 proc gettreeline {gtf id} {
6165 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6167 set nl 0
6171 } else {
6180 }
6182 }
6184 }
6187 }
6189 unset treepending
6191 if {![info exists diffmergeid]} {
6193 }
6196 } else {
6198 }
6199 return 0
6200 }
6202 proc showfile {f} {
6203 global treefilelist treeidlist diffids nullid nullid2
6204 global ctext commentend
6209 return
6210 }
6214 return
6215 }
6216 } else {
6220 return
6221 }
6222 }
6231 settabs 0
6232 }
6234 proc getblobline {bf id} {
6235 global diffids cmitmode ctext
6239 return 0
6240 }
6242 set nl 0
6245 }
6247 # delete last newline
6250 return 0
6251 }
6254 }
6256 proc mergediff {id} {
6257 global diffmergeid mdifffd
6258 global diffids
6259 global parents
6260 global diffcontext
6261 global limitdiffs vfilelimit curview
6265 # this doesn't seem to actually affect anything...
6269 }
6272 return
6273 }
6279 }
6281 proc getmergediffline {mdf id np} {
6282 global diffmergeid ctext cflist mergemax
6283 global difffilestart mdifffd
6286 set nr 0
6291 return 0
6292 }
6294 # start of a new file
6305 # do nothing
6306 } else {
6307 # parse the prefix - one ' ', '-' or '+' for each parent
6308 set spaces {}
6309 set minuses {}
6310 set pluses {}
6311 set isbad 0
6320 } else {
6321 set isbad 1
6322 break
6323 }
6324 }
6325 set tags {}
6326 set num {}
6332 lappend tags mresult
6334 }
6337 set num "max"
6338 }
6340 }
6342 }
6343 }
6347 return 0
6348 }
6350 }
6352 proc startdiff {ids} {
6353 global treediffs diffids treepending diffmergeid nullid nullid2
6355 settabs 1
6357 catch {unset diffmergeid}
6361 if {![info exists treepending]} {
6363 }
6364 } else {
6366 }
6367 }
6369 proc path_filter {filter name} {
6374 return 1
6375 }
6376 } else {
6380 return 1
6381 }
6382 }
6383 }
6384 return 0
6385 }
6387 proc addtocflist {ids} {
6388 global treediffs
6392 }
6394 proc diffcmd {ids flags} {
6395 global nullid nullid2
6401 # comparing working directory with some specific revision
6405 } else {
6407 }
6408 } else {
6409 # comparing working directory with index
6412 lappend cmd -R
6413 }
6414 }
6418 # comparing index with specific revision
6421 } else {
6423 }
6424 } else {
6425 # comparing index with HEAD
6426 lappend cmd HEAD
6427 }
6428 } else {
6430 }
6432 }
6434 proc gettreediffs {ids} {
6435 global treediff treepending
6438 set treediff {}
6442 }
6444 proc gettreediffline {gdtf ids} {
6445 global treediff treediffs treepending diffids diffmergeid
6446 global cmitmode vfilelimit curview limitdiffs
6448 set nr 0
6455 }
6457 }
6458 }
6461 }
6464 set flist {}
6468 }
6469 }
6471 } else {
6473 }
6474 unset treepending
6478 if {![info exists diffmergeid]} {
6480 }
6481 } else {
6483 }
6484 return 0
6485 }
6487 # empty string or positive integer
6488 proc diffcontextvalidate {v} {
6490 }
6492 proc diffcontextchange {n1 n2 op} {
6493 global diffcontextstring diffcontext
6498 reselectline
6499 }
6500 }
6501 }
6503 proc changeignorespace {} {
6504 reselectline
6505 }
6507 proc getblobdiffs {ids} {
6508 global blobdifffd diffids env
6509 global diffinhdr treediffs
6510 global diffcontext
6511 global ignorespace
6512 global limitdiffs vfilelimit curview
6516 append cmd " -w"
6517 }
6520 }
6523 return
6524 }
6525 set diffinhdr 0
6529 }
6531 proc setinlist {var i val} {
6536 }
6539 } else {
6541 }
6542 }
6544 proc makediffhdr {fname ids} {
6545 global ctext curdiffstart treediffs
6550 }
6554 }
6556 proc getblobdiffline {bdf ids} {
6557 global diffids blobdifffd ctext curdiffstart
6558 global diffnexthead diffnextnote difffilestart
6559 global diffinhdr treediffs
6561 set nr 0
6566 return 0
6567 }
6569 # trim off "diff --git "
6571 set diffinhdr 1
6572 # start of a new file
6576 # If the name hasn't changed the length will be odd,
6577 # the middle char will be a space, and the two bits either
6578 # side will be a/name and b/name, or "a/name" and "b/name".
6579 # If the name has changed we'll get "rename from" and
6580 # "rename to" or "copy from" and "copy to" lines following this,
6581 # and we'll use them to get the filenames.
6582 # This complexity is necessary because spaces in the filename(s)
6583 # don't get escaped.
6589 continue
6590 }
6591 # unescape if quoted and chop off the a/ from the front
6594 } else {
6596 }
6599 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6602 set diffinhdr 0
6609 }
6613 }
6619 }
6622 # do nothing
6623 continue
6625 set diffinhdr 0
6626 continue
6627 }
6630 } else {
6637 } else {
6638 # "\ No newline at end of file",
6639 # or something else we don't recognize
6641 }
6642 }
6643 }
6647 return 0
6648 }
6650 }
6652 proc changediffdisp {} {
6653 global ctext diffelide
6657 }
6659 proc highlightfile {loc cline} {
6660 global ctext cflist cflist_top
6667 }
6669 proc prevfile {} {
6670 global difffilestart ctext cmitmode
6673 set prev 0.0
6674 set prevline 1
6679 return
6680 }
6682 incr prevline
6683 }
6685 }
6687 proc nextfile {} {
6688 global difffilestart ctext cmitmode
6692 set line 1
6694 incr line
6697 return
6698 }
6699 }
6700 }
6702 proc clear_ctext {{first 1.0}} {
6703 global ctext smarktop smarkbot
6704 global pendinglinks
6709 }
6712 }
6715 catch {unset pendinglinks}
6716 }
6717 }
6719 proc settabs {{firstab {}}} {
6720 global firsttabstop tabstop ctext have_tk85
6724 }
6725 set w [font measure textfont "0"]
6731 } else {
6733 }
6734 }
6736 proc incrsearch {name ix op} {
6737 global ctext searchstring searchdirn
6741 # no anchor set, use start of selection, or of visible area
6747 } else {
6749 }
6750 }
6755 }
6756 searchmarkvisible 1
6757 }
6758 }
6760 proc dosearch {} {
6761 global sstring ctext searchstring searchdirn
6765 set searchdirn -forwards
6771 set start "@0,0"
6772 }
6776 bell
6777 return
6778 }
6783 }
6784 }
6786 proc dosearchback {} {
6787 global sstring ctext searchstring searchdirn
6791 set searchdirn -backwards
6798 }
6802 bell
6803 return
6804 }
6809 }
6810 }
6812 proc searchmark {first last} {
6813 global ctext searchstring
6816 while {1} {
6821 }
6822 }
6824 proc searchmarkvisible {doall} {
6825 global ctext smarktop smarkbot
6830 # no overlap with previous
6834 } else {
6838 }
6842 }
6843 }
6844 }
6846 proc scrolltext {f0 f1} {
6847 global searchstring
6851 searchmarkvisible 0
6852 }
6853 }
6855 proc setcoords {} {
6856 global linespc charspc canvx0 canvy0
6857 global xspc1 xspc2 lthickness
6859 set linespc [font metrics mainfont -linespace]
6860 set charspc [font measure mainfont "m"]
6866 }
6868 proc redisplay {} {
6869 global canv
6870 global selectedline
6875 clear_display
6876 setcanvscroll
6878 drawvisible
6879 if {[info exists selectedline]} {
6882 }
6883 }
6885 proc parsefont {f n} {
6886 global fontattr
6891 set s 10
6894 }
6900 "normal" -
6902 "roman" -
6904 }
6905 }
6906 }
6908 proc fontflags {f {isbold 0}} {
6909 global fontattr
6914 }
6916 proc fontname {f} {
6917 global fontattr
6921 lappend n "bold"
6922 }
6924 lappend n "italic"
6925 }
6927 }
6929 proc incrfont {inc} {
6930 global mainfont textfont ctext canv cflist showrefstop
6931 global stopped entries fontattr
6933 unmarkmatches
6937 set s 1
6938 }
6942 set mainfont [fontname mainfont]
6946 set s 1
6947 }
6951 set textfont [fontname textfont]
6952 setcoords
6953 settabs
6954 redisplay
6955 }
6957 proc clearsha1 {} {
6958 global sha1entry sha1string
6961 }
6962 }
6964 proc sha1change {n1 n2 op} {
6965 global sha1string currentid sha1but
6968 set state disabled
6969 } else {
6970 set state normal
6971 }
6975 } else {
6977 }
6978 }
6980 proc gotocommit {} {
6981 global sha1string tagids headids curview varcid
6989 } else {
6996 return
6997 }
6999 }
7000 }
7001 }
7004 return
7005 }
7008 } else {
7010 }
7012 }
7014 proc lineenter {x y id} {
7015 global hoverx hovery hoverid hovertimer
7016 global commitinfo canv
7022 if {[info exists hovertimer]} {
7024 }
7025 set hovertimer [after 500 linehover]
7027 }
7029 proc linemotion {x y id} {
7030 global hoverx hovery hoverid hovertimer
7035 if {[info exists hovertimer]} {
7037 }
7038 set hovertimer [after 500 linehover]
7039 }
7040 }
7042 proc lineleave {id} {
7043 global hoverid hovertimer canv
7047 if {[info exists hovertimer]} {
7049 unset hovertimer
7050 }
7051 unset hoverid
7052 }
7053 }
7055 proc linehover {} {
7056 global hoverx hovery hoverid hovertimer
7057 global canv linespc lthickness
7058 global commitinfo
7071 -fill \#ffff80 -outline black -width 1 -tags hover]
7074 -font mainfont]
7076 }
7078 proc clickisonarrow {id y} {
7079 global lthickness
7088 }
7089 }
7090 return {}
7091 }
7093 proc arrowjump {id n y} {
7094 global canv
7096 # 1 <-> 2, 3 <-> 4, etc...
7106 set yfrac 0
7107 }
7109 }
7111 proc lineclick {x y id isnew} {
7112 global ctext commitinfo children canv thickerline curview
7115 unmarkmatches
7116 unselectline
7117 normalline
7119 # draw this line thicker than normal
7127 }
7131 return
7132 }
7136 }
7137 # fill the details pane with info about this line
7139 clear_ctext
7140 settabs 0
7152 set i 0
7154 incr i
7164 }
7165 }
7167 init_flist {}
7168 }
7170 proc normalline {} {
7171 global thickerline
7172 if {[info exists thickerline]} {
7174 unset thickerline
7176 }
7177 }
7179 proc selbyid {id} {
7180 global curview
7183 }
7184 }
7186 proc mstime {} {
7187 global startmstime
7188 if {![info exists startmstime]} {
7189 set startmstime [clock clicks -milliseconds]
7190 }
7192 }
7194 proc rowmenu {x y id} {
7195 global rowctxmenu selectedline rowmenuid curview
7196 global nullid nullid2 fakerowmenu mainhead
7198 stopfinding
7200 if {![info exists selectedline]
7202 set state disabled
7203 } else {
7204 set state normal
7205 }
7210 } else {
7212 }
7213 } else {
7215 }
7220 }
7222 proc diffvssel {dirn} {
7223 global rowmenuid selectedline
7225 if {![info exists selectedline]} return
7229 } else {
7232 }
7235 }
7237 proc doseldiff {oldid newid} {
7238 global ctext
7239 global commitinfo
7242 clear_ctext
7243 init_flist [mc "Top"]
7258 }
7260 proc mkpatch {} {
7261 global rowmenuid currentid commitinfo patchtop patchnum
7263 if {![info exists currentid]} return
7268 set top .patch
7297 incr patchnum
7307 }
7309 proc mkpatchrev {} {
7310 global patchtop
7316 foreach e [list fromsha1 fromhead tosha1 tohead] \
7322 }
7323 }
7325 proc mkpatchgo {} {
7326 global patchtop nullid nullid2
7332 # trim off the initial "|"
7337 }
7339 unset patchtop
7340 }
7342 proc mkpatchcan {} {
7343 global patchtop
7346 unset patchtop
7347 }
7349 proc mktag {} {
7350 global rowmenuid mktagtop commitinfo
7352 set top .maketag
7378 }
7380 proc domktag {} {
7381 global mktagtop env tagids idtags
7386 error_popup [mc "No tag name specified"]
7387 return
7388 }
7391 return
7392 }
7393 if {[catch {
7395 } err]} {
7397 return
7398 }
7404 dispneartags 0
7405 run refill_reflist
7406 }
7408 proc redrawtags {id} {
7409 global canv linehtag idpos currentid curview
7410 global canvxmax iddrawn
7423 setcanvscroll
7424 }
7427 }
7428 }
7430 proc mktagcan {} {
7431 global mktagtop
7434 unset mktagtop
7435 }
7437 proc mktaggo {} {
7438 domktag
7439 mktagcan
7440 }
7442 proc writecommit {} {
7443 global rowmenuid wrcomtop commitinfo wrcomcmd
7445 set top .writecommit
7475 }
7477 proc wrcomgo {} {
7478 global wrcomtop
7485 }
7487 unset wrcomtop
7488 }
7490 proc wrcomcan {} {
7491 global wrcomtop
7494 unset wrcomtop
7495 }
7497 proc mkbranch {} {
7498 global rowmenuid mkbrtop
7500 set top .makebranch
7521 }
7523 proc mkbrgo {top} {
7524 global headids idheads
7529 error_popup [mc "Please specify a name for the new branch"]
7530 return
7531 }
7533 nowbusy newbranch
7534 update
7535 if {[catch {
7537 } err]} {
7538 notbusy newbranch
7540 } else {
7544 notbusy newbranch
7546 dispneartags 0
7547 run refill_reflist
7548 }
7549 }
7551 proc cherrypick {} {
7552 global rowmenuid curview
7553 global mainhead mainheadid
7555 set oldhead [exec git rev-parse HEAD]
7558 set ok [confirm_popup [mc "Commit %s is already\
7559 included in branch %s -- really re-apply it?" \
7562 }
7563 nowbusy cherrypick [mc "Cherry-picking"]
7564 update
7565 # Unfortunately git-cherry-pick writes stuff to stderr even when
7566 # no error occurs, and exec takes that as an indication of error...
7568 notbusy cherrypick
7570 return
7571 }
7572 set newhead [exec git rev-parse HEAD]
7574 notbusy cherrypick
7575 error_popup [mc "No changes committed"]
7576 return
7577 }
7585 }
7589 }
7590 notbusy cherrypick
7591 }
7593 proc resethead {} {
7594 global mainhead rowmenuid confirm_ok resettype
7596 set confirm_ok 0
7597 set w ".confirmreset"
7603 -justify center -aspect 1000
7608 set resettype mixed
7610 -text [mc "Soft: Leave working tree and index untouched"]
7613 -text [mc "Mixed: Leave working tree untouched, reset index"]
7616 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7626 if {[catch {set fd [open \
7629 } else {
7630 dohidelocalchanges
7632 nowbusy reset [mc "Resetting"]
7634 }
7635 }
7637 proc readresetstat {fd} {
7638 global mainhead mainheadid showlocalchanges rprogcoord
7643 adjustprogress
7644 }
7645 return 1
7646 }
7647 set rprogcoord 0
7648 adjustprogress
7649 notbusy reset
7652 }
7654 set newhead [exec git rev-parse HEAD]
7661 }
7663 doshowlocalchanges
7664 }
7665 return 0
7666 }
7668 # context menu for a head
7669 proc headmenu {x y id head} {
7670 global headmenuid headmenuhead headctxmenu mainhead
7672 stopfinding
7675 set state normal
7677 set state disabled
7678 }
7682 }
7684 proc cobranch {} {
7685 global headmenuid headmenuhead mainhead headids
7686 global showlocalchanges mainheadid
7688 # check the tree is clean first??
7690 nowbusy checkout [mc "Checking out"]
7691 update
7692 dohidelocalchanges
7693 if {[catch {
7695 } err]} {
7696 notbusy checkout
7698 } else {
7699 notbusy checkout
7704 }
7707 }
7709 dodiffindex
7710 }
7711 }
7713 proc rmbranch {} {
7714 global headmenuid headmenuhead mainhead
7715 global idheads
7719 # this check shouldn't be needed any more...
7721 error_popup [mc "Cannot delete the currently checked-out branch"]
7722 return
7723 }
7726 # the stuff on this branch isn't on any other branch
7727 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7729 }
7730 nowbusy rmbranch
7731 update
7733 notbusy rmbranch
7735 return
7736 }
7740 notbusy rmbranch
7741 dispneartags 0
7742 run refill_reflist
7743 }
7745 # Display a list of tags and heads
7746 proc showrefs {} {
7747 global showrefstop bgcolor fgcolor selectbgcolor
7748 global bglist fglist reflistfilter reflist maincursor
7750 set top .showrefs
7754 refill_reflist
7755 return
7756 }
7763 -spacing1 1 -spacing3 1 -state disabled
7774 set reflistfilter "*"
7775 trace add variable reflistfilter write reflistfilter_change
7786 set reflist {}
7787 refill_reflist
7788 }
7790 proc sel_reflist {w x y} {
7791 global showrefstop reflist headids tagids otherrefids
7801 }
7803 }
7805 proc unsel_reflist {} {
7806 global showrefstop
7810 }
7812 proc reflistfilter_change {n1 n2 op} {
7813 global reflistfilter
7815 after cancel refill_reflist
7816 after 200 refill_reflist
7817 }
7819 proc refill_reflist {} {
7820 global reflist reflistfilter showrefstop headids tagids otherrefids
7821 global curview commitinterest
7824 set refs {}
7825 foreach n [array names headids] {
7829 } else {
7831 }
7832 }
7833 }
7834 foreach n [array names tagids] {
7838 } else {
7840 }
7841 }
7842 }
7843 foreach n [array names otherrefids] {
7847 } else {
7849 }
7850 }
7851 }
7859 set i 0
7860 set j 0
7869 }
7870 } else {
7871 set cmp -1
7872 }
7873 } else {
7874 set cmp 1
7875 }
7877 -1 {
7879 incr i
7880 }
7881 0 {
7882 incr i
7883 incr j
7884 }
7885 1 {
7890 incr j
7891 }
7892 }
7893 }
7895 # delete last newline
7898 }
7900 # Stuff for finding nearby tags
7901 proc getallcommits {} {
7902 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7903 global idheads idtags idotherrefs allparents tagobjid
7905 if {![info exists allcommits]} {
7906 set nextarc 0
7907 set allcommits 0
7908 set seeds {}
7909 set allcwait 0
7910 set cachedarcs 0
7911 set allccache [file join [gitdir] "gitk.cache"]
7912 if {![catch {
7914 set allcwait 1
7916 }]} return
7917 }
7920 return
7921 }
7922 set cmd [list | git rev-list --parents]
7925 set ids "--all"
7926 } else {
7927 set refs [concat [array names idheads] [array names idtags] \
7928 [array names idotherrefs]]
7929 set ids {}
7930 set tagobjs {}
7931 foreach name [array names tagobjid] {
7933 }
7938 }
7939 }
7943 }
7944 }
7945 }
7949 incr allcommits
7950 nowbusy allcommits
7952 } else {
7953 dispneartags 0
7954 }
7955 }
7957 # Since most commits have 1 parent and 1 child, we group strings of
7958 # such commits into "arcs" joining branch/merge points (BMPs), which
7959 # are commits that either don't have 1 parent or don't have 1 child.
7960 #
7961 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
7962 # arcout(id) - outgoing arcs for BMP
7963 # arcids(a) - list of IDs on arc including end but not start
7964 # arcstart(a) - BMP ID at start of arc
7965 # arcend(a) - BMP ID at end of arc
7966 # growing(a) - arc a is still growing
7967 # arctags(a) - IDs out of arcids (excluding end) that have tags
7968 # archeads(a) - IDs out of arcids (excluding end) that have heads
7969 # The start of an arc is at the descendent end, so "incoming" means
7970 # coming from descendents, and "outgoing" means going towards ancestors.
7972 proc getallclines {fd} {
7973 global allparents allchildren idtags idheads nextarc
7974 global arcnos arcids arctags arcout arcend arcstart archeads growing
7975 global seeds allcommits cachedarcs allcupdate
7977 set nid 0
7981 # seen it already
7982 continue
7983 }
7984 set cachedarcs 0
7991 } else {
7997 }
8000 }
8002 # seen parent already
8005 }
8009 }
8012 continue
8013 }
8014 }
8019 }
8021 set ao {}
8024 set a [incr nextarc]
8033 # seen it already, may need to make a new branch
8036 }
8040 }
8042 }
8044 }
8046 global cached_dheads cached_dtags cached_atags
8047 catch {unset cached_dheads}
8048 catch {unset cached_dtags}
8049 catch {unset cached_atags}
8050 }
8053 }
8054 set cacheok 1
8055 if {[catch {
8058 } err]} {
8059 # got an error reading the list of commits
8060 # if we were updating, try rereading the whole thing again
8062 incr allcommits -1
8064 return
8065 }
8066 error_popup "[mc "Error reading commit topology information;\
8067 branch and preceding/following tag information\
8069 set cacheok 0
8070 }
8071 if {[incr allcommits -1] == 0} {
8072 notbusy allcommits
8074 run savecache
8075 }
8076 }
8077 dispneartags 0
8078 return 0
8079 }
8081 proc recalcarc {a} {
8082 global arctags archeads arcids idtags idheads
8084 set at {}
8085 set ah {}
8089 }
8092 }
8093 }
8096 }
8098 proc splitarc {p} {
8099 global arcnos arcids nextarc arctags archeads idtags idheads
8100 global arcstart arcend arcout allparents growing
8105 return
8106 }
8111 return
8112 }
8113 set na [incr nextarc]
8116 } else {
8120 }
8130 }
8135 } else {
8138 }
8139 }
8141 # reconstruct tags and heads lists
8145 } else {
8148 }
8149 }
8151 # Update things for a new commit added that is a child of one
8152 # existing commit. Used when cherry-picking.
8153 proc addnewchild {id p} {
8154 global allparents allchildren idtags nextarc
8155 global arcnos arcids arctags arcout arcend arcstart archeads growing
8156 global seeds allcommits
8164 set a [incr nextarc]
8172 }
8175 }
8177 # This implements a cache for the topology information.
8178 # The cache saves, for each arc, the start and end of the arc,
8179 # the ids on the arc, and the outgoing arcs from the end.
8180 proc readcache {f} {
8181 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8182 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8183 global allcwait
8189 }
8190 if {[catch {
8192 # finish reading the cache and setting up arctags, etc.
8196 foreach id [array names idtags] {
8202 }
8203 }
8204 }
8205 foreach id [array names idheads] {
8211 }
8212 }
8213 }
8217 }
8218 }
8219 set allcwait 0
8220 } else {
8230 }
8234 } else {
8238 }
8239 }
8245 }
8248 }
8251 }
8253 }
8254 } err]} {
8256 return 0
8257 }
8259 getallcommits
8260 }
8262 }
8264 proc getcache {f} {
8265 global nextarc cachedarcs possible_seeds
8267 if {[catch {
8270 # make sure it's an integer
8273 set nextarc 0
8274 set possible_seeds {}
8276 } err]} {
8278 }
8279 return 0
8280 }
8282 proc dropcache {err} {
8283 global allcwait nextarc cachedarcs seeds
8286 foreach v {arcnos arcout arcids arcstart arcend growing \
8287 arctags archeads allparents allchildren} {
8290 }
8291 set allcwait 0
8292 set nextarc 0
8293 set cachedarcs 0
8294 set seeds {}
8295 getallcommits
8296 }
8298 proc writecache {f} {
8299 global cachearc cachedarcs allccache
8300 global arcstart arcend arcnos arcids arcout
8306 }
8307 if {[catch {
8311 } else {
8313 }
8314 }
8315 } err]} {
8319 return 0
8320 }
8325 return 0
8326 }
8327 return 1
8328 }
8330 proc savecache {} {
8331 global nextarc cachedarcs cachearc allccache
8334 set cachearc 0
8336 catch {
8340 }
8341 }
8343 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8344 # or 0 if neither is true.
8345 proc anc_or_desc {a b} {
8346 global arcout arcstart arcend arcnos cached_isanc
8349 # Both are on the same arc(s); either both are the same BMP,
8350 # or if one is not a BMP, the other is also not a BMP or is
8351 # the BMP at end of the arc (and it only has 1 incoming arc).
8352 # Or both can be BMPs with no incoming arcs.
8354 return 0
8355 }
8361 return 1
8362 } else {
8363 return -1
8364 }
8365 }
8371 } else {
8372 set aend {}
8373 }
8375 } else {
8377 }
8382 } else {
8383 set bend {}
8384 }
8386 } else {
8388 }
8390 return 1
8391 }
8393 return -1
8394 }
8397 return 1
8398 }
8399 }
8402 return -1
8403 }
8405 return 0
8406 }
8407 }
8415 continue
8416 }
8422 return 1
8426 return -1
8427 }
8433 }
8434 }
8435 }
8438 return 0
8439 }
8443 # and returns 0 if so and 1 if not.
8444 # If we subsequently discover a tag on such a growing tip, and that
8447 # isn't a good choice to display as a descendent tag of
8451 #
8452 proc is_certain {desc anc} {
8453 global arcnos arcout arcstart arcend growing problems
8455 set certain {}
8457 # tags on the same arc are certain
8459 return 1
8460 }
8465 }
8466 }
8469 } else {
8472 }
8474 return 1
8475 }
8478 set nnh 1
8479 set ngrowanc 0
8483 incr nnh -1
8484 }
8490 incr ngrowanc
8491 }
8492 } else {
8499 incr nnh -1
8500 }
8502 incr ngrowanc -1
8503 }
8513 incr nnh -1
8514 }
8516 incr ngrowanc -1
8517 }
8519 }
8520 }
8521 }
8522 }
8523 }
8524 }
8528 } else {
8531 incr nnh
8532 }
8533 }
8534 }
8535 }
8536 foreach x [array names growanc] {
8538 return 0
8539 }
8540 return 0
8541 }
8542 return 1
8543 }
8545 proc validate_arctags {a} {
8546 global arctags idtags
8548 set i -1
8551 incr i
8554 incr i -1
8555 }
8556 }
8558 }
8560 proc validate_archeads {a} {
8561 global archeads idheads
8563 set i -1
8566 incr i
8569 incr i -1
8570 }
8571 }
8573 }
8575 # Return the list of IDs that have tags that are descendents of id,
8576 # ignoring IDs that are descendents of IDs already reported.
8577 proc desctags {id} {
8578 global arcnos arcstart arcids arctags idtags allparents
8579 global growing cached_dtags
8582 return {}
8583 }
8584 set t1 [clock clicks -milliseconds]
8587 # part-way along an arc; check that arc first
8592 set tid {}
8597 }
8600 }
8601 }
8605 }
8606 }
8609 }
8614 set nc 1
8620 incr nc -1
8621 }
8622 # ignore tags on starting node
8626 set ta 1
8629 set ta 1
8630 }
8631 }
8638 }
8639 }
8648 }
8651 }
8653 incr nc -1
8654 }
8656 }
8657 }
8658 }
8663 incr nc
8664 }
8665 }
8666 }
8667 }
8668 set tags {}
8669 foreach id [array names tagloc] {
8674 }
8675 }
8676 }
8677 }
8678 set t2 [clock clicks -milliseconds]
8681 # remove tags that are descendents of other tags
8689 incr j -1
8690 incr i -1
8693 incr i -1
8694 break
8695 }
8696 }
8697 }
8699 if {[array names growing] ne {}} {
8700 # graph isn't finished, need to check if any tag could get
8701 # eclipsed by another tag coming later. Simply ignore any
8702 # tags that could later get eclipsed.
8703 set ctags {}
8707 }
8708 }
8711 } else {
8713 }
8714 } else {
8716 }
8717 set t3 [clock clicks -milliseconds]
8721 }
8723 }
8725 proc anctags {id} {
8726 global arcnos arcids arcout arcend arctags idtags allparents
8727 global growing cached_atags
8730 return {}
8731 }
8732 set t1 [clock clicks -milliseconds]
8735 # part-way along an arc; check that arc first
8744 }
8745 }
8746 }
8748 return {}
8749 }
8753 }
8754 }
8757 }
8762 set taglist {}
8763 set nc 1
8769 incr nc -1
8770 }
8771 # ignore tags on starting node
8775 set td 1
8778 set td 1
8779 }
8780 }
8786 }
8787 }
8799 }
8800 }
8803 }
8805 incr nc -1
8806 }
8808 }
8809 }
8810 }
8815 incr nc
8816 }
8817 }
8818 }
8819 }
8820 set t2 [clock clicks -milliseconds]
8822 set tags {}
8823 foreach id [array names tagloc] {
8828 }
8829 }
8830 }
8831 }
8833 # remove tags that are ancestors of other tags
8841 incr j -1
8842 incr i -1
8845 incr i -1
8846 break
8847 }
8848 }
8849 }
8851 if {[array names growing] ne {}} {
8852 # graph isn't finished, need to check if any tag could get
8853 # eclipsed by another tag coming later. Simply ignore any
8854 # tags that could later get eclipsed.
8855 set ctags {}
8859 }
8860 }
8863 } else {
8865 }
8866 } else {
8868 }
8869 set t3 [clock clicks -milliseconds]
8873 }
8875 }
8877 # Return the list of IDs that have heads that are descendents of id,
8878 # including id itself if it has a head.
8879 proc descheads {id} {
8880 global arcnos arcstart arcids archeads idheads cached_dheads
8881 global allparents
8884 return {}
8885 }
8886 set aret {}
8888 # part-way along an arc; check it first
8897 }
8898 }
8900 }
8904 set ret {}
8909 } else {
8912 }
8918 }
8919 }
8924 }
8925 }
8926 }
8927 }
8931 }
8933 proc addedtag {id} {
8934 global arcnos arcout cached_dtags cached_atags
8939 }
8940 catch {unset cached_dtags}
8941 catch {unset cached_atags}
8942 }
8944 proc addedhead {hid head} {
8945 global arcnos arcout cached_dheads
8950 }
8951 catch {unset cached_dheads}
8952 }
8954 proc removedhead {hid head} {
8955 global cached_dheads
8957 catch {unset cached_dheads}
8958 }
8960 proc movedhead {hid head} {
8961 global arcnos arcout cached_dheads
8966 }
8967 catch {unset cached_dheads}
8968 }
8970 proc changedrefs {} {
8971 global cached_dheads cached_dtags cached_atags
8972 global arctags archeads arcnos arcout idheads idtags
8974 foreach id [concat [array names idheads] [array names idtags]] {
8980 }
8981 }
8982 }
8983 catch {unset cached_dtags}
8984 catch {unset cached_atags}
8985 catch {unset cached_dheads}
8986 }
8988 proc rereadrefs {} {
8989 global idtags idheads idotherrefs mainheadid
8991 set refids [concat [array names idtags] \
8992 [array names idheads] [array names idotherrefs]]
8996 }
8997 }
8999 readrefs
9000 changedrefs
9002 [array names idheads] [array names idotherrefs]]]
9009 }
9010 }
9011 run refill_reflist
9012 }
9014 proc listrefs {id} {
9015 global idtags idheads idotherrefs
9017 set x {}
9020 }
9021 set y {}
9024 }
9025 set z {}
9028 }
9030 }
9032 proc showtag {tag isnew} {
9033 global ctext tagcontents tagids linknum tagobjid
9037 }
9039 clear_ctext
9040 settabs 0
9041 set linknum 0
9043 catch {
9045 }
9046 }
9049 } else {
9051 }
9054 init_flist {}
9055 }
9057 proc doquit {} {
9058 global stopped
9059 global gitktmpdir
9061 set stopped 100
9062 savestuff .
9063 destroy .
9065 if {[info exists gitktmpdir]} {
9067 }
9068 }
9070 proc mkfontdisp {font top which} {
9079 }
9081 proc choosefont {font which} {
9082 global fontparam fontlist fonttop fontattr
9090 set top .gitkfont
9093 font create sample
9099 set fontlist [lsort [font families]]
9110 -textvariable fontparam(size) \
9111 -validatecommand {string is integer -strict %s}
9113 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
9114 -variable fontparam(weight) -onvalue bold -offvalue normal
9116 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
9117 -variable fontparam(slant) -onvalue italic -offvalue roman
9121 -background white
9123 -fill black -tags text
9133 trace add variable fontparam write chg_fontparam
9134 } else {
9137 }
9142 }
9143 }
9145 proc centertext {w} {
9147 }
9149 proc fontok {} {
9150 global fontparam fontpref prefstop
9156 }
9159 }
9163 fontcan
9164 }
9166 proc fontcan {} {
9167 global fonttop fontparam
9169 if {[info exists fonttop]} {
9171 catch {font delete sample}
9172 unset fonttop
9173 unset fontparam
9174 }
9175 }
9177 proc selfontfam {} {
9178 global fonttop fontparam
9183 }
9184 }
9186 proc chg_fontparam {v sub op} {
9187 global fontparam
9190 }
9192 proc doprefs {} {
9193 global maxwidth maxgraphpct
9194 global oldprefs prefstop showneartags showlocalchanges
9195 global bgcolor fgcolor ctext diffcolors selectbgcolor
9196 global tabstop limitdiffs autoselect extdifftool
9198 set top .gitkprefs
9202 return
9203 }
9204 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9205 limitdiffs tabstop} {
9207 }
9214 -font optionfont
9218 -font optionfont
9251 -padx 10
9253 -command choose_extdiff
9280 "diff hunk header" \
9302 }
9304 proc choose_extdiff {} {
9305 global extdifftool
9307 set prog [tk_getOpenFile -title "External diff tool" -multiple false]
9310 }
9311 }
9313 proc choosecolor {v vi w x cmd} {
9322 }
9324 proc setselbg {c} {
9325 global bglist cflist
9328 }
9332 }
9334 proc setbg {c} {
9335 global bglist
9339 }
9340 }
9342 proc setfg {c} {
9343 global fglist canv
9347 }
9350 }
9352 proc prefscan {} {
9353 global oldprefs prefstop
9355 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9356 limitdiffs tabstop} {
9359 }
9361 unset prefstop
9362 fontcan
9363 }
9365 proc prefsok {} {
9366 global maxwidth maxgraphpct
9367 global oldprefs prefstop showneartags showlocalchanges
9368 global fontpref mainfont textfont uifont
9369 global limitdiffs treediffs
9372 unset prefstop
9373 fontcan
9374 set fontchanged 0
9378 eval font configure mainfont [fontflags mainfont]
9379 eval font configure mainfontbold [fontflags mainfont 1]
9380 setcoords
9381 set fontchanged 1
9382 }
9386 eval font configure textfont [fontflags textfont]
9387 eval font configure textfontbold [fontflags textfont 1]
9388 }
9392 eval font configure uifont [fontflags uifont]
9393 }
9394 settabs
9397 doshowlocalchanges
9398 } else {
9399 dohidelocalchanges
9400 }
9401 }
9403 # treediffs elements are limited by path
9404 catch {unset treediffs}
9405 }
9408 redisplay
9411 reselectline
9412 }
9413 }
9415 proc formatdate {d} {
9416 global datetimeformat
9419 }
9421 }
9423 # This list of encoding names and aliases is distilled from
9424 # http://www.iana.org/assignments/character-sets.
9425 # Not all of them are supported by Tcl.
9426 set encoding_aliases {
9427 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9428 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9429 { ISO-10646-UTF-1 csISO10646UTF1 }
9430 { ISO_646.basic:1983 ref csISO646basic1983 }
9431 { INVARIANT csINVARIANT }
9432 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9433 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9434 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9435 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9436 { NATS-DANO iso-ir-9-1 csNATSDANO }
9437 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9438 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9439 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9440 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9441 { ISO-2022-KR csISO2022KR }
9442 { EUC-KR csEUCKR }
9443 { ISO-2022-JP csISO2022JP }
9444 { ISO-2022-JP-2 csISO2022JP2 }
9445 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9446 csISO13JISC6220jp }
9447 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9448 { IT iso-ir-15 ISO646-IT csISO15Italian }
9449 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9450 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9451 { greek7-old iso-ir-18 csISO18Greek7Old }
9452 { latin-greek iso-ir-19 csISO19LatinGreek }
9453 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9454 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9455 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9456 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9457 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9458 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9459 { INIS iso-ir-49 csISO49INIS }
9460 { INIS-8 iso-ir-50 csISO50INIS8 }
9461 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9462 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9463 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9464 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9465 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9466 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9467 csISO60Norwegian1 }
9468 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9469 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9470 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9471 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9472 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9473 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9474 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9475 { greek7 iso-ir-88 csISO88Greek7 }
9476 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9477 { iso-ir-90 csISO90 }
9478 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9479 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9480 csISO92JISC62991984b }
9481 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9482 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9483 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9484 csISO95JIS62291984handadd }
9485 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9486 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9487 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9488 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9489 CP819 csISOLatin1 }
9490 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9491 { T.61-7bit iso-ir-102 csISO102T617bit }
9492 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9493 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9494 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9495 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9496 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9497 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9498 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9499 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9500 arabic csISOLatinArabic }
9501 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9502 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9503 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9504 greek greek8 csISOLatinGreek }
9505 { T.101-G2 iso-ir-128 csISO128T101G2 }
9506 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9507 csISOLatinHebrew }
9508 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9509 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9510 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9511 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9512 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9513 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9514 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9515 csISOLatinCyrillic }
9516 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9517 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9518 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9519 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9520 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9521 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9522 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9523 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9524 { ISO_10367-box iso-ir-155 csISO10367Box }
9525 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9526 { latin-lap lap iso-ir-158 csISO158Lap }
9527 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9528 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9529 { us-dk csUSDK }
9530 { dk-us csDKUS }
9531 { JIS_X0201 X0201 csHalfWidthKatakana }
9532 { KSC5636 ISO646-KR csKSC5636 }
9533 { ISO-10646-UCS-2 csUnicode }
9534 { ISO-10646-UCS-4 csUCS4 }
9535 { DEC-MCS dec csDECMCS }
9536 { hp-roman8 roman8 r8 csHPRoman8 }
9537 { macintosh mac csMacintosh }
9538 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9539 csIBM037 }
9540 { IBM038 EBCDIC-INT cp038 csIBM038 }
9541 { IBM273 CP273 csIBM273 }
9542 { IBM274 EBCDIC-BE CP274 csIBM274 }
9543 { IBM275 EBCDIC-BR cp275 csIBM275 }
9544 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9545 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9546 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9547 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9548 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9549 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9550 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9551 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9552 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9553 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9554 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9555 { IBM437 cp437 437 csPC8CodePage437 }
9556 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9557 { IBM775 cp775 csPC775Baltic }
9558 { IBM850 cp850 850 csPC850Multilingual }
9559 { IBM851 cp851 851 csIBM851 }
9560 { IBM852 cp852 852 csPCp852 }
9561 { IBM855 cp855 855 csIBM855 }
9562 { IBM857 cp857 857 csIBM857 }
9563 { IBM860 cp860 860 csIBM860 }
9564 { IBM861 cp861 861 cp-is csIBM861 }
9565 { IBM862 cp862 862 csPC862LatinHebrew }
9566 { IBM863 cp863 863 csIBM863 }
9567 { IBM864 cp864 csIBM864 }
9568 { IBM865 cp865 865 csIBM865 }
9569 { IBM866 cp866 866 csIBM866 }
9570 { IBM868 CP868 cp-ar csIBM868 }
9571 { IBM869 cp869 869 cp-gr csIBM869 }
9572 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9573 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9574 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9575 { IBM891 cp891 csIBM891 }
9576 { IBM903 cp903 csIBM903 }
9577 { IBM904 cp904 904 csIBBM904 }
9578 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9579 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9580 { IBM1026 CP1026 csIBM1026 }
9581 { EBCDIC-AT-DE csIBMEBCDICATDE }
9582 { EBCDIC-AT-DE-A csEBCDICATDEA }
9583 { EBCDIC-CA-FR csEBCDICCAFR }
9584 { EBCDIC-DK-NO csEBCDICDKNO }
9585 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9586 { EBCDIC-FI-SE csEBCDICFISE }
9587 { EBCDIC-FI-SE-A csEBCDICFISEA }
9588 { EBCDIC-FR csEBCDICFR }
9589 { EBCDIC-IT csEBCDICIT }
9590 { EBCDIC-PT csEBCDICPT }
9591 { EBCDIC-ES csEBCDICES }
9592 { EBCDIC-ES-A csEBCDICESA }
9593 { EBCDIC-ES-S csEBCDICESS }
9594 { EBCDIC-UK csEBCDICUK }
9595 { EBCDIC-US csEBCDICUS }
9596 { UNKNOWN-8BIT csUnknown8BiT }
9597 { MNEMONIC csMnemonic }
9598 { MNEM csMnem }
9599 { VISCII csVISCII }
9600 { VIQR csVIQR }
9601 { KOI8-R csKOI8R }
9602 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9603 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9604 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9605 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9606 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9607 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9608 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9609 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9610 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9611 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9612 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9613 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9614 { IBM1047 IBM-1047 }
9615 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9616 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9617 { UNICODE-1-1 csUnicode11 }
9618 { CESU-8 csCESU-8 }
9619 { BOCU-1 csBOCU-1 }
9620 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9621 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9622 l8 }
9623 { ISO-8859-15 ISO_8859-15 Latin-9 }
9624 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9625 { GBK CP936 MS936 windows-936 }
9626 { JIS_Encoding csJISEncoding }
9627 { Shift_JIS MS_Kanji csShiftJIS }
9628 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9629 EUC-JP }
9630 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9631 { ISO-10646-UCS-Basic csUnicodeASCII }
9632 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9633 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9634 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9635 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9636 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9637 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9638 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9639 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9640 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9641 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9642 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9643 { Ventura-US csVenturaUS }
9644 { Ventura-International csVenturaInternational }
9645 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9646 { PC8-Turkish csPC8Turkish }
9647 { IBM-Symbols csIBMSymbols }
9648 { IBM-Thai csIBMThai }
9649 { HP-Legal csHPLegal }
9650 { HP-Pi-font csHPPiFont }
9651 { HP-Math8 csHPMath8 }
9652 { Adobe-Symbol-Encoding csHPPSMath }
9653 { HP-DeskTop csHPDesktop }
9654 { Ventura-Math csVenturaMath }
9655 { Microsoft-Publishing csMicrosoftPublishing }
9656 { Windows-31J csWindows31J }
9657 { GB2312 csGB2312 }
9658 { Big5 csBig5 }
9659 }
9661 proc tcl_encoding {enc} {
9662 global encoding_aliases
9663 set names [encoding names]
9668 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9671 }
9672 }
9677 # look through the aliases for one that tcl knows about
9683 }
9684 }
9686 }
9687 break
9688 }
9689 }
9692 }
9693 return {}
9694 }
9696 # First check that Tcl/Tk is recent enough
9697 if {[catch {package require Tk 8.4} err]} {
9698 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9699 Gitk requires at least Tcl/Tk 8.4."]
9700 exit 1
9701 }
9703 # defaults...
9704 set wrcomcmd "git diff-tree --stdin -p --pretty"
9706 set gitencoding {}
9707 catch {
9708 set gitencoding [exec git config --get i18n.commitencoding]
9709 }
9711 set gitencoding "utf-8"
9712 }
9716 }
9718 set mainfont {Helvetica 9}
9719 set textfont {Courier 9}
9720 set uifont {Helvetica 9 bold}
9721 set tabstop 8
9722 set findmergefiles 0
9723 set maxgraphpct 50
9724 set maxwidth 16
9725 set revlistorder 0
9726 set fastdate 0
9727 set uparrowlen 5
9728 set downarrowlen 5
9729 set mingaplen 100
9730 set cmitmode "patch"
9731 set wrapcomment "none"
9732 set showneartags 1
9733 set maxrefs 20
9734 set maxlinelen 200
9735 set showlocalchanges 1
9736 set limitdiffs 1
9737 set datetimeformat "%Y-%m-%d %H:%M:%S"
9738 set autoselect 1
9740 set extdifftool "meld"
9742 set colors {green red blue magenta darkgrey brown orange}
9743 set bgcolor white
9744 set fgcolor black
9745 set diffcolors {red "#00a000" blue}
9746 set diffcontext 3
9747 set ignorespace 0
9748 set selectbgcolor gray85
9750 ## For msgcat loading, first locate the installation location.
9751 if { [info exists ::env(GITK_MSGSDIR)] } {
9752 ## Msgsdir was manually set in the environment.
9753 set gitk_msgsdir $::env(GITK_MSGSDIR)
9754 } else {
9755 ## Let's guess the prefix from argv0.
9759 unset gitk_prefix
9760 }
9762 ## Internationalization (i18n) through msgcat and gettext. See
9763 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9764 package require msgcat
9765 namespace import ::msgcat::mc
9766 ## And eventually load the actual message catalog
9769 catch {source ~/.gitk}
9771 font create optionfont -family sans-serif -size -12
9774 eval font create mainfont [fontflags mainfont]
9775 eval font create mainfontbold [fontflags mainfont 1]
9778 eval font create textfont [fontflags textfont]
9779 eval font create textfontbold [fontflags textfont 1]
9782 eval font create uifont [fontflags uifont]
9784 setoptions
9786 # check that we can find a .git directory somewhere...
9787 if {[catch {set gitdir [gitdir]}]} {
9788 show_error {} . [mc "Cannot find a git repository here."]
9789 exit 1
9790 }
9793 exit 1
9794 }
9796 set revtreeargs {}
9797 set cmdline_files {}
9798 set i 0
9799 set revtreeargscmd {}
9802 "" { }
9803 "--" {
9805 break
9806 }
9807 "--argscmd=*" {
9809 }
9810 default {
9812 }
9813 }
9814 incr i
9815 }
9818 # no -- on command line, but some arguments (other than --argscmd)
9819 if {[catch {
9824 # Unfortunately git rev-parse doesn't produce an error when
9825 # something is both a revision and a filename. To be consistent
9826 # with git log and git rev-list, check revtreeargs for filenames.
9829 show_error {} . [mc "Ambiguous argument '%s': both revision\
9831 exit 1
9832 }
9833 }
9834 } err]} {
9836 # so look for "fatal:".
9840 }
9842 exit 1
9843 }
9844 }
9846 set nullid "0000000000000000000000000000000000000000"
9847 set nullid2 "0000000000000000000000000000000000000001"
9848 set nullfile "/dev/null"
9852 set runq {}
9853 set history {}
9854 set historyindex 0
9855 set fh_serial 0
9856 set nhl_names {}
9857 set highlight_paths {}
9858 set findpattern {}
9859 set searchdirn -forwards
9860 set boldrows {}
9861 set boldnamerows {}
9862 set diffelide {0 0}
9863 set markingmatches 0
9864 set linkentercount 0
9865 set need_redisplay 0
9866 set nrows_drawn 0
9867 set firsttabstop 0
9869 set nextviewnum 1
9870 set curview 0
9871 set selectedview 0
9872 set selectedhlview [mc "None"]
9873 set highlight_related [mc "None"]
9874 set highlight_files {}
9875 set viewfiles(0) {}
9876 set viewperm(0) 0
9877 set viewargs(0) {}
9878 set viewargscmd(0) {}
9880 set loginstance 0
9881 set cmdlineok 0
9882 set stopped 0
9883 set stuffsaved 0
9884 set patchnum 0
9885 set lserial 0
9886 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9887 setcoords
9888 makewindow
9889 # wait for the window to become visible
9890 tkwait visibility .
9892 readrefs
9895 # create a view for the files/dirs specified on the command line
9896 set curview 1
9897 set selectedview 1
9898 set nextviewnum 2
9899 set viewname(1) [mc "Command line"]
9903 set viewperm(1) 0
9904 set vdatemode(1) 0
9905 addviewmenu 1
9906 .bar.view entryconf [mc "Edit view..."] -state normal
9907 .bar.view entryconf [mc "Delete view"] -state normal
9908 }
9910 if {[info exists permviews]} {
9913 incr nextviewnum
9920 }
9921 }
9922 getcommits