| blob | 64ef3c401367c96236d81de3d88957a6459867cd |
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 # A simple scheduler for compute-intensive stuff.
18 # The aim is to make sure that event handlers for GUI actions can
19 # run at least every 50-100 ms. Unfortunately fileevent handlers are
20 # run before X event handlers, so reading from a fast source can
21 # make the GUI completely unresponsive.
22 proc run args {
23 global isonrunq runq currunq
28 after idle dorunq
29 }
32 }
36 }
39 global runq currunq
43 after idle dorunq
44 }
46 }
49 global runq
55 incr i
56 }
57 }
58 }
60 proc dorunq {} {
61 global isonrunq runq currunq
71 unset currunq
76 # script returns 1 if it wants to be readded
77 # file readers return 2 if they could do more straight away
81 }
84 }
87 }
89 after idle dorunq
90 }
91 }
94 global commfd leftover loginstance
100 }
103 global nr_unmerged
105 # find the list of unmerged files
112 exit 1
113 }
119 incr nr_unmerged
122 }
123 }
126 }
128 proc parseviewargs {n arglist} {
129 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
130 global worddiff git_version
134 set glflags {}
135 set diffargs {}
136 set nextisval 0
137 set revargs {}
139 set allknown 1
140 set filtered 0
141 set i -1
143 incr i
146 set nextisval 0
147 continue
148 }
150 "-d" -
151 "--date-order" {
153 # remove from origargs in case we hit an unknown option
155 incr i -1
156 }
157 "-[puabwcrRBMC]" -
158 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
159 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
160 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
161 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
162 "--ignore-space-change" - "-U*" - "--unified=*" {
163 # These request or affect diff output, which we don't want.
164 # Some could be used to set our defaults for diff display.
165 lappend diffargs $arg
166 }
174 # These cause our parsing of git log's output to fail, or else
175 # they're options we want to set ourselves, so ignore them.
176 }
178 # These trigger a word diff in the console interface,
179 # so help the user by enabling our own support
182 }
183 }
187 }
188 }
193 # These are harmless, and some are even useful
194 lappend glflags $arg
195 }
203 # These mean that we get a subset of the commits
205 lappend glflags $arg
206 }
208 # This appears to be the only one that has a value as a
209 # separate word following it
212 lappend glflags $arg
213 }
215 lappend revargs $arg
216 }
219 # git rev-parse doesn't understand --merge
220 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
221 }
224 }
226 # Other flag arguments including -<n>
230 # a flag argument that we don't recognize;
231 # that means we can't optimize
233 }
234 lappend glflags $arg
235 }
236 default {
237 # Non-flag arguments specify commits or ranges of commits
239 lappend revargs --gitk-symmetric-diff-marker
240 }
241 lappend revargs $arg
242 }
243 }
244 }
251 }
254 global vposids vnegids
257 set revs HEAD
258 }
260 # we get stdout followed by stderr in $err
261 # for an unknown rev, git rev-parse echoes it and then errors out
274 }
277 }
278 break
279 }
280 lappend badrev $line
281 }
282 }
285 }
295 lappend ret $id
298 }
299 }
303 lappend ret $id
306 }
307 lappend pos $id
308 }
309 incr sdm -1
310 }
314 }
316 # Start off a git log process and arrange to read its output
318 global startmsecs commitidx viewcomplete curview
319 global tclencoding
320 global viewargs viewargscmd viewfiles vfilelimit
321 global showlocalchanges
322 global viewactive viewinstances vmergeonly
323 global mainheadid viewmainheadid viewmainheadid_orig
324 global vcanopt vflags vrevs vorigargs
325 global show_notes
329 # these are set this way for the error exits
332 varcinit $view
341 }
343 }
350 global nr_unmerged
357 }
359 }
360 }
367 }
371 }
379 }
385 get_viewmainhead $view
386 }
389 }
393 }
399 }
402 global commfd leftover
405 catch {
412 }
413 }
415 nukefile $fd
418 }
420 proc stop_backends {} {
421 global commfd
424 stop_instance $inst
425 }
426 }
429 global viewinstances
432 stop_instance $inst
433 }
435 }
438 global pending_select mainheadid selectheadid
446 }
447 }
450 global canv curview need_redisplay viewactive
452 initlayout
454 reset_pending_select $selid
459 }
460 }
462 proc updatecommits {} {
463 global curview vcanopt vorigargs vfilelimit viewinstances
464 global viewactive viewcomplete tclencoding
465 global startmsecs showneartags showlocalchanges
466 global mainheadid viewmainheadid viewmainheadid_orig pending_select
467 global hasworktree
468 global varcid vposids vnegids vflags vrevs
469 global show_notes
472 rereadrefs
476 dohidelocalchanges
477 }
481 get_viewmainhead $view
482 }
483 }
485 doshowlocalchanges
486 }
492 return
493 }
494 # note: getting the delta when negative refs change is hard,
495 # and could require multiple git log invocations, so in that
496 # case we ask git log for all the commits (not just the delta)
500 # take out positive refs that we asked for before or
501 # that we have already seen
506 lappend newrevs $rev
507 incr npos
508 }
510 lappend $newrevs $rev
511 }
512 }
516 }
520 }
526 return
527 }
530 }
536 }
540 reset_pending_select {}
543 getallcommits
544 }
545 }
547 proc reloadcommits {} {
548 global curview viewcomplete selectedline currentid thickerline
549 global showneartags treediffs commitinterest cached_commitrow
550 global targetid
555 }
558 stop_rev_list $curview
559 }
560 resetvarcs $curview
565 readrefs
566 changedrefs
568 getallcommits
569 }
570 clear_display
574 setcanvscroll
575 getcommits $selid
577 }
579 # This makes a string representation of a positive integer which
580 # sorts as a string in numerical order
588 }
590 }
592 # Procedures used in reordering commits from git log (without
593 # --topo-order) into the order for display.
596 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
597 global vtokmod varcmod vrowmod varcix vlastins
611 }
614 global varcid varccommits parents children vseedcount ordertok
620 }
621 # some commits might have children but haven't been seen yet
624 }
627 }
630 }
632 }
634 # returns a list of the commits with no children
636 global vdownptr vleftptr varcstart
643 }
645 }
648 global varcid varctok parents children vdatemode
649 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
650 global commitdata commitinfo vseedcount varccommits vlastins
657 }
661 }
664 }
670 }
679 }
680 }
685 }
692 }
696 }
703 }
709 }
718 }
721 global varcid varcstart varccommits varctok vtokmod
722 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
730 # "%" sorts before "0"...
740 }
750 }
752 modify_arc $v $oa
753 }
754 }
757 global parents children varctok varcstart varccommits
758 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
767 lappend todo $a
772 }
773 }
774 }
775 incr ntot
782 }
783 }
785 }
792 }
798 }
807 }
808 }
813 }
815 continue
816 }
823 }
824 }
829 modify_arc $v $ka
830 }
832 modify_arc $v $b
833 }
840 }
843 }
846 }
855 }
860 }
867 }
871 }
873 }
874 }
879 }
880 }
882 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
883 }
885 # Fix up the graph after we have found out that in view $v,
886 # $p (a commit that we have already seen) is actually the parent
887 # of the last commit in arc $a.
889 global varcid varcstart varctok vupptr
893 splitvarc $p $v
895 }
896 # seeds always need to be renumbered
900 renumbervarc $pa $v
901 }
902 }
905 global cmitlisted children parents varcid varctok vtokmod
906 global varccommits ordertok commitidx numcommits curview
907 global targetid targetrow
909 readcommit $id
917 modify_arc $v $a
918 }
924 }
925 fix_reversal $p $a $v
929 setcanvscroll
932 incr targetrow
933 }
934 }
935 }
936 }
939 global varcid varccommits parents children cmitlisted
940 global commitidx varctok vtokmod targetid targetrow curview numcommits
947 return
948 }
955 # note we deliberately don't update varcstart($v) even if $i == 0
957 modify_arc $v $a $i
960 incr targetrow
961 }
962 }
963 setcanvscroll
964 drawvisible
965 }
968 global varcid varccommits parents children commitidx
969 global varctok vtokmod cmitlisted currentid selectedline
970 global targetid curview numcommits
975 return
976 }
982 return
983 }
993 }
994 modify_arc $v $a $i
996 unset currentid
998 }
1001 }
1002 setcanvscroll
1003 drawvisible
1004 }
1007 global children nullid nullid2
1012 lappend kids $id
1013 }
1014 }
1016 }
1019 global children nullid nullid2
1024 }
1025 }
1027 }
1030 global children nullid nullid2
1037 }
1038 }
1040 }
1043 global varctok varcid
1047 }
1049 # This assumes that if lim is not given, the caller has checked that
1050 # arc a's token is less than $vtokmod($v)
1052 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1060 }
1061 }
1068 }
1073 }
1075 }
1077 undolayout $r
1078 }
1079 }
1082 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1083 global varcid vrownum varcorder varcix varccommits
1084 global vupptr vdownptr vleftptr varctok
1085 global displayorder parentlist curview cached_commitrow
1092 }
1094 }
1098 # go up the tree until we find something that has a row number,
1099 # or we get to a seed
1101 }
1116 }
1118 }
1122 # go down if possible
1125 # if not, go left, or go up until we can go left
1130 }
1132 }
1134 incr arcn
1139 }
1145 }
1146 }
1148 # Test whether view $v contains commit $id
1150 global varcid
1153 }
1155 # Return the row number for commit $id in the current view
1157 global varcid varccommits varcrow curview cached_commitrow
1158 global varctok vtokmod
1164 }
1167 update_arcrows $v
1168 }
1171 }
1176 }
1180 }
1182 # Returns 1 if a is on an earlier row than b, otherwise 0
1184 global varcid varctok curview
1190 }
1194 }
1196 }
1201 }
1213 }
1214 }
1216 }
1218 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1220 global vrownum curview commitidx displayorder parentlist
1221 global varccommits varcorder parents vrowmod varcrow
1222 global d_valid_start d_valid_end
1225 update_arcrows $curview
1226 }
1242 }
1244 lappend displayorder $id
1246 }
1250 lset displayorder $i $id
1252 incr i
1253 }
1254 }
1255 incr r $al
1256 }
1257 }
1260 global displayorder
1266 }
1268 }
1271 global varctok varccommits varcid parents children
1272 global cmitlisted commitidx vtokmod
1281 # add p as a new commit
1282 incr missing_parents
1290 }
1293 modify_arc $v $b
1294 }
1298 }
1299 }
1303 }
1304 }
1305 }
1307 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1308 # Assumes we already have an arc for $rwid.
1310 global children parents varcid varctok vtokmod varccommits
1313 # make $rwid be $ch's parent in place of $id
1317 }
1319 # add $ch to $rwid's children and sort the list if necessary
1323 }
1324 # fix the graph after joining $id to $rwid
1326 fix_reversal $rwid $a $v
1327 # parentlist is wrong for the last element of arc $a
1328 # even if displayorder is right, hence the 3rd arg here
1330 }
1331 }
1333 # Mechanism for registering a command to be executed when we come
1334 # across a particular commit. To handle the case when only the
1335 # prefix of the commit is known, the commitinterest array is now
1336 # indexed by the first 4 characters of the ID. Each element is a
1337 # list of id, cmd pairs.
1339 global commitinterest
1342 }
1345 global commitinterest
1354 lappend newlist $i $script
1355 }
1356 }
1361 }
1362 }
1364 }
1367 global cmitlisted leftover
1368 global commitidx commitdata vdatemode
1369 global parents children curview hlview
1370 global idpending ordertok
1371 global varccommits varcid varctok vtokmod vfilelimit
1374 # git log doesn't terminate the last commit with a null...
1377 }
1381 }
1382 global commfd viewcomplete viewactive viewname
1383 global viewinstances
1388 }
1389 # set it blocking so we wait for the process to terminate
1395 }
1398 bad arguments to git log."
1400 append err \
1401 " (Note: arguments to gitk are passed to git log\
1402 to allow selection of commits to be displayed.)"
1403 }
1406 }
1407 error_popup $err
1408 }
1411 # Check if we have seen any ids listed as parents that haven't
1412 # appeared in the list
1413 closevarcs $view
1414 notbusy $view
1415 }
1417 run chewcommits
1418 }
1420 }
1428 break
1429 }
1436 }
1449 }
1451 }
1456 break
1457 }
1458 }
1459 }
1464 }
1466 exit 1
1467 }
1474 # when doing path limiting, so work around that here
1475 # by working out the rewritten parent with git rev-list
1476 # and if we already know about it, using the rewritten
1477 # parent as a substitute parent for $id's children.
1481 }]} {
1483 # use $rwid in place of $id
1484 rewrite_commit $view $id $rwid
1485 continue
1486 }
1487 }
1488 }
1494 }
1499 }
1511 }
1512 }
1514 # new arc
1516 }
1518 modify_arc $view $a
1519 }
1524 }
1535 }
1537 fix_reversal $p $a $view
1538 }
1539 }
1540 incr i
1541 }
1545 }
1547 global numcommits hlview
1551 run chewcommits
1552 }
1554 # we never actually get here...
1555 run vhighlightmore
1556 }
1559 }
1560 }
1562 }
1564 proc chewcommits {} {
1565 global curview hlview viewcomplete
1566 global pending_select
1568 layoutmore
1570 global commitidx varctok
1571 global numcommits startmsecs
1574 update
1575 reset_pending_select {}
1582 }
1583 }
1585 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1586 #puts "overall $ms ms for $numcommits commits"
1587 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1590 }
1591 notbusy layout
1592 }
1594 }
1597 global tclencoding
1599 # Invoke git-log to handle automatic encoding conversion
1601 # Read the results using i18n.logoutputencoding
1605 }
1607 close $fd
1608 # Remove the heading line
1612 }
1617 }
1620 global commitinfo
1631 # should never happen...
1633 }
1645 }
1646 }
1648 # take the first non-blank line of the comment as the headline
1653 }
1658 }
1660 # git log indents the comment by 4 spaces;
1661 # if we got this via git cat-file, add the indentation
1664 append newcomment " "
1665 append newcomment $line
1667 }
1669 }
1673 }
1676 global commitdata commitinfo
1681 readcommit $id
1684 }
1685 }
1687 }
1689 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1690 # and are present in the current view.
1691 # This is fairly slow...
1693 global varcid curview
1698 }
1700 }
1702 proc readrefs {} {
1703 global tagids idtags headids idheads tagobjid
1704 global otherrefids idotherrefs mainhead mainheadid
1705 global selecthead selectheadid
1706 global hideremotes
1710 }
1722 }
1728 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1729 # which is what we want since the former is the commit ID
1735 }
1741 }
1742 }
1746 catch {
1751 }
1752 }
1755 catch {
1757 }
1758 }
1759 }
1761 # skip over fake commits
1762 proc first_real_row {} {
1763 global nullid nullid2 numcommits
1768 break
1769 }
1770 }
1772 }
1774 # update things for a head moved to a child of its previous location
1776 global headids idheads
1781 }
1783 # update things when a head has been removed
1785 global headids idheads
1793 }
1794 }
1796 }
1799 global use_ttk
1803 }
1805 }
1808 global have_tk85
1810 # In MacOS Tk 8.4 transient appears to work by setting
1811 # overrideredirect, which is utterly useless, since the
1812 # windows get no border, and are not even kept above
1813 # the parent.
1816 wm transient $window $origin
1818 # Windows fails to place transient windows normally, so
1819 # schedule a callback to center them on the parent.
1822 }
1823 }
1826 global NS
1837 tkwait window $top
1838 }
1845 set w .error
1846 ttk_toplevel $w
1847 make_transient $w $owner
1848 show_error $w $w $msg
1849 }
1850 }
1853 global confirm_ok NS
1855 set w .confirm
1856 ttk_toplevel $w
1857 make_transient $w $owner
1869 tkwait window $w
1871 }
1873 proc setoptions {} {
1876 option add *Panedwindow.sashRelief raised startupFile
1878 option add *Menu.font uifont startupFile
1879 }
1882 }
1883 option add *Button.font uifont startupFile
1884 option add *Checkbutton.font uifont startupFile
1885 option add *Radiobutton.font uifont startupFile
1886 option add *Menubutton.font uifont startupFile
1887 option add *Label.font uifont startupFile
1888 option add *Message.font uifont startupFile
1889 option add *Entry.font textfont startupFile
1890 option add *Text.font textfont startupFile
1891 option add *Labelframe.font uifont startupFile
1892 option add *Spinbox.font textfont startupFile
1893 option add *Listbox.font mainfont startupFile
1894 }
1896 # Make a menu and submenus.
1897 # m is the window name for the menu, items is the list of menu items to add.
1898 # Each item is a list {mc label type description options...}
1899 # mc is ignored; it's so we can put mc there to alert xgettext
1900 # label is the string that appears in the menu
1901 # type is cascade, command or radiobutton (should add checkbutton)
1902 # description depends on type; it's the sublist for cascade, the
1903 # command to invoke for command, or {variable value} for radiobutton
1905 menu $m
1907 set Meta1 Cmd
1909 set Meta1 Ctrl
1910 }
1921 }
1922 }
1927 }
1930 }
1934 }
1935 }
1941 }
1942 }
1943 }
1945 # translate string and remove ampersands
1948 }
1951 global use_ttk
1957 }
1962 }
1964 }
1966 proc makewindow {} {
1967 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1968 global tabstop
1969 global findtype findtypemenu findloc findstring fstring geometry
1970 global entries sha1entry sha1string sha1but
1971 global diffcontextstring diffcontext
1972 global ignorespace
1973 global maincursor textcursor curtextcursor
1974 global rowctxmenu fakerowmenu mergemax wrapcomment
1975 global highlight_files gdttype
1976 global searchstring sstring
1977 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1978 global headctxmenu progresscanv progressitem progresscoords statusw
1979 global fprogitem fprogcoord lastprogupdate progupdatepending
1980 global rprogitem rprogcoord rownumsel numcommits
1981 global have_tk85 use_ttk NS
1982 global git_version
1983 global worddiff
1985 # The "mc" arguments here are purely so that xgettext
1986 # sees the following string as needing to be translated
1997 }}
2001 }}
2009 }}
2015 }}
2025 }}
2029 }}
2031 }
2032 makemenu .bar $bar
2033 . configure -menu .bar
2036 # cover the non-themed toplevel with a themed frame.
2038 }
2040 # the gui has upper and lower half, parts of a paned window.
2043 # possibly use assumed geometry
2051 }
2053 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2059 }
2061 # create three canvases
2062 set cscroll .tf.histframe.csb
2063 set canv .tf.histframe.pwclist.canv
2064 canvas $canv \
2068 .tf.histframe.pwclist add $canv
2069 set canv2 .tf.histframe.pwclist.canv2
2070 canvas $canv2 \
2073 .tf.histframe.pwclist add $canv2
2074 set canv3 .tf.histframe.pwclist.canv3
2075 canvas $canv3 \
2078 .tf.histframe.pwclist add $canv3
2084 }
2088 }
2090 # a scroll bar to rule them
2095 lappend bglist $canv $canv2 $canv3
2098 # we have two button bars at bottom of top frame. Bar 1
2102 set sha1entry .tf.bar.sha1
2104 set sha1but .tf.bar.sha1label
2108 pack .tf.bar.sha1label -side left
2110 trace add variable sha1string write sha1change
2114 #define left_width 16
2115 #define left_height 16
2116 static unsigned char left_bits[] = {
2120 }
2122 #define right_width 16
2123 #define right_height 16
2124 static unsigned char right_bits[] = {
2128 }
2143 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2144 -side left
2147 }
2148 global selectedline
2149 trace add variable selectedline write selectedline_change
2151 # Status label and progress bar
2152 set statusw .tf.bar.status
2159 set progresscanv .tf.bar.progress
2164 }
2173 # build up the bottom bar of upper window
2178 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2185 trace add variable gdttype write gdttype_change
2189 set fstring .tf.lbar.findstring
2190 lappend entries $fstring
2192 trace add variable findstring write find_change
2196 trace add variable findtype write findcom_change
2200 trace add variable findloc write find_change
2201 pack .tf.lbar.findloc -side right
2202 pack .tf.lbar.findtype -side right
2205 # Finish putting the upper half of the viewer together
2209 .ctop add .tf
2213 }
2215 # now build up the bottom
2218 # lower left, a text box over search bar, scroll bar to the right
2219 # if we know window height, then that will set the lower text height, otherwise
2220 # we set lower text height which will drive window height
2225 }
2232 set sstring .bleft.top.sstring
2235 lappend entries $sstring
2236 trace add variable searchstring write incrsearch
2249 -textvariable diffcontextstring
2251 trace add variable diffcontextstring write diffcontextchange
2252 lappend entries .bleft.mid.diffcontext
2253 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2262 trace add variable worddiff write changeworddiff
2264 }
2266 set ctext .bleft.bottom.ctext
2273 }
2279 grid .bleft.bottom.sbhorizontal -sticky ew
2284 lappend bglist $ctext
2285 lappend fglist $ctext
2314 .pwbottom add .bleft
2317 }
2319 # lower right
2328 set cflist .bright.cfiles
2330 text $cflist \
2333 -font mainfont \
2338 lappend bglist $cflist
2339 lappend fglist $cflist
2343 $cflist tag configure highlight \
2347 .pwbottom add .bright
2348 .ctop add .pwbottom
2350 # restore window width & height if known
2355 }
2358 }
2360 }
2361 }
2365 }
2368 set M1B M1
2371 set M1B Control
2373 }
2379 }
2383 }
2384 }
2389 #bindall <B1-Motion> {selcanvline %W %x %y}
2399 allcanvs yview scroll $delta units
2400 }
2404 }
2405 }
2406 }
2430 bindkey p "selnextline -1"
2431 bindkey n "selnextline 1"
2432 bindkey z "goback"
2433 bindkey x "goforw"
2434 bindkey k "selnextline -1"
2435 bindkey j "selnextline 1"
2436 bindkey h "goback"
2437 bindkey l "goforw"
2438 bindkey b prevfile
2445 bindkey f nextfile
2462 wm protocol . WM_DELETE_WINDOW doquit
2471 global ctxbut
2476 set maincursor [. cget -cursor]
2480 set rowctxmenu .rowctxmenu
2482 {mc "Diff this -> selected" command {diffvssel 0}}
2483 {mc "Diff selected -> this" command {diffvssel 1}}
2484 {mc "Make patch" command mkpatch}
2485 {mc "Create tag" command mktag}
2486 {mc "Write commit to file" command writecommit}
2487 {mc "Create new branch" command mkbranch}
2488 {mc "Cherry-pick this commit" command cherrypick}
2489 {mc "Reset HEAD branch to here" command resethead}
2490 {mc "Mark this commit" command markhere}
2491 {mc "Return to mark" command gotomark}
2492 {mc "Find descendant of this and mark" command find_common_desc}
2493 {mc "Compare with marked commit" command compare_commits}
2494 }
2497 set fakerowmenu .fakerowmenu
2499 {mc "Diff this -> selected" command {diffvssel 0}}
2500 {mc "Diff selected -> this" command {diffvssel 1}}
2501 {mc "Make patch" command mkpatch}
2502 }
2505 set headctxmenu .headctxmenu
2507 {mc "Check out this branch" command cobranch}
2508 {mc "Remove this branch" command rmbranch}
2509 }
2512 global flist_menu
2513 set flist_menu .flistctxmenu
2515 {mc "Highlight this too" command {flist_hl 0}}
2516 {mc "Highlight this only" command {flist_hl 1}}
2517 {mc "External diff" command {external_diff}}
2518 {mc "Blame parent commit" command {external_blame 1}}
2519 }
2522 global diff_menu
2523 set diff_menu .diffctxmenu
2525 {mc "Show origin of this line" command show_line_source}
2526 {mc "Run git gui blame on this line" command {external_blame_diff}}
2527 }
2529 }
2531 # Windows sends all mouse wheel events to the current focused window, not
2532 # the one where the mouse hovers, so bind those events here and redirect
2533 # to the correct window
2534 proc windows_mousewheel_redirector {W X Y D} {
2535 global canv canv2 canv3
2541 } else {
2542 catch {
2544 }
2545 }
2546 }
2547 }
2549 # Update row number label when selectedline changes
2550 proc selectedline_change {n1 n2 op} {
2551 global selectedline rownumsel
2554 set rownumsel {}
2555 } else {
2557 }
2558 }
2560 # mouse-2 makes all windows scan vertically, but only the one
2561 # the cursor is in scans horizontally
2562 proc canvscan {op w x y} {
2563 global canv canv2 canv3
2567 } else {
2569 }
2570 }
2571 }
2573 proc scrollcanv {cscroll f0 f1} {
2575 drawvisible
2576 flushhighlights
2577 }
2579 # when we make a key binding for the toplevel, make sure
2580 # it doesn't get triggered when that key is pressed in the
2581 # find string entry widget.
2582 proc bindkey {ev script} {
2583 global entries
2587 set escript [bind Entry <Key>]
2588 }
2591 }
2592 }
2594 # set the focus back to the toplevel for any click outside
2595 # the entry widgets
2596 proc click {w} {
2597 global ctext entries
2600 }
2601 focus .
2602 }
2604 # Adjust the progress bar for a change in requested extent or canvas size
2605 proc adjustprogress {} {
2606 global progresscanv progressitem progresscoords
2607 global fprogitem fprogcoord lastprogupdate progupdatepending
2608 global rprogitem rprogcoord use_ttk
2612 return
2613 }
2622 set now [clock clicks -milliseconds]
2624 set progupdatepending 0
2625 update
2627 set progupdatepending 1
2629 }
2630 }
2632 proc doprogupdate {} {
2633 global lastprogupdate progupdatepending
2636 set progupdatepending 0
2637 set lastprogupdate [clock clicks -milliseconds]
2638 update
2639 }
2640 }
2642 proc savestuff {w} {
2643 global canv canv2 canv3 mainfont textfont uifont tabstop
2644 global stuffsaved findmergefiles maxgraphpct
2645 global maxwidth showneartags showlocalchanges
2646 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2647 global cmitmode wrapcomment datetimeformat limitdiffs
2648 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2649 global autoselect autosellen extdifftool perfile_attrs markbgcolor use_ttk
2650 global hideremotes want_ttk
2653 if {![winfo viewable .]} return
2654 catch {
2655 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2656 set f [open "~/.gitk-new" w]
2657 if {$::tcl_platform(platform) eq {windows}} {
2658 file attributes "~/.gitk-new" -hidden true
2659 }
2695 } else {
2698 }
2706 }
2707 }
2710 file rename -force "~/.gitk-new" "~/.gitk"
2711 }
2712 set stuffsaved 1
2713 }
2715 proc resizeclistpanes {win w} {
2716 global oldwidth use_ttk
2721 } else {
2724 }
2728 } else {
2733 set sash0 30
2734 }
2737 }
2742 }
2743 }
2744 }
2748 } else {
2751 }
2752 }
2754 }
2756 proc resizecdetpanes {win w} {
2757 global oldwidth use_ttk
2761 } else {
2763 }
2766 } else {
2770 set sash0 45
2771 }
2774 }
2775 }
2778 } else {
2780 }
2781 }
2783 }
2785 proc allcanvs args {
2786 global canv canv2 canv3
2790 }
2792 proc bindall {event action} {
2793 global canv canv2 canv3
2797 }
2799 proc about {} {
2800 global uifont NS
2801 set w .about
2804 return
2805 }
2810 Gitk - a commit viewer for git
2812 Copyright \u00a9 2005-2011 Paul Mackerras
2814 Use and redistribute under the terms of the GNU General Public License"] \
2815 -justify center -aspect 400 -border 2 -bg white -relief groove
2823 }
2825 proc keys {} {
2826 global NS
2827 set w .keys
2830 return
2831 }
2832 if {[tk windowingsystem] eq {aqua}} {
2833 set M1T Cmd
2834 } else {
2835 set M1T Ctrl
2836 }
2841 [mc "Gitk key bindings:"]
2845 [mc "<Home> Move to first commit"]
2846 [mc "<End> Move to last commit"]
2847 [mc "<Up>, p, k Move up one commit"]
2848 [mc "<Down>, n, j Move down one commit"]
2849 [mc "<Left>, z, h Go back in history list"]
2850 [mc "<Right>, x, l Go forward in history list"]
2851 [mc "<PageUp> Move up one page in commit list"]
2852 [mc "<PageDown> Move down one page in commit list"]
2859 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2860 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2861 [mc "<Delete>, b Scroll diff view up one page"]
2862 [mc "<Backspace> Scroll diff view up one page"]
2863 [mc "<Space> Scroll diff view down one page"]
2864 [mc "u Scroll diff view up 18 lines"]
2865 [mc "d Scroll diff view down 18 lines"]
2868 [mc "<Return> Move to next find hit"]
2869 [mc "/ Focus the search box"]
2870 [mc "? Move to previous find hit"]
2871 [mc "f Scroll diff view to next file"]
2878 [mc "<F5> Update"]
2879 " \
2880 -justify left -bg white -border 2 -relief groove
2888 }
2890 # Procedures for manipulating the file list window at the
2891 # bottom right of the overall window.
2893 proc treeview {w l openlevs} {
2894 global treecontents treediropen treeheight treeparent treeindex
2896 set ix 0
2897 set treeindex() 0
2898 set lev 0
2899 set prefix {}
2900 set prefixend -1
2901 set prefendstack {}
2902 set htstack {}
2903 set ht 0
2904 set treecontents() {}
2911 }
2918 incr lev -1
2919 }
2923 set ht 0
2935 set ht 1
2940 set str "\n"
2948 }
2949 incr lev
2950 }
2953 incr ht
2954 set str "\n"
2958 }
2960 }
2961 }
2969 }
2971 }
2973 proc linetoelt {l} {
2974 global treeheight treecontents
2976 set y 2
2977 set prefix {}
2978 while {1} {
2982 }
2983 set n 1
2988 incr y
2989 break
2990 }
2991 }
2993 }
2994 }
2995 }
2997 proc highlight_tree {y prefix} {
2998 global treeheight treecontents cflist
3004 }
3005 incr y
3008 }
3009 }
3011 }
3013 proc treeclosedir {w dir} {
3014 global treediropen treeheight treeparent treeindex
3026 }
3027 }
3029 proc treeopendir {w dir} {
3030 global treediropen treeheight treeparent treecontents treeindex
3037 set lev 0
3038 set str "\n"
3041 incr lev
3042 append str "\t"
3044 }
3059 } else {
3062 }
3063 }
3076 }
3078 }
3079 }
3081 proc treeclick {w x y} {
3082 global treediropen cmitmode ctext cflist cflist_top
3085 if {![info exists cflist_top]} return
3092 return
3093 }
3099 } else {
3101 }
3102 }
3104 proc setfilelist {id} {
3105 global treefilelist cflist jump_to_here
3112 }
3113 }
3114 }
3116 image create bitmap tri-rt -background black -foreground blue -data {
3117 #define tri-rt_width 13
3118 #define tri-rt_height 13
3119 static unsigned char tri-rt_bits[] = {
3120 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3121 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3122 0x00, 0x00};
3123 } -maskdata {
3124 #define tri-rt-mask_width 13
3125 #define tri-rt-mask_height 13
3126 static unsigned char tri-rt-mask_bits[] = {
3127 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3128 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3129 0x08, 0x00};
3130 }
3131 image create bitmap tri-dn -background black -foreground blue -data {
3132 #define tri-dn_width 13
3133 #define tri-dn_height 13
3134 static unsigned char tri-dn_bits[] = {
3135 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3136 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3137 0x00, 0x00};
3138 } -maskdata {
3139 #define tri-dn-mask_width 13
3140 #define tri-dn-mask_height 13
3141 static unsigned char tri-dn-mask_bits[] = {
3142 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3143 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3144 0x00, 0x00};
3145 }
3147 image create bitmap reficon-T -background black -foreground yellow -data {
3148 #define tagicon_width 13
3149 #define tagicon_height 9
3150 static unsigned char tagicon_bits[] = {
3151 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3152 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3153 } -maskdata {
3154 #define tagicon-mask_width 13
3155 #define tagicon-mask_height 9
3156 static unsigned char tagicon-mask_bits[] = {
3157 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3158 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3159 }
3160 set rectdata {
3161 #define headicon_width 13
3162 #define headicon_height 9
3163 static unsigned char headicon_bits[] = {
3164 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3165 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3166 }
3167 set rectmask {
3168 #define headicon-mask_width 13
3169 #define headicon-mask_height 9
3170 static unsigned char headicon-mask_bits[] = {
3171 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3172 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3173 }
3174 image create bitmap reficon-H -background black -foreground green \
3176 image create bitmap reficon-o -background black -foreground "#ddddff" \
3179 proc init_flist {first} {
3180 global cflist cflist_top difffilestart
3186 set cflist_top 1
3188 } else {
3189 catch {unset cflist_top}
3190 }
3192 set difffilestart {}
3193 }
3195 proc highlight_tag {f} {
3196 global highlight_paths
3200 return "bold"
3201 }
3202 }
3203 return {}
3204 }
3206 proc highlight_filelist {} {
3207 global cmitmode cflist
3216 }
3217 }
3218 } else {
3219 highlight_tree 2 {}
3220 }
3222 }
3224 proc unhighlight_filelist {} {
3225 global cflist
3230 }
3232 proc add_flist {fl} {
3233 global cflist
3239 }
3241 }
3243 proc sel_flist {w x y} {
3244 global ctext difffilestart cflist cflist_top cmitmode
3247 if {![info exists cflist_top]} return
3254 } else {
3256 }
3257 }
3259 proc pop_flist_menu {w X Y x y} {
3260 global ctext cflist cmitmode flist_menu flist_menu_file
3261 global treediffs diffids
3263 stopfinding
3269 } else {
3271 }
3273 set xdiffstate "normal"
3275 set xdiffstate "disabled"
3276 }
3277 # Disable "External diff" item in tree mode
3280 }
3282 proc find_ctext_fileinfo {line} {
3283 global ctext_file_names ctext_file_lines
3289 return {}
3290 } else {
3292 }
3293 }
3295 proc pop_diff_menu {w X Y x y} {
3296 global ctext diff_menu flist_menu_file
3297 global diff_menu_txtpos diff_menu_line
3298 global diff_menu_filebase
3302 # don't pop up the menu on hunk-separator or file-separator lines
3304 return
3305 }
3306 stopfinding
3312 }
3314 proc flist_hl {only} {
3315 global flist_menu_file findstring gdttype
3320 } else {
3322 }
3323 set gdttype [mc "touching paths:"]
3324 }
3326 proc gitknewtmpdir {} {
3327 global diffnum gitktmpdir gitdir
3329 if {![info exists gitktmpdir]} {
3333 unset gitktmpdir
3334 return {}
3335 }
3336 set diffnum 0
3337 }
3338 incr diffnum
3342 return {}
3343 }
3345 }
3347 proc save_file_from_commit {filename output what} {
3348 global nullfile
3353 }
3355 return {}
3356 }
3358 }
3360 proc external_diff_get_one_file {diffid filename diffdir} {
3361 global nullid nullid2 nullfile
3362 global worktree
3368 }
3370 }
3374 }
3378 }
3380 proc external_diff {} {
3381 global nullid nullid2
3382 global flist_menu_file
3383 global diffids
3384 global extdifftool
3387 # no reference commit given
3390 # diffing working copy with index
3393 # diffing index with HEAD
3394 set diffidfrom "HEAD"
3395 } else {
3396 # use first parent commit
3397 global parentlist selectedline
3399 }
3400 } else {
3403 }
3405 # make sure that several diffs wont collide
3406 set diffdir [gitknewtmpdir]
3409 # gather files to diff
3418 } else {
3421 }
3422 }
3423 }
3425 proc find_hunk_blamespec {base line} {
3426 global ctext
3428 # Find and parse the hunk header
3434 s_line old_specs osz osz1 new_line nsz]} {
3435 return
3436 }
3438 # base lines for the parents
3442 old_spec old_line osz]} {
3443 return
3444 }
3446 }
3448 # Now scan the lines to determine offset within the hunk
3450 set dline 0
3453 # Determine if the line is removed
3457 # Choose a parent index
3460 } else {
3464 } else {
3465 # blame the current commit
3466 set parent -1
3467 }
3468 }
3469 # then count other lines that belong to it
3472 # Determine if the line is removed
3477 incr dline
3478 }
3479 } else {
3481 incr dline
3482 }
3483 }
3484 }
3485 incr parent
3486 } else {
3487 set parent 0
3488 }
3492 }
3494 proc external_blame_diff {} {
3495 global currentid cmitmode
3496 global diff_menu_txtpos diff_menu_line
3497 global diff_menu_filebase flist_menu_file
3500 set parent_idx 0
3502 } else {
3507 } else {
3508 set parent_idx 0
3509 set line 0
3510 }
3511 }
3514 }
3517 # at stage 0 or 2
3518 proc index_sha1 {fname} {
3526 }
3527 }
3529 return {}
3530 }
3532 # Turn an absolute path into one relative to the current directory
3533 proc make_relative {f} {
3536 }
3538 set here [file split [pwd]]
3539 set ei 0
3540 set hi 0
3541 set res {}
3544 lappend res ".."
3545 } else {
3546 incr ei
3547 }
3548 incr hi
3549 }
3552 }
3554 proc external_blame {parent_idx {line {}}} {
3555 global flist_menu_file cdup
3556 global nullid nullid2
3557 global parentlist selectedline currentid
3561 } else {
3563 }
3566 error_popup [mc "No such commit"]
3567 return
3568 }
3570 set cmdline [list git gui blame]
3573 }
3575 # Unfortunately it seems git gui blame doesn't like
3576 # being given an absolute path...
3581 }
3582 }
3584 proc show_line_source {} {
3585 global cmitmode currentid parents curview blamestuff blameinst
3586 global diff_menu_line diff_menu_filebase flist_menu_file
3587 global nullid nullid2 gitdir cdup
3589 set from_index {}
3593 } else {
3599 return
3600 }
3601 incr pi -1
3604 # must be a merge in progress...
3605 if {[catch {
3606 # get the last line from .git/MERGE_HEAD
3610 } err]} {
3612 return
3613 }
3615 # need to do the blame from the index
3616 if {[catch {
3618 } err]} {
3620 return
3621 }
3622 } else {
3624 }
3625 } else {
3627 }
3629 }
3630 set blameargs {}
3633 }
3636 lappend blameargs --contents -
3637 } else {
3639 }
3641 if {[catch {
3643 } err]} {
3645 return
3646 }
3647 nowbusy blaming [mc "Searching"]
3653 }
3655 proc stopblaming {} {
3656 global blameinst
3658 if {[info exists blameinst]} {
3660 unset blameinst
3661 notbusy blaming
3662 }
3663 }
3665 proc read_line_source {fd inst} {
3666 global blamestuff curview commfd blameinst nullid nullid2
3670 }
3672 return 1
3673 }
3675 unset blameinst
3676 notbusy blaming
3680 return 0
3681 }
3683 set fname {}
3689 # look for "filename" line
3693 break
3694 }
3695 }
3696 }
3698 # all looks good, select it
3700 # blame uses all-zeroes to mean not committed,
3701 # which would mean a change in the index
3703 }
3706 } else {
3707 error_popup [mc "That line comes from commit %s, \
3709 }
3710 } else {
3711 puts "oops couldn't parse git blame output"
3712 }
3713 return 0
3714 }
3717 proc delete_at_eof {f dir} {
3722 }
3724 return 0
3725 }
3726 return 1
3727 }
3729 # Functions for adding and removing shell-type quoting
3731 proc shellquote {str} {
3734 }
3737 }
3740 }
3742 }
3744 proc shellarglist {l} {
3745 set str {}
3748 append str " "
3749 }
3751 }
3753 }
3755 proc shelldequote {str} {
3756 set ret {}
3757 set used -1
3758 while {1} {
3759 incr used
3763 break
3764 }
3770 }
3772 incr used
3776 error "unmatched single-quote"
3777 }
3780 continue
3781 }
3784 error "trailing backslash"
3785 }
3787 continue
3788 }
3789 # here ch == "\""
3790 while {1} {
3792 error "unmatched double-quote"
3793 }
3799 }
3801 incr used
3803 incr used
3804 }
3805 }
3807 }
3809 proc shellsplit {str} {
3810 set l {}
3811 while {1} {
3819 }
3821 }
3823 # Code to implement multiple views
3825 proc newview {ishighlight} {
3826 global nextviewnum newviewname newishighlight
3827 global revtreeargs viewargscmd newviewopts curview
3830 set top .gitkview
3833 return
3834 }
3840 }
3842 set known_view_options {
3843 {perm b . {} {mc "Remember this view"}}
3844 {reflabel l + {} {mc "References (space separated list):"}}
3845 {refs t15 .. {} {mc "Branches & tags:"}}
3846 {allrefs b *. "--all" {mc "All refs"}}
3847 {branches b . "--branches" {mc "All (local) branches"}}
3848 {tags b . "--tags" {mc "All tags"}}
3849 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3850 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3851 {author t15 .. "--author=*" {mc "Author:"}}
3852 {committer t15 . "--committer=*" {mc "Committer:"}}
3853 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3854 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3855 {changes_l l + {} {mc "Changes to Files:"}}
3856 {pickaxe_s r0 . {} {mc "Fixed String"}}
3857 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3858 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3859 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3860 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3861 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3862 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3863 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3864 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3865 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3866 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3867 {lright b . "--left-right" {mc "Mark branch sides"}}
3868 {first b . "--first-parent" {mc "Limit to first parent"}}
3869 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3870 {args t50 *. {} {mc "Additional arguments to git log:"}}
3871 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3872 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3873 }
3876 proc encode_view_opts {n} {
3877 global known_view_options newviewopts
3879 set rargs [list]
3889 }
3895 }
3896 } else {
3902 }
3903 }
3904 }
3907 }
3910 proc decode_view_opts {n view_args} {
3911 global known_view_options newviewopts
3916 # Checkboxes
3917 set val 0
3919 # Radiobuttons
3921 set val 0
3922 } else {
3923 # Text fields
3924 set val {}
3925 }
3927 }
3928 set oargs [list]
3929 set refargs [list]
3932 && ![info exists found(limit)]} {
3934 set found(limit) 1
3935 continue
3936 }
3937 catch { unset val }
3944 # Check buttons
3945 set val 1
3947 # Radio buttons
3950 } else {
3951 # Text input fields
3954 }
3957 break
3958 }
3959 if {[info exists val]} break
3960 }
3961 if {[info exists val]} continue
3964 } else {
3966 }
3967 }
3970 }
3972 proc edit_or_newview {} {
3973 global curview
3976 editview
3977 } else {
3978 newview 0
3979 }
3980 }
3982 proc editview {} {
3983 global curview
3984 global viewname viewperm newviewname newviewopts
3985 global viewargs viewargscmd
3990 return
3991 }
3997 }
3999 proc vieweditor {top n title} {
4000 global newviewname newviewopts viewfiles bgcolor
4001 global known_view_options NS
4007 # View name
4015 # View options
4017 set cexpand 0
4018 set cnt 0
4024 set lxpad 0
4028 incr cnt
4034 incr cnt
4038 } else {
4039 set lxpad 5
4040 }
4074 }
4077 }
4079 }
4080 }
4095 }
4097 proc doviewmenu {m first cmd op argv} {
4102 break
4103 }
4104 }
4105 }
4107 proc allviewmenus {n op args} {
4108 # global viewhlmenu
4112 }
4114 proc newviewok {top n {apply 0}} {
4115 global nextviewnum newviewperm newviewname newishighlight
4116 global viewname viewfiles viewperm selectedview curview
4117 global viewargs viewargscmd newviewopts viewhlmenu
4119 if {[catch {
4121 } err]} {
4123 return
4124 }
4125 set files {}
4130 }
4131 }
4133 # creating a new view
4134 incr nextviewnum
4143 } else {
4145 }
4146 } else {
4147 # editing an existing view
4155 }
4162 run reloadcommits
4163 }
4164 }
4165 }
4168 }
4170 proc delview {} {
4171 global curview viewperm hlview selectedhlview
4175 set selectedhlview [mc "None"]
4176 unset hlview
4177 }
4180 showview 0
4181 }
4183 proc addviewmenu {n} {
4184 global viewname viewhlmenu
4190 }
4192 proc showview {n} {
4193 global curview cached_commitrow ordertok
4194 global displayorder parentlist rowidlist rowisopt rowfinal
4195 global colormap rowtextx nextcolor canvxmax
4196 global numcommits viewcomplete
4197 global selectedline currentid canv canvy0
4198 global treediffs
4199 global pending_select mainheadid
4200 global commitidx
4201 global selectedview
4202 global hlview selectedhlview commitinterest
4205 set selid {}
4216 }
4217 } elseif {[info exists pending_select]} {
4219 unset pending_select
4220 }
4221 unselectline
4222 normalline
4223 catch {unset treediffs}
4224 clear_display
4226 unset hlview
4227 set selectedhlview [mc "None"]
4228 }
4229 catch {unset commitinterest}
4230 catch {unset cached_commitrow}
4231 catch {unset ordertok}
4238 run refill_reflist
4241 return
4242 }
4244 set displayorder {}
4245 set parentlist {}
4246 set rowidlist {}
4247 set rowisopt {}
4248 set rowfinal {}
4251 catch {unset colormap}
4252 catch {unset rowtextx}
4253 set nextcolor 0
4256 set row 0
4257 setcanvscroll
4258 set yf 0
4259 set row {}
4262 # try to get the selected row in the same position on the screen
4266 set ytop 0
4267 }
4269 }
4271 drawvisible
4276 } else {
4277 reset_pending_select {}
4281 } else {
4282 set row [first_real_row]
4285 }
4286 }
4287 }
4290 show_status [mc "Reading commits..."]
4291 }
4293 show_status [mc "No commits selected"]
4294 }
4295 }
4297 # Stuff relating to the highlighting facility
4299 proc ishighlighted {id} {
4300 global vhighlights fhighlights nhighlights rhighlights
4304 }
4307 }
4310 }
4313 }
4314 return 0
4315 }
4317 proc bolden {id font} {
4318 global canv linehtag currentid boldids need_redisplay markedid
4320 # need_redisplay = 1 means the display is stale and about to be redrawn
4327 -outline {{}} -tags secsel \
4330 }
4333 }
4334 }
4336 proc bolden_name {id font} {
4337 global canv2 linentag currentid boldnameids need_redisplay
4345 -outline {{}} -tags secsel \
4348 }
4349 }
4351 proc unbolden {} {
4352 global boldids
4354 set stillbold {}
4358 } else {
4360 }
4361 }
4363 }
4365 proc addvhighlight {n} {
4366 global hlview viewcomplete curview vhl_done commitidx
4368 if {[info exists hlview]} {
4369 delvhighlight
4370 }
4374 }
4377 drawvisible
4378 }
4379 }
4381 proc delvhighlight {} {
4382 global hlview vhighlights
4384 if {![info exists hlview]} return
4385 unset hlview
4386 catch {unset vhighlights}
4387 unbolden
4388 }
4390 proc vhighlightmore {} {
4391 global hlview vhl_done commitidx vhighlights curview
4394 set vr [visiblerows]
4404 }
4406 }
4407 }
4408 }
4410 return 0
4411 }
4413 proc askvhighlight {row id} {
4414 global hlview vhighlights iddrawn
4419 }
4421 } else {
4423 }
4424 }
4426 proc hfiles_change {} {
4427 global highlight_files filehighlight fhighlights fh_serial
4428 global highlight_paths
4430 if {[info exists filehighlight]} {
4431 # delete previous highlights
4433 unset filehighlight
4434 catch {unset fhighlights}
4435 unbolden
4436 unhighlight_filelist
4437 }
4438 set highlight_paths {}
4440 incr fh_serial
4443 }
4444 }
4446 proc gdttype_change {name ix op} {
4447 global gdttype highlight_files findstring findpattern
4449 stopfinding
4453 set highlight_files {}
4454 hfiles_change
4455 }
4456 findcom_change
4457 } else {
4459 set findpattern {}
4460 findcom_change
4461 }
4463 hfiles_change
4464 }
4465 drawvisible
4466 }
4467 # enable/disable findtype/findloc menus too
4468 }
4470 proc find_change {name ix op} {
4471 global gdttype findstring highlight_files
4473 stopfinding
4475 findcom_change
4476 } else {
4479 hfiles_change
4480 }
4481 }
4482 drawvisible
4483 }
4485 proc findcom_change args {
4486 global nhighlights boldnameids
4487 global findpattern findtype findstring gdttype
4489 stopfinding
4490 # delete previous highlights, if any
4493 }
4494 set boldnameids {}
4495 catch {unset nhighlights}
4496 unbolden
4497 unmarkmatches
4499 set findpattern {}
4502 } else {
4503 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4506 }
4507 }
4509 proc makepatterns {l} {
4510 set ret {}
4515 } else {
4518 }
4519 }
4521 }
4523 proc do_file_hl {serial} {
4524 global highlight_files filehighlight highlight_paths gdttype fhl_list
4525 global cdup findtype
4528 # If "exact" match then convert backslashes to forward slashes.
4529 # Most useful to support Windows-flavoured file paths.
4532 }
4535 highlight_filelist
4536 set relative_paths {}
4539 }
4543 } else {
4544 # must be "containing:", i.e. we're searching commit info
4545 return
4546 }
4551 set fhl_list {}
4552 drawvisible
4553 flushhighlights
4554 }
4556 proc flushhighlights {} {
4557 global filehighlight fhl_list
4559 if {[info exists filehighlight]} {
4560 lappend fhl_list {}
4563 }
4564 }
4566 proc askfilehighlight {row id} {
4567 global filehighlight fhighlights fhl_list
4572 }
4574 proc readfhighlight {} {
4575 global filehighlight fhighlights curview iddrawn
4576 global fhl_list find_dirn
4578 if {![info exists filehighlight]} {
4579 return 0
4580 }
4581 set nr 0
4589 }
4595 }
4597 }
4599 # strange...
4600 puts "oops, git diff-tree died"
4602 unset filehighlight
4603 return 0
4604 }
4605 if {[info exists find_dirn]} {
4606 run findmore
4607 }
4608 return 1
4609 }
4611 proc doesmatch {f} {
4612 global findtype findpattern
4618 } else {
4620 }
4621 }
4623 proc askfindhighlight {row id} {
4624 global nhighlights commitinfo iddrawn
4625 global findloc
4626 global markingmatches
4630 }
4632 set isbold 0
4633 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4638 set isbold 2
4639 break
4640 }
4641 set isbold 1
4642 }
4643 }
4649 }
4650 }
4653 }
4654 }
4656 }
4658 proc markrowmatches {row id} {
4659 global canv canv2 linehtag linentag commitinfo findloc
4670 }
4671 }
4677 }
4678 }
4679 }
4681 proc vrel_change {name ix op} {
4682 global highlight_related
4684 rhighlight_none
4686 run drawvisible
4687 }
4688 }
4690 # prepare for testing whether commits are descendents or ancestors of a
4691 proc rhighlight_sel {a} {
4692 global descendent desc_todo ancestor anc_todo
4693 global highlight_related
4695 catch {unset descendent}
4697 catch {unset ancestor}
4700 rhighlight_none
4701 run drawvisible
4702 }
4703 }
4705 proc rhighlight_none {} {
4706 global rhighlights
4708 catch {unset rhighlights}
4709 unbolden
4710 }
4712 proc is_descendent {a} {
4713 global curview children descendent desc_todo
4718 set leftover {}
4719 set done 0
4724 continue
4725 }
4731 set done 1
4732 }
4733 }
4734 }
4737 return
4738 }
4739 }
4742 }
4744 proc is_ancestor {a} {
4745 global curview parents ancestor anc_todo
4750 set leftover {}
4751 set done 0
4756 continue
4757 }
4763 set done 1
4764 }
4765 }
4766 }
4769 return
4770 }
4771 }
4774 }
4776 proc askrelhighlight {row id} {
4777 global descendent highlight_related iddrawn rhighlights
4778 global selectedline ancestor
4781 set isbold 0
4786 }
4788 set isbold 1
4789 }
4794 }
4796 set isbold 1
4797 }
4798 }
4802 }
4803 }
4805 }
4807 # Graph layout functions
4809 proc shortids {ids} {
4810 set res {}
4816 } else {
4818 }
4819 }
4821 }
4823 proc ntimes {n o} {
4824 set ret {}
4829 }
4831 }
4833 }
4835 proc ordertoken {id} {
4836 global ordertok curview varcid varcstart varctok curview parents children
4837 global nullid nullid2
4841 }
4843 set todo {}
4844 while {1} {
4848 } else {
4850 }
4853 break
4854 }
4857 # it's a root
4859 break
4860 }
4863 } else {
4867 }
4869 }
4870 }
4875 }
4878 }
4880 # Work out where id should go in idlist so that order-token
4881 # values increase from left to right
4882 proc idcol {idlist id {i 0}} {
4885 set i 0
4886 }
4890 }
4892 incr i
4893 } else {
4897 }
4898 }
4900 }
4902 proc initlayout {} {
4903 global rowidlist rowisopt rowfinal displayorder parentlist
4904 global numcommits canvxmax canv
4905 global nextcolor
4906 global colormap rowtextx
4908 set numcommits 0
4909 set displayorder {}
4910 set parentlist {}
4911 set nextcolor 0
4912 set rowidlist {}
4913 set rowisopt {}
4914 set rowfinal {}
4916 catch {unset colormap}
4917 catch {unset rowtextx}
4918 setcanvscroll
4919 }
4921 proc setcanvscroll {} {
4922 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4923 global lastscrollset lastscrollrows
4929 set lastscrollset [clock clicks -milliseconds]
4931 }
4933 proc visiblerows {} {
4934 global canv numcommits linespc
4942 set r0 0
4943 }
4948 }
4950 }
4952 proc layoutmore {} {
4953 global commitidx viewcomplete curview
4954 global numcommits pending_select curview
4955 global lastscrollset lastscrollrows
4959 setcanvscroll
4960 }
4961 if {[info exists pending_select] &&
4963 update
4965 }
4966 drawvisible
4967 }
4969 # With path limiting, we mightn't get the actual HEAD commit,
4970 # so ask git rev-list what is the first ancestor of HEAD that
4971 # touches a file in the path limit.
4972 proc get_viewmainhead {view} {
4973 global viewmainheadid vfilelimit viewinstances mainheadid
4975 catch {
4983 }
4984 }
4987 proc getviewhead {fd inst view} {
4988 global viewmainheadid commfd curview viewinstances showlocalchanges
4990 set id {}
4993 return 1
4994 }
4997 }
5004 }
5006 doshowlocalchanges
5007 }
5008 return 0
5009 }
5011 proc doshowlocalchanges {} {
5012 global curview viewmainheadid
5016 dodiffindex
5017 } else {
5019 }
5020 }
5022 proc dohidelocalchanges {} {
5023 global nullid nullid2 lserial curview
5027 }
5030 }
5031 incr lserial
5032 }
5034 # spawn off a process to do git diff-index --cached HEAD
5035 proc dodiffindex {} {
5036 global lserial showlocalchanges vfilelimit curview
5037 global hasworktree
5040 incr lserial
5041 set cmd "|git diff-index --cached HEAD"
5044 }
5049 }
5051 proc readdiffindex {fd serial inst} {
5052 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5053 global vfilelimit
5055 set isdiff 1
5058 return 1
5059 }
5060 set isdiff 0
5061 }
5062 # we only need to see one line and we don't really care what it says...
5066 return 0
5067 }
5069 # now see if there are any local changes not checked in to the index
5070 set cmd "|git diff-files"
5073 }
5080 # add the line for the changes in the index to the graph
5081 set hl [mc "Local changes checked in to index but not committed"]
5086 }
5091 }
5093 }
5094 return 0
5095 }
5097 proc readdifffiles {fd serial inst} {
5098 global viewmainheadid nullid nullid2 curview
5099 global commitinfo commitdata lserial
5101 set isdiff 1
5104 return 1
5105 }
5106 set isdiff 0
5107 }
5108 # we only need to see one line and we don't really care what it says...
5112 return 0
5113 }
5116 # add the line for the local diff to the graph
5117 set hl [mc "Local uncommitted changes, not checked in to index"]
5122 } else {
5124 }
5128 }
5129 return 0
5130 }
5132 proc nextuse {id row} {
5133 global curview children
5138 return -1
5139 }
5142 }
5143 }
5144 }
5147 }
5148 return -1
5149 }
5151 proc prevuse {id row} {
5152 global curview children
5154 set ret -1
5160 }
5161 }
5162 }
5164 }
5166 proc make_idlist {row} {
5167 global displayorder parentlist uparrowlen downarrowlen mingaplen
5168 global commitidx curview children
5172 set r 0
5173 }
5176 set ra 0
5177 }
5181 }
5183 set ids {}
5192 }
5193 }
5194 }
5202 }
5203 }
5204 }
5212 }
5213 }
5214 incr r
5220 }
5221 }
5222 }
5223 set idlist {}
5226 }
5228 }
5230 proc rowsequal {a b} {
5233 }
5236 }
5238 }
5240 proc makeupline {id row rend col} {
5241 global rowidlist uparrowlen downarrowlen mingaplen
5247 }
5250 }
5257 }
5258 }
5259 }
5261 proc layoutrows {row endrow} {
5262 global rowidlist rowisopt rowfinal displayorder
5263 global uparrowlen downarrowlen maxwidth mingaplen
5264 global children parentlist
5265 global commitidx viewcomplete curview
5268 set idlist {}
5274 }
5275 }
5277 }
5282 set final 1
5283 } else {
5291 # if not the first child, we have to insert a line going up
5294 }
5295 }
5296 }
5306 }
5307 }
5308 }
5315 }
5316 }
5326 }
5327 }
5335 }
5336 }
5337 }
5338 }
5339 }
5343 set final 0
5344 }
5348 lappend rowisopt 0
5354 }
5356 } else {
5363 }
5364 }
5366 }
5368 proc changedrow {row} {
5369 global displayorder iddrawn rowisopt need_redisplay
5378 }
5379 }
5380 }
5383 set need_redisplay 1
5384 }
5385 }
5387 proc insert_pad {row col npad} {
5388 global rowidlist
5397 }
5400 }
5402 proc optimize_rows {row col endrow} {
5403 global rowidlist rowisopt displayorder curview children
5406 set row 1
5407 }
5410 set haspad 0
5419 } else {
5420 set pprevidlist {}
5421 }
5422 set x0 -1
5423 set xm -1
5428 set haspad 1
5429 continue
5430 }
5434 set isarrow 0
5435 set z0 {}
5440 }
5441 }
5446 set isarrow 1
5447 }
5448 }
5451 set isarrow 1
5452 }
5453 # Looking at lines from this row to the previous row,
5454 # make them go straight up if they end in an arrow on
5455 # the previous row; otherwise make them go straight up
5456 # or at 45 degrees.
5458 # Line currently goes left too much;
5459 # insert pads in the previous row, then optimize it
5464 }
5472 }
5474 # Line currently goes right too much;
5475 # insert pads in this line
5481 set haspad 1
5482 }
5489 }
5490 }
5491 # avoid lines jigging left then immediately right
5494 incr x0
5497 }
5498 }
5500 # Find the first column that doesn't have a line going right
5506 # check if this is the link to the first child
5509 # it is, work out offset to child
5511 }
5512 }
5514 }
5515 # Insert a pad at that column as long as it has a line and
5516 # isn't the last column
5521 }
5522 }
5523 }
5524 }
5526 proc xc {row col} {
5527 global canvx0 linespc
5529 }
5531 proc yc {row} {
5532 global canvy0 linespc
5534 }
5536 proc linewidth {id} {
5537 global thickerline lthickness
5542 }
5544 }
5546 proc rowranges {id} {
5547 global curview children uparrowlen downarrowlen
5548 global rowidlist
5552 return {}
5553 }
5554 set ret {}
5559 if {![info exists prev]} {
5561 } else {
5563 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5564 }
5565 # see if the line extends the whole way from prevrow to row
5569 # it doesn't, see where it ends
5574 } else {
5577 incr r -1
5578 }
5580 # see where it starts up again
5585 } else {
5588 incr r
5589 }
5591 }
5592 }
5595 }
5598 }
5600 }
5602 proc drawlineseg {id row endrow arrowlow} {
5603 global rowidlist displayorder iddrawn linesegs
5604 global canv colormap linespc curview maxlinelen parentlist
5608 set arrowhigh 1
5609 while {1} {
5612 incr le -1
5613 break
5614 }
5618 set arrowhigh 0
5619 break
5620 }
5625 set arrowhigh 0
5626 }
5627 break
5628 }
5629 incr le
5630 }
5633 }
5635 set lines {}
5636 set i 0
5637 set joinhigh 0
5644 set joinhigh 1
5645 }
5646 break
5647 }
5648 incr i
5649 }
5650 }
5651 set joinlow 0
5656 set joinlow 1
5657 }
5658 }
5671 }
5672 } else {
5674 }
5682 set arrowlow 0
5683 }
5684 }
5692 }
5694 }
5697 # join parent line to first child
5708 } else {
5710 }
5718 }
5720 }
5722 } else {
5726 }
5734 } else {
5738 }
5740 }
5741 } else {
5747 }
5751 } else {
5752 # coalesce two pieces
5757 }
5761 }
5762 }
5766 }
5768 proc drawparentlinks {id row} {
5769 global rowidlist canv colormap curview parentlist
5770 global idpos linespc
5783 # rmx = right-most X coord used
5784 set rmx 0
5789 continue
5790 }
5794 }
5797 # drawlineseg will do this one for us
5798 continue
5799 }
5801 # should handle duplicated parents here...
5804 # if attaching to a vertical segment, draw a smaller
5805 # slant for visual distinctness
5809 } else {
5811 }
5813 # segment slants towards us already
5815 } else {
5820 }
5822 }
5823 } else {
5825 }
5830 }
5834 }
5835 }
5837 proc drawlines {id} {
5838 global canv
5841 }
5843 proc drawcmittext {id row col} {
5844 global linespc canv canv2 canv3 fgcolor curview
5845 global cmitlisted commitinfo rowidlist parentlist
5846 global rowtextx idpos idtags idheads idotherrefs
5847 global linehtag linentag linedtag selectedline
5848 global canvxmax boldids boldnameids fgcolor markedid
5849 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5851 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5854 set ofill red
5856 set ofill green
5858 set ofill yellow
5859 } else {
5861 }
5870 # triangle pointing left for left-side commits
5876 } else {
5877 # triangle pointing right for right-side commits
5883 }
5895 }
5896 }
5897 }
5904 }
5907 }
5912 set font mainfont
5913 set nfont mainfont
5917 set font mainfontbold
5920 set nfont mainfontbold
5921 }
5922 }
5932 }
5935 }
5939 setcanvscroll
5940 }
5941 }
5943 proc drawcmitrow {row} {
5944 global displayorder rowidlist nrows_drawn
5945 global iddrawn markingmatches
5946 global commitinfo numcommits
5947 global filehighlight fhighlights findpattern nhighlights
5948 global hlview vhighlights
5949 global highlight_related rhighlights
5956 }
5959 }
5962 }
5965 }
5970 return
5971 }
5974 }
5978 incr nrows_drawn
5979 }
5982 }
5983 }
5985 proc drawcommits {row {endrow {}}} {
5986 global numcommits iddrawn displayorder curview need_redisplay
5987 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5990 set row 0
5991 }
5994 }
5997 }
6001 set rl1 0
6002 }
6005 set ro1 0
6006 }
6010 }
6015 }
6017 }
6018 }
6021 }
6024 clear_display
6025 }
6027 # make the lines join to already-drawn rows either side
6031 }
6036 }
6051 # see if this is the first child of any of its parents
6054 # make this line extend up to the child
6056 }
6057 }
6058 } else {
6060 }
6061 }
6062 }
6063 }
6065 proc undolayout {row} {
6066 global uparrowlen mingaplen downarrowlen
6067 global rowidlist rowisopt rowfinal need_redisplay
6071 set r 0
6072 }
6074 incr r -1
6078 set need_redisplay 1
6079 run drawvisible
6080 }
6081 }
6083 proc drawvisible {} {
6084 global canv linespc curview vrowmod selectedline targetrow targetid
6085 global need_redisplay cscroll numcommits
6095 if {[info exists targetid]} {
6099 # Fix up the scrollregion and change the scrolling position
6100 # now that our target row has moved.
6103 setcanvscroll
6111 set need_redisplay 1
6112 }
6113 } else {
6114 unset targetid
6115 }
6116 }
6122 }
6126 } elseif {[info exists targetid]} {
6128 }
6129 if {[info exists targetrow]} {
6132 }
6134 }
6136 }
6138 proc clear_display {} {
6139 global iddrawn linesegs need_redisplay nrows_drawn
6140 global vhighlights fhighlights nhighlights rhighlights
6141 global linehtag linentag linedtag boldids boldnameids
6143 allcanvs delete all
6144 catch {unset iddrawn}
6145 catch {unset linesegs}
6146 catch {unset linehtag}
6147 catch {unset linentag}
6148 catch {unset linedtag}
6149 set boldids {}
6150 set boldnameids {}
6151 catch {unset vhighlights}
6152 catch {unset fhighlights}
6153 catch {unset nhighlights}
6154 catch {unset rhighlights}
6155 set need_redisplay 0
6156 set nrows_drawn 0
6157 }
6159 proc findcrossings {id} {
6160 global rowidlist parentlist numcommits displayorder
6162 set cross {}
6163 set ccross {}
6167 }
6186 }
6187 }
6188 }
6189 }
6190 }
6192 }
6194 proc assigncolor {id} {
6195 global colormap colors nextcolor
6196 global parents children children curview
6202 } else {
6203 set kids {}
6204 }
6210 return
6211 }
6212 }
6213 set badcolors {}
6214 set origbad {}
6217 # delimiter between corner crossings and other crossings
6220 }
6224 }
6225 }
6228 }
6235 }
6240 }
6241 }
6242 }
6245 }
6246 }
6250 set nextcolor 0
6251 }
6253 }
6255 }
6257 proc bindline {t id} {
6258 global canv
6264 }
6266 proc drawtags {id x xt y1} {
6267 global idtags idheads idotherrefs mainhead
6268 global linespc lthickness
6269 global canv rowtextx curview fgcolor bgcolor ctxbut
6271 set marks {}
6272 set ntags 0
6273 set nheads 0
6277 }
6281 }
6284 }
6287 }
6292 set xvals {}
6293 set wvals {}
6294 set i -1
6296 incr i
6299 } else {
6301 }
6305 }
6313 set font mainfont
6314 if {[incr ntags -1] >= 0} {
6315 # draw a tag
6321 } else {
6322 # draw a head or other ref
6323 if {[incr nheads -1] >= 0} {
6324 set col green
6326 set font mainfontbold
6327 }
6328 } else {
6329 set col "#ddddff"
6330 }
6341 }
6342 }
6349 }
6350 }
6352 }
6354 proc drawnotesign {xt y} {
6355 global linespc canv fgcolor
6363 }
6365 proc xcoord {i level ln} {
6366 global canvx0 xspc1 xspc2
6373 }
6375 }
6377 proc show_status {msg} {
6378 global canv fgcolor
6380 clear_display
6383 }
6385 # Don't change the text pane cursor if it is currently the hand cursor,
6386 # showing that we are over a sha1 ID link.
6387 proc settextcursor {c} {
6388 global ctext curtextcursor
6392 }
6394 }
6396 proc nowbusy {what {name {}}} {
6397 global isbusy busyname statusw
6399 if {[array names isbusy] eq {}} {
6400 . config -cursor watch
6401 settextcursor watch
6402 }
6407 }
6408 }
6410 proc notbusy {what} {
6411 global isbusy maincursor textcursor busyname statusw
6413 catch {
6418 }
6419 }
6420 if {[array names isbusy] eq {}} {
6423 }
6424 }
6426 proc findmatches {f} {
6427 global findtype findstring
6430 } else {
6435 }
6436 set matches {}
6437 set i 0
6442 }
6443 }
6445 }
6447 proc dofind {{dirn 1} {wrap 1}} {
6448 global findstring findstartline findcurline selectedline numcommits
6449 global gdttype filehighlight fh_serial find_dirn findallowwrap
6451 if {[info exists find_dirn]} {
6453 stopfinding
6454 }
6455 focus .
6459 } else {
6461 }
6463 nowbusy finding [mc "Searching"]
6467 }
6470 run findmore
6471 }
6473 proc stopfinding {} {
6474 global find_dirn findcurline fprogcoord
6476 if {[info exists find_dirn]} {
6477 unset find_dirn
6478 unset findcurline
6479 notbusy finding
6480 set fprogcoord 0
6481 adjustprogress
6482 }
6483 stopblaming
6484 }
6486 proc findmore {} {
6487 global commitdata commitinfo numcommits findpattern findloc
6488 global findstartline findcurline findallowwrap
6489 global find_dirn gdttype fhighlights fprogcoord
6490 global curview varcorder vrownum varccommits vrowmod
6492 if {![info exists find_dirn]} {
6493 return 0
6494 }
6495 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6497 set moretodo 0
6499 incr l
6501 set l 0
6502 }
6505 } else {
6508 }
6509 } else {
6512 }
6513 incr l -1
6516 } else {
6517 set lim -1
6519 }
6520 }
6523 set n 500
6524 set moretodo 1
6525 }
6528 }
6529 set found 0
6530 set domore 1
6544 }
6546 # shouldn't happen unless git log doesn't give all the commits...
6549 continue
6550 }
6553 }
6558 set found 1
6559 break
6560 }
6561 }
6563 }
6564 } else {
6572 }
6577 }
6580 break
6581 }
6584 set domore 0
6586 }
6587 }
6588 }
6589 }
6591 unset findcurline
6592 unset find_dirn
6593 notbusy finding
6594 set fprogcoord 0
6595 adjustprogress
6598 } else {
6599 bell
6600 }
6601 return 0
6602 }
6604 flushhighlights
6605 } else {
6607 }
6611 }
6613 adjustprogress
6615 }
6617 proc findselectline {l} {
6618 global findloc commentend ctext findcurline markingmatches gdttype
6625 # highlight the matches in the comments
6632 }
6633 }
6634 drawvisible
6635 }
6637 # mark the bits of a headline or author that match a find string
6638 proc markmatches {canv l str tag matches font row} {
6639 global selectedline
6657 }
6658 }
6659 }
6661 proc unmarkmatches {} {
6662 global markingmatches
6664 allcanvs delete matches
6665 set markingmatches 0
6666 stopfinding
6667 }
6669 proc selcanvline {w x y} {
6670 global canv canvy0 ctext linespc
6671 global rowtextx
6678 set l 0
6679 }
6684 }
6685 unmarkmatches
6687 }
6689 proc commit_descriptor {p} {
6690 global commitinfo
6693 }
6694 set l "..."
6697 }
6699 }
6701 # append some text to the ctext widget, and make any SHA1 ID
6702 # that we know about be a clickable link.
6703 proc appendwithlinks {text tags} {
6704 global ctext linknum curview
6713 incr e
6717 incr linknum
6718 }
6719 }
6721 proc setlink {id lk} {
6722 global curview ctext pendinglinks
6724 set known 0
6729 set known 1
6731 }
6732 } else {
6734 }
6740 } else {
6743 }
6744 }
6746 proc appendshortlink {id {pre {}} {post {}}} {
6747 global ctext linknum
6754 incr linknum
6755 }
6757 proc makelink {id} {
6758 global pendinglinks
6763 }
6765 }
6767 proc linkcursor {w inc} {
6768 global linkentercount curtextcursor
6772 } else {
6775 set linkentercount 0
6776 }
6777 }
6778 }
6780 proc viewnextline {dir} {
6781 global canv linespc
6789 set newtop 0
6792 }
6794 }
6796 # add a list of tag or branch names at position pos
6797 # returns the number of names inserted
6798 proc appendrefs {pos ids var} {
6802 return 0
6803 }
6806 set tags {}
6810 }
6811 }
6814 } else {
6816 set sep {}
6820 incr linknum
6825 set sep ", "
6826 }
6827 }
6830 }
6832 # called when we have finished computing the nearby tags
6833 proc dispneartags {delay} {
6834 global selectedline currentid showneartags tagphase
6837 after cancel dispnexttag
6839 after 200 dispnexttag
6840 set tagphase -1
6841 } else {
6842 after idle dispnexttag
6843 set tagphase 0
6844 }
6845 }
6847 proc dispnexttag {} {
6848 global selectedline currentid showneartags tagphase ctext
6852 0 {
6856 }
6857 }
6858 1 {
6862 }
6863 }
6864 2 {
6869 # turn "Branch" into "Branches"
6873 }
6874 }
6875 }
6876 }
6877 if {[incr tagphase] <= 2} {
6878 after idle dispnexttag
6879 }
6880 }
6882 proc make_secsel {id} {
6883 global linehtag linentag linedtag canv canv2 canv3
6898 }
6900 proc make_idmark {id} {
6901 global linehtag canv fgcolor
6908 }
6910 proc selectline {l isnew {desired_loc {}}} {
6911 global canv ctext commitinfo selectedline
6912 global canvy0 linespc parents children curview
6913 global currentid sha1entry
6914 global commentend idtags linknum
6915 global mergemax numcommits pending_select
6916 global cmitmode showneartags allcommits
6917 global targetrow targetid lastscrollrows
6918 global autoselect autosellen jump_to_here
6920 catch {unset pending_select}
6922 normalline
6923 unsel_reflist
6924 stopfinding
6932 setcanvscroll
6933 }
6947 } else {
6951 }
6952 }
6956 } else {
6960 }
6961 }
6962 }
6965 set newtop 0
6966 }
6968 drawvisible
6969 }
6975 }
6981 }
6985 clear_ctext
6986 set linknum 0
6989 }
6999 }
7001 }
7003 set headers {}
7006 set np 0
7009 set tag mmax
7010 } else {
7012 }
7015 incr np
7016 }
7017 } else {
7020 }
7021 }
7025 }
7027 # make anything that looks like a SHA1 ID be a clickable link
7030 if {![info exists allcommits]} {
7031 getallcommits
7032 }
7043 dispneartags 1
7044 }
7049 }
7057 init_flist [mc "Comments"]
7062 } else {
7064 }
7065 }
7067 proc selfirstline {} {
7068 unmarkmatches
7069 selectline 0 1
7070 }
7072 proc sellastline {} {
7073 global numcommits
7074 unmarkmatches
7077 }
7079 proc selnextline {dir} {
7080 global selectedline
7081 focus .
7084 unmarkmatches
7086 }
7088 proc selnextpage {dir} {
7089 global canv linespc selectedline numcommits
7093 set lpp 1
7094 }
7096 drawvisible
7100 set l 0
7103 }
7104 unmarkmatches
7106 }
7108 proc unselectline {} {
7109 global selectedline currentid
7111 set selectedline {}
7112 catch {unset currentid}
7113 allcanvs delete secsel
7114 rhighlight_none
7115 }
7117 proc reselectline {} {
7118 global selectedline
7122 }
7123 }
7125 proc addtohistory {cmd {saveproc {}}} {
7126 global history historyindex curview
7128 unset_posvars
7129 save_position
7133 return
7134 }
7138 } else {
7140 }
7141 incr historyindex
7143 .tf.bar.leftbut conf -state normal
7144 } else {
7145 .tf.bar.leftbut conf -state disabled
7146 }
7147 .tf.bar.rightbut conf -state disabled
7148 }
7150 # save the scrolling position of the diff display pane
7151 proc save_position {} {
7152 global historyindex history
7159 }
7160 }
7162 proc unset_posvars {} {
7163 global last_posvars
7165 if {[info exists last_posvars]} {
7169 }
7170 unset last_posvars
7171 }
7172 }
7174 proc godo {elt} {
7175 global curview last_posvars
7182 }
7183 unset_posvars
7187 }
7190 }
7192 proc goback {} {
7193 global history historyindex
7194 focus .
7197 save_position
7198 incr historyindex -1
7200 .tf.bar.rightbut conf -state normal
7201 }
7203 .tf.bar.leftbut conf -state disabled
7204 }
7205 }
7207 proc goforw {} {
7208 global history historyindex
7209 focus .
7212 save_position
7214 incr historyindex
7216 .tf.bar.leftbut conf -state normal
7217 }
7219 .tf.bar.rightbut conf -state disabled
7220 }
7221 }
7223 proc gettree {id} {
7224 global treefilelist treeidlist diffids diffmergeid treepending
7225 global nullid nullid2
7228 catch {unset diffmergeid}
7230 if {![info exists treepending]} {
7232 set cmd [list | git ls-files]
7234 set cmd [list | git ls-files --stage -t]
7235 } else {
7237 }
7239 return
7240 }
7246 }
7247 } else {
7249 }
7250 }
7252 proc gettreeline {gtf id} {
7253 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7255 set nl 0
7259 } else {
7267 }
7270 }
7273 }
7276 }
7278 unset treepending
7280 if {![info exists diffmergeid]} {
7282 }
7285 } else {
7287 }
7288 return 0
7289 }
7291 proc showfile {f} {
7292 global treefilelist treeidlist diffids nullid nullid2
7293 global ctext_file_names ctext_file_lines
7294 global ctext commentend
7299 return
7300 }
7304 return
7305 }
7306 } else {
7310 return
7311 }
7312 }
7323 settabs 0
7324 }
7326 proc getblobline {bf id} {
7327 global diffids cmitmode ctext
7331 return 0
7332 }
7334 set nl 0
7337 }
7339 global jump_to_here ctext_file_names commentend
7341 # delete last newline
7349 }
7351 return 0
7352 }
7355 }
7357 proc mark_ctext_line {lnum} {
7358 global ctext markbgcolor
7364 }
7366 proc mergediff {id} {
7367 global diffmergeid
7368 global diffids treediffs
7369 global parents curview
7377 }
7379 proc startdiff {ids} {
7380 global treediffs diffids treepending diffmergeid nullid nullid2
7382 settabs 1
7384 catch {unset diffmergeid}
7388 if {![info exists treepending]} {
7390 }
7391 } else {
7393 }
7394 }
7396 proc path_filter {filter name} {
7401 return 1
7402 }
7403 } else {
7407 return 1
7408 }
7409 }
7410 }
7411 return 0
7412 }
7414 proc addtocflist {ids} {
7415 global treediffs
7419 }
7421 proc diffcmd {ids flags} {
7422 global nullid nullid2
7428 # comparing working directory with some specific revision
7432 } else {
7434 }
7435 } else {
7436 # comparing working directory with index
7439 lappend cmd -R
7440 }
7441 }
7445 # comparing index with specific revision
7448 } else {
7450 }
7451 } else {
7452 # comparing index with HEAD
7453 lappend cmd HEAD
7454 }
7455 } else {
7457 }
7459 }
7461 proc gettreediffs {ids} {
7462 global treediff treepending
7467 set treediff {}
7470 }
7472 proc gettreediffline {gdtf ids} {
7473 global treediff treediffs treepending diffids diffmergeid
7474 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7476 set nr 0
7477 set sublist {}
7478 set max 1000
7480 # cache_gitattr is slow, and even slower on win32 where we
7481 # have to invoke it for only about 30 paths at a time
7482 set max 500
7483 if {[tk windowingsystem] == "win32"} {
7484 set max 120
7485 }
7486 }
7493 }
7498 }
7499 }
7500 }
7503 }
7506 }
7509 set flist {}
7513 }
7514 }
7516 } else {
7518 }
7519 unset treepending
7523 if {![info exists diffmergeid]} {
7525 }
7526 } else {
7528 }
7529 return 0
7530 }
7532 # empty string or positive integer
7533 proc diffcontextvalidate {v} {
7535 }
7537 proc diffcontextchange {n1 n2 op} {
7538 global diffcontextstring diffcontext
7543 reselectline
7544 }
7545 }
7546 }
7548 proc changeignorespace {} {
7549 reselectline
7550 }
7552 proc changeworddiff {name ix op} {
7553 reselectline
7554 }
7556 proc getblobdiffs {ids} {
7557 global blobdifffd diffids env
7558 global diffinhdr treediffs
7559 global diffcontext
7560 global ignorespace
7561 global worddiff
7562 global limitdiffs vfilelimit curview
7563 global diffencoding targetline diffnparents
7564 global git_version currdiffsubmod
7566 set textconv {}
7568 set textconv "--textconv"
7569 }
7570 set submodule {}
7572 set submodule "--submodule"
7573 }
7576 append cmd " -w"
7577 }
7579 append cmd " --word-diff=porcelain"
7580 }
7583 }
7586 return
7587 }
7588 set targetline {}
7589 set diffnparents 0
7590 set diffinhdr 0
7591 set diffencoding [get_path_encoding {}]
7594 set currdiffsubmod ""
7596 }
7598 proc savecmitpos {} {
7599 global ctext cmitmode
7602 return {}
7603 }
7605 }
7607 proc savectextpos {} {
7608 global ctext
7611 }
7613 proc maybe_scroll_ctext {ateof} {
7614 global ctext target_scrollpos
7616 if {![info exists target_scrollpos]} return
7619 / [font metrics textfont -linespace]}]
7621 }
7623 unset target_scrollpos
7624 }
7626 proc setinlist {var i val} {
7631 }
7634 } else {
7636 }
7637 }
7639 proc makediffhdr {fname ids} {
7640 global ctext curdiffstart treediffs diffencoding
7641 global ctext_file_names jump_to_here targetline diffline
7648 }
7653 set targetline {}
7656 }
7657 set diffline 0
7658 }
7660 proc getblobdiffline {bdf ids} {
7661 global diffids blobdifffd ctext curdiffstart
7662 global diffnexthead diffnextnote difffilestart
7663 global ctext_file_names ctext_file_lines
7664 global diffinhdr treediffs mergemax diffnparents
7665 global diffencoding jump_to_here targetline diffline currdiffsubmod
7666 global worddiff
7668 set nr 0
7673 return 0
7674 }
7679 continue
7680 }
7681 # start of a new file
7682 set diffinhdr 1
7685 lappend ctext_file_names ""
7690 # start of a new file in a merge diff
7695 }
7697 } else {
7699 # If the name hasn't changed the length will be odd,
7700 # the middle char will be a space, and the two bits either
7701 # side will be a/name and b/name, or "a/name" and "b/name".
7702 # If the name has changed we'll get "rename from" and
7703 # "rename to" or "copy from" and "copy to" lines following
7704 # this, and we'll use them to get the filenames.
7705 # This complexity is necessary because spaces in the
7706 # filename(s) don't get escaped.
7712 continue
7713 }
7714 # unescape if quoted and chop off the a/ from the front
7717 } else {
7719 }
7720 }
7733 }
7741 }
7743 set diffinhdr 0
7746 # start of a new submodule
7749 } else {
7751 }
7754 }
7756 lappend ctext_file_names ""
7762 } else {
7764 }
7778 }
7783 }
7789 }
7792 # do nothing
7793 continue
7795 set diffinhdr 0
7796 continue
7797 }
7800 } else {
7801 set line [string map {\x1A ^Z} \
7803 # parse the prefix - one ' ', '-' or '+' for each parent
7807 set words_pre_markup ""
7808 set words_post_markup ""
7810 # prefix only has " ", "-" and "+" in it: normal diff line
7814 }
7818 set num "max"
7819 }
7822 } else {
7824 }
7827 }
7828 } else {
7829 set tags {}
7831 # added line
7837 set num "max"
7838 }
7840 }
7841 }
7842 set words_pre_markup "{+"
7843 set words_post_markup "+}"
7844 }
7848 set targetline {}
7849 } else {
7850 incr diffline
7851 }
7852 }
7855 } else {
7857 }
7860 }
7861 }
7864 } else {
7865 # "\ No newline at end of file",
7866 # or something else we don't recognize
7868 }
7869 }
7870 }
7871 if {[info exists seehere]} {
7873 }
7878 return 0
7879 }
7881 }
7883 proc changediffdisp {} {
7884 global ctext diffelide
7888 }
7890 proc highlightfile {loc cline} {
7891 global ctext cflist cflist_top
7898 }
7900 proc prevfile {} {
7901 global difffilestart ctext cmitmode
7904 set prev 0.0
7905 set prevline 1
7910 return
7911 }
7913 incr prevline
7914 }
7916 }
7918 proc nextfile {} {
7919 global difffilestart ctext cmitmode
7923 set line 1
7925 incr line
7928 return
7929 }
7930 }
7931 }
7933 proc clear_ctext {{first 1.0}} {
7934 global ctext smarktop smarkbot
7935 global ctext_file_names ctext_file_lines
7936 global pendinglinks
7941 }
7944 }
7947 catch {unset pendinglinks}
7948 }
7949 set ctext_file_names {}
7950 set ctext_file_lines {}
7951 }
7953 proc settabs {{firstab {}}} {
7954 global firsttabstop tabstop ctext have_tk85
7958 }
7959 set w [font measure textfont "0"]
7965 } else {
7967 }
7968 }
7970 proc incrsearch {name ix op} {
7971 global ctext searchstring searchdirn
7975 # no anchor set, use start of selection, or of visible area
7981 } else {
7983 }
7984 }
7989 }
7990 searchmarkvisible 1
7991 }
7992 }
7994 proc dosearch {} {
7995 global sstring ctext searchstring searchdirn
7999 set searchdirn -forwards
8005 set start "@0,0"
8006 }
8010 bell
8011 return
8012 }
8017 }
8018 }
8020 proc dosearchback {} {
8021 global sstring ctext searchstring searchdirn
8025 set searchdirn -backwards
8032 }
8036 bell
8037 return
8038 }
8043 }
8044 }
8046 proc searchmark {first last} {
8047 global ctext searchstring
8050 while {1} {
8055 }
8056 }
8058 proc searchmarkvisible {doall} {
8059 global ctext smarktop smarkbot
8064 # no overlap with previous
8068 } else {
8072 }
8076 }
8077 }
8078 }
8080 proc scrolltext {f0 f1} {
8081 global searchstring
8085 searchmarkvisible 0
8086 }
8087 }
8089 proc setcoords {} {
8090 global linespc charspc canvx0 canvy0
8091 global xspc1 xspc2 lthickness
8093 set linespc [font metrics mainfont -linespace]
8094 set charspc [font measure mainfont "m"]
8100 }
8102 proc redisplay {} {
8103 global canv
8104 global selectedline
8109 clear_display
8110 setcanvscroll
8112 drawvisible
8116 }
8117 }
8119 proc parsefont {f n} {
8120 global fontattr
8125 set s 10
8128 }
8134 "normal" -
8136 "roman" -
8138 }
8139 }
8140 }
8142 proc fontflags {f {isbold 0}} {
8143 global fontattr
8148 }
8150 proc fontname {f} {
8151 global fontattr
8155 lappend n "bold"
8156 }
8158 lappend n "italic"
8159 }
8161 }
8163 proc incrfont {inc} {
8164 global mainfont textfont ctext canv cflist showrefstop
8165 global stopped entries fontattr
8167 unmarkmatches
8171 set s 1
8172 }
8176 set mainfont [fontname mainfont]
8180 set s 1
8181 }
8185 set textfont [fontname textfont]
8186 setcoords
8187 settabs
8188 redisplay
8189 }
8191 proc clearsha1 {} {
8192 global sha1entry sha1string
8195 }
8196 }
8198 proc sha1change {n1 n2 op} {
8199 global sha1string currentid sha1but
8202 set state disabled
8203 } else {
8204 set state normal
8205 }
8209 } else {
8211 }
8212 }
8214 proc gotocommit {} {
8215 global sha1string tagids headids curview varcid
8223 } else {
8230 return
8231 }
8233 }
8234 } else {
8237 return
8238 }
8239 }
8240 }
8243 return
8244 }
8247 } else {
8249 }
8251 }
8253 proc lineenter {x y id} {
8254 global hoverx hovery hoverid hovertimer
8255 global commitinfo canv
8261 if {[info exists hovertimer]} {
8263 }
8264 set hovertimer [after 500 linehover]
8266 }
8268 proc linemotion {x y id} {
8269 global hoverx hovery hoverid hovertimer
8274 if {[info exists hovertimer]} {
8276 }
8277 set hovertimer [after 500 linehover]
8278 }
8279 }
8281 proc lineleave {id} {
8282 global hoverid hovertimer canv
8286 if {[info exists hovertimer]} {
8288 unset hovertimer
8289 }
8290 unset hoverid
8291 }
8292 }
8294 proc linehover {} {
8295 global hoverx hovery hoverid hovertimer
8296 global canv linespc lthickness
8297 global commitinfo
8310 -fill \#ffff80 -outline black -width 1 -tags hover]
8313 -font mainfont]
8315 }
8317 proc clickisonarrow {id y} {
8318 global lthickness
8327 }
8328 }
8329 return {}
8330 }
8332 proc arrowjump {id n y} {
8333 global canv
8335 # 1 <-> 2, 3 <-> 4, etc...
8345 set yfrac 0
8346 }
8348 }
8350 proc lineclick {x y id isnew} {
8351 global ctext commitinfo children canv thickerline curview
8354 unmarkmatches
8355 unselectline
8356 normalline
8358 # draw this line thicker than normal
8366 }
8370 return
8371 }
8375 }
8376 # fill the details pane with info about this line
8378 clear_ctext
8379 settabs 0
8391 set i 0
8393 incr i
8403 }
8404 }
8405 maybe_scroll_ctext 1
8407 init_flist {}
8408 }
8410 proc normalline {} {
8411 global thickerline
8412 if {[info exists thickerline]} {
8414 unset thickerline
8416 }
8417 }
8419 proc selbyid {id {isnew 1}} {
8420 global curview
8423 }
8424 }
8426 proc mstime {} {
8427 global startmstime
8428 if {![info exists startmstime]} {
8429 set startmstime [clock clicks -milliseconds]
8430 }
8432 }
8434 proc rowmenu {x y id} {
8435 global rowctxmenu selectedline rowmenuid curview
8436 global nullid nullid2 fakerowmenu mainhead markedid
8438 stopfinding
8441 set state disabled
8442 } else {
8443 set state normal
8444 }
8449 } else {
8451 }
8456 } else {
8460 }
8461 } else {
8463 }
8468 }
8470 proc markhere {} {
8471 global rowmenuid markedid canv
8475 }
8477 proc gotomark {} {
8478 global markedid
8480 if {[info exists markedid]} {
8482 }
8483 }
8485 proc replace_by_kids {l r} {
8486 global curview children
8492 }
8494 }
8496 proc find_common_desc {} {
8497 global markedid rowmenuid curview children
8499 if {![info exists markedid]} return
8502 #set t1 [clock clicks -milliseconds]
8505 while 1 {
8511 break
8512 }
8515 } else {
8517 }
8518 }
8519 #set t2 [clock clicks -milliseconds]
8521 }
8523 proc compare_commits {} {
8524 global markedid rowmenuid curview children
8526 if {![info exists markedid]} return
8530 }
8532 proc getpatchid {id} {
8533 global patchids
8537 # trim off the initial "|"
8539 if {[catch {
8542 }]} {
8544 }
8545 }
8547 }
8549 proc do_cmp_commits {a b} {
8550 global ctext curview parents children patchids commitinfo
8553 clear_ctext
8554 init_flist {}
8556 set skipa 0
8557 set skipb 0
8560 set skipa 1
8561 } else {
8563 }
8566 set skipb 1
8567 } else {
8569 }
8575 [mc " - stopping\n"]
8576 break
8577 }
8580 [mc " - stopping\n"]
8581 break
8582 }
8587 } else {
8591 }
8592 set skipa 1
8593 set skipb 1
8594 } else {
8601 update
8603 return
8604 }
8605 }
8612 break
8613 }
8615 }
8621 break
8622 }
8624 }
8625 }
8627 }
8629 proc diffcommits {a b} {
8630 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8632 set tmpdir [gitknewtmpdir]
8635 if {[catch {
8638 } err]} {
8640 return
8641 }
8642 if {[catch {
8644 } err]} {
8646 return
8647 }
8650 set diffinhdr 0
8651 set currdiffsubmod ""
8653 }
8655 proc diffvssel {dirn} {
8656 global rowmenuid selectedline
8662 } else {
8665 }
8668 }
8670 proc doseldiff {oldid newid} {
8671 global ctext
8672 global commitinfo
8675 clear_ctext
8676 init_flist [mc "Top"]
8691 }
8693 proc mkpatch {} {
8694 global rowmenuid currentid commitinfo patchtop patchnum NS
8696 if {![info exists currentid]} return
8701 set top .patch
8731 incr patchnum
8743 }
8745 proc mkpatchrev {} {
8746 global patchtop
8752 foreach e [list fromsha1 fromhead tosha1 tohead] \
8758 }
8759 }
8761 proc mkpatchgo {} {
8762 global patchtop nullid nullid2
8768 # trim off the initial "|"
8773 }
8775 unset patchtop
8776 }
8778 proc mkpatchcan {} {
8779 global patchtop
8782 unset patchtop
8783 }
8785 proc mktag {} {
8786 global rowmenuid mktagtop commitinfo NS
8788 set top .maketag
8822 }
8824 proc domktag {} {
8825 global mktagtop env tagids idtags
8832 return 0
8833 }
8836 return 0
8837 }
8838 if {[catch {
8841 } else {
8843 }
8844 } err]} {
8846 return 0
8847 }
8853 dispneartags 0
8854 run refill_reflist
8855 return 1
8856 }
8858 proc redrawtags {id} {
8859 global canv linehtag idpos currentid curview cmitlisted markedid
8860 global canvxmax iddrawn circleitem mainheadid circlecolors
8866 set ofill yellow
8867 } else {
8869 }
8879 setcanvscroll
8880 }
8883 }
8886 }
8887 }
8889 proc mktagcan {} {
8890 global mktagtop
8893 unset mktagtop
8894 }
8896 proc mktaggo {} {
8897 if {![domktag]} return
8898 mktagcan
8899 }
8901 proc writecommit {} {
8902 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8904 set top .writecommit
8937 }
8939 proc wrcomgo {} {
8940 global wrcomtop
8947 }
8949 unset wrcomtop
8950 }
8952 proc wrcomcan {} {
8953 global wrcomtop
8956 unset wrcomtop
8957 }
8959 proc mkbranch {} {
8960 global rowmenuid mkbrtop NS
8962 set top .makebranch
8986 }
8988 proc mkbrgo {top} {
8989 global headids idheads
8993 set cmdargs {}
8994 set old_id {}
8997 return
8998 }
9000 if {![confirm_popup [mc \
9002 return
9003 }
9005 lappend cmdargs -f
9006 }
9009 nowbusy newbranch
9010 update
9011 if {[catch {
9013 } err]} {
9014 notbusy newbranch
9016 } else {
9017 notbusy newbranch
9023 } else {
9028 }
9029 dispneartags 0
9030 run refill_reflist
9031 }
9032 }
9034 proc exec_citool {tool_args {baseid {}}} {
9035 global commitinfo env
9037 set save_env [array get env GIT_AUTHOR_*]
9042 }
9045 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9051 }
9052 }
9056 array unset env GIT_AUTHOR_*
9058 }
9060 proc cherrypick {} {
9061 global rowmenuid curview
9062 global mainhead mainheadid
9063 global gitdir
9065 set oldhead [exec git rev-parse HEAD]
9068 set ok [confirm_popup [mc "Commit %s is already\
9069 included in branch %s -- really re-apply it?" \
9072 }
9073 nowbusy cherrypick [mc "Cherry-picking"]
9074 update
9075 # Unfortunately git-cherry-pick writes stuff to stderr even when
9076 # no error occurs, and exec takes that as an indication of error...
9078 notbusy cherrypick
9079 if {[regexp -line \
9080 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9082 error_popup [mc "Cherry-pick failed because of local changes\
9083 to file '%s'.\nPlease commit, reset or stash\
9085 } elseif {[regexp -line \
9086 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9088 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9089 conflict.\nDo you wish to run git citool to\
9090 resolve it?"]]} {
9091 # Force citool to read MERGE_MSG
9094 }
9095 } else {
9097 }
9098 run updatecommits
9099 return
9100 }
9101 set newhead [exec git rev-parse HEAD]
9103 notbusy cherrypick
9104 error_popup [mc "No changes committed"]
9105 return
9106 }
9109 # XXX this isn't right if we have a path limit...
9114 }
9119 }
9120 notbusy cherrypick
9121 }
9123 proc resethead {} {
9124 global mainhead rowmenuid confirm_ok resettype NS
9126 set confirm_ok 0
9127 set w ".confirmreset"
9135 set resettype mixed
9137 -text [mc "Soft: Leave working tree and index untouched"]
9140 -text [mc "Mixed: Leave working tree untouched, reset index"]
9143 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9154 if {[catch {set fd [open \
9157 } else {
9158 dohidelocalchanges
9160 nowbusy reset [mc "Resetting"]
9162 }
9163 }
9165 proc readresetstat {fd} {
9166 global mainhead mainheadid showlocalchanges rprogcoord
9171 adjustprogress
9172 }
9173 return 1
9174 }
9175 set rprogcoord 0
9176 adjustprogress
9177 notbusy reset
9180 }
9182 set newhead [exec git rev-parse HEAD]
9189 }
9191 doshowlocalchanges
9192 }
9193 return 0
9194 }
9196 # context menu for a head
9197 proc headmenu {x y id head} {
9198 global headmenuid headmenuhead headctxmenu mainhead
9200 stopfinding
9203 set state normal
9205 set state disabled
9206 }
9208 set state disabled
9209 }
9213 }
9215 proc cobranch {} {
9216 global headmenuid headmenuhead headids
9217 global showlocalchanges
9219 # check the tree is clean first??
9220 nowbusy checkout [mc "Checking out"]
9221 update
9222 dohidelocalchanges
9223 if {[catch {
9225 } err]} {
9226 notbusy checkout
9229 dodiffindex
9230 }
9231 } else {
9233 }
9234 }
9236 proc readcheckoutstat {fd newhead newheadid} {
9237 global mainhead mainheadid headids showlocalchanges progresscoords
9238 global viewmainheadid curview
9243 adjustprogress
9244 }
9245 return 1
9246 }
9247 set progresscoords {0 0}
9248 adjustprogress
9249 notbusy checkout
9252 }
9261 dodiffindex
9262 }
9263 }
9265 proc rmbranch {} {
9266 global headmenuid headmenuhead mainhead
9267 global idheads
9271 # this check shouldn't be needed any more...
9273 error_popup [mc "Cannot delete the currently checked-out branch"]
9274 return
9275 }
9278 # the stuff on this branch isn't on any other branch
9279 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9281 }
9282 nowbusy rmbranch
9283 update
9285 notbusy rmbranch
9287 return
9288 }
9292 notbusy rmbranch
9293 dispneartags 0
9294 run refill_reflist
9295 }
9297 # Display a list of tags and heads
9298 proc showrefs {} {
9299 global showrefstop bgcolor fgcolor selectbgcolor NS
9300 global bglist fglist reflistfilter reflist maincursor
9302 set top .showrefs
9306 refill_reflist
9307 return
9308 }
9316 -spacing1 1 -spacing3 1 -state disabled
9327 set reflistfilter "*"
9328 trace add variable reflistfilter write reflistfilter_change
9340 set reflist {}
9341 refill_reflist
9342 }
9344 proc sel_reflist {w x y} {
9345 global showrefstop reflist headids tagids otherrefids
9355 }
9357 }
9359 proc unsel_reflist {} {
9360 global showrefstop
9364 }
9366 proc reflistfilter_change {n1 n2 op} {
9367 global reflistfilter
9369 after cancel refill_reflist
9370 after 200 refill_reflist
9371 }
9373 proc refill_reflist {} {
9374 global reflist reflistfilter showrefstop headids tagids otherrefids
9375 global curview
9378 set refs {}
9379 foreach n [array names headids] {
9383 } else {
9385 }
9386 }
9387 }
9388 foreach n [array names tagids] {
9392 } else {
9394 }
9395 }
9396 }
9397 foreach n [array names otherrefids] {
9401 } else {
9403 }
9404 }
9405 }
9413 set i 0
9414 set j 0
9423 }
9424 } else {
9425 set cmp -1
9426 }
9427 } else {
9428 set cmp 1
9429 }
9431 -1 {
9433 incr i
9434 }
9435 0 {
9436 incr i
9437 incr j
9438 }
9439 1 {
9444 incr j
9445 }
9446 }
9447 }
9449 # delete last newline
9452 }
9454 # Stuff for finding nearby tags
9455 proc getallcommits {} {
9456 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9457 global idheads idtags idotherrefs allparents tagobjid
9458 global gitdir
9460 if {![info exists allcommits]} {
9461 set nextarc 0
9462 set allcommits 0
9463 set seeds {}
9464 set allcwait 0
9465 set cachedarcs 0
9467 if {![catch {
9469 set allcwait 1
9471 }]} return
9472 }
9475 return
9476 }
9477 set cmd [list | git rev-list --parents]
9480 set ids "--all"
9481 } else {
9482 set refs [concat [array names idheads] [array names idtags] \
9483 [array names idotherrefs]]
9484 set ids {}
9485 set tagobjs {}
9486 foreach name [array names tagobjid] {
9488 }
9493 }
9494 }
9498 }
9499 }
9500 }
9504 incr allcommits
9505 nowbusy allcommits
9507 } else {
9508 dispneartags 0
9509 }
9510 }
9512 # Since most commits have 1 parent and 1 child, we group strings of
9513 # such commits into "arcs" joining branch/merge points (BMPs), which
9514 # are commits that either don't have 1 parent or don't have 1 child.
9515 #
9516 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9517 # arcout(id) - outgoing arcs for BMP
9518 # arcids(a) - list of IDs on arc including end but not start
9519 # arcstart(a) - BMP ID at start of arc
9520 # arcend(a) - BMP ID at end of arc
9521 # growing(a) - arc a is still growing
9522 # arctags(a) - IDs out of arcids (excluding end) that have tags
9523 # archeads(a) - IDs out of arcids (excluding end) that have heads
9524 # The start of an arc is at the descendent end, so "incoming" means
9525 # coming from descendents, and "outgoing" means going towards ancestors.
9527 proc getallclines {fd} {
9528 global allparents allchildren idtags idheads nextarc
9529 global arcnos arcids arctags arcout arcend arcstart archeads growing
9530 global seeds allcommits cachedarcs allcupdate
9532 set nid 0
9536 # seen it already
9537 continue
9538 }
9539 set cachedarcs 0
9546 } else {
9552 }
9555 }
9557 # seen parent already
9560 }
9564 }
9567 continue
9568 }
9569 }
9574 }
9576 set ao {}
9579 set a [incr nextarc]
9588 # seen it already, may need to make a new branch
9591 }
9595 }
9597 }
9599 }
9601 global cached_dheads cached_dtags cached_atags
9602 catch {unset cached_dheads}
9603 catch {unset cached_dtags}
9604 catch {unset cached_atags}
9605 }
9608 }
9609 set cacheok 1
9610 if {[catch {
9613 } err]} {
9614 # got an error reading the list of commits
9615 # if we were updating, try rereading the whole thing again
9617 incr allcommits -1
9619 return
9620 }
9621 error_popup "[mc "Error reading commit topology information;\
9622 branch and preceding/following tag information\
9624 set cacheok 0
9625 }
9626 if {[incr allcommits -1] == 0} {
9627 notbusy allcommits
9629 run savecache
9630 }
9631 }
9632 dispneartags 0
9633 return 0
9634 }
9636 proc recalcarc {a} {
9637 global arctags archeads arcids idtags idheads
9639 set at {}
9640 set ah {}
9644 }
9647 }
9648 }
9651 }
9653 proc splitarc {p} {
9654 global arcnos arcids nextarc arctags archeads idtags idheads
9655 global arcstart arcend arcout allparents growing
9660 return
9661 }
9666 return
9667 }
9668 set na [incr nextarc]
9671 } else {
9675 }
9685 }
9690 } else {
9693 }
9694 }
9696 # reconstruct tags and heads lists
9700 } else {
9703 }
9704 }
9706 # Update things for a new commit added that is a child of one
9707 # existing commit. Used when cherry-picking.
9708 proc addnewchild {id p} {
9709 global allparents allchildren idtags nextarc
9710 global arcnos arcids arctags arcout arcend arcstart archeads growing
9711 global seeds allcommits
9719 set a [incr nextarc]
9727 }
9730 }
9732 # This implements a cache for the topology information.
9733 # The cache saves, for each arc, the start and end of the arc,
9734 # the ids on the arc, and the outgoing arcs from the end.
9735 proc readcache {f} {
9736 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9737 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9738 global allcwait
9744 }
9745 if {[catch {
9747 # finish reading the cache and setting up arctags, etc.
9751 foreach id [array names idtags] {
9757 }
9758 }
9759 }
9760 foreach id [array names idheads] {
9766 }
9767 }
9768 }
9772 }
9773 }
9774 set allcwait 0
9775 } else {
9785 }
9789 } else {
9793 }
9794 }
9800 }
9803 }
9806 }
9808 }
9809 } err]} {
9811 return 0
9812 }
9814 getallcommits
9815 }
9817 }
9819 proc getcache {f} {
9820 global nextarc cachedarcs possible_seeds
9822 if {[catch {
9825 # make sure it's an integer
9828 set nextarc 0
9829 set possible_seeds {}
9831 } err]} {
9833 }
9834 return 0
9835 }
9837 proc dropcache {err} {
9838 global allcwait nextarc cachedarcs seeds
9841 foreach v {arcnos arcout arcids arcstart arcend growing \
9842 arctags archeads allparents allchildren} {
9845 }
9846 set allcwait 0
9847 set nextarc 0
9848 set cachedarcs 0
9849 set seeds {}
9850 getallcommits
9851 }
9853 proc writecache {f} {
9854 global cachearc cachedarcs allccache
9855 global arcstart arcend arcnos arcids arcout
9861 }
9862 if {[catch {
9866 } else {
9868 }
9869 }
9870 } err]} {
9874 return 0
9875 }
9880 return 0
9881 }
9882 return 1
9883 }
9885 proc savecache {} {
9886 global nextarc cachedarcs cachearc allccache
9889 set cachearc 0
9891 catch {
9895 }
9896 }
9898 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9899 # or 0 if neither is true.
9900 proc anc_or_desc {a b} {
9901 global arcout arcstart arcend arcnos cached_isanc
9904 # Both are on the same arc(s); either both are the same BMP,
9905 # or if one is not a BMP, the other is also not a BMP or is
9906 # the BMP at end of the arc (and it only has 1 incoming arc).
9907 # Or both can be BMPs with no incoming arcs.
9909 return 0
9910 }
9916 return 1
9917 } else {
9918 return -1
9919 }
9920 }
9926 } else {
9927 set aend {}
9928 }
9930 } else {
9932 }
9937 } else {
9938 set bend {}
9939 }
9941 } else {
9943 }
9945 return 1
9946 }
9948 return -1
9949 }
9952 return 1
9953 }
9954 }
9957 return -1
9958 }
9960 return 0
9961 }
9962 }
9970 continue
9971 }
9977 return 1
9981 return -1
9982 }
9988 }
9989 }
9990 }
9993 return 0
9994 }
9998 # and returns 0 if so and 1 if not.
9999 # If we subsequently discover a tag on such a growing tip, and that
10002 # isn't a good choice to display as a descendent tag of
10006 #
10007 proc is_certain {desc anc} {
10008 global arcnos arcout arcstart arcend growing problems
10010 set certain {}
10012 # tags on the same arc are certain
10014 return 1
10015 }
10020 }
10021 }
10024 } else {
10027 }
10029 return 1
10030 }
10033 set nnh 1
10034 set ngrowanc 0
10038 incr nnh -1
10039 }
10045 incr ngrowanc
10046 }
10047 } else {
10054 incr nnh -1
10055 }
10057 incr ngrowanc -1
10058 }
10068 incr nnh -1
10069 }
10071 incr ngrowanc -1
10072 }
10074 }
10075 }
10076 }
10077 }
10078 }
10079 }
10083 } else {
10086 incr nnh
10087 }
10088 }
10089 }
10090 }
10091 foreach x [array names growanc] {
10093 return 0
10094 }
10095 return 0
10096 }
10097 return 1
10098 }
10100 proc validate_arctags {a} {
10101 global arctags idtags
10103 set i -1
10106 incr i
10109 incr i -1
10110 }
10111 }
10113 }
10115 proc validate_archeads {a} {
10116 global archeads idheads
10118 set i -1
10121 incr i
10124 incr i -1
10125 }
10126 }
10128 }
10130 # Return the list of IDs that have tags that are descendents of id,
10131 # ignoring IDs that are descendents of IDs already reported.
10132 proc desctags {id} {
10133 global arcnos arcstart arcids arctags idtags allparents
10134 global growing cached_dtags
10137 return {}
10138 }
10139 set t1 [clock clicks -milliseconds]
10142 # part-way along an arc; check that arc first
10147 set tid {}
10152 }
10155 }
10156 }
10160 }
10161 }
10164 }
10169 set nc 1
10175 incr nc -1
10176 }
10177 # ignore tags on starting node
10181 set ta 1
10184 set ta 1
10185 }
10186 }
10193 }
10194 }
10203 }
10206 }
10208 incr nc -1
10209 }
10211 }
10212 }
10213 }
10218 incr nc
10219 }
10220 }
10221 }
10222 }
10223 set tags {}
10224 foreach id [array names tagloc] {
10229 }
10230 }
10231 }
10232 }
10233 set t2 [clock clicks -milliseconds]
10236 # remove tags that are descendents of other tags
10244 incr j -1
10245 incr i -1
10248 incr i -1
10249 break
10250 }
10251 }
10252 }
10254 if {[array names growing] ne {}} {
10255 # graph isn't finished, need to check if any tag could get
10256 # eclipsed by another tag coming later. Simply ignore any
10257 # tags that could later get eclipsed.
10258 set ctags {}
10262 }
10263 }
10266 } else {
10268 }
10269 } else {
10271 }
10272 set t3 [clock clicks -milliseconds]
10276 }
10278 }
10280 proc anctags {id} {
10281 global arcnos arcids arcout arcend arctags idtags allparents
10282 global growing cached_atags
10285 return {}
10286 }
10287 set t1 [clock clicks -milliseconds]
10290 # part-way along an arc; check that arc first
10299 }
10300 }
10301 }
10303 return {}
10304 }
10308 }
10309 }
10312 }
10317 set taglist {}
10318 set nc 1
10324 incr nc -1
10325 }
10326 # ignore tags on starting node
10330 set td 1
10333 set td 1
10334 }
10335 }
10341 }
10342 }
10354 }
10355 }
10358 }
10360 incr nc -1
10361 }
10363 }
10364 }
10365 }
10370 incr nc
10371 }
10372 }
10373 }
10374 }
10375 set t2 [clock clicks -milliseconds]
10377 set tags {}
10378 foreach id [array names tagloc] {
10383 }
10384 }
10385 }
10386 }
10388 # remove tags that are ancestors of other tags
10396 incr j -1
10397 incr i -1
10400 incr i -1
10401 break
10402 }
10403 }
10404 }
10406 if {[array names growing] ne {}} {
10407 # graph isn't finished, need to check if any tag could get
10408 # eclipsed by another tag coming later. Simply ignore any
10409 # tags that could later get eclipsed.
10410 set ctags {}
10414 }
10415 }
10418 } else {
10420 }
10421 } else {
10423 }
10424 set t3 [clock clicks -milliseconds]
10428 }
10430 }
10432 # Return the list of IDs that have heads that are descendents of id,
10433 # including id itself if it has a head.
10434 proc descheads {id} {
10435 global arcnos arcstart arcids archeads idheads cached_dheads
10436 global allparents
10439 return {}
10440 }
10441 set aret {}
10443 # part-way along an arc; check it first
10452 }
10453 }
10455 }
10459 set ret {}
10464 } else {
10467 }
10473 }
10474 }
10479 }
10480 }
10481 }
10482 }
10486 }
10488 proc addedtag {id} {
10489 global arcnos arcout cached_dtags cached_atags
10494 }
10495 catch {unset cached_dtags}
10496 catch {unset cached_atags}
10497 }
10499 proc addedhead {hid head} {
10500 global arcnos arcout cached_dheads
10505 }
10506 catch {unset cached_dheads}
10507 }
10509 proc removedhead {hid head} {
10510 global cached_dheads
10512 catch {unset cached_dheads}
10513 }
10515 proc movedhead {hid head} {
10516 global arcnos arcout cached_dheads
10521 }
10522 catch {unset cached_dheads}
10523 }
10525 proc changedrefs {} {
10526 global cached_dheads cached_dtags cached_atags
10527 global arctags archeads arcnos arcout idheads idtags
10529 foreach id [concat [array names idheads] [array names idtags]] {
10535 }
10536 }
10537 }
10538 catch {unset cached_dtags}
10539 catch {unset cached_atags}
10540 catch {unset cached_dheads}
10541 }
10543 proc rereadrefs {} {
10544 global idtags idheads idotherrefs mainheadid
10546 set refids [concat [array names idtags] \
10547 [array names idheads] [array names idotherrefs]]
10551 }
10552 }
10554 readrefs
10555 changedrefs
10557 [array names idheads] [array names idotherrefs]]]
10562 }
10563 }
10567 }
10568 run refill_reflist
10569 }
10571 proc listrefs {id} {
10572 global idtags idheads idotherrefs
10574 set x {}
10577 }
10578 set y {}
10581 }
10582 set z {}
10585 }
10587 }
10589 proc showtag {tag isnew} {
10590 global ctext tagcontents tagids linknum tagobjid
10594 }
10596 clear_ctext
10597 settabs 0
10598 set linknum 0
10600 catch {
10602 }
10603 }
10606 } else {
10608 }
10610 maybe_scroll_ctext 1
10612 init_flist {}
10613 }
10615 proc doquit {} {
10616 global stopped
10617 global gitktmpdir
10619 set stopped 100
10620 savestuff .
10621 destroy .
10623 if {[info exists gitktmpdir]} {
10625 }
10626 }
10628 proc mkfontdisp {font top which} {
10637 }
10639 proc choosefont {font which} {
10640 global fontparam fontlist fonttop fontattr
10641 global prefstop NS
10649 set top .gitkfont
10652 font create sample
10659 set fontlist [lsort [font families]]
10670 -textvariable fontparam(size) \
10671 -validatecommand {string is integer -strict %s}
10673 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10674 -variable fontparam(weight) -onvalue bold -offvalue normal
10676 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10677 -variable fontparam(slant) -onvalue italic -offvalue roman
10681 -background white
10683 -fill black -tags text
10695 trace add variable fontparam write chg_fontparam
10696 } else {
10699 }
10704 }
10705 }
10707 proc centertext {w} {
10709 }
10711 proc fontok {} {
10712 global fontparam fontpref prefstop
10718 }
10721 }
10725 fontcan
10726 }
10728 proc fontcan {} {
10729 global fonttop fontparam
10731 if {[info exists fonttop]} {
10733 catch {font delete sample}
10734 unset fonttop
10735 unset fontparam
10736 }
10737 }
10739 if {[package vsatisfies [package provide Tk] 8.6]} {
10740 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10741 # function to make use of it.
10742 proc choosefont {font which} {
10745 tk fontchooser show
10746 }
10747 proc on_choosefont {font which newfont} {
10748 global fontparam
10757 fontok
10758 }
10759 }
10761 proc selfontfam {} {
10762 global fonttop fontparam
10767 }
10768 }
10770 proc chg_fontparam {v sub op} {
10771 global fontparam
10774 }
10776 proc doprefs {} {
10777 global maxwidth maxgraphpct use_ttk NS
10778 global oldprefs prefstop showneartags showlocalchanges
10779 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10780 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
10781 global hideremotes want_ttk have_ttk
10783 set top .gitkprefs
10787 return
10788 }
10789 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10790 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10792 }
10806 -variable showlocalchanges
10809 -variable autoselect
10813 -variable hideremotes
10822 -variable showneartags
10825 -variable limitdiffs
10828 -variable perfile_attrs
10842 -text [mc "Use themed widgets"]
10845 } else {
10847 }
10877 [mc "diff hunk header"] \
10883 [mc "marked line background"] \
10908 }
10910 proc choose_extdiff {} {
10911 global extdifftool
10913 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10916 }
10917 }
10919 proc choosecolor {v vi w x cmd} {
10928 }
10930 proc setselbg {c} {
10931 global bglist cflist
10934 }
10938 }
10940 # This sets the background color and the color scheme for the whole UI.
10941 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10942 # if we don't specify one ourselves, which makes the checkbuttons and
10943 # radiobuttons look bad. This chooses white for selectColor if the
10944 # background color is light, or black if it is dark.
10945 proc setui {c} {
10946 if {[tk windowingsystem] eq "win32"} { return }
10948 set selc black
10950 set selc white
10951 }
10953 }
10955 proc setbg {c} {
10956 global bglist
10960 }
10961 }
10963 proc setfg {c} {
10964 global fglist canv
10968 }
10972 }
10974 proc prefscan {} {
10975 global oldprefs prefstop
10977 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10978 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10981 }
10983 unset prefstop
10984 fontcan
10985 }
10987 proc prefsok {} {
10988 global maxwidth maxgraphpct
10989 global oldprefs prefstop showneartags showlocalchanges
10990 global fontpref mainfont textfont uifont
10991 global limitdiffs treediffs perfile_attrs
10992 global hideremotes
10995 unset prefstop
10996 fontcan
10997 set fontchanged 0
11001 eval font configure mainfont [fontflags mainfont]
11002 eval font configure mainfontbold [fontflags mainfont 1]
11003 setcoords
11004 set fontchanged 1
11005 }
11009 eval font configure textfont [fontflags textfont]
11010 eval font configure textfontbold [fontflags textfont 1]
11011 }
11015 eval font configure uifont [fontflags uifont]
11016 }
11017 settabs
11020 doshowlocalchanges
11021 } else {
11022 dohidelocalchanges
11023 }
11024 }
11027 # treediffs elements are limited by path;
11028 # won't have encodings cached if perfile_attrs was just turned on
11029 catch {unset treediffs}
11030 }
11033 redisplay
11036 reselectline
11037 }
11039 rereadrefs
11040 }
11041 }
11043 proc formatdate {d} {
11044 global datetimeformat
11047 }
11049 }
11051 # This list of encoding names and aliases is distilled from
11052 # http://www.iana.org/assignments/character-sets.
11053 # Not all of them are supported by Tcl.
11054 set encoding_aliases {
11055 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11056 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11057 { ISO-10646-UTF-1 csISO10646UTF1 }
11058 { ISO_646.basic:1983 ref csISO646basic1983 }
11059 { INVARIANT csINVARIANT }
11060 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11061 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11062 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11063 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11064 { NATS-DANO iso-ir-9-1 csNATSDANO }
11065 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11066 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11067 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11068 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11069 { ISO-2022-KR csISO2022KR }
11070 { EUC-KR csEUCKR }
11071 { ISO-2022-JP csISO2022JP }
11072 { ISO-2022-JP-2 csISO2022JP2 }
11073 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11074 csISO13JISC6220jp }
11075 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11076 { IT iso-ir-15 ISO646-IT csISO15Italian }
11077 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11078 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11079 { greek7-old iso-ir-18 csISO18Greek7Old }
11080 { latin-greek iso-ir-19 csISO19LatinGreek }
11081 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11082 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11083 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11084 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11085 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11086 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11087 { INIS iso-ir-49 csISO49INIS }
11088 { INIS-8 iso-ir-50 csISO50INIS8 }
11089 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11090 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11091 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11092 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11093 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11094 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11095 csISO60Norwegian1 }
11096 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11097 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11098 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11099 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11100 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11101 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11102 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11103 { greek7 iso-ir-88 csISO88Greek7 }
11104 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11105 { iso-ir-90 csISO90 }
11106 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11107 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11108 csISO92JISC62991984b }
11109 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11110 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11111 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11112 csISO95JIS62291984handadd }
11113 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11114 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11115 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11116 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11117 CP819 csISOLatin1 }
11118 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11119 { T.61-7bit iso-ir-102 csISO102T617bit }
11120 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11121 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11122 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11123 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11124 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11125 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11126 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11127 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11128 arabic csISOLatinArabic }
11129 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11130 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11131 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11132 greek greek8 csISOLatinGreek }
11133 { T.101-G2 iso-ir-128 csISO128T101G2 }
11134 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11135 csISOLatinHebrew }
11136 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11137 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11138 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11139 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11140 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11141 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11142 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11143 csISOLatinCyrillic }
11144 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11145 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11146 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11147 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11148 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11149 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11150 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11151 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11152 { ISO_10367-box iso-ir-155 csISO10367Box }
11153 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11154 { latin-lap lap iso-ir-158 csISO158Lap }
11155 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11156 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11157 { us-dk csUSDK }
11158 { dk-us csDKUS }
11159 { JIS_X0201 X0201 csHalfWidthKatakana }
11160 { KSC5636 ISO646-KR csKSC5636 }
11161 { ISO-10646-UCS-2 csUnicode }
11162 { ISO-10646-UCS-4 csUCS4 }
11163 { DEC-MCS dec csDECMCS }
11164 { hp-roman8 roman8 r8 csHPRoman8 }
11165 { macintosh mac csMacintosh }
11166 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11167 csIBM037 }
11168 { IBM038 EBCDIC-INT cp038 csIBM038 }
11169 { IBM273 CP273 csIBM273 }
11170 { IBM274 EBCDIC-BE CP274 csIBM274 }
11171 { IBM275 EBCDIC-BR cp275 csIBM275 }
11172 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11173 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11174 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11175 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11176 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11177 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11178 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11179 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11180 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11181 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11182 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11183 { IBM437 cp437 437 csPC8CodePage437 }
11184 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11185 { IBM775 cp775 csPC775Baltic }
11186 { IBM850 cp850 850 csPC850Multilingual }
11187 { IBM851 cp851 851 csIBM851 }
11188 { IBM852 cp852 852 csPCp852 }
11189 { IBM855 cp855 855 csIBM855 }
11190 { IBM857 cp857 857 csIBM857 }
11191 { IBM860 cp860 860 csIBM860 }
11192 { IBM861 cp861 861 cp-is csIBM861 }
11193 { IBM862 cp862 862 csPC862LatinHebrew }
11194 { IBM863 cp863 863 csIBM863 }
11195 { IBM864 cp864 csIBM864 }
11196 { IBM865 cp865 865 csIBM865 }
11197 { IBM866 cp866 866 csIBM866 }
11198 { IBM868 CP868 cp-ar csIBM868 }
11199 { IBM869 cp869 869 cp-gr csIBM869 }
11200 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11201 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11202 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11203 { IBM891 cp891 csIBM891 }
11204 { IBM903 cp903 csIBM903 }
11205 { IBM904 cp904 904 csIBBM904 }
11206 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11207 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11208 { IBM1026 CP1026 csIBM1026 }
11209 { EBCDIC-AT-DE csIBMEBCDICATDE }
11210 { EBCDIC-AT-DE-A csEBCDICATDEA }
11211 { EBCDIC-CA-FR csEBCDICCAFR }
11212 { EBCDIC-DK-NO csEBCDICDKNO }
11213 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11214 { EBCDIC-FI-SE csEBCDICFISE }
11215 { EBCDIC-FI-SE-A csEBCDICFISEA }
11216 { EBCDIC-FR csEBCDICFR }
11217 { EBCDIC-IT csEBCDICIT }
11218 { EBCDIC-PT csEBCDICPT }
11219 { EBCDIC-ES csEBCDICES }
11220 { EBCDIC-ES-A csEBCDICESA }
11221 { EBCDIC-ES-S csEBCDICESS }
11222 { EBCDIC-UK csEBCDICUK }
11223 { EBCDIC-US csEBCDICUS }
11224 { UNKNOWN-8BIT csUnknown8BiT }
11225 { MNEMONIC csMnemonic }
11226 { MNEM csMnem }
11227 { VISCII csVISCII }
11228 { VIQR csVIQR }
11229 { KOI8-R csKOI8R }
11230 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11231 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11232 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11233 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11234 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11235 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11236 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11237 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11238 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11239 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11240 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11241 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11242 { IBM1047 IBM-1047 }
11243 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11244 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11245 { UNICODE-1-1 csUnicode11 }
11246 { CESU-8 csCESU-8 }
11247 { BOCU-1 csBOCU-1 }
11248 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11249 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11250 l8 }
11251 { ISO-8859-15 ISO_8859-15 Latin-9 }
11252 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11253 { GBK CP936 MS936 windows-936 }
11254 { JIS_Encoding csJISEncoding }
11255 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11256 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11257 EUC-JP }
11258 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11259 { ISO-10646-UCS-Basic csUnicodeASCII }
11260 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11261 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11262 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11263 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11264 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11265 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11266 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11267 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11268 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11269 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11270 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11271 { Ventura-US csVenturaUS }
11272 { Ventura-International csVenturaInternational }
11273 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11274 { PC8-Turkish csPC8Turkish }
11275 { IBM-Symbols csIBMSymbols }
11276 { IBM-Thai csIBMThai }
11277 { HP-Legal csHPLegal }
11278 { HP-Pi-font csHPPiFont }
11279 { HP-Math8 csHPMath8 }
11280 { Adobe-Symbol-Encoding csHPPSMath }
11281 { HP-DeskTop csHPDesktop }
11282 { Ventura-Math csVenturaMath }
11283 { Microsoft-Publishing csMicrosoftPublishing }
11284 { Windows-31J csWindows31J }
11285 { GB2312 csGB2312 }
11286 { Big5 csBig5 }
11287 }
11289 proc tcl_encoding {enc} {
11290 global encoding_aliases tcl_encoding_cache
11293 }
11294 set names [encoding names]
11299 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11302 }
11303 }
11308 # look through the aliases for one that tcl knows about
11314 }
11315 }
11317 }
11318 break
11319 }
11320 }
11321 set tclenc {}
11324 }
11327 }
11329 proc gitattr {path attr default} {
11330 global path_attr_cache
11333 } else {
11334 set r "unspecified"
11337 }
11339 }
11342 }
11344 }
11346 proc cache_gitattr {attr pathlist} {
11347 global path_attr_cache
11348 set newlist {}
11352 }
11353 }
11354 set lim 1000
11355 if {[tk windowingsystem] == "win32"} {
11356 # windows has a 32k limit on the arguments to a command...
11357 set lim 30
11358 }
11367 }
11369 }
11370 }
11371 }
11372 }
11373 }
11375 proc get_path_encoding {path} {
11376 global gui_encoding perfile_attrs
11382 }
11383 }
11385 }
11387 # First check that Tcl/Tk is recent enough
11388 if {[catch {package require Tk 8.4} err]} {
11389 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11390 Gitk requires at least Tcl/Tk 8.4." list
11391 exit 1
11392 }
11394 # defaults...
11395 set wrcomcmd "git diff-tree --stdin -p --pretty"
11397 set gitencoding {}
11398 catch {
11399 set gitencoding [exec git config --get i18n.commitencoding]
11400 }
11401 catch {
11402 set gitencoding [exec git config --get i18n.logoutputencoding]
11403 }
11405 set gitencoding "utf-8"
11406 }
11410 }
11412 set gui_encoding [encoding system]
11413 catch {
11414 set enc [exec git config --get gui.encoding]
11419 } else {
11421 }
11422 }
11423 }
11425 if {[tk windowingsystem] eq "aqua"} {
11426 set mainfont {{Lucida Grande} 9}
11427 set textfont {Monaco 9}
11428 set uifont {{Lucida Grande} 9 bold}
11429 } else {
11430 set mainfont {Helvetica 9}
11431 set textfont {Courier 9}
11432 set uifont {Helvetica 9 bold}
11433 }
11434 set tabstop 8
11435 set findmergefiles 0
11436 set maxgraphpct 50
11437 set maxwidth 16
11438 set revlistorder 0
11439 set fastdate 0
11440 set uparrowlen 5
11441 set downarrowlen 5
11442 set mingaplen 100
11443 set cmitmode "patch"
11444 set wrapcomment "none"
11445 set showneartags 1
11446 set hideremotes 0
11447 set maxrefs 20
11448 set maxlinelen 200
11449 set showlocalchanges 1
11450 set limitdiffs 1
11451 set datetimeformat "%Y-%m-%d %H:%M:%S"
11452 set autoselect 1
11453 set autosellen 40
11454 set perfile_attrs 0
11455 set want_ttk 1
11457 if {[tk windowingsystem] eq "aqua"} {
11458 set extdifftool "opendiff"
11459 } else {
11460 set extdifftool "meld"
11461 }
11463 set colors {green red blue magenta darkgrey brown orange}
11464 if {[tk windowingsystem] eq "win32"} {
11465 set uicolor SystemButtonFace
11466 set bgcolor SystemWindow
11467 set fgcolor SystemButtonText
11468 set selectbgcolor SystemHighlight
11469 } else {
11470 set uicolor grey85
11471 set bgcolor white
11472 set fgcolor black
11473 set selectbgcolor gray85
11474 }
11475 set diffcolors {red "#00a000" blue}
11476 set diffcontext 3
11477 set ignorespace 0
11478 set worddiff ""
11479 set markbgcolor "#e0e0ff"
11481 set circlecolors {white blue gray blue blue}
11483 # button for popping up context menus
11484 if {[tk windowingsystem] eq "aqua"} {
11485 set ctxbut <Button-2>
11486 } else {
11487 set ctxbut <Button-3>
11488 }
11490 ## For msgcat loading, first locate the installation location.
11491 if { [info exists ::env(GITK_MSGSDIR)] } {
11492 ## Msgsdir was manually set in the environment.
11493 set gitk_msgsdir $::env(GITK_MSGSDIR)
11494 } else {
11495 ## Let's guess the prefix from argv0.
11499 unset gitk_prefix
11500 }
11502 ## Internationalization (i18n) through msgcat and gettext. See
11503 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11504 package require msgcat
11505 namespace import ::msgcat::mc
11506 ## And eventually load the actual message catalog
11509 catch {source ~/.gitk}
11512 eval font create mainfont [fontflags mainfont]
11513 eval font create mainfontbold [fontflags mainfont 1]
11516 eval font create textfont [fontflags textfont]
11517 eval font create textfontbold [fontflags textfont 1]
11520 eval font create uifont [fontflags uifont]
11524 setoptions
11526 # check that we can find a .git directory somewhere...
11527 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
11528 show_error {} . [mc "Cannot find a git repository here."]
11529 exit 1
11530 }
11532 set selecthead {}
11533 set selectheadid {}
11535 set revtreeargs {}
11536 set cmdline_files {}
11537 set i 0
11538 set revtreeargscmd {}
11541 "" { }
11542 "--" {
11544 break
11545 }
11546 "--select-commit=*" {
11548 }
11549 "--argscmd=*" {
11551 }
11552 default {
11554 }
11555 }
11556 incr i
11557 }
11560 set selecthead {}
11561 }
11564 # no -- on command line, but some arguments (other than --argscmd)
11565 if {[catch {
11570 # Unfortunately git rev-parse doesn't produce an error when
11571 # something is both a revision and a filename. To be consistent
11572 # with git log and git rev-list, check revtreeargs for filenames.
11575 show_error {} . [mc "Ambiguous argument '%s': both revision\
11577 exit 1
11578 }
11579 }
11580 } err]} {
11582 # so look for "fatal:".
11586 }
11588 exit 1
11589 }
11590 }
11592 set nullid "0000000000000000000000000000000000000000"
11593 set nullid2 "0000000000000000000000000000000000000001"
11594 set nullfile "/dev/null"
11597 if {![info exists have_ttk]} {
11598 set have_ttk [llength [info commands ::ttk::style]]
11599 }
11603 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
11605 set show_notes {}
11607 set show_notes "--show-notes"
11608 }
11610 set runq {}
11611 set history {}
11612 set historyindex 0
11613 set fh_serial 0
11614 set nhl_names {}
11615 set highlight_paths {}
11616 set findpattern {}
11617 set searchdirn -forwards
11618 set boldids {}
11619 set boldnameids {}
11620 set diffelide {0 0}
11621 set markingmatches 0
11622 set linkentercount 0
11623 set need_redisplay 0
11624 set nrows_drawn 0
11625 set firsttabstop 0
11627 set nextviewnum 1
11628 set curview 0
11629 set selectedview 0
11630 set selectedhlview [mc "None"]
11631 set highlight_related [mc "None"]
11632 set highlight_files {}
11633 set viewfiles(0) {}
11634 set viewperm(0) 0
11635 set viewargs(0) {}
11636 set viewargscmd(0) {}
11638 set selectedline {}
11639 set numcommits 0
11640 set loginstance 0
11641 set cmdlineok 0
11642 set stopped 0
11643 set stuffsaved 0
11644 set patchnum 0
11645 set lserial 0
11646 set hasworktree [hasworktree]
11647 set cdup {}
11648 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
11649 set cdup [exec git rev-parse --show-cdup]
11650 }
11651 set worktree [exec git rev-parse --show-toplevel]
11652 setcoords
11653 makewindow
11654 catch {
11655 image create photo gitlogo -width 16 -height 16
11657 image create photo gitlogominus -width 4 -height 2
11658 gitlogominus put #C00000 -to 0 0 4 2
11659 gitlogo copy gitlogominus -to 1 5
11660 gitlogo copy gitlogominus -to 6 5
11661 gitlogo copy gitlogominus -to 11 5
11662 image delete gitlogominus
11664 image create photo gitlogoplus -width 4 -height 4
11665 gitlogoplus put #008000 -to 1 0 3 4
11666 gitlogoplus put #008000 -to 0 1 4 3
11667 gitlogo copy gitlogoplus -to 1 9
11668 gitlogo copy gitlogoplus -to 6 9
11669 gitlogo copy gitlogoplus -to 11 9
11670 image delete gitlogoplus
11672 image create photo gitlogo32 -width 32 -height 32
11673 gitlogo32 copy gitlogo -zoom 2 2
11675 wm iconphoto . -default gitlogo gitlogo32
11676 }
11677 # wait for the window to become visible
11678 tkwait visibility .
11680 update
11681 readrefs
11684 # create a view for the files/dirs specified on the command line
11685 set curview 1
11686 set selectedview 1
11687 set nextviewnum 2
11688 set viewname(1) [mc "Command line"]
11692 set viewperm(1) 0
11693 set vdatemode(1) 0
11694 addviewmenu 1
11695 .bar.view entryconf [mca "Edit view..."] -state normal
11696 .bar.view entryconf [mca "Delete view"] -state normal
11697 }
11699 if {[info exists permviews]} {
11702 incr nextviewnum
11709 }
11710 }
11712 if {[tk windowingsystem] eq "win32"} {
11713 focus -force .
11714 }
11716 getcommits {}
11718 # Local variables:
11719 # mode: tcl
11720 # indent-tabs-mode: t
11721 # tab-width: 8
11722 # End: