| blob | 364c7a84cbcf923deb72c2a91b4ec5f5d75bf4c3 |
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
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 }
214 # Other flag arguments including -<n>
218 # a flag argument that we don't recognize;
219 # that means we can't optimize
221 }
222 lappend glflags $arg
223 }
224 default {
225 # Non-flag arguments specify commits or ranges of commits
227 lappend revargs --gitk-symmetric-diff-marker
228 }
229 lappend revargs $arg
230 }
231 }
232 }
239 }
242 global vposids vnegids
245 set revs HEAD
246 }
248 # we get stdout followed by stderr in $err
249 # for an unknown rev, git rev-parse echoes it and then errors out
262 }
265 }
266 break
267 }
268 lappend badrev $line
269 }
270 }
273 }
283 lappend ret $id
286 }
287 }
291 lappend ret $id
294 }
295 lappend pos $id
296 }
297 incr sdm -1
298 }
302 }
304 # Start off a git log process and arrange to read its output
306 global startmsecs commitidx viewcomplete curview
307 global tclencoding
308 global viewargs viewargscmd viewfiles vfilelimit
309 global showlocalchanges
310 global viewactive viewinstances vmergeonly
311 global mainheadid viewmainheadid viewmainheadid_orig
312 global vcanopt vflags vrevs vorigargs
316 # these are set this way for the error exits
319 varcinit $view
328 }
330 }
337 global nr_unmerged
344 }
346 }
347 }
354 }
358 }
366 }
372 get_viewmainhead $view
373 }
376 }
380 }
386 }
389 global commfd leftover
392 catch {
399 }
400 }
402 nukefile $fd
405 }
407 proc stop_backends {} {
408 global commfd
411 stop_instance $inst
412 }
413 }
416 global viewinstances
419 stop_instance $inst
420 }
422 }
425 global pending_select mainheadid selectheadid
433 }
434 }
437 global canv curview need_redisplay viewactive
439 initlayout
441 reset_pending_select $selid
446 }
447 }
449 proc updatecommits {} {
450 global curview vcanopt vorigargs vfilelimit viewinstances
451 global viewactive viewcomplete tclencoding
452 global startmsecs showneartags showlocalchanges
453 global mainheadid viewmainheadid viewmainheadid_orig pending_select
454 global isworktree
455 global varcid vposids vnegids vflags vrevs
458 rereadrefs
462 dohidelocalchanges
463 }
467 get_viewmainhead $view
468 }
469 }
471 doshowlocalchanges
472 }
478 return
479 }
480 # note: getting the delta when negative refs change is hard,
481 # and could require multiple git log invocations, so in that
482 # case we ask git log for all the commits (not just the delta)
486 # take out positive refs that we asked for before or
487 # that we have already seen
492 lappend newrevs $rev
493 incr npos
494 }
496 lappend $newrevs $rev
497 }
498 }
502 }
506 }
512 return
513 }
516 }
522 }
526 reset_pending_select {}
529 getallcommits
530 }
531 }
533 proc reloadcommits {} {
534 global curview viewcomplete selectedline currentid thickerline
535 global showneartags treediffs commitinterest cached_commitrow
536 global targetid
541 }
544 stop_rev_list $curview
545 }
546 resetvarcs $curview
551 readrefs
552 changedrefs
554 getallcommits
555 }
556 clear_display
560 setcanvscroll
561 getcommits $selid
563 }
565 # This makes a string representation of a positive integer which
566 # sorts as a string in numerical order
574 }
576 }
578 # Procedures used in reordering commits from git log (without
579 # --topo-order) into the order for display.
582 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
583 global vtokmod varcmod vrowmod varcix vlastins
597 }
600 global varcid varccommits parents children vseedcount ordertok
606 }
607 # some commits might have children but haven't been seen yet
610 }
613 }
616 }
618 }
620 # returns a list of the commits with no children
622 global vdownptr vleftptr varcstart
629 }
631 }
634 global varcid varctok parents children vdatemode
635 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
636 global commitdata commitinfo vseedcount varccommits vlastins
643 }
647 }
650 }
656 }
665 }
666 }
671 }
678 }
682 }
689 }
695 }
704 }
707 global varcid varcstart varccommits varctok vtokmod
708 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
716 # "%" sorts before "0"...
726 }
736 }
738 modify_arc $v $oa
739 }
740 }
743 global parents children varctok varcstart varccommits
744 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
753 lappend todo $a
758 }
759 }
760 }
761 incr ntot
768 }
769 }
771 }
778 }
784 }
793 }
794 }
799 }
801 continue
802 }
809 }
810 }
815 modify_arc $v $ka
816 }
818 modify_arc $v $b
819 }
826 }
829 }
832 }
841 }
846 }
853 }
857 }
859 }
860 }
865 }
866 }
868 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
869 }
871 # Fix up the graph after we have found out that in view $v,
872 # $p (a commit that we have already seen) is actually the parent
873 # of the last commit in arc $a.
875 global varcid varcstart varctok vupptr
879 splitvarc $p $v
881 }
882 # seeds always need to be renumbered
886 renumbervarc $pa $v
887 }
888 }
891 global cmitlisted children parents varcid varctok vtokmod
892 global varccommits ordertok commitidx numcommits curview
893 global targetid targetrow
895 readcommit $id
903 modify_arc $v $a
904 }
910 }
911 fix_reversal $p $a $v
915 setcanvscroll
918 incr targetrow
919 }
920 }
921 }
922 }
925 global varcid varccommits parents children cmitlisted
926 global commitidx varctok vtokmod targetid targetrow curview numcommits
933 return
934 }
941 # note we deliberately don't update varcstart($v) even if $i == 0
943 modify_arc $v $a $i
946 incr targetrow
947 }
948 }
949 setcanvscroll
950 drawvisible
951 }
954 global varcid varccommits parents children commitidx
955 global varctok vtokmod cmitlisted currentid selectedline
956 global targetid curview numcommits
961 return
962 }
968 return
969 }
979 }
980 modify_arc $v $a $i
982 unset currentid
984 }
987 }
988 setcanvscroll
989 drawvisible
990 }
993 global children nullid nullid2
998 lappend kids $id
999 }
1000 }
1002 }
1005 global children nullid nullid2
1010 }
1011 }
1013 }
1016 global children nullid nullid2
1023 }
1024 }
1026 }
1029 global varctok varcid
1033 }
1035 # This assumes that if lim is not given, the caller has checked that
1036 # arc a's token is less than $vtokmod($v)
1038 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1046 }
1047 }
1054 }
1059 }
1061 }
1063 undolayout $r
1064 }
1065 }
1068 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1069 global varcid vrownum varcorder varcix varccommits
1070 global vupptr vdownptr vleftptr varctok
1071 global displayorder parentlist curview cached_commitrow
1078 }
1080 }
1084 # go up the tree until we find something that has a row number,
1085 # or we get to a seed
1087 }
1102 }
1104 }
1108 # go down if possible
1111 # if not, go left, or go up until we can go left
1116 }
1118 }
1120 incr arcn
1125 }
1131 }
1132 }
1134 # Test whether view $v contains commit $id
1136 global varcid
1139 }
1141 # Return the row number for commit $id in the current view
1143 global varcid varccommits varcrow curview cached_commitrow
1144 global varctok vtokmod
1150 }
1153 update_arcrows $v
1154 }
1157 }
1162 }
1166 }
1168 # Returns 1 if a is on an earlier row than b, otherwise 0
1170 global varcid varctok curview
1176 }
1180 }
1182 }
1187 }
1199 }
1200 }
1202 }
1204 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1206 global vrownum curview commitidx displayorder parentlist
1207 global varccommits varcorder parents vrowmod varcrow
1208 global d_valid_start d_valid_end
1211 update_arcrows $curview
1212 }
1228 }
1230 lappend displayorder $id
1232 }
1236 lset displayorder $i $id
1238 incr i
1239 }
1240 }
1241 incr r $al
1242 }
1243 }
1246 global displayorder
1252 }
1254 }
1257 global varctok varccommits varcid parents children
1258 global cmitlisted commitidx vtokmod
1267 # add p as a new commit
1268 incr missing_parents
1276 }
1279 modify_arc $v $b
1280 }
1284 }
1285 }
1289 }
1290 }
1291 }
1293 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1294 # Assumes we already have an arc for $rwid.
1296 global children parents varcid varctok vtokmod varccommits
1299 # make $rwid be $ch's parent in place of $id
1303 }
1305 # add $ch to $rwid's children and sort the list if necessary
1309 }
1310 # fix the graph after joining $id to $rwid
1312 fix_reversal $rwid $a $v
1313 # parentlist is wrong for the last element of arc $a
1314 # even if displayorder is right, hence the 3rd arg here
1316 }
1317 }
1319 # Mechanism for registering a command to be executed when we come
1320 # across a particular commit. To handle the case when only the
1321 # prefix of the commit is known, the commitinterest array is now
1322 # indexed by the first 4 characters of the ID. Each element is a
1323 # list of id, cmd pairs.
1325 global commitinterest
1328 }
1331 global commitinterest
1340 lappend newlist $i $script
1341 }
1342 }
1347 }
1348 }
1350 }
1353 global cmitlisted leftover
1354 global commitidx commitdata vdatemode
1355 global parents children curview hlview
1356 global idpending ordertok
1357 global varccommits varcid varctok vtokmod vfilelimit
1360 # git log doesn't terminate the last commit with a null...
1363 }
1367 }
1368 global commfd viewcomplete viewactive viewname
1369 global viewinstances
1374 }
1375 # set it blocking so we wait for the process to terminate
1381 }
1384 bad arguments to git log."
1386 append err \
1387 " (Note: arguments to gitk are passed to git log\
1388 to allow selection of commits to be displayed.)"
1389 }
1392 }
1393 error_popup $err
1394 }
1397 # Check if we have seen any ids listed as parents that haven't
1398 # appeared in the list
1399 closevarcs $view
1400 notbusy $view
1401 }
1403 run chewcommits
1404 }
1406 }
1414 break
1415 }
1422 }
1435 }
1437 }
1442 break
1443 }
1444 }
1445 }
1450 }
1452 exit 1
1453 }
1460 # when doing path limiting, so work around that here
1461 # by working out the rewritten parent with git rev-list
1462 # and if we already know about it, using the rewritten
1463 # parent as a substitute parent for $id's children.
1467 }]} {
1469 # use $rwid in place of $id
1470 rewrite_commit $view $id $rwid
1471 continue
1472 }
1473 }
1474 }
1480 }
1485 }
1497 }
1498 }
1500 # new arc
1502 }
1504 modify_arc $view $a
1505 }
1510 }
1521 }
1523 fix_reversal $p $a $view
1524 }
1525 }
1526 incr i
1527 }
1531 }
1533 global numcommits hlview
1537 run chewcommits
1538 }
1540 # we never actually get here...
1541 run vhighlightmore
1542 }
1545 }
1546 }
1548 }
1550 proc chewcommits {} {
1551 global curview hlview viewcomplete
1552 global pending_select
1554 layoutmore
1556 global commitidx varctok
1557 global numcommits startmsecs
1560 update
1561 reset_pending_select {}
1568 }
1569 }
1571 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1572 #puts "overall $ms ms for $numcommits commits"
1573 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1576 }
1577 notbusy layout
1578 }
1580 }
1583 global tclencoding
1585 # Invoke git-log to handle automatic encoding conversion
1587 # Read the results using i18n.logoutputencoding
1591 }
1593 close $fd
1594 # Remove the heading line
1598 }
1603 }
1606 global commitinfo cdate
1617 # should never happen...
1619 }
1631 }
1632 }
1634 # take the first non-blank line of the comment as the headline
1639 }
1644 }
1646 # git log indents the comment by 4 spaces;
1647 # if we got this via git cat-file, add the indentation
1650 append newcomment " "
1651 append newcomment $line
1653 }
1655 }
1658 }
1661 }
1664 global commitdata commitinfo
1669 readcommit $id
1672 }
1673 }
1675 }
1677 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1678 # and are present in the current view.
1679 # This is fairly slow...
1681 global varcid curview
1686 }
1688 }
1690 proc readrefs {} {
1691 global tagids idtags headids idheads tagobjid
1692 global otherrefids idotherrefs mainhead mainheadid
1693 global selecthead selectheadid
1694 global hideremotes
1698 }
1710 }
1716 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1717 # which is what we want since the former is the commit ID
1723 }
1729 }
1730 }
1734 catch {
1739 }
1740 }
1743 catch {
1745 }
1746 }
1747 }
1749 # skip over fake commits
1750 proc first_real_row {} {
1751 global nullid nullid2 numcommits
1756 break
1757 }
1758 }
1760 }
1762 # update things for a head moved to a child of its previous location
1764 global headids idheads
1769 }
1771 # update things when a head has been removed
1773 global headids idheads
1781 }
1782 }
1784 }
1787 global use_ttk
1791 }
1793 }
1796 global have_tk85
1798 # In MacOS Tk 8.4 transient appears to work by setting
1799 # overrideredirect, which is utterly useless, since the
1800 # windows get no border, and are not even kept above
1801 # the parent.
1804 wm transient $window $origin
1806 # Windows fails to place transient windows normally, so
1807 # schedule a callback to center them on the parent.
1810 }
1811 }
1814 global NS
1825 tkwait window $top
1826 }
1833 set w .error
1834 ttk_toplevel $w
1835 make_transient $w $owner
1836 show_error $w $w $msg
1837 }
1838 }
1841 global confirm_ok NS
1843 set w .confirm
1844 ttk_toplevel $w
1845 make_transient $w $owner
1857 tkwait window $w
1859 }
1861 proc setoptions {} {
1864 option add *Panedwindow.sashRelief raised startupFile
1866 option add *Menu.font uifont startupFile
1867 }
1870 }
1871 option add *Button.font uifont startupFile
1872 option add *Checkbutton.font uifont startupFile
1873 option add *Radiobutton.font uifont startupFile
1874 option add *Menubutton.font uifont startupFile
1875 option add *Label.font uifont startupFile
1876 option add *Message.font uifont startupFile
1877 option add *Entry.font uifont startupFile
1878 option add *Labelframe.font uifont startupFile
1879 }
1881 # Make a menu and submenus.
1882 # m is the window name for the menu, items is the list of menu items to add.
1883 # Each item is a list {mc label type description options...}
1884 # mc is ignored; it's so we can put mc there to alert xgettext
1885 # label is the string that appears in the menu
1886 # type is cascade, command or radiobutton (should add checkbutton)
1887 # description depends on type; it's the sublist for cascade, the
1888 # command to invoke for command, or {variable value} for radiobutton
1890 menu $m
1892 set Meta1 Cmd
1894 set Meta1 Ctrl
1895 }
1906 }
1907 }
1912 }
1915 }
1919 }
1920 }
1926 }
1927 }
1928 }
1930 # translate string and remove ampersands
1933 }
1936 global use_ttk
1942 }
1947 }
1949 }
1951 proc makewindow {} {
1952 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1953 global tabstop
1954 global findtype findtypemenu findloc findstring fstring geometry
1955 global entries sha1entry sha1string sha1but
1956 global diffcontextstring diffcontext
1957 global ignorespace
1958 global maincursor textcursor curtextcursor
1959 global rowctxmenu fakerowmenu mergemax wrapcomment
1960 global highlight_files gdttype
1961 global searchstring sstring
1962 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1963 global headctxmenu progresscanv progressitem progresscoords statusw
1964 global fprogitem fprogcoord lastprogupdate progupdatepending
1965 global rprogitem rprogcoord rownumsel numcommits
1966 global have_tk85 use_ttk NS
1968 # The "mc" arguments here are purely so that xgettext
1969 # sees the following string as needing to be translated
1980 }}
1984 }}
1992 }}
1998 }}
2008 }}
2012 }}
2014 }
2015 makemenu .bar $bar
2016 . configure -menu .bar
2019 # cover the non-themed toplevel with a themed frame.
2021 }
2023 # the gui has upper and lower half, parts of a paned window.
2026 # possibly use assumed geometry
2034 }
2036 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2042 }
2044 # create three canvases
2045 set cscroll .tf.histframe.csb
2046 set canv .tf.histframe.pwclist.canv
2047 canvas $canv \
2051 .tf.histframe.pwclist add $canv
2052 set canv2 .tf.histframe.pwclist.canv2
2053 canvas $canv2 \
2056 .tf.histframe.pwclist add $canv2
2057 set canv3 .tf.histframe.pwclist.canv3
2058 canvas $canv3 \
2061 .tf.histframe.pwclist add $canv3
2067 }
2071 }
2073 # a scroll bar to rule them
2078 lappend bglist $canv $canv2 $canv3
2081 # we have two button bars at bottom of top frame. Bar 1
2085 set sha1entry .tf.bar.sha1
2087 set sha1but .tf.bar.sha1label
2091 pack .tf.bar.sha1label -side left
2093 trace add variable sha1string write sha1change
2097 #define left_width 16
2098 #define left_height 16
2099 static unsigned char left_bits[] = {
2103 }
2105 #define right_width 16
2106 #define right_height 16
2107 static unsigned char right_bits[] = {
2111 }
2126 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2127 -side left
2130 }
2131 global selectedline
2132 trace add variable selectedline write selectedline_change
2134 # Status label and progress bar
2135 set statusw .tf.bar.status
2142 set progresscanv .tf.bar.progress
2147 }
2156 # build up the bottom bar of upper window
2161 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2168 trace add variable gdttype write gdttype_change
2172 set fstring .tf.lbar.findstring
2173 lappend entries $fstring
2175 trace add variable findstring write find_change
2179 trace add variable findtype write findcom_change
2183 trace add variable findloc write find_change
2184 pack .tf.lbar.findloc -side right
2185 pack .tf.lbar.findtype -side right
2188 # Finish putting the upper half of the viewer together
2192 .ctop add .tf
2196 }
2198 # now build up the bottom
2201 # lower left, a text box over search bar, scroll bar to the right
2202 # if we know window height, then that will set the lower text height, otherwise
2203 # we set lower text height which will drive window height
2208 }
2215 set sstring .bleft.top.sstring
2218 lappend entries $sstring
2219 trace add variable searchstring write incrsearch
2232 -textvariable diffcontextstring
2234 trace add variable diffcontextstring write diffcontextchange
2235 lappend entries .bleft.mid.diffcontext
2236 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2240 set ctext .bleft.bottom.ctext
2247 }
2253 grid .bleft.bottom.sbhorizontal -sticky ew
2258 lappend bglist $ctext
2259 lappend fglist $ctext
2288 .pwbottom add .bleft
2291 }
2293 # lower right
2302 set cflist .bright.cfiles
2304 text $cflist \
2307 -font mainfont \
2312 lappend bglist $cflist
2313 lappend fglist $cflist
2317 $cflist tag configure highlight \
2321 .pwbottom add .bright
2322 .ctop add .pwbottom
2324 # restore window width & height if known
2329 }
2332 }
2334 }
2335 }
2339 }
2342 set M1B M1
2345 set M1B Control
2347 }
2353 }
2357 }
2358 }
2363 #bindall <B1-Motion> {selcanvline %W %x %y}
2373 allcanvs yview scroll $delta units
2374 }
2378 }
2379 }
2380 }
2402 bindkey p "selnextline -1"
2403 bindkey n "selnextline 1"
2404 bindkey z "goback"
2405 bindkey x "goforw"
2406 bindkey i "selnextline -1"
2407 bindkey k "selnextline 1"
2408 bindkey j "goback"
2409 bindkey l "goforw"
2410 bindkey b prevfile
2417 bindkey f nextfile
2434 wm protocol . WM_DELETE_WINDOW doquit
2443 global ctxbut
2447 set maincursor [. cget -cursor]
2451 set rowctxmenu .rowctxmenu
2453 {mc "Diff this -> selected" command {diffvssel 0}}
2454 {mc "Diff selected -> this" command {diffvssel 1}}
2455 {mc "Make patch" command mkpatch}
2456 {mc "Create tag" command mktag}
2457 {mc "Write commit to file" command writecommit}
2458 {mc "Create new branch" command mkbranch}
2459 {mc "Cherry-pick this commit" command cherrypick}
2460 {mc "Reset HEAD branch to here" command resethead}
2461 {mc "Mark this commit" command markhere}
2462 {mc "Return to mark" command gotomark}
2463 {mc "Find descendant of this and mark" command find_common_desc}
2464 {mc "Compare with marked commit" command compare_commits}
2465 }
2468 set fakerowmenu .fakerowmenu
2470 {mc "Diff this -> selected" command {diffvssel 0}}
2471 {mc "Diff selected -> this" command {diffvssel 1}}
2472 {mc "Make patch" command mkpatch}
2473 }
2476 set headctxmenu .headctxmenu
2478 {mc "Check out this branch" command cobranch}
2479 {mc "Remove this branch" command rmbranch}
2480 }
2483 global flist_menu
2484 set flist_menu .flistctxmenu
2486 {mc "Highlight this too" command {flist_hl 0}}
2487 {mc "Highlight this only" command {flist_hl 1}}
2488 {mc "External diff" command {external_diff}}
2489 {mc "Blame parent commit" command {external_blame 1}}
2490 }
2493 global diff_menu
2494 set diff_menu .diffctxmenu
2496 {mc "Show origin of this line" command show_line_source}
2497 {mc "Run git gui blame on this line" command {external_blame_diff}}
2498 }
2500 }
2502 # Windows sends all mouse wheel events to the current focused window, not
2503 # the one where the mouse hovers, so bind those events here and redirect
2504 # to the correct window
2505 proc windows_mousewheel_redirector {W X Y D} {
2506 global canv canv2 canv3
2512 } else {
2513 catch {
2515 }
2516 }
2517 }
2518 }
2520 # Update row number label when selectedline changes
2521 proc selectedline_change {n1 n2 op} {
2522 global selectedline rownumsel
2525 set rownumsel {}
2526 } else {
2528 }
2529 }
2531 # mouse-2 makes all windows scan vertically, but only the one
2532 # the cursor is in scans horizontally
2533 proc canvscan {op w x y} {
2534 global canv canv2 canv3
2538 } else {
2540 }
2541 }
2542 }
2544 proc scrollcanv {cscroll f0 f1} {
2546 drawvisible
2547 flushhighlights
2548 }
2550 # when we make a key binding for the toplevel, make sure
2551 # it doesn't get triggered when that key is pressed in the
2552 # find string entry widget.
2553 proc bindkey {ev script} {
2554 global entries
2558 set escript [bind Entry <Key>]
2559 }
2562 }
2563 }
2565 # set the focus back to the toplevel for any click outside
2566 # the entry widgets
2567 proc click {w} {
2568 global ctext entries
2571 }
2572 focus .
2573 }
2575 # Adjust the progress bar for a change in requested extent or canvas size
2576 proc adjustprogress {} {
2577 global progresscanv progressitem progresscoords
2578 global fprogitem fprogcoord lastprogupdate progupdatepending
2579 global rprogitem rprogcoord use_ttk
2583 return
2584 }
2593 set now [clock clicks -milliseconds]
2595 set progupdatepending 0
2596 update
2598 set progupdatepending 1
2600 }
2601 }
2603 proc doprogupdate {} {
2604 global lastprogupdate progupdatepending
2607 set progupdatepending 0
2608 set lastprogupdate [clock clicks -milliseconds]
2609 update
2610 }
2611 }
2613 proc savestuff {w} {
2614 global canv canv2 canv3 mainfont textfont uifont tabstop
2615 global stuffsaved findmergefiles maxgraphpct
2616 global maxwidth showneartags showlocalchanges
2617 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2618 global cmitmode wrapcomment datetimeformat limitdiffs
2619 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2620 global autoselect extdifftool perfile_attrs markbgcolor use_ttk
2621 global hideremotes want_ttk
2624 if {![winfo viewable .]} return
2625 catch {
2626 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2627 set f [open "~/.gitk-new" w]
2628 if {$::tcl_platform(platform) eq {windows}} {
2629 file attributes "~/.gitk-new" -hidden true
2630 }
2665 } else {
2668 }
2676 }
2677 }
2680 file rename -force "~/.gitk-new" "~/.gitk"
2681 }
2682 set stuffsaved 1
2683 }
2685 proc resizeclistpanes {win w} {
2686 global oldwidth use_ttk
2691 } else {
2694 }
2698 } else {
2703 set sash0 30
2704 }
2707 }
2712 }
2713 }
2714 }
2718 } else {
2721 }
2722 }
2724 }
2726 proc resizecdetpanes {win w} {
2727 global oldwidth use_ttk
2731 } else {
2733 }
2736 } else {
2740 set sash0 45
2741 }
2744 }
2745 }
2748 } else {
2750 }
2751 }
2753 }
2755 proc allcanvs args {
2756 global canv canv2 canv3
2760 }
2762 proc bindall {event action} {
2763 global canv canv2 canv3
2767 }
2769 proc about {} {
2770 global uifont NS
2771 set w .about
2774 return
2775 }
2780 Gitk - a commit viewer for git
2782 Copyright \u00a9 2005-2009 Paul Mackerras
2784 Use and redistribute under the terms of the GNU General Public License"] \
2785 -justify center -aspect 400 -border 2 -bg white -relief groove
2793 }
2795 proc keys {} {
2796 global NS
2797 set w .keys
2800 return
2801 }
2802 if {[tk windowingsystem] eq {aqua}} {
2803 set M1T Cmd
2804 } else {
2805 set M1T Ctrl
2806 }
2811 [mc "Gitk key bindings:"]
2814 [mc "<Home> Move to first commit"]
2815 [mc "<End> Move to last commit"]
2816 [mc "<Up>, p, i Move up one commit"]
2817 [mc "<Down>, n, k Move down one commit"]
2818 [mc "<Left>, z, j Go back in history list"]
2819 [mc "<Right>, x, l Go forward in history list"]
2820 [mc "<PageUp> Move up one page in commit list"]
2821 [mc "<PageDown> Move down one page in commit list"]
2828 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2829 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2830 [mc "<Delete>, b Scroll diff view up one page"]
2831 [mc "<Backspace> Scroll diff view up one page"]
2832 [mc "<Space> Scroll diff view down one page"]
2833 [mc "u Scroll diff view up 18 lines"]
2834 [mc "d Scroll diff view down 18 lines"]
2837 [mc "<Return> Move to next find hit"]
2838 [mc "/ Focus the search box"]
2839 [mc "? Move to previous find hit"]
2840 [mc "f Scroll diff view to next file"]
2847 [mc "<F5> Update"]
2848 " \
2849 -justify left -bg white -border 2 -relief groove
2857 }
2859 # Procedures for manipulating the file list window at the
2860 # bottom right of the overall window.
2862 proc treeview {w l openlevs} {
2863 global treecontents treediropen treeheight treeparent treeindex
2865 set ix 0
2866 set treeindex() 0
2867 set lev 0
2868 set prefix {}
2869 set prefixend -1
2870 set prefendstack {}
2871 set htstack {}
2872 set ht 0
2873 set treecontents() {}
2880 }
2887 incr lev -1
2888 }
2892 set ht 0
2904 set ht 1
2909 set str "\n"
2917 }
2918 incr lev
2919 }
2922 incr ht
2923 set str "\n"
2927 }
2929 }
2930 }
2938 }
2940 }
2942 proc linetoelt {l} {
2943 global treeheight treecontents
2945 set y 2
2946 set prefix {}
2947 while {1} {
2951 }
2952 set n 1
2957 incr y
2958 break
2959 }
2960 }
2962 }
2963 }
2964 }
2966 proc highlight_tree {y prefix} {
2967 global treeheight treecontents cflist
2973 }
2974 incr y
2977 }
2978 }
2980 }
2982 proc treeclosedir {w dir} {
2983 global treediropen treeheight treeparent treeindex
2995 }
2996 }
2998 proc treeopendir {w dir} {
2999 global treediropen treeheight treeparent treecontents treeindex
3006 set lev 0
3007 set str "\n"
3010 incr lev
3011 append str "\t"
3013 }
3028 } else {
3031 }
3032 }
3045 }
3047 }
3048 }
3050 proc treeclick {w x y} {
3051 global treediropen cmitmode ctext cflist cflist_top
3054 if {![info exists cflist_top]} return
3061 return
3062 }
3068 } else {
3070 }
3071 }
3073 proc setfilelist {id} {
3074 global treefilelist cflist jump_to_here
3081 }
3082 }
3083 }
3085 image create bitmap tri-rt -background black -foreground blue -data {
3086 #define tri-rt_width 13
3087 #define tri-rt_height 13
3088 static unsigned char tri-rt_bits[] = {
3089 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3090 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3091 0x00, 0x00};
3092 } -maskdata {
3093 #define tri-rt-mask_width 13
3094 #define tri-rt-mask_height 13
3095 static unsigned char tri-rt-mask_bits[] = {
3096 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3097 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3098 0x08, 0x00};
3099 }
3100 image create bitmap tri-dn -background black -foreground blue -data {
3101 #define tri-dn_width 13
3102 #define tri-dn_height 13
3103 static unsigned char tri-dn_bits[] = {
3104 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3105 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3106 0x00, 0x00};
3107 } -maskdata {
3108 #define tri-dn-mask_width 13
3109 #define tri-dn-mask_height 13
3110 static unsigned char tri-dn-mask_bits[] = {
3111 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3112 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3113 0x00, 0x00};
3114 }
3116 image create bitmap reficon-T -background black -foreground yellow -data {
3117 #define tagicon_width 13
3118 #define tagicon_height 9
3119 static unsigned char tagicon_bits[] = {
3120 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3121 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3122 } -maskdata {
3123 #define tagicon-mask_width 13
3124 #define tagicon-mask_height 9
3125 static unsigned char tagicon-mask_bits[] = {
3126 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3127 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3128 }
3129 set rectdata {
3130 #define headicon_width 13
3131 #define headicon_height 9
3132 static unsigned char headicon_bits[] = {
3133 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3134 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3135 }
3136 set rectmask {
3137 #define headicon-mask_width 13
3138 #define headicon-mask_height 9
3139 static unsigned char headicon-mask_bits[] = {
3140 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3141 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3142 }
3143 image create bitmap reficon-H -background black -foreground green \
3145 image create bitmap reficon-o -background black -foreground "#ddddff" \
3148 proc init_flist {first} {
3149 global cflist cflist_top difffilestart
3155 set cflist_top 1
3157 } else {
3158 catch {unset cflist_top}
3159 }
3161 set difffilestart {}
3162 }
3164 proc highlight_tag {f} {
3165 global highlight_paths
3169 return "bold"
3170 }
3171 }
3172 return {}
3173 }
3175 proc highlight_filelist {} {
3176 global cmitmode cflist
3185 }
3186 }
3187 } else {
3188 highlight_tree 2 {}
3189 }
3191 }
3193 proc unhighlight_filelist {} {
3194 global cflist
3199 }
3201 proc add_flist {fl} {
3202 global cflist
3208 }
3210 }
3212 proc sel_flist {w x y} {
3213 global ctext difffilestart cflist cflist_top cmitmode
3216 if {![info exists cflist_top]} return
3223 } else {
3225 }
3226 }
3228 proc pop_flist_menu {w X Y x y} {
3229 global ctext cflist cmitmode flist_menu flist_menu_file
3230 global treediffs diffids
3232 stopfinding
3238 } else {
3240 }
3242 set xdiffstate "normal"
3244 set xdiffstate "disabled"
3245 }
3246 # Disable "External diff" item in tree mode
3249 }
3251 proc find_ctext_fileinfo {line} {
3252 global ctext_file_names ctext_file_lines
3258 return {}
3259 } else {
3261 }
3262 }
3264 proc pop_diff_menu {w X Y x y} {
3265 global ctext diff_menu flist_menu_file
3266 global diff_menu_txtpos diff_menu_line
3267 global diff_menu_filebase
3271 # don't pop up the menu on hunk-separator or file-separator lines
3273 return
3274 }
3275 stopfinding
3281 }
3283 proc flist_hl {only} {
3284 global flist_menu_file findstring gdttype
3289 } else {
3291 }
3292 set gdttype [mc "touching paths:"]
3293 }
3295 proc gitknewtmpdir {} {
3296 global diffnum gitktmpdir gitdir
3298 if {![info exists gitktmpdir]} {
3300 [format ".gitk-tmp.%s" [pid]]]
3303 unset gitktmpdir
3304 return {}
3305 }
3306 set diffnum 0
3307 }
3308 incr diffnum
3312 return {}
3313 }
3315 }
3317 proc save_file_from_commit {filename output what} {
3318 global nullfile
3323 }
3325 return {}
3326 }
3328 }
3330 proc external_diff_get_one_file {diffid filename diffdir} {
3331 global nullid nullid2 nullfile
3332 global gitdir
3338 }
3340 }
3344 }
3348 }
3350 proc external_diff {} {
3351 global nullid nullid2
3352 global flist_menu_file
3353 global diffids
3354 global extdifftool
3357 # no reference commit given
3360 # diffing working copy with index
3363 # diffing index with HEAD
3364 set diffidfrom "HEAD"
3365 } else {
3366 # use first parent commit
3367 global parentlist selectedline
3369 }
3370 } else {
3373 }
3375 # make sure that several diffs wont collide
3376 set diffdir [gitknewtmpdir]
3379 # gather files to diff
3388 } else {
3391 }
3392 }
3393 }
3395 proc find_hunk_blamespec {base line} {
3396 global ctext
3398 # Find and parse the hunk header
3404 s_line old_specs osz osz1 new_line nsz]} {
3405 return
3406 }
3408 # base lines for the parents
3412 old_spec old_line osz]} {
3413 return
3414 }
3416 }
3418 # Now scan the lines to determine offset within the hunk
3420 set dline 0
3423 # Determine if the line is removed
3427 # Choose a parent index
3430 } else {
3434 } else {
3435 # blame the current commit
3436 set parent -1
3437 }
3438 }
3439 # then count other lines that belong to it
3442 # Determine if the line is removed
3447 incr dline
3448 }
3449 } else {
3451 incr dline
3452 }
3453 }
3454 }
3455 incr parent
3456 } else {
3457 set parent 0
3458 }
3462 }
3464 proc external_blame_diff {} {
3465 global currentid cmitmode
3466 global diff_menu_txtpos diff_menu_line
3467 global diff_menu_filebase flist_menu_file
3470 set parent_idx 0
3472 } else {
3477 } else {
3478 set parent_idx 0
3479 set line 0
3480 }
3481 }
3484 }
3487 # at stage 0 or 2
3488 proc index_sha1 {fname} {
3496 }
3497 }
3499 return {}
3500 }
3502 # Turn an absolute path into one relative to the current directory
3503 proc make_relative {f} {
3506 }
3508 set here [file split [pwd]]
3509 set ei 0
3510 set hi 0
3511 set res {}
3514 lappend res ".."
3515 } else {
3516 incr ei
3517 }
3518 incr hi
3519 }
3522 }
3524 proc external_blame {parent_idx {line {}}} {
3525 global flist_menu_file gitdir
3526 global nullid nullid2
3527 global parentlist selectedline currentid
3531 } else {
3533 }
3536 error_popup [mc "No such commit"]
3537 return
3538 }
3540 set cmdline [list git gui blame]
3543 }
3545 # Unfortunately it seems git gui blame doesn't like
3546 # being given an absolute path...
3551 }
3552 }
3554 proc show_line_source {} {
3555 global cmitmode currentid parents curview blamestuff blameinst
3556 global diff_menu_line diff_menu_filebase flist_menu_file
3557 global nullid nullid2 gitdir
3559 set from_index {}
3563 } else {
3569 return
3570 }
3571 incr pi -1
3574 # must be a merge in progress...
3575 if {[catch {
3576 # get the last line from .git/MERGE_HEAD
3580 } err]} {
3582 return
3583 }
3585 # need to do the blame from the index
3586 if {[catch {
3588 } err]} {
3590 return
3591 }
3592 } else {
3594 }
3595 } else {
3597 }
3599 }
3600 set blameargs {}
3603 }
3606 lappend blameargs --contents -
3607 } else {
3609 }
3611 if {[catch {
3613 } err]} {
3615 return
3616 }
3617 nowbusy blaming [mc "Searching"]
3623 }
3625 proc stopblaming {} {
3626 global blameinst
3628 if {[info exists blameinst]} {
3630 unset blameinst
3631 notbusy blaming
3632 }
3633 }
3635 proc read_line_source {fd inst} {
3636 global blamestuff curview commfd blameinst nullid nullid2
3640 }
3642 return 1
3643 }
3645 unset blameinst
3646 notbusy blaming
3650 return 0
3651 }
3653 set fname {}
3659 # look for "filename" line
3663 break
3664 }
3665 }
3666 }
3668 # all looks good, select it
3670 # blame uses all-zeroes to mean not committed,
3671 # which would mean a change in the index
3673 }
3676 } else {
3677 error_popup [mc "That line comes from commit %s, \
3679 }
3680 } else {
3681 puts "oops couldn't parse git blame output"
3682 }
3683 return 0
3684 }
3687 proc delete_at_eof {f dir} {
3692 }
3694 return 0
3695 }
3696 return 1
3697 }
3699 # Functions for adding and removing shell-type quoting
3701 proc shellquote {str} {
3704 }
3707 }
3710 }
3712 }
3714 proc shellarglist {l} {
3715 set str {}
3718 append str " "
3719 }
3721 }
3723 }
3725 proc shelldequote {str} {
3726 set ret {}
3727 set used -1
3728 while {1} {
3729 incr used
3733 break
3734 }
3740 }
3742 incr used
3746 error "unmatched single-quote"
3747 }
3750 continue
3751 }
3754 error "trailing backslash"
3755 }
3757 continue
3758 }
3759 # here ch == "\""
3760 while {1} {
3762 error "unmatched double-quote"
3763 }
3769 }
3771 incr used
3773 incr used
3774 }
3775 }
3777 }
3779 proc shellsplit {str} {
3780 set l {}
3781 while {1} {
3789 }
3791 }
3793 # Code to implement multiple views
3795 proc newview {ishighlight} {
3796 global nextviewnum newviewname newishighlight
3797 global revtreeargs viewargscmd newviewopts curview
3800 set top .gitkview
3803 return
3804 }
3810 }
3812 set known_view_options {
3813 {perm b . {} {mc "Remember this view"}}
3814 {reflabel l + {} {mc "References (space separated list):"}}
3815 {refs t15 .. {} {mc "Branches & tags:"}}
3816 {allrefs b *. "--all" {mc "All refs"}}
3817 {branches b . "--branches" {mc "All (local) branches"}}
3818 {tags b . "--tags" {mc "All tags"}}
3819 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3820 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3821 {author t15 .. "--author=*" {mc "Author:"}}
3822 {committer t15 . "--committer=*" {mc "Committer:"}}
3823 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3824 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3825 {changes_l l + {} {mc "Changes to Files:"}}
3826 {pickaxe_s r0 . {} {mc "Fixed String"}}
3827 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3828 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3829 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3830 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3831 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3832 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3833 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3834 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3835 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3836 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3837 {lright b . "--left-right" {mc "Mark branch sides"}}
3838 {first b . "--first-parent" {mc "Limit to first parent"}}
3839 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3840 {args t50 *. {} {mc "Additional arguments to git log:"}}
3841 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3842 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3843 }
3845 proc encode_view_opts {n} {
3846 global known_view_options newviewopts
3848 set rargs [list]
3858 }
3864 }
3865 } else {
3871 }
3872 }
3873 }
3876 }
3878 proc decode_view_opts {n view_args} {
3879 global known_view_options newviewopts
3884 # Checkboxes
3885 set val 0
3887 # Radiobuttons
3889 set val 0
3890 } else {
3891 # Text fields
3892 set val {}
3893 }
3895 }
3896 set oargs [list]
3897 set refargs [list]
3900 && ![info exists found(limit)]} {
3902 set found(limit) 1
3903 continue
3904 }
3905 catch { unset val }
3912 # Check buttons
3913 set val 1
3915 # Radio buttons
3918 } else {
3919 # Text input fields
3922 }
3925 break
3926 }
3927 if {[info exists val]} break
3928 }
3929 if {[info exists val]} continue
3932 } else {
3934 }
3935 }
3938 }
3940 proc edit_or_newview {} {
3941 global curview
3944 editview
3945 } else {
3946 newview 0
3947 }
3948 }
3950 proc editview {} {
3951 global curview
3952 global viewname viewperm newviewname newviewopts
3953 global viewargs viewargscmd
3958 return
3959 }
3965 }
3967 proc vieweditor {top n title} {
3968 global newviewname newviewopts viewfiles bgcolor
3969 global known_view_options NS
3975 # View name
3983 # View options
3985 set cexpand 0
3986 set cnt 0
3992 set lxpad 0
3996 incr cnt
4002 incr cnt
4006 } else {
4007 set lxpad 5
4008 }
4042 }
4045 }
4047 }
4048 }
4063 }
4065 proc doviewmenu {m first cmd op argv} {
4070 break
4071 }
4072 }
4073 }
4075 proc allviewmenus {n op args} {
4076 # global viewhlmenu
4080 }
4082 proc newviewok {top n {apply 0}} {
4083 global nextviewnum newviewperm newviewname newishighlight
4084 global viewname viewfiles viewperm selectedview curview
4085 global viewargs viewargscmd newviewopts viewhlmenu
4087 if {[catch {
4089 } err]} {
4091 return
4092 }
4093 set files {}
4098 }
4099 }
4101 # creating a new view
4102 incr nextviewnum
4111 } else {
4113 }
4114 } else {
4115 # editing an existing view
4123 }
4130 run reloadcommits
4131 }
4132 }
4133 }
4136 }
4138 proc delview {} {
4139 global curview viewperm hlview selectedhlview
4143 set selectedhlview [mc "None"]
4144 unset hlview
4145 }
4148 showview 0
4149 }
4151 proc addviewmenu {n} {
4152 global viewname viewhlmenu
4158 }
4160 proc showview {n} {
4161 global curview cached_commitrow ordertok
4162 global displayorder parentlist rowidlist rowisopt rowfinal
4163 global colormap rowtextx nextcolor canvxmax
4164 global numcommits viewcomplete
4165 global selectedline currentid canv canvy0
4166 global treediffs
4167 global pending_select mainheadid
4168 global commitidx
4169 global selectedview
4170 global hlview selectedhlview commitinterest
4173 set selid {}
4184 }
4185 } elseif {[info exists pending_select]} {
4187 unset pending_select
4188 }
4189 unselectline
4190 normalline
4191 catch {unset treediffs}
4192 clear_display
4194 unset hlview
4195 set selectedhlview [mc "None"]
4196 }
4197 catch {unset commitinterest}
4198 catch {unset cached_commitrow}
4199 catch {unset ordertok}
4206 run refill_reflist
4209 return
4210 }
4212 set displayorder {}
4213 set parentlist {}
4214 set rowidlist {}
4215 set rowisopt {}
4216 set rowfinal {}
4219 catch {unset colormap}
4220 catch {unset rowtextx}
4221 set nextcolor 0
4224 set row 0
4225 setcanvscroll
4226 set yf 0
4227 set row {}
4230 # try to get the selected row in the same position on the screen
4234 set ytop 0
4235 }
4237 }
4239 drawvisible
4244 } else {
4245 reset_pending_select {}
4249 } else {
4250 set row [first_real_row]
4253 }
4254 }
4255 }
4258 show_status [mc "Reading commits..."]
4259 }
4261 show_status [mc "No commits selected"]
4262 }
4263 }
4265 # Stuff relating to the highlighting facility
4267 proc ishighlighted {id} {
4268 global vhighlights fhighlights nhighlights rhighlights
4272 }
4275 }
4278 }
4281 }
4282 return 0
4283 }
4285 proc bolden {id font} {
4286 global canv linehtag currentid boldids need_redisplay markedid
4288 # need_redisplay = 1 means the display is stale and about to be redrawn
4295 -outline {{}} -tags secsel \
4298 }
4301 }
4302 }
4304 proc bolden_name {id font} {
4305 global canv2 linentag currentid boldnameids need_redisplay
4313 -outline {{}} -tags secsel \
4316 }
4317 }
4319 proc unbolden {} {
4320 global boldids
4322 set stillbold {}
4326 } else {
4328 }
4329 }
4331 }
4333 proc addvhighlight {n} {
4334 global hlview viewcomplete curview vhl_done commitidx
4336 if {[info exists hlview]} {
4337 delvhighlight
4338 }
4342 }
4345 drawvisible
4346 }
4347 }
4349 proc delvhighlight {} {
4350 global hlview vhighlights
4352 if {![info exists hlview]} return
4353 unset hlview
4354 catch {unset vhighlights}
4355 unbolden
4356 }
4358 proc vhighlightmore {} {
4359 global hlview vhl_done commitidx vhighlights curview
4362 set vr [visiblerows]
4372 }
4374 }
4375 }
4376 }
4378 return 0
4379 }
4381 proc askvhighlight {row id} {
4382 global hlview vhighlights iddrawn
4387 }
4389 } else {
4391 }
4392 }
4394 proc hfiles_change {} {
4395 global highlight_files filehighlight fhighlights fh_serial
4396 global highlight_paths
4398 if {[info exists filehighlight]} {
4399 # delete previous highlights
4401 unset filehighlight
4402 catch {unset fhighlights}
4403 unbolden
4404 unhighlight_filelist
4405 }
4406 set highlight_paths {}
4408 incr fh_serial
4411 }
4412 }
4414 proc gdttype_change {name ix op} {
4415 global gdttype highlight_files findstring findpattern
4417 stopfinding
4421 set highlight_files {}
4422 hfiles_change
4423 }
4424 findcom_change
4425 } else {
4427 set findpattern {}
4428 findcom_change
4429 }
4431 hfiles_change
4432 }
4433 drawvisible
4434 }
4435 # enable/disable findtype/findloc menus too
4436 }
4438 proc find_change {name ix op} {
4439 global gdttype findstring highlight_files
4441 stopfinding
4443 findcom_change
4444 } else {
4447 hfiles_change
4448 }
4449 }
4450 drawvisible
4451 }
4453 proc findcom_change args {
4454 global nhighlights boldnameids
4455 global findpattern findtype findstring gdttype
4457 stopfinding
4458 # delete previous highlights, if any
4461 }
4462 set boldnameids {}
4463 catch {unset nhighlights}
4464 unbolden
4465 unmarkmatches
4467 set findpattern {}
4470 } else {
4471 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4474 }
4475 }
4477 proc makepatterns {l} {
4478 set ret {}
4483 } else {
4486 }
4487 }
4489 }
4491 proc do_file_hl {serial} {
4492 global highlight_files filehighlight highlight_paths gdttype fhl_list
4497 highlight_filelist
4501 } else {
4502 # must be "containing:", i.e. we're searching commit info
4503 return
4504 }
4509 set fhl_list {}
4510 drawvisible
4511 flushhighlights
4512 }
4514 proc flushhighlights {} {
4515 global filehighlight fhl_list
4517 if {[info exists filehighlight]} {
4518 lappend fhl_list {}
4521 }
4522 }
4524 proc askfilehighlight {row id} {
4525 global filehighlight fhighlights fhl_list
4530 }
4532 proc readfhighlight {} {
4533 global filehighlight fhighlights curview iddrawn
4534 global fhl_list find_dirn
4536 if {![info exists filehighlight]} {
4537 return 0
4538 }
4539 set nr 0
4547 }
4553 }
4555 }
4557 # strange...
4558 puts "oops, git diff-tree died"
4560 unset filehighlight
4561 return 0
4562 }
4563 if {[info exists find_dirn]} {
4564 run findmore
4565 }
4566 return 1
4567 }
4569 proc doesmatch {f} {
4570 global findtype findpattern
4576 } else {
4578 }
4579 }
4581 proc askfindhighlight {row id} {
4582 global nhighlights commitinfo iddrawn
4583 global findloc
4584 global markingmatches
4588 }
4590 set isbold 0
4591 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4596 set isbold 2
4597 break
4598 }
4599 set isbold 1
4600 }
4601 }
4607 }
4608 }
4611 }
4612 }
4614 }
4616 proc markrowmatches {row id} {
4617 global canv canv2 linehtag linentag commitinfo findloc
4628 }
4629 }
4635 }
4636 }
4637 }
4639 proc vrel_change {name ix op} {
4640 global highlight_related
4642 rhighlight_none
4644 run drawvisible
4645 }
4646 }
4648 # prepare for testing whether commits are descendents or ancestors of a
4649 proc rhighlight_sel {a} {
4650 global descendent desc_todo ancestor anc_todo
4651 global highlight_related
4653 catch {unset descendent}
4655 catch {unset ancestor}
4658 rhighlight_none
4659 run drawvisible
4660 }
4661 }
4663 proc rhighlight_none {} {
4664 global rhighlights
4666 catch {unset rhighlights}
4667 unbolden
4668 }
4670 proc is_descendent {a} {
4671 global curview children descendent desc_todo
4676 set leftover {}
4677 set done 0
4682 continue
4683 }
4689 set done 1
4690 }
4691 }
4692 }
4695 return
4696 }
4697 }
4700 }
4702 proc is_ancestor {a} {
4703 global curview parents ancestor anc_todo
4708 set leftover {}
4709 set done 0
4714 continue
4715 }
4721 set done 1
4722 }
4723 }
4724 }
4727 return
4728 }
4729 }
4732 }
4734 proc askrelhighlight {row id} {
4735 global descendent highlight_related iddrawn rhighlights
4736 global selectedline ancestor
4739 set isbold 0
4744 }
4746 set isbold 1
4747 }
4752 }
4754 set isbold 1
4755 }
4756 }
4760 }
4761 }
4763 }
4765 # Graph layout functions
4767 proc shortids {ids} {
4768 set res {}
4774 } else {
4776 }
4777 }
4779 }
4781 proc ntimes {n o} {
4782 set ret {}
4787 }
4789 }
4791 }
4793 proc ordertoken {id} {
4794 global ordertok curview varcid varcstart varctok curview parents children
4795 global nullid nullid2
4799 }
4801 set todo {}
4802 while {1} {
4806 } else {
4808 }
4811 break
4812 }
4815 # it's a root
4817 break
4818 }
4821 } else {
4825 }
4827 }
4828 }
4833 }
4836 }
4838 # Work out where id should go in idlist so that order-token
4839 # values increase from left to right
4840 proc idcol {idlist id {i 0}} {
4843 set i 0
4844 }
4848 }
4850 incr i
4851 } else {
4855 }
4856 }
4858 }
4860 proc initlayout {} {
4861 global rowidlist rowisopt rowfinal displayorder parentlist
4862 global numcommits canvxmax canv
4863 global nextcolor
4864 global colormap rowtextx
4866 set numcommits 0
4867 set displayorder {}
4868 set parentlist {}
4869 set nextcolor 0
4870 set rowidlist {}
4871 set rowisopt {}
4872 set rowfinal {}
4874 catch {unset colormap}
4875 catch {unset rowtextx}
4876 setcanvscroll
4877 }
4879 proc setcanvscroll {} {
4880 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4881 global lastscrollset lastscrollrows
4887 set lastscrollset [clock clicks -milliseconds]
4889 }
4891 proc visiblerows {} {
4892 global canv numcommits linespc
4900 set r0 0
4901 }
4906 }
4908 }
4910 proc layoutmore {} {
4911 global commitidx viewcomplete curview
4912 global numcommits pending_select curview
4913 global lastscrollset lastscrollrows
4917 setcanvscroll
4918 }
4919 if {[info exists pending_select] &&
4921 update
4923 }
4924 drawvisible
4925 }
4927 # With path limiting, we mightn't get the actual HEAD commit,
4928 # so ask git rev-list what is the first ancestor of HEAD that
4929 # touches a file in the path limit.
4930 proc get_viewmainhead {view} {
4931 global viewmainheadid vfilelimit viewinstances mainheadid
4933 catch {
4941 }
4942 }
4945 proc getviewhead {fd inst view} {
4946 global viewmainheadid commfd curview viewinstances showlocalchanges
4948 set id {}
4951 return 1
4952 }
4955 }
4962 }
4964 doshowlocalchanges
4965 }
4966 return 0
4967 }
4969 proc doshowlocalchanges {} {
4970 global curview viewmainheadid
4974 dodiffindex
4975 } else {
4977 }
4978 }
4980 proc dohidelocalchanges {} {
4981 global nullid nullid2 lserial curview
4985 }
4988 }
4989 incr lserial
4990 }
4992 # spawn off a process to do git diff-index --cached HEAD
4993 proc dodiffindex {} {
4994 global lserial showlocalchanges vfilelimit curview
4995 global isworktree
4998 incr lserial
4999 set cmd "|git diff-index --cached HEAD"
5002 }
5007 }
5009 proc readdiffindex {fd serial inst} {
5010 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5011 global vfilelimit
5013 set isdiff 1
5016 return 1
5017 }
5018 set isdiff 0
5019 }
5020 # we only need to see one line and we don't really care what it says...
5024 return 0
5025 }
5027 # now see if there are any local changes not checked in to the index
5028 set cmd "|git diff-files"
5031 }
5038 # add the line for the changes in the index to the graph
5039 set hl [mc "Local changes checked in to index but not committed"]
5044 }
5049 }
5051 }
5052 return 0
5053 }
5055 proc readdifffiles {fd serial inst} {
5056 global viewmainheadid nullid nullid2 curview
5057 global commitinfo commitdata lserial
5059 set isdiff 1
5062 return 1
5063 }
5064 set isdiff 0
5065 }
5066 # we only need to see one line and we don't really care what it says...
5070 return 0
5071 }
5074 # add the line for the local diff to the graph
5075 set hl [mc "Local uncommitted changes, not checked in to index"]
5080 } else {
5082 }
5086 }
5087 return 0
5088 }
5090 proc nextuse {id row} {
5091 global curview children
5096 return -1
5097 }
5100 }
5101 }
5102 }
5105 }
5106 return -1
5107 }
5109 proc prevuse {id row} {
5110 global curview children
5112 set ret -1
5118 }
5119 }
5120 }
5122 }
5124 proc make_idlist {row} {
5125 global displayorder parentlist uparrowlen downarrowlen mingaplen
5126 global commitidx curview children
5130 set r 0
5131 }
5134 set ra 0
5135 }
5139 }
5141 set ids {}
5150 }
5151 }
5152 }
5160 }
5161 }
5162 }
5170 }
5171 }
5172 incr r
5178 }
5179 }
5180 }
5181 set idlist {}
5184 }
5186 }
5188 proc rowsequal {a b} {
5191 }
5194 }
5196 }
5198 proc makeupline {id row rend col} {
5199 global rowidlist uparrowlen downarrowlen mingaplen
5205 }
5208 }
5215 }
5216 }
5217 }
5219 proc layoutrows {row endrow} {
5220 global rowidlist rowisopt rowfinal displayorder
5221 global uparrowlen downarrowlen maxwidth mingaplen
5222 global children parentlist
5223 global commitidx viewcomplete curview
5226 set idlist {}
5232 }
5233 }
5235 }
5240 set final 1
5241 } else {
5249 # if not the first child, we have to insert a line going up
5252 }
5253 }
5254 }
5264 }
5265 }
5266 }
5273 }
5274 }
5284 }
5285 }
5293 }
5294 }
5295 }
5296 }
5297 }
5301 set final 0
5302 }
5306 lappend rowisopt 0
5312 }
5314 } else {
5321 }
5322 }
5324 }
5326 proc changedrow {row} {
5327 global displayorder iddrawn rowisopt need_redisplay
5336 }
5337 }
5338 }
5341 set need_redisplay 1
5342 }
5343 }
5345 proc insert_pad {row col npad} {
5346 global rowidlist
5355 }
5358 }
5360 proc optimize_rows {row col endrow} {
5361 global rowidlist rowisopt displayorder curview children
5364 set row 1
5365 }
5368 set haspad 0
5377 } else {
5378 set pprevidlist {}
5379 }
5380 set x0 -1
5381 set xm -1
5386 set haspad 1
5387 continue
5388 }
5392 set isarrow 0
5393 set z0 {}
5398 }
5399 }
5404 set isarrow 1
5405 }
5406 }
5409 set isarrow 1
5410 }
5411 # Looking at lines from this row to the previous row,
5412 # make them go straight up if they end in an arrow on
5413 # the previous row; otherwise make them go straight up
5414 # or at 45 degrees.
5416 # Line currently goes left too much;
5417 # insert pads in the previous row, then optimize it
5422 }
5430 }
5432 # Line currently goes right too much;
5433 # insert pads in this line
5439 set haspad 1
5440 }
5447 }
5448 }
5449 # avoid lines jigging left then immediately right
5452 incr x0
5455 }
5456 }
5458 # Find the first column that doesn't have a line going right
5464 # check if this is the link to the first child
5467 # it is, work out offset to child
5469 }
5470 }
5472 }
5473 # Insert a pad at that column as long as it has a line and
5474 # isn't the last column
5479 }
5480 }
5481 }
5482 }
5484 proc xc {row col} {
5485 global canvx0 linespc
5487 }
5489 proc yc {row} {
5490 global canvy0 linespc
5492 }
5494 proc linewidth {id} {
5495 global thickerline lthickness
5500 }
5502 }
5504 proc rowranges {id} {
5505 global curview children uparrowlen downarrowlen
5506 global rowidlist
5510 return {}
5511 }
5512 set ret {}
5517 if {![info exists prev]} {
5519 } else {
5521 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5522 }
5523 # see if the line extends the whole way from prevrow to row
5527 # it doesn't, see where it ends
5532 } else {
5535 incr r -1
5536 }
5538 # see where it starts up again
5543 } else {
5546 incr r
5547 }
5549 }
5550 }
5553 }
5556 }
5558 }
5560 proc drawlineseg {id row endrow arrowlow} {
5561 global rowidlist displayorder iddrawn linesegs
5562 global canv colormap linespc curview maxlinelen parentlist
5566 set arrowhigh 1
5567 while {1} {
5570 incr le -1
5571 break
5572 }
5576 set arrowhigh 0
5577 break
5578 }
5583 set arrowhigh 0
5584 }
5585 break
5586 }
5587 incr le
5588 }
5591 }
5593 set lines {}
5594 set i 0
5595 set joinhigh 0
5602 set joinhigh 1
5603 }
5604 break
5605 }
5606 incr i
5607 }
5608 }
5609 set joinlow 0
5614 set joinlow 1
5615 }
5616 }
5629 }
5630 } else {
5632 }
5640 set arrowlow 0
5641 }
5642 }
5650 }
5652 }
5655 # join parent line to first child
5666 } else {
5668 }
5676 }
5678 }
5680 } else {
5684 }
5692 } else {
5696 }
5698 }
5699 } else {
5705 }
5709 } else {
5710 # coalesce two pieces
5715 }
5719 }
5720 }
5724 }
5726 proc drawparentlinks {id row} {
5727 global rowidlist canv colormap curview parentlist
5728 global idpos linespc
5741 # rmx = right-most X coord used
5742 set rmx 0
5747 continue
5748 }
5752 }
5755 # drawlineseg will do this one for us
5756 continue
5757 }
5759 # should handle duplicated parents here...
5762 # if attaching to a vertical segment, draw a smaller
5763 # slant for visual distinctness
5767 } else {
5769 }
5771 # segment slants towards us already
5773 } else {
5778 }
5780 }
5781 } else {
5783 }
5788 }
5792 }
5793 }
5795 proc drawlines {id} {
5796 global canv
5799 }
5801 proc drawcmittext {id row col} {
5802 global linespc canv canv2 canv3 fgcolor curview
5803 global cmitlisted commitinfo rowidlist parentlist
5804 global rowtextx idpos idtags idheads idotherrefs
5805 global linehtag linentag linedtag selectedline
5806 global canvxmax boldids boldnameids fgcolor markedid
5807 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5809 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5812 set ofill red
5814 set ofill green
5816 set ofill yellow
5817 } else {
5819 }
5828 # triangle pointing left for left-side commits
5834 } else {
5835 # triangle pointing right for right-side commits
5841 }
5853 }
5854 }
5855 }
5862 }
5867 set font mainfont
5868 set nfont mainfont
5872 set font mainfontbold
5875 set nfont mainfontbold
5876 }
5877 }
5887 }
5890 }
5894 setcanvscroll
5895 }
5896 }
5898 proc drawcmitrow {row} {
5899 global displayorder rowidlist nrows_drawn
5900 global iddrawn markingmatches
5901 global commitinfo numcommits
5902 global filehighlight fhighlights findpattern nhighlights
5903 global hlview vhighlights
5904 global highlight_related rhighlights
5911 }
5914 }
5917 }
5920 }
5925 return
5926 }
5929 }
5933 incr nrows_drawn
5934 }
5937 }
5938 }
5940 proc drawcommits {row {endrow {}}} {
5941 global numcommits iddrawn displayorder curview need_redisplay
5942 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5945 set row 0
5946 }
5949 }
5952 }
5956 set rl1 0
5957 }
5960 set ro1 0
5961 }
5965 }
5970 }
5972 }
5973 }
5976 }
5979 clear_display
5980 }
5982 # make the lines join to already-drawn rows either side
5986 }
5991 }
6006 # see if this is the first child of any of its parents
6009 # make this line extend up to the child
6011 }
6012 }
6013 } else {
6015 }
6016 }
6017 }
6018 }
6020 proc undolayout {row} {
6021 global uparrowlen mingaplen downarrowlen
6022 global rowidlist rowisopt rowfinal need_redisplay
6026 set r 0
6027 }
6029 incr r -1
6033 set need_redisplay 1
6034 run drawvisible
6035 }
6036 }
6038 proc drawvisible {} {
6039 global canv linespc curview vrowmod selectedline targetrow targetid
6040 global need_redisplay cscroll numcommits
6050 if {[info exists targetid]} {
6054 # Fix up the scrollregion and change the scrolling position
6055 # now that our target row has moved.
6058 setcanvscroll
6066 set need_redisplay 1
6067 }
6068 } else {
6069 unset targetid
6070 }
6071 }
6077 }
6081 } elseif {[info exists targetid]} {
6083 }
6084 if {[info exists targetrow]} {
6087 }
6089 }
6091 }
6093 proc clear_display {} {
6094 global iddrawn linesegs need_redisplay nrows_drawn
6095 global vhighlights fhighlights nhighlights rhighlights
6096 global linehtag linentag linedtag boldids boldnameids
6098 allcanvs delete all
6099 catch {unset iddrawn}
6100 catch {unset linesegs}
6101 catch {unset linehtag}
6102 catch {unset linentag}
6103 catch {unset linedtag}
6104 set boldids {}
6105 set boldnameids {}
6106 catch {unset vhighlights}
6107 catch {unset fhighlights}
6108 catch {unset nhighlights}
6109 catch {unset rhighlights}
6110 set need_redisplay 0
6111 set nrows_drawn 0
6112 }
6114 proc findcrossings {id} {
6115 global rowidlist parentlist numcommits displayorder
6117 set cross {}
6118 set ccross {}
6122 }
6141 }
6142 }
6143 }
6144 }
6145 }
6147 }
6149 proc assigncolor {id} {
6150 global colormap colors nextcolor
6151 global parents children children curview
6157 } else {
6158 set kids {}
6159 }
6165 return
6166 }
6167 }
6168 set badcolors {}
6169 set origbad {}
6172 # delimiter between corner crossings and other crossings
6175 }
6179 }
6180 }
6183 }
6190 }
6195 }
6196 }
6197 }
6200 }
6201 }
6205 set nextcolor 0
6206 }
6208 }
6210 }
6212 proc bindline {t id} {
6213 global canv
6219 }
6221 proc drawtags {id x xt y1} {
6222 global idtags idheads idotherrefs mainhead
6223 global linespc lthickness
6224 global canv rowtextx curview fgcolor bgcolor ctxbut
6226 set marks {}
6227 set ntags 0
6228 set nheads 0
6232 }
6236 }
6239 }
6242 }
6247 set xvals {}
6248 set wvals {}
6249 set i -1
6251 incr i
6254 } else {
6256 }
6260 }
6267 set font mainfont
6268 if {[incr ntags -1] >= 0} {
6269 # draw a tag
6275 } else {
6276 # draw a head or other ref
6277 if {[incr nheads -1] >= 0} {
6278 set col green
6280 set font mainfontbold
6281 }
6282 } else {
6283 set col "#ddddff"
6284 }
6295 }
6296 }
6303 }
6304 }
6306 }
6308 proc xcoord {i level ln} {
6309 global canvx0 xspc1 xspc2
6316 }
6318 }
6320 proc show_status {msg} {
6321 global canv fgcolor
6323 clear_display
6326 }
6328 # Don't change the text pane cursor if it is currently the hand cursor,
6329 # showing that we are over a sha1 ID link.
6330 proc settextcursor {c} {
6331 global ctext curtextcursor
6335 }
6337 }
6339 proc nowbusy {what {name {}}} {
6340 global isbusy busyname statusw
6342 if {[array names isbusy] eq {}} {
6343 . config -cursor watch
6344 settextcursor watch
6345 }
6350 }
6351 }
6353 proc notbusy {what} {
6354 global isbusy maincursor textcursor busyname statusw
6356 catch {
6361 }
6362 }
6363 if {[array names isbusy] eq {}} {
6366 }
6367 }
6369 proc findmatches {f} {
6370 global findtype findstring
6373 } else {
6378 }
6379 set matches {}
6380 set i 0
6385 }
6386 }
6388 }
6390 proc dofind {{dirn 1} {wrap 1}} {
6391 global findstring findstartline findcurline selectedline numcommits
6392 global gdttype filehighlight fh_serial find_dirn findallowwrap
6394 if {[info exists find_dirn]} {
6396 stopfinding
6397 }
6398 focus .
6402 } else {
6404 }
6406 nowbusy finding [mc "Searching"]
6410 }
6413 run findmore
6414 }
6416 proc stopfinding {} {
6417 global find_dirn findcurline fprogcoord
6419 if {[info exists find_dirn]} {
6420 unset find_dirn
6421 unset findcurline
6422 notbusy finding
6423 set fprogcoord 0
6424 adjustprogress
6425 }
6426 stopblaming
6427 }
6429 proc findmore {} {
6430 global commitdata commitinfo numcommits findpattern findloc
6431 global findstartline findcurline findallowwrap
6432 global find_dirn gdttype fhighlights fprogcoord
6433 global curview varcorder vrownum varccommits vrowmod
6435 if {![info exists find_dirn]} {
6436 return 0
6437 }
6438 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6440 set moretodo 0
6442 incr l
6444 set l 0
6445 }
6448 } else {
6451 }
6452 } else {
6455 }
6456 incr l -1
6459 } else {
6460 set lim -1
6462 }
6463 }
6466 set n 500
6467 set moretodo 1
6468 }
6471 }
6472 set found 0
6473 set domore 1
6487 }
6489 # shouldn't happen unless git log doesn't give all the commits...
6492 continue
6493 }
6496 }
6501 set found 1
6502 break
6503 }
6504 }
6506 }
6507 } else {
6515 }
6520 }
6523 break
6524 }
6527 set domore 0
6529 }
6530 }
6531 }
6532 }
6534 unset findcurline
6535 unset find_dirn
6536 notbusy finding
6537 set fprogcoord 0
6538 adjustprogress
6541 } else {
6542 bell
6543 }
6544 return 0
6545 }
6547 flushhighlights
6548 } else {
6550 }
6554 }
6556 adjustprogress
6558 }
6560 proc findselectline {l} {
6561 global findloc commentend ctext findcurline markingmatches gdttype
6568 # highlight the matches in the comments
6575 }
6576 }
6577 drawvisible
6578 }
6580 # mark the bits of a headline or author that match a find string
6581 proc markmatches {canv l str tag matches font row} {
6582 global selectedline
6600 }
6601 }
6602 }
6604 proc unmarkmatches {} {
6605 global markingmatches
6607 allcanvs delete matches
6608 set markingmatches 0
6609 stopfinding
6610 }
6612 proc selcanvline {w x y} {
6613 global canv canvy0 ctext linespc
6614 global rowtextx
6621 set l 0
6622 }
6627 }
6628 unmarkmatches
6630 }
6632 proc commit_descriptor {p} {
6633 global commitinfo
6636 }
6637 set l "..."
6640 }
6642 }
6644 # append some text to the ctext widget, and make any SHA1 ID
6645 # that we know about be a clickable link.
6646 proc appendwithlinks {text tags} {
6647 global ctext linknum curview
6656 incr e
6660 incr linknum
6661 }
6662 }
6664 proc setlink {id lk} {
6665 global curview ctext pendinglinks
6667 set known 0
6672 set known 1
6674 }
6675 } else {
6677 }
6683 } else {
6686 }
6687 }
6689 proc appendshortlink {id {pre {}} {post {}}} {
6690 global ctext linknum
6697 incr linknum
6698 }
6700 proc makelink {id} {
6701 global pendinglinks
6706 }
6708 }
6710 proc linkcursor {w inc} {
6711 global linkentercount curtextcursor
6715 } else {
6718 set linkentercount 0
6719 }
6720 }
6721 }
6723 proc viewnextline {dir} {
6724 global canv linespc
6732 set newtop 0
6735 }
6737 }
6739 # add a list of tag or branch names at position pos
6740 # returns the number of names inserted
6741 proc appendrefs {pos ids var} {
6745 return 0
6746 }
6749 set tags {}
6753 }
6754 }
6757 } else {
6759 set sep {}
6763 incr linknum
6768 set sep ", "
6769 }
6770 }
6773 }
6775 # called when we have finished computing the nearby tags
6776 proc dispneartags {delay} {
6777 global selectedline currentid showneartags tagphase
6780 after cancel dispnexttag
6782 after 200 dispnexttag
6783 set tagphase -1
6784 } else {
6785 after idle dispnexttag
6786 set tagphase 0
6787 }
6788 }
6790 proc dispnexttag {} {
6791 global selectedline currentid showneartags tagphase ctext
6795 0 {
6799 }
6800 }
6801 1 {
6805 }
6806 }
6807 2 {
6812 # turn "Branch" into "Branches"
6816 }
6817 }
6818 }
6819 }
6820 if {[incr tagphase] <= 2} {
6821 after idle dispnexttag
6822 }
6823 }
6825 proc make_secsel {id} {
6826 global linehtag linentag linedtag canv canv2 canv3
6841 }
6843 proc make_idmark {id} {
6844 global linehtag canv fgcolor
6851 }
6853 proc selectline {l isnew {desired_loc {}}} {
6854 global canv ctext commitinfo selectedline
6855 global canvy0 linespc parents children curview
6856 global currentid sha1entry
6857 global commentend idtags linknum
6858 global mergemax numcommits pending_select
6859 global cmitmode showneartags allcommits
6860 global targetrow targetid lastscrollrows
6861 global autoselect jump_to_here
6863 catch {unset pending_select}
6865 normalline
6866 unsel_reflist
6867 stopfinding
6875 setcanvscroll
6876 }
6890 } else {
6894 }
6895 }
6899 } else {
6903 }
6904 }
6905 }
6908 set newtop 0
6909 }
6911 drawvisible
6912 }
6918 }
6924 }
6928 clear_ctext
6929 set linknum 0
6932 }
6942 }
6944 }
6946 set headers {}
6949 set np 0
6952 set tag mmax
6953 } else {
6955 }
6958 incr np
6959 }
6960 } else {
6963 }
6964 }
6968 }
6970 # make anything that looks like a SHA1 ID be a clickable link
6973 if {![info exists allcommits]} {
6974 getallcommits
6975 }
6986 dispneartags 1
6987 }
6992 }
7000 init_flist [mc "Comments"]
7005 } else {
7007 }
7008 }
7010 proc selfirstline {} {
7011 unmarkmatches
7012 selectline 0 1
7013 }
7015 proc sellastline {} {
7016 global numcommits
7017 unmarkmatches
7020 }
7022 proc selnextline {dir} {
7023 global selectedline
7024 focus .
7027 unmarkmatches
7029 }
7031 proc selnextpage {dir} {
7032 global canv linespc selectedline numcommits
7036 set lpp 1
7037 }
7039 drawvisible
7043 set l 0
7046 }
7047 unmarkmatches
7049 }
7051 proc unselectline {} {
7052 global selectedline currentid
7054 set selectedline {}
7055 catch {unset currentid}
7056 allcanvs delete secsel
7057 rhighlight_none
7058 }
7060 proc reselectline {} {
7061 global selectedline
7065 }
7066 }
7068 proc addtohistory {cmd {saveproc {}}} {
7069 global history historyindex curview
7071 unset_posvars
7072 save_position
7076 return
7077 }
7081 } else {
7083 }
7084 incr historyindex
7086 .tf.bar.leftbut conf -state normal
7087 } else {
7088 .tf.bar.leftbut conf -state disabled
7089 }
7090 .tf.bar.rightbut conf -state disabled
7091 }
7093 # save the scrolling position of the diff display pane
7094 proc save_position {} {
7095 global historyindex history
7102 }
7103 }
7105 proc unset_posvars {} {
7106 global last_posvars
7108 if {[info exists last_posvars]} {
7112 }
7113 unset last_posvars
7114 }
7115 }
7117 proc godo {elt} {
7118 global curview last_posvars
7125 }
7126 unset_posvars
7130 }
7133 }
7135 proc goback {} {
7136 global history historyindex
7137 focus .
7140 save_position
7141 incr historyindex -1
7143 .tf.bar.rightbut conf -state normal
7144 }
7146 .tf.bar.leftbut conf -state disabled
7147 }
7148 }
7150 proc goforw {} {
7151 global history historyindex
7152 focus .
7155 save_position
7157 incr historyindex
7159 .tf.bar.leftbut conf -state normal
7160 }
7162 .tf.bar.rightbut conf -state disabled
7163 }
7164 }
7166 proc gettree {id} {
7167 global treefilelist treeidlist diffids diffmergeid treepending
7168 global nullid nullid2
7171 catch {unset diffmergeid}
7173 if {![info exists treepending]} {
7175 set cmd [list | git ls-files]
7177 set cmd [list | git ls-files --stage -t]
7178 } else {
7180 }
7182 return
7183 }
7189 }
7190 } else {
7192 }
7193 }
7195 proc gettreeline {gtf id} {
7196 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7198 set nl 0
7202 } else {
7210 }
7213 }
7216 }
7219 }
7221 unset treepending
7223 if {![info exists diffmergeid]} {
7225 }
7228 } else {
7230 }
7231 return 0
7232 }
7234 proc showfile {f} {
7235 global treefilelist treeidlist diffids nullid nullid2
7236 global ctext_file_names ctext_file_lines
7237 global ctext commentend
7242 return
7243 }
7247 return
7248 }
7249 } else {
7253 return
7254 }
7255 }
7266 settabs 0
7267 }
7269 proc getblobline {bf id} {
7270 global diffids cmitmode ctext
7274 return 0
7275 }
7277 set nl 0
7280 }
7282 global jump_to_here ctext_file_names commentend
7284 # delete last newline
7292 }
7293 return 0
7294 }
7297 }
7299 proc mark_ctext_line {lnum} {
7300 global ctext markbgcolor
7306 }
7308 proc mergediff {id} {
7309 global diffmergeid
7310 global diffids treediffs
7311 global parents curview
7319 }
7321 proc startdiff {ids} {
7322 global treediffs diffids treepending diffmergeid nullid nullid2
7324 settabs 1
7326 catch {unset diffmergeid}
7330 if {![info exists treepending]} {
7332 }
7333 } else {
7335 }
7336 }
7338 proc path_filter {filter name} {
7343 return 1
7344 }
7345 } else {
7349 return 1
7350 }
7351 }
7352 }
7353 return 0
7354 }
7356 proc addtocflist {ids} {
7357 global treediffs
7361 }
7363 proc diffcmd {ids flags} {
7364 global nullid nullid2
7370 # comparing working directory with some specific revision
7374 } else {
7376 }
7377 } else {
7378 # comparing working directory with index
7381 lappend cmd -R
7382 }
7383 }
7387 # comparing index with specific revision
7390 } else {
7392 }
7393 } else {
7394 # comparing index with HEAD
7395 lappend cmd HEAD
7396 }
7397 } else {
7399 }
7401 }
7403 proc gettreediffs {ids} {
7404 global treediff treepending
7409 set treediff {}
7412 }
7414 proc gettreediffline {gdtf ids} {
7415 global treediff treediffs treepending diffids diffmergeid
7416 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7418 set nr 0
7419 set sublist {}
7420 set max 1000
7422 # cache_gitattr is slow, and even slower on win32 where we
7423 # have to invoke it for only about 30 paths at a time
7424 set max 500
7425 if {[tk windowingsystem] == "win32"} {
7426 set max 120
7427 }
7428 }
7435 }
7440 }
7441 }
7442 }
7445 }
7448 }
7451 set flist {}
7455 }
7456 }
7458 } else {
7460 }
7461 unset treepending
7465 if {![info exists diffmergeid]} {
7467 }
7468 } else {
7470 }
7471 return 0
7472 }
7474 # empty string or positive integer
7475 proc diffcontextvalidate {v} {
7477 }
7479 proc diffcontextchange {n1 n2 op} {
7480 global diffcontextstring diffcontext
7485 reselectline
7486 }
7487 }
7488 }
7490 proc changeignorespace {} {
7491 reselectline
7492 }
7494 proc getblobdiffs {ids} {
7495 global blobdifffd diffids env
7496 global diffinhdr treediffs
7497 global diffcontext
7498 global ignorespace
7499 global limitdiffs vfilelimit curview
7500 global diffencoding targetline diffnparents
7501 global git_version
7503 set textconv {}
7505 set textconv "--textconv"
7506 }
7507 set submodule {}
7509 set submodule "--submodule"
7510 }
7513 append cmd " -w"
7514 }
7517 }
7520 return
7521 }
7522 set targetline {}
7523 set diffnparents 0
7524 set diffinhdr 0
7525 set diffencoding [get_path_encoding {}]
7529 }
7531 proc savecmitpos {} {
7532 global ctext cmitmode
7535 return {}
7536 }
7538 }
7540 proc savectextpos {} {
7541 global ctext
7544 }
7546 proc maybe_scroll_ctext {ateof} {
7547 global ctext target_scrollpos
7549 if {![info exists target_scrollpos]} return
7552 / [font metrics textfont -linespace]}]
7554 }
7556 unset target_scrollpos
7557 }
7559 proc setinlist {var i val} {
7564 }
7567 } else {
7569 }
7570 }
7572 proc makediffhdr {fname ids} {
7573 global ctext curdiffstart treediffs diffencoding
7574 global ctext_file_names jump_to_here targetline diffline
7581 }
7586 set targetline {}
7589 }
7590 set diffline 0
7591 }
7593 proc getblobdiffline {bdf ids} {
7594 global diffids blobdifffd ctext curdiffstart
7595 global diffnexthead diffnextnote difffilestart
7596 global ctext_file_names ctext_file_lines
7597 global diffinhdr treediffs mergemax diffnparents
7598 global diffencoding jump_to_here targetline diffline
7600 set nr 0
7605 return 0
7606 }
7611 continue
7612 }
7613 # start of a new file
7614 set diffinhdr 1
7617 lappend ctext_file_names ""
7622 # start of a new file in a merge diff
7627 }
7629 } else {
7631 # If the name hasn't changed the length will be odd,
7632 # the middle char will be a space, and the two bits either
7633 # side will be a/name and b/name, or "a/name" and "b/name".
7634 # If the name has changed we'll get "rename from" and
7635 # "rename to" or "copy from" and "copy to" lines following
7636 # this, and we'll use them to get the filenames.
7637 # This complexity is necessary because spaces in the
7638 # filename(s) don't get escaped.
7644 continue
7645 }
7646 # unescape if quoted and chop off the a/ from the front
7649 } else {
7651 }
7652 }
7665 }
7673 }
7675 set diffinhdr 0
7678 # start of a new submodule
7681 }
7683 lappend ctext_file_names ""
7697 }
7702 }
7708 }
7711 # do nothing
7712 continue
7714 set diffinhdr 0
7715 continue
7716 }
7719 } else {
7720 set line [string map {\x1A ^Z} \
7722 # parse the prefix - one ' ', '-' or '+' for each parent
7726 # prefix only has " ", "-" and "+" in it: normal diff line
7731 set num "max"
7732 }
7734 } else {
7735 set tags {}
7737 # added line
7743 set num "max"
7744 }
7746 }
7747 }
7748 }
7752 set targetline {}
7753 } else {
7754 incr diffline
7755 }
7756 }
7758 }
7759 } else {
7760 # "\ No newline at end of file",
7761 # or something else we don't recognize
7763 }
7764 }
7765 }
7766 if {[info exists seehere]} {
7768 }
7773 return 0
7774 }
7776 }
7778 proc changediffdisp {} {
7779 global ctext diffelide
7783 }
7785 proc highlightfile {loc cline} {
7786 global ctext cflist cflist_top
7793 }
7795 proc prevfile {} {
7796 global difffilestart ctext cmitmode
7799 set prev 0.0
7800 set prevline 1
7805 return
7806 }
7808 incr prevline
7809 }
7811 }
7813 proc nextfile {} {
7814 global difffilestart ctext cmitmode
7818 set line 1
7820 incr line
7823 return
7824 }
7825 }
7826 }
7828 proc clear_ctext {{first 1.0}} {
7829 global ctext smarktop smarkbot
7830 global ctext_file_names ctext_file_lines
7831 global pendinglinks
7836 }
7839 }
7842 catch {unset pendinglinks}
7843 }
7844 set ctext_file_names {}
7845 set ctext_file_lines {}
7846 }
7848 proc settabs {{firstab {}}} {
7849 global firsttabstop tabstop ctext have_tk85
7853 }
7854 set w [font measure textfont "0"]
7860 } else {
7862 }
7863 }
7865 proc incrsearch {name ix op} {
7866 global ctext searchstring searchdirn
7870 # no anchor set, use start of selection, or of visible area
7876 } else {
7878 }
7879 }
7884 }
7885 searchmarkvisible 1
7886 }
7887 }
7889 proc dosearch {} {
7890 global sstring ctext searchstring searchdirn
7894 set searchdirn -forwards
7900 set start "@0,0"
7901 }
7905 bell
7906 return
7907 }
7912 }
7913 }
7915 proc dosearchback {} {
7916 global sstring ctext searchstring searchdirn
7920 set searchdirn -backwards
7927 }
7931 bell
7932 return
7933 }
7938 }
7939 }
7941 proc searchmark {first last} {
7942 global ctext searchstring
7945 while {1} {
7950 }
7951 }
7953 proc searchmarkvisible {doall} {
7954 global ctext smarktop smarkbot
7959 # no overlap with previous
7963 } else {
7967 }
7971 }
7972 }
7973 }
7975 proc scrolltext {f0 f1} {
7976 global searchstring
7980 searchmarkvisible 0
7981 }
7982 }
7984 proc setcoords {} {
7985 global linespc charspc canvx0 canvy0
7986 global xspc1 xspc2 lthickness
7988 set linespc [font metrics mainfont -linespace]
7989 set charspc [font measure mainfont "m"]
7995 }
7997 proc redisplay {} {
7998 global canv
7999 global selectedline
8004 clear_display
8005 setcanvscroll
8007 drawvisible
8011 }
8012 }
8014 proc parsefont {f n} {
8015 global fontattr
8020 set s 10
8023 }
8029 "normal" -
8031 "roman" -
8033 }
8034 }
8035 }
8037 proc fontflags {f {isbold 0}} {
8038 global fontattr
8043 }
8045 proc fontname {f} {
8046 global fontattr
8050 lappend n "bold"
8051 }
8053 lappend n "italic"
8054 }
8056 }
8058 proc incrfont {inc} {
8059 global mainfont textfont ctext canv cflist showrefstop
8060 global stopped entries fontattr
8062 unmarkmatches
8066 set s 1
8067 }
8071 set mainfont [fontname mainfont]
8075 set s 1
8076 }
8080 set textfont [fontname textfont]
8081 setcoords
8082 settabs
8083 redisplay
8084 }
8086 proc clearsha1 {} {
8087 global sha1entry sha1string
8090 }
8091 }
8093 proc sha1change {n1 n2 op} {
8094 global sha1string currentid sha1but
8097 set state disabled
8098 } else {
8099 set state normal
8100 }
8104 } else {
8106 }
8107 }
8109 proc gotocommit {} {
8110 global sha1string tagids headids curview varcid
8118 } else {
8125 return
8126 }
8128 }
8129 } else {
8132 return
8133 }
8134 }
8135 }
8138 return
8139 }
8142 } else {
8144 }
8146 }
8148 proc lineenter {x y id} {
8149 global hoverx hovery hoverid hovertimer
8150 global commitinfo canv
8156 if {[info exists hovertimer]} {
8158 }
8159 set hovertimer [after 500 linehover]
8161 }
8163 proc linemotion {x y id} {
8164 global hoverx hovery hoverid hovertimer
8169 if {[info exists hovertimer]} {
8171 }
8172 set hovertimer [after 500 linehover]
8173 }
8174 }
8176 proc lineleave {id} {
8177 global hoverid hovertimer canv
8181 if {[info exists hovertimer]} {
8183 unset hovertimer
8184 }
8185 unset hoverid
8186 }
8187 }
8189 proc linehover {} {
8190 global hoverx hovery hoverid hovertimer
8191 global canv linespc lthickness
8192 global commitinfo
8205 -fill \#ffff80 -outline black -width 1 -tags hover]
8208 -font mainfont]
8210 }
8212 proc clickisonarrow {id y} {
8213 global lthickness
8222 }
8223 }
8224 return {}
8225 }
8227 proc arrowjump {id n y} {
8228 global canv
8230 # 1 <-> 2, 3 <-> 4, etc...
8240 set yfrac 0
8241 }
8243 }
8245 proc lineclick {x y id isnew} {
8246 global ctext commitinfo children canv thickerline curview
8249 unmarkmatches
8250 unselectline
8251 normalline
8253 # draw this line thicker than normal
8261 }
8265 return
8266 }
8270 }
8271 # fill the details pane with info about this line
8273 clear_ctext
8274 settabs 0
8286 set i 0
8288 incr i
8298 }
8299 }
8300 maybe_scroll_ctext 1
8302 init_flist {}
8303 }
8305 proc normalline {} {
8306 global thickerline
8307 if {[info exists thickerline]} {
8309 unset thickerline
8311 }
8312 }
8314 proc selbyid {id {isnew 1}} {
8315 global curview
8318 }
8319 }
8321 proc mstime {} {
8322 global startmstime
8323 if {![info exists startmstime]} {
8324 set startmstime [clock clicks -milliseconds]
8325 }
8327 }
8329 proc rowmenu {x y id} {
8330 global rowctxmenu selectedline rowmenuid curview
8331 global nullid nullid2 fakerowmenu mainhead markedid
8333 stopfinding
8336 set state disabled
8337 } else {
8338 set state normal
8339 }
8344 } else {
8346 }
8351 } else {
8355 }
8356 } else {
8358 }
8363 }
8365 proc markhere {} {
8366 global rowmenuid markedid canv
8370 }
8372 proc gotomark {} {
8373 global markedid
8375 if {[info exists markedid]} {
8377 }
8378 }
8380 proc replace_by_kids {l r} {
8381 global curview children
8387 }
8389 }
8391 proc find_common_desc {} {
8392 global markedid rowmenuid curview children
8394 if {![info exists markedid]} return
8397 #set t1 [clock clicks -milliseconds]
8400 while 1 {
8406 break
8407 }
8410 } else {
8412 }
8413 }
8414 #set t2 [clock clicks -milliseconds]
8416 }
8418 proc compare_commits {} {
8419 global markedid rowmenuid curview children
8421 if {![info exists markedid]} return
8425 }
8427 proc getpatchid {id} {
8428 global patchids
8432 # trim off the initial "|"
8434 if {[catch {
8437 }]} {
8439 }
8440 }
8442 }
8444 proc do_cmp_commits {a b} {
8445 global ctext curview parents children patchids commitinfo
8448 clear_ctext
8449 init_flist {}
8451 set skipa 0
8452 set skipb 0
8455 set skipa 1
8456 } else {
8458 }
8461 set skipb 1
8462 } else {
8464 }
8470 [mc " - stopping\n"]
8471 break
8472 }
8475 [mc " - stopping\n"]
8476 break
8477 }
8482 } else {
8486 }
8487 set skipa 1
8488 set skipb 1
8489 } else {
8496 update
8498 return
8499 }
8500 }
8507 break
8508 }
8510 }
8516 break
8517 }
8519 }
8520 }
8522 }
8524 proc diffcommits {a b} {
8525 global diffcontext diffids blobdifffd diffinhdr
8527 set tmpdir [gitknewtmpdir]
8530 if {[catch {
8533 } err]} {
8535 return
8536 }
8537 if {[catch {
8539 } err]} {
8541 return
8542 }
8545 set diffinhdr 0
8547 }
8549 proc diffvssel {dirn} {
8550 global rowmenuid selectedline
8556 } else {
8559 }
8562 }
8564 proc doseldiff {oldid newid} {
8565 global ctext
8566 global commitinfo
8569 clear_ctext
8570 init_flist [mc "Top"]
8585 }
8587 proc mkpatch {} {
8588 global rowmenuid currentid commitinfo patchtop patchnum NS
8590 if {![info exists currentid]} return
8595 set top .patch
8625 incr patchnum
8637 }
8639 proc mkpatchrev {} {
8640 global patchtop
8646 foreach e [list fromsha1 fromhead tosha1 tohead] \
8652 }
8653 }
8655 proc mkpatchgo {} {
8656 global patchtop nullid nullid2
8662 # trim off the initial "|"
8667 }
8669 unset patchtop
8670 }
8672 proc mkpatchcan {} {
8673 global patchtop
8676 unset patchtop
8677 }
8679 proc mktag {} {
8680 global rowmenuid mktagtop commitinfo NS
8682 set top .maketag
8711 }
8713 proc domktag {} {
8714 global mktagtop env tagids idtags
8720 return 0
8721 }
8724 return 0
8725 }
8726 if {[catch {
8728 } err]} {
8730 return 0
8731 }
8737 dispneartags 0
8738 run refill_reflist
8739 return 1
8740 }
8742 proc redrawtags {id} {
8743 global canv linehtag idpos currentid curview cmitlisted markedid
8744 global canvxmax iddrawn circleitem mainheadid circlecolors
8750 set ofill yellow
8751 } else {
8753 }
8763 setcanvscroll
8764 }
8767 }
8770 }
8771 }
8773 proc mktagcan {} {
8774 global mktagtop
8777 unset mktagtop
8778 }
8780 proc mktaggo {} {
8781 if {![domktag]} return
8782 mktagcan
8783 }
8785 proc writecommit {} {
8786 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8788 set top .writecommit
8821 }
8823 proc wrcomgo {} {
8824 global wrcomtop
8831 }
8833 unset wrcomtop
8834 }
8836 proc wrcomcan {} {
8837 global wrcomtop
8840 unset wrcomtop
8841 }
8843 proc mkbranch {} {
8844 global rowmenuid mkbrtop NS
8846 set top .makebranch
8870 }
8872 proc mkbrgo {top} {
8873 global headids idheads
8877 set cmdargs {}
8878 set old_id {}
8881 return
8882 }
8884 if {![confirm_popup [mc \
8886 return
8887 }
8889 lappend cmdargs -f
8890 }
8893 nowbusy newbranch
8894 update
8895 if {[catch {
8897 } err]} {
8898 notbusy newbranch
8900 } else {
8901 notbusy newbranch
8907 } else {
8912 }
8913 dispneartags 0
8914 run refill_reflist
8915 }
8916 }
8918 proc exec_citool {tool_args {baseid {}}} {
8919 global commitinfo env
8921 set save_env [array get env GIT_AUTHOR_*]
8926 }
8929 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8935 }
8936 }
8940 array unset env GIT_AUTHOR_*
8942 }
8944 proc cherrypick {} {
8945 global rowmenuid curview
8946 global mainhead mainheadid
8948 set oldhead [exec git rev-parse HEAD]
8951 set ok [confirm_popup [mc "Commit %s is already\
8952 included in branch %s -- really re-apply it?" \
8955 }
8956 nowbusy cherrypick [mc "Cherry-picking"]
8957 update
8958 # Unfortunately git-cherry-pick writes stuff to stderr even when
8959 # no error occurs, and exec takes that as an indication of error...
8961 notbusy cherrypick
8962 if {[regexp -line \
8963 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8965 error_popup [mc "Cherry-pick failed because of local changes\
8966 to file '%s'.\nPlease commit, reset or stash\
8968 } elseif {[regexp -line \
8969 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8971 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8972 conflict.\nDo you wish to run git citool to\
8973 resolve it?"]]} {
8974 # Force citool to read MERGE_MSG
8975 file delete [file join [gitdir] "GITGUI_MSG"]
8977 }
8978 } else {
8980 }
8981 run updatecommits
8982 return
8983 }
8984 set newhead [exec git rev-parse HEAD]
8986 notbusy cherrypick
8987 error_popup [mc "No changes committed"]
8988 return
8989 }
8992 # XXX this isn't right if we have a path limit...
8997 }
9002 }
9003 notbusy cherrypick
9004 }
9006 proc resethead {} {
9007 global mainhead rowmenuid confirm_ok resettype NS
9009 set confirm_ok 0
9010 set w ".confirmreset"
9018 set resettype mixed
9020 -text [mc "Soft: Leave working tree and index untouched"]
9023 -text [mc "Mixed: Leave working tree untouched, reset index"]
9026 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9037 if {[catch {set fd [open \
9040 } else {
9041 dohidelocalchanges
9043 nowbusy reset [mc "Resetting"]
9045 }
9046 }
9048 proc readresetstat {fd} {
9049 global mainhead mainheadid showlocalchanges rprogcoord
9054 adjustprogress
9055 }
9056 return 1
9057 }
9058 set rprogcoord 0
9059 adjustprogress
9060 notbusy reset
9063 }
9065 set newhead [exec git rev-parse HEAD]
9072 }
9074 doshowlocalchanges
9075 }
9076 return 0
9077 }
9079 # context menu for a head
9080 proc headmenu {x y id head} {
9081 global headmenuid headmenuhead headctxmenu mainhead
9083 stopfinding
9086 set state normal
9088 set state disabled
9089 }
9091 set state disabled
9092 }
9096 }
9098 proc cobranch {} {
9099 global headmenuid headmenuhead headids
9100 global showlocalchanges
9102 # check the tree is clean first??
9103 nowbusy checkout [mc "Checking out"]
9104 update
9105 dohidelocalchanges
9106 if {[catch {
9108 } err]} {
9109 notbusy checkout
9112 dodiffindex
9113 }
9114 } else {
9116 }
9117 }
9119 proc readcheckoutstat {fd newhead newheadid} {
9120 global mainhead mainheadid headids showlocalchanges progresscoords
9121 global viewmainheadid curview
9126 adjustprogress
9127 }
9128 return 1
9129 }
9130 set progresscoords {0 0}
9131 adjustprogress
9132 notbusy checkout
9135 }
9144 dodiffindex
9145 }
9146 }
9148 proc rmbranch {} {
9149 global headmenuid headmenuhead mainhead
9150 global idheads
9154 # this check shouldn't be needed any more...
9156 error_popup [mc "Cannot delete the currently checked-out branch"]
9157 return
9158 }
9161 # the stuff on this branch isn't on any other branch
9162 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9164 }
9165 nowbusy rmbranch
9166 update
9168 notbusy rmbranch
9170 return
9171 }
9175 notbusy rmbranch
9176 dispneartags 0
9177 run refill_reflist
9178 }
9180 # Display a list of tags and heads
9181 proc showrefs {} {
9182 global showrefstop bgcolor fgcolor selectbgcolor NS
9183 global bglist fglist reflistfilter reflist maincursor
9185 set top .showrefs
9189 refill_reflist
9190 return
9191 }
9199 -spacing1 1 -spacing3 1 -state disabled
9210 set reflistfilter "*"
9211 trace add variable reflistfilter write reflistfilter_change
9223 set reflist {}
9224 refill_reflist
9225 }
9227 proc sel_reflist {w x y} {
9228 global showrefstop reflist headids tagids otherrefids
9238 }
9240 }
9242 proc unsel_reflist {} {
9243 global showrefstop
9247 }
9249 proc reflistfilter_change {n1 n2 op} {
9250 global reflistfilter
9252 after cancel refill_reflist
9253 after 200 refill_reflist
9254 }
9256 proc refill_reflist {} {
9257 global reflist reflistfilter showrefstop headids tagids otherrefids
9258 global curview
9261 set refs {}
9262 foreach n [array names headids] {
9266 } else {
9268 }
9269 }
9270 }
9271 foreach n [array names tagids] {
9275 } else {
9277 }
9278 }
9279 }
9280 foreach n [array names otherrefids] {
9284 } else {
9286 }
9287 }
9288 }
9296 set i 0
9297 set j 0
9306 }
9307 } else {
9308 set cmp -1
9309 }
9310 } else {
9311 set cmp 1
9312 }
9314 -1 {
9316 incr i
9317 }
9318 0 {
9319 incr i
9320 incr j
9321 }
9322 1 {
9327 incr j
9328 }
9329 }
9330 }
9332 # delete last newline
9335 }
9337 # Stuff for finding nearby tags
9338 proc getallcommits {} {
9339 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9340 global idheads idtags idotherrefs allparents tagobjid
9342 if {![info exists allcommits]} {
9343 set nextarc 0
9344 set allcommits 0
9345 set seeds {}
9346 set allcwait 0
9347 set cachedarcs 0
9348 set allccache [file join [gitdir] "gitk.cache"]
9349 if {![catch {
9351 set allcwait 1
9353 }]} return
9354 }
9357 return
9358 }
9359 set cmd [list | git rev-list --parents]
9362 set ids "--all"
9363 } else {
9364 set refs [concat [array names idheads] [array names idtags] \
9365 [array names idotherrefs]]
9366 set ids {}
9367 set tagobjs {}
9368 foreach name [array names tagobjid] {
9370 }
9375 }
9376 }
9380 }
9381 }
9382 }
9386 incr allcommits
9387 nowbusy allcommits
9389 } else {
9390 dispneartags 0
9391 }
9392 }
9394 # Since most commits have 1 parent and 1 child, we group strings of
9395 # such commits into "arcs" joining branch/merge points (BMPs), which
9396 # are commits that either don't have 1 parent or don't have 1 child.
9397 #
9398 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9399 # arcout(id) - outgoing arcs for BMP
9400 # arcids(a) - list of IDs on arc including end but not start
9401 # arcstart(a) - BMP ID at start of arc
9402 # arcend(a) - BMP ID at end of arc
9403 # growing(a) - arc a is still growing
9404 # arctags(a) - IDs out of arcids (excluding end) that have tags
9405 # archeads(a) - IDs out of arcids (excluding end) that have heads
9406 # The start of an arc is at the descendent end, so "incoming" means
9407 # coming from descendents, and "outgoing" means going towards ancestors.
9409 proc getallclines {fd} {
9410 global allparents allchildren idtags idheads nextarc
9411 global arcnos arcids arctags arcout arcend arcstart archeads growing
9412 global seeds allcommits cachedarcs allcupdate
9414 set nid 0
9418 # seen it already
9419 continue
9420 }
9421 set cachedarcs 0
9428 } else {
9434 }
9437 }
9439 # seen parent already
9442 }
9446 }
9449 continue
9450 }
9451 }
9456 }
9458 set ao {}
9461 set a [incr nextarc]
9470 # seen it already, may need to make a new branch
9473 }
9477 }
9479 }
9481 }
9483 global cached_dheads cached_dtags cached_atags
9484 catch {unset cached_dheads}
9485 catch {unset cached_dtags}
9486 catch {unset cached_atags}
9487 }
9490 }
9491 set cacheok 1
9492 if {[catch {
9495 } err]} {
9496 # got an error reading the list of commits
9497 # if we were updating, try rereading the whole thing again
9499 incr allcommits -1
9501 return
9502 }
9503 error_popup "[mc "Error reading commit topology information;\
9504 branch and preceding/following tag information\
9506 set cacheok 0
9507 }
9508 if {[incr allcommits -1] == 0} {
9509 notbusy allcommits
9511 run savecache
9512 }
9513 }
9514 dispneartags 0
9515 return 0
9516 }
9518 proc recalcarc {a} {
9519 global arctags archeads arcids idtags idheads
9521 set at {}
9522 set ah {}
9526 }
9529 }
9530 }
9533 }
9535 proc splitarc {p} {
9536 global arcnos arcids nextarc arctags archeads idtags idheads
9537 global arcstart arcend arcout allparents growing
9542 return
9543 }
9548 return
9549 }
9550 set na [incr nextarc]
9553 } else {
9557 }
9567 }
9572 } else {
9575 }
9576 }
9578 # reconstruct tags and heads lists
9582 } else {
9585 }
9586 }
9588 # Update things for a new commit added that is a child of one
9589 # existing commit. Used when cherry-picking.
9590 proc addnewchild {id p} {
9591 global allparents allchildren idtags nextarc
9592 global arcnos arcids arctags arcout arcend arcstart archeads growing
9593 global seeds allcommits
9601 set a [incr nextarc]
9609 }
9612 }
9614 # This implements a cache for the topology information.
9615 # The cache saves, for each arc, the start and end of the arc,
9616 # the ids on the arc, and the outgoing arcs from the end.
9617 proc readcache {f} {
9618 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9619 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9620 global allcwait
9626 }
9627 if {[catch {
9629 # finish reading the cache and setting up arctags, etc.
9633 foreach id [array names idtags] {
9639 }
9640 }
9641 }
9642 foreach id [array names idheads] {
9648 }
9649 }
9650 }
9654 }
9655 }
9656 set allcwait 0
9657 } else {
9667 }
9671 } else {
9675 }
9676 }
9682 }
9685 }
9688 }
9690 }
9691 } err]} {
9693 return 0
9694 }
9696 getallcommits
9697 }
9699 }
9701 proc getcache {f} {
9702 global nextarc cachedarcs possible_seeds
9704 if {[catch {
9707 # make sure it's an integer
9710 set nextarc 0
9711 set possible_seeds {}
9713 } err]} {
9715 }
9716 return 0
9717 }
9719 proc dropcache {err} {
9720 global allcwait nextarc cachedarcs seeds
9723 foreach v {arcnos arcout arcids arcstart arcend growing \
9724 arctags archeads allparents allchildren} {
9727 }
9728 set allcwait 0
9729 set nextarc 0
9730 set cachedarcs 0
9731 set seeds {}
9732 getallcommits
9733 }
9735 proc writecache {f} {
9736 global cachearc cachedarcs allccache
9737 global arcstart arcend arcnos arcids arcout
9743 }
9744 if {[catch {
9748 } else {
9750 }
9751 }
9752 } err]} {
9756 return 0
9757 }
9762 return 0
9763 }
9764 return 1
9765 }
9767 proc savecache {} {
9768 global nextarc cachedarcs cachearc allccache
9771 set cachearc 0
9773 catch {
9777 }
9778 }
9780 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9781 # or 0 if neither is true.
9782 proc anc_or_desc {a b} {
9783 global arcout arcstart arcend arcnos cached_isanc
9786 # Both are on the same arc(s); either both are the same BMP,
9787 # or if one is not a BMP, the other is also not a BMP or is
9788 # the BMP at end of the arc (and it only has 1 incoming arc).
9789 # Or both can be BMPs with no incoming arcs.
9791 return 0
9792 }
9798 return 1
9799 } else {
9800 return -1
9801 }
9802 }
9808 } else {
9809 set aend {}
9810 }
9812 } else {
9814 }
9819 } else {
9820 set bend {}
9821 }
9823 } else {
9825 }
9827 return 1
9828 }
9830 return -1
9831 }
9834 return 1
9835 }
9836 }
9839 return -1
9840 }
9842 return 0
9843 }
9844 }
9852 continue
9853 }
9859 return 1
9863 return -1
9864 }
9870 }
9871 }
9872 }
9875 return 0
9876 }
9880 # and returns 0 if so and 1 if not.
9881 # If we subsequently discover a tag on such a growing tip, and that
9884 # isn't a good choice to display as a descendent tag of
9888 #
9889 proc is_certain {desc anc} {
9890 global arcnos arcout arcstart arcend growing problems
9892 set certain {}
9894 # tags on the same arc are certain
9896 return 1
9897 }
9902 }
9903 }
9906 } else {
9909 }
9911 return 1
9912 }
9915 set nnh 1
9916 set ngrowanc 0
9920 incr nnh -1
9921 }
9927 incr ngrowanc
9928 }
9929 } else {
9936 incr nnh -1
9937 }
9939 incr ngrowanc -1
9940 }
9950 incr nnh -1
9951 }
9953 incr ngrowanc -1
9954 }
9956 }
9957 }
9958 }
9959 }
9960 }
9961 }
9965 } else {
9968 incr nnh
9969 }
9970 }
9971 }
9972 }
9973 foreach x [array names growanc] {
9975 return 0
9976 }
9977 return 0
9978 }
9979 return 1
9980 }
9982 proc validate_arctags {a} {
9983 global arctags idtags
9985 set i -1
9988 incr i
9991 incr i -1
9992 }
9993 }
9995 }
9997 proc validate_archeads {a} {
9998 global archeads idheads
10000 set i -1
10003 incr i
10006 incr i -1
10007 }
10008 }
10010 }
10012 # Return the list of IDs that have tags that are descendents of id,
10013 # ignoring IDs that are descendents of IDs already reported.
10014 proc desctags {id} {
10015 global arcnos arcstart arcids arctags idtags allparents
10016 global growing cached_dtags
10019 return {}
10020 }
10021 set t1 [clock clicks -milliseconds]
10024 # part-way along an arc; check that arc first
10029 set tid {}
10034 }
10037 }
10038 }
10042 }
10043 }
10046 }
10051 set nc 1
10057 incr nc -1
10058 }
10059 # ignore tags on starting node
10063 set ta 1
10066 set ta 1
10067 }
10068 }
10075 }
10076 }
10085 }
10088 }
10090 incr nc -1
10091 }
10093 }
10094 }
10095 }
10100 incr nc
10101 }
10102 }
10103 }
10104 }
10105 set tags {}
10106 foreach id [array names tagloc] {
10111 }
10112 }
10113 }
10114 }
10115 set t2 [clock clicks -milliseconds]
10118 # remove tags that are descendents of other tags
10126 incr j -1
10127 incr i -1
10130 incr i -1
10131 break
10132 }
10133 }
10134 }
10136 if {[array names growing] ne {}} {
10137 # graph isn't finished, need to check if any tag could get
10138 # eclipsed by another tag coming later. Simply ignore any
10139 # tags that could later get eclipsed.
10140 set ctags {}
10144 }
10145 }
10148 } else {
10150 }
10151 } else {
10153 }
10154 set t3 [clock clicks -milliseconds]
10158 }
10160 }
10162 proc anctags {id} {
10163 global arcnos arcids arcout arcend arctags idtags allparents
10164 global growing cached_atags
10167 return {}
10168 }
10169 set t1 [clock clicks -milliseconds]
10172 # part-way along an arc; check that arc first
10181 }
10182 }
10183 }
10185 return {}
10186 }
10190 }
10191 }
10194 }
10199 set taglist {}
10200 set nc 1
10206 incr nc -1
10207 }
10208 # ignore tags on starting node
10212 set td 1
10215 set td 1
10216 }
10217 }
10223 }
10224 }
10236 }
10237 }
10240 }
10242 incr nc -1
10243 }
10245 }
10246 }
10247 }
10252 incr nc
10253 }
10254 }
10255 }
10256 }
10257 set t2 [clock clicks -milliseconds]
10259 set tags {}
10260 foreach id [array names tagloc] {
10265 }
10266 }
10267 }
10268 }
10270 # remove tags that are ancestors of other tags
10278 incr j -1
10279 incr i -1
10282 incr i -1
10283 break
10284 }
10285 }
10286 }
10288 if {[array names growing] ne {}} {
10289 # graph isn't finished, need to check if any tag could get
10290 # eclipsed by another tag coming later. Simply ignore any
10291 # tags that could later get eclipsed.
10292 set ctags {}
10296 }
10297 }
10300 } else {
10302 }
10303 } else {
10305 }
10306 set t3 [clock clicks -milliseconds]
10310 }
10312 }
10314 # Return the list of IDs that have heads that are descendents of id,
10315 # including id itself if it has a head.
10316 proc descheads {id} {
10317 global arcnos arcstart arcids archeads idheads cached_dheads
10318 global allparents
10321 return {}
10322 }
10323 set aret {}
10325 # part-way along an arc; check it first
10334 }
10335 }
10337 }
10341 set ret {}
10346 } else {
10349 }
10355 }
10356 }
10361 }
10362 }
10363 }
10364 }
10368 }
10370 proc addedtag {id} {
10371 global arcnos arcout cached_dtags cached_atags
10376 }
10377 catch {unset cached_dtags}
10378 catch {unset cached_atags}
10379 }
10381 proc addedhead {hid head} {
10382 global arcnos arcout cached_dheads
10387 }
10388 catch {unset cached_dheads}
10389 }
10391 proc removedhead {hid head} {
10392 global cached_dheads
10394 catch {unset cached_dheads}
10395 }
10397 proc movedhead {hid head} {
10398 global arcnos arcout cached_dheads
10403 }
10404 catch {unset cached_dheads}
10405 }
10407 proc changedrefs {} {
10408 global cached_dheads cached_dtags cached_atags
10409 global arctags archeads arcnos arcout idheads idtags
10411 foreach id [concat [array names idheads] [array names idtags]] {
10417 }
10418 }
10419 }
10420 catch {unset cached_dtags}
10421 catch {unset cached_atags}
10422 catch {unset cached_dheads}
10423 }
10425 proc rereadrefs {} {
10426 global idtags idheads idotherrefs mainheadid
10428 set refids [concat [array names idtags] \
10429 [array names idheads] [array names idotherrefs]]
10433 }
10434 }
10436 readrefs
10437 changedrefs
10439 [array names idheads] [array names idotherrefs]]]
10444 }
10445 }
10449 }
10450 run refill_reflist
10451 }
10453 proc listrefs {id} {
10454 global idtags idheads idotherrefs
10456 set x {}
10459 }
10460 set y {}
10463 }
10464 set z {}
10467 }
10469 }
10471 proc showtag {tag isnew} {
10472 global ctext tagcontents tagids linknum tagobjid
10476 }
10478 clear_ctext
10479 settabs 0
10480 set linknum 0
10482 catch {
10484 }
10485 }
10488 } else {
10490 }
10492 maybe_scroll_ctext 1
10494 init_flist {}
10495 }
10497 proc doquit {} {
10498 global stopped
10499 global gitktmpdir
10501 set stopped 100
10502 savestuff .
10503 destroy .
10505 if {[info exists gitktmpdir]} {
10507 }
10508 }
10510 proc mkfontdisp {font top which} {
10520 }
10522 proc choosefont {font which} {
10523 global fontparam fontlist fonttop fontattr
10524 global prefstop NS
10532 set top .gitkfont
10535 font create sample
10542 set fontlist [lsort [font families]]
10553 -textvariable fontparam(size) \
10554 -validatecommand {string is integer -strict %s}
10556 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10557 -variable fontparam(weight) -onvalue bold -offvalue normal
10559 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10560 -variable fontparam(slant) -onvalue italic -offvalue roman
10564 -background white
10566 -fill black -tags text
10578 trace add variable fontparam write chg_fontparam
10579 } else {
10582 }
10587 }
10588 }
10590 proc centertext {w} {
10592 }
10594 proc fontok {} {
10595 global fontparam fontpref prefstop
10601 }
10604 }
10608 fontcan
10609 }
10611 proc fontcan {} {
10612 global fonttop fontparam
10614 if {[info exists fonttop]} {
10616 catch {font delete sample}
10617 unset fonttop
10618 unset fontparam
10619 }
10620 }
10622 if {[package vsatisfies [package provide Tk] 8.6]} {
10623 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10624 # function to make use of it.
10625 proc choosefont {font which} {
10628 tk fontchooser show
10629 }
10630 proc on_choosefont {font which newfont} {
10631 global fontparam
10640 fontok
10641 }
10642 }
10644 proc selfontfam {} {
10645 global fonttop fontparam
10650 }
10651 }
10653 proc chg_fontparam {v sub op} {
10654 global fontparam
10657 }
10659 proc doprefs {} {
10660 global maxwidth maxgraphpct use_ttk NS
10661 global oldprefs prefstop showneartags showlocalchanges
10662 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10663 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10664 global hideremotes want_ttk have_ttk
10666 set top .gitkprefs
10670 return
10671 }
10672 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10673 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10675 }
10689 -variable showlocalchanges
10692 -variable autoselect
10695 -variable hideremotes
10704 -variable showneartags
10707 -variable limitdiffs
10710 -variable perfile_attrs
10724 -text [mc "Use themed widgets"]
10727 } else {
10729 }
10759 [mc "diff hunk header"] \
10765 [mc "marked line background"] \
10780 foreach w {maxpctl maxwidthl showlocal autoselect tabstopl ntag
10781 ldiff lattr extdifff.l extdifff.b bgbut fgbut
10782 diffoldbut diffnewbut hunksepbut markbgbut selbgbut
10783 want_ttk ttk_note} {
10785 }
10786 }
10799 }
10801 proc choose_extdiff {} {
10802 global extdifftool
10804 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10807 }
10808 }
10810 proc choosecolor {v vi w x cmd} {
10819 }
10821 proc setselbg {c} {
10822 global bglist cflist
10825 }
10829 }
10831 # This sets the background color and the color scheme for the whole UI.
10832 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10833 # if we don't specify one ourselves, which makes the checkbuttons and
10834 # radiobuttons look bad. This chooses white for selectColor if the
10835 # background color is light, or black if it is dark.
10836 proc setui {c} {
10838 set selc black
10840 set selc white
10841 }
10843 }
10845 proc setbg {c} {
10846 global bglist
10850 }
10851 }
10853 proc setfg {c} {
10854 global fglist canv
10858 }
10862 }
10864 proc prefscan {} {
10865 global oldprefs prefstop
10867 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10868 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10871 }
10873 unset prefstop
10874 fontcan
10875 }
10877 proc prefsok {} {
10878 global maxwidth maxgraphpct
10879 global oldprefs prefstop showneartags showlocalchanges
10880 global fontpref mainfont textfont uifont
10881 global limitdiffs treediffs perfile_attrs
10882 global hideremotes
10885 unset prefstop
10886 fontcan
10887 set fontchanged 0
10891 eval font configure mainfont [fontflags mainfont]
10892 eval font configure mainfontbold [fontflags mainfont 1]
10893 setcoords
10894 set fontchanged 1
10895 }
10899 eval font configure textfont [fontflags textfont]
10900 eval font configure textfontbold [fontflags textfont 1]
10901 }
10905 eval font configure uifont [fontflags uifont]
10906 }
10907 settabs
10910 doshowlocalchanges
10911 } else {
10912 dohidelocalchanges
10913 }
10914 }
10917 # treediffs elements are limited by path;
10918 # won't have encodings cached if perfile_attrs was just turned on
10919 catch {unset treediffs}
10920 }
10923 redisplay
10926 reselectline
10927 }
10929 rereadrefs
10930 }
10931 }
10933 proc formatdate {d} {
10934 global datetimeformat
10937 }
10939 }
10941 # This list of encoding names and aliases is distilled from
10942 # http://www.iana.org/assignments/character-sets.
10943 # Not all of them are supported by Tcl.
10944 set encoding_aliases {
10945 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10946 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10947 { ISO-10646-UTF-1 csISO10646UTF1 }
10948 { ISO_646.basic:1983 ref csISO646basic1983 }
10949 { INVARIANT csINVARIANT }
10950 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10951 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10952 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10953 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10954 { NATS-DANO iso-ir-9-1 csNATSDANO }
10955 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10956 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10957 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10958 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10959 { ISO-2022-KR csISO2022KR }
10960 { EUC-KR csEUCKR }
10961 { ISO-2022-JP csISO2022JP }
10962 { ISO-2022-JP-2 csISO2022JP2 }
10963 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10964 csISO13JISC6220jp }
10965 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10966 { IT iso-ir-15 ISO646-IT csISO15Italian }
10967 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10968 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10969 { greek7-old iso-ir-18 csISO18Greek7Old }
10970 { latin-greek iso-ir-19 csISO19LatinGreek }
10971 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10972 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10973 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10974 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10975 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10976 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10977 { INIS iso-ir-49 csISO49INIS }
10978 { INIS-8 iso-ir-50 csISO50INIS8 }
10979 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10980 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10981 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10982 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10983 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10984 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10985 csISO60Norwegian1 }
10986 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10987 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10988 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10989 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10990 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10991 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10992 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10993 { greek7 iso-ir-88 csISO88Greek7 }
10994 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10995 { iso-ir-90 csISO90 }
10996 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10997 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10998 csISO92JISC62991984b }
10999 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11000 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11001 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11002 csISO95JIS62291984handadd }
11003 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11004 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11005 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11006 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11007 CP819 csISOLatin1 }
11008 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11009 { T.61-7bit iso-ir-102 csISO102T617bit }
11010 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11011 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11012 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11013 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11014 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11015 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11016 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11017 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11018 arabic csISOLatinArabic }
11019 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11020 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11021 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11022 greek greek8 csISOLatinGreek }
11023 { T.101-G2 iso-ir-128 csISO128T101G2 }
11024 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11025 csISOLatinHebrew }
11026 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11027 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11028 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11029 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11030 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11031 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11032 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11033 csISOLatinCyrillic }
11034 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11035 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11036 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11037 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11038 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11039 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11040 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11041 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11042 { ISO_10367-box iso-ir-155 csISO10367Box }
11043 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11044 { latin-lap lap iso-ir-158 csISO158Lap }
11045 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11046 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11047 { us-dk csUSDK }
11048 { dk-us csDKUS }
11049 { JIS_X0201 X0201 csHalfWidthKatakana }
11050 { KSC5636 ISO646-KR csKSC5636 }
11051 { ISO-10646-UCS-2 csUnicode }
11052 { ISO-10646-UCS-4 csUCS4 }
11053 { DEC-MCS dec csDECMCS }
11054 { hp-roman8 roman8 r8 csHPRoman8 }
11055 { macintosh mac csMacintosh }
11056 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11057 csIBM037 }
11058 { IBM038 EBCDIC-INT cp038 csIBM038 }
11059 { IBM273 CP273 csIBM273 }
11060 { IBM274 EBCDIC-BE CP274 csIBM274 }
11061 { IBM275 EBCDIC-BR cp275 csIBM275 }
11062 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11063 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11064 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11065 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11066 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11067 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11068 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11069 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11070 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11071 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11072 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11073 { IBM437 cp437 437 csPC8CodePage437 }
11074 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11075 { IBM775 cp775 csPC775Baltic }
11076 { IBM850 cp850 850 csPC850Multilingual }
11077 { IBM851 cp851 851 csIBM851 }
11078 { IBM852 cp852 852 csPCp852 }
11079 { IBM855 cp855 855 csIBM855 }
11080 { IBM857 cp857 857 csIBM857 }
11081 { IBM860 cp860 860 csIBM860 }
11082 { IBM861 cp861 861 cp-is csIBM861 }
11083 { IBM862 cp862 862 csPC862LatinHebrew }
11084 { IBM863 cp863 863 csIBM863 }
11085 { IBM864 cp864 csIBM864 }
11086 { IBM865 cp865 865 csIBM865 }
11087 { IBM866 cp866 866 csIBM866 }
11088 { IBM868 CP868 cp-ar csIBM868 }
11089 { IBM869 cp869 869 cp-gr csIBM869 }
11090 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11091 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11092 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11093 { IBM891 cp891 csIBM891 }
11094 { IBM903 cp903 csIBM903 }
11095 { IBM904 cp904 904 csIBBM904 }
11096 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11097 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11098 { IBM1026 CP1026 csIBM1026 }
11099 { EBCDIC-AT-DE csIBMEBCDICATDE }
11100 { EBCDIC-AT-DE-A csEBCDICATDEA }
11101 { EBCDIC-CA-FR csEBCDICCAFR }
11102 { EBCDIC-DK-NO csEBCDICDKNO }
11103 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11104 { EBCDIC-FI-SE csEBCDICFISE }
11105 { EBCDIC-FI-SE-A csEBCDICFISEA }
11106 { EBCDIC-FR csEBCDICFR }
11107 { EBCDIC-IT csEBCDICIT }
11108 { EBCDIC-PT csEBCDICPT }
11109 { EBCDIC-ES csEBCDICES }
11110 { EBCDIC-ES-A csEBCDICESA }
11111 { EBCDIC-ES-S csEBCDICESS }
11112 { EBCDIC-UK csEBCDICUK }
11113 { EBCDIC-US csEBCDICUS }
11114 { UNKNOWN-8BIT csUnknown8BiT }
11115 { MNEMONIC csMnemonic }
11116 { MNEM csMnem }
11117 { VISCII csVISCII }
11118 { VIQR csVIQR }
11119 { KOI8-R csKOI8R }
11120 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11121 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11122 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11123 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11124 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11125 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11126 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11127 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11128 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11129 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11130 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11131 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11132 { IBM1047 IBM-1047 }
11133 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11134 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11135 { UNICODE-1-1 csUnicode11 }
11136 { CESU-8 csCESU-8 }
11137 { BOCU-1 csBOCU-1 }
11138 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11139 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11140 l8 }
11141 { ISO-8859-15 ISO_8859-15 Latin-9 }
11142 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11143 { GBK CP936 MS936 windows-936 }
11144 { JIS_Encoding csJISEncoding }
11145 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11146 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11147 EUC-JP }
11148 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11149 { ISO-10646-UCS-Basic csUnicodeASCII }
11150 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11151 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11152 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11153 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11154 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11155 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11156 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11157 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11158 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11159 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11160 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11161 { Ventura-US csVenturaUS }
11162 { Ventura-International csVenturaInternational }
11163 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11164 { PC8-Turkish csPC8Turkish }
11165 { IBM-Symbols csIBMSymbols }
11166 { IBM-Thai csIBMThai }
11167 { HP-Legal csHPLegal }
11168 { HP-Pi-font csHPPiFont }
11169 { HP-Math8 csHPMath8 }
11170 { Adobe-Symbol-Encoding csHPPSMath }
11171 { HP-DeskTop csHPDesktop }
11172 { Ventura-Math csVenturaMath }
11173 { Microsoft-Publishing csMicrosoftPublishing }
11174 { Windows-31J csWindows31J }
11175 { GB2312 csGB2312 }
11176 { Big5 csBig5 }
11177 }
11179 proc tcl_encoding {enc} {
11180 global encoding_aliases tcl_encoding_cache
11183 }
11184 set names [encoding names]
11189 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11192 }
11193 }
11198 # look through the aliases for one that tcl knows about
11204 }
11205 }
11207 }
11208 break
11209 }
11210 }
11211 set tclenc {}
11214 }
11217 }
11219 proc gitattr {path attr default} {
11220 global path_attr_cache
11223 } else {
11224 set r "unspecified"
11227 }
11229 }
11232 }
11234 }
11236 proc cache_gitattr {attr pathlist} {
11237 global path_attr_cache
11238 set newlist {}
11242 }
11243 }
11244 set lim 1000
11245 if {[tk windowingsystem] == "win32"} {
11246 # windows has a 32k limit on the arguments to a command...
11247 set lim 30
11248 }
11257 }
11259 }
11260 }
11261 }
11262 }
11263 }
11265 proc get_path_encoding {path} {
11266 global gui_encoding perfile_attrs
11272 }
11273 }
11275 }
11277 # First check that Tcl/Tk is recent enough
11278 if {[catch {package require Tk 8.4} err]} {
11279 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11280 Gitk requires at least Tcl/Tk 8.4." list
11281 exit 1
11282 }
11284 # defaults...
11285 set wrcomcmd "git diff-tree --stdin -p --pretty"
11287 set gitencoding {}
11288 catch {
11289 set gitencoding [exec git config --get i18n.commitencoding]
11290 }
11291 catch {
11292 set gitencoding [exec git config --get i18n.logoutputencoding]
11293 }
11295 set gitencoding "utf-8"
11296 }
11300 }
11302 set gui_encoding [encoding system]
11303 catch {
11304 set enc [exec git config --get gui.encoding]
11309 } else {
11311 }
11312 }
11313 }
11315 if {[tk windowingsystem] eq "aqua"} {
11316 set mainfont {{Lucida Grande} 9}
11317 set textfont {Monaco 9}
11318 set uifont {{Lucida Grande} 9 bold}
11319 } else {
11320 set mainfont {Helvetica 9}
11321 set textfont {Courier 9}
11322 set uifont {Helvetica 9 bold}
11323 }
11324 set tabstop 8
11325 set findmergefiles 0
11326 set maxgraphpct 50
11327 set maxwidth 16
11328 set revlistorder 0
11329 set fastdate 0
11330 set uparrowlen 5
11331 set downarrowlen 5
11332 set mingaplen 100
11333 set cmitmode "patch"
11334 set wrapcomment "none"
11335 set showneartags 1
11336 set hideremotes 0
11337 set maxrefs 20
11338 set maxlinelen 200
11339 set showlocalchanges 1
11340 set limitdiffs 1
11341 set datetimeformat "%Y-%m-%d %H:%M:%S"
11342 set autoselect 1
11343 set perfile_attrs 0
11344 set want_ttk 1
11346 if {[tk windowingsystem] eq "aqua"} {
11347 set extdifftool "opendiff"
11348 } else {
11349 set extdifftool "meld"
11350 }
11352 set colors {green red blue magenta darkgrey brown orange}
11353 if {[tk windowingsystem] eq "win32"} {
11354 set uicolor SystemButtonFace
11355 set bgcolor SystemWindow
11356 set fgcolor SystemButtonText
11357 set selectbgcolor SystemHighlight
11358 } else {
11359 set uicolor grey85
11360 set bgcolor white
11361 set fgcolor black
11362 set selectbgcolor gray85
11363 }
11364 set diffcolors {red "#00a000" blue}
11365 set diffcontext 3
11366 set ignorespace 0
11367 set markbgcolor "#e0e0ff"
11369 set circlecolors {white blue gray blue blue}
11371 # button for popping up context menus
11372 if {[tk windowingsystem] eq "aqua"} {
11373 set ctxbut <Button-2>
11374 } else {
11375 set ctxbut <Button-3>
11376 }
11378 ## For msgcat loading, first locate the installation location.
11379 if { [info exists ::env(GITK_MSGSDIR)] } {
11380 ## Msgsdir was manually set in the environment.
11381 set gitk_msgsdir $::env(GITK_MSGSDIR)
11382 } else {
11383 ## Let's guess the prefix from argv0.
11387 unset gitk_prefix
11388 }
11390 ## Internationalization (i18n) through msgcat and gettext. See
11391 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11392 package require msgcat
11393 namespace import ::msgcat::mc
11394 ## And eventually load the actual message catalog
11397 catch {source ~/.gitk}
11399 font create optionfont -family sans-serif -size -12
11402 eval font create mainfont [fontflags mainfont]
11403 eval font create mainfontbold [fontflags mainfont 1]
11406 eval font create textfont [fontflags textfont]
11407 eval font create textfontbold [fontflags textfont 1]
11410 eval font create uifont [fontflags uifont]
11414 setoptions
11416 # check that we can find a .git directory somewhere...
11417 if {[catch {set gitdir [gitdir]}]} {
11418 show_error {} . [mc "Cannot find a git repository here."]
11419 exit 1
11420 }
11423 exit 1
11424 }
11426 set selecthead {}
11427 set selectheadid {}
11429 set revtreeargs {}
11430 set cmdline_files {}
11431 set i 0
11432 set revtreeargscmd {}
11435 "" { }
11436 "--" {
11438 break
11439 }
11440 "--select-commit=*" {
11442 }
11443 "--argscmd=*" {
11445 }
11446 default {
11448 }
11449 }
11450 incr i
11451 }
11454 set selecthead {}
11455 }
11458 # no -- on command line, but some arguments (other than --argscmd)
11459 if {[catch {
11464 # Unfortunately git rev-parse doesn't produce an error when
11465 # something is both a revision and a filename. To be consistent
11466 # with git log and git rev-list, check revtreeargs for filenames.
11469 show_error {} . [mc "Ambiguous argument '%s': both revision\
11471 exit 1
11472 }
11473 }
11474 } err]} {
11476 # so look for "fatal:".
11480 }
11482 exit 1
11483 }
11484 }
11486 set nullid "0000000000000000000000000000000000000000"
11487 set nullid2 "0000000000000000000000000000000000000001"
11488 set nullfile "/dev/null"
11491 if {![info exists have_ttk]} {
11492 set have_ttk [llength [info commands ::ttk::style]]
11493 }
11497 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11499 set runq {}
11500 set history {}
11501 set historyindex 0
11502 set fh_serial 0
11503 set nhl_names {}
11504 set highlight_paths {}
11505 set findpattern {}
11506 set searchdirn -forwards
11507 set boldids {}
11508 set boldnameids {}
11509 set diffelide {0 0}
11510 set markingmatches 0
11511 set linkentercount 0
11512 set need_redisplay 0
11513 set nrows_drawn 0
11514 set firsttabstop 0
11516 set nextviewnum 1
11517 set curview 0
11518 set selectedview 0
11519 set selectedhlview [mc "None"]
11520 set highlight_related [mc "None"]
11521 set highlight_files {}
11522 set viewfiles(0) {}
11523 set viewperm(0) 0
11524 set viewargs(0) {}
11525 set viewargscmd(0) {}
11527 set selectedline {}
11528 set numcommits 0
11529 set loginstance 0
11530 set cmdlineok 0
11531 set stopped 0
11532 set stuffsaved 0
11533 set patchnum 0
11534 set lserial 0
11535 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11536 setcoords
11537 makewindow
11538 catch {
11539 image create photo gitlogo -width 16 -height 16
11541 image create photo gitlogominus -width 4 -height 2
11542 gitlogominus put #C00000 -to 0 0 4 2
11543 gitlogo copy gitlogominus -to 1 5
11544 gitlogo copy gitlogominus -to 6 5
11545 gitlogo copy gitlogominus -to 11 5
11546 image delete gitlogominus
11548 image create photo gitlogoplus -width 4 -height 4
11549 gitlogoplus put #008000 -to 1 0 3 4
11550 gitlogoplus put #008000 -to 0 1 4 3
11551 gitlogo copy gitlogoplus -to 1 9
11552 gitlogo copy gitlogoplus -to 6 9
11553 gitlogo copy gitlogoplus -to 11 9
11554 image delete gitlogoplus
11556 image create photo gitlogo32 -width 32 -height 32
11557 gitlogo32 copy gitlogo -zoom 2 2
11559 wm iconphoto . -default gitlogo gitlogo32
11560 }
11561 # wait for the window to become visible
11562 tkwait visibility .
11564 update
11565 readrefs
11568 # create a view for the files/dirs specified on the command line
11569 set curview 1
11570 set selectedview 1
11571 set nextviewnum 2
11572 set viewname(1) [mc "Command line"]
11576 set viewperm(1) 0
11577 set vdatemode(1) 0
11578 addviewmenu 1
11579 .bar.view entryconf [mca "Edit view..."] -state normal
11580 .bar.view entryconf [mca "Delete view"] -state normal
11581 }
11583 if {[info exists permviews]} {
11586 incr nextviewnum
11593 }
11594 }
11596 if {[tk windowingsystem] eq "win32"} {
11597 focus -force .
11598 }
11600 getcommits {}