| blob | f8f89a5052c5917fb2dc56ebd9e4902c61b2f4c8 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2011 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 package require Tk
12 proc hasworktree {} {
15 }
17 proc reponame {} {
18 global gitdir
22 }
24 }
26 proc gitworktree {} {
27 variable _gitworktree
30 }
31 # v1.7.0 introduced --show-toplevel to return the canonical work-tree
33 # try to set work tree from environment, core.worktree or use
34 # cdup to obtain a relative path to the top of the worktree. If
35 # run from the top, the ./ prefix ensures normalize expands pwd.
40 }
41 }
42 }
44 }
46 # A simple scheduler for compute-intensive stuff.
47 # The aim is to make sure that event handlers for GUI actions can
48 # run at least every 50-100 ms. Unfortunately fileevent handlers are
49 # run before X event handlers, so reading from a fast source can
50 # make the GUI completely unresponsive.
51 proc run args {
52 global isonrunq runq currunq
57 after idle dorunq
58 }
61 }
65 }
68 global runq currunq
72 after idle dorunq
73 }
75 }
78 global runq
84 incr i
85 }
86 }
87 }
89 proc dorunq {} {
90 global isonrunq runq currunq
100 unset currunq
105 # script returns 1 if it wants to be readded
106 # file readers return 2 if they could do more straight away
110 }
113 }
116 }
118 after idle dorunq
119 }
120 }
123 global commfd leftover loginstance
129 }
132 global nr_unmerged
134 # find the list of unmerged files
141 exit 1
142 }
148 incr nr_unmerged
151 }
152 }
155 }
157 proc parseviewargs {n arglist} {
158 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
159 global worddiff git_version
163 set glflags {}
164 set diffargs {}
165 set nextisval 0
166 set revargs {}
168 set allknown 1
169 set filtered 0
170 set i -1
172 incr i
175 set nextisval 0
176 continue
177 }
179 "-d" -
180 "--date-order" {
182 # remove from origargs in case we hit an unknown option
184 incr i -1
185 }
186 "-[puabwcrRBMC]" -
187 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
188 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
189 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
190 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
191 "--ignore-space-change" - "-U*" - "--unified=*" {
192 # These request or affect diff output, which we don't want.
193 # Some could be used to set our defaults for diff display.
194 lappend diffargs $arg
195 }
203 # These cause our parsing of git log's output to fail, or else
204 # they're options we want to set ourselves, so ignore them.
205 }
207 # These trigger a word diff in the console interface,
208 # so help the user by enabling our own support
211 }
212 }
216 }
217 }
222 # These are harmless, and some are even useful
223 lappend glflags $arg
224 }
232 # These mean that we get a subset of the commits
234 lappend glflags $arg
235 }
237 # This appears to be the only one that has a value as a
238 # separate word following it
241 lappend glflags $arg
242 }
244 lappend revargs $arg
245 }
248 # git rev-parse doesn't understand --merge
249 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
250 }
253 }
255 # Other flag arguments including -<n>
259 # a flag argument that we don't recognize;
260 # that means we can't optimize
262 }
263 lappend glflags $arg
264 }
265 default {
266 # Non-flag arguments specify commits or ranges of commits
268 lappend revargs --gitk-symmetric-diff-marker
269 }
270 lappend revargs $arg
271 }
272 }
273 }
280 }
283 global vposids vnegids
286 set revs HEAD
287 }
289 # we get stdout followed by stderr in $err
290 # for an unknown rev, git rev-parse echoes it and then errors out
303 }
306 }
307 break
308 }
309 lappend badrev $line
310 }
311 }
314 }
324 lappend ret $id
327 }
328 }
332 lappend ret $id
335 }
336 lappend pos $id
337 }
338 incr sdm -1
339 }
343 }
345 # Start off a git log process and arrange to read its output
347 global startmsecs commitidx viewcomplete curview
348 global tclencoding
349 global viewargs viewargscmd viewfiles vfilelimit
350 global showlocalchanges
351 global viewactive viewinstances vmergeonly
352 global mainheadid viewmainheadid viewmainheadid_orig
353 global vcanopt vflags vrevs vorigargs
354 global show_notes
358 # these are set this way for the error exits
361 varcinit $view
370 }
372 }
379 global nr_unmerged
386 }
388 }
389 }
396 }
400 }
408 }
414 get_viewmainhead $view
415 }
418 }
422 }
428 }
431 global commfd leftover
434 catch {
441 }
442 }
444 nukefile $fd
447 }
449 proc stop_backends {} {
450 global commfd
453 stop_instance $inst
454 }
455 }
458 global viewinstances
461 stop_instance $inst
462 }
464 }
467 global pending_select mainheadid selectheadid
475 }
476 }
479 global canv curview need_redisplay viewactive
481 initlayout
483 reset_pending_select $selid
488 }
489 }
491 proc updatecommits {} {
492 global curview vcanopt vorigargs vfilelimit viewinstances
493 global viewactive viewcomplete tclencoding
494 global startmsecs showneartags showlocalchanges
495 global mainheadid viewmainheadid viewmainheadid_orig pending_select
496 global hasworktree
497 global varcid vposids vnegids vflags vrevs
498 global show_notes
501 rereadrefs
505 dohidelocalchanges
506 }
510 get_viewmainhead $view
511 }
512 }
514 doshowlocalchanges
515 }
521 return
522 }
523 # note: getting the delta when negative refs change is hard,
524 # and could require multiple git log invocations, so in that
525 # case we ask git log for all the commits (not just the delta)
529 # take out positive refs that we asked for before or
530 # that we have already seen
535 lappend newrevs $rev
536 incr npos
537 }
539 lappend $newrevs $rev
540 }
541 }
545 }
549 }
555 return
556 }
559 }
565 }
569 reset_pending_select {}
572 getallcommits
573 }
574 }
576 proc reloadcommits {} {
577 global curview viewcomplete selectedline currentid thickerline
578 global showneartags treediffs commitinterest cached_commitrow
579 global targetid
584 }
587 stop_rev_list $curview
588 }
589 resetvarcs $curview
594 readrefs
595 changedrefs
597 getallcommits
598 }
599 clear_display
603 setcanvscroll
604 getcommits $selid
606 }
608 # This makes a string representation of a positive integer which
609 # sorts as a string in numerical order
617 }
619 }
621 # Procedures used in reordering commits from git log (without
622 # --topo-order) into the order for display.
625 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
626 global vtokmod varcmod vrowmod varcix vlastins
640 }
643 global varcid varccommits parents children vseedcount ordertok
644 global vshortids
650 }
653 }
654 # some commits might have children but haven't been seen yet
657 }
660 }
663 }
665 }
667 # returns a list of the commits with no children
669 global vdownptr vleftptr varcstart
676 }
678 }
681 global varcid varctok parents children vdatemode
682 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
683 global commitdata commitinfo vseedcount varccommits vlastins
690 }
694 }
697 }
703 }
712 }
713 }
718 }
725 }
729 }
736 }
742 }
751 }
754 global varcid varcstart varccommits varctok vtokmod
755 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
763 # "%" sorts before "0"...
773 }
783 }
785 modify_arc $v $oa
786 }
787 }
790 global parents children varctok varcstart varccommits
791 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
800 lappend todo $a
805 }
806 }
807 }
808 incr ntot
815 }
816 }
818 }
825 }
831 }
840 }
841 }
846 }
848 continue
849 }
856 }
857 }
862 modify_arc $v $ka
863 }
865 modify_arc $v $b
866 }
873 }
876 }
879 }
888 }
893 }
900 }
904 }
906 }
907 }
912 }
913 }
915 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
916 }
918 # Fix up the graph after we have found out that in view $v,
919 # $p (a commit that we have already seen) is actually the parent
920 # of the last commit in arc $a.
922 global varcid varcstart varctok vupptr
926 splitvarc $p $v
928 }
929 # seeds always need to be renumbered
933 renumbervarc $pa $v
934 }
935 }
938 global cmitlisted children parents varcid varctok vtokmod
939 global varccommits ordertok commitidx numcommits curview
940 global targetid targetrow vshortids
942 readcommit $id
951 modify_arc $v $a
952 }
958 }
959 fix_reversal $p $a $v
963 setcanvscroll
966 incr targetrow
967 }
968 }
969 }
970 }
973 global varcid varccommits parents children cmitlisted
974 global commitidx varctok vtokmod targetid targetrow curview numcommits
981 return
982 }
989 # note we deliberately don't update varcstart($v) even if $i == 0
991 modify_arc $v $a $i
994 incr targetrow
995 }
996 }
997 setcanvscroll
998 drawvisible
999 }
1002 global varcid varccommits parents children commitidx
1003 global varctok vtokmod cmitlisted currentid selectedline
1004 global targetid curview numcommits
1009 return
1010 }
1016 return
1017 }
1027 }
1028 modify_arc $v $a $i
1030 unset currentid
1032 }
1035 }
1036 setcanvscroll
1037 drawvisible
1038 }
1041 global children nullid nullid2
1046 lappend kids $id
1047 }
1048 }
1050 }
1053 global children nullid nullid2
1058 }
1059 }
1061 }
1064 global children nullid nullid2
1071 }
1072 }
1074 }
1077 global varctok varcid
1081 }
1083 # This assumes that if lim is not given, the caller has checked that
1084 # arc a's token is less than $vtokmod($v)
1086 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1094 }
1095 }
1102 }
1107 }
1109 }
1111 undolayout $r
1112 }
1113 }
1116 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1117 global varcid vrownum varcorder varcix varccommits
1118 global vupptr vdownptr vleftptr varctok
1119 global displayorder parentlist curview cached_commitrow
1126 }
1128 }
1132 # go up the tree until we find something that has a row number,
1133 # or we get to a seed
1135 }
1150 }
1152 }
1156 # go down if possible
1159 # if not, go left, or go up until we can go left
1164 }
1166 }
1168 incr arcn
1173 }
1179 }
1180 }
1182 # Test whether view $v contains commit $id
1184 global varcid
1187 }
1189 # Return the row number for commit $id in the current view
1191 global varcid varccommits varcrow curview cached_commitrow
1192 global varctok vtokmod
1198 }
1201 update_arcrows $v
1202 }
1205 }
1210 }
1214 }
1216 # Returns 1 if a is on an earlier row than b, otherwise 0
1218 global varcid varctok curview
1224 }
1228 }
1230 }
1235 }
1247 }
1248 }
1250 }
1252 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1254 global vrownum curview commitidx displayorder parentlist
1255 global varccommits varcorder parents vrowmod varcrow
1256 global d_valid_start d_valid_end
1259 update_arcrows $curview
1260 }
1276 }
1278 lappend displayorder $id
1280 }
1284 lset displayorder $i $id
1286 incr i
1287 }
1288 }
1289 incr r $al
1290 }
1291 }
1294 global displayorder
1300 }
1302 }
1305 global varctok varccommits varcid parents children
1306 global cmitlisted commitidx vtokmod
1315 # add p as a new commit
1316 incr missing_parents
1324 }
1327 modify_arc $v $b
1328 }
1332 }
1333 }
1337 }
1338 }
1339 }
1341 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1342 # Assumes we already have an arc for $rwid.
1344 global children parents varcid varctok vtokmod varccommits
1347 # make $rwid be $ch's parent in place of $id
1351 }
1353 # add $ch to $rwid's children and sort the list if necessary
1357 }
1358 # fix the graph after joining $id to $rwid
1360 fix_reversal $rwid $a $v
1361 # parentlist is wrong for the last element of arc $a
1362 # even if displayorder is right, hence the 3rd arg here
1364 }
1365 }
1367 # Mechanism for registering a command to be executed when we come
1368 # across a particular commit. To handle the case when only the
1369 # prefix of the commit is known, the commitinterest array is now
1370 # indexed by the first 4 characters of the ID. Each element is a
1371 # list of id, cmd pairs.
1373 global commitinterest
1376 }
1379 global commitinterest
1388 lappend newlist $i $script
1389 }
1390 }
1395 }
1396 }
1398 }
1401 global cmitlisted leftover
1402 global commitidx commitdata vdatemode
1403 global parents children curview hlview
1404 global idpending ordertok
1405 global varccommits varcid varctok vtokmod vfilelimit vshortids
1408 # git log doesn't terminate the last commit with a null...
1411 }
1415 }
1416 global commfd viewcomplete viewactive viewname
1417 global viewinstances
1422 }
1423 # set it blocking so we wait for the process to terminate
1429 }
1432 bad arguments to git log."
1434 append err \
1435 " (Note: arguments to gitk are passed to git log\
1436 to allow selection of commits to be displayed.)"
1437 }
1440 }
1441 error_popup $err
1442 }
1445 # Check if we have seen any ids listed as parents that haven't
1446 # appeared in the list
1447 closevarcs $view
1448 notbusy $view
1449 }
1451 run chewcommits
1452 }
1454 }
1462 break
1463 }
1470 }
1483 }
1485 }
1490 break
1491 }
1492 }
1493 }
1498 }
1500 exit 1
1501 }
1510 # when doing path limiting, so work around that here
1511 # by working out the rewritten parent with git rev-list
1512 # and if we already know about it, using the rewritten
1513 # parent as a substitute parent for $id's children.
1517 }]} {
1519 # use $rwid in place of $id
1520 rewrite_commit $view $id $rwid
1521 continue
1522 }
1523 }
1524 }
1530 }
1535 }
1547 }
1548 }
1550 # new arc
1552 }
1554 modify_arc $view $a
1555 }
1560 }
1571 }
1573 fix_reversal $p $a $view
1574 }
1575 }
1576 incr i
1577 }
1581 }
1583 global numcommits hlview
1587 run chewcommits
1588 }
1590 # we never actually get here...
1591 run vhighlightmore
1592 }
1595 }
1596 }
1598 }
1600 proc chewcommits {} {
1601 global curview hlview viewcomplete
1602 global pending_select
1604 layoutmore
1606 global commitidx varctok
1607 global numcommits startmsecs
1610 update
1611 reset_pending_select {}
1618 }
1619 }
1621 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1622 #puts "overall $ms ms for $numcommits commits"
1623 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1626 }
1627 notbusy layout
1628 }
1630 }
1633 global tclencoding
1635 # Invoke git-log to handle automatic encoding conversion
1637 # Read the results using i18n.logoutputencoding
1641 }
1643 close $fd
1644 # Remove the heading line
1648 }
1653 }
1656 global commitinfo
1667 # should never happen...
1669 }
1681 }
1682 }
1684 # take the first non-blank line of the comment as the headline
1689 }
1694 }
1696 # git log indents the comment by 4 spaces;
1697 # if we got this via git cat-file, add the indentation
1700 append newcomment " "
1701 append newcomment $line
1703 }
1705 }
1709 }
1712 global commitdata commitinfo
1717 readcommit $id
1720 }
1721 }
1723 }
1725 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1726 # and are present in the current view.
1727 # This is fairly slow...
1729 global varcid curview vshortids
1738 lappend ids $id
1740 }
1741 }
1742 }
1743 }
1748 }
1749 }
1751 }
1753 proc readrefs {} {
1754 global tagids idtags headids idheads tagobjid
1755 global otherrefids idotherrefs mainhead mainheadid
1756 global selecthead selectheadid
1757 global hideremotes
1761 }
1773 }
1779 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1780 # which is what we want since the former is the commit ID
1786 }
1792 }
1793 }
1797 catch {
1802 }
1803 }
1806 catch {
1808 }
1809 }
1810 }
1812 # skip over fake commits
1813 proc first_real_row {} {
1814 global nullid nullid2 numcommits
1819 break
1820 }
1821 }
1823 }
1825 # update things for a head moved to a child of its previous location
1827 global headids idheads
1832 }
1834 # update things when a head has been removed
1836 global headids idheads
1844 }
1845 }
1847 }
1850 global use_ttk
1854 }
1856 }
1859 global have_tk85
1861 # In MacOS Tk 8.4 transient appears to work by setting
1862 # overrideredirect, which is utterly useless, since the
1863 # windows get no border, and are not even kept above
1864 # the parent.
1867 wm transient $window $origin
1869 # Windows fails to place transient windows normally, so
1870 # schedule a callback to center them on the parent.
1873 }
1874 }
1877 global NS
1888 tkwait window $top
1889 }
1896 set w .error
1897 ttk_toplevel $w
1898 make_transient $w $owner
1899 show_error $w $w $msg
1900 }
1901 }
1904 global confirm_ok NS
1906 set w .confirm
1907 ttk_toplevel $w
1908 make_transient $w $owner
1920 tkwait window $w
1922 }
1924 proc setoptions {} {
1927 option add *Panedwindow.sashRelief raised startupFile
1929 option add *Menu.font uifont startupFile
1930 }
1933 }
1934 option add *Button.font uifont startupFile
1935 option add *Checkbutton.font uifont startupFile
1936 option add *Radiobutton.font uifont startupFile
1937 option add *Menubutton.font uifont startupFile
1938 option add *Label.font uifont startupFile
1939 option add *Message.font uifont startupFile
1940 option add *Entry.font textfont startupFile
1941 option add *Text.font textfont startupFile
1942 option add *Labelframe.font uifont startupFile
1943 option add *Spinbox.font textfont startupFile
1944 option add *Listbox.font mainfont startupFile
1945 }
1947 # Make a menu and submenus.
1948 # m is the window name for the menu, items is the list of menu items to add.
1949 # Each item is a list {mc label type description options...}
1950 # mc is ignored; it's so we can put mc there to alert xgettext
1951 # label is the string that appears in the menu
1952 # type is cascade, command or radiobutton (should add checkbutton)
1953 # description depends on type; it's the sublist for cascade, the
1954 # command to invoke for command, or {variable value} for radiobutton
1956 menu $m
1958 set Meta1 Cmd
1960 set Meta1 Ctrl
1961 }
1972 }
1973 }
1978 }
1981 }
1985 }
1986 }
1992 }
1993 }
1994 }
1996 # translate string and remove ampersands
1999 }
2002 global use_ttk
2008 }
2013 }
2015 }
2017 proc makewindow {} {
2018 global canv canv2 canv3 linespc charspc ctext cflist cscroll
2019 global tabstop
2020 global findtype findtypemenu findloc findstring fstring geometry
2021 global entries sha1entry sha1string sha1but
2022 global diffcontextstring diffcontext
2023 global ignorespace
2024 global maincursor textcursor curtextcursor
2025 global rowctxmenu fakerowmenu mergemax wrapcomment
2026 global highlight_files gdttype
2027 global searchstring sstring
2028 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
2029 global headctxmenu progresscanv progressitem progresscoords statusw
2030 global fprogitem fprogcoord lastprogupdate progupdatepending
2031 global rprogitem rprogcoord rownumsel numcommits
2032 global have_tk85 use_ttk NS
2033 global git_version
2034 global worddiff
2036 # The "mc" arguments here are purely so that xgettext
2037 # sees the following string as needing to be translated
2048 }}
2052 }}
2060 }}
2066 }}
2076 }}
2080 }}
2082 }
2083 makemenu .bar $bar
2084 . configure -menu .bar
2087 # cover the non-themed toplevel with a themed frame.
2089 }
2091 # the gui has upper and lower half, parts of a paned window.
2094 # possibly use assumed geometry
2102 }
2104 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2110 }
2112 # create three canvases
2113 set cscroll .tf.histframe.csb
2114 set canv .tf.histframe.pwclist.canv
2115 canvas $canv \
2119 .tf.histframe.pwclist add $canv
2120 set canv2 .tf.histframe.pwclist.canv2
2121 canvas $canv2 \
2124 .tf.histframe.pwclist add $canv2
2125 set canv3 .tf.histframe.pwclist.canv3
2126 canvas $canv3 \
2129 .tf.histframe.pwclist add $canv3
2135 }
2139 }
2141 # a scroll bar to rule them
2146 lappend bglist $canv $canv2 $canv3
2149 # we have two button bars at bottom of top frame. Bar 1
2153 set sha1entry .tf.bar.sha1
2155 set sha1but .tf.bar.sha1label
2159 pack .tf.bar.sha1label -side left
2161 trace add variable sha1string write sha1change
2165 #define left_width 16
2166 #define left_height 16
2167 static unsigned char left_bits[] = {
2171 }
2173 #define right_width 16
2174 #define right_height 16
2175 static unsigned char right_bits[] = {
2179 }
2199 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2200 -side left
2203 }
2204 global selectedline
2205 trace add variable selectedline write selectedline_change
2207 # Status label and progress bar
2208 set statusw .tf.bar.status
2215 set progresscanv .tf.bar.progress
2220 }
2229 # build up the bottom bar of upper window
2234 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2241 trace add variable gdttype write gdttype_change
2245 set fstring .tf.lbar.findstring
2246 lappend entries $fstring
2248 trace add variable findstring write find_change
2252 trace add variable findtype write findcom_change
2256 trace add variable findloc write find_change
2257 pack .tf.lbar.findloc -side right
2258 pack .tf.lbar.findtype -side right
2261 # Finish putting the upper half of the viewer together
2265 .ctop add .tf
2269 }
2271 # now build up the bottom
2274 # lower left, a text box over search bar, scroll bar to the right
2275 # if we know window height, then that will set the lower text height, otherwise
2276 # we set lower text height which will drive window height
2281 }
2288 set sstring .bleft.top.sstring
2291 lappend entries $sstring
2292 trace add variable searchstring write incrsearch
2305 -textvariable diffcontextstring
2307 trace add variable diffcontextstring write diffcontextchange
2308 lappend entries .bleft.mid.diffcontext
2309 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2318 trace add variable worddiff write changeworddiff
2320 }
2322 set ctext .bleft.bottom.ctext
2329 }
2335 grid .bleft.bottom.sbhorizontal -sticky ew
2340 lappend bglist $ctext
2341 lappend fglist $ctext
2371 .pwbottom add .bleft
2374 }
2376 # lower right
2385 set cflist .bright.cfiles
2387 text $cflist \
2390 -font mainfont \
2395 lappend bglist $cflist
2396 lappend fglist $cflist
2400 $cflist tag configure highlight \
2404 .pwbottom add .bright
2405 .ctop add .pwbottom
2407 # restore window width & height if known
2412 }
2415 }
2417 }
2418 }
2422 }
2425 set M1B M1
2428 set M1B Control
2430 }
2436 }
2440 }
2441 }
2446 #bindall <B1-Motion> {selcanvline %W %x %y}
2456 allcanvs yview scroll $delta units
2457 }
2461 }
2462 }
2463 }
2487 bindkey p "selnextline -1"
2488 bindkey n "selnextline 1"
2489 bindkey z "goback"
2490 bindkey x "goforw"
2491 bindkey k "selnextline -1"
2492 bindkey j "selnextline 1"
2493 bindkey h "goback"
2494 bindkey l "goforw"
2495 bindkey b prevfile
2502 bindkey f nextfile
2518 wm protocol . WM_DELETE_WINDOW doquit
2527 global ctxbut
2533 set maincursor [. cget -cursor]
2537 set rowctxmenu .rowctxmenu
2539 {mc "Diff this -> selected" command {diffvssel 0}}
2540 {mc "Diff selected -> this" command {diffvssel 1}}
2541 {mc "Make patch" command mkpatch}
2542 {mc "Create tag" command mktag}
2543 {mc "Write commit to file" command writecommit}
2544 {mc "Create new branch" command mkbranch}
2545 {mc "Cherry-pick this commit" command cherrypick}
2546 {mc "Reset HEAD branch to here" command resethead}
2547 {mc "Mark this commit" command markhere}
2548 {mc "Return to mark" command gotomark}
2549 {mc "Find descendant of this and mark" command find_common_desc}
2550 {mc "Compare with marked commit" command compare_commits}
2551 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2552 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2553 }
2556 set fakerowmenu .fakerowmenu
2558 {mc "Diff this -> selected" command {diffvssel 0}}
2559 {mc "Diff selected -> this" command {diffvssel 1}}
2560 {mc "Make patch" command mkpatch}
2561 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2562 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2563 }
2566 set headctxmenu .headctxmenu
2568 {mc "Check out this branch" command cobranch}
2569 {mc "Remove this branch" command rmbranch}
2570 }
2573 global flist_menu
2574 set flist_menu .flistctxmenu
2576 {mc "Highlight this too" command {flist_hl 0}}
2577 {mc "Highlight this only" command {flist_hl 1}}
2578 {mc "External diff" command {external_diff}}
2579 {mc "Blame parent commit" command {external_blame 1}}
2580 }
2583 global diff_menu
2584 set diff_menu .diffctxmenu
2586 {mc "Show origin of this line" command show_line_source}
2587 {mc "Run git gui blame on this line" command {external_blame_diff}}
2588 }
2590 }
2592 # Windows sends all mouse wheel events to the current focused window, not
2593 # the one where the mouse hovers, so bind those events here and redirect
2594 # to the correct window
2595 proc windows_mousewheel_redirector {W X Y D} {
2596 global canv canv2 canv3
2602 } else {
2603 catch {
2605 }
2606 }
2607 }
2608 }
2610 # Update row number label when selectedline changes
2611 proc selectedline_change {n1 n2 op} {
2612 global selectedline rownumsel
2615 set rownumsel {}
2616 } else {
2618 }
2619 }
2621 # mouse-2 makes all windows scan vertically, but only the one
2622 # the cursor is in scans horizontally
2623 proc canvscan {op w x y} {
2624 global canv canv2 canv3
2628 } else {
2630 }
2631 }
2632 }
2634 proc scrollcanv {cscroll f0 f1} {
2636 drawvisible
2637 flushhighlights
2638 }
2640 # when we make a key binding for the toplevel, make sure
2641 # it doesn't get triggered when that key is pressed in the
2642 # find string entry widget.
2643 proc bindkey {ev script} {
2644 global entries
2648 set escript [bind Entry <Key>]
2649 }
2652 }
2653 }
2655 proc bindmodfunctionkey {mod n script} {
2658 }
2660 # set the focus back to the toplevel for any click outside
2661 # the entry widgets
2662 proc click {w} {
2663 global ctext entries
2666 }
2667 focus .
2668 }
2670 # Adjust the progress bar for a change in requested extent or canvas size
2671 proc adjustprogress {} {
2672 global progresscanv progressitem progresscoords
2673 global fprogitem fprogcoord lastprogupdate progupdatepending
2674 global rprogitem rprogcoord use_ttk
2678 return
2679 }
2688 set now [clock clicks -milliseconds]
2690 set progupdatepending 0
2691 update
2693 set progupdatepending 1
2695 }
2696 }
2698 proc doprogupdate {} {
2699 global lastprogupdate progupdatepending
2702 set progupdatepending 0
2703 set lastprogupdate [clock clicks -milliseconds]
2704 update
2705 }
2706 }
2708 proc savestuff {w} {
2709 global canv canv2 canv3 mainfont textfont uifont tabstop
2710 global stuffsaved findmergefiles maxgraphpct
2711 global maxwidth showneartags showlocalchanges
2712 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2713 global cmitmode wrapcomment datetimeformat limitdiffs
2714 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2715 global autoselect autosellen extdifftool perfile_attrs markbgcolor use_ttk
2716 global hideremotes want_ttk
2719 if {![winfo viewable .]} return
2720 catch {
2721 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2722 set f [open "~/.gitk-new" w]
2723 if {$::tcl_platform(platform) eq {windows}} {
2724 file attributes "~/.gitk-new" -hidden true
2725 }
2761 } else {
2764 }
2772 }
2773 }
2776 file rename -force "~/.gitk-new" "~/.gitk"
2777 }
2778 set stuffsaved 1
2779 }
2781 proc resizeclistpanes {win w} {
2782 global oldwidth use_ttk
2787 } else {
2790 }
2794 } else {
2799 set sash0 30
2800 }
2803 }
2808 }
2809 }
2810 }
2814 } else {
2817 }
2818 }
2820 }
2822 proc resizecdetpanes {win w} {
2823 global oldwidth use_ttk
2827 } else {
2829 }
2832 } else {
2836 set sash0 45
2837 }
2840 }
2841 }
2844 } else {
2846 }
2847 }
2849 }
2851 proc allcanvs args {
2852 global canv canv2 canv3
2856 }
2858 proc bindall {event action} {
2859 global canv canv2 canv3
2863 }
2865 proc about {} {
2866 global uifont NS
2867 set w .about
2870 return
2871 }
2876 Gitk - a commit viewer for git
2878 Copyright \u00a9 2005-2011 Paul Mackerras
2880 Use and redistribute under the terms of the GNU General Public License"] \
2881 -justify center -aspect 400 -border 2 -bg white -relief groove
2889 }
2891 proc keys {} {
2892 global NS
2893 set w .keys
2896 return
2897 }
2898 if {[tk windowingsystem] eq {aqua}} {
2899 set M1T Cmd
2900 } else {
2901 set M1T Ctrl
2902 }
2907 [mc "Gitk key bindings:"]
2911 [mc "<Home> Move to first commit"]
2912 [mc "<End> Move to last commit"]
2913 [mc "<Up>, p, k Move up one commit"]
2914 [mc "<Down>, n, j Move down one commit"]
2915 [mc "<Left>, z, h Go back in history list"]
2916 [mc "<Right>, x, l Go forward in history list"]
2917 [mc "<PageUp> Move up one page in commit list"]
2918 [mc "<PageDown> Move down one page in commit list"]
2925 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2926 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2927 [mc "<Delete>, b Scroll diff view up one page"]
2928 [mc "<Backspace> Scroll diff view up one page"]
2929 [mc "<Space> Scroll diff view down one page"]
2930 [mc "u Scroll diff view up 18 lines"]
2931 [mc "d Scroll diff view down 18 lines"]
2934 [mc "<Return> Move to next find hit"]
2935 [mc "/ Focus the search box"]
2936 [mc "? Move to previous find hit"]
2937 [mc "f Scroll diff view to next file"]
2944 [mc "<F5> Update"]
2945 " \
2946 -justify left -bg white -border 2 -relief groove
2954 }
2956 # Procedures for manipulating the file list window at the
2957 # bottom right of the overall window.
2959 proc treeview {w l openlevs} {
2960 global treecontents treediropen treeheight treeparent treeindex
2962 set ix 0
2963 set treeindex() 0
2964 set lev 0
2965 set prefix {}
2966 set prefixend -1
2967 set prefendstack {}
2968 set htstack {}
2969 set ht 0
2970 set treecontents() {}
2977 }
2984 incr lev -1
2985 }
2989 set ht 0
3001 set ht 1
3006 set str "\n"
3014 }
3015 incr lev
3016 }
3019 incr ht
3020 set str "\n"
3024 }
3026 }
3027 }
3035 }
3037 }
3039 proc linetoelt {l} {
3040 global treeheight treecontents
3042 set y 2
3043 set prefix {}
3044 while {1} {
3048 }
3049 set n 1
3054 incr y
3055 break
3056 }
3057 }
3059 }
3060 }
3061 }
3063 proc highlight_tree {y prefix} {
3064 global treeheight treecontents cflist
3070 }
3071 incr y
3074 }
3075 }
3077 }
3079 proc treeclosedir {w dir} {
3080 global treediropen treeheight treeparent treeindex
3092 }
3093 }
3095 proc treeopendir {w dir} {
3096 global treediropen treeheight treeparent treecontents treeindex
3103 set lev 0
3104 set str "\n"
3107 incr lev
3108 append str "\t"
3110 }
3125 } else {
3128 }
3129 }
3142 }
3144 }
3145 }
3147 proc treeclick {w x y} {
3148 global treediropen cmitmode ctext cflist cflist_top
3151 if {![info exists cflist_top]} return
3158 return
3159 }
3165 } else {
3167 }
3168 }
3170 proc setfilelist {id} {
3171 global treefilelist cflist jump_to_here
3178 }
3179 }
3180 }
3182 image create bitmap tri-rt -background black -foreground blue -data {
3183 #define tri-rt_width 13
3184 #define tri-rt_height 13
3185 static unsigned char tri-rt_bits[] = {
3186 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3187 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3188 0x00, 0x00};
3189 } -maskdata {
3190 #define tri-rt-mask_width 13
3191 #define tri-rt-mask_height 13
3192 static unsigned char tri-rt-mask_bits[] = {
3193 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3194 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3195 0x08, 0x00};
3196 }
3197 image create bitmap tri-dn -background black -foreground blue -data {
3198 #define tri-dn_width 13
3199 #define tri-dn_height 13
3200 static unsigned char tri-dn_bits[] = {
3201 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3202 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3203 0x00, 0x00};
3204 } -maskdata {
3205 #define tri-dn-mask_width 13
3206 #define tri-dn-mask_height 13
3207 static unsigned char tri-dn-mask_bits[] = {
3208 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3209 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3210 0x00, 0x00};
3211 }
3213 image create bitmap reficon-T -background black -foreground yellow -data {
3214 #define tagicon_width 13
3215 #define tagicon_height 9
3216 static unsigned char tagicon_bits[] = {
3217 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3218 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3219 } -maskdata {
3220 #define tagicon-mask_width 13
3221 #define tagicon-mask_height 9
3222 static unsigned char tagicon-mask_bits[] = {
3223 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3224 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3225 }
3226 set rectdata {
3227 #define headicon_width 13
3228 #define headicon_height 9
3229 static unsigned char headicon_bits[] = {
3230 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3231 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3232 }
3233 set rectmask {
3234 #define headicon-mask_width 13
3235 #define headicon-mask_height 9
3236 static unsigned char headicon-mask_bits[] = {
3237 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3238 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3239 }
3240 image create bitmap reficon-H -background black -foreground green \
3242 image create bitmap reficon-o -background black -foreground "#ddddff" \
3245 proc init_flist {first} {
3246 global cflist cflist_top difffilestart
3252 set cflist_top 1
3254 } else {
3255 catch {unset cflist_top}
3256 }
3258 set difffilestart {}
3259 }
3261 proc highlight_tag {f} {
3262 global highlight_paths
3266 return "bold"
3267 }
3268 }
3269 return {}
3270 }
3272 proc highlight_filelist {} {
3273 global cmitmode cflist
3282 }
3283 }
3284 } else {
3285 highlight_tree 2 {}
3286 }
3288 }
3290 proc unhighlight_filelist {} {
3291 global cflist
3296 }
3298 proc add_flist {fl} {
3299 global cflist
3305 }
3307 }
3309 proc sel_flist {w x y} {
3310 global ctext difffilestart cflist cflist_top cmitmode
3313 if {![info exists cflist_top]} return
3320 } else {
3322 }
3323 suppress_highlighting_file_for_current_scrollpos
3324 }
3326 proc pop_flist_menu {w X Y x y} {
3327 global ctext cflist cmitmode flist_menu flist_menu_file
3328 global treediffs diffids
3330 stopfinding
3336 } else {
3338 }
3340 set xdiffstate "normal"
3342 set xdiffstate "disabled"
3343 }
3344 # Disable "External diff" item in tree mode
3347 }
3349 proc find_ctext_fileinfo {line} {
3350 global ctext_file_names ctext_file_lines
3356 return {}
3357 } else {
3359 }
3360 }
3362 proc pop_diff_menu {w X Y x y} {
3363 global ctext diff_menu flist_menu_file
3364 global diff_menu_txtpos diff_menu_line
3365 global diff_menu_filebase
3369 # don't pop up the menu on hunk-separator or file-separator lines
3371 return
3372 }
3373 stopfinding
3379 }
3381 proc flist_hl {only} {
3382 global flist_menu_file findstring gdttype
3387 } else {
3389 }
3390 set gdttype [mc "touching paths:"]
3391 }
3393 proc gitknewtmpdir {} {
3394 global diffnum gitktmpdir gitdir
3396 if {![info exists gitktmpdir]} {
3400 unset gitktmpdir
3401 return {}
3402 }
3403 set diffnum 0
3404 }
3405 incr diffnum
3409 return {}
3410 }
3412 }
3414 proc save_file_from_commit {filename output what} {
3415 global nullfile
3420 }
3422 return {}
3423 }
3425 }
3427 proc external_diff_get_one_file {diffid filename diffdir} {
3428 global nullid nullid2 nullfile
3429 global worktree
3435 }
3437 }
3441 }
3445 }
3447 proc external_diff {} {
3448 global nullid nullid2
3449 global flist_menu_file
3450 global diffids
3451 global extdifftool
3454 # no reference commit given
3457 # diffing working copy with index
3460 # diffing index with HEAD
3461 set diffidfrom "HEAD"
3462 } else {
3463 # use first parent commit
3464 global parentlist selectedline
3466 }
3467 } else {
3470 }
3472 # make sure that several diffs wont collide
3473 set diffdir [gitknewtmpdir]
3476 # gather files to diff
3485 } else {
3488 }
3489 }
3490 }
3492 proc find_hunk_blamespec {base line} {
3493 global ctext
3495 # Find and parse the hunk header
3501 s_line old_specs osz osz1 new_line nsz]} {
3502 return
3503 }
3505 # base lines for the parents
3509 old_spec old_line osz]} {
3510 return
3511 }
3513 }
3515 # Now scan the lines to determine offset within the hunk
3517 set dline 0
3520 # Determine if the line is removed
3524 # Choose a parent index
3527 } else {
3531 } else {
3532 # blame the current commit
3533 set parent -1
3534 }
3535 }
3536 # then count other lines that belong to it
3539 # Determine if the line is removed
3544 incr dline
3545 }
3546 } else {
3548 incr dline
3549 }
3550 }
3551 }
3552 incr parent
3553 } else {
3554 set parent 0
3555 }
3559 }
3561 proc external_blame_diff {} {
3562 global currentid cmitmode
3563 global diff_menu_txtpos diff_menu_line
3564 global diff_menu_filebase flist_menu_file
3567 set parent_idx 0
3569 } else {
3574 } else {
3575 set parent_idx 0
3576 set line 0
3577 }
3578 }
3581 }
3584 # at stage 0 or 2
3585 proc index_sha1 {fname} {
3593 }
3594 }
3596 return {}
3597 }
3599 # Turn an absolute path into one relative to the current directory
3600 proc make_relative {f} {
3603 }
3605 set here [file split [pwd]]
3606 set ei 0
3607 set hi 0
3608 set res {}
3611 lappend res ".."
3612 } else {
3613 incr ei
3614 }
3615 incr hi
3616 }
3619 }
3621 proc external_blame {parent_idx {line {}}} {
3622 global flist_menu_file cdup
3623 global nullid nullid2
3624 global parentlist selectedline currentid
3628 } else {
3630 }
3633 error_popup [mc "No such commit"]
3634 return
3635 }
3637 set cmdline [list git gui blame]
3640 }
3642 # Unfortunately it seems git gui blame doesn't like
3643 # being given an absolute path...
3648 }
3649 }
3651 proc show_line_source {} {
3652 global cmitmode currentid parents curview blamestuff blameinst
3653 global diff_menu_line diff_menu_filebase flist_menu_file
3654 global nullid nullid2 gitdir cdup
3656 set from_index {}
3660 } else {
3666 return
3667 }
3668 incr pi -1
3671 # must be a merge in progress...
3672 if {[catch {
3673 # get the last line from .git/MERGE_HEAD
3677 } err]} {
3679 return
3680 }
3682 # need to do the blame from the index
3683 if {[catch {
3685 } err]} {
3687 return
3688 }
3689 } else {
3691 }
3692 } else {
3694 }
3696 }
3697 set blameargs {}
3700 }
3703 lappend blameargs --contents -
3704 } else {
3706 }
3708 if {[catch {
3710 } err]} {
3712 return
3713 }
3714 nowbusy blaming [mc "Searching"]
3720 }
3722 proc stopblaming {} {
3723 global blameinst
3725 if {[info exists blameinst]} {
3727 unset blameinst
3728 notbusy blaming
3729 }
3730 }
3732 proc read_line_source {fd inst} {
3733 global blamestuff curview commfd blameinst nullid nullid2
3737 }
3739 return 1
3740 }
3742 unset blameinst
3743 notbusy blaming
3747 return 0
3748 }
3750 set fname {}
3756 # look for "filename" line
3760 break
3761 }
3762 }
3763 }
3765 # all looks good, select it
3767 # blame uses all-zeroes to mean not committed,
3768 # which would mean a change in the index
3770 }
3773 } else {
3774 error_popup [mc "That line comes from commit %s, \
3776 }
3777 } else {
3778 puts "oops couldn't parse git blame output"
3779 }
3780 return 0
3781 }
3784 proc delete_at_eof {f dir} {
3789 }
3791 return 0
3792 }
3793 return 1
3794 }
3796 # Functions for adding and removing shell-type quoting
3798 proc shellquote {str} {
3801 }
3804 }
3807 }
3809 }
3811 proc shellarglist {l} {
3812 set str {}
3815 append str " "
3816 }
3818 }
3820 }
3822 proc shelldequote {str} {
3823 set ret {}
3824 set used -1
3825 while {1} {
3826 incr used
3830 break
3831 }
3837 }
3839 incr used
3843 error "unmatched single-quote"
3844 }
3847 continue
3848 }
3851 error "trailing backslash"
3852 }
3854 continue
3855 }
3856 # here ch == "\""
3857 while {1} {
3859 error "unmatched double-quote"
3860 }
3866 }
3868 incr used
3870 incr used
3871 }
3872 }
3874 }
3876 proc shellsplit {str} {
3877 set l {}
3878 while {1} {
3886 }
3888 }
3890 # Code to implement multiple views
3892 proc newview {ishighlight} {
3893 global nextviewnum newviewname newishighlight
3894 global revtreeargs viewargscmd newviewopts curview
3897 set top .gitkview
3900 return
3901 }
3907 }
3909 set known_view_options {
3910 {perm b . {} {mc "Remember this view"}}
3911 {reflabel l + {} {mc "References (space separated list):"}}
3912 {refs t15 .. {} {mc "Branches & tags:"}}
3913 {allrefs b *. "--all" {mc "All refs"}}
3914 {branches b . "--branches" {mc "All (local) branches"}}
3915 {tags b . "--tags" {mc "All tags"}}
3916 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3917 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3918 {author t15 .. "--author=*" {mc "Author:"}}
3919 {committer t15 . "--committer=*" {mc "Committer:"}}
3920 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3921 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3922 {changes_l l + {} {mc "Changes to Files:"}}
3923 {pickaxe_s r0 . {} {mc "Fixed String"}}
3924 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3925 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3926 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3927 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3928 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3929 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3930 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3931 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3932 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3933 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3934 {lright b . "--left-right" {mc "Mark branch sides"}}
3935 {first b . "--first-parent" {mc "Limit to first parent"}}
3936 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3937 {args t50 *. {} {mc "Additional arguments to git log:"}}
3938 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3939 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3940 }
3943 proc encode_view_opts {n} {
3944 global known_view_options newviewopts
3946 set rargs [list]
3956 }
3962 }
3963 } else {
3969 }
3970 }
3971 }
3974 }
3977 proc decode_view_opts {n view_args} {
3978 global known_view_options newviewopts
3983 # Checkboxes
3984 set val 0
3986 # Radiobuttons
3988 set val 0
3989 } else {
3990 # Text fields
3991 set val {}
3992 }
3994 }
3995 set oargs [list]
3996 set refargs [list]
3999 && ![info exists found(limit)]} {
4001 set found(limit) 1
4002 continue
4003 }
4004 catch { unset val }
4011 # Check buttons
4012 set val 1
4014 # Radio buttons
4017 } else {
4018 # Text input fields
4021 }
4024 break
4025 }
4026 if {[info exists val]} break
4027 }
4028 if {[info exists val]} continue
4031 } else {
4033 }
4034 }
4037 }
4039 proc edit_or_newview {} {
4040 global curview
4043 editview
4044 } else {
4045 newview 0
4046 }
4047 }
4049 proc editview {} {
4050 global curview
4051 global viewname viewperm newviewname newviewopts
4052 global viewargs viewargscmd
4057 return
4058 }
4064 }
4066 proc vieweditor {top n title} {
4067 global newviewname newviewopts viewfiles bgcolor
4068 global known_view_options NS
4074 # View name
4082 # View options
4084 set cexpand 0
4085 set cnt 0
4091 set lxpad 0
4095 incr cnt
4101 incr cnt
4105 } else {
4106 set lxpad 5
4107 }
4141 }
4144 }
4146 }
4147 }
4162 }
4164 proc doviewmenu {m first cmd op argv} {
4169 break
4170 }
4171 }
4172 }
4174 proc allviewmenus {n op args} {
4175 # global viewhlmenu
4179 }
4181 proc newviewok {top n {apply 0}} {
4182 global nextviewnum newviewperm newviewname newishighlight
4183 global viewname viewfiles viewperm selectedview curview
4184 global viewargs viewargscmd newviewopts viewhlmenu
4186 if {[catch {
4188 } err]} {
4190 return
4191 }
4192 set files {}
4197 }
4198 }
4200 # creating a new view
4201 incr nextviewnum
4210 } else {
4212 }
4213 } else {
4214 # editing an existing view
4222 }
4229 run reloadcommits
4230 }
4231 }
4232 }
4235 }
4237 proc delview {} {
4238 global curview viewperm hlview selectedhlview
4242 set selectedhlview [mc "None"]
4243 unset hlview
4244 }
4247 showview 0
4248 }
4250 proc addviewmenu {n} {
4251 global viewname viewhlmenu
4257 }
4259 proc showview {n} {
4260 global curview cached_commitrow ordertok
4261 global displayorder parentlist rowidlist rowisopt rowfinal
4262 global colormap rowtextx nextcolor canvxmax
4263 global numcommits viewcomplete
4264 global selectedline currentid canv canvy0
4265 global treediffs
4266 global pending_select mainheadid
4267 global commitidx
4268 global selectedview
4269 global hlview selectedhlview commitinterest
4272 set selid {}
4283 }
4284 } elseif {[info exists pending_select]} {
4286 unset pending_select
4287 }
4288 unselectline
4289 normalline
4290 catch {unset treediffs}
4291 clear_display
4293 unset hlview
4294 set selectedhlview [mc "None"]
4295 }
4296 catch {unset commitinterest}
4297 catch {unset cached_commitrow}
4298 catch {unset ordertok}
4305 run refill_reflist
4308 return
4309 }
4311 set displayorder {}
4312 set parentlist {}
4313 set rowidlist {}
4314 set rowisopt {}
4315 set rowfinal {}
4318 catch {unset colormap}
4319 catch {unset rowtextx}
4320 set nextcolor 0
4323 set row 0
4324 setcanvscroll
4325 set yf 0
4326 set row {}
4329 # try to get the selected row in the same position on the screen
4333 set ytop 0
4334 }
4336 }
4338 drawvisible
4343 } else {
4344 reset_pending_select {}
4348 } else {
4349 set row [first_real_row]
4352 }
4353 }
4354 }
4357 show_status [mc "Reading commits..."]
4358 }
4360 show_status [mc "No commits selected"]
4361 }
4362 }
4364 # Stuff relating to the highlighting facility
4366 proc ishighlighted {id} {
4367 global vhighlights fhighlights nhighlights rhighlights
4371 }
4374 }
4377 }
4380 }
4381 return 0
4382 }
4384 proc bolden {id font} {
4385 global canv linehtag currentid boldids need_redisplay markedid
4387 # need_redisplay = 1 means the display is stale and about to be redrawn
4394 -outline {{}} -tags secsel \
4397 }
4400 }
4401 }
4403 proc bolden_name {id font} {
4404 global canv2 linentag currentid boldnameids need_redisplay
4412 -outline {{}} -tags secsel \
4415 }
4416 }
4418 proc unbolden {} {
4419 global boldids
4421 set stillbold {}
4425 } else {
4427 }
4428 }
4430 }
4432 proc addvhighlight {n} {
4433 global hlview viewcomplete curview vhl_done commitidx
4435 if {[info exists hlview]} {
4436 delvhighlight
4437 }
4441 }
4444 drawvisible
4445 }
4446 }
4448 proc delvhighlight {} {
4449 global hlview vhighlights
4451 if {![info exists hlview]} return
4452 unset hlview
4453 catch {unset vhighlights}
4454 unbolden
4455 }
4457 proc vhighlightmore {} {
4458 global hlview vhl_done commitidx vhighlights curview
4461 set vr [visiblerows]
4471 }
4473 }
4474 }
4475 }
4477 return 0
4478 }
4480 proc askvhighlight {row id} {
4481 global hlview vhighlights iddrawn
4486 }
4488 } else {
4490 }
4491 }
4493 proc hfiles_change {} {
4494 global highlight_files filehighlight fhighlights fh_serial
4495 global highlight_paths
4497 if {[info exists filehighlight]} {
4498 # delete previous highlights
4500 unset filehighlight
4501 catch {unset fhighlights}
4502 unbolden
4503 unhighlight_filelist
4504 }
4505 set highlight_paths {}
4507 incr fh_serial
4510 }
4511 }
4513 proc gdttype_change {name ix op} {
4514 global gdttype highlight_files findstring findpattern
4516 stopfinding
4520 set highlight_files {}
4521 hfiles_change
4522 }
4523 findcom_change
4524 } else {
4526 set findpattern {}
4527 findcom_change
4528 }
4530 hfiles_change
4531 }
4532 drawvisible
4533 }
4534 # enable/disable findtype/findloc menus too
4535 }
4537 proc find_change {name ix op} {
4538 global gdttype findstring highlight_files
4540 stopfinding
4542 findcom_change
4543 } else {
4546 hfiles_change
4547 }
4548 }
4549 drawvisible
4550 }
4552 proc findcom_change args {
4553 global nhighlights boldnameids
4554 global findpattern findtype findstring gdttype
4556 stopfinding
4557 # delete previous highlights, if any
4560 }
4561 set boldnameids {}
4562 catch {unset nhighlights}
4563 unbolden
4564 unmarkmatches
4566 set findpattern {}
4569 } else {
4570 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4573 }
4574 }
4576 proc makepatterns {l} {
4577 set ret {}
4582 } else {
4585 }
4586 }
4588 }
4590 proc do_file_hl {serial} {
4591 global highlight_files filehighlight highlight_paths gdttype fhl_list
4592 global cdup findtype
4595 # If "exact" match then convert backslashes to forward slashes.
4596 # Most useful to support Windows-flavoured file paths.
4599 }
4602 highlight_filelist
4603 set relative_paths {}
4606 }
4610 } else {
4611 # must be "containing:", i.e. we're searching commit info
4612 return
4613 }
4618 set fhl_list {}
4619 drawvisible
4620 flushhighlights
4621 }
4623 proc flushhighlights {} {
4624 global filehighlight fhl_list
4626 if {[info exists filehighlight]} {
4627 lappend fhl_list {}
4630 }
4631 }
4633 proc askfilehighlight {row id} {
4634 global filehighlight fhighlights fhl_list
4639 }
4641 proc readfhighlight {} {
4642 global filehighlight fhighlights curview iddrawn
4643 global fhl_list find_dirn
4645 if {![info exists filehighlight]} {
4646 return 0
4647 }
4648 set nr 0
4656 }
4662 }
4664 }
4666 # strange...
4667 puts "oops, git diff-tree died"
4669 unset filehighlight
4670 return 0
4671 }
4672 if {[info exists find_dirn]} {
4673 run findmore
4674 }
4675 return 1
4676 }
4678 proc doesmatch {f} {
4679 global findtype findpattern
4685 } else {
4687 }
4688 }
4690 proc askfindhighlight {row id} {
4691 global nhighlights commitinfo iddrawn
4692 global findloc
4693 global markingmatches
4697 }
4699 set isbold 0
4700 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4706 set isbold 2
4707 break
4708 }
4709 set isbold 1
4710 }
4711 }
4717 }
4718 }
4721 }
4722 }
4724 }
4726 proc markrowmatches {row id} {
4727 global canv canv2 linehtag linentag commitinfo findloc
4738 }
4739 }
4745 }
4746 }
4747 }
4749 proc vrel_change {name ix op} {
4750 global highlight_related
4752 rhighlight_none
4754 run drawvisible
4755 }
4756 }
4758 # prepare for testing whether commits are descendents or ancestors of a
4759 proc rhighlight_sel {a} {
4760 global descendent desc_todo ancestor anc_todo
4761 global highlight_related
4763 catch {unset descendent}
4765 catch {unset ancestor}
4768 rhighlight_none
4769 run drawvisible
4770 }
4771 }
4773 proc rhighlight_none {} {
4774 global rhighlights
4776 catch {unset rhighlights}
4777 unbolden
4778 }
4780 proc is_descendent {a} {
4781 global curview children descendent desc_todo
4786 set leftover {}
4787 set done 0
4792 continue
4793 }
4799 set done 1
4800 }
4801 }
4802 }
4805 return
4806 }
4807 }
4810 }
4812 proc is_ancestor {a} {
4813 global curview parents ancestor anc_todo
4818 set leftover {}
4819 set done 0
4824 continue
4825 }
4831 set done 1
4832 }
4833 }
4834 }
4837 return
4838 }
4839 }
4842 }
4844 proc askrelhighlight {row id} {
4845 global descendent highlight_related iddrawn rhighlights
4846 global selectedline ancestor
4849 set isbold 0
4854 }
4856 set isbold 1
4857 }
4862 }
4864 set isbold 1
4865 }
4866 }
4870 }
4871 }
4873 }
4875 # Graph layout functions
4877 proc shortids {ids} {
4878 set res {}
4884 } else {
4886 }
4887 }
4889 }
4891 proc ntimes {n o} {
4892 set ret {}
4897 }
4899 }
4901 }
4903 proc ordertoken {id} {
4904 global ordertok curview varcid varcstart varctok curview parents children
4905 global nullid nullid2
4909 }
4911 set todo {}
4912 while {1} {
4916 } else {
4918 }
4921 break
4922 }
4925 # it's a root
4927 break
4928 }
4931 } else {
4935 }
4937 }
4938 }
4943 }
4946 }
4948 # Work out where id should go in idlist so that order-token
4949 # values increase from left to right
4950 proc idcol {idlist id {i 0}} {
4953 set i 0
4954 }
4958 }
4960 incr i
4961 } else {
4965 }
4966 }
4968 }
4970 proc initlayout {} {
4971 global rowidlist rowisopt rowfinal displayorder parentlist
4972 global numcommits canvxmax canv
4973 global nextcolor
4974 global colormap rowtextx
4976 set numcommits 0
4977 set displayorder {}
4978 set parentlist {}
4979 set nextcolor 0
4980 set rowidlist {}
4981 set rowisopt {}
4982 set rowfinal {}
4984 catch {unset colormap}
4985 catch {unset rowtextx}
4986 setcanvscroll
4987 }
4989 proc setcanvscroll {} {
4990 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4991 global lastscrollset lastscrollrows
4997 set lastscrollset [clock clicks -milliseconds]
4999 }
5001 proc visiblerows {} {
5002 global canv numcommits linespc
5010 set r0 0
5011 }
5016 }
5018 }
5020 proc layoutmore {} {
5021 global commitidx viewcomplete curview
5022 global numcommits pending_select curview
5023 global lastscrollset lastscrollrows
5027 setcanvscroll
5028 }
5029 if {[info exists pending_select] &&
5031 update
5033 }
5034 drawvisible
5035 }
5037 # With path limiting, we mightn't get the actual HEAD commit,
5038 # so ask git rev-list what is the first ancestor of HEAD that
5039 # touches a file in the path limit.
5040 proc get_viewmainhead {view} {
5041 global viewmainheadid vfilelimit viewinstances mainheadid
5043 catch {
5051 }
5052 }
5055 proc getviewhead {fd inst view} {
5056 global viewmainheadid commfd curview viewinstances showlocalchanges
5058 set id {}
5061 return 1
5062 }
5065 }
5072 }
5074 doshowlocalchanges
5075 }
5076 return 0
5077 }
5079 proc doshowlocalchanges {} {
5080 global curview viewmainheadid
5084 dodiffindex
5085 } else {
5087 }
5088 }
5090 proc dohidelocalchanges {} {
5091 global nullid nullid2 lserial curview
5095 }
5098 }
5099 incr lserial
5100 }
5102 # spawn off a process to do git diff-index --cached HEAD
5103 proc dodiffindex {} {
5104 global lserial showlocalchanges vfilelimit curview
5105 global hasworktree
5108 incr lserial
5109 set cmd "|git diff-index --cached HEAD"
5112 }
5117 }
5119 proc readdiffindex {fd serial inst} {
5120 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5121 global vfilelimit
5123 set isdiff 1
5126 return 1
5127 }
5128 set isdiff 0
5129 }
5130 # we only need to see one line and we don't really care what it says...
5134 return 0
5135 }
5137 # now see if there are any local changes not checked in to the index
5138 set cmd "|git diff-files"
5141 }
5148 # add the line for the changes in the index to the graph
5149 set hl [mc "Local changes checked in to index but not committed"]
5154 }
5159 }
5161 }
5162 return 0
5163 }
5165 proc readdifffiles {fd serial inst} {
5166 global viewmainheadid nullid nullid2 curview
5167 global commitinfo commitdata lserial
5169 set isdiff 1
5172 return 1
5173 }
5174 set isdiff 0
5175 }
5176 # we only need to see one line and we don't really care what it says...
5180 return 0
5181 }
5184 # add the line for the local diff to the graph
5185 set hl [mc "Local uncommitted changes, not checked in to index"]
5190 } else {
5192 }
5196 }
5197 return 0
5198 }
5200 proc nextuse {id row} {
5201 global curview children
5206 return -1
5207 }
5210 }
5211 }
5212 }
5215 }
5216 return -1
5217 }
5219 proc prevuse {id row} {
5220 global curview children
5222 set ret -1
5228 }
5229 }
5230 }
5232 }
5234 proc make_idlist {row} {
5235 global displayorder parentlist uparrowlen downarrowlen mingaplen
5236 global commitidx curview children
5240 set r 0
5241 }
5244 set ra 0
5245 }
5249 }
5251 set ids {}
5260 }
5261 }
5262 }
5270 }
5271 }
5272 }
5280 }
5281 }
5282 incr r
5288 }
5289 }
5290 }
5291 set idlist {}
5294 }
5296 }
5298 proc rowsequal {a b} {
5301 }
5304 }
5306 }
5308 proc makeupline {id row rend col} {
5309 global rowidlist uparrowlen downarrowlen mingaplen
5315 }
5318 }
5325 }
5326 }
5327 }
5329 proc layoutrows {row endrow} {
5330 global rowidlist rowisopt rowfinal displayorder
5331 global uparrowlen downarrowlen maxwidth mingaplen
5332 global children parentlist
5333 global commitidx viewcomplete curview
5336 set idlist {}
5342 }
5343 }
5345 }
5350 set final 1
5351 } else {
5359 # if not the first child, we have to insert a line going up
5362 }
5363 }
5364 }
5374 }
5375 }
5376 }
5383 }
5384 }
5394 }
5395 }
5403 }
5404 }
5405 }
5406 }
5407 }
5411 set final 0
5412 }
5416 lappend rowisopt 0
5422 }
5424 } else {
5431 }
5432 }
5434 }
5436 proc changedrow {row} {
5437 global displayorder iddrawn rowisopt need_redisplay
5446 }
5447 }
5448 }
5451 set need_redisplay 1
5452 }
5453 }
5455 proc insert_pad {row col npad} {
5456 global rowidlist
5465 }
5468 }
5470 proc optimize_rows {row col endrow} {
5471 global rowidlist rowisopt displayorder curview children
5474 set row 1
5475 }
5478 set haspad 0
5487 } else {
5488 set pprevidlist {}
5489 }
5490 set x0 -1
5491 set xm -1
5496 set haspad 1
5497 continue
5498 }
5502 set isarrow 0
5503 set z0 {}
5508 }
5509 }
5514 set isarrow 1
5515 }
5516 }
5519 set isarrow 1
5520 }
5521 # Looking at lines from this row to the previous row,
5522 # make them go straight up if they end in an arrow on
5523 # the previous row; otherwise make them go straight up
5524 # or at 45 degrees.
5526 # Line currently goes left too much;
5527 # insert pads in the previous row, then optimize it
5532 }
5540 }
5542 # Line currently goes right too much;
5543 # insert pads in this line
5549 set haspad 1
5550 }
5557 }
5558 }
5559 # avoid lines jigging left then immediately right
5562 incr x0
5565 }
5566 }
5568 # Find the first column that doesn't have a line going right
5574 # check if this is the link to the first child
5577 # it is, work out offset to child
5579 }
5580 }
5582 }
5583 # Insert a pad at that column as long as it has a line and
5584 # isn't the last column
5589 }
5590 }
5591 }
5592 }
5594 proc xc {row col} {
5595 global canvx0 linespc
5597 }
5599 proc yc {row} {
5600 global canvy0 linespc
5602 }
5604 proc linewidth {id} {
5605 global thickerline lthickness
5610 }
5612 }
5614 proc rowranges {id} {
5615 global curview children uparrowlen downarrowlen
5616 global rowidlist
5620 return {}
5621 }
5622 set ret {}
5627 if {![info exists prev]} {
5629 } else {
5631 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5632 }
5633 # see if the line extends the whole way from prevrow to row
5637 # it doesn't, see where it ends
5642 } else {
5645 incr r -1
5646 }
5648 # see where it starts up again
5653 } else {
5656 incr r
5657 }
5659 }
5660 }
5663 }
5666 }
5668 }
5670 proc drawlineseg {id row endrow arrowlow} {
5671 global rowidlist displayorder iddrawn linesegs
5672 global canv colormap linespc curview maxlinelen parentlist
5676 set arrowhigh 1
5677 while {1} {
5680 incr le -1
5681 break
5682 }
5686 set arrowhigh 0
5687 break
5688 }
5693 set arrowhigh 0
5694 }
5695 break
5696 }
5697 incr le
5698 }
5701 }
5703 set lines {}
5704 set i 0
5705 set joinhigh 0
5712 set joinhigh 1
5713 }
5714 break
5715 }
5716 incr i
5717 }
5718 }
5719 set joinlow 0
5724 set joinlow 1
5725 }
5726 }
5739 }
5740 } else {
5742 }
5750 set arrowlow 0
5751 }
5752 }
5760 }
5762 }
5765 # join parent line to first child
5776 } else {
5778 }
5786 }
5788 }
5790 } else {
5794 }
5802 } else {
5806 }
5808 }
5809 } else {
5815 }
5819 } else {
5820 # coalesce two pieces
5825 }
5829 }
5830 }
5834 }
5836 proc drawparentlinks {id row} {
5837 global rowidlist canv colormap curview parentlist
5838 global idpos linespc
5851 # rmx = right-most X coord used
5852 set rmx 0
5857 continue
5858 }
5862 }
5865 # drawlineseg will do this one for us
5866 continue
5867 }
5869 # should handle duplicated parents here...
5872 # if attaching to a vertical segment, draw a smaller
5873 # slant for visual distinctness
5877 } else {
5879 }
5881 # segment slants towards us already
5883 } else {
5888 }
5890 }
5891 } else {
5893 }
5898 }
5902 }
5903 }
5905 proc drawlines {id} {
5906 global canv
5909 }
5911 proc drawcmittext {id row col} {
5912 global linespc canv canv2 canv3 fgcolor curview
5913 global cmitlisted commitinfo rowidlist parentlist
5914 global rowtextx idpos idtags idheads idotherrefs
5915 global linehtag linentag linedtag selectedline
5916 global canvxmax boldids boldnameids fgcolor markedid
5917 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5919 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5922 set ofill red
5924 set ofill green
5926 set ofill yellow
5927 } else {
5929 }
5938 # triangle pointing left for left-side commits
5944 } else {
5945 # triangle pointing right for right-side commits
5951 }
5963 }
5964 }
5965 }
5972 }
5975 }
5980 set font mainfont
5981 set nfont mainfont
5985 set font mainfontbold
5988 set nfont mainfontbold
5989 }
5990 }
6000 }
6003 }
6007 setcanvscroll
6008 }
6009 }
6011 proc drawcmitrow {row} {
6012 global displayorder rowidlist nrows_drawn
6013 global iddrawn markingmatches
6014 global commitinfo numcommits
6015 global filehighlight fhighlights findpattern nhighlights
6016 global hlview vhighlights
6017 global highlight_related rhighlights
6024 }
6027 }
6030 }
6033 }
6038 return
6039 }
6042 }
6046 incr nrows_drawn
6047 }
6050 }
6051 }
6053 proc drawcommits {row {endrow {}}} {
6054 global numcommits iddrawn displayorder curview need_redisplay
6055 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6058 set row 0
6059 }
6062 }
6065 }
6069 set rl1 0
6070 }
6073 set ro1 0
6074 }
6078 }
6083 }
6085 }
6086 }
6089 }
6092 clear_display
6093 }
6095 # make the lines join to already-drawn rows either side
6099 }
6104 }
6119 # see if this is the first child of any of its parents
6122 # make this line extend up to the child
6124 }
6125 }
6126 } else {
6128 }
6129 }
6130 }
6131 }
6133 proc undolayout {row} {
6134 global uparrowlen mingaplen downarrowlen
6135 global rowidlist rowisopt rowfinal need_redisplay
6139 set r 0
6140 }
6142 incr r -1
6146 set need_redisplay 1
6147 run drawvisible
6148 }
6149 }
6151 proc drawvisible {} {
6152 global canv linespc curview vrowmod selectedline targetrow targetid
6153 global need_redisplay cscroll numcommits
6163 if {[info exists targetid]} {
6167 # Fix up the scrollregion and change the scrolling position
6168 # now that our target row has moved.
6171 setcanvscroll
6179 set need_redisplay 1
6180 }
6181 } else {
6182 unset targetid
6183 }
6184 }
6190 }
6194 } elseif {[info exists targetid]} {
6196 }
6197 if {[info exists targetrow]} {
6200 }
6202 }
6204 }
6206 proc clear_display {} {
6207 global iddrawn linesegs need_redisplay nrows_drawn
6208 global vhighlights fhighlights nhighlights rhighlights
6209 global linehtag linentag linedtag boldids boldnameids
6211 allcanvs delete all
6212 catch {unset iddrawn}
6213 catch {unset linesegs}
6214 catch {unset linehtag}
6215 catch {unset linentag}
6216 catch {unset linedtag}
6217 set boldids {}
6218 set boldnameids {}
6219 catch {unset vhighlights}
6220 catch {unset fhighlights}
6221 catch {unset nhighlights}
6222 catch {unset rhighlights}
6223 set need_redisplay 0
6224 set nrows_drawn 0
6225 }
6227 proc findcrossings {id} {
6228 global rowidlist parentlist numcommits displayorder
6230 set cross {}
6231 set ccross {}
6235 }
6254 }
6255 }
6256 }
6257 }
6258 }
6260 }
6262 proc assigncolor {id} {
6263 global colormap colors nextcolor
6264 global parents children children curview
6270 } else {
6271 set kids {}
6272 }
6278 return
6279 }
6280 }
6281 set badcolors {}
6282 set origbad {}
6285 # delimiter between corner crossings and other crossings
6288 }
6292 }
6293 }
6296 }
6303 }
6308 }
6309 }
6310 }
6313 }
6314 }
6318 set nextcolor 0
6319 }
6321 }
6323 }
6325 proc bindline {t id} {
6326 global canv
6332 }
6334 proc drawtags {id x xt y1} {
6335 global idtags idheads idotherrefs mainhead
6336 global linespc lthickness
6337 global canv rowtextx curview fgcolor bgcolor ctxbut
6339 set marks {}
6340 set ntags 0
6341 set nheads 0
6345 }
6349 }
6352 }
6355 }
6360 set xvals {}
6361 set wvals {}
6362 set i -1
6364 incr i
6367 } else {
6369 }
6373 }
6381 set font mainfont
6382 if {[incr ntags -1] >= 0} {
6383 # draw a tag
6389 } else {
6390 # draw a head or other ref
6391 if {[incr nheads -1] >= 0} {
6392 set col green
6394 set font mainfontbold
6395 }
6396 } else {
6397 set col "#ddddff"
6398 }
6409 }
6410 }
6417 }
6418 }
6420 }
6422 proc drawnotesign {xt y} {
6423 global linespc canv fgcolor
6431 }
6433 proc xcoord {i level ln} {
6434 global canvx0 xspc1 xspc2
6441 }
6443 }
6445 proc show_status {msg} {
6446 global canv fgcolor
6448 clear_display
6451 }
6453 # Don't change the text pane cursor if it is currently the hand cursor,
6454 # showing that we are over a sha1 ID link.
6455 proc settextcursor {c} {
6456 global ctext curtextcursor
6460 }
6462 }
6464 proc nowbusy {what {name {}}} {
6465 global isbusy busyname statusw
6467 if {[array names isbusy] eq {}} {
6468 . config -cursor watch
6469 settextcursor watch
6470 }
6475 }
6476 }
6478 proc notbusy {what} {
6479 global isbusy maincursor textcursor busyname statusw
6481 catch {
6486 }
6487 }
6488 if {[array names isbusy] eq {}} {
6491 }
6492 }
6494 proc findmatches {f} {
6495 global findtype findstring
6498 } else {
6503 }
6504 set matches {}
6505 set i 0
6510 }
6511 }
6513 }
6515 proc dofind {{dirn 1} {wrap 1}} {
6516 global findstring findstartline findcurline selectedline numcommits
6517 global gdttype filehighlight fh_serial find_dirn findallowwrap
6519 if {[info exists find_dirn]} {
6521 stopfinding
6522 }
6523 focus .
6527 } else {
6529 }
6531 nowbusy finding [mc "Searching"]
6535 }
6538 run findmore
6539 }
6541 proc stopfinding {} {
6542 global find_dirn findcurline fprogcoord
6544 if {[info exists find_dirn]} {
6545 unset find_dirn
6546 unset findcurline
6547 notbusy finding
6548 set fprogcoord 0
6549 adjustprogress
6550 }
6551 stopblaming
6552 }
6554 proc findmore {} {
6555 global commitdata commitinfo numcommits findpattern findloc
6556 global findstartline findcurline findallowwrap
6557 global find_dirn gdttype fhighlights fprogcoord
6558 global curview varcorder vrownum varccommits vrowmod
6560 if {![info exists find_dirn]} {
6561 return 0
6562 }
6563 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6565 set moretodo 0
6567 incr l
6569 set l 0
6570 }
6573 } else {
6576 }
6577 } else {
6580 }
6581 incr l -1
6584 } else {
6585 set lim -1
6587 }
6588 }
6591 set n 500
6592 set moretodo 1
6593 }
6596 }
6597 set found 0
6598 set domore 1
6612 }
6614 # shouldn't happen unless git log doesn't give all the commits...
6617 continue
6618 }
6621 }
6627 set found 1
6628 break
6629 }
6630 }
6632 }
6633 } else {
6641 }
6646 }
6649 break
6650 }
6653 set domore 0
6655 }
6656 }
6657 }
6658 }
6660 unset findcurline
6661 unset find_dirn
6662 notbusy finding
6663 set fprogcoord 0
6664 adjustprogress
6667 } else {
6668 bell
6669 }
6670 return 0
6671 }
6673 flushhighlights
6674 } else {
6676 }
6680 }
6682 adjustprogress
6684 }
6686 proc findselectline {l} {
6687 global findloc commentend ctext findcurline markingmatches gdttype
6694 # highlight the matches in the comments
6701 }
6702 }
6703 drawvisible
6704 }
6706 # mark the bits of a headline or author that match a find string
6707 proc markmatches {canv l str tag matches font row} {
6708 global selectedline
6726 }
6727 }
6728 }
6730 proc unmarkmatches {} {
6731 global markingmatches
6733 allcanvs delete matches
6734 set markingmatches 0
6735 stopfinding
6736 }
6738 proc selcanvline {w x y} {
6739 global canv canvy0 ctext linespc
6740 global rowtextx
6747 set l 0
6748 }
6753 }
6754 unmarkmatches
6756 }
6758 proc commit_descriptor {p} {
6759 global commitinfo
6762 }
6763 set l "..."
6766 }
6768 }
6770 # append some text to the ctext widget, and make any SHA1 ID
6771 # that we know about be a clickable link.
6772 proc appendwithlinks {text tags} {
6773 global ctext linknum curview
6782 incr e
6786 incr linknum
6787 }
6788 }
6790 proc setlink {id lk} {
6791 global curview ctext pendinglinks
6795 }
6797 set known 0
6802 set known 1
6804 }
6805 } else {
6807 }
6813 } else {
6816 }
6817 }
6819 proc appendshortlink {id {pre {}} {post {}}} {
6820 global ctext linknum
6827 incr linknum
6828 }
6830 proc makelink {id} {
6831 global pendinglinks
6836 }
6838 }
6840 proc linkcursor {w inc} {
6841 global linkentercount curtextcursor
6845 } else {
6848 set linkentercount 0
6849 }
6850 }
6851 }
6853 proc viewnextline {dir} {
6854 global canv linespc
6862 set newtop 0
6865 }
6867 }
6869 # add a list of tag or branch names at position pos
6870 # returns the number of names inserted
6871 proc appendrefs {pos ids var} {
6875 return 0
6876 }
6879 set tags {}
6883 }
6884 }
6887 } else {
6889 set sep {}
6893 incr linknum
6898 set sep ", "
6899 }
6900 }
6903 }
6905 # called when we have finished computing the nearby tags
6906 proc dispneartags {delay} {
6907 global selectedline currentid showneartags tagphase
6910 after cancel dispnexttag
6912 after 200 dispnexttag
6913 set tagphase -1
6914 } else {
6915 after idle dispnexttag
6916 set tagphase 0
6917 }
6918 }
6920 proc dispnexttag {} {
6921 global selectedline currentid showneartags tagphase ctext
6925 0 {
6929 }
6930 }
6931 1 {
6935 }
6936 }
6937 2 {
6942 # turn "Branch" into "Branches"
6946 }
6947 }
6948 }
6949 }
6950 if {[incr tagphase] <= 2} {
6951 after idle dispnexttag
6952 }
6953 }
6955 proc make_secsel {id} {
6956 global linehtag linentag linedtag canv canv2 canv3
6971 }
6973 proc make_idmark {id} {
6974 global linehtag canv fgcolor
6981 }
6983 proc selectline {l isnew {desired_loc {}}} {
6984 global canv ctext commitinfo selectedline
6985 global canvy0 linespc parents children curview
6986 global currentid sha1entry
6987 global commentend idtags linknum
6988 global mergemax numcommits pending_select
6989 global cmitmode showneartags allcommits
6990 global targetrow targetid lastscrollrows
6991 global autoselect autosellen jump_to_here
6993 catch {unset pending_select}
6995 normalline
6996 unsel_reflist
6997 stopfinding
7005 setcanvscroll
7006 }
7020 } else {
7024 }
7025 }
7029 } else {
7033 }
7034 }
7035 }
7038 set newtop 0
7039 }
7041 drawvisible
7042 }
7048 }
7054 }
7058 clear_ctext
7059 set linknum 0
7062 }
7072 }
7074 }
7076 set headers {}
7079 set np 0
7082 set tag mmax
7083 } else {
7085 }
7088 incr np
7089 }
7090 } else {
7093 }
7094 }
7098 }
7100 # make anything that looks like a SHA1 ID be a clickable link
7103 if {![info exists allcommits]} {
7104 getallcommits
7105 }
7116 dispneartags 1
7117 }
7122 }
7130 init_flist [mc "Comments"]
7135 } else {
7137 }
7138 }
7140 proc selfirstline {} {
7141 unmarkmatches
7142 selectline 0 1
7143 }
7145 proc sellastline {} {
7146 global numcommits
7147 unmarkmatches
7150 }
7152 proc selnextline {dir} {
7153 global selectedline
7154 focus .
7157 unmarkmatches
7159 }
7161 proc selnextpage {dir} {
7162 global canv linespc selectedline numcommits
7166 set lpp 1
7167 }
7169 drawvisible
7173 set l 0
7176 }
7177 unmarkmatches
7179 }
7181 proc unselectline {} {
7182 global selectedline currentid
7184 set selectedline {}
7185 catch {unset currentid}
7186 allcanvs delete secsel
7187 rhighlight_none
7188 }
7190 proc reselectline {} {
7191 global selectedline
7195 }
7196 }
7198 proc addtohistory {cmd {saveproc {}}} {
7199 global history historyindex curview
7201 unset_posvars
7202 save_position
7206 return
7207 }
7211 } else {
7213 }
7214 incr historyindex
7216 .tf.bar.leftbut conf -state normal
7217 } else {
7218 .tf.bar.leftbut conf -state disabled
7219 }
7220 .tf.bar.rightbut conf -state disabled
7221 }
7223 # save the scrolling position of the diff display pane
7224 proc save_position {} {
7225 global historyindex history
7232 }
7233 }
7235 proc unset_posvars {} {
7236 global last_posvars
7238 if {[info exists last_posvars]} {
7242 }
7243 unset last_posvars
7244 }
7245 }
7247 proc godo {elt} {
7248 global curview last_posvars
7255 }
7256 unset_posvars
7260 }
7263 }
7265 proc goback {} {
7266 global history historyindex
7267 focus .
7270 save_position
7271 incr historyindex -1
7273 .tf.bar.rightbut conf -state normal
7274 }
7276 .tf.bar.leftbut conf -state disabled
7277 }
7278 }
7280 proc goforw {} {
7281 global history historyindex
7282 focus .
7285 save_position
7287 incr historyindex
7289 .tf.bar.leftbut conf -state normal
7290 }
7292 .tf.bar.rightbut conf -state disabled
7293 }
7294 }
7296 proc gettree {id} {
7297 global treefilelist treeidlist diffids diffmergeid treepending
7298 global nullid nullid2
7301 catch {unset diffmergeid}
7303 if {![info exists treepending]} {
7305 set cmd [list | git ls-files]
7307 set cmd [list | git ls-files --stage -t]
7308 } else {
7310 }
7312 return
7313 }
7319 }
7320 } else {
7322 }
7323 }
7325 proc gettreeline {gtf id} {
7326 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7328 set nl 0
7332 } else {
7340 }
7343 }
7346 }
7349 }
7351 unset treepending
7353 if {![info exists diffmergeid]} {
7355 }
7358 } else {
7360 }
7361 return 0
7362 }
7364 proc showfile {f} {
7365 global treefilelist treeidlist diffids nullid nullid2
7366 global ctext_file_names ctext_file_lines
7367 global ctext commentend
7372 return
7373 }
7377 return
7378 }
7379 } else {
7383 return
7384 }
7385 }
7396 settabs 0
7397 }
7399 proc getblobline {bf id} {
7400 global diffids cmitmode ctext
7404 return 0
7405 }
7407 set nl 0
7410 }
7412 global jump_to_here ctext_file_names commentend
7414 # delete last newline
7422 }
7424 return 0
7425 }
7428 }
7430 proc mark_ctext_line {lnum} {
7431 global ctext markbgcolor
7437 }
7439 proc mergediff {id} {
7440 global diffmergeid
7441 global diffids treediffs
7442 global parents curview
7450 }
7452 proc startdiff {ids} {
7453 global treediffs diffids treepending diffmergeid nullid nullid2
7455 settabs 1
7457 catch {unset diffmergeid}
7461 if {![info exists treepending]} {
7463 }
7464 } else {
7466 }
7467 }
7469 # If the filename (name) is under any of the passed filter paths
7470 # then return true to include the file in the listing.
7471 proc path_filter {filter name} {
7472 set worktree [gitworktree]
7477 return 1
7478 }
7479 }
7480 return 0
7481 }
7483 proc addtocflist {ids} {
7484 global treediffs
7488 }
7490 proc diffcmd {ids flags} {
7491 global log_showroot nullid nullid2
7497 # comparing working directory with some specific revision
7501 } else {
7503 }
7504 } else {
7505 # comparing working directory with index
7508 lappend cmd -R
7509 }
7510 }
7514 # comparing index with specific revision
7517 } else {
7519 }
7520 } else {
7521 # comparing index with HEAD
7522 lappend cmd HEAD
7523 }
7524 } else {
7526 lappend flags --root
7527 }
7529 }
7531 }
7533 proc gettreediffs {ids} {
7534 global treediff treepending
7539 set treediff {}
7542 }
7544 proc gettreediffline {gdtf ids} {
7545 global treediff treediffs treepending diffids diffmergeid
7546 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7548 set nr 0
7549 set sublist {}
7550 set max 1000
7552 # cache_gitattr is slow, and even slower on win32 where we
7553 # have to invoke it for only about 30 paths at a time
7554 set max 500
7555 if {[tk windowingsystem] == "win32"} {
7556 set max 120
7557 }
7558 }
7565 }
7570 }
7571 }
7572 }
7575 }
7578 }
7581 set flist {}
7585 }
7586 }
7588 } else {
7590 }
7591 unset treepending
7595 if {![info exists diffmergeid]} {
7597 }
7598 } else {
7600 }
7601 return 0
7602 }
7604 # empty string or positive integer
7605 proc diffcontextvalidate {v} {
7607 }
7609 proc diffcontextchange {n1 n2 op} {
7610 global diffcontextstring diffcontext
7615 reselectline
7616 }
7617 }
7618 }
7620 proc changeignorespace {} {
7621 reselectline
7622 }
7624 proc changeworddiff {name ix op} {
7625 reselectline
7626 }
7628 proc getblobdiffs {ids} {
7629 global blobdifffd diffids env
7630 global diffinhdr treediffs
7631 global diffcontext
7632 global ignorespace
7633 global worddiff
7634 global limitdiffs vfilelimit curview
7635 global diffencoding targetline diffnparents
7636 global git_version currdiffsubmod
7638 set textconv {}
7640 set textconv "--textconv"
7641 }
7642 set submodule {}
7644 set submodule "--submodule"
7645 }
7648 append cmd " -w"
7649 }
7651 append cmd " --word-diff=porcelain"
7652 }
7655 }
7658 return
7659 }
7660 set targetline {}
7661 set diffnparents 0
7662 set diffinhdr 0
7663 set diffencoding [get_path_encoding {}]
7666 set currdiffsubmod ""
7668 }
7670 proc savecmitpos {} {
7671 global ctext cmitmode
7674 return {}
7675 }
7677 }
7679 proc savectextpos {} {
7680 global ctext
7683 }
7685 proc maybe_scroll_ctext {ateof} {
7686 global ctext target_scrollpos
7688 if {![info exists target_scrollpos]} return
7691 / [font metrics textfont -linespace]}]
7693 }
7695 unset target_scrollpos
7696 }
7698 proc setinlist {var i val} {
7703 }
7706 } else {
7708 }
7709 }
7711 proc makediffhdr {fname ids} {
7712 global ctext curdiffstart treediffs diffencoding
7713 global ctext_file_names jump_to_here targetline diffline
7720 }
7725 set targetline {}
7728 }
7729 set diffline 0
7730 }
7732 proc getblobdiffline {bdf ids} {
7733 global diffids blobdifffd ctext curdiffstart
7734 global diffnexthead diffnextnote difffilestart
7735 global ctext_file_names ctext_file_lines
7736 global diffinhdr treediffs mergemax diffnparents
7737 global diffencoding jump_to_here targetline diffline currdiffsubmod
7738 global worddiff
7740 set nr 0
7745 return 0
7746 }
7751 continue
7752 }
7753 # start of a new file
7754 set diffinhdr 1
7757 lappend ctext_file_names ""
7762 # start of a new file in a merge diff
7767 }
7769 } else {
7771 # If the name hasn't changed the length will be odd,
7772 # the middle char will be a space, and the two bits either
7773 # side will be a/name and b/name, or "a/name" and "b/name".
7774 # If the name has changed we'll get "rename from" and
7775 # "rename to" or "copy from" and "copy to" lines following
7776 # this, and we'll use them to get the filenames.
7777 # This complexity is necessary because spaces in the
7778 # filename(s) don't get escaped.
7784 continue
7785 }
7786 # unescape if quoted and chop off the a/ from the front
7789 } else {
7791 }
7792 }
7805 }
7813 }
7815 set diffinhdr 0
7818 # start of a new submodule
7821 } else {
7823 }
7826 }
7828 lappend ctext_file_names ""
7834 } else {
7836 }
7850 }
7855 }
7861 }
7864 # do nothing
7865 continue
7867 set diffinhdr 0
7868 continue
7869 }
7872 } else {
7873 set line [string map {\x1A ^Z} \
7875 # parse the prefix - one ' ', '-' or '+' for each parent
7879 set words_pre_markup ""
7880 set words_post_markup ""
7882 # prefix only has " ", "-" and "+" in it: normal diff line
7886 }
7890 set num "max"
7891 }
7894 } else {
7896 }
7899 }
7900 } else {
7901 set tags {}
7903 # added line
7909 set num "max"
7910 }
7912 }
7913 }
7914 set words_pre_markup "{+"
7915 set words_post_markup "+}"
7916 }
7920 set targetline {}
7921 } else {
7922 incr diffline
7923 }
7924 }
7927 } else {
7929 }
7932 }
7933 }
7936 } else {
7937 # "\ No newline at end of file",
7938 # or something else we don't recognize
7940 }
7941 }
7942 }
7943 if {[info exists seehere]} {
7945 }
7950 return 0
7951 }
7953 }
7955 proc changediffdisp {} {
7956 global ctext diffelide
7960 }
7962 proc highlightfile {cline} {
7963 global cflist cflist_top
7969 }
7971 proc highlightfile_for_scrollpos {topidx} {
7972 global difffilestart
7974 if {![info exists difffilestart]} return
7978 highlightfile 0
7979 } else {
7981 }
7982 }
7984 proc prevfile {} {
7985 global difffilestart ctext cmitmode
7988 set prev 0.0
7993 return
7994 }
7996 }
7998 }
8000 proc nextfile {} {
8001 global difffilestart ctext cmitmode
8008 return
8009 }
8010 }
8011 }
8013 proc clear_ctext {{first 1.0}} {
8014 global ctext smarktop smarkbot
8015 global ctext_file_names ctext_file_lines
8016 global pendinglinks
8021 }
8024 }
8027 catch {unset pendinglinks}
8028 }
8029 set ctext_file_names {}
8030 set ctext_file_lines {}
8031 }
8033 proc settabs {{firstab {}}} {
8034 global firsttabstop tabstop ctext have_tk85
8038 }
8039 set w [font measure textfont "0"]
8045 } else {
8047 }
8048 }
8050 proc incrsearch {name ix op} {
8051 global ctext searchstring searchdirn
8054 # no anchor set, use start of selection, or of visible area
8060 } else {
8062 }
8063 }
8071 suppress_highlighting_file_for_current_scrollpos
8073 }
8074 }
8075 rehighlight_search_results
8076 }
8078 proc dosearch {} {
8079 global sstring ctext searchstring searchdirn
8083 set searchdirn -forwards
8089 set start "@0,0"
8090 }
8094 bell
8095 return
8096 }
8098 suppress_highlighting_file_for_current_scrollpos
8103 rehighlight_search_results
8104 }
8105 }
8107 proc dosearchback {} {
8108 global sstring ctext searchstring searchdirn
8112 set searchdirn -backwards
8119 }
8123 bell
8124 return
8125 }
8127 suppress_highlighting_file_for_current_scrollpos
8132 rehighlight_search_results
8133 }
8134 }
8136 proc rehighlight_search_results {} {
8137 global ctext searchstring
8143 searchmarkvisible 1
8144 }
8145 }
8147 proc searchmark {first last} {
8148 global ctext searchstring
8153 while {1} {
8159 } else {
8161 }
8162 }
8163 }
8165 proc searchmarkvisible {doall} {
8166 global ctext smarktop smarkbot
8171 # no overlap with previous
8175 } else {
8179 }
8183 }
8184 }
8185 }
8187 proc suppress_highlighting_file_for_current_scrollpos {} {
8188 global ctext suppress_highlighting_file_for_this_scrollpos
8191 }
8193 proc scrolltext {f0 f1} {
8194 global searchstring cmitmode ctext
8195 global suppress_highlighting_file_for_this_scrollpos
8199 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8202 }
8203 }
8205 catch {unset suppress_highlighting_file_for_this_scrollpos}
8209 searchmarkvisible 0
8210 }
8211 }
8213 proc setcoords {} {
8214 global linespc charspc canvx0 canvy0
8215 global xspc1 xspc2 lthickness
8217 set linespc [font metrics mainfont -linespace]
8218 set charspc [font measure mainfont "m"]
8224 }
8226 proc redisplay {} {
8227 global canv
8228 global selectedline
8233 clear_display
8234 setcanvscroll
8236 drawvisible
8240 }
8241 }
8243 proc parsefont {f n} {
8244 global fontattr
8249 set s 10
8252 }
8258 "normal" -
8260 "roman" -
8262 }
8263 }
8264 }
8266 proc fontflags {f {isbold 0}} {
8267 global fontattr
8272 }
8274 proc fontname {f} {
8275 global fontattr
8279 lappend n "bold"
8280 }
8282 lappend n "italic"
8283 }
8285 }
8287 proc incrfont {inc} {
8288 global mainfont textfont ctext canv cflist showrefstop
8289 global stopped entries fontattr
8291 unmarkmatches
8295 set s 1
8296 }
8300 set mainfont [fontname mainfont]
8304 set s 1
8305 }
8309 set textfont [fontname textfont]
8310 setcoords
8311 settabs
8312 redisplay
8313 }
8315 proc clearsha1 {} {
8316 global sha1entry sha1string
8319 }
8320 }
8322 proc sha1change {n1 n2 op} {
8323 global sha1string currentid sha1but
8326 set state disabled
8327 } else {
8328 set state normal
8329 }
8333 } else {
8335 }
8336 }
8338 proc gotocommit {} {
8339 global sha1string tagids headids curview varcid
8347 } else {
8354 return
8355 }
8357 }
8358 } else {
8361 return
8362 }
8363 }
8364 }
8367 return
8368 }
8371 } else {
8373 }
8375 }
8377 proc lineenter {x y id} {
8378 global hoverx hovery hoverid hovertimer
8379 global commitinfo canv
8385 if {[info exists hovertimer]} {
8387 }
8388 set hovertimer [after 500 linehover]
8390 }
8392 proc linemotion {x y id} {
8393 global hoverx hovery hoverid hovertimer
8398 if {[info exists hovertimer]} {
8400 }
8401 set hovertimer [after 500 linehover]
8402 }
8403 }
8405 proc lineleave {id} {
8406 global hoverid hovertimer canv
8410 if {[info exists hovertimer]} {
8412 unset hovertimer
8413 }
8414 unset hoverid
8415 }
8416 }
8418 proc linehover {} {
8419 global hoverx hovery hoverid hovertimer
8420 global canv linespc lthickness
8421 global commitinfo
8434 -fill \#ffff80 -outline black -width 1 -tags hover]
8437 -font mainfont]
8439 }
8441 proc clickisonarrow {id y} {
8442 global lthickness
8451 }
8452 }
8453 return {}
8454 }
8456 proc arrowjump {id n y} {
8457 global canv
8459 # 1 <-> 2, 3 <-> 4, etc...
8469 set yfrac 0
8470 }
8472 }
8474 proc lineclick {x y id isnew} {
8475 global ctext commitinfo children canv thickerline curview
8478 unmarkmatches
8479 unselectline
8480 normalline
8482 # draw this line thicker than normal
8490 }
8494 return
8495 }
8499 }
8500 # fill the details pane with info about this line
8502 clear_ctext
8503 settabs 0
8515 set i 0
8517 incr i
8527 }
8528 }
8529 maybe_scroll_ctext 1
8531 init_flist {}
8532 }
8534 proc normalline {} {
8535 global thickerline
8536 if {[info exists thickerline]} {
8538 unset thickerline
8540 }
8541 }
8543 proc selbyid {id {isnew 1}} {
8544 global curview
8547 }
8548 }
8550 proc mstime {} {
8551 global startmstime
8552 if {![info exists startmstime]} {
8553 set startmstime [clock clicks -milliseconds]
8554 }
8556 }
8558 proc rowmenu {x y id} {
8559 global rowctxmenu selectedline rowmenuid curview
8560 global nullid nullid2 fakerowmenu mainhead markedid
8562 stopfinding
8565 set state disabled
8566 } else {
8567 set state normal
8568 }
8570 set mstate normal
8571 } else {
8572 set mstate disabled
8573 }
8578 } else {
8580 }
8584 } else {
8586 }
8593 }
8595 proc markhere {} {
8596 global rowmenuid markedid canv
8600 }
8602 proc gotomark {} {
8603 global markedid
8605 if {[info exists markedid]} {
8607 }
8608 }
8610 proc replace_by_kids {l r} {
8611 global curview children
8617 }
8619 }
8621 proc find_common_desc {} {
8622 global markedid rowmenuid curview children
8624 if {![info exists markedid]} return
8627 #set t1 [clock clicks -milliseconds]
8630 while 1 {
8636 break
8637 }
8640 } else {
8642 }
8643 }
8644 #set t2 [clock clicks -milliseconds]
8646 }
8648 proc compare_commits {} {
8649 global markedid rowmenuid curview children
8651 if {![info exists markedid]} return
8655 }
8657 proc getpatchid {id} {
8658 global patchids
8662 # trim off the initial "|"
8664 if {[catch {
8667 }]} {
8669 }
8670 }
8672 }
8674 proc do_cmp_commits {a b} {
8675 global ctext curview parents children patchids commitinfo
8678 clear_ctext
8679 init_flist {}
8681 set skipa 0
8682 set skipb 0
8685 set skipa 1
8686 } else {
8688 }
8691 set skipb 1
8692 } else {
8694 }
8700 [mc " - stopping\n"]
8701 break
8702 }
8705 [mc " - stopping\n"]
8706 break
8707 }
8712 } else {
8716 }
8717 set skipa 1
8718 set skipb 1
8719 } else {
8726 update
8728 return
8729 }
8730 }
8737 break
8738 }
8740 }
8746 break
8747 }
8749 }
8750 }
8752 }
8754 proc diffcommits {a b} {
8755 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8757 set tmpdir [gitknewtmpdir]
8760 if {[catch {
8763 } err]} {
8765 return
8766 }
8767 if {[catch {
8769 } err]} {
8771 return
8772 }
8775 set diffinhdr 0
8776 set currdiffsubmod ""
8778 }
8780 proc diffvssel {dirn} {
8781 global rowmenuid selectedline
8787 } else {
8790 }
8793 }
8795 proc diffvsmark {dirn} {
8796 global rowmenuid markedid
8798 if {![info exists markedid]} return
8802 } else {
8805 }
8808 }
8810 proc doseldiff {oldid newid} {
8811 global ctext
8812 global commitinfo
8815 clear_ctext
8816 init_flist [mc "Top"]
8831 }
8833 proc mkpatch {} {
8834 global rowmenuid currentid commitinfo patchtop patchnum NS
8836 if {![info exists currentid]} return
8841 set top .patch
8871 incr patchnum
8883 }
8885 proc mkpatchrev {} {
8886 global patchtop
8892 foreach e [list fromsha1 fromhead tosha1 tohead] \
8898 }
8899 }
8901 proc mkpatchgo {} {
8902 global patchtop nullid nullid2
8908 # trim off the initial "|"
8913 }
8915 unset patchtop
8916 }
8918 proc mkpatchcan {} {
8919 global patchtop
8922 unset patchtop
8923 }
8925 proc mktag {} {
8926 global rowmenuid mktagtop commitinfo NS
8928 set top .maketag
8962 }
8964 proc domktag {} {
8965 global mktagtop env tagids idtags
8972 return 0
8973 }
8976 return 0
8977 }
8978 if {[catch {
8981 } else {
8983 }
8984 } err]} {
8986 return 0
8987 }
8993 dispneartags 0
8994 run refill_reflist
8995 return 1
8996 }
8998 proc redrawtags {id} {
8999 global canv linehtag idpos currentid curview cmitlisted markedid
9000 global canvxmax iddrawn circleitem mainheadid circlecolors
9006 set ofill yellow
9007 } else {
9009 }
9019 setcanvscroll
9020 }
9023 }
9026 }
9027 }
9029 proc mktagcan {} {
9030 global mktagtop
9033 unset mktagtop
9034 }
9036 proc mktaggo {} {
9037 if {![domktag]} return
9038 mktagcan
9039 }
9041 proc writecommit {} {
9042 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9044 set top .writecommit
9077 }
9079 proc wrcomgo {} {
9080 global wrcomtop
9087 }
9089 unset wrcomtop
9090 }
9092 proc wrcomcan {} {
9093 global wrcomtop
9096 unset wrcomtop
9097 }
9099 proc mkbranch {} {
9100 global rowmenuid mkbrtop NS
9102 set top .makebranch
9126 }
9128 proc mkbrgo {top} {
9129 global headids idheads
9133 set cmdargs {}
9134 set old_id {}
9137 return
9138 }
9140 if {![confirm_popup [mc \
9142 return
9143 }
9145 lappend cmdargs -f
9146 }
9149 nowbusy newbranch
9150 update
9151 if {[catch {
9153 } err]} {
9154 notbusy newbranch
9156 } else {
9157 notbusy newbranch
9163 } else {
9168 }
9169 dispneartags 0
9170 run refill_reflist
9171 }
9172 }
9174 proc exec_citool {tool_args {baseid {}}} {
9175 global commitinfo env
9177 set save_env [array get env GIT_AUTHOR_*]
9182 }
9185 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9191 }
9192 }
9196 array unset env GIT_AUTHOR_*
9198 }
9200 proc cherrypick {} {
9201 global rowmenuid curview
9202 global mainhead mainheadid
9203 global gitdir
9205 set oldhead [exec git rev-parse HEAD]
9208 set ok [confirm_popup [mc "Commit %s is already\
9209 included in branch %s -- really re-apply it?" \
9212 }
9213 nowbusy cherrypick [mc "Cherry-picking"]
9214 update
9215 # Unfortunately git-cherry-pick writes stuff to stderr even when
9216 # no error occurs, and exec takes that as an indication of error...
9218 notbusy cherrypick
9219 if {[regexp -line \
9220 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9222 error_popup [mc "Cherry-pick failed because of local changes\
9223 to file '%s'.\nPlease commit, reset or stash\
9225 } elseif {[regexp -line \
9226 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9228 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9229 conflict.\nDo you wish to run git citool to\
9230 resolve it?"]]} {
9231 # Force citool to read MERGE_MSG
9234 }
9235 } else {
9237 }
9238 run updatecommits
9239 return
9240 }
9241 set newhead [exec git rev-parse HEAD]
9243 notbusy cherrypick
9244 error_popup [mc "No changes committed"]
9245 return
9246 }
9249 # XXX this isn't right if we have a path limit...
9254 }
9259 }
9260 notbusy cherrypick
9261 }
9263 proc resethead {} {
9264 global mainhead rowmenuid confirm_ok resettype NS
9266 set confirm_ok 0
9267 set w ".confirmreset"
9275 set resettype mixed
9277 -text [mc "Soft: Leave working tree and index untouched"]
9280 -text [mc "Mixed: Leave working tree untouched, reset index"]
9283 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9294 if {[catch {set fd [open \
9297 } else {
9298 dohidelocalchanges
9300 nowbusy reset [mc "Resetting"]
9302 }
9303 }
9305 proc readresetstat {fd} {
9306 global mainhead mainheadid showlocalchanges rprogcoord
9311 adjustprogress
9312 }
9313 return 1
9314 }
9315 set rprogcoord 0
9316 adjustprogress
9317 notbusy reset
9320 }
9322 set newhead [exec git rev-parse HEAD]
9329 }
9331 doshowlocalchanges
9332 }
9333 return 0
9334 }
9336 # context menu for a head
9337 proc headmenu {x y id head} {
9338 global headmenuid headmenuhead headctxmenu mainhead
9340 stopfinding
9343 set state normal
9345 set state disabled
9346 }
9348 set state disabled
9349 }
9353 }
9355 proc cobranch {} {
9356 global headmenuid headmenuhead headids
9357 global showlocalchanges
9359 # check the tree is clean first??
9360 nowbusy checkout [mc "Checking out"]
9361 update
9362 dohidelocalchanges
9363 if {[catch {
9365 } err]} {
9366 notbusy checkout
9369 dodiffindex
9370 }
9371 } else {
9373 }
9374 }
9376 proc readcheckoutstat {fd newhead newheadid} {
9377 global mainhead mainheadid headids showlocalchanges progresscoords
9378 global viewmainheadid curview
9383 adjustprogress
9384 }
9385 return 1
9386 }
9387 set progresscoords {0 0}
9388 adjustprogress
9389 notbusy checkout
9392 }
9401 dodiffindex
9402 }
9403 }
9405 proc rmbranch {} {
9406 global headmenuid headmenuhead mainhead
9407 global idheads
9411 # this check shouldn't be needed any more...
9413 error_popup [mc "Cannot delete the currently checked-out branch"]
9414 return
9415 }
9418 # the stuff on this branch isn't on any other branch
9419 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9421 }
9422 nowbusy rmbranch
9423 update
9425 notbusy rmbranch
9427 return
9428 }
9432 notbusy rmbranch
9433 dispneartags 0
9434 run refill_reflist
9435 }
9437 # Display a list of tags and heads
9438 proc showrefs {} {
9439 global showrefstop bgcolor fgcolor selectbgcolor NS
9440 global bglist fglist reflistfilter reflist maincursor
9442 set top .showrefs
9446 refill_reflist
9447 return
9448 }
9456 -spacing1 1 -spacing3 1 -state disabled
9467 set reflistfilter "*"
9468 trace add variable reflistfilter write reflistfilter_change
9480 set reflist {}
9481 refill_reflist
9482 }
9484 proc sel_reflist {w x y} {
9485 global showrefstop reflist headids tagids otherrefids
9495 }
9497 }
9499 proc unsel_reflist {} {
9500 global showrefstop
9504 }
9506 proc reflistfilter_change {n1 n2 op} {
9507 global reflistfilter
9509 after cancel refill_reflist
9510 after 200 refill_reflist
9511 }
9513 proc refill_reflist {} {
9514 global reflist reflistfilter showrefstop headids tagids otherrefids
9515 global curview
9518 set refs {}
9519 foreach n [array names headids] {
9523 } else {
9525 }
9526 }
9527 }
9528 foreach n [array names tagids] {
9532 } else {
9534 }
9535 }
9536 }
9537 foreach n [array names otherrefids] {
9541 } else {
9543 }
9544 }
9545 }
9553 set i 0
9554 set j 0
9563 }
9564 } else {
9565 set cmp -1
9566 }
9567 } else {
9568 set cmp 1
9569 }
9571 -1 {
9573 incr i
9574 }
9575 0 {
9576 incr i
9577 incr j
9578 }
9579 1 {
9584 incr j
9585 }
9586 }
9587 }
9589 # delete last newline
9592 }
9594 # Stuff for finding nearby tags
9595 proc getallcommits {} {
9596 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9597 global idheads idtags idotherrefs allparents tagobjid
9598 global gitdir
9600 if {![info exists allcommits]} {
9601 set nextarc 0
9602 set allcommits 0
9603 set seeds {}
9604 set allcwait 0
9605 set cachedarcs 0
9607 if {![catch {
9609 set allcwait 1
9611 }]} return
9612 }
9615 return
9616 }
9617 set cmd [list | git rev-list --parents]
9620 set ids "--all"
9621 } else {
9622 set refs [concat [array names idheads] [array names idtags] \
9623 [array names idotherrefs]]
9624 set ids {}
9625 set tagobjs {}
9626 foreach name [array names tagobjid] {
9628 }
9633 }
9634 }
9638 }
9639 }
9640 }
9644 incr allcommits
9645 nowbusy allcommits
9647 } else {
9648 dispneartags 0
9649 }
9650 }
9652 # Since most commits have 1 parent and 1 child, we group strings of
9653 # such commits into "arcs" joining branch/merge points (BMPs), which
9654 # are commits that either don't have 1 parent or don't have 1 child.
9655 #
9656 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9657 # arcout(id) - outgoing arcs for BMP
9658 # arcids(a) - list of IDs on arc including end but not start
9659 # arcstart(a) - BMP ID at start of arc
9660 # arcend(a) - BMP ID at end of arc
9661 # growing(a) - arc a is still growing
9662 # arctags(a) - IDs out of arcids (excluding end) that have tags
9663 # archeads(a) - IDs out of arcids (excluding end) that have heads
9664 # The start of an arc is at the descendent end, so "incoming" means
9665 # coming from descendents, and "outgoing" means going towards ancestors.
9667 proc getallclines {fd} {
9668 global allparents allchildren idtags idheads nextarc
9669 global arcnos arcids arctags arcout arcend arcstart archeads growing
9670 global seeds allcommits cachedarcs allcupdate
9672 set nid 0
9676 # seen it already
9677 continue
9678 }
9679 set cachedarcs 0
9686 } else {
9692 }
9695 }
9697 # seen parent already
9700 }
9704 }
9707 continue
9708 }
9709 }
9714 }
9716 set ao {}
9719 set a [incr nextarc]
9728 # seen it already, may need to make a new branch
9731 }
9735 }
9737 }
9739 }
9741 global cached_dheads cached_dtags cached_atags
9742 catch {unset cached_dheads}
9743 catch {unset cached_dtags}
9744 catch {unset cached_atags}
9745 }
9748 }
9749 set cacheok 1
9750 if {[catch {
9753 } err]} {
9754 # got an error reading the list of commits
9755 # if we were updating, try rereading the whole thing again
9757 incr allcommits -1
9759 return
9760 }
9761 error_popup "[mc "Error reading commit topology information;\
9762 branch and preceding/following tag information\
9764 set cacheok 0
9765 }
9766 if {[incr allcommits -1] == 0} {
9767 notbusy allcommits
9769 run savecache
9770 }
9771 }
9772 dispneartags 0
9773 return 0
9774 }
9776 proc recalcarc {a} {
9777 global arctags archeads arcids idtags idheads
9779 set at {}
9780 set ah {}
9784 }
9787 }
9788 }
9791 }
9793 proc splitarc {p} {
9794 global arcnos arcids nextarc arctags archeads idtags idheads
9795 global arcstart arcend arcout allparents growing
9800 return
9801 }
9806 return
9807 }
9808 set na [incr nextarc]
9811 } else {
9815 }
9825 }
9830 } else {
9833 }
9834 }
9836 # reconstruct tags and heads lists
9840 } else {
9843 }
9844 }
9846 # Update things for a new commit added that is a child of one
9847 # existing commit. Used when cherry-picking.
9848 proc addnewchild {id p} {
9849 global allparents allchildren idtags nextarc
9850 global arcnos arcids arctags arcout arcend arcstart archeads growing
9851 global seeds allcommits
9859 set a [incr nextarc]
9867 }
9870 }
9872 # This implements a cache for the topology information.
9873 # The cache saves, for each arc, the start and end of the arc,
9874 # the ids on the arc, and the outgoing arcs from the end.
9875 proc readcache {f} {
9876 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9877 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9878 global allcwait
9884 }
9885 if {[catch {
9887 # finish reading the cache and setting up arctags, etc.
9891 foreach id [array names idtags] {
9897 }
9898 }
9899 }
9900 foreach id [array names idheads] {
9906 }
9907 }
9908 }
9912 }
9913 }
9914 set allcwait 0
9915 } else {
9925 }
9929 } else {
9933 }
9934 }
9940 }
9943 }
9946 }
9948 }
9949 } err]} {
9951 return 0
9952 }
9954 getallcommits
9955 }
9957 }
9959 proc getcache {f} {
9960 global nextarc cachedarcs possible_seeds
9962 if {[catch {
9965 # make sure it's an integer
9968 set nextarc 0
9969 set possible_seeds {}
9971 } err]} {
9973 }
9974 return 0
9975 }
9977 proc dropcache {err} {
9978 global allcwait nextarc cachedarcs seeds
9981 foreach v {arcnos arcout arcids arcstart arcend growing \
9982 arctags archeads allparents allchildren} {
9985 }
9986 set allcwait 0
9987 set nextarc 0
9988 set cachedarcs 0
9989 set seeds {}
9990 getallcommits
9991 }
9993 proc writecache {f} {
9994 global cachearc cachedarcs allccache
9995 global arcstart arcend arcnos arcids arcout
10001 }
10002 if {[catch {
10006 } else {
10008 }
10009 }
10010 } err]} {
10014 return 0
10015 }
10020 return 0
10021 }
10022 return 1
10023 }
10025 proc savecache {} {
10026 global nextarc cachedarcs cachearc allccache
10029 set cachearc 0
10031 catch {
10035 }
10036 }
10038 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10039 # or 0 if neither is true.
10040 proc anc_or_desc {a b} {
10041 global arcout arcstart arcend arcnos cached_isanc
10044 # Both are on the same arc(s); either both are the same BMP,
10045 # or if one is not a BMP, the other is also not a BMP or is
10046 # the BMP at end of the arc (and it only has 1 incoming arc).
10047 # Or both can be BMPs with no incoming arcs.
10049 return 0
10050 }
10056 return 1
10057 } else {
10058 return -1
10059 }
10060 }
10066 } else {
10067 set aend {}
10068 }
10070 } else {
10072 }
10077 } else {
10078 set bend {}
10079 }
10081 } else {
10083 }
10085 return 1
10086 }
10088 return -1
10089 }
10092 return 1
10093 }
10094 }
10097 return -1
10098 }
10100 return 0
10101 }
10102 }
10110 continue
10111 }
10117 return 1
10121 return -1
10122 }
10128 }
10129 }
10130 }
10133 return 0
10134 }
10138 # and returns 0 if so and 1 if not.
10139 # If we subsequently discover a tag on such a growing tip, and that
10142 # isn't a good choice to display as a descendent tag of
10146 #
10147 proc is_certain {desc anc} {
10148 global arcnos arcout arcstart arcend growing problems
10150 set certain {}
10152 # tags on the same arc are certain
10154 return 1
10155 }
10160 }
10161 }
10164 } else {
10167 }
10169 return 1
10170 }
10173 set nnh 1
10174 set ngrowanc 0
10178 incr nnh -1
10179 }
10185 incr ngrowanc
10186 }
10187 } else {
10194 incr nnh -1
10195 }
10197 incr ngrowanc -1
10198 }
10208 incr nnh -1
10209 }
10211 incr ngrowanc -1
10212 }
10214 }
10215 }
10216 }
10217 }
10218 }
10219 }
10223 } else {
10226 incr nnh
10227 }
10228 }
10229 }
10230 }
10231 foreach x [array names growanc] {
10233 return 0
10234 }
10235 return 0
10236 }
10237 return 1
10238 }
10240 proc validate_arctags {a} {
10241 global arctags idtags
10243 set i -1
10246 incr i
10249 incr i -1
10250 }
10251 }
10253 }
10255 proc validate_archeads {a} {
10256 global archeads idheads
10258 set i -1
10261 incr i
10264 incr i -1
10265 }
10266 }
10268 }
10270 # Return the list of IDs that have tags that are descendents of id,
10271 # ignoring IDs that are descendents of IDs already reported.
10272 proc desctags {id} {
10273 global arcnos arcstart arcids arctags idtags allparents
10274 global growing cached_dtags
10277 return {}
10278 }
10279 set t1 [clock clicks -milliseconds]
10282 # part-way along an arc; check that arc first
10287 set tid {}
10292 }
10295 }
10296 }
10300 }
10301 }
10304 }
10309 set nc 1
10315 incr nc -1
10316 }
10317 # ignore tags on starting node
10321 set ta 1
10324 set ta 1
10325 }
10326 }
10333 }
10334 }
10343 }
10346 }
10348 incr nc -1
10349 }
10351 }
10352 }
10353 }
10358 incr nc
10359 }
10360 }
10361 }
10362 }
10363 set tags {}
10364 foreach id [array names tagloc] {
10369 }
10370 }
10371 }
10372 }
10373 set t2 [clock clicks -milliseconds]
10376 # remove tags that are descendents of other tags
10384 incr j -1
10385 incr i -1
10388 incr i -1
10389 break
10390 }
10391 }
10392 }
10394 if {[array names growing] ne {}} {
10395 # graph isn't finished, need to check if any tag could get
10396 # eclipsed by another tag coming later. Simply ignore any
10397 # tags that could later get eclipsed.
10398 set ctags {}
10402 }
10403 }
10406 } else {
10408 }
10409 } else {
10411 }
10412 set t3 [clock clicks -milliseconds]
10416 }
10418 }
10420 proc anctags {id} {
10421 global arcnos arcids arcout arcend arctags idtags allparents
10422 global growing cached_atags
10425 return {}
10426 }
10427 set t1 [clock clicks -milliseconds]
10430 # part-way along an arc; check that arc first
10439 }
10440 }
10441 }
10443 return {}
10444 }
10448 }
10449 }
10452 }
10457 set taglist {}
10458 set nc 1
10464 incr nc -1
10465 }
10466 # ignore tags on starting node
10470 set td 1
10473 set td 1
10474 }
10475 }
10481 }
10482 }
10494 }
10495 }
10498 }
10500 incr nc -1
10501 }
10503 }
10504 }
10505 }
10510 incr nc
10511 }
10512 }
10513 }
10514 }
10515 set t2 [clock clicks -milliseconds]
10517 set tags {}
10518 foreach id [array names tagloc] {
10523 }
10524 }
10525 }
10526 }
10528 # remove tags that are ancestors of other tags
10536 incr j -1
10537 incr i -1
10540 incr i -1
10541 break
10542 }
10543 }
10544 }
10546 if {[array names growing] ne {}} {
10547 # graph isn't finished, need to check if any tag could get
10548 # eclipsed by another tag coming later. Simply ignore any
10549 # tags that could later get eclipsed.
10550 set ctags {}
10554 }
10555 }
10558 } else {
10560 }
10561 } else {
10563 }
10564 set t3 [clock clicks -milliseconds]
10568 }
10570 }
10572 # Return the list of IDs that have heads that are descendents of id,
10573 # including id itself if it has a head.
10574 proc descheads {id} {
10575 global arcnos arcstart arcids archeads idheads cached_dheads
10576 global allparents
10579 return {}
10580 }
10581 set aret {}
10583 # part-way along an arc; check it first
10592 }
10593 }
10595 }
10599 set ret {}
10604 } else {
10607 }
10613 }
10614 }
10619 }
10620 }
10621 }
10622 }
10626 }
10628 proc addedtag {id} {
10629 global arcnos arcout cached_dtags cached_atags
10634 }
10635 catch {unset cached_dtags}
10636 catch {unset cached_atags}
10637 }
10639 proc addedhead {hid head} {
10640 global arcnos arcout cached_dheads
10645 }
10646 catch {unset cached_dheads}
10647 }
10649 proc removedhead {hid head} {
10650 global cached_dheads
10652 catch {unset cached_dheads}
10653 }
10655 proc movedhead {hid head} {
10656 global arcnos arcout cached_dheads
10661 }
10662 catch {unset cached_dheads}
10663 }
10665 proc changedrefs {} {
10666 global cached_dheads cached_dtags cached_atags cached_tagcontent
10667 global arctags archeads arcnos arcout idheads idtags
10669 foreach id [concat [array names idheads] [array names idtags]] {
10675 }
10676 }
10677 }
10678 catch {unset cached_tagcontent}
10679 catch {unset cached_dtags}
10680 catch {unset cached_atags}
10681 catch {unset cached_dheads}
10682 }
10684 proc rereadrefs {} {
10685 global idtags idheads idotherrefs mainheadid
10687 set refids [concat [array names idtags] \
10688 [array names idheads] [array names idotherrefs]]
10692 }
10693 }
10695 readrefs
10696 changedrefs
10698 [array names idheads] [array names idotherrefs]]]
10703 }
10704 }
10708 }
10709 run refill_reflist
10710 }
10712 proc listrefs {id} {
10713 global idtags idheads idotherrefs
10715 set x {}
10718 }
10719 set y {}
10722 }
10723 set z {}
10726 }
10728 }
10730 proc showtag {tag isnew} {
10731 global ctext cached_tagcontent tagids linknum tagobjid
10735 }
10737 clear_ctext
10738 settabs 0
10739 set linknum 0
10741 catch {
10743 }
10744 }
10747 } else {
10749 }
10751 maybe_scroll_ctext 1
10753 init_flist {}
10754 }
10756 proc doquit {} {
10757 global stopped
10758 global gitktmpdir
10760 set stopped 100
10761 savestuff .
10762 destroy .
10764 if {[info exists gitktmpdir]} {
10766 }
10767 }
10769 proc mkfontdisp {font top which} {
10778 }
10780 proc choosefont {font which} {
10781 global fontparam fontlist fonttop fontattr
10782 global prefstop NS
10790 set top .gitkfont
10793 font create sample
10800 set fontlist [lsort [font families]]
10811 -textvariable fontparam(size) \
10812 -validatecommand {string is integer -strict %s}
10814 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10815 -variable fontparam(weight) -onvalue bold -offvalue normal
10817 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10818 -variable fontparam(slant) -onvalue italic -offvalue roman
10822 -background white
10824 -fill black -tags text
10836 trace add variable fontparam write chg_fontparam
10837 } else {
10840 }
10845 }
10846 }
10848 proc centertext {w} {
10850 }
10852 proc fontok {} {
10853 global fontparam fontpref prefstop
10859 }
10862 }
10866 fontcan
10867 }
10869 proc fontcan {} {
10870 global fonttop fontparam
10872 if {[info exists fonttop]} {
10874 catch {font delete sample}
10875 unset fonttop
10876 unset fontparam
10877 }
10878 }
10880 if {[package vsatisfies [package provide Tk] 8.6]} {
10881 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10882 # function to make use of it.
10883 proc choosefont {font which} {
10886 tk fontchooser show
10887 }
10888 proc on_choosefont {font which newfont} {
10889 global fontparam
10898 fontok
10899 }
10900 }
10902 proc selfontfam {} {
10903 global fonttop fontparam
10908 }
10909 }
10911 proc chg_fontparam {v sub op} {
10912 global fontparam
10915 }
10917 # Create a property sheet tab page
10918 proc create_prefs_page {w} {
10919 global NS
10923 } else {
10925 }
10926 }
10928 proc prefspage_general {notebook} {
10929 global NS maxwidth maxgraphpct showneartags showlocalchanges
10930 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
10931 global hideremotes want_ttk have_ttk
10945 -variable showlocalchanges
10948 -variable autoselect
10952 -variable hideremotes
10961 -variable showneartags
10964 -variable limitdiffs
10967 -variable perfile_attrs
10981 -text [mc "Use themed widgets"]
10984 } else {
10986 }
10989 }
10991 proc prefspage_colors {notebook} {
10992 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11023 [mc "diff hunk header"] \
11029 [mc "marked line background"] \
11037 }
11039 proc prefspage_fonts {notebook} {
11040 global NS
11048 }
11050 proc doprefs {} {
11051 global maxwidth maxgraphpct use_ttk NS
11052 global oldprefs prefstop showneartags showlocalchanges
11053 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11054 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11055 global hideremotes want_ttk have_ttk
11057 set top .gitkprefs
11061 return
11062 }
11063 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11064 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11066 }
11073 } else {
11075 }
11080 set col 0
11084 } else {
11090 }
11091 }
11097 }
11114 }
11116 proc choose_extdiff {} {
11117 global extdifftool
11119 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11122 }
11123 }
11125 proc choosecolor {v vi w x cmd} {
11134 }
11136 proc setselbg {c} {
11137 global bglist cflist
11140 }
11144 }
11146 # This sets the background color and the color scheme for the whole UI.
11147 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11148 # if we don't specify one ourselves, which makes the checkbuttons and
11149 # radiobuttons look bad. This chooses white for selectColor if the
11150 # background color is light, or black if it is dark.
11151 proc setui {c} {
11152 if {[tk windowingsystem] eq "win32"} { return }
11154 set selc black
11156 set selc white
11157 }
11159 }
11161 proc setbg {c} {
11162 global bglist
11166 }
11167 }
11169 proc setfg {c} {
11170 global fglist canv
11174 }
11178 }
11180 proc prefscan {} {
11181 global oldprefs prefstop
11183 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11184 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11187 }
11189 unset prefstop
11190 fontcan
11191 }
11193 proc prefsok {} {
11194 global maxwidth maxgraphpct
11195 global oldprefs prefstop showneartags showlocalchanges
11196 global fontpref mainfont textfont uifont
11197 global limitdiffs treediffs perfile_attrs
11198 global hideremotes
11201 unset prefstop
11202 fontcan
11203 set fontchanged 0
11207 eval font configure mainfont [fontflags mainfont]
11208 eval font configure mainfontbold [fontflags mainfont 1]
11209 setcoords
11210 set fontchanged 1
11211 }
11215 eval font configure textfont [fontflags textfont]
11216 eval font configure textfontbold [fontflags textfont 1]
11217 }
11221 eval font configure uifont [fontflags uifont]
11222 }
11223 settabs
11226 doshowlocalchanges
11227 } else {
11228 dohidelocalchanges
11229 }
11230 }
11233 # treediffs elements are limited by path;
11234 # won't have encodings cached if perfile_attrs was just turned on
11235 catch {unset treediffs}
11236 }
11239 redisplay
11242 reselectline
11243 }
11245 rereadrefs
11246 }
11247 }
11249 proc formatdate {d} {
11250 global datetimeformat
11253 }
11255 }
11257 # This list of encoding names and aliases is distilled from
11258 # http://www.iana.org/assignments/character-sets.
11259 # Not all of them are supported by Tcl.
11260 set encoding_aliases {
11261 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11262 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11263 { ISO-10646-UTF-1 csISO10646UTF1 }
11264 { ISO_646.basic:1983 ref csISO646basic1983 }
11265 { INVARIANT csINVARIANT }
11266 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11267 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11268 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11269 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11270 { NATS-DANO iso-ir-9-1 csNATSDANO }
11271 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11272 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11273 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11274 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11275 { ISO-2022-KR csISO2022KR }
11276 { EUC-KR csEUCKR }
11277 { ISO-2022-JP csISO2022JP }
11278 { ISO-2022-JP-2 csISO2022JP2 }
11279 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11280 csISO13JISC6220jp }
11281 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11282 { IT iso-ir-15 ISO646-IT csISO15Italian }
11283 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11284 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11285 { greek7-old iso-ir-18 csISO18Greek7Old }
11286 { latin-greek iso-ir-19 csISO19LatinGreek }
11287 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11288 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11289 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11290 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11291 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11292 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11293 { INIS iso-ir-49 csISO49INIS }
11294 { INIS-8 iso-ir-50 csISO50INIS8 }
11295 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11296 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11297 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11298 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11299 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11300 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11301 csISO60Norwegian1 }
11302 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11303 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11304 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11305 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11306 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11307 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11308 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11309 { greek7 iso-ir-88 csISO88Greek7 }
11310 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11311 { iso-ir-90 csISO90 }
11312 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11313 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11314 csISO92JISC62991984b }
11315 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11316 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11317 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11318 csISO95JIS62291984handadd }
11319 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11320 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11321 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11322 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11323 CP819 csISOLatin1 }
11324 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11325 { T.61-7bit iso-ir-102 csISO102T617bit }
11326 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11327 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11328 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11329 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11330 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11331 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11332 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11333 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11334 arabic csISOLatinArabic }
11335 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11336 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11337 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11338 greek greek8 csISOLatinGreek }
11339 { T.101-G2 iso-ir-128 csISO128T101G2 }
11340 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11341 csISOLatinHebrew }
11342 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11343 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11344 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11345 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11346 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11347 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11348 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11349 csISOLatinCyrillic }
11350 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11351 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11352 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11353 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11354 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11355 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11356 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11357 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11358 { ISO_10367-box iso-ir-155 csISO10367Box }
11359 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11360 { latin-lap lap iso-ir-158 csISO158Lap }
11361 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11362 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11363 { us-dk csUSDK }
11364 { dk-us csDKUS }
11365 { JIS_X0201 X0201 csHalfWidthKatakana }
11366 { KSC5636 ISO646-KR csKSC5636 }
11367 { ISO-10646-UCS-2 csUnicode }
11368 { ISO-10646-UCS-4 csUCS4 }
11369 { DEC-MCS dec csDECMCS }
11370 { hp-roman8 roman8 r8 csHPRoman8 }
11371 { macintosh mac csMacintosh }
11372 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11373 csIBM037 }
11374 { IBM038 EBCDIC-INT cp038 csIBM038 }
11375 { IBM273 CP273 csIBM273 }
11376 { IBM274 EBCDIC-BE CP274 csIBM274 }
11377 { IBM275 EBCDIC-BR cp275 csIBM275 }
11378 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11379 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11380 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11381 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11382 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11383 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11384 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11385 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11386 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11387 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11388 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11389 { IBM437 cp437 437 csPC8CodePage437 }
11390 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11391 { IBM775 cp775 csPC775Baltic }
11392 { IBM850 cp850 850 csPC850Multilingual }
11393 { IBM851 cp851 851 csIBM851 }
11394 { IBM852 cp852 852 csPCp852 }
11395 { IBM855 cp855 855 csIBM855 }
11396 { IBM857 cp857 857 csIBM857 }
11397 { IBM860 cp860 860 csIBM860 }
11398 { IBM861 cp861 861 cp-is csIBM861 }
11399 { IBM862 cp862 862 csPC862LatinHebrew }
11400 { IBM863 cp863 863 csIBM863 }
11401 { IBM864 cp864 csIBM864 }
11402 { IBM865 cp865 865 csIBM865 }
11403 { IBM866 cp866 866 csIBM866 }
11404 { IBM868 CP868 cp-ar csIBM868 }
11405 { IBM869 cp869 869 cp-gr csIBM869 }
11406 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11407 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11408 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11409 { IBM891 cp891 csIBM891 }
11410 { IBM903 cp903 csIBM903 }
11411 { IBM904 cp904 904 csIBBM904 }
11412 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11413 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11414 { IBM1026 CP1026 csIBM1026 }
11415 { EBCDIC-AT-DE csIBMEBCDICATDE }
11416 { EBCDIC-AT-DE-A csEBCDICATDEA }
11417 { EBCDIC-CA-FR csEBCDICCAFR }
11418 { EBCDIC-DK-NO csEBCDICDKNO }
11419 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11420 { EBCDIC-FI-SE csEBCDICFISE }
11421 { EBCDIC-FI-SE-A csEBCDICFISEA }
11422 { EBCDIC-FR csEBCDICFR }
11423 { EBCDIC-IT csEBCDICIT }
11424 { EBCDIC-PT csEBCDICPT }
11425 { EBCDIC-ES csEBCDICES }
11426 { EBCDIC-ES-A csEBCDICESA }
11427 { EBCDIC-ES-S csEBCDICESS }
11428 { EBCDIC-UK csEBCDICUK }
11429 { EBCDIC-US csEBCDICUS }
11430 { UNKNOWN-8BIT csUnknown8BiT }
11431 { MNEMONIC csMnemonic }
11432 { MNEM csMnem }
11433 { VISCII csVISCII }
11434 { VIQR csVIQR }
11435 { KOI8-R csKOI8R }
11436 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11437 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11438 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11439 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11440 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11441 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11442 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11443 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11444 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11445 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11446 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11447 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11448 { IBM1047 IBM-1047 }
11449 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11450 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11451 { UNICODE-1-1 csUnicode11 }
11452 { CESU-8 csCESU-8 }
11453 { BOCU-1 csBOCU-1 }
11454 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11455 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11456 l8 }
11457 { ISO-8859-15 ISO_8859-15 Latin-9 }
11458 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11459 { GBK CP936 MS936 windows-936 }
11460 { JIS_Encoding csJISEncoding }
11461 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11462 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11463 EUC-JP }
11464 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11465 { ISO-10646-UCS-Basic csUnicodeASCII }
11466 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11467 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11468 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11469 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11470 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11471 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11472 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11473 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11474 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11475 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11476 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11477 { Ventura-US csVenturaUS }
11478 { Ventura-International csVenturaInternational }
11479 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11480 { PC8-Turkish csPC8Turkish }
11481 { IBM-Symbols csIBMSymbols }
11482 { IBM-Thai csIBMThai }
11483 { HP-Legal csHPLegal }
11484 { HP-Pi-font csHPPiFont }
11485 { HP-Math8 csHPMath8 }
11486 { Adobe-Symbol-Encoding csHPPSMath }
11487 { HP-DeskTop csHPDesktop }
11488 { Ventura-Math csVenturaMath }
11489 { Microsoft-Publishing csMicrosoftPublishing }
11490 { Windows-31J csWindows31J }
11491 { GB2312 csGB2312 }
11492 { Big5 csBig5 }
11493 }
11495 proc tcl_encoding {enc} {
11496 global encoding_aliases tcl_encoding_cache
11499 }
11500 set names [encoding names]
11505 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11508 }
11509 }
11514 # look through the aliases for one that tcl knows about
11520 }
11521 }
11523 }
11524 break
11525 }
11526 }
11527 set tclenc {}
11530 }
11533 }
11535 proc gitattr {path attr default} {
11536 global path_attr_cache
11539 } else {
11540 set r "unspecified"
11543 }
11545 }
11548 }
11550 }
11552 proc cache_gitattr {attr pathlist} {
11553 global path_attr_cache
11554 set newlist {}
11558 }
11559 }
11560 set lim 1000
11561 if {[tk windowingsystem] == "win32"} {
11562 # windows has a 32k limit on the arguments to a command...
11563 set lim 30
11564 }
11573 }
11575 }
11576 }
11577 }
11578 }
11579 }
11581 proc get_path_encoding {path} {
11582 global gui_encoding perfile_attrs
11588 }
11589 }
11591 }
11593 # First check that Tcl/Tk is recent enough
11594 if {[catch {package require Tk 8.4} err]} {
11595 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11596 Gitk requires at least Tcl/Tk 8.4." list
11597 exit 1
11598 }
11600 # Unset GIT_TRACE var if set
11601 if { [info exists ::env(GIT_TRACE)] } {
11602 unset ::env(GIT_TRACE)
11603 }
11605 # defaults...
11606 set wrcomcmd "git diff-tree --stdin -p --pretty"
11608 set gitencoding {}
11609 catch {
11610 set gitencoding [exec git config --get i18n.commitencoding]
11611 }
11612 catch {
11613 set gitencoding [exec git config --get i18n.logoutputencoding]
11614 }
11616 set gitencoding "utf-8"
11617 }
11621 }
11623 set gui_encoding [encoding system]
11624 catch {
11625 set enc [exec git config --get gui.encoding]
11630 } else {
11632 }
11633 }
11634 }
11636 set log_showroot true
11637 catch {
11638 set log_showroot [exec git config --bool --get log.showroot]
11639 }
11641 if {[tk windowingsystem] eq "aqua"} {
11642 set mainfont {{Lucida Grande} 9}
11643 set textfont {Monaco 9}
11644 set uifont {{Lucida Grande} 9 bold}
11646 # fontconfig!
11647 set mainfont {sans 9}
11648 set textfont {monospace 9}
11649 set uifont {sans 9 bold}
11650 } else {
11651 set mainfont {Helvetica 9}
11652 set textfont {Courier 9}
11653 set uifont {Helvetica 9 bold}
11654 }
11655 set tabstop 8
11656 set findmergefiles 0
11657 set maxgraphpct 50
11658 set maxwidth 16
11659 set revlistorder 0
11660 set fastdate 0
11661 set uparrowlen 5
11662 set downarrowlen 5
11663 set mingaplen 100
11664 set cmitmode "patch"
11665 set wrapcomment "none"
11666 set showneartags 1
11667 set hideremotes 0
11668 set maxrefs 20
11669 set maxlinelen 200
11670 set showlocalchanges 1
11671 set limitdiffs 1
11672 set datetimeformat "%Y-%m-%d %H:%M:%S"
11673 set autoselect 1
11674 set autosellen 40
11675 set perfile_attrs 0
11676 set want_ttk 1
11678 if {[tk windowingsystem] eq "aqua"} {
11679 set extdifftool "opendiff"
11680 } else {
11681 set extdifftool "meld"
11682 }
11684 set colors {green red blue magenta darkgrey brown orange}
11685 if {[tk windowingsystem] eq "win32"} {
11686 set uicolor SystemButtonFace
11687 set bgcolor SystemWindow
11688 set fgcolor SystemButtonText
11689 set selectbgcolor SystemHighlight
11690 } else {
11691 set uicolor grey85
11692 set bgcolor white
11693 set fgcolor black
11694 set selectbgcolor gray85
11695 }
11696 set diffcolors {red "#00a000" blue}
11697 set diffcontext 3
11698 set ignorespace 0
11699 set worddiff ""
11700 set markbgcolor "#e0e0ff"
11702 set circlecolors {white blue gray blue blue}
11704 # button for popping up context menus
11705 if {[tk windowingsystem] eq "aqua"} {
11706 set ctxbut <Button-2>
11707 } else {
11708 set ctxbut <Button-3>
11709 }
11711 ## For msgcat loading, first locate the installation location.
11712 if { [info exists ::env(GITK_MSGSDIR)] } {
11713 ## Msgsdir was manually set in the environment.
11714 set gitk_msgsdir $::env(GITK_MSGSDIR)
11715 } else {
11716 ## Let's guess the prefix from argv0.
11720 unset gitk_prefix
11721 }
11723 ## Internationalization (i18n) through msgcat and gettext. See
11724 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11725 package require msgcat
11726 namespace import ::msgcat::mc
11727 ## And eventually load the actual message catalog
11730 catch {source ~/.gitk}
11733 eval font create mainfont [fontflags mainfont]
11734 eval font create mainfontbold [fontflags mainfont 1]
11737 eval font create textfont [fontflags textfont]
11738 eval font create textfontbold [fontflags textfont 1]
11741 eval font create uifont [fontflags uifont]
11745 setoptions
11747 # check that we can find a .git directory somewhere...
11748 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
11749 show_error {} . [mc "Cannot find a git repository here."]
11750 exit 1
11751 }
11753 set selecthead {}
11754 set selectheadid {}
11756 set revtreeargs {}
11757 set cmdline_files {}
11758 set i 0
11759 set revtreeargscmd {}
11762 "" { }
11763 "--" {
11765 break
11766 }
11767 "--select-commit=*" {
11769 }
11770 "--argscmd=*" {
11772 }
11773 default {
11775 }
11776 }
11777 incr i
11778 }
11781 set selecthead {}
11782 }
11785 # no -- on command line, but some arguments (other than --argscmd)
11786 if {[catch {
11791 # Unfortunately git rev-parse doesn't produce an error when
11792 # something is both a revision and a filename. To be consistent
11793 # with git log and git rev-list, check revtreeargs for filenames.
11796 show_error {} . [mc "Ambiguous argument '%s': both revision\
11798 exit 1
11799 }
11800 }
11801 } err]} {
11803 # so look for "fatal:".
11807 }
11809 exit 1
11810 }
11811 }
11813 set nullid "0000000000000000000000000000000000000000"
11814 set nullid2 "0000000000000000000000000000000000000001"
11815 set nullfile "/dev/null"
11818 if {![info exists have_ttk]} {
11819 set have_ttk [llength [info commands ::ttk::style]]
11820 }
11824 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
11826 set show_notes {}
11828 set show_notes "--show-notes"
11829 }
11831 set appname "gitk"
11833 set runq {}
11834 set history {}
11835 set historyindex 0
11836 set fh_serial 0
11837 set nhl_names {}
11838 set highlight_paths {}
11839 set findpattern {}
11840 set searchdirn -forwards
11841 set boldids {}
11842 set boldnameids {}
11843 set diffelide {0 0}
11844 set markingmatches 0
11845 set linkentercount 0
11846 set need_redisplay 0
11847 set nrows_drawn 0
11848 set firsttabstop 0
11850 set nextviewnum 1
11851 set curview 0
11852 set selectedview 0
11853 set selectedhlview [mc "None"]
11854 set highlight_related [mc "None"]
11855 set highlight_files {}
11856 set viewfiles(0) {}
11857 set viewperm(0) 0
11858 set viewargs(0) {}
11859 set viewargscmd(0) {}
11861 set selectedline {}
11862 set numcommits 0
11863 set loginstance 0
11864 set cmdlineok 0
11865 set stopped 0
11866 set stuffsaved 0
11867 set patchnum 0
11868 set lserial 0
11869 set hasworktree [hasworktree]
11870 set cdup {}
11871 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
11872 set cdup [exec git rev-parse --show-cdup]
11873 }
11874 set worktree [exec git rev-parse --show-toplevel]
11875 setcoords
11876 makewindow
11877 catch {
11878 image create photo gitlogo -width 16 -height 16
11880 image create photo gitlogominus -width 4 -height 2
11881 gitlogominus put #C00000 -to 0 0 4 2
11882 gitlogo copy gitlogominus -to 1 5
11883 gitlogo copy gitlogominus -to 6 5
11884 gitlogo copy gitlogominus -to 11 5
11885 image delete gitlogominus
11887 image create photo gitlogoplus -width 4 -height 4
11888 gitlogoplus put #008000 -to 1 0 3 4
11889 gitlogoplus put #008000 -to 0 1 4 3
11890 gitlogo copy gitlogoplus -to 1 9
11891 gitlogo copy gitlogoplus -to 6 9
11892 gitlogo copy gitlogoplus -to 11 9
11893 image delete gitlogoplus
11895 image create photo gitlogo32 -width 32 -height 32
11896 gitlogo32 copy gitlogo -zoom 2 2
11898 wm iconphoto . -default gitlogo gitlogo32
11899 }
11900 # wait for the window to become visible
11901 tkwait visibility .
11903 update
11904 readrefs
11907 # create a view for the files/dirs specified on the command line
11908 set curview 1
11909 set selectedview 1
11910 set nextviewnum 2
11911 set viewname(1) [mc "Command line"]
11915 set viewperm(1) 0
11916 set vdatemode(1) 0
11917 addviewmenu 1
11918 .bar.view entryconf [mca "Edit view..."] -state normal
11919 .bar.view entryconf [mca "Delete view"] -state normal
11920 }
11922 if {[info exists permviews]} {
11925 incr nextviewnum
11932 }
11933 }
11935 if {[tk windowingsystem] eq "win32"} {
11936 focus -force .
11937 }
11939 getcommits {}
11941 # Local variables:
11942 # mode: tcl
11943 # indent-tabs-mode: t
11944 # tab-width: 8
11945 # End: