| blob | 177a9975a7dd80a09b78db6bf89dd54a0033145b |
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 }
2194 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2195 -side left
2198 }
2199 global selectedline
2200 trace add variable selectedline write selectedline_change
2202 # Status label and progress bar
2203 set statusw .tf.bar.status
2210 set progresscanv .tf.bar.progress
2215 }
2224 # build up the bottom bar of upper window
2229 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2236 trace add variable gdttype write gdttype_change
2240 set fstring .tf.lbar.findstring
2241 lappend entries $fstring
2243 trace add variable findstring write find_change
2247 trace add variable findtype write findcom_change
2251 trace add variable findloc write find_change
2252 pack .tf.lbar.findloc -side right
2253 pack .tf.lbar.findtype -side right
2256 # Finish putting the upper half of the viewer together
2260 .ctop add .tf
2264 }
2266 # now build up the bottom
2269 # lower left, a text box over search bar, scroll bar to the right
2270 # if we know window height, then that will set the lower text height, otherwise
2271 # we set lower text height which will drive window height
2276 }
2283 set sstring .bleft.top.sstring
2286 lappend entries $sstring
2287 trace add variable searchstring write incrsearch
2300 -textvariable diffcontextstring
2302 trace add variable diffcontextstring write diffcontextchange
2303 lappend entries .bleft.mid.diffcontext
2304 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2313 trace add variable worddiff write changeworddiff
2315 }
2317 set ctext .bleft.bottom.ctext
2324 }
2330 grid .bleft.bottom.sbhorizontal -sticky ew
2335 lappend bglist $ctext
2336 lappend fglist $ctext
2365 .pwbottom add .bleft
2368 }
2370 # lower right
2379 set cflist .bright.cfiles
2381 text $cflist \
2384 -font mainfont \
2389 lappend bglist $cflist
2390 lappend fglist $cflist
2394 $cflist tag configure highlight \
2398 .pwbottom add .bright
2399 .ctop add .pwbottom
2401 # restore window width & height if known
2406 }
2409 }
2411 }
2412 }
2416 }
2419 set M1B M1
2422 set M1B Control
2424 }
2430 }
2434 }
2435 }
2440 #bindall <B1-Motion> {selcanvline %W %x %y}
2450 allcanvs yview scroll $delta units
2451 }
2455 }
2456 }
2457 }
2481 bindkey p "selnextline -1"
2482 bindkey n "selnextline 1"
2483 bindkey z "goback"
2484 bindkey x "goforw"
2485 bindkey k "selnextline -1"
2486 bindkey j "selnextline 1"
2487 bindkey h "goback"
2488 bindkey l "goforw"
2489 bindkey b prevfile
2496 bindkey f nextfile
2513 wm protocol . WM_DELETE_WINDOW doquit
2522 global ctxbut
2527 set maincursor [. cget -cursor]
2531 set rowctxmenu .rowctxmenu
2533 {mc "Diff this -> selected" command {diffvssel 0}}
2534 {mc "Diff selected -> this" command {diffvssel 1}}
2535 {mc "Make patch" command mkpatch}
2536 {mc "Create tag" command mktag}
2537 {mc "Write commit to file" command writecommit}
2538 {mc "Create new branch" command mkbranch}
2539 {mc "Cherry-pick this commit" command cherrypick}
2540 {mc "Reset HEAD branch to here" command resethead}
2541 {mc "Mark this commit" command markhere}
2542 {mc "Return to mark" command gotomark}
2543 {mc "Find descendant of this and mark" command find_common_desc}
2544 {mc "Compare with marked commit" command compare_commits}
2545 }
2548 set fakerowmenu .fakerowmenu
2550 {mc "Diff this -> selected" command {diffvssel 0}}
2551 {mc "Diff selected -> this" command {diffvssel 1}}
2552 {mc "Make patch" command mkpatch}
2553 }
2556 set headctxmenu .headctxmenu
2558 {mc "Check out this branch" command cobranch}
2559 {mc "Remove this branch" command rmbranch}
2560 }
2563 global flist_menu
2564 set flist_menu .flistctxmenu
2566 {mc "Highlight this too" command {flist_hl 0}}
2567 {mc "Highlight this only" command {flist_hl 1}}
2568 {mc "External diff" command {external_diff}}
2569 {mc "Blame parent commit" command {external_blame 1}}
2570 }
2573 global diff_menu
2574 set diff_menu .diffctxmenu
2576 {mc "Show origin of this line" command show_line_source}
2577 {mc "Run git gui blame on this line" command {external_blame_diff}}
2578 }
2580 }
2582 # Windows sends all mouse wheel events to the current focused window, not
2583 # the one where the mouse hovers, so bind those events here and redirect
2584 # to the correct window
2585 proc windows_mousewheel_redirector {W X Y D} {
2586 global canv canv2 canv3
2592 } else {
2593 catch {
2595 }
2596 }
2597 }
2598 }
2600 # Update row number label when selectedline changes
2601 proc selectedline_change {n1 n2 op} {
2602 global selectedline rownumsel
2605 set rownumsel {}
2606 } else {
2608 }
2609 }
2611 # mouse-2 makes all windows scan vertically, but only the one
2612 # the cursor is in scans horizontally
2613 proc canvscan {op w x y} {
2614 global canv canv2 canv3
2618 } else {
2620 }
2621 }
2622 }
2624 proc scrollcanv {cscroll f0 f1} {
2626 drawvisible
2627 flushhighlights
2628 }
2630 # when we make a key binding for the toplevel, make sure
2631 # it doesn't get triggered when that key is pressed in the
2632 # find string entry widget.
2633 proc bindkey {ev script} {
2634 global entries
2638 set escript [bind Entry <Key>]
2639 }
2642 }
2643 }
2645 # set the focus back to the toplevel for any click outside
2646 # the entry widgets
2647 proc click {w} {
2648 global ctext entries
2651 }
2652 focus .
2653 }
2655 # Adjust the progress bar for a change in requested extent or canvas size
2656 proc adjustprogress {} {
2657 global progresscanv progressitem progresscoords
2658 global fprogitem fprogcoord lastprogupdate progupdatepending
2659 global rprogitem rprogcoord use_ttk
2663 return
2664 }
2673 set now [clock clicks -milliseconds]
2675 set progupdatepending 0
2676 update
2678 set progupdatepending 1
2680 }
2681 }
2683 proc doprogupdate {} {
2684 global lastprogupdate progupdatepending
2687 set progupdatepending 0
2688 set lastprogupdate [clock clicks -milliseconds]
2689 update
2690 }
2691 }
2693 proc savestuff {w} {
2694 global canv canv2 canv3 mainfont textfont uifont tabstop
2695 global stuffsaved findmergefiles maxgraphpct
2696 global maxwidth showneartags showlocalchanges
2697 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2698 global cmitmode wrapcomment datetimeformat limitdiffs
2699 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2700 global autoselect autosellen extdifftool perfile_attrs markbgcolor use_ttk
2701 global hideremotes want_ttk
2704 if {![winfo viewable .]} return
2705 catch {
2706 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2707 set f [open "~/.gitk-new" w]
2708 if {$::tcl_platform(platform) eq {windows}} {
2709 file attributes "~/.gitk-new" -hidden true
2710 }
2746 } else {
2749 }
2757 }
2758 }
2761 file rename -force "~/.gitk-new" "~/.gitk"
2762 }
2763 set stuffsaved 1
2764 }
2766 proc resizeclistpanes {win w} {
2767 global oldwidth use_ttk
2772 } else {
2775 }
2779 } else {
2784 set sash0 30
2785 }
2788 }
2793 }
2794 }
2795 }
2799 } else {
2802 }
2803 }
2805 }
2807 proc resizecdetpanes {win w} {
2808 global oldwidth use_ttk
2812 } else {
2814 }
2817 } else {
2821 set sash0 45
2822 }
2825 }
2826 }
2829 } else {
2831 }
2832 }
2834 }
2836 proc allcanvs args {
2837 global canv canv2 canv3
2841 }
2843 proc bindall {event action} {
2844 global canv canv2 canv3
2848 }
2850 proc about {} {
2851 global uifont NS
2852 set w .about
2855 return
2856 }
2861 Gitk - a commit viewer for git
2863 Copyright \u00a9 2005-2011 Paul Mackerras
2865 Use and redistribute under the terms of the GNU General Public License"] \
2866 -justify center -aspect 400 -border 2 -bg white -relief groove
2874 }
2876 proc keys {} {
2877 global NS
2878 set w .keys
2881 return
2882 }
2883 if {[tk windowingsystem] eq {aqua}} {
2884 set M1T Cmd
2885 } else {
2886 set M1T Ctrl
2887 }
2892 [mc "Gitk key bindings:"]
2896 [mc "<Home> Move to first commit"]
2897 [mc "<End> Move to last commit"]
2898 [mc "<Up>, p, k Move up one commit"]
2899 [mc "<Down>, n, j Move down one commit"]
2900 [mc "<Left>, z, h Go back in history list"]
2901 [mc "<Right>, x, l Go forward in history list"]
2902 [mc "<PageUp> Move up one page in commit list"]
2903 [mc "<PageDown> Move down one page in commit list"]
2910 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2911 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2912 [mc "<Delete>, b Scroll diff view up one page"]
2913 [mc "<Backspace> Scroll diff view up one page"]
2914 [mc "<Space> Scroll diff view down one page"]
2915 [mc "u Scroll diff view up 18 lines"]
2916 [mc "d Scroll diff view down 18 lines"]
2919 [mc "<Return> Move to next find hit"]
2920 [mc "/ Focus the search box"]
2921 [mc "? Move to previous find hit"]
2922 [mc "f Scroll diff view to next file"]
2929 [mc "<F5> Update"]
2930 " \
2931 -justify left -bg white -border 2 -relief groove
2939 }
2941 # Procedures for manipulating the file list window at the
2942 # bottom right of the overall window.
2944 proc treeview {w l openlevs} {
2945 global treecontents treediropen treeheight treeparent treeindex
2947 set ix 0
2948 set treeindex() 0
2949 set lev 0
2950 set prefix {}
2951 set prefixend -1
2952 set prefendstack {}
2953 set htstack {}
2954 set ht 0
2955 set treecontents() {}
2962 }
2969 incr lev -1
2970 }
2974 set ht 0
2986 set ht 1
2991 set str "\n"
2999 }
3000 incr lev
3001 }
3004 incr ht
3005 set str "\n"
3009 }
3011 }
3012 }
3020 }
3022 }
3024 proc linetoelt {l} {
3025 global treeheight treecontents
3027 set y 2
3028 set prefix {}
3029 while {1} {
3033 }
3034 set n 1
3039 incr y
3040 break
3041 }
3042 }
3044 }
3045 }
3046 }
3048 proc highlight_tree {y prefix} {
3049 global treeheight treecontents cflist
3055 }
3056 incr y
3059 }
3060 }
3062 }
3064 proc treeclosedir {w dir} {
3065 global treediropen treeheight treeparent treeindex
3077 }
3078 }
3080 proc treeopendir {w dir} {
3081 global treediropen treeheight treeparent treecontents treeindex
3088 set lev 0
3089 set str "\n"
3092 incr lev
3093 append str "\t"
3095 }
3110 } else {
3113 }
3114 }
3127 }
3129 }
3130 }
3132 proc treeclick {w x y} {
3133 global treediropen cmitmode ctext cflist cflist_top
3136 if {![info exists cflist_top]} return
3143 return
3144 }
3150 } else {
3152 }
3153 }
3155 proc setfilelist {id} {
3156 global treefilelist cflist jump_to_here
3163 }
3164 }
3165 }
3167 image create bitmap tri-rt -background black -foreground blue -data {
3168 #define tri-rt_width 13
3169 #define tri-rt_height 13
3170 static unsigned char tri-rt_bits[] = {
3171 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3172 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3173 0x00, 0x00};
3174 } -maskdata {
3175 #define tri-rt-mask_width 13
3176 #define tri-rt-mask_height 13
3177 static unsigned char tri-rt-mask_bits[] = {
3178 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3179 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3180 0x08, 0x00};
3181 }
3182 image create bitmap tri-dn -background black -foreground blue -data {
3183 #define tri-dn_width 13
3184 #define tri-dn_height 13
3185 static unsigned char tri-dn_bits[] = {
3186 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3187 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3188 0x00, 0x00};
3189 } -maskdata {
3190 #define tri-dn-mask_width 13
3191 #define tri-dn-mask_height 13
3192 static unsigned char tri-dn-mask_bits[] = {
3193 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3194 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3195 0x00, 0x00};
3196 }
3198 image create bitmap reficon-T -background black -foreground yellow -data {
3199 #define tagicon_width 13
3200 #define tagicon_height 9
3201 static unsigned char tagicon_bits[] = {
3202 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3203 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3204 } -maskdata {
3205 #define tagicon-mask_width 13
3206 #define tagicon-mask_height 9
3207 static unsigned char tagicon-mask_bits[] = {
3208 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3209 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3210 }
3211 set rectdata {
3212 #define headicon_width 13
3213 #define headicon_height 9
3214 static unsigned char headicon_bits[] = {
3215 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3216 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3217 }
3218 set rectmask {
3219 #define headicon-mask_width 13
3220 #define headicon-mask_height 9
3221 static unsigned char headicon-mask_bits[] = {
3222 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3223 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3224 }
3225 image create bitmap reficon-H -background black -foreground green \
3227 image create bitmap reficon-o -background black -foreground "#ddddff" \
3230 proc init_flist {first} {
3231 global cflist cflist_top difffilestart
3237 set cflist_top 1
3239 } else {
3240 catch {unset cflist_top}
3241 }
3243 set difffilestart {}
3244 }
3246 proc highlight_tag {f} {
3247 global highlight_paths
3251 return "bold"
3252 }
3253 }
3254 return {}
3255 }
3257 proc highlight_filelist {} {
3258 global cmitmode cflist
3267 }
3268 }
3269 } else {
3270 highlight_tree 2 {}
3271 }
3273 }
3275 proc unhighlight_filelist {} {
3276 global cflist
3281 }
3283 proc add_flist {fl} {
3284 global cflist
3290 }
3292 }
3294 proc sel_flist {w x y} {
3295 global ctext difffilestart cflist cflist_top cmitmode
3298 if {![info exists cflist_top]} return
3305 } else {
3307 }
3308 }
3310 proc pop_flist_menu {w X Y x y} {
3311 global ctext cflist cmitmode flist_menu flist_menu_file
3312 global treediffs diffids
3314 stopfinding
3320 } else {
3322 }
3324 set xdiffstate "normal"
3326 set xdiffstate "disabled"
3327 }
3328 # Disable "External diff" item in tree mode
3331 }
3333 proc find_ctext_fileinfo {line} {
3334 global ctext_file_names ctext_file_lines
3340 return {}
3341 } else {
3343 }
3344 }
3346 proc pop_diff_menu {w X Y x y} {
3347 global ctext diff_menu flist_menu_file
3348 global diff_menu_txtpos diff_menu_line
3349 global diff_menu_filebase
3353 # don't pop up the menu on hunk-separator or file-separator lines
3355 return
3356 }
3357 stopfinding
3363 }
3365 proc flist_hl {only} {
3366 global flist_menu_file findstring gdttype
3371 } else {
3373 }
3374 set gdttype [mc "touching paths:"]
3375 }
3377 proc gitknewtmpdir {} {
3378 global diffnum gitktmpdir gitdir
3380 if {![info exists gitktmpdir]} {
3384 unset gitktmpdir
3385 return {}
3386 }
3387 set diffnum 0
3388 }
3389 incr diffnum
3393 return {}
3394 }
3396 }
3398 proc save_file_from_commit {filename output what} {
3399 global nullfile
3404 }
3406 return {}
3407 }
3409 }
3411 proc external_diff_get_one_file {diffid filename diffdir} {
3412 global nullid nullid2 nullfile
3413 global worktree
3419 }
3421 }
3425 }
3429 }
3431 proc external_diff {} {
3432 global nullid nullid2
3433 global flist_menu_file
3434 global diffids
3435 global extdifftool
3438 # no reference commit given
3441 # diffing working copy with index
3444 # diffing index with HEAD
3445 set diffidfrom "HEAD"
3446 } else {
3447 # use first parent commit
3448 global parentlist selectedline
3450 }
3451 } else {
3454 }
3456 # make sure that several diffs wont collide
3457 set diffdir [gitknewtmpdir]
3460 # gather files to diff
3469 } else {
3472 }
3473 }
3474 }
3476 proc find_hunk_blamespec {base line} {
3477 global ctext
3479 # Find and parse the hunk header
3485 s_line old_specs osz osz1 new_line nsz]} {
3486 return
3487 }
3489 # base lines for the parents
3493 old_spec old_line osz]} {
3494 return
3495 }
3497 }
3499 # Now scan the lines to determine offset within the hunk
3501 set dline 0
3504 # Determine if the line is removed
3508 # Choose a parent index
3511 } else {
3515 } else {
3516 # blame the current commit
3517 set parent -1
3518 }
3519 }
3520 # then count other lines that belong to it
3523 # Determine if the line is removed
3528 incr dline
3529 }
3530 } else {
3532 incr dline
3533 }
3534 }
3535 }
3536 incr parent
3537 } else {
3538 set parent 0
3539 }
3543 }
3545 proc external_blame_diff {} {
3546 global currentid cmitmode
3547 global diff_menu_txtpos diff_menu_line
3548 global diff_menu_filebase flist_menu_file
3551 set parent_idx 0
3553 } else {
3558 } else {
3559 set parent_idx 0
3560 set line 0
3561 }
3562 }
3565 }
3568 # at stage 0 or 2
3569 proc index_sha1 {fname} {
3577 }
3578 }
3580 return {}
3581 }
3583 # Turn an absolute path into one relative to the current directory
3584 proc make_relative {f} {
3587 }
3589 set here [file split [pwd]]
3590 set ei 0
3591 set hi 0
3592 set res {}
3595 lappend res ".."
3596 } else {
3597 incr ei
3598 }
3599 incr hi
3600 }
3603 }
3605 proc external_blame {parent_idx {line {}}} {
3606 global flist_menu_file cdup
3607 global nullid nullid2
3608 global parentlist selectedline currentid
3612 } else {
3614 }
3617 error_popup [mc "No such commit"]
3618 return
3619 }
3621 set cmdline [list git gui blame]
3624 }
3626 # Unfortunately it seems git gui blame doesn't like
3627 # being given an absolute path...
3632 }
3633 }
3635 proc show_line_source {} {
3636 global cmitmode currentid parents curview blamestuff blameinst
3637 global diff_menu_line diff_menu_filebase flist_menu_file
3638 global nullid nullid2 gitdir cdup
3640 set from_index {}
3644 } else {
3650 return
3651 }
3652 incr pi -1
3655 # must be a merge in progress...
3656 if {[catch {
3657 # get the last line from .git/MERGE_HEAD
3661 } err]} {
3663 return
3664 }
3666 # need to do the blame from the index
3667 if {[catch {
3669 } err]} {
3671 return
3672 }
3673 } else {
3675 }
3676 } else {
3678 }
3680 }
3681 set blameargs {}
3684 }
3687 lappend blameargs --contents -
3688 } else {
3690 }
3692 if {[catch {
3694 } err]} {
3696 return
3697 }
3698 nowbusy blaming [mc "Searching"]
3704 }
3706 proc stopblaming {} {
3707 global blameinst
3709 if {[info exists blameinst]} {
3711 unset blameinst
3712 notbusy blaming
3713 }
3714 }
3716 proc read_line_source {fd inst} {
3717 global blamestuff curview commfd blameinst nullid nullid2
3721 }
3723 return 1
3724 }
3726 unset blameinst
3727 notbusy blaming
3731 return 0
3732 }
3734 set fname {}
3740 # look for "filename" line
3744 break
3745 }
3746 }
3747 }
3749 # all looks good, select it
3751 # blame uses all-zeroes to mean not committed,
3752 # which would mean a change in the index
3754 }
3757 } else {
3758 error_popup [mc "That line comes from commit %s, \
3760 }
3761 } else {
3762 puts "oops couldn't parse git blame output"
3763 }
3764 return 0
3765 }
3768 proc delete_at_eof {f dir} {
3773 }
3775 return 0
3776 }
3777 return 1
3778 }
3780 # Functions for adding and removing shell-type quoting
3782 proc shellquote {str} {
3785 }
3788 }
3791 }
3793 }
3795 proc shellarglist {l} {
3796 set str {}
3799 append str " "
3800 }
3802 }
3804 }
3806 proc shelldequote {str} {
3807 set ret {}
3808 set used -1
3809 while {1} {
3810 incr used
3814 break
3815 }
3821 }
3823 incr used
3827 error "unmatched single-quote"
3828 }
3831 continue
3832 }
3835 error "trailing backslash"
3836 }
3838 continue
3839 }
3840 # here ch == "\""
3841 while {1} {
3843 error "unmatched double-quote"
3844 }
3850 }
3852 incr used
3854 incr used
3855 }
3856 }
3858 }
3860 proc shellsplit {str} {
3861 set l {}
3862 while {1} {
3870 }
3872 }
3874 # Code to implement multiple views
3876 proc newview {ishighlight} {
3877 global nextviewnum newviewname newishighlight
3878 global revtreeargs viewargscmd newviewopts curview
3881 set top .gitkview
3884 return
3885 }
3891 }
3893 set known_view_options {
3894 {perm b . {} {mc "Remember this view"}}
3895 {reflabel l + {} {mc "References (space separated list):"}}
3896 {refs t15 .. {} {mc "Branches & tags:"}}
3897 {allrefs b *. "--all" {mc "All refs"}}
3898 {branches b . "--branches" {mc "All (local) branches"}}
3899 {tags b . "--tags" {mc "All tags"}}
3900 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3901 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3902 {author t15 .. "--author=*" {mc "Author:"}}
3903 {committer t15 . "--committer=*" {mc "Committer:"}}
3904 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3905 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3906 {changes_l l + {} {mc "Changes to Files:"}}
3907 {pickaxe_s r0 . {} {mc "Fixed String"}}
3908 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3909 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3910 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3911 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3912 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3913 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3914 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3915 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3916 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3917 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3918 {lright b . "--left-right" {mc "Mark branch sides"}}
3919 {first b . "--first-parent" {mc "Limit to first parent"}}
3920 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3921 {args t50 *. {} {mc "Additional arguments to git log:"}}
3922 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3923 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3924 }
3927 proc encode_view_opts {n} {
3928 global known_view_options newviewopts
3930 set rargs [list]
3940 }
3946 }
3947 } else {
3953 }
3954 }
3955 }
3958 }
3961 proc decode_view_opts {n view_args} {
3962 global known_view_options newviewopts
3967 # Checkboxes
3968 set val 0
3970 # Radiobuttons
3972 set val 0
3973 } else {
3974 # Text fields
3975 set val {}
3976 }
3978 }
3979 set oargs [list]
3980 set refargs [list]
3983 && ![info exists found(limit)]} {
3985 set found(limit) 1
3986 continue
3987 }
3988 catch { unset val }
3995 # Check buttons
3996 set val 1
3998 # Radio buttons
4001 } else {
4002 # Text input fields
4005 }
4008 break
4009 }
4010 if {[info exists val]} break
4011 }
4012 if {[info exists val]} continue
4015 } else {
4017 }
4018 }
4021 }
4023 proc edit_or_newview {} {
4024 global curview
4027 editview
4028 } else {
4029 newview 0
4030 }
4031 }
4033 proc editview {} {
4034 global curview
4035 global viewname viewperm newviewname newviewopts
4036 global viewargs viewargscmd
4041 return
4042 }
4048 }
4050 proc vieweditor {top n title} {
4051 global newviewname newviewopts viewfiles bgcolor
4052 global known_view_options NS
4058 # View name
4066 # View options
4068 set cexpand 0
4069 set cnt 0
4075 set lxpad 0
4079 incr cnt
4085 incr cnt
4089 } else {
4090 set lxpad 5
4091 }
4125 }
4128 }
4130 }
4131 }
4146 }
4148 proc doviewmenu {m first cmd op argv} {
4153 break
4154 }
4155 }
4156 }
4158 proc allviewmenus {n op args} {
4159 # global viewhlmenu
4163 }
4165 proc newviewok {top n {apply 0}} {
4166 global nextviewnum newviewperm newviewname newishighlight
4167 global viewname viewfiles viewperm selectedview curview
4168 global viewargs viewargscmd newviewopts viewhlmenu
4170 if {[catch {
4172 } err]} {
4174 return
4175 }
4176 set files {}
4181 }
4182 }
4184 # creating a new view
4185 incr nextviewnum
4194 } else {
4196 }
4197 } else {
4198 # editing an existing view
4206 }
4213 run reloadcommits
4214 }
4215 }
4216 }
4219 }
4221 proc delview {} {
4222 global curview viewperm hlview selectedhlview
4226 set selectedhlview [mc "None"]
4227 unset hlview
4228 }
4231 showview 0
4232 }
4234 proc addviewmenu {n} {
4235 global viewname viewhlmenu
4241 }
4243 proc showview {n} {
4244 global curview cached_commitrow ordertok
4245 global displayorder parentlist rowidlist rowisopt rowfinal
4246 global colormap rowtextx nextcolor canvxmax
4247 global numcommits viewcomplete
4248 global selectedline currentid canv canvy0
4249 global treediffs
4250 global pending_select mainheadid
4251 global commitidx
4252 global selectedview
4253 global hlview selectedhlview commitinterest
4256 set selid {}
4267 }
4268 } elseif {[info exists pending_select]} {
4270 unset pending_select
4271 }
4272 unselectline
4273 normalline
4274 catch {unset treediffs}
4275 clear_display
4277 unset hlview
4278 set selectedhlview [mc "None"]
4279 }
4280 catch {unset commitinterest}
4281 catch {unset cached_commitrow}
4282 catch {unset ordertok}
4289 run refill_reflist
4292 return
4293 }
4295 set displayorder {}
4296 set parentlist {}
4297 set rowidlist {}
4298 set rowisopt {}
4299 set rowfinal {}
4302 catch {unset colormap}
4303 catch {unset rowtextx}
4304 set nextcolor 0
4307 set row 0
4308 setcanvscroll
4309 set yf 0
4310 set row {}
4313 # try to get the selected row in the same position on the screen
4317 set ytop 0
4318 }
4320 }
4322 drawvisible
4327 } else {
4328 reset_pending_select {}
4332 } else {
4333 set row [first_real_row]
4336 }
4337 }
4338 }
4341 show_status [mc "Reading commits..."]
4342 }
4344 show_status [mc "No commits selected"]
4345 }
4346 }
4348 # Stuff relating to the highlighting facility
4350 proc ishighlighted {id} {
4351 global vhighlights fhighlights nhighlights rhighlights
4355 }
4358 }
4361 }
4364 }
4365 return 0
4366 }
4368 proc bolden {id font} {
4369 global canv linehtag currentid boldids need_redisplay markedid
4371 # need_redisplay = 1 means the display is stale and about to be redrawn
4378 -outline {{}} -tags secsel \
4381 }
4384 }
4385 }
4387 proc bolden_name {id font} {
4388 global canv2 linentag currentid boldnameids need_redisplay
4396 -outline {{}} -tags secsel \
4399 }
4400 }
4402 proc unbolden {} {
4403 global boldids
4405 set stillbold {}
4409 } else {
4411 }
4412 }
4414 }
4416 proc addvhighlight {n} {
4417 global hlview viewcomplete curview vhl_done commitidx
4419 if {[info exists hlview]} {
4420 delvhighlight
4421 }
4425 }
4428 drawvisible
4429 }
4430 }
4432 proc delvhighlight {} {
4433 global hlview vhighlights
4435 if {![info exists hlview]} return
4436 unset hlview
4437 catch {unset vhighlights}
4438 unbolden
4439 }
4441 proc vhighlightmore {} {
4442 global hlview vhl_done commitidx vhighlights curview
4445 set vr [visiblerows]
4455 }
4457 }
4458 }
4459 }
4461 return 0
4462 }
4464 proc askvhighlight {row id} {
4465 global hlview vhighlights iddrawn
4470 }
4472 } else {
4474 }
4475 }
4477 proc hfiles_change {} {
4478 global highlight_files filehighlight fhighlights fh_serial
4479 global highlight_paths
4481 if {[info exists filehighlight]} {
4482 # delete previous highlights
4484 unset filehighlight
4485 catch {unset fhighlights}
4486 unbolden
4487 unhighlight_filelist
4488 }
4489 set highlight_paths {}
4491 incr fh_serial
4494 }
4495 }
4497 proc gdttype_change {name ix op} {
4498 global gdttype highlight_files findstring findpattern
4500 stopfinding
4504 set highlight_files {}
4505 hfiles_change
4506 }
4507 findcom_change
4508 } else {
4510 set findpattern {}
4511 findcom_change
4512 }
4514 hfiles_change
4515 }
4516 drawvisible
4517 }
4518 # enable/disable findtype/findloc menus too
4519 }
4521 proc find_change {name ix op} {
4522 global gdttype findstring highlight_files
4524 stopfinding
4526 findcom_change
4527 } else {
4530 hfiles_change
4531 }
4532 }
4533 drawvisible
4534 }
4536 proc findcom_change args {
4537 global nhighlights boldnameids
4538 global findpattern findtype findstring gdttype
4540 stopfinding
4541 # delete previous highlights, if any
4544 }
4545 set boldnameids {}
4546 catch {unset nhighlights}
4547 unbolden
4548 unmarkmatches
4550 set findpattern {}
4553 } else {
4554 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4557 }
4558 }
4560 proc makepatterns {l} {
4561 set ret {}
4566 } else {
4569 }
4570 }
4572 }
4574 proc do_file_hl {serial} {
4575 global highlight_files filehighlight highlight_paths gdttype fhl_list
4576 global cdup findtype
4579 # If "exact" match then convert backslashes to forward slashes.
4580 # Most useful to support Windows-flavoured file paths.
4583 }
4586 highlight_filelist
4587 set relative_paths {}
4590 }
4594 } else {
4595 # must be "containing:", i.e. we're searching commit info
4596 return
4597 }
4602 set fhl_list {}
4603 drawvisible
4604 flushhighlights
4605 }
4607 proc flushhighlights {} {
4608 global filehighlight fhl_list
4610 if {[info exists filehighlight]} {
4611 lappend fhl_list {}
4614 }
4615 }
4617 proc askfilehighlight {row id} {
4618 global filehighlight fhighlights fhl_list
4623 }
4625 proc readfhighlight {} {
4626 global filehighlight fhighlights curview iddrawn
4627 global fhl_list find_dirn
4629 if {![info exists filehighlight]} {
4630 return 0
4631 }
4632 set nr 0
4640 }
4646 }
4648 }
4650 # strange...
4651 puts "oops, git diff-tree died"
4653 unset filehighlight
4654 return 0
4655 }
4656 if {[info exists find_dirn]} {
4657 run findmore
4658 }
4659 return 1
4660 }
4662 proc doesmatch {f} {
4663 global findtype findpattern
4669 } else {
4671 }
4672 }
4674 proc askfindhighlight {row id} {
4675 global nhighlights commitinfo iddrawn
4676 global findloc
4677 global markingmatches
4681 }
4683 set isbold 0
4684 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4690 set isbold 2
4691 break
4692 }
4693 set isbold 1
4694 }
4695 }
4701 }
4702 }
4705 }
4706 }
4708 }
4710 proc markrowmatches {row id} {
4711 global canv canv2 linehtag linentag commitinfo findloc
4722 }
4723 }
4729 }
4730 }
4731 }
4733 proc vrel_change {name ix op} {
4734 global highlight_related
4736 rhighlight_none
4738 run drawvisible
4739 }
4740 }
4742 # prepare for testing whether commits are descendents or ancestors of a
4743 proc rhighlight_sel {a} {
4744 global descendent desc_todo ancestor anc_todo
4745 global highlight_related
4747 catch {unset descendent}
4749 catch {unset ancestor}
4752 rhighlight_none
4753 run drawvisible
4754 }
4755 }
4757 proc rhighlight_none {} {
4758 global rhighlights
4760 catch {unset rhighlights}
4761 unbolden
4762 }
4764 proc is_descendent {a} {
4765 global curview children descendent desc_todo
4770 set leftover {}
4771 set done 0
4776 continue
4777 }
4783 set done 1
4784 }
4785 }
4786 }
4789 return
4790 }
4791 }
4794 }
4796 proc is_ancestor {a} {
4797 global curview parents ancestor anc_todo
4802 set leftover {}
4803 set done 0
4808 continue
4809 }
4815 set done 1
4816 }
4817 }
4818 }
4821 return
4822 }
4823 }
4826 }
4828 proc askrelhighlight {row id} {
4829 global descendent highlight_related iddrawn rhighlights
4830 global selectedline ancestor
4833 set isbold 0
4838 }
4840 set isbold 1
4841 }
4846 }
4848 set isbold 1
4849 }
4850 }
4854 }
4855 }
4857 }
4859 # Graph layout functions
4861 proc shortids {ids} {
4862 set res {}
4868 } else {
4870 }
4871 }
4873 }
4875 proc ntimes {n o} {
4876 set ret {}
4881 }
4883 }
4885 }
4887 proc ordertoken {id} {
4888 global ordertok curview varcid varcstart varctok curview parents children
4889 global nullid nullid2
4893 }
4895 set todo {}
4896 while {1} {
4900 } else {
4902 }
4905 break
4906 }
4909 # it's a root
4911 break
4912 }
4915 } else {
4919 }
4921 }
4922 }
4927 }
4930 }
4932 # Work out where id should go in idlist so that order-token
4933 # values increase from left to right
4934 proc idcol {idlist id {i 0}} {
4937 set i 0
4938 }
4942 }
4944 incr i
4945 } else {
4949 }
4950 }
4952 }
4954 proc initlayout {} {
4955 global rowidlist rowisopt rowfinal displayorder parentlist
4956 global numcommits canvxmax canv
4957 global nextcolor
4958 global colormap rowtextx
4960 set numcommits 0
4961 set displayorder {}
4962 set parentlist {}
4963 set nextcolor 0
4964 set rowidlist {}
4965 set rowisopt {}
4966 set rowfinal {}
4968 catch {unset colormap}
4969 catch {unset rowtextx}
4970 setcanvscroll
4971 }
4973 proc setcanvscroll {} {
4974 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4975 global lastscrollset lastscrollrows
4981 set lastscrollset [clock clicks -milliseconds]
4983 }
4985 proc visiblerows {} {
4986 global canv numcommits linespc
4994 set r0 0
4995 }
5000 }
5002 }
5004 proc layoutmore {} {
5005 global commitidx viewcomplete curview
5006 global numcommits pending_select curview
5007 global lastscrollset lastscrollrows
5011 setcanvscroll
5012 }
5013 if {[info exists pending_select] &&
5015 update
5017 }
5018 drawvisible
5019 }
5021 # With path limiting, we mightn't get the actual HEAD commit,
5022 # so ask git rev-list what is the first ancestor of HEAD that
5023 # touches a file in the path limit.
5024 proc get_viewmainhead {view} {
5025 global viewmainheadid vfilelimit viewinstances mainheadid
5027 catch {
5035 }
5036 }
5039 proc getviewhead {fd inst view} {
5040 global viewmainheadid commfd curview viewinstances showlocalchanges
5042 set id {}
5045 return 1
5046 }
5049 }
5056 }
5058 doshowlocalchanges
5059 }
5060 return 0
5061 }
5063 proc doshowlocalchanges {} {
5064 global curview viewmainheadid
5068 dodiffindex
5069 } else {
5071 }
5072 }
5074 proc dohidelocalchanges {} {
5075 global nullid nullid2 lserial curview
5079 }
5082 }
5083 incr lserial
5084 }
5086 # spawn off a process to do git diff-index --cached HEAD
5087 proc dodiffindex {} {
5088 global lserial showlocalchanges vfilelimit curview
5089 global hasworktree
5092 incr lserial
5093 set cmd "|git diff-index --cached HEAD"
5096 }
5101 }
5103 proc readdiffindex {fd serial inst} {
5104 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5105 global vfilelimit
5107 set isdiff 1
5110 return 1
5111 }
5112 set isdiff 0
5113 }
5114 # we only need to see one line and we don't really care what it says...
5118 return 0
5119 }
5121 # now see if there are any local changes not checked in to the index
5122 set cmd "|git diff-files"
5125 }
5132 # add the line for the changes in the index to the graph
5133 set hl [mc "Local changes checked in to index but not committed"]
5138 }
5143 }
5145 }
5146 return 0
5147 }
5149 proc readdifffiles {fd serial inst} {
5150 global viewmainheadid nullid nullid2 curview
5151 global commitinfo commitdata lserial
5153 set isdiff 1
5156 return 1
5157 }
5158 set isdiff 0
5159 }
5160 # we only need to see one line and we don't really care what it says...
5164 return 0
5165 }
5168 # add the line for the local diff to the graph
5169 set hl [mc "Local uncommitted changes, not checked in to index"]
5174 } else {
5176 }
5180 }
5181 return 0
5182 }
5184 proc nextuse {id row} {
5185 global curview children
5190 return -1
5191 }
5194 }
5195 }
5196 }
5199 }
5200 return -1
5201 }
5203 proc prevuse {id row} {
5204 global curview children
5206 set ret -1
5212 }
5213 }
5214 }
5216 }
5218 proc make_idlist {row} {
5219 global displayorder parentlist uparrowlen downarrowlen mingaplen
5220 global commitidx curview children
5224 set r 0
5225 }
5228 set ra 0
5229 }
5233 }
5235 set ids {}
5244 }
5245 }
5246 }
5254 }
5255 }
5256 }
5264 }
5265 }
5266 incr r
5272 }
5273 }
5274 }
5275 set idlist {}
5278 }
5280 }
5282 proc rowsequal {a b} {
5285 }
5288 }
5290 }
5292 proc makeupline {id row rend col} {
5293 global rowidlist uparrowlen downarrowlen mingaplen
5299 }
5302 }
5309 }
5310 }
5311 }
5313 proc layoutrows {row endrow} {
5314 global rowidlist rowisopt rowfinal displayorder
5315 global uparrowlen downarrowlen maxwidth mingaplen
5316 global children parentlist
5317 global commitidx viewcomplete curview
5320 set idlist {}
5326 }
5327 }
5329 }
5334 set final 1
5335 } else {
5343 # if not the first child, we have to insert a line going up
5346 }
5347 }
5348 }
5358 }
5359 }
5360 }
5367 }
5368 }
5378 }
5379 }
5387 }
5388 }
5389 }
5390 }
5391 }
5395 set final 0
5396 }
5400 lappend rowisopt 0
5406 }
5408 } else {
5415 }
5416 }
5418 }
5420 proc changedrow {row} {
5421 global displayorder iddrawn rowisopt need_redisplay
5430 }
5431 }
5432 }
5435 set need_redisplay 1
5436 }
5437 }
5439 proc insert_pad {row col npad} {
5440 global rowidlist
5449 }
5452 }
5454 proc optimize_rows {row col endrow} {
5455 global rowidlist rowisopt displayorder curview children
5458 set row 1
5459 }
5462 set haspad 0
5471 } else {
5472 set pprevidlist {}
5473 }
5474 set x0 -1
5475 set xm -1
5480 set haspad 1
5481 continue
5482 }
5486 set isarrow 0
5487 set z0 {}
5492 }
5493 }
5498 set isarrow 1
5499 }
5500 }
5503 set isarrow 1
5504 }
5505 # Looking at lines from this row to the previous row,
5506 # make them go straight up if they end in an arrow on
5507 # the previous row; otherwise make them go straight up
5508 # or at 45 degrees.
5510 # Line currently goes left too much;
5511 # insert pads in the previous row, then optimize it
5516 }
5524 }
5526 # Line currently goes right too much;
5527 # insert pads in this line
5533 set haspad 1
5534 }
5541 }
5542 }
5543 # avoid lines jigging left then immediately right
5546 incr x0
5549 }
5550 }
5552 # Find the first column that doesn't have a line going right
5558 # check if this is the link to the first child
5561 # it is, work out offset to child
5563 }
5564 }
5566 }
5567 # Insert a pad at that column as long as it has a line and
5568 # isn't the last column
5573 }
5574 }
5575 }
5576 }
5578 proc xc {row col} {
5579 global canvx0 linespc
5581 }
5583 proc yc {row} {
5584 global canvy0 linespc
5586 }
5588 proc linewidth {id} {
5589 global thickerline lthickness
5594 }
5596 }
5598 proc rowranges {id} {
5599 global curview children uparrowlen downarrowlen
5600 global rowidlist
5604 return {}
5605 }
5606 set ret {}
5611 if {![info exists prev]} {
5613 } else {
5615 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5616 }
5617 # see if the line extends the whole way from prevrow to row
5621 # it doesn't, see where it ends
5626 } else {
5629 incr r -1
5630 }
5632 # see where it starts up again
5637 } else {
5640 incr r
5641 }
5643 }
5644 }
5647 }
5650 }
5652 }
5654 proc drawlineseg {id row endrow arrowlow} {
5655 global rowidlist displayorder iddrawn linesegs
5656 global canv colormap linespc curview maxlinelen parentlist
5660 set arrowhigh 1
5661 while {1} {
5664 incr le -1
5665 break
5666 }
5670 set arrowhigh 0
5671 break
5672 }
5677 set arrowhigh 0
5678 }
5679 break
5680 }
5681 incr le
5682 }
5685 }
5687 set lines {}
5688 set i 0
5689 set joinhigh 0
5696 set joinhigh 1
5697 }
5698 break
5699 }
5700 incr i
5701 }
5702 }
5703 set joinlow 0
5708 set joinlow 1
5709 }
5710 }
5723 }
5724 } else {
5726 }
5734 set arrowlow 0
5735 }
5736 }
5744 }
5746 }
5749 # join parent line to first child
5760 } else {
5762 }
5770 }
5772 }
5774 } else {
5778 }
5786 } else {
5790 }
5792 }
5793 } else {
5799 }
5803 } else {
5804 # coalesce two pieces
5809 }
5813 }
5814 }
5818 }
5820 proc drawparentlinks {id row} {
5821 global rowidlist canv colormap curview parentlist
5822 global idpos linespc
5835 # rmx = right-most X coord used
5836 set rmx 0
5841 continue
5842 }
5846 }
5849 # drawlineseg will do this one for us
5850 continue
5851 }
5853 # should handle duplicated parents here...
5856 # if attaching to a vertical segment, draw a smaller
5857 # slant for visual distinctness
5861 } else {
5863 }
5865 # segment slants towards us already
5867 } else {
5872 }
5874 }
5875 } else {
5877 }
5882 }
5886 }
5887 }
5889 proc drawlines {id} {
5890 global canv
5893 }
5895 proc drawcmittext {id row col} {
5896 global linespc canv canv2 canv3 fgcolor curview
5897 global cmitlisted commitinfo rowidlist parentlist
5898 global rowtextx idpos idtags idheads idotherrefs
5899 global linehtag linentag linedtag selectedline
5900 global canvxmax boldids boldnameids fgcolor markedid
5901 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5903 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5906 set ofill red
5908 set ofill green
5910 set ofill yellow
5911 } else {
5913 }
5922 # triangle pointing left for left-side commits
5928 } else {
5929 # triangle pointing right for right-side commits
5935 }
5947 }
5948 }
5949 }
5956 }
5959 }
5964 set font mainfont
5965 set nfont mainfont
5969 set font mainfontbold
5972 set nfont mainfontbold
5973 }
5974 }
5984 }
5987 }
5991 setcanvscroll
5992 }
5993 }
5995 proc drawcmitrow {row} {
5996 global displayorder rowidlist nrows_drawn
5997 global iddrawn markingmatches
5998 global commitinfo numcommits
5999 global filehighlight fhighlights findpattern nhighlights
6000 global hlview vhighlights
6001 global highlight_related rhighlights
6008 }
6011 }
6014 }
6017 }
6022 return
6023 }
6026 }
6030 incr nrows_drawn
6031 }
6034 }
6035 }
6037 proc drawcommits {row {endrow {}}} {
6038 global numcommits iddrawn displayorder curview need_redisplay
6039 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6042 set row 0
6043 }
6046 }
6049 }
6053 set rl1 0
6054 }
6057 set ro1 0
6058 }
6062 }
6067 }
6069 }
6070 }
6073 }
6076 clear_display
6077 }
6079 # make the lines join to already-drawn rows either side
6083 }
6088 }
6103 # see if this is the first child of any of its parents
6106 # make this line extend up to the child
6108 }
6109 }
6110 } else {
6112 }
6113 }
6114 }
6115 }
6117 proc undolayout {row} {
6118 global uparrowlen mingaplen downarrowlen
6119 global rowidlist rowisopt rowfinal need_redisplay
6123 set r 0
6124 }
6126 incr r -1
6130 set need_redisplay 1
6131 run drawvisible
6132 }
6133 }
6135 proc drawvisible {} {
6136 global canv linespc curview vrowmod selectedline targetrow targetid
6137 global need_redisplay cscroll numcommits
6147 if {[info exists targetid]} {
6151 # Fix up the scrollregion and change the scrolling position
6152 # now that our target row has moved.
6155 setcanvscroll
6163 set need_redisplay 1
6164 }
6165 } else {
6166 unset targetid
6167 }
6168 }
6174 }
6178 } elseif {[info exists targetid]} {
6180 }
6181 if {[info exists targetrow]} {
6184 }
6186 }
6188 }
6190 proc clear_display {} {
6191 global iddrawn linesegs need_redisplay nrows_drawn
6192 global vhighlights fhighlights nhighlights rhighlights
6193 global linehtag linentag linedtag boldids boldnameids
6195 allcanvs delete all
6196 catch {unset iddrawn}
6197 catch {unset linesegs}
6198 catch {unset linehtag}
6199 catch {unset linentag}
6200 catch {unset linedtag}
6201 set boldids {}
6202 set boldnameids {}
6203 catch {unset vhighlights}
6204 catch {unset fhighlights}
6205 catch {unset nhighlights}
6206 catch {unset rhighlights}
6207 set need_redisplay 0
6208 set nrows_drawn 0
6209 }
6211 proc findcrossings {id} {
6212 global rowidlist parentlist numcommits displayorder
6214 set cross {}
6215 set ccross {}
6219 }
6238 }
6239 }
6240 }
6241 }
6242 }
6244 }
6246 proc assigncolor {id} {
6247 global colormap colors nextcolor
6248 global parents children children curview
6254 } else {
6255 set kids {}
6256 }
6262 return
6263 }
6264 }
6265 set badcolors {}
6266 set origbad {}
6269 # delimiter between corner crossings and other crossings
6272 }
6276 }
6277 }
6280 }
6287 }
6292 }
6293 }
6294 }
6297 }
6298 }
6302 set nextcolor 0
6303 }
6305 }
6307 }
6309 proc bindline {t id} {
6310 global canv
6316 }
6318 proc drawtags {id x xt y1} {
6319 global idtags idheads idotherrefs mainhead
6320 global linespc lthickness
6321 global canv rowtextx curview fgcolor bgcolor ctxbut
6323 set marks {}
6324 set ntags 0
6325 set nheads 0
6329 }
6333 }
6336 }
6339 }
6344 set xvals {}
6345 set wvals {}
6346 set i -1
6348 incr i
6351 } else {
6353 }
6357 }
6365 set font mainfont
6366 if {[incr ntags -1] >= 0} {
6367 # draw a tag
6373 } else {
6374 # draw a head or other ref
6375 if {[incr nheads -1] >= 0} {
6376 set col green
6378 set font mainfontbold
6379 }
6380 } else {
6381 set col "#ddddff"
6382 }
6393 }
6394 }
6401 }
6402 }
6404 }
6406 proc drawnotesign {xt y} {
6407 global linespc canv fgcolor
6415 }
6417 proc xcoord {i level ln} {
6418 global canvx0 xspc1 xspc2
6425 }
6427 }
6429 proc show_status {msg} {
6430 global canv fgcolor
6432 clear_display
6435 }
6437 # Don't change the text pane cursor if it is currently the hand cursor,
6438 # showing that we are over a sha1 ID link.
6439 proc settextcursor {c} {
6440 global ctext curtextcursor
6444 }
6446 }
6448 proc nowbusy {what {name {}}} {
6449 global isbusy busyname statusw
6451 if {[array names isbusy] eq {}} {
6452 . config -cursor watch
6453 settextcursor watch
6454 }
6459 }
6460 }
6462 proc notbusy {what} {
6463 global isbusy maincursor textcursor busyname statusw
6465 catch {
6470 }
6471 }
6472 if {[array names isbusy] eq {}} {
6475 }
6476 }
6478 proc findmatches {f} {
6479 global findtype findstring
6482 } else {
6487 }
6488 set matches {}
6489 set i 0
6494 }
6495 }
6497 }
6499 proc dofind {{dirn 1} {wrap 1}} {
6500 global findstring findstartline findcurline selectedline numcommits
6501 global gdttype filehighlight fh_serial find_dirn findallowwrap
6503 if {[info exists find_dirn]} {
6505 stopfinding
6506 }
6507 focus .
6511 } else {
6513 }
6515 nowbusy finding [mc "Searching"]
6519 }
6522 run findmore
6523 }
6525 proc stopfinding {} {
6526 global find_dirn findcurline fprogcoord
6528 if {[info exists find_dirn]} {
6529 unset find_dirn
6530 unset findcurline
6531 notbusy finding
6532 set fprogcoord 0
6533 adjustprogress
6534 }
6535 stopblaming
6536 }
6538 proc findmore {} {
6539 global commitdata commitinfo numcommits findpattern findloc
6540 global findstartline findcurline findallowwrap
6541 global find_dirn gdttype fhighlights fprogcoord
6542 global curview varcorder vrownum varccommits vrowmod
6544 if {![info exists find_dirn]} {
6545 return 0
6546 }
6547 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6549 set moretodo 0
6551 incr l
6553 set l 0
6554 }
6557 } else {
6560 }
6561 } else {
6564 }
6565 incr l -1
6568 } else {
6569 set lim -1
6571 }
6572 }
6575 set n 500
6576 set moretodo 1
6577 }
6580 }
6581 set found 0
6582 set domore 1
6596 }
6598 # shouldn't happen unless git log doesn't give all the commits...
6601 continue
6602 }
6605 }
6611 set found 1
6612 break
6613 }
6614 }
6616 }
6617 } else {
6625 }
6630 }
6633 break
6634 }
6637 set domore 0
6639 }
6640 }
6641 }
6642 }
6644 unset findcurline
6645 unset find_dirn
6646 notbusy finding
6647 set fprogcoord 0
6648 adjustprogress
6651 } else {
6652 bell
6653 }
6654 return 0
6655 }
6657 flushhighlights
6658 } else {
6660 }
6664 }
6666 adjustprogress
6668 }
6670 proc findselectline {l} {
6671 global findloc commentend ctext findcurline markingmatches gdttype
6678 # highlight the matches in the comments
6685 }
6686 }
6687 drawvisible
6688 }
6690 # mark the bits of a headline or author that match a find string
6691 proc markmatches {canv l str tag matches font row} {
6692 global selectedline
6710 }
6711 }
6712 }
6714 proc unmarkmatches {} {
6715 global markingmatches
6717 allcanvs delete matches
6718 set markingmatches 0
6719 stopfinding
6720 }
6722 proc selcanvline {w x y} {
6723 global canv canvy0 ctext linespc
6724 global rowtextx
6731 set l 0
6732 }
6737 }
6738 unmarkmatches
6740 }
6742 proc commit_descriptor {p} {
6743 global commitinfo
6746 }
6747 set l "..."
6750 }
6752 }
6754 # append some text to the ctext widget, and make any SHA1 ID
6755 # that we know about be a clickable link.
6756 proc appendwithlinks {text tags} {
6757 global ctext linknum curview
6766 incr e
6770 incr linknum
6771 }
6772 }
6774 proc setlink {id lk} {
6775 global curview ctext pendinglinks
6779 }
6781 set known 0
6786 set known 1
6788 }
6789 } else {
6791 }
6797 } else {
6800 }
6801 }
6803 proc appendshortlink {id {pre {}} {post {}}} {
6804 global ctext linknum
6811 incr linknum
6812 }
6814 proc makelink {id} {
6815 global pendinglinks
6820 }
6822 }
6824 proc linkcursor {w inc} {
6825 global linkentercount curtextcursor
6829 } else {
6832 set linkentercount 0
6833 }
6834 }
6835 }
6837 proc viewnextline {dir} {
6838 global canv linespc
6846 set newtop 0
6849 }
6851 }
6853 # add a list of tag or branch names at position pos
6854 # returns the number of names inserted
6855 proc appendrefs {pos ids var} {
6859 return 0
6860 }
6863 set tags {}
6867 }
6868 }
6871 } else {
6873 set sep {}
6877 incr linknum
6882 set sep ", "
6883 }
6884 }
6887 }
6889 # called when we have finished computing the nearby tags
6890 proc dispneartags {delay} {
6891 global selectedline currentid showneartags tagphase
6894 after cancel dispnexttag
6896 after 200 dispnexttag
6897 set tagphase -1
6898 } else {
6899 after idle dispnexttag
6900 set tagphase 0
6901 }
6902 }
6904 proc dispnexttag {} {
6905 global selectedline currentid showneartags tagphase ctext
6909 0 {
6913 }
6914 }
6915 1 {
6919 }
6920 }
6921 2 {
6926 # turn "Branch" into "Branches"
6930 }
6931 }
6932 }
6933 }
6934 if {[incr tagphase] <= 2} {
6935 after idle dispnexttag
6936 }
6937 }
6939 proc make_secsel {id} {
6940 global linehtag linentag linedtag canv canv2 canv3
6955 }
6957 proc make_idmark {id} {
6958 global linehtag canv fgcolor
6965 }
6967 proc selectline {l isnew {desired_loc {}}} {
6968 global canv ctext commitinfo selectedline
6969 global canvy0 linespc parents children curview
6970 global currentid sha1entry
6971 global commentend idtags linknum
6972 global mergemax numcommits pending_select
6973 global cmitmode showneartags allcommits
6974 global targetrow targetid lastscrollrows
6975 global autoselect autosellen jump_to_here
6977 catch {unset pending_select}
6979 normalline
6980 unsel_reflist
6981 stopfinding
6989 setcanvscroll
6990 }
7004 } else {
7008 }
7009 }
7013 } else {
7017 }
7018 }
7019 }
7022 set newtop 0
7023 }
7025 drawvisible
7026 }
7032 }
7038 }
7042 clear_ctext
7043 set linknum 0
7046 }
7056 }
7058 }
7060 set headers {}
7063 set np 0
7066 set tag mmax
7067 } else {
7069 }
7072 incr np
7073 }
7074 } else {
7077 }
7078 }
7082 }
7084 # make anything that looks like a SHA1 ID be a clickable link
7087 if {![info exists allcommits]} {
7088 getallcommits
7089 }
7100 dispneartags 1
7101 }
7106 }
7114 init_flist [mc "Comments"]
7119 } else {
7121 }
7122 }
7124 proc selfirstline {} {
7125 unmarkmatches
7126 selectline 0 1
7127 }
7129 proc sellastline {} {
7130 global numcommits
7131 unmarkmatches
7134 }
7136 proc selnextline {dir} {
7137 global selectedline
7138 focus .
7141 unmarkmatches
7143 }
7145 proc selnextpage {dir} {
7146 global canv linespc selectedline numcommits
7150 set lpp 1
7151 }
7153 drawvisible
7157 set l 0
7160 }
7161 unmarkmatches
7163 }
7165 proc unselectline {} {
7166 global selectedline currentid
7168 set selectedline {}
7169 catch {unset currentid}
7170 allcanvs delete secsel
7171 rhighlight_none
7172 }
7174 proc reselectline {} {
7175 global selectedline
7179 }
7180 }
7182 proc addtohistory {cmd {saveproc {}}} {
7183 global history historyindex curview
7185 unset_posvars
7186 save_position
7190 return
7191 }
7195 } else {
7197 }
7198 incr historyindex
7200 .tf.bar.leftbut conf -state normal
7201 } else {
7202 .tf.bar.leftbut conf -state disabled
7203 }
7204 .tf.bar.rightbut conf -state disabled
7205 }
7207 # save the scrolling position of the diff display pane
7208 proc save_position {} {
7209 global historyindex history
7216 }
7217 }
7219 proc unset_posvars {} {
7220 global last_posvars
7222 if {[info exists last_posvars]} {
7226 }
7227 unset last_posvars
7228 }
7229 }
7231 proc godo {elt} {
7232 global curview last_posvars
7239 }
7240 unset_posvars
7244 }
7247 }
7249 proc goback {} {
7250 global history historyindex
7251 focus .
7254 save_position
7255 incr historyindex -1
7257 .tf.bar.rightbut conf -state normal
7258 }
7260 .tf.bar.leftbut conf -state disabled
7261 }
7262 }
7264 proc goforw {} {
7265 global history historyindex
7266 focus .
7269 save_position
7271 incr historyindex
7273 .tf.bar.leftbut conf -state normal
7274 }
7276 .tf.bar.rightbut conf -state disabled
7277 }
7278 }
7280 proc gettree {id} {
7281 global treefilelist treeidlist diffids diffmergeid treepending
7282 global nullid nullid2
7285 catch {unset diffmergeid}
7287 if {![info exists treepending]} {
7289 set cmd [list | git ls-files]
7291 set cmd [list | git ls-files --stage -t]
7292 } else {
7294 }
7296 return
7297 }
7303 }
7304 } else {
7306 }
7307 }
7309 proc gettreeline {gtf id} {
7310 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7312 set nl 0
7316 } else {
7324 }
7327 }
7330 }
7333 }
7335 unset treepending
7337 if {![info exists diffmergeid]} {
7339 }
7342 } else {
7344 }
7345 return 0
7346 }
7348 proc showfile {f} {
7349 global treefilelist treeidlist diffids nullid nullid2
7350 global ctext_file_names ctext_file_lines
7351 global ctext commentend
7356 return
7357 }
7361 return
7362 }
7363 } else {
7367 return
7368 }
7369 }
7380 settabs 0
7381 }
7383 proc getblobline {bf id} {
7384 global diffids cmitmode ctext
7388 return 0
7389 }
7391 set nl 0
7394 }
7396 global jump_to_here ctext_file_names commentend
7398 # delete last newline
7406 }
7408 return 0
7409 }
7412 }
7414 proc mark_ctext_line {lnum} {
7415 global ctext markbgcolor
7421 }
7423 proc mergediff {id} {
7424 global diffmergeid
7425 global diffids treediffs
7426 global parents curview
7434 }
7436 proc startdiff {ids} {
7437 global treediffs diffids treepending diffmergeid nullid nullid2
7439 settabs 1
7441 catch {unset diffmergeid}
7445 if {![info exists treepending]} {
7447 }
7448 } else {
7450 }
7451 }
7453 # If the filename (name) is under any of the passed filter paths
7454 # then return true to include the file in the listing.
7455 proc path_filter {filter name} {
7456 set worktree [gitworktree]
7461 return 1
7462 }
7463 }
7464 return 0
7465 }
7467 proc addtocflist {ids} {
7468 global treediffs
7472 }
7474 proc diffcmd {ids flags} {
7475 global nullid nullid2
7481 # comparing working directory with some specific revision
7485 } else {
7487 }
7488 } else {
7489 # comparing working directory with index
7492 lappend cmd -R
7493 }
7494 }
7498 # comparing index with specific revision
7501 } else {
7503 }
7504 } else {
7505 # comparing index with HEAD
7506 lappend cmd HEAD
7507 }
7508 } else {
7510 }
7512 }
7514 proc gettreediffs {ids} {
7515 global treediff treepending
7520 set treediff {}
7523 }
7525 proc gettreediffline {gdtf ids} {
7526 global treediff treediffs treepending diffids diffmergeid
7527 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7529 set nr 0
7530 set sublist {}
7531 set max 1000
7533 # cache_gitattr is slow, and even slower on win32 where we
7534 # have to invoke it for only about 30 paths at a time
7535 set max 500
7536 if {[tk windowingsystem] == "win32"} {
7537 set max 120
7538 }
7539 }
7546 }
7551 }
7552 }
7553 }
7556 }
7559 }
7562 set flist {}
7566 }
7567 }
7569 } else {
7571 }
7572 unset treepending
7576 if {![info exists diffmergeid]} {
7578 }
7579 } else {
7581 }
7582 return 0
7583 }
7585 # empty string or positive integer
7586 proc diffcontextvalidate {v} {
7588 }
7590 proc diffcontextchange {n1 n2 op} {
7591 global diffcontextstring diffcontext
7596 reselectline
7597 }
7598 }
7599 }
7601 proc changeignorespace {} {
7602 reselectline
7603 }
7605 proc changeworddiff {name ix op} {
7606 reselectline
7607 }
7609 proc getblobdiffs {ids} {
7610 global blobdifffd diffids env
7611 global diffinhdr treediffs
7612 global diffcontext
7613 global ignorespace
7614 global worddiff
7615 global limitdiffs vfilelimit curview
7616 global diffencoding targetline diffnparents
7617 global git_version currdiffsubmod
7619 set textconv {}
7621 set textconv "--textconv"
7622 }
7623 set submodule {}
7625 set submodule "--submodule"
7626 }
7629 append cmd " -w"
7630 }
7632 append cmd " --word-diff=porcelain"
7633 }
7636 }
7639 return
7640 }
7641 set targetline {}
7642 set diffnparents 0
7643 set diffinhdr 0
7644 set diffencoding [get_path_encoding {}]
7647 set currdiffsubmod ""
7649 }
7651 proc savecmitpos {} {
7652 global ctext cmitmode
7655 return {}
7656 }
7658 }
7660 proc savectextpos {} {
7661 global ctext
7664 }
7666 proc maybe_scroll_ctext {ateof} {
7667 global ctext target_scrollpos
7669 if {![info exists target_scrollpos]} return
7672 / [font metrics textfont -linespace]}]
7674 }
7676 unset target_scrollpos
7677 }
7679 proc setinlist {var i val} {
7684 }
7687 } else {
7689 }
7690 }
7692 proc makediffhdr {fname ids} {
7693 global ctext curdiffstart treediffs diffencoding
7694 global ctext_file_names jump_to_here targetline diffline
7701 }
7706 set targetline {}
7709 }
7710 set diffline 0
7711 }
7713 proc getblobdiffline {bdf ids} {
7714 global diffids blobdifffd ctext curdiffstart
7715 global diffnexthead diffnextnote difffilestart
7716 global ctext_file_names ctext_file_lines
7717 global diffinhdr treediffs mergemax diffnparents
7718 global diffencoding jump_to_here targetline diffline currdiffsubmod
7719 global worddiff
7721 set nr 0
7726 return 0
7727 }
7732 continue
7733 }
7734 # start of a new file
7735 set diffinhdr 1
7738 lappend ctext_file_names ""
7743 # start of a new file in a merge diff
7748 }
7750 } else {
7752 # If the name hasn't changed the length will be odd,
7753 # the middle char will be a space, and the two bits either
7754 # side will be a/name and b/name, or "a/name" and "b/name".
7755 # If the name has changed we'll get "rename from" and
7756 # "rename to" or "copy from" and "copy to" lines following
7757 # this, and we'll use them to get the filenames.
7758 # This complexity is necessary because spaces in the
7759 # filename(s) don't get escaped.
7765 continue
7766 }
7767 # unescape if quoted and chop off the a/ from the front
7770 } else {
7772 }
7773 }
7786 }
7794 }
7796 set diffinhdr 0
7799 # start of a new submodule
7802 } else {
7804 }
7807 }
7809 lappend ctext_file_names ""
7815 } else {
7817 }
7831 }
7836 }
7842 }
7845 # do nothing
7846 continue
7848 set diffinhdr 0
7849 continue
7850 }
7853 } else {
7854 set line [string map {\x1A ^Z} \
7856 # parse the prefix - one ' ', '-' or '+' for each parent
7860 set words_pre_markup ""
7861 set words_post_markup ""
7863 # prefix only has " ", "-" and "+" in it: normal diff line
7867 }
7871 set num "max"
7872 }
7875 } else {
7877 }
7880 }
7881 } else {
7882 set tags {}
7884 # added line
7890 set num "max"
7891 }
7893 }
7894 }
7895 set words_pre_markup "{+"
7896 set words_post_markup "+}"
7897 }
7901 set targetline {}
7902 } else {
7903 incr diffline
7904 }
7905 }
7908 } else {
7910 }
7913 }
7914 }
7917 } else {
7918 # "\ No newline at end of file",
7919 # or something else we don't recognize
7921 }
7922 }
7923 }
7924 if {[info exists seehere]} {
7926 }
7931 return 0
7932 }
7934 }
7936 proc changediffdisp {} {
7937 global ctext diffelide
7941 }
7943 proc highlightfile {loc cline} {
7944 global ctext cflist cflist_top
7951 }
7953 proc prevfile {} {
7954 global difffilestart ctext cmitmode
7957 set prev 0.0
7958 set prevline 1
7963 return
7964 }
7966 incr prevline
7967 }
7969 }
7971 proc nextfile {} {
7972 global difffilestart ctext cmitmode
7976 set line 1
7978 incr line
7981 return
7982 }
7983 }
7984 }
7986 proc clear_ctext {{first 1.0}} {
7987 global ctext smarktop smarkbot
7988 global ctext_file_names ctext_file_lines
7989 global pendinglinks
7994 }
7997 }
8000 catch {unset pendinglinks}
8001 }
8002 set ctext_file_names {}
8003 set ctext_file_lines {}
8004 }
8006 proc settabs {{firstab {}}} {
8007 global firsttabstop tabstop ctext have_tk85
8011 }
8012 set w [font measure textfont "0"]
8018 } else {
8020 }
8021 }
8023 proc incrsearch {name ix op} {
8024 global ctext searchstring searchdirn
8028 # no anchor set, use start of selection, or of visible area
8034 } else {
8036 }
8037 }
8042 }
8043 searchmarkvisible 1
8044 }
8045 }
8047 proc dosearch {} {
8048 global sstring ctext searchstring searchdirn
8052 set searchdirn -forwards
8058 set start "@0,0"
8059 }
8063 bell
8064 return
8065 }
8070 }
8071 }
8073 proc dosearchback {} {
8074 global sstring ctext searchstring searchdirn
8078 set searchdirn -backwards
8085 }
8089 bell
8090 return
8091 }
8096 }
8097 }
8099 proc searchmark {first last} {
8100 global ctext searchstring
8103 while {1} {
8108 }
8109 }
8111 proc searchmarkvisible {doall} {
8112 global ctext smarktop smarkbot
8117 # no overlap with previous
8121 } else {
8125 }
8129 }
8130 }
8131 }
8133 proc scrolltext {f0 f1} {
8134 global searchstring
8138 searchmarkvisible 0
8139 }
8140 }
8142 proc setcoords {} {
8143 global linespc charspc canvx0 canvy0
8144 global xspc1 xspc2 lthickness
8146 set linespc [font metrics mainfont -linespace]
8147 set charspc [font measure mainfont "m"]
8153 }
8155 proc redisplay {} {
8156 global canv
8157 global selectedline
8162 clear_display
8163 setcanvscroll
8165 drawvisible
8169 }
8170 }
8172 proc parsefont {f n} {
8173 global fontattr
8178 set s 10
8181 }
8187 "normal" -
8189 "roman" -
8191 }
8192 }
8193 }
8195 proc fontflags {f {isbold 0}} {
8196 global fontattr
8201 }
8203 proc fontname {f} {
8204 global fontattr
8208 lappend n "bold"
8209 }
8211 lappend n "italic"
8212 }
8214 }
8216 proc incrfont {inc} {
8217 global mainfont textfont ctext canv cflist showrefstop
8218 global stopped entries fontattr
8220 unmarkmatches
8224 set s 1
8225 }
8229 set mainfont [fontname mainfont]
8233 set s 1
8234 }
8238 set textfont [fontname textfont]
8239 setcoords
8240 settabs
8241 redisplay
8242 }
8244 proc clearsha1 {} {
8245 global sha1entry sha1string
8248 }
8249 }
8251 proc sha1change {n1 n2 op} {
8252 global sha1string currentid sha1but
8255 set state disabled
8256 } else {
8257 set state normal
8258 }
8262 } else {
8264 }
8265 }
8267 proc gotocommit {} {
8268 global sha1string tagids headids curview varcid
8276 } else {
8283 return
8284 }
8286 }
8287 } else {
8290 return
8291 }
8292 }
8293 }
8296 return
8297 }
8300 } else {
8302 }
8304 }
8306 proc lineenter {x y id} {
8307 global hoverx hovery hoverid hovertimer
8308 global commitinfo canv
8314 if {[info exists hovertimer]} {
8316 }
8317 set hovertimer [after 500 linehover]
8319 }
8321 proc linemotion {x y id} {
8322 global hoverx hovery hoverid hovertimer
8327 if {[info exists hovertimer]} {
8329 }
8330 set hovertimer [after 500 linehover]
8331 }
8332 }
8334 proc lineleave {id} {
8335 global hoverid hovertimer canv
8339 if {[info exists hovertimer]} {
8341 unset hovertimer
8342 }
8343 unset hoverid
8344 }
8345 }
8347 proc linehover {} {
8348 global hoverx hovery hoverid hovertimer
8349 global canv linespc lthickness
8350 global commitinfo
8363 -fill \#ffff80 -outline black -width 1 -tags hover]
8366 -font mainfont]
8368 }
8370 proc clickisonarrow {id y} {
8371 global lthickness
8380 }
8381 }
8382 return {}
8383 }
8385 proc arrowjump {id n y} {
8386 global canv
8388 # 1 <-> 2, 3 <-> 4, etc...
8398 set yfrac 0
8399 }
8401 }
8403 proc lineclick {x y id isnew} {
8404 global ctext commitinfo children canv thickerline curview
8407 unmarkmatches
8408 unselectline
8409 normalline
8411 # draw this line thicker than normal
8419 }
8423 return
8424 }
8428 }
8429 # fill the details pane with info about this line
8431 clear_ctext
8432 settabs 0
8444 set i 0
8446 incr i
8456 }
8457 }
8458 maybe_scroll_ctext 1
8460 init_flist {}
8461 }
8463 proc normalline {} {
8464 global thickerline
8465 if {[info exists thickerline]} {
8467 unset thickerline
8469 }
8470 }
8472 proc selbyid {id {isnew 1}} {
8473 global curview
8476 }
8477 }
8479 proc mstime {} {
8480 global startmstime
8481 if {![info exists startmstime]} {
8482 set startmstime [clock clicks -milliseconds]
8483 }
8485 }
8487 proc rowmenu {x y id} {
8488 global rowctxmenu selectedline rowmenuid curview
8489 global nullid nullid2 fakerowmenu mainhead markedid
8491 stopfinding
8494 set state disabled
8495 } else {
8496 set state normal
8497 }
8502 } else {
8504 }
8509 } else {
8513 }
8514 } else {
8516 }
8521 }
8523 proc markhere {} {
8524 global rowmenuid markedid canv
8528 }
8530 proc gotomark {} {
8531 global markedid
8533 if {[info exists markedid]} {
8535 }
8536 }
8538 proc replace_by_kids {l r} {
8539 global curview children
8545 }
8547 }
8549 proc find_common_desc {} {
8550 global markedid rowmenuid curview children
8552 if {![info exists markedid]} return
8555 #set t1 [clock clicks -milliseconds]
8558 while 1 {
8564 break
8565 }
8568 } else {
8570 }
8571 }
8572 #set t2 [clock clicks -milliseconds]
8574 }
8576 proc compare_commits {} {
8577 global markedid rowmenuid curview children
8579 if {![info exists markedid]} return
8583 }
8585 proc getpatchid {id} {
8586 global patchids
8590 # trim off the initial "|"
8592 if {[catch {
8595 }]} {
8597 }
8598 }
8600 }
8602 proc do_cmp_commits {a b} {
8603 global ctext curview parents children patchids commitinfo
8606 clear_ctext
8607 init_flist {}
8609 set skipa 0
8610 set skipb 0
8613 set skipa 1
8614 } else {
8616 }
8619 set skipb 1
8620 } else {
8622 }
8628 [mc " - stopping\n"]
8629 break
8630 }
8633 [mc " - stopping\n"]
8634 break
8635 }
8640 } else {
8644 }
8645 set skipa 1
8646 set skipb 1
8647 } else {
8654 update
8656 return
8657 }
8658 }
8665 break
8666 }
8668 }
8674 break
8675 }
8677 }
8678 }
8680 }
8682 proc diffcommits {a b} {
8683 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8685 set tmpdir [gitknewtmpdir]
8688 if {[catch {
8691 } err]} {
8693 return
8694 }
8695 if {[catch {
8697 } err]} {
8699 return
8700 }
8703 set diffinhdr 0
8704 set currdiffsubmod ""
8706 }
8708 proc diffvssel {dirn} {
8709 global rowmenuid selectedline
8715 } else {
8718 }
8721 }
8723 proc doseldiff {oldid newid} {
8724 global ctext
8725 global commitinfo
8728 clear_ctext
8729 init_flist [mc "Top"]
8744 }
8746 proc mkpatch {} {
8747 global rowmenuid currentid commitinfo patchtop patchnum NS
8749 if {![info exists currentid]} return
8754 set top .patch
8784 incr patchnum
8796 }
8798 proc mkpatchrev {} {
8799 global patchtop
8805 foreach e [list fromsha1 fromhead tosha1 tohead] \
8811 }
8812 }
8814 proc mkpatchgo {} {
8815 global patchtop nullid nullid2
8821 # trim off the initial "|"
8826 }
8828 unset patchtop
8829 }
8831 proc mkpatchcan {} {
8832 global patchtop
8835 unset patchtop
8836 }
8838 proc mktag {} {
8839 global rowmenuid mktagtop commitinfo NS
8841 set top .maketag
8875 }
8877 proc domktag {} {
8878 global mktagtop env tagids idtags
8885 return 0
8886 }
8889 return 0
8890 }
8891 if {[catch {
8894 } else {
8896 }
8897 } err]} {
8899 return 0
8900 }
8906 dispneartags 0
8907 run refill_reflist
8908 return 1
8909 }
8911 proc redrawtags {id} {
8912 global canv linehtag idpos currentid curview cmitlisted markedid
8913 global canvxmax iddrawn circleitem mainheadid circlecolors
8919 set ofill yellow
8920 } else {
8922 }
8932 setcanvscroll
8933 }
8936 }
8939 }
8940 }
8942 proc mktagcan {} {
8943 global mktagtop
8946 unset mktagtop
8947 }
8949 proc mktaggo {} {
8950 if {![domktag]} return
8951 mktagcan
8952 }
8954 proc writecommit {} {
8955 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8957 set top .writecommit
8990 }
8992 proc wrcomgo {} {
8993 global wrcomtop
9000 }
9002 unset wrcomtop
9003 }
9005 proc wrcomcan {} {
9006 global wrcomtop
9009 unset wrcomtop
9010 }
9012 proc mkbranch {} {
9013 global rowmenuid mkbrtop NS
9015 set top .makebranch
9039 }
9041 proc mkbrgo {top} {
9042 global headids idheads
9046 set cmdargs {}
9047 set old_id {}
9050 return
9051 }
9053 if {![confirm_popup [mc \
9055 return
9056 }
9058 lappend cmdargs -f
9059 }
9062 nowbusy newbranch
9063 update
9064 if {[catch {
9066 } err]} {
9067 notbusy newbranch
9069 } else {
9070 notbusy newbranch
9076 } else {
9081 }
9082 dispneartags 0
9083 run refill_reflist
9084 }
9085 }
9087 proc exec_citool {tool_args {baseid {}}} {
9088 global commitinfo env
9090 set save_env [array get env GIT_AUTHOR_*]
9095 }
9098 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9104 }
9105 }
9109 array unset env GIT_AUTHOR_*
9111 }
9113 proc cherrypick {} {
9114 global rowmenuid curview
9115 global mainhead mainheadid
9116 global gitdir
9118 set oldhead [exec git rev-parse HEAD]
9121 set ok [confirm_popup [mc "Commit %s is already\
9122 included in branch %s -- really re-apply it?" \
9125 }
9126 nowbusy cherrypick [mc "Cherry-picking"]
9127 update
9128 # Unfortunately git-cherry-pick writes stuff to stderr even when
9129 # no error occurs, and exec takes that as an indication of error...
9131 notbusy cherrypick
9132 if {[regexp -line \
9133 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9135 error_popup [mc "Cherry-pick failed because of local changes\
9136 to file '%s'.\nPlease commit, reset or stash\
9138 } elseif {[regexp -line \
9139 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9141 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9142 conflict.\nDo you wish to run git citool to\
9143 resolve it?"]]} {
9144 # Force citool to read MERGE_MSG
9147 }
9148 } else {
9150 }
9151 run updatecommits
9152 return
9153 }
9154 set newhead [exec git rev-parse HEAD]
9156 notbusy cherrypick
9157 error_popup [mc "No changes committed"]
9158 return
9159 }
9162 # XXX this isn't right if we have a path limit...
9167 }
9172 }
9173 notbusy cherrypick
9174 }
9176 proc resethead {} {
9177 global mainhead rowmenuid confirm_ok resettype NS
9179 set confirm_ok 0
9180 set w ".confirmreset"
9188 set resettype mixed
9190 -text [mc "Soft: Leave working tree and index untouched"]
9193 -text [mc "Mixed: Leave working tree untouched, reset index"]
9196 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9207 if {[catch {set fd [open \
9210 } else {
9211 dohidelocalchanges
9213 nowbusy reset [mc "Resetting"]
9215 }
9216 }
9218 proc readresetstat {fd} {
9219 global mainhead mainheadid showlocalchanges rprogcoord
9224 adjustprogress
9225 }
9226 return 1
9227 }
9228 set rprogcoord 0
9229 adjustprogress
9230 notbusy reset
9233 }
9235 set newhead [exec git rev-parse HEAD]
9242 }
9244 doshowlocalchanges
9245 }
9246 return 0
9247 }
9249 # context menu for a head
9250 proc headmenu {x y id head} {
9251 global headmenuid headmenuhead headctxmenu mainhead
9253 stopfinding
9256 set state normal
9258 set state disabled
9259 }
9261 set state disabled
9262 }
9266 }
9268 proc cobranch {} {
9269 global headmenuid headmenuhead headids
9270 global showlocalchanges
9272 # check the tree is clean first??
9273 nowbusy checkout [mc "Checking out"]
9274 update
9275 dohidelocalchanges
9276 if {[catch {
9278 } err]} {
9279 notbusy checkout
9282 dodiffindex
9283 }
9284 } else {
9286 }
9287 }
9289 proc readcheckoutstat {fd newhead newheadid} {
9290 global mainhead mainheadid headids showlocalchanges progresscoords
9291 global viewmainheadid curview
9296 adjustprogress
9297 }
9298 return 1
9299 }
9300 set progresscoords {0 0}
9301 adjustprogress
9302 notbusy checkout
9305 }
9314 dodiffindex
9315 }
9316 }
9318 proc rmbranch {} {
9319 global headmenuid headmenuhead mainhead
9320 global idheads
9324 # this check shouldn't be needed any more...
9326 error_popup [mc "Cannot delete the currently checked-out branch"]
9327 return
9328 }
9331 # the stuff on this branch isn't on any other branch
9332 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9334 }
9335 nowbusy rmbranch
9336 update
9338 notbusy rmbranch
9340 return
9341 }
9345 notbusy rmbranch
9346 dispneartags 0
9347 run refill_reflist
9348 }
9350 # Display a list of tags and heads
9351 proc showrefs {} {
9352 global showrefstop bgcolor fgcolor selectbgcolor NS
9353 global bglist fglist reflistfilter reflist maincursor
9355 set top .showrefs
9359 refill_reflist
9360 return
9361 }
9369 -spacing1 1 -spacing3 1 -state disabled
9380 set reflistfilter "*"
9381 trace add variable reflistfilter write reflistfilter_change
9393 set reflist {}
9394 refill_reflist
9395 }
9397 proc sel_reflist {w x y} {
9398 global showrefstop reflist headids tagids otherrefids
9408 }
9410 }
9412 proc unsel_reflist {} {
9413 global showrefstop
9417 }
9419 proc reflistfilter_change {n1 n2 op} {
9420 global reflistfilter
9422 after cancel refill_reflist
9423 after 200 refill_reflist
9424 }
9426 proc refill_reflist {} {
9427 global reflist reflistfilter showrefstop headids tagids otherrefids
9428 global curview
9431 set refs {}
9432 foreach n [array names headids] {
9436 } else {
9438 }
9439 }
9440 }
9441 foreach n [array names tagids] {
9445 } else {
9447 }
9448 }
9449 }
9450 foreach n [array names otherrefids] {
9454 } else {
9456 }
9457 }
9458 }
9466 set i 0
9467 set j 0
9476 }
9477 } else {
9478 set cmp -1
9479 }
9480 } else {
9481 set cmp 1
9482 }
9484 -1 {
9486 incr i
9487 }
9488 0 {
9489 incr i
9490 incr j
9491 }
9492 1 {
9497 incr j
9498 }
9499 }
9500 }
9502 # delete last newline
9505 }
9507 # Stuff for finding nearby tags
9508 proc getallcommits {} {
9509 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9510 global idheads idtags idotherrefs allparents tagobjid
9511 global gitdir
9513 if {![info exists allcommits]} {
9514 set nextarc 0
9515 set allcommits 0
9516 set seeds {}
9517 set allcwait 0
9518 set cachedarcs 0
9520 if {![catch {
9522 set allcwait 1
9524 }]} return
9525 }
9528 return
9529 }
9530 set cmd [list | git rev-list --parents]
9533 set ids "--all"
9534 } else {
9535 set refs [concat [array names idheads] [array names idtags] \
9536 [array names idotherrefs]]
9537 set ids {}
9538 set tagobjs {}
9539 foreach name [array names tagobjid] {
9541 }
9546 }
9547 }
9551 }
9552 }
9553 }
9557 incr allcommits
9558 nowbusy allcommits
9560 } else {
9561 dispneartags 0
9562 }
9563 }
9565 # Since most commits have 1 parent and 1 child, we group strings of
9566 # such commits into "arcs" joining branch/merge points (BMPs), which
9567 # are commits that either don't have 1 parent or don't have 1 child.
9568 #
9569 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9570 # arcout(id) - outgoing arcs for BMP
9571 # arcids(a) - list of IDs on arc including end but not start
9572 # arcstart(a) - BMP ID at start of arc
9573 # arcend(a) - BMP ID at end of arc
9574 # growing(a) - arc a is still growing
9575 # arctags(a) - IDs out of arcids (excluding end) that have tags
9576 # archeads(a) - IDs out of arcids (excluding end) that have heads
9577 # The start of an arc is at the descendent end, so "incoming" means
9578 # coming from descendents, and "outgoing" means going towards ancestors.
9580 proc getallclines {fd} {
9581 global allparents allchildren idtags idheads nextarc
9582 global arcnos arcids arctags arcout arcend arcstart archeads growing
9583 global seeds allcommits cachedarcs allcupdate
9585 set nid 0
9589 # seen it already
9590 continue
9591 }
9592 set cachedarcs 0
9599 } else {
9605 }
9608 }
9610 # seen parent already
9613 }
9617 }
9620 continue
9621 }
9622 }
9627 }
9629 set ao {}
9632 set a [incr nextarc]
9641 # seen it already, may need to make a new branch
9644 }
9648 }
9650 }
9652 }
9654 global cached_dheads cached_dtags cached_atags
9655 catch {unset cached_dheads}
9656 catch {unset cached_dtags}
9657 catch {unset cached_atags}
9658 }
9661 }
9662 set cacheok 1
9663 if {[catch {
9666 } err]} {
9667 # got an error reading the list of commits
9668 # if we were updating, try rereading the whole thing again
9670 incr allcommits -1
9672 return
9673 }
9674 error_popup "[mc "Error reading commit topology information;\
9675 branch and preceding/following tag information\
9677 set cacheok 0
9678 }
9679 if {[incr allcommits -1] == 0} {
9680 notbusy allcommits
9682 run savecache
9683 }
9684 }
9685 dispneartags 0
9686 return 0
9687 }
9689 proc recalcarc {a} {
9690 global arctags archeads arcids idtags idheads
9692 set at {}
9693 set ah {}
9697 }
9700 }
9701 }
9704 }
9706 proc splitarc {p} {
9707 global arcnos arcids nextarc arctags archeads idtags idheads
9708 global arcstart arcend arcout allparents growing
9713 return
9714 }
9719 return
9720 }
9721 set na [incr nextarc]
9724 } else {
9728 }
9738 }
9743 } else {
9746 }
9747 }
9749 # reconstruct tags and heads lists
9753 } else {
9756 }
9757 }
9759 # Update things for a new commit added that is a child of one
9760 # existing commit. Used when cherry-picking.
9761 proc addnewchild {id p} {
9762 global allparents allchildren idtags nextarc
9763 global arcnos arcids arctags arcout arcend arcstart archeads growing
9764 global seeds allcommits
9772 set a [incr nextarc]
9780 }
9783 }
9785 # This implements a cache for the topology information.
9786 # The cache saves, for each arc, the start and end of the arc,
9787 # the ids on the arc, and the outgoing arcs from the end.
9788 proc readcache {f} {
9789 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9790 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9791 global allcwait
9797 }
9798 if {[catch {
9800 # finish reading the cache and setting up arctags, etc.
9804 foreach id [array names idtags] {
9810 }
9811 }
9812 }
9813 foreach id [array names idheads] {
9819 }
9820 }
9821 }
9825 }
9826 }
9827 set allcwait 0
9828 } else {
9838 }
9842 } else {
9846 }
9847 }
9853 }
9856 }
9859 }
9861 }
9862 } err]} {
9864 return 0
9865 }
9867 getallcommits
9868 }
9870 }
9872 proc getcache {f} {
9873 global nextarc cachedarcs possible_seeds
9875 if {[catch {
9878 # make sure it's an integer
9881 set nextarc 0
9882 set possible_seeds {}
9884 } err]} {
9886 }
9887 return 0
9888 }
9890 proc dropcache {err} {
9891 global allcwait nextarc cachedarcs seeds
9894 foreach v {arcnos arcout arcids arcstart arcend growing \
9895 arctags archeads allparents allchildren} {
9898 }
9899 set allcwait 0
9900 set nextarc 0
9901 set cachedarcs 0
9902 set seeds {}
9903 getallcommits
9904 }
9906 proc writecache {f} {
9907 global cachearc cachedarcs allccache
9908 global arcstart arcend arcnos arcids arcout
9914 }
9915 if {[catch {
9919 } else {
9921 }
9922 }
9923 } err]} {
9927 return 0
9928 }
9933 return 0
9934 }
9935 return 1
9936 }
9938 proc savecache {} {
9939 global nextarc cachedarcs cachearc allccache
9942 set cachearc 0
9944 catch {
9948 }
9949 }
9951 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9952 # or 0 if neither is true.
9953 proc anc_or_desc {a b} {
9954 global arcout arcstart arcend arcnos cached_isanc
9957 # Both are on the same arc(s); either both are the same BMP,
9958 # or if one is not a BMP, the other is also not a BMP or is
9959 # the BMP at end of the arc (and it only has 1 incoming arc).
9960 # Or both can be BMPs with no incoming arcs.
9962 return 0
9963 }
9969 return 1
9970 } else {
9971 return -1
9972 }
9973 }
9979 } else {
9980 set aend {}
9981 }
9983 } else {
9985 }
9990 } else {
9991 set bend {}
9992 }
9994 } else {
9996 }
9998 return 1
9999 }
10001 return -1
10002 }
10005 return 1
10006 }
10007 }
10010 return -1
10011 }
10013 return 0
10014 }
10015 }
10023 continue
10024 }
10030 return 1
10034 return -1
10035 }
10041 }
10042 }
10043 }
10046 return 0
10047 }
10051 # and returns 0 if so and 1 if not.
10052 # If we subsequently discover a tag on such a growing tip, and that
10055 # isn't a good choice to display as a descendent tag of
10059 #
10060 proc is_certain {desc anc} {
10061 global arcnos arcout arcstart arcend growing problems
10063 set certain {}
10065 # tags on the same arc are certain
10067 return 1
10068 }
10073 }
10074 }
10077 } else {
10080 }
10082 return 1
10083 }
10086 set nnh 1
10087 set ngrowanc 0
10091 incr nnh -1
10092 }
10098 incr ngrowanc
10099 }
10100 } else {
10107 incr nnh -1
10108 }
10110 incr ngrowanc -1
10111 }
10121 incr nnh -1
10122 }
10124 incr ngrowanc -1
10125 }
10127 }
10128 }
10129 }
10130 }
10131 }
10132 }
10136 } else {
10139 incr nnh
10140 }
10141 }
10142 }
10143 }
10144 foreach x [array names growanc] {
10146 return 0
10147 }
10148 return 0
10149 }
10150 return 1
10151 }
10153 proc validate_arctags {a} {
10154 global arctags idtags
10156 set i -1
10159 incr i
10162 incr i -1
10163 }
10164 }
10166 }
10168 proc validate_archeads {a} {
10169 global archeads idheads
10171 set i -1
10174 incr i
10177 incr i -1
10178 }
10179 }
10181 }
10183 # Return the list of IDs that have tags that are descendents of id,
10184 # ignoring IDs that are descendents of IDs already reported.
10185 proc desctags {id} {
10186 global arcnos arcstart arcids arctags idtags allparents
10187 global growing cached_dtags
10190 return {}
10191 }
10192 set t1 [clock clicks -milliseconds]
10195 # part-way along an arc; check that arc first
10200 set tid {}
10205 }
10208 }
10209 }
10213 }
10214 }
10217 }
10222 set nc 1
10228 incr nc -1
10229 }
10230 # ignore tags on starting node
10234 set ta 1
10237 set ta 1
10238 }
10239 }
10246 }
10247 }
10256 }
10259 }
10261 incr nc -1
10262 }
10264 }
10265 }
10266 }
10271 incr nc
10272 }
10273 }
10274 }
10275 }
10276 set tags {}
10277 foreach id [array names tagloc] {
10282 }
10283 }
10284 }
10285 }
10286 set t2 [clock clicks -milliseconds]
10289 # remove tags that are descendents of other tags
10297 incr j -1
10298 incr i -1
10301 incr i -1
10302 break
10303 }
10304 }
10305 }
10307 if {[array names growing] ne {}} {
10308 # graph isn't finished, need to check if any tag could get
10309 # eclipsed by another tag coming later. Simply ignore any
10310 # tags that could later get eclipsed.
10311 set ctags {}
10315 }
10316 }
10319 } else {
10321 }
10322 } else {
10324 }
10325 set t3 [clock clicks -milliseconds]
10329 }
10331 }
10333 proc anctags {id} {
10334 global arcnos arcids arcout arcend arctags idtags allparents
10335 global growing cached_atags
10338 return {}
10339 }
10340 set t1 [clock clicks -milliseconds]
10343 # part-way along an arc; check that arc first
10352 }
10353 }
10354 }
10356 return {}
10357 }
10361 }
10362 }
10365 }
10370 set taglist {}
10371 set nc 1
10377 incr nc -1
10378 }
10379 # ignore tags on starting node
10383 set td 1
10386 set td 1
10387 }
10388 }
10394 }
10395 }
10407 }
10408 }
10411 }
10413 incr nc -1
10414 }
10416 }
10417 }
10418 }
10423 incr nc
10424 }
10425 }
10426 }
10427 }
10428 set t2 [clock clicks -milliseconds]
10430 set tags {}
10431 foreach id [array names tagloc] {
10436 }
10437 }
10438 }
10439 }
10441 # remove tags that are ancestors of other tags
10449 incr j -1
10450 incr i -1
10453 incr i -1
10454 break
10455 }
10456 }
10457 }
10459 if {[array names growing] ne {}} {
10460 # graph isn't finished, need to check if any tag could get
10461 # eclipsed by another tag coming later. Simply ignore any
10462 # tags that could later get eclipsed.
10463 set ctags {}
10467 }
10468 }
10471 } else {
10473 }
10474 } else {
10476 }
10477 set t3 [clock clicks -milliseconds]
10481 }
10483 }
10485 # Return the list of IDs that have heads that are descendents of id,
10486 # including id itself if it has a head.
10487 proc descheads {id} {
10488 global arcnos arcstart arcids archeads idheads cached_dheads
10489 global allparents
10492 return {}
10493 }
10494 set aret {}
10496 # part-way along an arc; check it first
10505 }
10506 }
10508 }
10512 set ret {}
10517 } else {
10520 }
10526 }
10527 }
10532 }
10533 }
10534 }
10535 }
10539 }
10541 proc addedtag {id} {
10542 global arcnos arcout cached_dtags cached_atags
10547 }
10548 catch {unset cached_dtags}
10549 catch {unset cached_atags}
10550 }
10552 proc addedhead {hid head} {
10553 global arcnos arcout cached_dheads
10558 }
10559 catch {unset cached_dheads}
10560 }
10562 proc removedhead {hid head} {
10563 global cached_dheads
10565 catch {unset cached_dheads}
10566 }
10568 proc movedhead {hid head} {
10569 global arcnos arcout cached_dheads
10574 }
10575 catch {unset cached_dheads}
10576 }
10578 proc changedrefs {} {
10579 global cached_dheads cached_dtags cached_atags
10580 global arctags archeads arcnos arcout idheads idtags
10582 foreach id [concat [array names idheads] [array names idtags]] {
10588 }
10589 }
10590 }
10591 catch {unset cached_dtags}
10592 catch {unset cached_atags}
10593 catch {unset cached_dheads}
10594 }
10596 proc rereadrefs {} {
10597 global idtags idheads idotherrefs mainheadid
10599 set refids [concat [array names idtags] \
10600 [array names idheads] [array names idotherrefs]]
10604 }
10605 }
10607 readrefs
10608 changedrefs
10610 [array names idheads] [array names idotherrefs]]]
10615 }
10616 }
10620 }
10621 run refill_reflist
10622 }
10624 proc listrefs {id} {
10625 global idtags idheads idotherrefs
10627 set x {}
10630 }
10631 set y {}
10634 }
10635 set z {}
10638 }
10640 }
10642 proc showtag {tag isnew} {
10643 global ctext tagcontents tagids linknum tagobjid
10647 }
10649 clear_ctext
10650 settabs 0
10651 set linknum 0
10653 catch {
10655 }
10656 }
10659 } else {
10661 }
10663 maybe_scroll_ctext 1
10665 init_flist {}
10666 }
10668 proc doquit {} {
10669 global stopped
10670 global gitktmpdir
10672 set stopped 100
10673 savestuff .
10674 destroy .
10676 if {[info exists gitktmpdir]} {
10678 }
10679 }
10681 proc mkfontdisp {font top which} {
10690 }
10692 proc choosefont {font which} {
10693 global fontparam fontlist fonttop fontattr
10694 global prefstop NS
10702 set top .gitkfont
10705 font create sample
10712 set fontlist [lsort [font families]]
10723 -textvariable fontparam(size) \
10724 -validatecommand {string is integer -strict %s}
10726 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10727 -variable fontparam(weight) -onvalue bold -offvalue normal
10729 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10730 -variable fontparam(slant) -onvalue italic -offvalue roman
10734 -background white
10736 -fill black -tags text
10748 trace add variable fontparam write chg_fontparam
10749 } else {
10752 }
10757 }
10758 }
10760 proc centertext {w} {
10762 }
10764 proc fontok {} {
10765 global fontparam fontpref prefstop
10771 }
10774 }
10778 fontcan
10779 }
10781 proc fontcan {} {
10782 global fonttop fontparam
10784 if {[info exists fonttop]} {
10786 catch {font delete sample}
10787 unset fonttop
10788 unset fontparam
10789 }
10790 }
10792 if {[package vsatisfies [package provide Tk] 8.6]} {
10793 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10794 # function to make use of it.
10795 proc choosefont {font which} {
10798 tk fontchooser show
10799 }
10800 proc on_choosefont {font which newfont} {
10801 global fontparam
10810 fontok
10811 }
10812 }
10814 proc selfontfam {} {
10815 global fonttop fontparam
10820 }
10821 }
10823 proc chg_fontparam {v sub op} {
10824 global fontparam
10827 }
10829 # Create a property sheet tab page
10830 proc create_prefs_page {w} {
10831 global NS
10835 } else {
10837 }
10838 }
10840 proc prefspage_general {notebook} {
10841 global NS maxwidth maxgraphpct showneartags showlocalchanges
10842 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
10843 global hideremotes want_ttk have_ttk
10857 -variable showlocalchanges
10860 -variable autoselect
10864 -variable hideremotes
10873 -variable showneartags
10876 -variable limitdiffs
10879 -variable perfile_attrs
10893 -text [mc "Use themed widgets"]
10896 } else {
10898 }
10901 }
10903 proc prefspage_colors {notebook} {
10904 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10935 [mc "diff hunk header"] \
10941 [mc "marked line background"] \
10949 }
10951 proc prefspage_fonts {notebook} {
10952 global NS
10960 }
10962 proc doprefs {} {
10963 global maxwidth maxgraphpct use_ttk NS
10964 global oldprefs prefstop showneartags showlocalchanges
10965 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10966 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
10967 global hideremotes want_ttk have_ttk
10969 set top .gitkprefs
10973 return
10974 }
10975 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10976 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10978 }
10985 } else {
10987 }
10995 } else {
11001 }
11002 }
11008 }
11025 }
11027 proc choose_extdiff {} {
11028 global extdifftool
11030 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11033 }
11034 }
11036 proc choosecolor {v vi w x cmd} {
11045 }
11047 proc setselbg {c} {
11048 global bglist cflist
11051 }
11055 }
11057 # This sets the background color and the color scheme for the whole UI.
11058 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11059 # if we don't specify one ourselves, which makes the checkbuttons and
11060 # radiobuttons look bad. This chooses white for selectColor if the
11061 # background color is light, or black if it is dark.
11062 proc setui {c} {
11063 if {[tk windowingsystem] eq "win32"} { return }
11065 set selc black
11067 set selc white
11068 }
11070 }
11072 proc setbg {c} {
11073 global bglist
11077 }
11078 }
11080 proc setfg {c} {
11081 global fglist canv
11085 }
11089 }
11091 proc prefscan {} {
11092 global oldprefs prefstop
11094 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11095 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11098 }
11100 unset prefstop
11101 fontcan
11102 }
11104 proc prefsok {} {
11105 global maxwidth maxgraphpct
11106 global oldprefs prefstop showneartags showlocalchanges
11107 global fontpref mainfont textfont uifont
11108 global limitdiffs treediffs perfile_attrs
11109 global hideremotes
11112 unset prefstop
11113 fontcan
11114 set fontchanged 0
11118 eval font configure mainfont [fontflags mainfont]
11119 eval font configure mainfontbold [fontflags mainfont 1]
11120 setcoords
11121 set fontchanged 1
11122 }
11126 eval font configure textfont [fontflags textfont]
11127 eval font configure textfontbold [fontflags textfont 1]
11128 }
11132 eval font configure uifont [fontflags uifont]
11133 }
11134 settabs
11137 doshowlocalchanges
11138 } else {
11139 dohidelocalchanges
11140 }
11141 }
11144 # treediffs elements are limited by path;
11145 # won't have encodings cached if perfile_attrs was just turned on
11146 catch {unset treediffs}
11147 }
11150 redisplay
11153 reselectline
11154 }
11156 rereadrefs
11157 }
11158 }
11160 proc formatdate {d} {
11161 global datetimeformat
11164 }
11166 }
11168 # This list of encoding names and aliases is distilled from
11169 # http://www.iana.org/assignments/character-sets.
11170 # Not all of them are supported by Tcl.
11171 set encoding_aliases {
11172 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11173 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11174 { ISO-10646-UTF-1 csISO10646UTF1 }
11175 { ISO_646.basic:1983 ref csISO646basic1983 }
11176 { INVARIANT csINVARIANT }
11177 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11178 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11179 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11180 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11181 { NATS-DANO iso-ir-9-1 csNATSDANO }
11182 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11183 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11184 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11185 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11186 { ISO-2022-KR csISO2022KR }
11187 { EUC-KR csEUCKR }
11188 { ISO-2022-JP csISO2022JP }
11189 { ISO-2022-JP-2 csISO2022JP2 }
11190 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11191 csISO13JISC6220jp }
11192 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11193 { IT iso-ir-15 ISO646-IT csISO15Italian }
11194 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11195 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11196 { greek7-old iso-ir-18 csISO18Greek7Old }
11197 { latin-greek iso-ir-19 csISO19LatinGreek }
11198 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11199 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11200 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11201 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11202 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11203 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11204 { INIS iso-ir-49 csISO49INIS }
11205 { INIS-8 iso-ir-50 csISO50INIS8 }
11206 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11207 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11208 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11209 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11210 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11211 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11212 csISO60Norwegian1 }
11213 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11214 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11215 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11216 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11217 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11218 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11219 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11220 { greek7 iso-ir-88 csISO88Greek7 }
11221 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11222 { iso-ir-90 csISO90 }
11223 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11224 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11225 csISO92JISC62991984b }
11226 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11227 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11228 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11229 csISO95JIS62291984handadd }
11230 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11231 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11232 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11233 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11234 CP819 csISOLatin1 }
11235 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11236 { T.61-7bit iso-ir-102 csISO102T617bit }
11237 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11238 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11239 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11240 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11241 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11242 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11243 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11244 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11245 arabic csISOLatinArabic }
11246 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11247 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11248 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11249 greek greek8 csISOLatinGreek }
11250 { T.101-G2 iso-ir-128 csISO128T101G2 }
11251 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11252 csISOLatinHebrew }
11253 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11254 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11255 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11256 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11257 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11258 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11259 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11260 csISOLatinCyrillic }
11261 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11262 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11263 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11264 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11265 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11266 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11267 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11268 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11269 { ISO_10367-box iso-ir-155 csISO10367Box }
11270 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11271 { latin-lap lap iso-ir-158 csISO158Lap }
11272 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11273 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11274 { us-dk csUSDK }
11275 { dk-us csDKUS }
11276 { JIS_X0201 X0201 csHalfWidthKatakana }
11277 { KSC5636 ISO646-KR csKSC5636 }
11278 { ISO-10646-UCS-2 csUnicode }
11279 { ISO-10646-UCS-4 csUCS4 }
11280 { DEC-MCS dec csDECMCS }
11281 { hp-roman8 roman8 r8 csHPRoman8 }
11282 { macintosh mac csMacintosh }
11283 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11284 csIBM037 }
11285 { IBM038 EBCDIC-INT cp038 csIBM038 }
11286 { IBM273 CP273 csIBM273 }
11287 { IBM274 EBCDIC-BE CP274 csIBM274 }
11288 { IBM275 EBCDIC-BR cp275 csIBM275 }
11289 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11290 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11291 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11292 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11293 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11294 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11295 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11296 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11297 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11298 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11299 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11300 { IBM437 cp437 437 csPC8CodePage437 }
11301 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11302 { IBM775 cp775 csPC775Baltic }
11303 { IBM850 cp850 850 csPC850Multilingual }
11304 { IBM851 cp851 851 csIBM851 }
11305 { IBM852 cp852 852 csPCp852 }
11306 { IBM855 cp855 855 csIBM855 }
11307 { IBM857 cp857 857 csIBM857 }
11308 { IBM860 cp860 860 csIBM860 }
11309 { IBM861 cp861 861 cp-is csIBM861 }
11310 { IBM862 cp862 862 csPC862LatinHebrew }
11311 { IBM863 cp863 863 csIBM863 }
11312 { IBM864 cp864 csIBM864 }
11313 { IBM865 cp865 865 csIBM865 }
11314 { IBM866 cp866 866 csIBM866 }
11315 { IBM868 CP868 cp-ar csIBM868 }
11316 { IBM869 cp869 869 cp-gr csIBM869 }
11317 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11318 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11319 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11320 { IBM891 cp891 csIBM891 }
11321 { IBM903 cp903 csIBM903 }
11322 { IBM904 cp904 904 csIBBM904 }
11323 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11324 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11325 { IBM1026 CP1026 csIBM1026 }
11326 { EBCDIC-AT-DE csIBMEBCDICATDE }
11327 { EBCDIC-AT-DE-A csEBCDICATDEA }
11328 { EBCDIC-CA-FR csEBCDICCAFR }
11329 { EBCDIC-DK-NO csEBCDICDKNO }
11330 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11331 { EBCDIC-FI-SE csEBCDICFISE }
11332 { EBCDIC-FI-SE-A csEBCDICFISEA }
11333 { EBCDIC-FR csEBCDICFR }
11334 { EBCDIC-IT csEBCDICIT }
11335 { EBCDIC-PT csEBCDICPT }
11336 { EBCDIC-ES csEBCDICES }
11337 { EBCDIC-ES-A csEBCDICESA }
11338 { EBCDIC-ES-S csEBCDICESS }
11339 { EBCDIC-UK csEBCDICUK }
11340 { EBCDIC-US csEBCDICUS }
11341 { UNKNOWN-8BIT csUnknown8BiT }
11342 { MNEMONIC csMnemonic }
11343 { MNEM csMnem }
11344 { VISCII csVISCII }
11345 { VIQR csVIQR }
11346 { KOI8-R csKOI8R }
11347 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11348 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11349 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11350 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11351 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11352 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11353 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11354 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11355 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11356 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11357 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11358 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11359 { IBM1047 IBM-1047 }
11360 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11361 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11362 { UNICODE-1-1 csUnicode11 }
11363 { CESU-8 csCESU-8 }
11364 { BOCU-1 csBOCU-1 }
11365 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11366 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11367 l8 }
11368 { ISO-8859-15 ISO_8859-15 Latin-9 }
11369 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11370 { GBK CP936 MS936 windows-936 }
11371 { JIS_Encoding csJISEncoding }
11372 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11373 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11374 EUC-JP }
11375 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11376 { ISO-10646-UCS-Basic csUnicodeASCII }
11377 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11378 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11379 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11380 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11381 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11382 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11383 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11384 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11385 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11386 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11387 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11388 { Ventura-US csVenturaUS }
11389 { Ventura-International csVenturaInternational }
11390 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11391 { PC8-Turkish csPC8Turkish }
11392 { IBM-Symbols csIBMSymbols }
11393 { IBM-Thai csIBMThai }
11394 { HP-Legal csHPLegal }
11395 { HP-Pi-font csHPPiFont }
11396 { HP-Math8 csHPMath8 }
11397 { Adobe-Symbol-Encoding csHPPSMath }
11398 { HP-DeskTop csHPDesktop }
11399 { Ventura-Math csVenturaMath }
11400 { Microsoft-Publishing csMicrosoftPublishing }
11401 { Windows-31J csWindows31J }
11402 { GB2312 csGB2312 }
11403 { Big5 csBig5 }
11404 }
11406 proc tcl_encoding {enc} {
11407 global encoding_aliases tcl_encoding_cache
11410 }
11411 set names [encoding names]
11416 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11419 }
11420 }
11425 # look through the aliases for one that tcl knows about
11431 }
11432 }
11434 }
11435 break
11436 }
11437 }
11438 set tclenc {}
11441 }
11444 }
11446 proc gitattr {path attr default} {
11447 global path_attr_cache
11450 } else {
11451 set r "unspecified"
11454 }
11456 }
11459 }
11461 }
11463 proc cache_gitattr {attr pathlist} {
11464 global path_attr_cache
11465 set newlist {}
11469 }
11470 }
11471 set lim 1000
11472 if {[tk windowingsystem] == "win32"} {
11473 # windows has a 32k limit on the arguments to a command...
11474 set lim 30
11475 }
11484 }
11486 }
11487 }
11488 }
11489 }
11490 }
11492 proc get_path_encoding {path} {
11493 global gui_encoding perfile_attrs
11499 }
11500 }
11502 }
11504 # First check that Tcl/Tk is recent enough
11505 if {[catch {package require Tk 8.4} err]} {
11506 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11507 Gitk requires at least Tcl/Tk 8.4." list
11508 exit 1
11509 }
11511 # defaults...
11512 set wrcomcmd "git diff-tree --stdin -p --pretty"
11514 set gitencoding {}
11515 catch {
11516 set gitencoding [exec git config --get i18n.commitencoding]
11517 }
11518 catch {
11519 set gitencoding [exec git config --get i18n.logoutputencoding]
11520 }
11522 set gitencoding "utf-8"
11523 }
11527 }
11529 set gui_encoding [encoding system]
11530 catch {
11531 set enc [exec git config --get gui.encoding]
11536 } else {
11538 }
11539 }
11540 }
11542 if {[tk windowingsystem] eq "aqua"} {
11543 set mainfont {{Lucida Grande} 9}
11544 set textfont {Monaco 9}
11545 set uifont {{Lucida Grande} 9 bold}
11547 # fontconfig!
11548 set mainfont {sans 9}
11549 set textfont {monospace 9}
11550 set uifont {sans 9 bold}
11551 } else {
11552 set mainfont {Helvetica 9}
11553 set textfont {Courier 9}
11554 set uifont {Helvetica 9 bold}
11555 }
11556 set tabstop 8
11557 set findmergefiles 0
11558 set maxgraphpct 50
11559 set maxwidth 16
11560 set revlistorder 0
11561 set fastdate 0
11562 set uparrowlen 5
11563 set downarrowlen 5
11564 set mingaplen 100
11565 set cmitmode "patch"
11566 set wrapcomment "none"
11567 set showneartags 1
11568 set hideremotes 0
11569 set maxrefs 20
11570 set maxlinelen 200
11571 set showlocalchanges 1
11572 set limitdiffs 1
11573 set datetimeformat "%Y-%m-%d %H:%M:%S"
11574 set autoselect 1
11575 set autosellen 40
11576 set perfile_attrs 0
11577 set want_ttk 1
11579 if {[tk windowingsystem] eq "aqua"} {
11580 set extdifftool "opendiff"
11581 } else {
11582 set extdifftool "meld"
11583 }
11585 set colors {green red blue magenta darkgrey brown orange}
11586 if {[tk windowingsystem] eq "win32"} {
11587 set uicolor SystemButtonFace
11588 set bgcolor SystemWindow
11589 set fgcolor SystemButtonText
11590 set selectbgcolor SystemHighlight
11591 } else {
11592 set uicolor grey85
11593 set bgcolor white
11594 set fgcolor black
11595 set selectbgcolor gray85
11596 }
11597 set diffcolors {red "#00a000" blue}
11598 set diffcontext 3
11599 set ignorespace 0
11600 set worddiff ""
11601 set markbgcolor "#e0e0ff"
11603 set circlecolors {white blue gray blue blue}
11605 # button for popping up context menus
11606 if {[tk windowingsystem] eq "aqua"} {
11607 set ctxbut <Button-2>
11608 } else {
11609 set ctxbut <Button-3>
11610 }
11612 ## For msgcat loading, first locate the installation location.
11613 if { [info exists ::env(GITK_MSGSDIR)] } {
11614 ## Msgsdir was manually set in the environment.
11615 set gitk_msgsdir $::env(GITK_MSGSDIR)
11616 } else {
11617 ## Let's guess the prefix from argv0.
11621 unset gitk_prefix
11622 }
11624 ## Internationalization (i18n) through msgcat and gettext. See
11625 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11626 package require msgcat
11627 namespace import ::msgcat::mc
11628 ## And eventually load the actual message catalog
11631 catch {source ~/.gitk}
11634 eval font create mainfont [fontflags mainfont]
11635 eval font create mainfontbold [fontflags mainfont 1]
11638 eval font create textfont [fontflags textfont]
11639 eval font create textfontbold [fontflags textfont 1]
11642 eval font create uifont [fontflags uifont]
11646 setoptions
11648 # check that we can find a .git directory somewhere...
11649 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
11650 show_error {} . [mc "Cannot find a git repository here."]
11651 exit 1
11652 }
11654 set selecthead {}
11655 set selectheadid {}
11657 set revtreeargs {}
11658 set cmdline_files {}
11659 set i 0
11660 set revtreeargscmd {}
11663 "" { }
11664 "--" {
11666 break
11667 }
11668 "--select-commit=*" {
11670 }
11671 "--argscmd=*" {
11673 }
11674 default {
11676 }
11677 }
11678 incr i
11679 }
11682 set selecthead {}
11683 }
11686 # no -- on command line, but some arguments (other than --argscmd)
11687 if {[catch {
11692 # Unfortunately git rev-parse doesn't produce an error when
11693 # something is both a revision and a filename. To be consistent
11694 # with git log and git rev-list, check revtreeargs for filenames.
11697 show_error {} . [mc "Ambiguous argument '%s': both revision\
11699 exit 1
11700 }
11701 }
11702 } err]} {
11704 # so look for "fatal:".
11708 }
11710 exit 1
11711 }
11712 }
11714 set nullid "0000000000000000000000000000000000000000"
11715 set nullid2 "0000000000000000000000000000000000000001"
11716 set nullfile "/dev/null"
11719 if {![info exists have_ttk]} {
11720 set have_ttk [llength [info commands ::ttk::style]]
11721 }
11725 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
11727 set show_notes {}
11729 set show_notes "--show-notes"
11730 }
11732 set appname "gitk"
11734 set runq {}
11735 set history {}
11736 set historyindex 0
11737 set fh_serial 0
11738 set nhl_names {}
11739 set highlight_paths {}
11740 set findpattern {}
11741 set searchdirn -forwards
11742 set boldids {}
11743 set boldnameids {}
11744 set diffelide {0 0}
11745 set markingmatches 0
11746 set linkentercount 0
11747 set need_redisplay 0
11748 set nrows_drawn 0
11749 set firsttabstop 0
11751 set nextviewnum 1
11752 set curview 0
11753 set selectedview 0
11754 set selectedhlview [mc "None"]
11755 set highlight_related [mc "None"]
11756 set highlight_files {}
11757 set viewfiles(0) {}
11758 set viewperm(0) 0
11759 set viewargs(0) {}
11760 set viewargscmd(0) {}
11762 set selectedline {}
11763 set numcommits 0
11764 set loginstance 0
11765 set cmdlineok 0
11766 set stopped 0
11767 set stuffsaved 0
11768 set patchnum 0
11769 set lserial 0
11770 set hasworktree [hasworktree]
11771 set cdup {}
11772 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
11773 set cdup [exec git rev-parse --show-cdup]
11774 }
11775 set worktree [exec git rev-parse --show-toplevel]
11776 setcoords
11777 makewindow
11778 catch {
11779 image create photo gitlogo -width 16 -height 16
11781 image create photo gitlogominus -width 4 -height 2
11782 gitlogominus put #C00000 -to 0 0 4 2
11783 gitlogo copy gitlogominus -to 1 5
11784 gitlogo copy gitlogominus -to 6 5
11785 gitlogo copy gitlogominus -to 11 5
11786 image delete gitlogominus
11788 image create photo gitlogoplus -width 4 -height 4
11789 gitlogoplus put #008000 -to 1 0 3 4
11790 gitlogoplus put #008000 -to 0 1 4 3
11791 gitlogo copy gitlogoplus -to 1 9
11792 gitlogo copy gitlogoplus -to 6 9
11793 gitlogo copy gitlogoplus -to 11 9
11794 image delete gitlogoplus
11796 image create photo gitlogo32 -width 32 -height 32
11797 gitlogo32 copy gitlogo -zoom 2 2
11799 wm iconphoto . -default gitlogo gitlogo32
11800 }
11801 # wait for the window to become visible
11802 tkwait visibility .
11804 update
11805 readrefs
11808 # create a view for the files/dirs specified on the command line
11809 set curview 1
11810 set selectedview 1
11811 set nextviewnum 2
11812 set viewname(1) [mc "Command line"]
11816 set viewperm(1) 0
11817 set vdatemode(1) 0
11818 addviewmenu 1
11819 .bar.view entryconf [mca "Edit view..."] -state normal
11820 .bar.view entryconf [mca "Delete view"] -state normal
11821 }
11823 if {[info exists permviews]} {
11826 incr nextviewnum
11833 }
11834 }
11836 if {[tk windowingsystem] eq "win32"} {
11837 focus -force .
11838 }
11840 getcommits {}
11842 # Local variables:
11843 # mode: tcl
11844 # indent-tabs-mode: t
11845 # tab-width: 8
11846 # End: