| blob | 45e33806b0297dad46adbf9214f6498734c4c6e6 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2009 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 gitdir {} {
13 global env
18 }
19 }
21 # A simple scheduler for compute-intensive stuff.
22 # The aim is to make sure that event handlers for GUI actions can
23 # run at least every 50-100 ms. Unfortunately fileevent handlers are
24 # run before X event handlers, so reading from a fast source can
25 # make the GUI completely unresponsive.
26 proc run args {
27 global isonrunq runq currunq
32 after idle dorunq
33 }
36 }
40 }
43 global runq currunq
47 after idle dorunq
48 }
50 }
53 global runq
59 incr i
60 }
61 }
62 }
64 proc dorunq {} {
65 global isonrunq runq currunq
75 unset currunq
80 # script returns 1 if it wants to be readded
81 # file readers return 2 if they could do more straight away
85 }
88 }
91 }
93 after idle dorunq
94 }
95 }
98 global commfd leftover loginstance
104 }
107 global nr_unmerged
109 # find the list of unmerged files
116 exit 1
117 }
123 incr nr_unmerged
126 }
127 }
130 }
132 proc parseviewargs {n arglist} {
133 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
137 set glflags {}
138 set diffargs {}
139 set nextisval 0
140 set revargs {}
142 set allknown 1
143 set filtered 0
144 set i -1
146 incr i
149 set nextisval 0
150 continue
151 }
153 "-d" -
154 "--date-order" {
156 # remove from origargs in case we hit an unknown option
158 incr i -1
159 }
160 "-[puabwcrRBMC]" -
161 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
162 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
163 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
164 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
165 "--ignore-space-change" - "-U*" - "--unified=*" {
166 # These request or affect diff output, which we don't want.
167 # Some could be used to set our defaults for diff display.
168 lappend diffargs $arg
169 }
177 # These cause our parsing of git log's output to fail, or else
178 # they're options we want to set ourselves, so ignore them.
179 }
184 # These are harmless, and some are even useful
185 lappend glflags $arg
186 }
194 # These mean that we get a subset of the commits
196 lappend glflags $arg
197 }
199 # This appears to be the only one that has a value as a
200 # separate word following it
203 lappend glflags $arg
204 }
206 lappend revargs $arg
207 }
210 # git rev-parse doesn't understand --merge
211 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
212 }
215 }
217 # Other flag arguments including -<n>
221 # a flag argument that we don't recognize;
222 # that means we can't optimize
224 }
225 lappend glflags $arg
226 }
227 default {
228 # Non-flag arguments specify commits or ranges of commits
230 lappend revargs --gitk-symmetric-diff-marker
231 }
232 lappend revargs $arg
233 }
234 }
235 }
242 }
245 global vposids vnegids
248 set revs HEAD
249 }
251 # we get stdout followed by stderr in $err
252 # for an unknown rev, git rev-parse echoes it and then errors out
265 }
268 }
269 break
270 }
271 lappend badrev $line
272 }
273 }
276 }
286 lappend ret $id
289 }
290 }
294 lappend ret $id
297 }
298 lappend pos $id
299 }
300 incr sdm -1
301 }
305 }
307 # Start off a git log process and arrange to read its output
309 global startmsecs commitidx viewcomplete curview
310 global tclencoding
311 global viewargs viewargscmd viewfiles vfilelimit
312 global showlocalchanges
313 global viewactive viewinstances vmergeonly
314 global mainheadid viewmainheadid viewmainheadid_orig
315 global vcanopt vflags vrevs vorigargs
316 global show_notes
320 # these are set this way for the error exits
323 varcinit $view
332 }
334 }
341 global nr_unmerged
348 }
350 }
351 }
358 }
362 }
370 }
376 get_viewmainhead $view
377 }
380 }
384 }
390 }
393 global commfd leftover
396 catch {
403 }
404 }
406 nukefile $fd
409 }
411 proc stop_backends {} {
412 global commfd
415 stop_instance $inst
416 }
417 }
420 global viewinstances
423 stop_instance $inst
424 }
426 }
429 global pending_select mainheadid selectheadid
437 }
438 }
441 global canv curview need_redisplay viewactive
443 initlayout
445 reset_pending_select $selid
450 }
451 }
453 proc updatecommits {} {
454 global curview vcanopt vorigargs vfilelimit viewinstances
455 global viewactive viewcomplete tclencoding
456 global startmsecs showneartags showlocalchanges
457 global mainheadid viewmainheadid viewmainheadid_orig pending_select
458 global isworktree
459 global varcid vposids vnegids vflags vrevs
460 global show_notes
463 rereadrefs
467 dohidelocalchanges
468 }
472 get_viewmainhead $view
473 }
474 }
476 doshowlocalchanges
477 }
483 return
484 }
485 # note: getting the delta when negative refs change is hard,
486 # and could require multiple git log invocations, so in that
487 # case we ask git log for all the commits (not just the delta)
491 # take out positive refs that we asked for before or
492 # that we have already seen
497 lappend newrevs $rev
498 incr npos
499 }
501 lappend $newrevs $rev
502 }
503 }
507 }
511 }
517 return
518 }
521 }
527 }
531 reset_pending_select {}
534 getallcommits
535 }
536 }
538 proc reloadcommits {} {
539 global curview viewcomplete selectedline currentid thickerline
540 global showneartags treediffs commitinterest cached_commitrow
541 global targetid
546 }
549 stop_rev_list $curview
550 }
551 resetvarcs $curview
556 readrefs
557 changedrefs
559 getallcommits
560 }
561 clear_display
565 setcanvscroll
566 getcommits $selid
568 }
570 # This makes a string representation of a positive integer which
571 # sorts as a string in numerical order
579 }
581 }
583 # Procedures used in reordering commits from git log (without
584 # --topo-order) into the order for display.
587 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
588 global vtokmod varcmod vrowmod varcix vlastins
602 }
605 global varcid varccommits parents children vseedcount ordertok
611 }
612 # some commits might have children but haven't been seen yet
615 }
618 }
621 }
623 }
625 # returns a list of the commits with no children
627 global vdownptr vleftptr varcstart
634 }
636 }
639 global varcid varctok parents children vdatemode
640 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
641 global commitdata commitinfo vseedcount varccommits vlastins
648 }
652 }
655 }
661 }
670 }
671 }
676 }
683 }
687 }
694 }
700 }
709 }
712 global varcid varcstart varccommits varctok vtokmod
713 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
721 # "%" sorts before "0"...
731 }
741 }
743 modify_arc $v $oa
744 }
745 }
748 global parents children varctok varcstart varccommits
749 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
758 lappend todo $a
763 }
764 }
765 }
766 incr ntot
773 }
774 }
776 }
783 }
789 }
798 }
799 }
804 }
806 continue
807 }
814 }
815 }
820 modify_arc $v $ka
821 }
823 modify_arc $v $b
824 }
831 }
834 }
837 }
846 }
851 }
858 }
862 }
864 }
865 }
870 }
871 }
873 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
874 }
876 # Fix up the graph after we have found out that in view $v,
877 # $p (a commit that we have already seen) is actually the parent
878 # of the last commit in arc $a.
880 global varcid varcstart varctok vupptr
884 splitvarc $p $v
886 }
887 # seeds always need to be renumbered
891 renumbervarc $pa $v
892 }
893 }
896 global cmitlisted children parents varcid varctok vtokmod
897 global varccommits ordertok commitidx numcommits curview
898 global targetid targetrow
900 readcommit $id
908 modify_arc $v $a
909 }
915 }
916 fix_reversal $p $a $v
920 setcanvscroll
923 incr targetrow
924 }
925 }
926 }
927 }
930 global varcid varccommits parents children cmitlisted
931 global commitidx varctok vtokmod targetid targetrow curview numcommits
938 return
939 }
946 # note we deliberately don't update varcstart($v) even if $i == 0
948 modify_arc $v $a $i
951 incr targetrow
952 }
953 }
954 setcanvscroll
955 drawvisible
956 }
959 global varcid varccommits parents children commitidx
960 global varctok vtokmod cmitlisted currentid selectedline
961 global targetid curview numcommits
966 return
967 }
973 return
974 }
984 }
985 modify_arc $v $a $i
987 unset currentid
989 }
992 }
993 setcanvscroll
994 drawvisible
995 }
998 global children nullid nullid2
1003 lappend kids $id
1004 }
1005 }
1007 }
1010 global children nullid nullid2
1015 }
1016 }
1018 }
1021 global children nullid nullid2
1028 }
1029 }
1031 }
1034 global varctok varcid
1038 }
1040 # This assumes that if lim is not given, the caller has checked that
1041 # arc a's token is less than $vtokmod($v)
1043 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1051 }
1052 }
1059 }
1064 }
1066 }
1068 undolayout $r
1069 }
1070 }
1073 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1074 global varcid vrownum varcorder varcix varccommits
1075 global vupptr vdownptr vleftptr varctok
1076 global displayorder parentlist curview cached_commitrow
1083 }
1085 }
1089 # go up the tree until we find something that has a row number,
1090 # or we get to a seed
1092 }
1107 }
1109 }
1113 # go down if possible
1116 # if not, go left, or go up until we can go left
1121 }
1123 }
1125 incr arcn
1130 }
1136 }
1137 }
1139 # Test whether view $v contains commit $id
1141 global varcid
1144 }
1146 # Return the row number for commit $id in the current view
1148 global varcid varccommits varcrow curview cached_commitrow
1149 global varctok vtokmod
1155 }
1158 update_arcrows $v
1159 }
1162 }
1167 }
1171 }
1173 # Returns 1 if a is on an earlier row than b, otherwise 0
1175 global varcid varctok curview
1181 }
1185 }
1187 }
1192 }
1204 }
1205 }
1207 }
1209 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1211 global vrownum curview commitidx displayorder parentlist
1212 global varccommits varcorder parents vrowmod varcrow
1213 global d_valid_start d_valid_end
1216 update_arcrows $curview
1217 }
1233 }
1235 lappend displayorder $id
1237 }
1241 lset displayorder $i $id
1243 incr i
1244 }
1245 }
1246 incr r $al
1247 }
1248 }
1251 global displayorder
1257 }
1259 }
1262 global varctok varccommits varcid parents children
1263 global cmitlisted commitidx vtokmod
1272 # add p as a new commit
1273 incr missing_parents
1281 }
1284 modify_arc $v $b
1285 }
1289 }
1290 }
1294 }
1295 }
1296 }
1298 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1299 # Assumes we already have an arc for $rwid.
1301 global children parents varcid varctok vtokmod varccommits
1304 # make $rwid be $ch's parent in place of $id
1308 }
1310 # add $ch to $rwid's children and sort the list if necessary
1314 }
1315 # fix the graph after joining $id to $rwid
1317 fix_reversal $rwid $a $v
1318 # parentlist is wrong for the last element of arc $a
1319 # even if displayorder is right, hence the 3rd arg here
1321 }
1322 }
1324 # Mechanism for registering a command to be executed when we come
1325 # across a particular commit. To handle the case when only the
1326 # prefix of the commit is known, the commitinterest array is now
1327 # indexed by the first 4 characters of the ID. Each element is a
1328 # list of id, cmd pairs.
1330 global commitinterest
1333 }
1336 global commitinterest
1345 lappend newlist $i $script
1346 }
1347 }
1352 }
1353 }
1355 }
1358 global cmitlisted leftover
1359 global commitidx commitdata vdatemode
1360 global parents children curview hlview
1361 global idpending ordertok
1362 global varccommits varcid varctok vtokmod vfilelimit
1365 # git log doesn't terminate the last commit with a null...
1368 }
1372 }
1373 global commfd viewcomplete viewactive viewname
1374 global viewinstances
1379 }
1380 # set it blocking so we wait for the process to terminate
1386 }
1389 bad arguments to git log."
1391 append err \
1392 " (Note: arguments to gitk are passed to git log\
1393 to allow selection of commits to be displayed.)"
1394 }
1397 }
1398 error_popup $err
1399 }
1402 # Check if we have seen any ids listed as parents that haven't
1403 # appeared in the list
1404 closevarcs $view
1405 notbusy $view
1406 }
1408 run chewcommits
1409 }
1411 }
1419 break
1420 }
1427 }
1440 }
1442 }
1447 break
1448 }
1449 }
1450 }
1455 }
1457 exit 1
1458 }
1465 # when doing path limiting, so work around that here
1466 # by working out the rewritten parent with git rev-list
1467 # and if we already know about it, using the rewritten
1468 # parent as a substitute parent for $id's children.
1472 }]} {
1474 # use $rwid in place of $id
1475 rewrite_commit $view $id $rwid
1476 continue
1477 }
1478 }
1479 }
1485 }
1490 }
1502 }
1503 }
1505 # new arc
1507 }
1509 modify_arc $view $a
1510 }
1515 }
1526 }
1528 fix_reversal $p $a $view
1529 }
1530 }
1531 incr i
1532 }
1536 }
1538 global numcommits hlview
1542 run chewcommits
1543 }
1545 # we never actually get here...
1546 run vhighlightmore
1547 }
1550 }
1551 }
1553 }
1555 proc chewcommits {} {
1556 global curview hlview viewcomplete
1557 global pending_select
1559 layoutmore
1561 global commitidx varctok
1562 global numcommits startmsecs
1565 update
1566 reset_pending_select {}
1573 }
1574 }
1576 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1577 #puts "overall $ms ms for $numcommits commits"
1578 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1581 }
1582 notbusy layout
1583 }
1585 }
1588 global tclencoding
1590 # Invoke git-log to handle automatic encoding conversion
1592 # Read the results using i18n.logoutputencoding
1596 }
1598 close $fd
1599 # Remove the heading line
1603 }
1608 }
1611 global commitinfo cdate
1622 # should never happen...
1624 }
1636 }
1637 }
1639 # take the first non-blank line of the comment as the headline
1644 }
1649 }
1651 # git log indents the comment by 4 spaces;
1652 # if we got this via git cat-file, add the indentation
1655 append newcomment " "
1656 append newcomment $line
1658 }
1660 }
1663 }
1666 }
1669 global commitdata commitinfo
1674 readcommit $id
1677 }
1678 }
1680 }
1682 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1683 # and are present in the current view.
1684 # This is fairly slow...
1686 global varcid curview
1691 }
1693 }
1695 proc readrefs {} {
1696 global tagids idtags headids idheads tagobjid
1697 global otherrefids idotherrefs mainhead mainheadid
1698 global selecthead selectheadid
1699 global hideremotes
1703 }
1715 }
1721 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1722 # which is what we want since the former is the commit ID
1728 }
1734 }
1735 }
1739 catch {
1744 }
1745 }
1748 catch {
1750 }
1751 }
1752 }
1754 # skip over fake commits
1755 proc first_real_row {} {
1756 global nullid nullid2 numcommits
1761 break
1762 }
1763 }
1765 }
1767 # update things for a head moved to a child of its previous location
1769 global headids idheads
1774 }
1776 # update things when a head has been removed
1778 global headids idheads
1786 }
1787 }
1789 }
1792 global use_ttk
1796 }
1798 }
1801 global have_tk85
1803 # In MacOS Tk 8.4 transient appears to work by setting
1804 # overrideredirect, which is utterly useless, since the
1805 # windows get no border, and are not even kept above
1806 # the parent.
1809 wm transient $window $origin
1811 # Windows fails to place transient windows normally, so
1812 # schedule a callback to center them on the parent.
1815 }
1816 }
1819 global NS
1830 tkwait window $top
1831 }
1838 set w .error
1839 ttk_toplevel $w
1840 make_transient $w $owner
1841 show_error $w $w $msg
1842 }
1843 }
1846 global confirm_ok NS
1848 set w .confirm
1849 ttk_toplevel $w
1850 make_transient $w $owner
1862 tkwait window $w
1864 }
1866 proc setoptions {} {
1869 option add *Panedwindow.sashRelief raised startupFile
1871 option add *Menu.font uifont startupFile
1872 }
1875 }
1876 option add *Button.font uifont startupFile
1877 option add *Checkbutton.font uifont startupFile
1878 option add *Radiobutton.font uifont startupFile
1879 option add *Menubutton.font uifont startupFile
1880 option add *Label.font uifont startupFile
1881 option add *Message.font uifont startupFile
1882 option add *Entry.font textfont startupFile
1883 option add *Text.font textfont startupFile
1884 option add *Labelframe.font uifont startupFile
1885 option add *Spinbox.font textfont startupFile
1886 option add *Listbox.font mainfont startupFile
1887 }
1889 # Make a menu and submenus.
1890 # m is the window name for the menu, items is the list of menu items to add.
1891 # Each item is a list {mc label type description options...}
1892 # mc is ignored; it's so we can put mc there to alert xgettext
1893 # label is the string that appears in the menu
1894 # type is cascade, command or radiobutton (should add checkbutton)
1895 # description depends on type; it's the sublist for cascade, the
1896 # command to invoke for command, or {variable value} for radiobutton
1898 menu $m
1900 set Meta1 Cmd
1902 set Meta1 Ctrl
1903 }
1914 }
1915 }
1920 }
1923 }
1927 }
1928 }
1934 }
1935 }
1936 }
1938 # translate string and remove ampersands
1941 }
1944 global use_ttk
1950 }
1955 }
1957 }
1959 proc makewindow {} {
1960 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1961 global tabstop
1962 global findtype findtypemenu findloc findstring fstring geometry
1963 global entries sha1entry sha1string sha1but
1964 global diffcontextstring diffcontext
1965 global ignorespace
1966 global maincursor textcursor curtextcursor
1967 global rowctxmenu fakerowmenu mergemax wrapcomment
1968 global highlight_files gdttype
1969 global searchstring sstring
1970 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1971 global headctxmenu progresscanv progressitem progresscoords statusw
1972 global fprogitem fprogcoord lastprogupdate progupdatepending
1973 global rprogitem rprogcoord rownumsel numcommits
1974 global have_tk85 use_ttk NS
1976 # The "mc" arguments here are purely so that xgettext
1977 # sees the following string as needing to be translated
1988 }}
1992 }}
2000 }}
2006 }}
2016 }}
2020 }}
2022 }
2023 makemenu .bar $bar
2024 . configure -menu .bar
2027 # cover the non-themed toplevel with a themed frame.
2029 }
2031 # the gui has upper and lower half, parts of a paned window.
2034 # possibly use assumed geometry
2042 }
2044 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2050 }
2052 # create three canvases
2053 set cscroll .tf.histframe.csb
2054 set canv .tf.histframe.pwclist.canv
2055 canvas $canv \
2059 .tf.histframe.pwclist add $canv
2060 set canv2 .tf.histframe.pwclist.canv2
2061 canvas $canv2 \
2064 .tf.histframe.pwclist add $canv2
2065 set canv3 .tf.histframe.pwclist.canv3
2066 canvas $canv3 \
2069 .tf.histframe.pwclist add $canv3
2075 }
2079 }
2081 # a scroll bar to rule them
2086 lappend bglist $canv $canv2 $canv3
2089 # we have two button bars at bottom of top frame. Bar 1
2093 set sha1entry .tf.bar.sha1
2095 set sha1but .tf.bar.sha1label
2099 pack .tf.bar.sha1label -side left
2101 trace add variable sha1string write sha1change
2105 #define left_width 16
2106 #define left_height 16
2107 static unsigned char left_bits[] = {
2111 }
2113 #define right_width 16
2114 #define right_height 16
2115 static unsigned char right_bits[] = {
2119 }
2134 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2135 -side left
2138 }
2139 global selectedline
2140 trace add variable selectedline write selectedline_change
2142 # Status label and progress bar
2143 set statusw .tf.bar.status
2150 set progresscanv .tf.bar.progress
2155 }
2164 # build up the bottom bar of upper window
2169 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2176 trace add variable gdttype write gdttype_change
2180 set fstring .tf.lbar.findstring
2181 lappend entries $fstring
2183 trace add variable findstring write find_change
2187 trace add variable findtype write findcom_change
2191 trace add variable findloc write find_change
2192 pack .tf.lbar.findloc -side right
2193 pack .tf.lbar.findtype -side right
2196 # Finish putting the upper half of the viewer together
2200 .ctop add .tf
2204 }
2206 # now build up the bottom
2209 # lower left, a text box over search bar, scroll bar to the right
2210 # if we know window height, then that will set the lower text height, otherwise
2211 # we set lower text height which will drive window height
2216 }
2223 set sstring .bleft.top.sstring
2226 lappend entries $sstring
2227 trace add variable searchstring write incrsearch
2240 -textvariable diffcontextstring
2242 trace add variable diffcontextstring write diffcontextchange
2243 lappend entries .bleft.mid.diffcontext
2244 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2248 set ctext .bleft.bottom.ctext
2255 }
2261 grid .bleft.bottom.sbhorizontal -sticky ew
2266 lappend bglist $ctext
2267 lappend fglist $ctext
2296 .pwbottom add .bleft
2299 }
2301 # lower right
2310 set cflist .bright.cfiles
2312 text $cflist \
2315 -font mainfont \
2320 lappend bglist $cflist
2321 lappend fglist $cflist
2325 $cflist tag configure highlight \
2329 .pwbottom add .bright
2330 .ctop add .pwbottom
2332 # restore window width & height if known
2337 }
2340 }
2342 }
2343 }
2347 }
2350 set M1B M1
2353 set M1B Control
2355 }
2361 }
2365 }
2366 }
2371 #bindall <B1-Motion> {selcanvline %W %x %y}
2381 allcanvs yview scroll $delta units
2382 }
2386 }
2387 }
2388 }
2412 bindkey p "selnextline -1"
2413 bindkey n "selnextline 1"
2414 bindkey z "goback"
2415 bindkey x "goforw"
2416 bindkey i "selnextline -1"
2417 bindkey k "selnextline 1"
2418 bindkey j "goback"
2419 bindkey l "goforw"
2420 bindkey b prevfile
2427 bindkey f nextfile
2444 wm protocol . WM_DELETE_WINDOW doquit
2453 global ctxbut
2457 set maincursor [. cget -cursor]
2461 set rowctxmenu .rowctxmenu
2463 {mc "Diff this -> selected" command {diffvssel 0}}
2464 {mc "Diff selected -> this" command {diffvssel 1}}
2465 {mc "Make patch" command mkpatch}
2466 {mc "Create tag" command mktag}
2467 {mc "Write commit to file" command writecommit}
2468 {mc "Create new branch" command mkbranch}
2469 {mc "Cherry-pick this commit" command cherrypick}
2470 {mc "Reset HEAD branch to here" command resethead}
2471 {mc "Mark this commit" command markhere}
2472 {mc "Return to mark" command gotomark}
2473 {mc "Find descendant of this and mark" command find_common_desc}
2474 {mc "Compare with marked commit" command compare_commits}
2475 }
2478 set fakerowmenu .fakerowmenu
2480 {mc "Diff this -> selected" command {diffvssel 0}}
2481 {mc "Diff selected -> this" command {diffvssel 1}}
2482 {mc "Make patch" command mkpatch}
2483 }
2486 set headctxmenu .headctxmenu
2488 {mc "Check out this branch" command cobranch}
2489 {mc "Remove this branch" command rmbranch}
2490 }
2493 global flist_menu
2494 set flist_menu .flistctxmenu
2496 {mc "Highlight this too" command {flist_hl 0}}
2497 {mc "Highlight this only" command {flist_hl 1}}
2498 {mc "External diff" command {external_diff}}
2499 {mc "Blame parent commit" command {external_blame 1}}
2500 }
2503 global diff_menu
2504 set diff_menu .diffctxmenu
2506 {mc "Show origin of this line" command show_line_source}
2507 {mc "Run git gui blame on this line" command {external_blame_diff}}
2508 }
2510 }
2512 # Windows sends all mouse wheel events to the current focused window, not
2513 # the one where the mouse hovers, so bind those events here and redirect
2514 # to the correct window
2515 proc windows_mousewheel_redirector {W X Y D} {
2516 global canv canv2 canv3
2522 } else {
2523 catch {
2525 }
2526 }
2527 }
2528 }
2530 # Update row number label when selectedline changes
2531 proc selectedline_change {n1 n2 op} {
2532 global selectedline rownumsel
2535 set rownumsel {}
2536 } else {
2538 }
2539 }
2541 # mouse-2 makes all windows scan vertically, but only the one
2542 # the cursor is in scans horizontally
2543 proc canvscan {op w x y} {
2544 global canv canv2 canv3
2548 } else {
2550 }
2551 }
2552 }
2554 proc scrollcanv {cscroll f0 f1} {
2556 drawvisible
2557 flushhighlights
2558 }
2560 # when we make a key binding for the toplevel, make sure
2561 # it doesn't get triggered when that key is pressed in the
2562 # find string entry widget.
2563 proc bindkey {ev script} {
2564 global entries
2568 set escript [bind Entry <Key>]
2569 }
2572 }
2573 }
2575 # set the focus back to the toplevel for any click outside
2576 # the entry widgets
2577 proc click {w} {
2578 global ctext entries
2581 }
2582 focus .
2583 }
2585 # Adjust the progress bar for a change in requested extent or canvas size
2586 proc adjustprogress {} {
2587 global progresscanv progressitem progresscoords
2588 global fprogitem fprogcoord lastprogupdate progupdatepending
2589 global rprogitem rprogcoord use_ttk
2593 return
2594 }
2603 set now [clock clicks -milliseconds]
2605 set progupdatepending 0
2606 update
2608 set progupdatepending 1
2610 }
2611 }
2613 proc doprogupdate {} {
2614 global lastprogupdate progupdatepending
2617 set progupdatepending 0
2618 set lastprogupdate [clock clicks -milliseconds]
2619 update
2620 }
2621 }
2623 proc savestuff {w} {
2624 global canv canv2 canv3 mainfont textfont uifont tabstop
2625 global stuffsaved findmergefiles maxgraphpct
2626 global maxwidth showneartags showlocalchanges
2627 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2628 global cmitmode wrapcomment datetimeformat limitdiffs
2629 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2630 global autoselect extdifftool perfile_attrs markbgcolor use_ttk
2631 global hideremotes want_ttk
2634 if {![winfo viewable .]} return
2635 catch {
2636 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2637 set f [open "~/.gitk-new" w]
2638 if {$::tcl_platform(platform) eq {windows}} {
2639 file attributes "~/.gitk-new" -hidden true
2640 }
2675 } else {
2678 }
2686 }
2687 }
2690 file rename -force "~/.gitk-new" "~/.gitk"
2691 }
2692 set stuffsaved 1
2693 }
2695 proc resizeclistpanes {win w} {
2696 global oldwidth use_ttk
2701 } else {
2704 }
2708 } else {
2713 set sash0 30
2714 }
2717 }
2722 }
2723 }
2724 }
2728 } else {
2731 }
2732 }
2734 }
2736 proc resizecdetpanes {win w} {
2737 global oldwidth use_ttk
2741 } else {
2743 }
2746 } else {
2750 set sash0 45
2751 }
2754 }
2755 }
2758 } else {
2760 }
2761 }
2763 }
2765 proc allcanvs args {
2766 global canv canv2 canv3
2770 }
2772 proc bindall {event action} {
2773 global canv canv2 canv3
2777 }
2779 proc about {} {
2780 global uifont NS
2781 set w .about
2784 return
2785 }
2790 Gitk - a commit viewer for git
2792 Copyright \u00a9 2005-2010 Paul Mackerras
2794 Use and redistribute under the terms of the GNU General Public License"] \
2795 -justify center -aspect 400 -border 2 -bg white -relief groove
2803 }
2805 proc keys {} {
2806 global NS
2807 set w .keys
2810 return
2811 }
2812 if {[tk windowingsystem] eq {aqua}} {
2813 set M1T Cmd
2814 } else {
2815 set M1T Ctrl
2816 }
2821 [mc "Gitk key bindings:"]
2825 [mc "<Home> Move to first commit"]
2826 [mc "<End> Move to last commit"]
2827 [mc "<Up>, p, i Move up one commit"]
2828 [mc "<Down>, n, k Move down one commit"]
2829 [mc "<Left>, z, j Go back in history list"]
2830 [mc "<Right>, x, l Go forward in history list"]
2831 [mc "<PageUp> Move up one page in commit list"]
2832 [mc "<PageDown> Move down one page in commit list"]
2839 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2840 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2841 [mc "<Delete>, b Scroll diff view up one page"]
2842 [mc "<Backspace> Scroll diff view up one page"]
2843 [mc "<Space> Scroll diff view down one page"]
2844 [mc "u Scroll diff view up 18 lines"]
2845 [mc "d Scroll diff view down 18 lines"]
2848 [mc "<Return> Move to next find hit"]
2849 [mc "/ Focus the search box"]
2850 [mc "? Move to previous find hit"]
2851 [mc "f Scroll diff view to next file"]
2858 [mc "<F5> Update"]
2859 " \
2860 -justify left -bg white -border 2 -relief groove
2868 }
2870 # Procedures for manipulating the file list window at the
2871 # bottom right of the overall window.
2873 proc treeview {w l openlevs} {
2874 global treecontents treediropen treeheight treeparent treeindex
2876 set ix 0
2877 set treeindex() 0
2878 set lev 0
2879 set prefix {}
2880 set prefixend -1
2881 set prefendstack {}
2882 set htstack {}
2883 set ht 0
2884 set treecontents() {}
2891 }
2898 incr lev -1
2899 }
2903 set ht 0
2915 set ht 1
2920 set str "\n"
2928 }
2929 incr lev
2930 }
2933 incr ht
2934 set str "\n"
2938 }
2940 }
2941 }
2949 }
2951 }
2953 proc linetoelt {l} {
2954 global treeheight treecontents
2956 set y 2
2957 set prefix {}
2958 while {1} {
2962 }
2963 set n 1
2968 incr y
2969 break
2970 }
2971 }
2973 }
2974 }
2975 }
2977 proc highlight_tree {y prefix} {
2978 global treeheight treecontents cflist
2984 }
2985 incr y
2988 }
2989 }
2991 }
2993 proc treeclosedir {w dir} {
2994 global treediropen treeheight treeparent treeindex
3006 }
3007 }
3009 proc treeopendir {w dir} {
3010 global treediropen treeheight treeparent treecontents treeindex
3017 set lev 0
3018 set str "\n"
3021 incr lev
3022 append str "\t"
3024 }
3039 } else {
3042 }
3043 }
3056 }
3058 }
3059 }
3061 proc treeclick {w x y} {
3062 global treediropen cmitmode ctext cflist cflist_top
3065 if {![info exists cflist_top]} return
3072 return
3073 }
3079 } else {
3081 }
3082 }
3084 proc setfilelist {id} {
3085 global treefilelist cflist jump_to_here
3092 }
3093 }
3094 }
3096 image create bitmap tri-rt -background black -foreground blue -data {
3097 #define tri-rt_width 13
3098 #define tri-rt_height 13
3099 static unsigned char tri-rt_bits[] = {
3100 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3101 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3102 0x00, 0x00};
3103 } -maskdata {
3104 #define tri-rt-mask_width 13
3105 #define tri-rt-mask_height 13
3106 static unsigned char tri-rt-mask_bits[] = {
3107 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3108 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3109 0x08, 0x00};
3110 }
3111 image create bitmap tri-dn -background black -foreground blue -data {
3112 #define tri-dn_width 13
3113 #define tri-dn_height 13
3114 static unsigned char tri-dn_bits[] = {
3115 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3116 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3117 0x00, 0x00};
3118 } -maskdata {
3119 #define tri-dn-mask_width 13
3120 #define tri-dn-mask_height 13
3121 static unsigned char tri-dn-mask_bits[] = {
3122 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3123 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3124 0x00, 0x00};
3125 }
3127 image create bitmap reficon-T -background black -foreground yellow -data {
3128 #define tagicon_width 13
3129 #define tagicon_height 9
3130 static unsigned char tagicon_bits[] = {
3131 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3132 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3133 } -maskdata {
3134 #define tagicon-mask_width 13
3135 #define tagicon-mask_height 9
3136 static unsigned char tagicon-mask_bits[] = {
3137 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3138 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3139 }
3140 set rectdata {
3141 #define headicon_width 13
3142 #define headicon_height 9
3143 static unsigned char headicon_bits[] = {
3144 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3145 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3146 }
3147 set rectmask {
3148 #define headicon-mask_width 13
3149 #define headicon-mask_height 9
3150 static unsigned char headicon-mask_bits[] = {
3151 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3152 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3153 }
3154 image create bitmap reficon-H -background black -foreground green \
3156 image create bitmap reficon-o -background black -foreground "#ddddff" \
3159 proc init_flist {first} {
3160 global cflist cflist_top difffilestart
3166 set cflist_top 1
3168 } else {
3169 catch {unset cflist_top}
3170 }
3172 set difffilestart {}
3173 }
3175 proc highlight_tag {f} {
3176 global highlight_paths
3180 return "bold"
3181 }
3182 }
3183 return {}
3184 }
3186 proc highlight_filelist {} {
3187 global cmitmode cflist
3196 }
3197 }
3198 } else {
3199 highlight_tree 2 {}
3200 }
3202 }
3204 proc unhighlight_filelist {} {
3205 global cflist
3210 }
3212 proc add_flist {fl} {
3213 global cflist
3219 }
3221 }
3223 proc sel_flist {w x y} {
3224 global ctext difffilestart cflist cflist_top cmitmode
3227 if {![info exists cflist_top]} return
3234 } else {
3236 }
3237 }
3239 proc pop_flist_menu {w X Y x y} {
3240 global ctext cflist cmitmode flist_menu flist_menu_file
3241 global treediffs diffids
3243 stopfinding
3249 } else {
3251 }
3253 set xdiffstate "normal"
3255 set xdiffstate "disabled"
3256 }
3257 # Disable "External diff" item in tree mode
3260 }
3262 proc find_ctext_fileinfo {line} {
3263 global ctext_file_names ctext_file_lines
3269 return {}
3270 } else {
3272 }
3273 }
3275 proc pop_diff_menu {w X Y x y} {
3276 global ctext diff_menu flist_menu_file
3277 global diff_menu_txtpos diff_menu_line
3278 global diff_menu_filebase
3282 # don't pop up the menu on hunk-separator or file-separator lines
3284 return
3285 }
3286 stopfinding
3292 }
3294 proc flist_hl {only} {
3295 global flist_menu_file findstring gdttype
3300 } else {
3302 }
3303 set gdttype [mc "touching paths:"]
3304 }
3306 proc gitknewtmpdir {} {
3307 global diffnum gitktmpdir gitdir
3309 if {![info exists gitktmpdir]} {
3311 [format ".gitk-tmp.%s" [pid]]]
3314 unset gitktmpdir
3315 return {}
3316 }
3317 set diffnum 0
3318 }
3319 incr diffnum
3323 return {}
3324 }
3326 }
3328 proc save_file_from_commit {filename output what} {
3329 global nullfile
3334 }
3336 return {}
3337 }
3339 }
3341 proc external_diff_get_one_file {diffid filename diffdir} {
3342 global nullid nullid2 nullfile
3343 global gitdir
3349 }
3351 }
3355 }
3359 }
3361 proc external_diff {} {
3362 global nullid nullid2
3363 global flist_menu_file
3364 global diffids
3365 global extdifftool
3368 # no reference commit given
3371 # diffing working copy with index
3374 # diffing index with HEAD
3375 set diffidfrom "HEAD"
3376 } else {
3377 # use first parent commit
3378 global parentlist selectedline
3380 }
3381 } else {
3384 }
3386 # make sure that several diffs wont collide
3387 set diffdir [gitknewtmpdir]
3390 # gather files to diff
3399 } else {
3402 }
3403 }
3404 }
3406 proc find_hunk_blamespec {base line} {
3407 global ctext
3409 # Find and parse the hunk header
3415 s_line old_specs osz osz1 new_line nsz]} {
3416 return
3417 }
3419 # base lines for the parents
3423 old_spec old_line osz]} {
3424 return
3425 }
3427 }
3429 # Now scan the lines to determine offset within the hunk
3431 set dline 0
3434 # Determine if the line is removed
3438 # Choose a parent index
3441 } else {
3445 } else {
3446 # blame the current commit
3447 set parent -1
3448 }
3449 }
3450 # then count other lines that belong to it
3453 # Determine if the line is removed
3458 incr dline
3459 }
3460 } else {
3462 incr dline
3463 }
3464 }
3465 }
3466 incr parent
3467 } else {
3468 set parent 0
3469 }
3473 }
3475 proc external_blame_diff {} {
3476 global currentid cmitmode
3477 global diff_menu_txtpos diff_menu_line
3478 global diff_menu_filebase flist_menu_file
3481 set parent_idx 0
3483 } else {
3488 } else {
3489 set parent_idx 0
3490 set line 0
3491 }
3492 }
3495 }
3498 # at stage 0 or 2
3499 proc index_sha1 {fname} {
3507 }
3508 }
3510 return {}
3511 }
3513 # Turn an absolute path into one relative to the current directory
3514 proc make_relative {f} {
3517 }
3519 set here [file split [pwd]]
3520 set ei 0
3521 set hi 0
3522 set res {}
3525 lappend res ".."
3526 } else {
3527 incr ei
3528 }
3529 incr hi
3530 }
3533 }
3535 proc external_blame {parent_idx {line {}}} {
3536 global flist_menu_file gitdir
3537 global nullid nullid2
3538 global parentlist selectedline currentid
3542 } else {
3544 }
3547 error_popup [mc "No such commit"]
3548 return
3549 }
3551 set cmdline [list git gui blame]
3554 }
3556 # Unfortunately it seems git gui blame doesn't like
3557 # being given an absolute path...
3562 }
3563 }
3565 proc show_line_source {} {
3566 global cmitmode currentid parents curview blamestuff blameinst
3567 global diff_menu_line diff_menu_filebase flist_menu_file
3568 global nullid nullid2 gitdir
3570 set from_index {}
3574 } else {
3580 return
3581 }
3582 incr pi -1
3585 # must be a merge in progress...
3586 if {[catch {
3587 # get the last line from .git/MERGE_HEAD
3591 } err]} {
3593 return
3594 }
3596 # need to do the blame from the index
3597 if {[catch {
3599 } err]} {
3601 return
3602 }
3603 } else {
3605 }
3606 } else {
3608 }
3610 }
3611 set blameargs {}
3614 }
3617 lappend blameargs --contents -
3618 } else {
3620 }
3622 if {[catch {
3624 } err]} {
3626 return
3627 }
3628 nowbusy blaming [mc "Searching"]
3634 }
3636 proc stopblaming {} {
3637 global blameinst
3639 if {[info exists blameinst]} {
3641 unset blameinst
3642 notbusy blaming
3643 }
3644 }
3646 proc read_line_source {fd inst} {
3647 global blamestuff curview commfd blameinst nullid nullid2
3651 }
3653 return 1
3654 }
3656 unset blameinst
3657 notbusy blaming
3661 return 0
3662 }
3664 set fname {}
3670 # look for "filename" line
3674 break
3675 }
3676 }
3677 }
3679 # all looks good, select it
3681 # blame uses all-zeroes to mean not committed,
3682 # which would mean a change in the index
3684 }
3687 } else {
3688 error_popup [mc "That line comes from commit %s, \
3690 }
3691 } else {
3692 puts "oops couldn't parse git blame output"
3693 }
3694 return 0
3695 }
3698 proc delete_at_eof {f dir} {
3703 }
3705 return 0
3706 }
3707 return 1
3708 }
3710 # Functions for adding and removing shell-type quoting
3712 proc shellquote {str} {
3715 }
3718 }
3721 }
3723 }
3725 proc shellarglist {l} {
3726 set str {}
3729 append str " "
3730 }
3732 }
3734 }
3736 proc shelldequote {str} {
3737 set ret {}
3738 set used -1
3739 while {1} {
3740 incr used
3744 break
3745 }
3751 }
3753 incr used
3757 error "unmatched single-quote"
3758 }
3761 continue
3762 }
3765 error "trailing backslash"
3766 }
3768 continue
3769 }
3770 # here ch == "\""
3771 while {1} {
3773 error "unmatched double-quote"
3774 }
3780 }
3782 incr used
3784 incr used
3785 }
3786 }
3788 }
3790 proc shellsplit {str} {
3791 set l {}
3792 while {1} {
3800 }
3802 }
3804 # Code to implement multiple views
3806 proc newview {ishighlight} {
3807 global nextviewnum newviewname newishighlight
3808 global revtreeargs viewargscmd newviewopts curview
3811 set top .gitkview
3814 return
3815 }
3821 }
3823 set known_view_options {
3824 {perm b . {} {mc "Remember this view"}}
3825 {reflabel l + {} {mc "References (space separated list):"}}
3826 {refs t15 .. {} {mc "Branches & tags:"}}
3827 {allrefs b *. "--all" {mc "All refs"}}
3828 {branches b . "--branches" {mc "All (local) branches"}}
3829 {tags b . "--tags" {mc "All tags"}}
3830 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3831 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3832 {author t15 .. "--author=*" {mc "Author:"}}
3833 {committer t15 . "--committer=*" {mc "Committer:"}}
3834 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3835 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3836 {changes_l l + {} {mc "Changes to Files:"}}
3837 {pickaxe_s r0 . {} {mc "Fixed String"}}
3838 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3839 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3840 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3841 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3842 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3843 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3844 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3845 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3846 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3847 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3848 {lright b . "--left-right" {mc "Mark branch sides"}}
3849 {first b . "--first-parent" {mc "Limit to first parent"}}
3850 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3851 {args t50 *. {} {mc "Additional arguments to git log:"}}
3852 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3853 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3854 }
3857 proc encode_view_opts {n} {
3858 global known_view_options newviewopts
3860 set rargs [list]
3870 }
3876 }
3877 } else {
3883 }
3884 }
3885 }
3888 }
3891 proc decode_view_opts {n view_args} {
3892 global known_view_options newviewopts
3897 # Checkboxes
3898 set val 0
3900 # Radiobuttons
3902 set val 0
3903 } else {
3904 # Text fields
3905 set val {}
3906 }
3908 }
3909 set oargs [list]
3910 set refargs [list]
3913 && ![info exists found(limit)]} {
3915 set found(limit) 1
3916 continue
3917 }
3918 catch { unset val }
3925 # Check buttons
3926 set val 1
3928 # Radio buttons
3931 } else {
3932 # Text input fields
3935 }
3938 break
3939 }
3940 if {[info exists val]} break
3941 }
3942 if {[info exists val]} continue
3945 } else {
3947 }
3948 }
3951 }
3953 proc edit_or_newview {} {
3954 global curview
3957 editview
3958 } else {
3959 newview 0
3960 }
3961 }
3963 proc editview {} {
3964 global curview
3965 global viewname viewperm newviewname newviewopts
3966 global viewargs viewargscmd
3971 return
3972 }
3978 }
3980 proc vieweditor {top n title} {
3981 global newviewname newviewopts viewfiles bgcolor
3982 global known_view_options NS
3988 # View name
3996 # View options
3998 set cexpand 0
3999 set cnt 0
4005 set lxpad 0
4009 incr cnt
4015 incr cnt
4019 } else {
4020 set lxpad 5
4021 }
4055 }
4058 }
4060 }
4061 }
4076 }
4078 proc doviewmenu {m first cmd op argv} {
4083 break
4084 }
4085 }
4086 }
4088 proc allviewmenus {n op args} {
4089 # global viewhlmenu
4093 }
4095 proc newviewok {top n {apply 0}} {
4096 global nextviewnum newviewperm newviewname newishighlight
4097 global viewname viewfiles viewperm selectedview curview
4098 global viewargs viewargscmd newviewopts viewhlmenu
4100 if {[catch {
4102 } err]} {
4104 return
4105 }
4106 set files {}
4111 }
4112 }
4114 # creating a new view
4115 incr nextviewnum
4124 } else {
4126 }
4127 } else {
4128 # editing an existing view
4136 }
4143 run reloadcommits
4144 }
4145 }
4146 }
4149 }
4151 proc delview {} {
4152 global curview viewperm hlview selectedhlview
4156 set selectedhlview [mc "None"]
4157 unset hlview
4158 }
4161 showview 0
4162 }
4164 proc addviewmenu {n} {
4165 global viewname viewhlmenu
4171 }
4173 proc showview {n} {
4174 global curview cached_commitrow ordertok
4175 global displayorder parentlist rowidlist rowisopt rowfinal
4176 global colormap rowtextx nextcolor canvxmax
4177 global numcommits viewcomplete
4178 global selectedline currentid canv canvy0
4179 global treediffs
4180 global pending_select mainheadid
4181 global commitidx
4182 global selectedview
4183 global hlview selectedhlview commitinterest
4186 set selid {}
4197 }
4198 } elseif {[info exists pending_select]} {
4200 unset pending_select
4201 }
4202 unselectline
4203 normalline
4204 catch {unset treediffs}
4205 clear_display
4207 unset hlview
4208 set selectedhlview [mc "None"]
4209 }
4210 catch {unset commitinterest}
4211 catch {unset cached_commitrow}
4212 catch {unset ordertok}
4219 run refill_reflist
4222 return
4223 }
4225 set displayorder {}
4226 set parentlist {}
4227 set rowidlist {}
4228 set rowisopt {}
4229 set rowfinal {}
4232 catch {unset colormap}
4233 catch {unset rowtextx}
4234 set nextcolor 0
4237 set row 0
4238 setcanvscroll
4239 set yf 0
4240 set row {}
4243 # try to get the selected row in the same position on the screen
4247 set ytop 0
4248 }
4250 }
4252 drawvisible
4257 } else {
4258 reset_pending_select {}
4262 } else {
4263 set row [first_real_row]
4266 }
4267 }
4268 }
4271 show_status [mc "Reading commits..."]
4272 }
4274 show_status [mc "No commits selected"]
4275 }
4276 }
4278 # Stuff relating to the highlighting facility
4280 proc ishighlighted {id} {
4281 global vhighlights fhighlights nhighlights rhighlights
4285 }
4288 }
4291 }
4294 }
4295 return 0
4296 }
4298 proc bolden {id font} {
4299 global canv linehtag currentid boldids need_redisplay markedid
4301 # need_redisplay = 1 means the display is stale and about to be redrawn
4308 -outline {{}} -tags secsel \
4311 }
4314 }
4315 }
4317 proc bolden_name {id font} {
4318 global canv2 linentag currentid boldnameids need_redisplay
4326 -outline {{}} -tags secsel \
4329 }
4330 }
4332 proc unbolden {} {
4333 global boldids
4335 set stillbold {}
4339 } else {
4341 }
4342 }
4344 }
4346 proc addvhighlight {n} {
4347 global hlview viewcomplete curview vhl_done commitidx
4349 if {[info exists hlview]} {
4350 delvhighlight
4351 }
4355 }
4358 drawvisible
4359 }
4360 }
4362 proc delvhighlight {} {
4363 global hlview vhighlights
4365 if {![info exists hlview]} return
4366 unset hlview
4367 catch {unset vhighlights}
4368 unbolden
4369 }
4371 proc vhighlightmore {} {
4372 global hlview vhl_done commitidx vhighlights curview
4375 set vr [visiblerows]
4385 }
4387 }
4388 }
4389 }
4391 return 0
4392 }
4394 proc askvhighlight {row id} {
4395 global hlview vhighlights iddrawn
4400 }
4402 } else {
4404 }
4405 }
4407 proc hfiles_change {} {
4408 global highlight_files filehighlight fhighlights fh_serial
4409 global highlight_paths
4411 if {[info exists filehighlight]} {
4412 # delete previous highlights
4414 unset filehighlight
4415 catch {unset fhighlights}
4416 unbolden
4417 unhighlight_filelist
4418 }
4419 set highlight_paths {}
4421 incr fh_serial
4424 }
4425 }
4427 proc gdttype_change {name ix op} {
4428 global gdttype highlight_files findstring findpattern
4430 stopfinding
4434 set highlight_files {}
4435 hfiles_change
4436 }
4437 findcom_change
4438 } else {
4440 set findpattern {}
4441 findcom_change
4442 }
4444 hfiles_change
4445 }
4446 drawvisible
4447 }
4448 # enable/disable findtype/findloc menus too
4449 }
4451 proc find_change {name ix op} {
4452 global gdttype findstring highlight_files
4454 stopfinding
4456 findcom_change
4457 } else {
4460 hfiles_change
4461 }
4462 }
4463 drawvisible
4464 }
4466 proc findcom_change args {
4467 global nhighlights boldnameids
4468 global findpattern findtype findstring gdttype
4470 stopfinding
4471 # delete previous highlights, if any
4474 }
4475 set boldnameids {}
4476 catch {unset nhighlights}
4477 unbolden
4478 unmarkmatches
4480 set findpattern {}
4483 } else {
4484 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4487 }
4488 }
4490 proc makepatterns {l} {
4491 set ret {}
4496 } else {
4499 }
4500 }
4502 }
4504 proc do_file_hl {serial} {
4505 global highlight_files filehighlight highlight_paths gdttype fhl_list
4510 highlight_filelist
4514 } else {
4515 # must be "containing:", i.e. we're searching commit info
4516 return
4517 }
4522 set fhl_list {}
4523 drawvisible
4524 flushhighlights
4525 }
4527 proc flushhighlights {} {
4528 global filehighlight fhl_list
4530 if {[info exists filehighlight]} {
4531 lappend fhl_list {}
4534 }
4535 }
4537 proc askfilehighlight {row id} {
4538 global filehighlight fhighlights fhl_list
4543 }
4545 proc readfhighlight {} {
4546 global filehighlight fhighlights curview iddrawn
4547 global fhl_list find_dirn
4549 if {![info exists filehighlight]} {
4550 return 0
4551 }
4552 set nr 0
4560 }
4566 }
4568 }
4570 # strange...
4571 puts "oops, git diff-tree died"
4573 unset filehighlight
4574 return 0
4575 }
4576 if {[info exists find_dirn]} {
4577 run findmore
4578 }
4579 return 1
4580 }
4582 proc doesmatch {f} {
4583 global findtype findpattern
4589 } else {
4591 }
4592 }
4594 proc askfindhighlight {row id} {
4595 global nhighlights commitinfo iddrawn
4596 global findloc
4597 global markingmatches
4601 }
4603 set isbold 0
4604 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4609 set isbold 2
4610 break
4611 }
4612 set isbold 1
4613 }
4614 }
4620 }
4621 }
4624 }
4625 }
4627 }
4629 proc markrowmatches {row id} {
4630 global canv canv2 linehtag linentag commitinfo findloc
4641 }
4642 }
4648 }
4649 }
4650 }
4652 proc vrel_change {name ix op} {
4653 global highlight_related
4655 rhighlight_none
4657 run drawvisible
4658 }
4659 }
4661 # prepare for testing whether commits are descendents or ancestors of a
4662 proc rhighlight_sel {a} {
4663 global descendent desc_todo ancestor anc_todo
4664 global highlight_related
4666 catch {unset descendent}
4668 catch {unset ancestor}
4671 rhighlight_none
4672 run drawvisible
4673 }
4674 }
4676 proc rhighlight_none {} {
4677 global rhighlights
4679 catch {unset rhighlights}
4680 unbolden
4681 }
4683 proc is_descendent {a} {
4684 global curview children descendent desc_todo
4689 set leftover {}
4690 set done 0
4695 continue
4696 }
4702 set done 1
4703 }
4704 }
4705 }
4708 return
4709 }
4710 }
4713 }
4715 proc is_ancestor {a} {
4716 global curview parents ancestor anc_todo
4721 set leftover {}
4722 set done 0
4727 continue
4728 }
4734 set done 1
4735 }
4736 }
4737 }
4740 return
4741 }
4742 }
4745 }
4747 proc askrelhighlight {row id} {
4748 global descendent highlight_related iddrawn rhighlights
4749 global selectedline ancestor
4752 set isbold 0
4757 }
4759 set isbold 1
4760 }
4765 }
4767 set isbold 1
4768 }
4769 }
4773 }
4774 }
4776 }
4778 # Graph layout functions
4780 proc shortids {ids} {
4781 set res {}
4787 } else {
4789 }
4790 }
4792 }
4794 proc ntimes {n o} {
4795 set ret {}
4800 }
4802 }
4804 }
4806 proc ordertoken {id} {
4807 global ordertok curview varcid varcstart varctok curview parents children
4808 global nullid nullid2
4812 }
4814 set todo {}
4815 while {1} {
4819 } else {
4821 }
4824 break
4825 }
4828 # it's a root
4830 break
4831 }
4834 } else {
4838 }
4840 }
4841 }
4846 }
4849 }
4851 # Work out where id should go in idlist so that order-token
4852 # values increase from left to right
4853 proc idcol {idlist id {i 0}} {
4856 set i 0
4857 }
4861 }
4863 incr i
4864 } else {
4868 }
4869 }
4871 }
4873 proc initlayout {} {
4874 global rowidlist rowisopt rowfinal displayorder parentlist
4875 global numcommits canvxmax canv
4876 global nextcolor
4877 global colormap rowtextx
4879 set numcommits 0
4880 set displayorder {}
4881 set parentlist {}
4882 set nextcolor 0
4883 set rowidlist {}
4884 set rowisopt {}
4885 set rowfinal {}
4887 catch {unset colormap}
4888 catch {unset rowtextx}
4889 setcanvscroll
4890 }
4892 proc setcanvscroll {} {
4893 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4894 global lastscrollset lastscrollrows
4900 set lastscrollset [clock clicks -milliseconds]
4902 }
4904 proc visiblerows {} {
4905 global canv numcommits linespc
4913 set r0 0
4914 }
4919 }
4921 }
4923 proc layoutmore {} {
4924 global commitidx viewcomplete curview
4925 global numcommits pending_select curview
4926 global lastscrollset lastscrollrows
4930 setcanvscroll
4931 }
4932 if {[info exists pending_select] &&
4934 update
4936 }
4937 drawvisible
4938 }
4940 # With path limiting, we mightn't get the actual HEAD commit,
4941 # so ask git rev-list what is the first ancestor of HEAD that
4942 # touches a file in the path limit.
4943 proc get_viewmainhead {view} {
4944 global viewmainheadid vfilelimit viewinstances mainheadid
4946 catch {
4954 }
4955 }
4958 proc getviewhead {fd inst view} {
4959 global viewmainheadid commfd curview viewinstances showlocalchanges
4961 set id {}
4964 return 1
4965 }
4968 }
4975 }
4977 doshowlocalchanges
4978 }
4979 return 0
4980 }
4982 proc doshowlocalchanges {} {
4983 global curview viewmainheadid
4987 dodiffindex
4988 } else {
4990 }
4991 }
4993 proc dohidelocalchanges {} {
4994 global nullid nullid2 lserial curview
4998 }
5001 }
5002 incr lserial
5003 }
5005 # spawn off a process to do git diff-index --cached HEAD
5006 proc dodiffindex {} {
5007 global lserial showlocalchanges vfilelimit curview
5008 global isworktree
5011 incr lserial
5012 set cmd "|git diff-index --cached HEAD"
5015 }
5020 }
5022 proc readdiffindex {fd serial inst} {
5023 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5024 global vfilelimit
5026 set isdiff 1
5029 return 1
5030 }
5031 set isdiff 0
5032 }
5033 # we only need to see one line and we don't really care what it says...
5037 return 0
5038 }
5040 # now see if there are any local changes not checked in to the index
5041 set cmd "|git diff-files"
5044 }
5051 # add the line for the changes in the index to the graph
5052 set hl [mc "Local changes checked in to index but not committed"]
5057 }
5062 }
5064 }
5065 return 0
5066 }
5068 proc readdifffiles {fd serial inst} {
5069 global viewmainheadid nullid nullid2 curview
5070 global commitinfo commitdata lserial
5072 set isdiff 1
5075 return 1
5076 }
5077 set isdiff 0
5078 }
5079 # we only need to see one line and we don't really care what it says...
5083 return 0
5084 }
5087 # add the line for the local diff to the graph
5088 set hl [mc "Local uncommitted changes, not checked in to index"]
5093 } else {
5095 }
5099 }
5100 return 0
5101 }
5103 proc nextuse {id row} {
5104 global curview children
5109 return -1
5110 }
5113 }
5114 }
5115 }
5118 }
5119 return -1
5120 }
5122 proc prevuse {id row} {
5123 global curview children
5125 set ret -1
5131 }
5132 }
5133 }
5135 }
5137 proc make_idlist {row} {
5138 global displayorder parentlist uparrowlen downarrowlen mingaplen
5139 global commitidx curview children
5143 set r 0
5144 }
5147 set ra 0
5148 }
5152 }
5154 set ids {}
5163 }
5164 }
5165 }
5173 }
5174 }
5175 }
5183 }
5184 }
5185 incr r
5191 }
5192 }
5193 }
5194 set idlist {}
5197 }
5199 }
5201 proc rowsequal {a b} {
5204 }
5207 }
5209 }
5211 proc makeupline {id row rend col} {
5212 global rowidlist uparrowlen downarrowlen mingaplen
5218 }
5221 }
5228 }
5229 }
5230 }
5232 proc layoutrows {row endrow} {
5233 global rowidlist rowisopt rowfinal displayorder
5234 global uparrowlen downarrowlen maxwidth mingaplen
5235 global children parentlist
5236 global commitidx viewcomplete curview
5239 set idlist {}
5245 }
5246 }
5248 }
5253 set final 1
5254 } else {
5262 # if not the first child, we have to insert a line going up
5265 }
5266 }
5267 }
5277 }
5278 }
5279 }
5286 }
5287 }
5297 }
5298 }
5306 }
5307 }
5308 }
5309 }
5310 }
5314 set final 0
5315 }
5319 lappend rowisopt 0
5325 }
5327 } else {
5334 }
5335 }
5337 }
5339 proc changedrow {row} {
5340 global displayorder iddrawn rowisopt need_redisplay
5349 }
5350 }
5351 }
5354 set need_redisplay 1
5355 }
5356 }
5358 proc insert_pad {row col npad} {
5359 global rowidlist
5368 }
5371 }
5373 proc optimize_rows {row col endrow} {
5374 global rowidlist rowisopt displayorder curview children
5377 set row 1
5378 }
5381 set haspad 0
5390 } else {
5391 set pprevidlist {}
5392 }
5393 set x0 -1
5394 set xm -1
5399 set haspad 1
5400 continue
5401 }
5405 set isarrow 0
5406 set z0 {}
5411 }
5412 }
5417 set isarrow 1
5418 }
5419 }
5422 set isarrow 1
5423 }
5424 # Looking at lines from this row to the previous row,
5425 # make them go straight up if they end in an arrow on
5426 # the previous row; otherwise make them go straight up
5427 # or at 45 degrees.
5429 # Line currently goes left too much;
5430 # insert pads in the previous row, then optimize it
5435 }
5443 }
5445 # Line currently goes right too much;
5446 # insert pads in this line
5452 set haspad 1
5453 }
5460 }
5461 }
5462 # avoid lines jigging left then immediately right
5465 incr x0
5468 }
5469 }
5471 # Find the first column that doesn't have a line going right
5477 # check if this is the link to the first child
5480 # it is, work out offset to child
5482 }
5483 }
5485 }
5486 # Insert a pad at that column as long as it has a line and
5487 # isn't the last column
5492 }
5493 }
5494 }
5495 }
5497 proc xc {row col} {
5498 global canvx0 linespc
5500 }
5502 proc yc {row} {
5503 global canvy0 linespc
5505 }
5507 proc linewidth {id} {
5508 global thickerline lthickness
5513 }
5515 }
5517 proc rowranges {id} {
5518 global curview children uparrowlen downarrowlen
5519 global rowidlist
5523 return {}
5524 }
5525 set ret {}
5530 if {![info exists prev]} {
5532 } else {
5534 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5535 }
5536 # see if the line extends the whole way from prevrow to row
5540 # it doesn't, see where it ends
5545 } else {
5548 incr r -1
5549 }
5551 # see where it starts up again
5556 } else {
5559 incr r
5560 }
5562 }
5563 }
5566 }
5569 }
5571 }
5573 proc drawlineseg {id row endrow arrowlow} {
5574 global rowidlist displayorder iddrawn linesegs
5575 global canv colormap linespc curview maxlinelen parentlist
5579 set arrowhigh 1
5580 while {1} {
5583 incr le -1
5584 break
5585 }
5589 set arrowhigh 0
5590 break
5591 }
5596 set arrowhigh 0
5597 }
5598 break
5599 }
5600 incr le
5601 }
5604 }
5606 set lines {}
5607 set i 0
5608 set joinhigh 0
5615 set joinhigh 1
5616 }
5617 break
5618 }
5619 incr i
5620 }
5621 }
5622 set joinlow 0
5627 set joinlow 1
5628 }
5629 }
5642 }
5643 } else {
5645 }
5653 set arrowlow 0
5654 }
5655 }
5663 }
5665 }
5668 # join parent line to first child
5679 } else {
5681 }
5689 }
5691 }
5693 } else {
5697 }
5705 } else {
5709 }
5711 }
5712 } else {
5718 }
5722 } else {
5723 # coalesce two pieces
5728 }
5732 }
5733 }
5737 }
5739 proc drawparentlinks {id row} {
5740 global rowidlist canv colormap curview parentlist
5741 global idpos linespc
5754 # rmx = right-most X coord used
5755 set rmx 0
5760 continue
5761 }
5765 }
5768 # drawlineseg will do this one for us
5769 continue
5770 }
5772 # should handle duplicated parents here...
5775 # if attaching to a vertical segment, draw a smaller
5776 # slant for visual distinctness
5780 } else {
5782 }
5784 # segment slants towards us already
5786 } else {
5791 }
5793 }
5794 } else {
5796 }
5801 }
5805 }
5806 }
5808 proc drawlines {id} {
5809 global canv
5812 }
5814 proc drawcmittext {id row col} {
5815 global linespc canv canv2 canv3 fgcolor curview
5816 global cmitlisted commitinfo rowidlist parentlist
5817 global rowtextx idpos idtags idheads idotherrefs
5818 global linehtag linentag linedtag selectedline
5819 global canvxmax boldids boldnameids fgcolor markedid
5820 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5822 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5825 set ofill red
5827 set ofill green
5829 set ofill yellow
5830 } else {
5832 }
5841 # triangle pointing left for left-side commits
5847 } else {
5848 # triangle pointing right for right-side commits
5854 }
5866 }
5867 }
5868 }
5875 }
5880 set font mainfont
5881 set nfont mainfont
5885 set font mainfontbold
5888 set nfont mainfontbold
5889 }
5890 }
5900 }
5903 }
5907 setcanvscroll
5908 }
5909 }
5911 proc drawcmitrow {row} {
5912 global displayorder rowidlist nrows_drawn
5913 global iddrawn markingmatches
5914 global commitinfo numcommits
5915 global filehighlight fhighlights findpattern nhighlights
5916 global hlview vhighlights
5917 global highlight_related rhighlights
5924 }
5927 }
5930 }
5933 }
5938 return
5939 }
5942 }
5946 incr nrows_drawn
5947 }
5950 }
5951 }
5953 proc drawcommits {row {endrow {}}} {
5954 global numcommits iddrawn displayorder curview need_redisplay
5955 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5958 set row 0
5959 }
5962 }
5965 }
5969 set rl1 0
5970 }
5973 set ro1 0
5974 }
5978 }
5983 }
5985 }
5986 }
5989 }
5992 clear_display
5993 }
5995 # make the lines join to already-drawn rows either side
5999 }
6004 }
6019 # see if this is the first child of any of its parents
6022 # make this line extend up to the child
6024 }
6025 }
6026 } else {
6028 }
6029 }
6030 }
6031 }
6033 proc undolayout {row} {
6034 global uparrowlen mingaplen downarrowlen
6035 global rowidlist rowisopt rowfinal need_redisplay
6039 set r 0
6040 }
6042 incr r -1
6046 set need_redisplay 1
6047 run drawvisible
6048 }
6049 }
6051 proc drawvisible {} {
6052 global canv linespc curview vrowmod selectedline targetrow targetid
6053 global need_redisplay cscroll numcommits
6063 if {[info exists targetid]} {
6067 # Fix up the scrollregion and change the scrolling position
6068 # now that our target row has moved.
6071 setcanvscroll
6079 set need_redisplay 1
6080 }
6081 } else {
6082 unset targetid
6083 }
6084 }
6090 }
6094 } elseif {[info exists targetid]} {
6096 }
6097 if {[info exists targetrow]} {
6100 }
6102 }
6104 }
6106 proc clear_display {} {
6107 global iddrawn linesegs need_redisplay nrows_drawn
6108 global vhighlights fhighlights nhighlights rhighlights
6109 global linehtag linentag linedtag boldids boldnameids
6111 allcanvs delete all
6112 catch {unset iddrawn}
6113 catch {unset linesegs}
6114 catch {unset linehtag}
6115 catch {unset linentag}
6116 catch {unset linedtag}
6117 set boldids {}
6118 set boldnameids {}
6119 catch {unset vhighlights}
6120 catch {unset fhighlights}
6121 catch {unset nhighlights}
6122 catch {unset rhighlights}
6123 set need_redisplay 0
6124 set nrows_drawn 0
6125 }
6127 proc findcrossings {id} {
6128 global rowidlist parentlist numcommits displayorder
6130 set cross {}
6131 set ccross {}
6135 }
6154 }
6155 }
6156 }
6157 }
6158 }
6160 }
6162 proc assigncolor {id} {
6163 global colormap colors nextcolor
6164 global parents children children curview
6170 } else {
6171 set kids {}
6172 }
6178 return
6179 }
6180 }
6181 set badcolors {}
6182 set origbad {}
6185 # delimiter between corner crossings and other crossings
6188 }
6192 }
6193 }
6196 }
6203 }
6208 }
6209 }
6210 }
6213 }
6214 }
6218 set nextcolor 0
6219 }
6221 }
6223 }
6225 proc bindline {t id} {
6226 global canv
6232 }
6234 proc drawtags {id x xt y1} {
6235 global idtags idheads idotherrefs mainhead
6236 global linespc lthickness
6237 global canv rowtextx curview fgcolor bgcolor ctxbut
6239 set marks {}
6240 set ntags 0
6241 set nheads 0
6245 }
6249 }
6252 }
6255 }
6260 set xvals {}
6261 set wvals {}
6262 set i -1
6264 incr i
6267 } else {
6269 }
6273 }
6280 set font mainfont
6281 if {[incr ntags -1] >= 0} {
6282 # draw a tag
6288 } else {
6289 # draw a head or other ref
6290 if {[incr nheads -1] >= 0} {
6291 set col green
6293 set font mainfontbold
6294 }
6295 } else {
6296 set col "#ddddff"
6297 }
6308 }
6309 }
6316 }
6317 }
6319 }
6321 proc xcoord {i level ln} {
6322 global canvx0 xspc1 xspc2
6329 }
6331 }
6333 proc show_status {msg} {
6334 global canv fgcolor
6336 clear_display
6339 }
6341 # Don't change the text pane cursor if it is currently the hand cursor,
6342 # showing that we are over a sha1 ID link.
6343 proc settextcursor {c} {
6344 global ctext curtextcursor
6348 }
6350 }
6352 proc nowbusy {what {name {}}} {
6353 global isbusy busyname statusw
6355 if {[array names isbusy] eq {}} {
6356 . config -cursor watch
6357 settextcursor watch
6358 }
6363 }
6364 }
6366 proc notbusy {what} {
6367 global isbusy maincursor textcursor busyname statusw
6369 catch {
6374 }
6375 }
6376 if {[array names isbusy] eq {}} {
6379 }
6380 }
6382 proc findmatches {f} {
6383 global findtype findstring
6386 } else {
6391 }
6392 set matches {}
6393 set i 0
6398 }
6399 }
6401 }
6403 proc dofind {{dirn 1} {wrap 1}} {
6404 global findstring findstartline findcurline selectedline numcommits
6405 global gdttype filehighlight fh_serial find_dirn findallowwrap
6407 if {[info exists find_dirn]} {
6409 stopfinding
6410 }
6411 focus .
6415 } else {
6417 }
6419 nowbusy finding [mc "Searching"]
6423 }
6426 run findmore
6427 }
6429 proc stopfinding {} {
6430 global find_dirn findcurline fprogcoord
6432 if {[info exists find_dirn]} {
6433 unset find_dirn
6434 unset findcurline
6435 notbusy finding
6436 set fprogcoord 0
6437 adjustprogress
6438 }
6439 stopblaming
6440 }
6442 proc findmore {} {
6443 global commitdata commitinfo numcommits findpattern findloc
6444 global findstartline findcurline findallowwrap
6445 global find_dirn gdttype fhighlights fprogcoord
6446 global curview varcorder vrownum varccommits vrowmod
6448 if {![info exists find_dirn]} {
6449 return 0
6450 }
6451 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6453 set moretodo 0
6455 incr l
6457 set l 0
6458 }
6461 } else {
6464 }
6465 } else {
6468 }
6469 incr l -1
6472 } else {
6473 set lim -1
6475 }
6476 }
6479 set n 500
6480 set moretodo 1
6481 }
6484 }
6485 set found 0
6486 set domore 1
6500 }
6502 # shouldn't happen unless git log doesn't give all the commits...
6505 continue
6506 }
6509 }
6514 set found 1
6515 break
6516 }
6517 }
6519 }
6520 } else {
6528 }
6533 }
6536 break
6537 }
6540 set domore 0
6542 }
6543 }
6544 }
6545 }
6547 unset findcurline
6548 unset find_dirn
6549 notbusy finding
6550 set fprogcoord 0
6551 adjustprogress
6554 } else {
6555 bell
6556 }
6557 return 0
6558 }
6560 flushhighlights
6561 } else {
6563 }
6567 }
6569 adjustprogress
6571 }
6573 proc findselectline {l} {
6574 global findloc commentend ctext findcurline markingmatches gdttype
6581 # highlight the matches in the comments
6588 }
6589 }
6590 drawvisible
6591 }
6593 # mark the bits of a headline or author that match a find string
6594 proc markmatches {canv l str tag matches font row} {
6595 global selectedline
6613 }
6614 }
6615 }
6617 proc unmarkmatches {} {
6618 global markingmatches
6620 allcanvs delete matches
6621 set markingmatches 0
6622 stopfinding
6623 }
6625 proc selcanvline {w x y} {
6626 global canv canvy0 ctext linespc
6627 global rowtextx
6634 set l 0
6635 }
6640 }
6641 unmarkmatches
6643 }
6645 proc commit_descriptor {p} {
6646 global commitinfo
6649 }
6650 set l "..."
6653 }
6655 }
6657 # append some text to the ctext widget, and make any SHA1 ID
6658 # that we know about be a clickable link.
6659 proc appendwithlinks {text tags} {
6660 global ctext linknum curview
6669 incr e
6673 incr linknum
6674 }
6675 }
6677 proc setlink {id lk} {
6678 global curview ctext pendinglinks
6680 set known 0
6685 set known 1
6687 }
6688 } else {
6690 }
6696 } else {
6699 }
6700 }
6702 proc appendshortlink {id {pre {}} {post {}}} {
6703 global ctext linknum
6710 incr linknum
6711 }
6713 proc makelink {id} {
6714 global pendinglinks
6719 }
6721 }
6723 proc linkcursor {w inc} {
6724 global linkentercount curtextcursor
6728 } else {
6731 set linkentercount 0
6732 }
6733 }
6734 }
6736 proc viewnextline {dir} {
6737 global canv linespc
6745 set newtop 0
6748 }
6750 }
6752 # add a list of tag or branch names at position pos
6753 # returns the number of names inserted
6754 proc appendrefs {pos ids var} {
6758 return 0
6759 }
6762 set tags {}
6766 }
6767 }
6770 } else {
6772 set sep {}
6776 incr linknum
6781 set sep ", "
6782 }
6783 }
6786 }
6788 # called when we have finished computing the nearby tags
6789 proc dispneartags {delay} {
6790 global selectedline currentid showneartags tagphase
6793 after cancel dispnexttag
6795 after 200 dispnexttag
6796 set tagphase -1
6797 } else {
6798 after idle dispnexttag
6799 set tagphase 0
6800 }
6801 }
6803 proc dispnexttag {} {
6804 global selectedline currentid showneartags tagphase ctext
6808 0 {
6812 }
6813 }
6814 1 {
6818 }
6819 }
6820 2 {
6825 # turn "Branch" into "Branches"
6829 }
6830 }
6831 }
6832 }
6833 if {[incr tagphase] <= 2} {
6834 after idle dispnexttag
6835 }
6836 }
6838 proc make_secsel {id} {
6839 global linehtag linentag linedtag canv canv2 canv3
6854 }
6856 proc make_idmark {id} {
6857 global linehtag canv fgcolor
6864 }
6866 proc selectline {l isnew {desired_loc {}}} {
6867 global canv ctext commitinfo selectedline
6868 global canvy0 linespc parents children curview
6869 global currentid sha1entry
6870 global commentend idtags linknum
6871 global mergemax numcommits pending_select
6872 global cmitmode showneartags allcommits
6873 global targetrow targetid lastscrollrows
6874 global autoselect jump_to_here
6876 catch {unset pending_select}
6878 normalline
6879 unsel_reflist
6880 stopfinding
6888 setcanvscroll
6889 }
6903 } else {
6907 }
6908 }
6912 } else {
6916 }
6917 }
6918 }
6921 set newtop 0
6922 }
6924 drawvisible
6925 }
6931 }
6937 }
6941 clear_ctext
6942 set linknum 0
6945 }
6955 }
6957 }
6959 set headers {}
6962 set np 0
6965 set tag mmax
6966 } else {
6968 }
6971 incr np
6972 }
6973 } else {
6976 }
6977 }
6981 }
6983 # make anything that looks like a SHA1 ID be a clickable link
6986 if {![info exists allcommits]} {
6987 getallcommits
6988 }
6999 dispneartags 1
7000 }
7005 }
7013 init_flist [mc "Comments"]
7018 } else {
7020 }
7021 }
7023 proc selfirstline {} {
7024 unmarkmatches
7025 selectline 0 1
7026 }
7028 proc sellastline {} {
7029 global numcommits
7030 unmarkmatches
7033 }
7035 proc selnextline {dir} {
7036 global selectedline
7037 focus .
7040 unmarkmatches
7042 }
7044 proc selnextpage {dir} {
7045 global canv linespc selectedline numcommits
7049 set lpp 1
7050 }
7052 drawvisible
7056 set l 0
7059 }
7060 unmarkmatches
7062 }
7064 proc unselectline {} {
7065 global selectedline currentid
7067 set selectedline {}
7068 catch {unset currentid}
7069 allcanvs delete secsel
7070 rhighlight_none
7071 }
7073 proc reselectline {} {
7074 global selectedline
7078 }
7079 }
7081 proc addtohistory {cmd {saveproc {}}} {
7082 global history historyindex curview
7084 unset_posvars
7085 save_position
7089 return
7090 }
7094 } else {
7096 }
7097 incr historyindex
7099 .tf.bar.leftbut conf -state normal
7100 } else {
7101 .tf.bar.leftbut conf -state disabled
7102 }
7103 .tf.bar.rightbut conf -state disabled
7104 }
7106 # save the scrolling position of the diff display pane
7107 proc save_position {} {
7108 global historyindex history
7115 }
7116 }
7118 proc unset_posvars {} {
7119 global last_posvars
7121 if {[info exists last_posvars]} {
7125 }
7126 unset last_posvars
7127 }
7128 }
7130 proc godo {elt} {
7131 global curview last_posvars
7138 }
7139 unset_posvars
7143 }
7146 }
7148 proc goback {} {
7149 global history historyindex
7150 focus .
7153 save_position
7154 incr historyindex -1
7156 .tf.bar.rightbut conf -state normal
7157 }
7159 .tf.bar.leftbut conf -state disabled
7160 }
7161 }
7163 proc goforw {} {
7164 global history historyindex
7165 focus .
7168 save_position
7170 incr historyindex
7172 .tf.bar.leftbut conf -state normal
7173 }
7175 .tf.bar.rightbut conf -state disabled
7176 }
7177 }
7179 proc gettree {id} {
7180 global treefilelist treeidlist diffids diffmergeid treepending
7181 global nullid nullid2
7184 catch {unset diffmergeid}
7186 if {![info exists treepending]} {
7188 set cmd [list | git ls-files]
7190 set cmd [list | git ls-files --stage -t]
7191 } else {
7193 }
7195 return
7196 }
7202 }
7203 } else {
7205 }
7206 }
7208 proc gettreeline {gtf id} {
7209 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7211 set nl 0
7215 } else {
7223 }
7226 }
7229 }
7232 }
7234 unset treepending
7236 if {![info exists diffmergeid]} {
7238 }
7241 } else {
7243 }
7244 return 0
7245 }
7247 proc showfile {f} {
7248 global treefilelist treeidlist diffids nullid nullid2
7249 global ctext_file_names ctext_file_lines
7250 global ctext commentend
7255 return
7256 }
7260 return
7261 }
7262 } else {
7266 return
7267 }
7268 }
7279 settabs 0
7280 }
7282 proc getblobline {bf id} {
7283 global diffids cmitmode ctext
7287 return 0
7288 }
7290 set nl 0
7293 }
7295 global jump_to_here ctext_file_names commentend
7297 # delete last newline
7305 }
7306 return 0
7307 }
7310 }
7312 proc mark_ctext_line {lnum} {
7313 global ctext markbgcolor
7319 }
7321 proc mergediff {id} {
7322 global diffmergeid
7323 global diffids treediffs
7324 global parents curview
7332 }
7334 proc startdiff {ids} {
7335 global treediffs diffids treepending diffmergeid nullid nullid2
7337 settabs 1
7339 catch {unset diffmergeid}
7343 if {![info exists treepending]} {
7345 }
7346 } else {
7348 }
7349 }
7351 proc path_filter {filter name} {
7356 return 1
7357 }
7358 } else {
7362 return 1
7363 }
7364 }
7365 }
7366 return 0
7367 }
7369 proc addtocflist {ids} {
7370 global treediffs
7374 }
7376 proc diffcmd {ids flags} {
7377 global nullid nullid2
7383 # comparing working directory with some specific revision
7387 } else {
7389 }
7390 } else {
7391 # comparing working directory with index
7394 lappend cmd -R
7395 }
7396 }
7400 # comparing index with specific revision
7403 } else {
7405 }
7406 } else {
7407 # comparing index with HEAD
7408 lappend cmd HEAD
7409 }
7410 } else {
7412 }
7414 }
7416 proc gettreediffs {ids} {
7417 global treediff treepending
7422 set treediff {}
7425 }
7427 proc gettreediffline {gdtf ids} {
7428 global treediff treediffs treepending diffids diffmergeid
7429 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7431 set nr 0
7432 set sublist {}
7433 set max 1000
7435 # cache_gitattr is slow, and even slower on win32 where we
7436 # have to invoke it for only about 30 paths at a time
7437 set max 500
7438 if {[tk windowingsystem] == "win32"} {
7439 set max 120
7440 }
7441 }
7448 }
7453 }
7454 }
7455 }
7458 }
7461 }
7464 set flist {}
7468 }
7469 }
7471 } else {
7473 }
7474 unset treepending
7478 if {![info exists diffmergeid]} {
7480 }
7481 } else {
7483 }
7484 return 0
7485 }
7487 # empty string or positive integer
7488 proc diffcontextvalidate {v} {
7490 }
7492 proc diffcontextchange {n1 n2 op} {
7493 global diffcontextstring diffcontext
7498 reselectline
7499 }
7500 }
7501 }
7503 proc changeignorespace {} {
7504 reselectline
7505 }
7507 proc getblobdiffs {ids} {
7508 global blobdifffd diffids env
7509 global diffinhdr treediffs
7510 global diffcontext
7511 global ignorespace
7512 global limitdiffs vfilelimit curview
7513 global diffencoding targetline diffnparents
7514 global git_version currdiffsubmod
7516 set textconv {}
7518 set textconv "--textconv"
7519 }
7520 set submodule {}
7522 set submodule "--submodule"
7523 }
7526 append cmd " -w"
7527 }
7530 }
7533 return
7534 }
7535 set targetline {}
7536 set diffnparents 0
7537 set diffinhdr 0
7538 set diffencoding [get_path_encoding {}]
7541 set currdiffsubmod ""
7543 }
7545 proc savecmitpos {} {
7546 global ctext cmitmode
7549 return {}
7550 }
7552 }
7554 proc savectextpos {} {
7555 global ctext
7558 }
7560 proc maybe_scroll_ctext {ateof} {
7561 global ctext target_scrollpos
7563 if {![info exists target_scrollpos]} return
7566 / [font metrics textfont -linespace]}]
7568 }
7570 unset target_scrollpos
7571 }
7573 proc setinlist {var i val} {
7578 }
7581 } else {
7583 }
7584 }
7586 proc makediffhdr {fname ids} {
7587 global ctext curdiffstart treediffs diffencoding
7588 global ctext_file_names jump_to_here targetline diffline
7595 }
7600 set targetline {}
7603 }
7604 set diffline 0
7605 }
7607 proc getblobdiffline {bdf ids} {
7608 global diffids blobdifffd ctext curdiffstart
7609 global diffnexthead diffnextnote difffilestart
7610 global ctext_file_names ctext_file_lines
7611 global diffinhdr treediffs mergemax diffnparents
7612 global diffencoding jump_to_here targetline diffline currdiffsubmod
7614 set nr 0
7619 return 0
7620 }
7625 continue
7626 }
7627 # start of a new file
7628 set diffinhdr 1
7631 lappend ctext_file_names ""
7636 # start of a new file in a merge diff
7641 }
7643 } else {
7645 # If the name hasn't changed the length will be odd,
7646 # the middle char will be a space, and the two bits either
7647 # side will be a/name and b/name, or "a/name" and "b/name".
7648 # If the name has changed we'll get "rename from" and
7649 # "rename to" or "copy from" and "copy to" lines following
7650 # this, and we'll use them to get the filenames.
7651 # This complexity is necessary because spaces in the
7652 # filename(s) don't get escaped.
7658 continue
7659 }
7660 # unescape if quoted and chop off the a/ from the front
7663 } else {
7665 }
7666 }
7679 }
7687 }
7689 set diffinhdr 0
7692 # start of a new submodule
7695 } else {
7697 }
7700 }
7702 lappend ctext_file_names ""
7708 } else {
7710 }
7724 }
7729 }
7735 }
7738 # do nothing
7739 continue
7741 set diffinhdr 0
7742 continue
7743 }
7746 } else {
7747 set line [string map {\x1A ^Z} \
7749 # parse the prefix - one ' ', '-' or '+' for each parent
7753 # prefix only has " ", "-" and "+" in it: normal diff line
7758 set num "max"
7759 }
7761 } else {
7762 set tags {}
7764 # added line
7770 set num "max"
7771 }
7773 }
7774 }
7775 }
7779 set targetline {}
7780 } else {
7781 incr diffline
7782 }
7783 }
7785 }
7786 } else {
7787 # "\ No newline at end of file",
7788 # or something else we don't recognize
7790 }
7791 }
7792 }
7793 if {[info exists seehere]} {
7795 }
7800 return 0
7801 }
7803 }
7805 proc changediffdisp {} {
7806 global ctext diffelide
7810 }
7812 proc highlightfile {loc cline} {
7813 global ctext cflist cflist_top
7820 }
7822 proc prevfile {} {
7823 global difffilestart ctext cmitmode
7826 set prev 0.0
7827 set prevline 1
7832 return
7833 }
7835 incr prevline
7836 }
7838 }
7840 proc nextfile {} {
7841 global difffilestart ctext cmitmode
7845 set line 1
7847 incr line
7850 return
7851 }
7852 }
7853 }
7855 proc clear_ctext {{first 1.0}} {
7856 global ctext smarktop smarkbot
7857 global ctext_file_names ctext_file_lines
7858 global pendinglinks
7863 }
7866 }
7869 catch {unset pendinglinks}
7870 }
7871 set ctext_file_names {}
7872 set ctext_file_lines {}
7873 }
7875 proc settabs {{firstab {}}} {
7876 global firsttabstop tabstop ctext have_tk85
7880 }
7881 set w [font measure textfont "0"]
7887 } else {
7889 }
7890 }
7892 proc incrsearch {name ix op} {
7893 global ctext searchstring searchdirn
7897 # no anchor set, use start of selection, or of visible area
7903 } else {
7905 }
7906 }
7911 }
7912 searchmarkvisible 1
7913 }
7914 }
7916 proc dosearch {} {
7917 global sstring ctext searchstring searchdirn
7921 set searchdirn -forwards
7927 set start "@0,0"
7928 }
7932 bell
7933 return
7934 }
7939 }
7940 }
7942 proc dosearchback {} {
7943 global sstring ctext searchstring searchdirn
7947 set searchdirn -backwards
7954 }
7958 bell
7959 return
7960 }
7965 }
7966 }
7968 proc searchmark {first last} {
7969 global ctext searchstring
7972 while {1} {
7977 }
7978 }
7980 proc searchmarkvisible {doall} {
7981 global ctext smarktop smarkbot
7986 # no overlap with previous
7990 } else {
7994 }
7998 }
7999 }
8000 }
8002 proc scrolltext {f0 f1} {
8003 global searchstring
8007 searchmarkvisible 0
8008 }
8009 }
8011 proc setcoords {} {
8012 global linespc charspc canvx0 canvy0
8013 global xspc1 xspc2 lthickness
8015 set linespc [font metrics mainfont -linespace]
8016 set charspc [font measure mainfont "m"]
8022 }
8024 proc redisplay {} {
8025 global canv
8026 global selectedline
8031 clear_display
8032 setcanvscroll
8034 drawvisible
8038 }
8039 }
8041 proc parsefont {f n} {
8042 global fontattr
8047 set s 10
8050 }
8056 "normal" -
8058 "roman" -
8060 }
8061 }
8062 }
8064 proc fontflags {f {isbold 0}} {
8065 global fontattr
8070 }
8072 proc fontname {f} {
8073 global fontattr
8077 lappend n "bold"
8078 }
8080 lappend n "italic"
8081 }
8083 }
8085 proc incrfont {inc} {
8086 global mainfont textfont ctext canv cflist showrefstop
8087 global stopped entries fontattr
8089 unmarkmatches
8093 set s 1
8094 }
8098 set mainfont [fontname mainfont]
8102 set s 1
8103 }
8107 set textfont [fontname textfont]
8108 setcoords
8109 settabs
8110 redisplay
8111 }
8113 proc clearsha1 {} {
8114 global sha1entry sha1string
8117 }
8118 }
8120 proc sha1change {n1 n2 op} {
8121 global sha1string currentid sha1but
8124 set state disabled
8125 } else {
8126 set state normal
8127 }
8131 } else {
8133 }
8134 }
8136 proc gotocommit {} {
8137 global sha1string tagids headids curview varcid
8145 } else {
8152 return
8153 }
8155 }
8156 } else {
8159 return
8160 }
8161 }
8162 }
8165 return
8166 }
8169 } else {
8171 }
8173 }
8175 proc lineenter {x y id} {
8176 global hoverx hovery hoverid hovertimer
8177 global commitinfo canv
8183 if {[info exists hovertimer]} {
8185 }
8186 set hovertimer [after 500 linehover]
8188 }
8190 proc linemotion {x y id} {
8191 global hoverx hovery hoverid hovertimer
8196 if {[info exists hovertimer]} {
8198 }
8199 set hovertimer [after 500 linehover]
8200 }
8201 }
8203 proc lineleave {id} {
8204 global hoverid hovertimer canv
8208 if {[info exists hovertimer]} {
8210 unset hovertimer
8211 }
8212 unset hoverid
8213 }
8214 }
8216 proc linehover {} {
8217 global hoverx hovery hoverid hovertimer
8218 global canv linespc lthickness
8219 global commitinfo
8232 -fill \#ffff80 -outline black -width 1 -tags hover]
8235 -font mainfont]
8237 }
8239 proc clickisonarrow {id y} {
8240 global lthickness
8249 }
8250 }
8251 return {}
8252 }
8254 proc arrowjump {id n y} {
8255 global canv
8257 # 1 <-> 2, 3 <-> 4, etc...
8267 set yfrac 0
8268 }
8270 }
8272 proc lineclick {x y id isnew} {
8273 global ctext commitinfo children canv thickerline curview
8276 unmarkmatches
8277 unselectline
8278 normalline
8280 # draw this line thicker than normal
8288 }
8292 return
8293 }
8297 }
8298 # fill the details pane with info about this line
8300 clear_ctext
8301 settabs 0
8313 set i 0
8315 incr i
8325 }
8326 }
8327 maybe_scroll_ctext 1
8329 init_flist {}
8330 }
8332 proc normalline {} {
8333 global thickerline
8334 if {[info exists thickerline]} {
8336 unset thickerline
8338 }
8339 }
8341 proc selbyid {id {isnew 1}} {
8342 global curview
8345 }
8346 }
8348 proc mstime {} {
8349 global startmstime
8350 if {![info exists startmstime]} {
8351 set startmstime [clock clicks -milliseconds]
8352 }
8354 }
8356 proc rowmenu {x y id} {
8357 global rowctxmenu selectedline rowmenuid curview
8358 global nullid nullid2 fakerowmenu mainhead markedid
8360 stopfinding
8363 set state disabled
8364 } else {
8365 set state normal
8366 }
8371 } else {
8373 }
8378 } else {
8382 }
8383 } else {
8385 }
8390 }
8392 proc markhere {} {
8393 global rowmenuid markedid canv
8397 }
8399 proc gotomark {} {
8400 global markedid
8402 if {[info exists markedid]} {
8404 }
8405 }
8407 proc replace_by_kids {l r} {
8408 global curview children
8414 }
8416 }
8418 proc find_common_desc {} {
8419 global markedid rowmenuid curview children
8421 if {![info exists markedid]} return
8424 #set t1 [clock clicks -milliseconds]
8427 while 1 {
8433 break
8434 }
8437 } else {
8439 }
8440 }
8441 #set t2 [clock clicks -milliseconds]
8443 }
8445 proc compare_commits {} {
8446 global markedid rowmenuid curview children
8448 if {![info exists markedid]} return
8452 }
8454 proc getpatchid {id} {
8455 global patchids
8459 # trim off the initial "|"
8461 if {[catch {
8464 }]} {
8466 }
8467 }
8469 }
8471 proc do_cmp_commits {a b} {
8472 global ctext curview parents children patchids commitinfo
8475 clear_ctext
8476 init_flist {}
8478 set skipa 0
8479 set skipb 0
8482 set skipa 1
8483 } else {
8485 }
8488 set skipb 1
8489 } else {
8491 }
8497 [mc " - stopping\n"]
8498 break
8499 }
8502 [mc " - stopping\n"]
8503 break
8504 }
8509 } else {
8513 }
8514 set skipa 1
8515 set skipb 1
8516 } else {
8523 update
8525 return
8526 }
8527 }
8534 break
8535 }
8537 }
8543 break
8544 }
8546 }
8547 }
8549 }
8551 proc diffcommits {a b} {
8552 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8554 set tmpdir [gitknewtmpdir]
8557 if {[catch {
8560 } err]} {
8562 return
8563 }
8564 if {[catch {
8566 } err]} {
8568 return
8569 }
8572 set diffinhdr 0
8573 set currdiffsubmod ""
8575 }
8577 proc diffvssel {dirn} {
8578 global rowmenuid selectedline
8584 } else {
8587 }
8590 }
8592 proc doseldiff {oldid newid} {
8593 global ctext
8594 global commitinfo
8597 clear_ctext
8598 init_flist [mc "Top"]
8613 }
8615 proc mkpatch {} {
8616 global rowmenuid currentid commitinfo patchtop patchnum NS
8618 if {![info exists currentid]} return
8623 set top .patch
8653 incr patchnum
8665 }
8667 proc mkpatchrev {} {
8668 global patchtop
8674 foreach e [list fromsha1 fromhead tosha1 tohead] \
8680 }
8681 }
8683 proc mkpatchgo {} {
8684 global patchtop nullid nullid2
8690 # trim off the initial "|"
8695 }
8697 unset patchtop
8698 }
8700 proc mkpatchcan {} {
8701 global patchtop
8704 unset patchtop
8705 }
8707 proc mktag {} {
8708 global rowmenuid mktagtop commitinfo NS
8710 set top .maketag
8744 }
8746 proc domktag {} {
8747 global mktagtop env tagids idtags
8754 return 0
8755 }
8758 return 0
8759 }
8760 if {[catch {
8763 } else {
8765 }
8766 } err]} {
8768 return 0
8769 }
8775 dispneartags 0
8776 run refill_reflist
8777 return 1
8778 }
8780 proc redrawtags {id} {
8781 global canv linehtag idpos currentid curview cmitlisted markedid
8782 global canvxmax iddrawn circleitem mainheadid circlecolors
8788 set ofill yellow
8789 } else {
8791 }
8801 setcanvscroll
8802 }
8805 }
8808 }
8809 }
8811 proc mktagcan {} {
8812 global mktagtop
8815 unset mktagtop
8816 }
8818 proc mktaggo {} {
8819 if {![domktag]} return
8820 mktagcan
8821 }
8823 proc writecommit {} {
8824 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8826 set top .writecommit
8859 }
8861 proc wrcomgo {} {
8862 global wrcomtop
8869 }
8871 unset wrcomtop
8872 }
8874 proc wrcomcan {} {
8875 global wrcomtop
8878 unset wrcomtop
8879 }
8881 proc mkbranch {} {
8882 global rowmenuid mkbrtop NS
8884 set top .makebranch
8908 }
8910 proc mkbrgo {top} {
8911 global headids idheads
8915 set cmdargs {}
8916 set old_id {}
8919 return
8920 }
8922 if {![confirm_popup [mc \
8924 return
8925 }
8927 lappend cmdargs -f
8928 }
8931 nowbusy newbranch
8932 update
8933 if {[catch {
8935 } err]} {
8936 notbusy newbranch
8938 } else {
8939 notbusy newbranch
8945 } else {
8950 }
8951 dispneartags 0
8952 run refill_reflist
8953 }
8954 }
8956 proc exec_citool {tool_args {baseid {}}} {
8957 global commitinfo env
8959 set save_env [array get env GIT_AUTHOR_*]
8964 }
8967 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8973 }
8974 }
8978 array unset env GIT_AUTHOR_*
8980 }
8982 proc cherrypick {} {
8983 global rowmenuid curview
8984 global mainhead mainheadid
8986 set oldhead [exec git rev-parse HEAD]
8989 set ok [confirm_popup [mc "Commit %s is already\
8990 included in branch %s -- really re-apply it?" \
8993 }
8994 nowbusy cherrypick [mc "Cherry-picking"]
8995 update
8996 # Unfortunately git-cherry-pick writes stuff to stderr even when
8997 # no error occurs, and exec takes that as an indication of error...
8999 notbusy cherrypick
9000 if {[regexp -line \
9001 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9003 error_popup [mc "Cherry-pick failed because of local changes\
9004 to file '%s'.\nPlease commit, reset or stash\
9006 } elseif {[regexp -line \
9007 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
9009 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9010 conflict.\nDo you wish to run git citool to\
9011 resolve it?"]]} {
9012 # Force citool to read MERGE_MSG
9013 file delete [file join [gitdir] "GITGUI_MSG"]
9015 }
9016 } else {
9018 }
9019 run updatecommits
9020 return
9021 }
9022 set newhead [exec git rev-parse HEAD]
9024 notbusy cherrypick
9025 error_popup [mc "No changes committed"]
9026 return
9027 }
9030 # XXX this isn't right if we have a path limit...
9035 }
9040 }
9041 notbusy cherrypick
9042 }
9044 proc resethead {} {
9045 global mainhead rowmenuid confirm_ok resettype NS
9047 set confirm_ok 0
9048 set w ".confirmreset"
9056 set resettype mixed
9058 -text [mc "Soft: Leave working tree and index untouched"]
9061 -text [mc "Mixed: Leave working tree untouched, reset index"]
9064 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9075 if {[catch {set fd [open \
9078 } else {
9079 dohidelocalchanges
9081 nowbusy reset [mc "Resetting"]
9083 }
9084 }
9086 proc readresetstat {fd} {
9087 global mainhead mainheadid showlocalchanges rprogcoord
9092 adjustprogress
9093 }
9094 return 1
9095 }
9096 set rprogcoord 0
9097 adjustprogress
9098 notbusy reset
9101 }
9103 set newhead [exec git rev-parse HEAD]
9110 }
9112 doshowlocalchanges
9113 }
9114 return 0
9115 }
9117 # context menu for a head
9118 proc headmenu {x y id head} {
9119 global headmenuid headmenuhead headctxmenu mainhead
9121 stopfinding
9124 set state normal
9126 set state disabled
9127 }
9129 set state disabled
9130 }
9134 }
9136 proc cobranch {} {
9137 global headmenuid headmenuhead headids
9138 global showlocalchanges
9140 # check the tree is clean first??
9141 nowbusy checkout [mc "Checking out"]
9142 update
9143 dohidelocalchanges
9144 if {[catch {
9146 } err]} {
9147 notbusy checkout
9150 dodiffindex
9151 }
9152 } else {
9154 }
9155 }
9157 proc readcheckoutstat {fd newhead newheadid} {
9158 global mainhead mainheadid headids showlocalchanges progresscoords
9159 global viewmainheadid curview
9164 adjustprogress
9165 }
9166 return 1
9167 }
9168 set progresscoords {0 0}
9169 adjustprogress
9170 notbusy checkout
9173 }
9182 dodiffindex
9183 }
9184 }
9186 proc rmbranch {} {
9187 global headmenuid headmenuhead mainhead
9188 global idheads
9192 # this check shouldn't be needed any more...
9194 error_popup [mc "Cannot delete the currently checked-out branch"]
9195 return
9196 }
9199 # the stuff on this branch isn't on any other branch
9200 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9202 }
9203 nowbusy rmbranch
9204 update
9206 notbusy rmbranch
9208 return
9209 }
9213 notbusy rmbranch
9214 dispneartags 0
9215 run refill_reflist
9216 }
9218 # Display a list of tags and heads
9219 proc showrefs {} {
9220 global showrefstop bgcolor fgcolor selectbgcolor NS
9221 global bglist fglist reflistfilter reflist maincursor
9223 set top .showrefs
9227 refill_reflist
9228 return
9229 }
9237 -spacing1 1 -spacing3 1 -state disabled
9248 set reflistfilter "*"
9249 trace add variable reflistfilter write reflistfilter_change
9261 set reflist {}
9262 refill_reflist
9263 }
9265 proc sel_reflist {w x y} {
9266 global showrefstop reflist headids tagids otherrefids
9276 }
9278 }
9280 proc unsel_reflist {} {
9281 global showrefstop
9285 }
9287 proc reflistfilter_change {n1 n2 op} {
9288 global reflistfilter
9290 after cancel refill_reflist
9291 after 200 refill_reflist
9292 }
9294 proc refill_reflist {} {
9295 global reflist reflistfilter showrefstop headids tagids otherrefids
9296 global curview
9299 set refs {}
9300 foreach n [array names headids] {
9304 } else {
9306 }
9307 }
9308 }
9309 foreach n [array names tagids] {
9313 } else {
9315 }
9316 }
9317 }
9318 foreach n [array names otherrefids] {
9322 } else {
9324 }
9325 }
9326 }
9334 set i 0
9335 set j 0
9344 }
9345 } else {
9346 set cmp -1
9347 }
9348 } else {
9349 set cmp 1
9350 }
9352 -1 {
9354 incr i
9355 }
9356 0 {
9357 incr i
9358 incr j
9359 }
9360 1 {
9365 incr j
9366 }
9367 }
9368 }
9370 # delete last newline
9373 }
9375 # Stuff for finding nearby tags
9376 proc getallcommits {} {
9377 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9378 global idheads idtags idotherrefs allparents tagobjid
9380 if {![info exists allcommits]} {
9381 set nextarc 0
9382 set allcommits 0
9383 set seeds {}
9384 set allcwait 0
9385 set cachedarcs 0
9386 set allccache [file join [gitdir] "gitk.cache"]
9387 if {![catch {
9389 set allcwait 1
9391 }]} return
9392 }
9395 return
9396 }
9397 set cmd [list | git rev-list --parents]
9400 set ids "--all"
9401 } else {
9402 set refs [concat [array names idheads] [array names idtags] \
9403 [array names idotherrefs]]
9404 set ids {}
9405 set tagobjs {}
9406 foreach name [array names tagobjid] {
9408 }
9413 }
9414 }
9418 }
9419 }
9420 }
9424 incr allcommits
9425 nowbusy allcommits
9427 } else {
9428 dispneartags 0
9429 }
9430 }
9432 # Since most commits have 1 parent and 1 child, we group strings of
9433 # such commits into "arcs" joining branch/merge points (BMPs), which
9434 # are commits that either don't have 1 parent or don't have 1 child.
9435 #
9436 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9437 # arcout(id) - outgoing arcs for BMP
9438 # arcids(a) - list of IDs on arc including end but not start
9439 # arcstart(a) - BMP ID at start of arc
9440 # arcend(a) - BMP ID at end of arc
9441 # growing(a) - arc a is still growing
9442 # arctags(a) - IDs out of arcids (excluding end) that have tags
9443 # archeads(a) - IDs out of arcids (excluding end) that have heads
9444 # The start of an arc is at the descendent end, so "incoming" means
9445 # coming from descendents, and "outgoing" means going towards ancestors.
9447 proc getallclines {fd} {
9448 global allparents allchildren idtags idheads nextarc
9449 global arcnos arcids arctags arcout arcend arcstart archeads growing
9450 global seeds allcommits cachedarcs allcupdate
9452 set nid 0
9456 # seen it already
9457 continue
9458 }
9459 set cachedarcs 0
9466 } else {
9472 }
9475 }
9477 # seen parent already
9480 }
9484 }
9487 continue
9488 }
9489 }
9494 }
9496 set ao {}
9499 set a [incr nextarc]
9508 # seen it already, may need to make a new branch
9511 }
9515 }
9517 }
9519 }
9521 global cached_dheads cached_dtags cached_atags
9522 catch {unset cached_dheads}
9523 catch {unset cached_dtags}
9524 catch {unset cached_atags}
9525 }
9528 }
9529 set cacheok 1
9530 if {[catch {
9533 } err]} {
9534 # got an error reading the list of commits
9535 # if we were updating, try rereading the whole thing again
9537 incr allcommits -1
9539 return
9540 }
9541 error_popup "[mc "Error reading commit topology information;\
9542 branch and preceding/following tag information\
9544 set cacheok 0
9545 }
9546 if {[incr allcommits -1] == 0} {
9547 notbusy allcommits
9549 run savecache
9550 }
9551 }
9552 dispneartags 0
9553 return 0
9554 }
9556 proc recalcarc {a} {
9557 global arctags archeads arcids idtags idheads
9559 set at {}
9560 set ah {}
9564 }
9567 }
9568 }
9571 }
9573 proc splitarc {p} {
9574 global arcnos arcids nextarc arctags archeads idtags idheads
9575 global arcstart arcend arcout allparents growing
9580 return
9581 }
9586 return
9587 }
9588 set na [incr nextarc]
9591 } else {
9595 }
9605 }
9610 } else {
9613 }
9614 }
9616 # reconstruct tags and heads lists
9620 } else {
9623 }
9624 }
9626 # Update things for a new commit added that is a child of one
9627 # existing commit. Used when cherry-picking.
9628 proc addnewchild {id p} {
9629 global allparents allchildren idtags nextarc
9630 global arcnos arcids arctags arcout arcend arcstart archeads growing
9631 global seeds allcommits
9639 set a [incr nextarc]
9647 }
9650 }
9652 # This implements a cache for the topology information.
9653 # The cache saves, for each arc, the start and end of the arc,
9654 # the ids on the arc, and the outgoing arcs from the end.
9655 proc readcache {f} {
9656 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9657 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9658 global allcwait
9664 }
9665 if {[catch {
9667 # finish reading the cache and setting up arctags, etc.
9671 foreach id [array names idtags] {
9677 }
9678 }
9679 }
9680 foreach id [array names idheads] {
9686 }
9687 }
9688 }
9692 }
9693 }
9694 set allcwait 0
9695 } else {
9705 }
9709 } else {
9713 }
9714 }
9720 }
9723 }
9726 }
9728 }
9729 } err]} {
9731 return 0
9732 }
9734 getallcommits
9735 }
9737 }
9739 proc getcache {f} {
9740 global nextarc cachedarcs possible_seeds
9742 if {[catch {
9745 # make sure it's an integer
9748 set nextarc 0
9749 set possible_seeds {}
9751 } err]} {
9753 }
9754 return 0
9755 }
9757 proc dropcache {err} {
9758 global allcwait nextarc cachedarcs seeds
9761 foreach v {arcnos arcout arcids arcstart arcend growing \
9762 arctags archeads allparents allchildren} {
9765 }
9766 set allcwait 0
9767 set nextarc 0
9768 set cachedarcs 0
9769 set seeds {}
9770 getallcommits
9771 }
9773 proc writecache {f} {
9774 global cachearc cachedarcs allccache
9775 global arcstart arcend arcnos arcids arcout
9781 }
9782 if {[catch {
9786 } else {
9788 }
9789 }
9790 } err]} {
9794 return 0
9795 }
9800 return 0
9801 }
9802 return 1
9803 }
9805 proc savecache {} {
9806 global nextarc cachedarcs cachearc allccache
9809 set cachearc 0
9811 catch {
9815 }
9816 }
9818 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9819 # or 0 if neither is true.
9820 proc anc_or_desc {a b} {
9821 global arcout arcstart arcend arcnos cached_isanc
9824 # Both are on the same arc(s); either both are the same BMP,
9825 # or if one is not a BMP, the other is also not a BMP or is
9826 # the BMP at end of the arc (and it only has 1 incoming arc).
9827 # Or both can be BMPs with no incoming arcs.
9829 return 0
9830 }
9836 return 1
9837 } else {
9838 return -1
9839 }
9840 }
9846 } else {
9847 set aend {}
9848 }
9850 } else {
9852 }
9857 } else {
9858 set bend {}
9859 }
9861 } else {
9863 }
9865 return 1
9866 }
9868 return -1
9869 }
9872 return 1
9873 }
9874 }
9877 return -1
9878 }
9880 return 0
9881 }
9882 }
9890 continue
9891 }
9897 return 1
9901 return -1
9902 }
9908 }
9909 }
9910 }
9913 return 0
9914 }
9918 # and returns 0 if so and 1 if not.
9919 # If we subsequently discover a tag on such a growing tip, and that
9922 # isn't a good choice to display as a descendent tag of
9926 #
9927 proc is_certain {desc anc} {
9928 global arcnos arcout arcstart arcend growing problems
9930 set certain {}
9932 # tags on the same arc are certain
9934 return 1
9935 }
9940 }
9941 }
9944 } else {
9947 }
9949 return 1
9950 }
9953 set nnh 1
9954 set ngrowanc 0
9958 incr nnh -1
9959 }
9965 incr ngrowanc
9966 }
9967 } else {
9974 incr nnh -1
9975 }
9977 incr ngrowanc -1
9978 }
9988 incr nnh -1
9989 }
9991 incr ngrowanc -1
9992 }
9994 }
9995 }
9996 }
9997 }
9998 }
9999 }
10003 } else {
10006 incr nnh
10007 }
10008 }
10009 }
10010 }
10011 foreach x [array names growanc] {
10013 return 0
10014 }
10015 return 0
10016 }
10017 return 1
10018 }
10020 proc validate_arctags {a} {
10021 global arctags idtags
10023 set i -1
10026 incr i
10029 incr i -1
10030 }
10031 }
10033 }
10035 proc validate_archeads {a} {
10036 global archeads idheads
10038 set i -1
10041 incr i
10044 incr i -1
10045 }
10046 }
10048 }
10050 # Return the list of IDs that have tags that are descendents of id,
10051 # ignoring IDs that are descendents of IDs already reported.
10052 proc desctags {id} {
10053 global arcnos arcstart arcids arctags idtags allparents
10054 global growing cached_dtags
10057 return {}
10058 }
10059 set t1 [clock clicks -milliseconds]
10062 # part-way along an arc; check that arc first
10067 set tid {}
10072 }
10075 }
10076 }
10080 }
10081 }
10084 }
10089 set nc 1
10095 incr nc -1
10096 }
10097 # ignore tags on starting node
10101 set ta 1
10104 set ta 1
10105 }
10106 }
10113 }
10114 }
10123 }
10126 }
10128 incr nc -1
10129 }
10131 }
10132 }
10133 }
10138 incr nc
10139 }
10140 }
10141 }
10142 }
10143 set tags {}
10144 foreach id [array names tagloc] {
10149 }
10150 }
10151 }
10152 }
10153 set t2 [clock clicks -milliseconds]
10156 # remove tags that are descendents of other tags
10164 incr j -1
10165 incr i -1
10168 incr i -1
10169 break
10170 }
10171 }
10172 }
10174 if {[array names growing] ne {}} {
10175 # graph isn't finished, need to check if any tag could get
10176 # eclipsed by another tag coming later. Simply ignore any
10177 # tags that could later get eclipsed.
10178 set ctags {}
10182 }
10183 }
10186 } else {
10188 }
10189 } else {
10191 }
10192 set t3 [clock clicks -milliseconds]
10196 }
10198 }
10200 proc anctags {id} {
10201 global arcnos arcids arcout arcend arctags idtags allparents
10202 global growing cached_atags
10205 return {}
10206 }
10207 set t1 [clock clicks -milliseconds]
10210 # part-way along an arc; check that arc first
10219 }
10220 }
10221 }
10223 return {}
10224 }
10228 }
10229 }
10232 }
10237 set taglist {}
10238 set nc 1
10244 incr nc -1
10245 }
10246 # ignore tags on starting node
10250 set td 1
10253 set td 1
10254 }
10255 }
10261 }
10262 }
10274 }
10275 }
10278 }
10280 incr nc -1
10281 }
10283 }
10284 }
10285 }
10290 incr nc
10291 }
10292 }
10293 }
10294 }
10295 set t2 [clock clicks -milliseconds]
10297 set tags {}
10298 foreach id [array names tagloc] {
10303 }
10304 }
10305 }
10306 }
10308 # remove tags that are ancestors of other tags
10316 incr j -1
10317 incr i -1
10320 incr i -1
10321 break
10322 }
10323 }
10324 }
10326 if {[array names growing] ne {}} {
10327 # graph isn't finished, need to check if any tag could get
10328 # eclipsed by another tag coming later. Simply ignore any
10329 # tags that could later get eclipsed.
10330 set ctags {}
10334 }
10335 }
10338 } else {
10340 }
10341 } else {
10343 }
10344 set t3 [clock clicks -milliseconds]
10348 }
10350 }
10352 # Return the list of IDs that have heads that are descendents of id,
10353 # including id itself if it has a head.
10354 proc descheads {id} {
10355 global arcnos arcstart arcids archeads idheads cached_dheads
10356 global allparents
10359 return {}
10360 }
10361 set aret {}
10363 # part-way along an arc; check it first
10372 }
10373 }
10375 }
10379 set ret {}
10384 } else {
10387 }
10393 }
10394 }
10399 }
10400 }
10401 }
10402 }
10406 }
10408 proc addedtag {id} {
10409 global arcnos arcout cached_dtags cached_atags
10414 }
10415 catch {unset cached_dtags}
10416 catch {unset cached_atags}
10417 }
10419 proc addedhead {hid head} {
10420 global arcnos arcout cached_dheads
10425 }
10426 catch {unset cached_dheads}
10427 }
10429 proc removedhead {hid head} {
10430 global cached_dheads
10432 catch {unset cached_dheads}
10433 }
10435 proc movedhead {hid head} {
10436 global arcnos arcout cached_dheads
10441 }
10442 catch {unset cached_dheads}
10443 }
10445 proc changedrefs {} {
10446 global cached_dheads cached_dtags cached_atags
10447 global arctags archeads arcnos arcout idheads idtags
10449 foreach id [concat [array names idheads] [array names idtags]] {
10455 }
10456 }
10457 }
10458 catch {unset cached_dtags}
10459 catch {unset cached_atags}
10460 catch {unset cached_dheads}
10461 }
10463 proc rereadrefs {} {
10464 global idtags idheads idotherrefs mainheadid
10466 set refids [concat [array names idtags] \
10467 [array names idheads] [array names idotherrefs]]
10471 }
10472 }
10474 readrefs
10475 changedrefs
10477 [array names idheads] [array names idotherrefs]]]
10482 }
10483 }
10487 }
10488 run refill_reflist
10489 }
10491 proc listrefs {id} {
10492 global idtags idheads idotherrefs
10494 set x {}
10497 }
10498 set y {}
10501 }
10502 set z {}
10505 }
10507 }
10509 proc showtag {tag isnew} {
10510 global ctext tagcontents tagids linknum tagobjid
10514 }
10516 clear_ctext
10517 settabs 0
10518 set linknum 0
10520 catch {
10522 }
10523 }
10526 } else {
10528 }
10530 maybe_scroll_ctext 1
10532 init_flist {}
10533 }
10535 proc doquit {} {
10536 global stopped
10537 global gitktmpdir
10539 set stopped 100
10540 savestuff .
10541 destroy .
10543 if {[info exists gitktmpdir]} {
10545 }
10546 }
10548 proc mkfontdisp {font top which} {
10557 }
10559 proc choosefont {font which} {
10560 global fontparam fontlist fonttop fontattr
10561 global prefstop NS
10569 set top .gitkfont
10572 font create sample
10579 set fontlist [lsort [font families]]
10590 -textvariable fontparam(size) \
10591 -validatecommand {string is integer -strict %s}
10593 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10594 -variable fontparam(weight) -onvalue bold -offvalue normal
10596 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10597 -variable fontparam(slant) -onvalue italic -offvalue roman
10601 -background white
10603 -fill black -tags text
10615 trace add variable fontparam write chg_fontparam
10616 } else {
10619 }
10624 }
10625 }
10627 proc centertext {w} {
10629 }
10631 proc fontok {} {
10632 global fontparam fontpref prefstop
10638 }
10641 }
10645 fontcan
10646 }
10648 proc fontcan {} {
10649 global fonttop fontparam
10651 if {[info exists fonttop]} {
10653 catch {font delete sample}
10654 unset fonttop
10655 unset fontparam
10656 }
10657 }
10659 if {[package vsatisfies [package provide Tk] 8.6]} {
10660 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10661 # function to make use of it.
10662 proc choosefont {font which} {
10665 tk fontchooser show
10666 }
10667 proc on_choosefont {font which newfont} {
10668 global fontparam
10677 fontok
10678 }
10679 }
10681 proc selfontfam {} {
10682 global fonttop fontparam
10687 }
10688 }
10690 proc chg_fontparam {v sub op} {
10691 global fontparam
10694 }
10696 proc doprefs {} {
10697 global maxwidth maxgraphpct use_ttk NS
10698 global oldprefs prefstop showneartags showlocalchanges
10699 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10700 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10701 global hideremotes want_ttk have_ttk
10703 set top .gitkprefs
10707 return
10708 }
10709 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10710 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10712 }
10726 -variable showlocalchanges
10729 -variable autoselect
10732 -variable hideremotes
10741 -variable showneartags
10744 -variable limitdiffs
10747 -variable perfile_attrs
10761 -text [mc "Use themed widgets"]
10764 } else {
10766 }
10796 [mc "diff hunk header"] \
10802 [mc "marked line background"] \
10827 }
10829 proc choose_extdiff {} {
10830 global extdifftool
10832 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10835 }
10836 }
10838 proc choosecolor {v vi w x cmd} {
10847 }
10849 proc setselbg {c} {
10850 global bglist cflist
10853 }
10857 }
10859 # This sets the background color and the color scheme for the whole UI.
10860 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10861 # if we don't specify one ourselves, which makes the checkbuttons and
10862 # radiobuttons look bad. This chooses white for selectColor if the
10863 # background color is light, or black if it is dark.
10864 proc setui {c} {
10865 if {[tk windowingsystem] eq "win32"} { return }
10867 set selc black
10869 set selc white
10870 }
10872 }
10874 proc setbg {c} {
10875 global bglist
10879 }
10880 }
10882 proc setfg {c} {
10883 global fglist canv
10887 }
10891 }
10893 proc prefscan {} {
10894 global oldprefs prefstop
10896 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10897 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10900 }
10902 unset prefstop
10903 fontcan
10904 }
10906 proc prefsok {} {
10907 global maxwidth maxgraphpct
10908 global oldprefs prefstop showneartags showlocalchanges
10909 global fontpref mainfont textfont uifont
10910 global limitdiffs treediffs perfile_attrs
10911 global hideremotes
10914 unset prefstop
10915 fontcan
10916 set fontchanged 0
10920 eval font configure mainfont [fontflags mainfont]
10921 eval font configure mainfontbold [fontflags mainfont 1]
10922 setcoords
10923 set fontchanged 1
10924 }
10928 eval font configure textfont [fontflags textfont]
10929 eval font configure textfontbold [fontflags textfont 1]
10930 }
10934 eval font configure uifont [fontflags uifont]
10935 }
10936 settabs
10939 doshowlocalchanges
10940 } else {
10941 dohidelocalchanges
10942 }
10943 }
10946 # treediffs elements are limited by path;
10947 # won't have encodings cached if perfile_attrs was just turned on
10948 catch {unset treediffs}
10949 }
10952 redisplay
10955 reselectline
10956 }
10958 rereadrefs
10959 }
10960 }
10962 proc formatdate {d} {
10963 global datetimeformat
10966 }
10968 }
10970 # This list of encoding names and aliases is distilled from
10971 # http://www.iana.org/assignments/character-sets.
10972 # Not all of them are supported by Tcl.
10973 set encoding_aliases {
10974 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10975 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10976 { ISO-10646-UTF-1 csISO10646UTF1 }
10977 { ISO_646.basic:1983 ref csISO646basic1983 }
10978 { INVARIANT csINVARIANT }
10979 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10980 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10981 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10982 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10983 { NATS-DANO iso-ir-9-1 csNATSDANO }
10984 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10985 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10986 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10987 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10988 { ISO-2022-KR csISO2022KR }
10989 { EUC-KR csEUCKR }
10990 { ISO-2022-JP csISO2022JP }
10991 { ISO-2022-JP-2 csISO2022JP2 }
10992 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10993 csISO13JISC6220jp }
10994 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10995 { IT iso-ir-15 ISO646-IT csISO15Italian }
10996 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10997 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10998 { greek7-old iso-ir-18 csISO18Greek7Old }
10999 { latin-greek iso-ir-19 csISO19LatinGreek }
11000 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11001 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11002 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11003 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11004 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11005 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11006 { INIS iso-ir-49 csISO49INIS }
11007 { INIS-8 iso-ir-50 csISO50INIS8 }
11008 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11009 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11010 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11011 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11012 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11013 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11014 csISO60Norwegian1 }
11015 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11016 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11017 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11018 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11019 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11020 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11021 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11022 { greek7 iso-ir-88 csISO88Greek7 }
11023 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11024 { iso-ir-90 csISO90 }
11025 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11026 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11027 csISO92JISC62991984b }
11028 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11029 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11030 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11031 csISO95JIS62291984handadd }
11032 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11033 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11034 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11035 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11036 CP819 csISOLatin1 }
11037 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11038 { T.61-7bit iso-ir-102 csISO102T617bit }
11039 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11040 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11041 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11042 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11043 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11044 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11045 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11046 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11047 arabic csISOLatinArabic }
11048 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11049 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11050 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11051 greek greek8 csISOLatinGreek }
11052 { T.101-G2 iso-ir-128 csISO128T101G2 }
11053 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11054 csISOLatinHebrew }
11055 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11056 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11057 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11058 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11059 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11060 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11061 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11062 csISOLatinCyrillic }
11063 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11064 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11065 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11066 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11067 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11068 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11069 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11070 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11071 { ISO_10367-box iso-ir-155 csISO10367Box }
11072 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11073 { latin-lap lap iso-ir-158 csISO158Lap }
11074 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11075 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11076 { us-dk csUSDK }
11077 { dk-us csDKUS }
11078 { JIS_X0201 X0201 csHalfWidthKatakana }
11079 { KSC5636 ISO646-KR csKSC5636 }
11080 { ISO-10646-UCS-2 csUnicode }
11081 { ISO-10646-UCS-4 csUCS4 }
11082 { DEC-MCS dec csDECMCS }
11083 { hp-roman8 roman8 r8 csHPRoman8 }
11084 { macintosh mac csMacintosh }
11085 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11086 csIBM037 }
11087 { IBM038 EBCDIC-INT cp038 csIBM038 }
11088 { IBM273 CP273 csIBM273 }
11089 { IBM274 EBCDIC-BE CP274 csIBM274 }
11090 { IBM275 EBCDIC-BR cp275 csIBM275 }
11091 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11092 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11093 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11094 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11095 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11096 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11097 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11098 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11099 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11100 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11101 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11102 { IBM437 cp437 437 csPC8CodePage437 }
11103 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11104 { IBM775 cp775 csPC775Baltic }
11105 { IBM850 cp850 850 csPC850Multilingual }
11106 { IBM851 cp851 851 csIBM851 }
11107 { IBM852 cp852 852 csPCp852 }
11108 { IBM855 cp855 855 csIBM855 }
11109 { IBM857 cp857 857 csIBM857 }
11110 { IBM860 cp860 860 csIBM860 }
11111 { IBM861 cp861 861 cp-is csIBM861 }
11112 { IBM862 cp862 862 csPC862LatinHebrew }
11113 { IBM863 cp863 863 csIBM863 }
11114 { IBM864 cp864 csIBM864 }
11115 { IBM865 cp865 865 csIBM865 }
11116 { IBM866 cp866 866 csIBM866 }
11117 { IBM868 CP868 cp-ar csIBM868 }
11118 { IBM869 cp869 869 cp-gr csIBM869 }
11119 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11120 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11121 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11122 { IBM891 cp891 csIBM891 }
11123 { IBM903 cp903 csIBM903 }
11124 { IBM904 cp904 904 csIBBM904 }
11125 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11126 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11127 { IBM1026 CP1026 csIBM1026 }
11128 { EBCDIC-AT-DE csIBMEBCDICATDE }
11129 { EBCDIC-AT-DE-A csEBCDICATDEA }
11130 { EBCDIC-CA-FR csEBCDICCAFR }
11131 { EBCDIC-DK-NO csEBCDICDKNO }
11132 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11133 { EBCDIC-FI-SE csEBCDICFISE }
11134 { EBCDIC-FI-SE-A csEBCDICFISEA }
11135 { EBCDIC-FR csEBCDICFR }
11136 { EBCDIC-IT csEBCDICIT }
11137 { EBCDIC-PT csEBCDICPT }
11138 { EBCDIC-ES csEBCDICES }
11139 { EBCDIC-ES-A csEBCDICESA }
11140 { EBCDIC-ES-S csEBCDICESS }
11141 { EBCDIC-UK csEBCDICUK }
11142 { EBCDIC-US csEBCDICUS }
11143 { UNKNOWN-8BIT csUnknown8BiT }
11144 { MNEMONIC csMnemonic }
11145 { MNEM csMnem }
11146 { VISCII csVISCII }
11147 { VIQR csVIQR }
11148 { KOI8-R csKOI8R }
11149 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11150 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11151 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11152 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11153 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11154 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11155 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11156 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11157 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11158 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11159 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11160 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11161 { IBM1047 IBM-1047 }
11162 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11163 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11164 { UNICODE-1-1 csUnicode11 }
11165 { CESU-8 csCESU-8 }
11166 { BOCU-1 csBOCU-1 }
11167 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11168 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11169 l8 }
11170 { ISO-8859-15 ISO_8859-15 Latin-9 }
11171 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11172 { GBK CP936 MS936 windows-936 }
11173 { JIS_Encoding csJISEncoding }
11174 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11175 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11176 EUC-JP }
11177 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11178 { ISO-10646-UCS-Basic csUnicodeASCII }
11179 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11180 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11181 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11182 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11183 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11184 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11185 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11186 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11187 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11188 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11189 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11190 { Ventura-US csVenturaUS }
11191 { Ventura-International csVenturaInternational }
11192 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11193 { PC8-Turkish csPC8Turkish }
11194 { IBM-Symbols csIBMSymbols }
11195 { IBM-Thai csIBMThai }
11196 { HP-Legal csHPLegal }
11197 { HP-Pi-font csHPPiFont }
11198 { HP-Math8 csHPMath8 }
11199 { Adobe-Symbol-Encoding csHPPSMath }
11200 { HP-DeskTop csHPDesktop }
11201 { Ventura-Math csVenturaMath }
11202 { Microsoft-Publishing csMicrosoftPublishing }
11203 { Windows-31J csWindows31J }
11204 { GB2312 csGB2312 }
11205 { Big5 csBig5 }
11206 }
11208 proc tcl_encoding {enc} {
11209 global encoding_aliases tcl_encoding_cache
11212 }
11213 set names [encoding names]
11218 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11221 }
11222 }
11227 # look through the aliases for one that tcl knows about
11233 }
11234 }
11236 }
11237 break
11238 }
11239 }
11240 set tclenc {}
11243 }
11246 }
11248 proc gitattr {path attr default} {
11249 global path_attr_cache
11252 } else {
11253 set r "unspecified"
11256 }
11258 }
11261 }
11263 }
11265 proc cache_gitattr {attr pathlist} {
11266 global path_attr_cache
11267 set newlist {}
11271 }
11272 }
11273 set lim 1000
11274 if {[tk windowingsystem] == "win32"} {
11275 # windows has a 32k limit on the arguments to a command...
11276 set lim 30
11277 }
11286 }
11288 }
11289 }
11290 }
11291 }
11292 }
11294 proc get_path_encoding {path} {
11295 global gui_encoding perfile_attrs
11301 }
11302 }
11304 }
11306 # First check that Tcl/Tk is recent enough
11307 if {[catch {package require Tk 8.4} err]} {
11308 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11309 Gitk requires at least Tcl/Tk 8.4." list
11310 exit 1
11311 }
11313 # defaults...
11314 set wrcomcmd "git diff-tree --stdin -p --pretty"
11316 set gitencoding {}
11317 catch {
11318 set gitencoding [exec git config --get i18n.commitencoding]
11319 }
11320 catch {
11321 set gitencoding [exec git config --get i18n.logoutputencoding]
11322 }
11324 set gitencoding "utf-8"
11325 }
11329 }
11331 set gui_encoding [encoding system]
11332 catch {
11333 set enc [exec git config --get gui.encoding]
11338 } else {
11340 }
11341 }
11342 }
11344 if {[tk windowingsystem] eq "aqua"} {
11345 set mainfont {{Lucida Grande} 9}
11346 set textfont {Monaco 9}
11347 set uifont {{Lucida Grande} 9 bold}
11348 } else {
11349 set mainfont {Helvetica 9}
11350 set textfont {Courier 9}
11351 set uifont {Helvetica 9 bold}
11352 }
11353 set tabstop 8
11354 set findmergefiles 0
11355 set maxgraphpct 50
11356 set maxwidth 16
11357 set revlistorder 0
11358 set fastdate 0
11359 set uparrowlen 5
11360 set downarrowlen 5
11361 set mingaplen 100
11362 set cmitmode "patch"
11363 set wrapcomment "none"
11364 set showneartags 1
11365 set hideremotes 0
11366 set maxrefs 20
11367 set maxlinelen 200
11368 set showlocalchanges 1
11369 set limitdiffs 1
11370 set datetimeformat "%Y-%m-%d %H:%M:%S"
11371 set autoselect 1
11372 set perfile_attrs 0
11373 set want_ttk 1
11375 if {[tk windowingsystem] eq "aqua"} {
11376 set extdifftool "opendiff"
11377 } else {
11378 set extdifftool "meld"
11379 }
11381 set colors {green red blue magenta darkgrey brown orange}
11382 if {[tk windowingsystem] eq "win32"} {
11383 set uicolor SystemButtonFace
11384 set bgcolor SystemWindow
11385 set fgcolor SystemButtonText
11386 set selectbgcolor SystemHighlight
11387 } else {
11388 set uicolor grey85
11389 set bgcolor white
11390 set fgcolor black
11391 set selectbgcolor gray85
11392 }
11393 set diffcolors {red "#00a000" blue}
11394 set diffcontext 3
11395 set ignorespace 0
11396 set markbgcolor "#e0e0ff"
11398 set circlecolors {white blue gray blue blue}
11400 # button for popping up context menus
11401 if {[tk windowingsystem] eq "aqua"} {
11402 set ctxbut <Button-2>
11403 } else {
11404 set ctxbut <Button-3>
11405 }
11407 ## For msgcat loading, first locate the installation location.
11408 if { [info exists ::env(GITK_MSGSDIR)] } {
11409 ## Msgsdir was manually set in the environment.
11410 set gitk_msgsdir $::env(GITK_MSGSDIR)
11411 } else {
11412 ## Let's guess the prefix from argv0.
11416 unset gitk_prefix
11417 }
11419 ## Internationalization (i18n) through msgcat and gettext. See
11420 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11421 package require msgcat
11422 namespace import ::msgcat::mc
11423 ## And eventually load the actual message catalog
11426 catch {source ~/.gitk}
11429 eval font create mainfont [fontflags mainfont]
11430 eval font create mainfontbold [fontflags mainfont 1]
11433 eval font create textfont [fontflags textfont]
11434 eval font create textfontbold [fontflags textfont 1]
11437 eval font create uifont [fontflags uifont]
11441 setoptions
11443 # check that we can find a .git directory somewhere...
11444 if {[catch {set gitdir [gitdir]}]} {
11445 show_error {} . [mc "Cannot find a git repository here."]
11446 exit 1
11447 }
11450 exit 1
11451 }
11453 set selecthead {}
11454 set selectheadid {}
11456 set revtreeargs {}
11457 set cmdline_files {}
11458 set i 0
11459 set revtreeargscmd {}
11462 "" { }
11463 "--" {
11465 break
11466 }
11467 "--select-commit=*" {
11469 }
11470 "--argscmd=*" {
11472 }
11473 default {
11475 }
11476 }
11477 incr i
11478 }
11481 set selecthead {}
11482 }
11485 # no -- on command line, but some arguments (other than --argscmd)
11486 if {[catch {
11491 # Unfortunately git rev-parse doesn't produce an error when
11492 # something is both a revision and a filename. To be consistent
11493 # with git log and git rev-list, check revtreeargs for filenames.
11496 show_error {} . [mc "Ambiguous argument '%s': both revision\
11498 exit 1
11499 }
11500 }
11501 } err]} {
11503 # so look for "fatal:".
11507 }
11509 exit 1
11510 }
11511 }
11513 set nullid "0000000000000000000000000000000000000000"
11514 set nullid2 "0000000000000000000000000000000000000001"
11515 set nullfile "/dev/null"
11518 if {![info exists have_ttk]} {
11519 set have_ttk [llength [info commands ::ttk::style]]
11520 }
11524 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11526 set show_notes {}
11528 set show_notes "--show-notes"
11529 }
11531 set runq {}
11532 set history {}
11533 set historyindex 0
11534 set fh_serial 0
11535 set nhl_names {}
11536 set highlight_paths {}
11537 set findpattern {}
11538 set searchdirn -forwards
11539 set boldids {}
11540 set boldnameids {}
11541 set diffelide {0 0}
11542 set markingmatches 0
11543 set linkentercount 0
11544 set need_redisplay 0
11545 set nrows_drawn 0
11546 set firsttabstop 0
11548 set nextviewnum 1
11549 set curview 0
11550 set selectedview 0
11551 set selectedhlview [mc "None"]
11552 set highlight_related [mc "None"]
11553 set highlight_files {}
11554 set viewfiles(0) {}
11555 set viewperm(0) 0
11556 set viewargs(0) {}
11557 set viewargscmd(0) {}
11559 set selectedline {}
11560 set numcommits 0
11561 set loginstance 0
11562 set cmdlineok 0
11563 set stopped 0
11564 set stuffsaved 0
11565 set patchnum 0
11566 set lserial 0
11567 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11568 setcoords
11569 makewindow
11570 catch {
11571 image create photo gitlogo -width 16 -height 16
11573 image create photo gitlogominus -width 4 -height 2
11574 gitlogominus put #C00000 -to 0 0 4 2
11575 gitlogo copy gitlogominus -to 1 5
11576 gitlogo copy gitlogominus -to 6 5
11577 gitlogo copy gitlogominus -to 11 5
11578 image delete gitlogominus
11580 image create photo gitlogoplus -width 4 -height 4
11581 gitlogoplus put #008000 -to 1 0 3 4
11582 gitlogoplus put #008000 -to 0 1 4 3
11583 gitlogo copy gitlogoplus -to 1 9
11584 gitlogo copy gitlogoplus -to 6 9
11585 gitlogo copy gitlogoplus -to 11 9
11586 image delete gitlogoplus
11588 image create photo gitlogo32 -width 32 -height 32
11589 gitlogo32 copy gitlogo -zoom 2 2
11591 wm iconphoto . -default gitlogo gitlogo32
11592 }
11593 # wait for the window to become visible
11594 tkwait visibility .
11596 update
11597 readrefs
11600 # create a view for the files/dirs specified on the command line
11601 set curview 1
11602 set selectedview 1
11603 set nextviewnum 2
11604 set viewname(1) [mc "Command line"]
11608 set viewperm(1) 0
11609 set vdatemode(1) 0
11610 addviewmenu 1
11611 .bar.view entryconf [mca "Edit view..."] -state normal
11612 .bar.view entryconf [mca "Delete view"] -state normal
11613 }
11615 if {[info exists permviews]} {
11618 incr nextviewnum
11625 }
11626 }
11628 if {[tk windowingsystem] eq "win32"} {
11629 focus -force .
11630 }
11632 getcommits {}
11634 # Local variables:
11635 # mode: tcl
11636 # indent-tabs-mode: t
11637 # tab-width: 8
11638 # End: