| blob | df3ba2ea99b310c3cdcd5c7a8938eef498b3e92e |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2016 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 package require Tk
12 proc hasworktree {} {
15 }
17 proc reponame {} {
18 global gitdir
22 }
24 }
26 proc gitworktree {} {
27 variable _gitworktree
30 }
31 # v1.7.0 introduced --show-toplevel to return the canonical work-tree
33 # try to set work tree from environment, core.worktree or use
34 # cdup to obtain a relative path to the top of the worktree. If
35 # run from the top, the ./ prefix ensures normalize expands pwd.
39 }
40 }
41 }
43 }
45 # A simple scheduler for compute-intensive stuff.
46 # The aim is to make sure that event handlers for GUI actions can
47 # run at least every 50-100 ms. Unfortunately fileevent handlers are
48 # run before X event handlers, so reading from a fast source can
49 # make the GUI completely unresponsive.
50 proc run args {
51 global isonrunq runq currunq
56 after idle dorunq
57 }
60 }
64 }
67 global runq currunq
71 after idle dorunq
72 }
74 }
77 global runq
83 incr i
84 }
85 }
86 }
88 proc dorunq {} {
89 global isonrunq runq currunq
99 unset currunq
104 # script returns 1 if it wants to be readded
105 # file readers return 2 if they could do more straight away
109 }
112 }
115 }
117 after idle dorunq
118 }
119 }
122 global commfd leftover loginstance
128 }
131 global nr_unmerged
133 # find the list of unmerged files
140 exit 1
141 }
147 incr nr_unmerged
150 }
151 }
154 }
156 proc parseviewargs {n arglist} {
157 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
158 global vinlinediff
159 global worddiff git_version
164 set glflags {}
165 set diffargs {}
166 set nextisval 0
167 set revargs {}
169 set allknown 1
170 set filtered 0
171 set i -1
173 incr i
176 set nextisval 0
177 continue
178 }
180 "-d" -
181 "--date-order" {
183 # remove from origargs in case we hit an unknown option
185 incr i -1
186 }
187 "-[puabwcrRBMC]" -
188 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
189 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
190 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
191 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
192 "--ignore-space-change" - "-U*" - "--unified=*" {
193 # These request or affect diff output, which we don't want.
194 # Some could be used to set our defaults for diff display.
195 lappend diffargs $arg
196 }
204 # These cause our parsing of git log's output to fail, or else
205 # they're options we want to set ourselves, so ignore them.
206 }
208 # These trigger a word diff in the console interface,
209 # so help the user by enabling our own support
212 }
213 }
217 }
218 }
223 # These are harmless, and some are even useful
224 lappend glflags $arg
225 }
233 # These mean that we get a subset of the commits
235 lappend glflags $arg
236 }
238 # Line-log with 'stuck' argument (unstuck form is
239 # not supported)
243 lappend glflags $arg
244 }
246 # This appears to be the only one that has a value as a
247 # separate word following it
250 lappend glflags $arg
251 }
253 lappend revargs $arg
254 }
257 # git rev-parse doesn't understand --merge
258 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
259 }
262 }
264 # Other flag arguments including -<n>
268 # a flag argument that we don't recognize;
269 # that means we can't optimize
271 }
272 lappend glflags $arg
273 }
274 default {
275 # Non-flag arguments specify commits or ranges of commits
277 lappend revargs --gitk-symmetric-diff-marker
278 }
279 lappend revargs $arg
280 }
281 }
282 }
289 }
292 global vposids vnegids
295 set revs HEAD
297 lappend revs HEAD
298 }
300 # we get stdout followed by stderr in $err
301 # for an unknown rev, git rev-parse echoes it and then errors out
314 }
317 }
318 break
319 }
320 lappend badrev $line
321 }
322 }
325 }
335 lappend ret $id
338 }
339 }
343 lappend ret $id
346 }
347 lappend pos $id
348 }
349 incr sdm -1
350 }
354 }
356 # Escapes a list of filter paths to be passed to git log via stdin. Note that
357 # paths must not be quoted.
362 }
364 }
366 # Start off a git log process and arrange to read its output
368 global startmsecs commitidx viewcomplete curview
369 global tclencoding
370 global viewargs viewargscmd viewfiles vfilelimit
371 global showlocalchanges
372 global viewactive viewinstances vmergeonly
373 global mainheadid viewmainheadid viewmainheadid_orig
374 global vcanopt vflags vrevs vorigargs
375 global show_notes
379 # these are set this way for the error exits
382 varcinit $view
391 }
393 }
400 global nr_unmerged
407 }
409 }
410 }
417 }
422 }
432 }
438 get_viewmainhead $view
439 }
442 }
446 }
452 }
455 global commfd leftover
458 catch {
465 }
466 }
468 nukefile $fd
471 }
473 proc stop_backends {} {
474 global commfd
477 stop_instance $inst
478 }
479 }
482 global viewinstances
485 stop_instance $inst
486 }
488 }
491 global pending_select mainheadid selectheadid
499 }
500 }
503 global canv curview need_redisplay viewactive
505 initlayout
507 reset_pending_select $selid
512 }
513 }
515 proc updatecommits {} {
516 global curview vcanopt vorigargs vfilelimit viewinstances
517 global viewactive viewcomplete tclencoding
518 global startmsecs showneartags showlocalchanges
519 global mainheadid viewmainheadid viewmainheadid_orig pending_select
520 global hasworktree
521 global varcid vposids vnegids vflags vrevs
522 global show_notes
525 rereadrefs
529 dohidelocalchanges
530 }
534 get_viewmainhead $view
535 }
536 }
538 doshowlocalchanges
539 }
545 return
546 }
547 # note: getting the delta when negative refs change is hard,
548 # and could require multiple git log invocations, so in that
549 # case we ask git log for all the commits (not just the delta)
553 # take out positive refs that we asked for before or
554 # that we have already seen
559 lappend newrevs $rev
560 incr npos
561 }
563 lappend $newrevs $rev
564 }
565 }
569 }
573 }
577 }
582 [escape_filter_paths \
586 return
587 }
590 }
596 }
600 reset_pending_select {}
603 getallcommits
604 }
605 }
607 proc reloadcommits {} {
608 global curview viewcomplete selectedline currentid thickerline
609 global showneartags treediffs commitinterest cached_commitrow
610 global targetid commitinfo
615 }
618 stop_rev_list $curview
619 }
620 resetvarcs $curview
622 unset -nocomplain currentid
623 unset -nocomplain thickerline
624 unset -nocomplain treediffs
625 readrefs
626 changedrefs
628 getallcommits
629 }
630 clear_display
631 unset -nocomplain commitinfo
632 unset -nocomplain commitinterest
633 unset -nocomplain cached_commitrow
634 unset -nocomplain targetid
635 setcanvscroll
636 getcommits $selid
638 }
640 # This makes a string representation of a positive integer which
641 # sorts as a string in numerical order
649 }
651 }
653 # Procedures used in reordering commits from git log (without
654 # --topo-order) into the order for display.
657 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
658 global vtokmod varcmod vrowmod varcix vlastins
672 }
675 global varcid varccommits parents children vseedcount ordertok
676 global vshortids
682 }
685 }
686 # some commits might have children but haven't been seen yet
689 }
692 }
695 }
696 unset -nocomplain ordertok
697 }
699 # returns a list of the commits with no children
701 global vdownptr vleftptr varcstart
708 }
710 }
713 global varcid varctok parents children vdatemode
714 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
715 global commitdata commitinfo vseedcount varccommits vlastins
722 }
726 }
729 }
735 }
744 }
745 }
750 }
757 }
761 }
768 }
774 }
783 }
786 global varcid varcstart varccommits varctok vtokmod
787 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
795 # "%" sorts before "0"...
805 }
815 }
817 modify_arc $v $oa
818 }
819 }
822 global parents children varctok varcstart varccommits
823 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
832 lappend todo $a
837 }
838 }
839 }
840 incr ntot
847 }
848 }
850 }
857 }
863 }
872 }
873 }
878 }
880 continue
881 }
888 }
889 }
894 modify_arc $v $ka
895 }
897 modify_arc $v $b
898 }
905 }
908 }
911 }
920 }
925 }
932 }
936 }
938 }
939 }
944 }
945 }
947 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
948 }
950 # Fix up the graph after we have found out that in view $v,
951 # $p (a commit that we have already seen) is actually the parent
952 # of the last commit in arc $a.
954 global varcid varcstart varctok vupptr
958 splitvarc $p $v
960 }
961 # seeds always need to be renumbered
965 renumbervarc $pa $v
966 }
967 }
970 global cmitlisted children parents varcid varctok vtokmod
971 global varccommits ordertok commitidx numcommits curview
972 global targetid targetrow vshortids
974 readcommit $id
983 modify_arc $v $a
984 }
989 unset -nocomplain ordertok
990 }
991 fix_reversal $p $a $v
995 setcanvscroll
998 incr targetrow
999 }
1000 }
1001 }
1002 }
1005 global varcid varccommits parents children cmitlisted
1006 global commitidx varctok vtokmod targetid targetrow curview numcommits
1013 return
1014 }
1021 # note we deliberately don't update varcstart($v) even if $i == 0
1023 modify_arc $v $a $i
1026 incr targetrow
1027 }
1028 }
1029 setcanvscroll
1030 drawvisible
1031 }
1034 global varcid varccommits parents children commitidx
1035 global varctok vtokmod cmitlisted currentid selectedline
1036 global targetid curview numcommits
1041 return
1042 }
1048 return
1049 }
1059 }
1060 modify_arc $v $a $i
1062 unset currentid
1064 }
1067 }
1068 setcanvscroll
1069 drawvisible
1070 }
1073 global children nullid nullid2
1078 lappend kids $id
1079 }
1080 }
1082 }
1085 global children nullid nullid2
1090 }
1091 }
1093 }
1096 global children nullid nullid2
1103 }
1104 }
1106 }
1109 global varctok varcid
1113 }
1115 # This assumes that if lim is not given, the caller has checked that
1116 # arc a's token is less than $vtokmod($v)
1118 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1126 }
1127 }
1134 }
1139 }
1141 }
1143 undolayout $r
1144 }
1145 }
1148 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1149 global varcid vrownum varcorder varcix varccommits
1150 global vupptr vdownptr vleftptr varctok
1151 global displayorder parentlist curview cached_commitrow
1158 }
1159 unset -nocomplain cached_commitrow
1160 }
1164 # go up the tree until we find something that has a row number,
1165 # or we get to a seed
1167 }
1182 }
1184 }
1188 # go down if possible
1191 # if not, go left, or go up until we can go left
1196 }
1198 }
1200 incr arcn
1205 }
1211 }
1212 }
1214 # Test whether view $v contains commit $id
1216 global varcid
1219 }
1221 # Return the row number for commit $id in the current view
1223 global varcid varccommits varcrow curview cached_commitrow
1224 global varctok vtokmod
1230 }
1233 update_arcrows $v
1234 }
1237 }
1242 }
1246 }
1248 # Returns 1 if a is on an earlier row than b, otherwise 0
1250 global varcid varctok curview
1256 }
1260 }
1262 }
1267 }
1279 }
1280 }
1282 }
1284 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1286 global vrownum curview commitidx displayorder parentlist
1287 global varccommits varcorder parents vrowmod varcrow
1288 global d_valid_start d_valid_end
1291 update_arcrows $curview
1292 }
1308 }
1310 lappend displayorder $id
1312 }
1316 lset displayorder $i $id
1318 incr i
1319 }
1320 }
1321 incr r $al
1322 }
1323 }
1326 global displayorder
1332 }
1334 }
1337 global varctok varccommits varcid parents children
1338 global cmitlisted commitidx vtokmod curview numcommits
1347 # add p as a new commit
1348 incr missing_parents
1356 }
1359 modify_arc $v $b
1360 }
1365 }
1367 }
1368 }
1372 }
1373 }
1374 }
1376 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1377 # Assumes we already have an arc for $rwid.
1379 global children parents varcid varctok vtokmod varccommits
1382 # make $rwid be $ch's parent in place of $id
1386 }
1388 # add $ch to $rwid's children and sort the list if necessary
1392 }
1393 # fix the graph after joining $id to $rwid
1395 fix_reversal $rwid $a $v
1396 # parentlist is wrong for the last element of arc $a
1397 # even if displayorder is right, hence the 3rd arg here
1399 }
1400 }
1402 # Mechanism for registering a command to be executed when we come
1403 # across a particular commit. To handle the case when only the
1404 # prefix of the commit is known, the commitinterest array is now
1405 # indexed by the first 4 characters of the ID. Each element is a
1406 # list of id, cmd pairs.
1408 global commitinterest
1411 }
1414 global commitinterest
1423 lappend newlist $i $script
1424 }
1425 }
1430 }
1431 }
1433 }
1436 global cmitlisted leftover
1437 global commitidx commitdata vdatemode
1438 global parents children curview hlview
1439 global idpending ordertok
1440 global varccommits varcid varctok vtokmod vfilelimit vshortids
1443 # git log doesn't terminate the last commit with a null...
1446 }
1450 }
1451 global commfd viewcomplete viewactive viewname
1452 global viewinstances
1457 }
1458 # set it blocking so we wait for the process to terminate
1464 }
1467 bad arguments to git log."
1469 append err \
1470 " (Note: arguments to gitk are passed to git log\
1471 to allow selection of commits to be displayed.)"
1472 }
1475 }
1476 error_popup $err
1477 }
1480 # Check if we have seen any ids listed as parents that haven't
1481 # appeared in the list
1482 closevarcs $view
1483 notbusy $view
1484 }
1486 run chewcommits
1487 }
1489 }
1497 break
1498 }
1505 }
1518 }
1520 }
1525 break
1526 }
1527 }
1528 }
1533 }
1535 exit 1
1536 }
1545 # when doing path limiting, so work around that here
1546 # by working out the rewritten parent with git rev-list
1547 # and if we already know about it, using the rewritten
1548 # parent as a substitute parent for $id's children.
1552 }]} {
1554 # use $rwid in place of $id
1555 rewrite_commit $view $id $rwid
1556 continue
1557 }
1558 }
1559 }
1565 }
1570 }
1582 }
1583 }
1585 # new arc
1587 }
1589 modify_arc $view $a
1590 }
1595 }
1605 unset -nocomplain ordertok
1606 }
1608 fix_reversal $p $a $view
1609 }
1610 }
1611 incr i
1612 }
1616 }
1618 global numcommits hlview
1622 run chewcommits
1623 }
1625 # we never actually get here...
1626 run vhighlightmore
1627 }
1630 }
1631 }
1633 }
1635 proc chewcommits {} {
1636 global curview hlview viewcomplete
1637 global pending_select
1639 layoutmore
1641 global commitidx varctok
1642 global numcommits startmsecs
1645 update
1646 reset_pending_select {}
1653 }
1654 }
1656 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1657 #puts "overall $ms ms for $numcommits commits"
1658 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1661 }
1662 notbusy layout
1663 }
1665 }
1668 global tclencoding
1670 # Invoke git-log to handle automatic encoding conversion
1672 # Read the results using i18n.logoutputencoding
1676 }
1678 close $fd
1679 # Remove the heading line
1683 }
1688 }
1691 global commitinfo
1702 # should never happen...
1704 }
1716 }
1717 }
1719 # take the first non-blank line of the comment as the headline
1724 }
1729 }
1731 # git log indents the comment by 4 spaces;
1732 # if we got this via git cat-file, add the indentation
1735 append newcomment " "
1736 append newcomment $line
1738 }
1740 }
1743 # If there is diff output shown in the git-log stream, split it
1744 # out. But get rid of the empty line that always precedes the
1745 # diff.
1750 }
1753 }
1756 global commitdata commitinfo
1761 readcommit $id
1764 }
1765 }
1767 }
1769 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1770 # and are present in the current view.
1771 # This is fairly slow...
1773 global varcid curview vshortids
1782 lappend ids $id
1784 }
1785 }
1786 }
1787 }
1792 }
1793 }
1795 }
1797 proc readrefs {} {
1798 global tagids idtags headids idheads tagobjid
1799 global otherrefids idotherrefs mainhead mainheadid
1800 global selecthead selectheadid
1801 global hideremotes
1802 global tclencoding
1806 }
1810 }
1821 }
1827 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1828 # which is what we want since the former is the commit ID
1834 }
1840 }
1841 }
1845 catch {
1850 }
1851 }
1854 catch {
1856 }
1857 }
1858 }
1860 # skip over fake commits
1861 proc first_real_row {} {
1862 global nullid nullid2 numcommits
1867 break
1868 }
1869 }
1871 }
1873 # update things for a head moved to a child of its previous location
1875 global headids idheads
1880 }
1882 # update things when a head has been removed
1884 global headids idheads
1892 }
1893 }
1895 }
1898 global use_ttk
1902 }
1904 }
1907 global have_tk85
1909 # In MacOS Tk 8.4 transient appears to work by setting
1910 # overrideredirect, which is utterly useless, since the
1911 # windows get no border, and are not even kept above
1912 # the parent.
1915 wm transient $window $origin
1917 # Windows fails to place transient windows normally, so
1918 # schedule a callback to center them on the parent.
1921 }
1922 }
1925 global NS
1936 tkwait window $top
1937 }
1944 set w .error
1945 ttk_toplevel $w
1946 make_transient $w $owner
1947 show_error $w $w $msg
1948 }
1949 }
1952 global confirm_ok NS
1954 set w .confirm
1955 ttk_toplevel $w
1956 make_transient $w $owner
1968 tkwait window $w
1970 }
1972 proc setoptions {} {
1973 global use_ttk
1977 option add *Panedwindow.sashRelief raised startupFile
1979 option add *Menu.font uifont startupFile
1980 }
1983 }
1984 option add *Button.font uifont startupFile
1985 option add *Checkbutton.font uifont startupFile
1986 option add *Radiobutton.font uifont startupFile
1987 option add *Menubutton.font uifont startupFile
1988 option add *Label.font uifont startupFile
1989 option add *Message.font uifont startupFile
1990 option add *Entry.font textfont startupFile
1991 option add *Text.font textfont startupFile
1992 option add *Labelframe.font uifont startupFile
1993 option add *Spinbox.font textfont startupFile
1994 option add *Listbox.font mainfont startupFile
1995 }
1997 proc setttkstyle {} {
2007 }
2009 # Make a menu and submenus.
2010 # m is the window name for the menu, items is the list of menu items to add.
2011 # Each item is a list {mc label type description options...}
2012 # mc is ignored; it's so we can put mc there to alert xgettext
2013 # label is the string that appears in the menu
2014 # type is cascade, command or radiobutton (should add checkbutton)
2015 # description depends on type; it's the sublist for cascade, the
2016 # command to invoke for command, or {variable value} for radiobutton
2018 menu $m
2020 set Meta1 Cmd
2022 set Meta1 Ctrl
2023 }
2034 }
2035 }
2040 }
2043 }
2047 }
2048 }
2054 }
2055 }
2056 }
2058 # translate string and remove ampersands
2061 }
2065 }
2067 global use_ttk
2073 }
2078 } else {
2080 }
2082 }
2084 proc makewindow {} {
2085 global canv canv2 canv3 linespc charspc ctext cflist cscroll
2086 global tabstop
2087 global findtype findtypemenu findloc findstring fstring geometry
2088 global entries sha1entry sha1string sha1but
2089 global diffcontextstring diffcontext
2090 global ignorespace
2091 global maincursor textcursor curtextcursor
2092 global rowctxmenu fakerowmenu mergemax wrapcomment
2093 global highlight_files gdttype
2094 global searchstring sstring
2095 global bgcolor fgcolor bglist fglist diffcolors diffbgcolors selectbgcolor
2096 global uifgcolor uifgdisabledcolor
2097 global filesepbgcolor filesepfgcolor
2098 global mergecolors foundbgcolor currentsearchhitbgcolor
2099 global headctxmenu progresscanv progressitem progresscoords statusw
2100 global fprogitem fprogcoord lastprogupdate progupdatepending
2101 global rprogitem rprogcoord rownumsel numcommits
2102 global have_tk85 use_ttk NS
2103 global git_version
2104 global worddiff
2106 # The "mc" arguments here are purely so that xgettext
2107 # sees the following string as needing to be translated
2108 set file {
2109 mc "&File" cascade {
2110 {mc "&Update" command updatecommits -accelerator F5}
2111 {mc "&Reload" command reloadcommits -accelerator Shift-F5}
2112 {mc "Reread re&ferences" command rereadrefs}
2113 {mc "&List references" command showrefs -accelerator F2}
2114 {xx "" separator}
2115 {mc "Start git &gui" command {exec git gui &}}
2116 {xx "" separator}
2117 {mc "&Quit" command doquit -accelerator Meta1-Q}
2118 }}
2119 set edit {
2120 mc "&Edit" cascade {
2121 {mc "&Preferences" command doprefs}
2122 }}
2123 set view {
2124 mc "&View" cascade {
2125 {mc "&New view..." command {newview 0} -accelerator Shift-F4}
2126 {mc "&Edit view..." command editview -state disabled -accelerator F4}
2127 {mc "&Delete view" command delview -state disabled}
2128 {xx "" separator}
2129 {mc "&All files" radiobutton {selectedview 0} -command {showview 0}}
2130 }}
2131 if {[tk windowingsystem] ne "aqua"} {
2132 set help {
2133 mc "&Help" cascade {
2134 {mc "&About gitk" command about}
2135 {mc "&Key bindings" command keys}
2136 }}
2138 } else {
2139 proc ::tk::mac::ShowPreferences {} {doprefs}
2140 proc ::tk::mac::Quit {} {doquit}
2142 set apple {
2143 xx "&Apple" cascade {
2144 {mc "&About gitk" command about}
2145 {xx "" separator}
2146 }}
2147 set help {
2148 mc "&Help" cascade {
2149 {mc "&Key bindings" command keys}
2150 }}
2152 }
2154 . configure -menu .bar
2157 # cover the non-themed toplevel with a themed frame.
2158 place [ttk::frame ._main_background] -x 0 -y 0 -relwidth 1 -relheight 1
2159 }
2161 # the gui has upper and lower half, parts of a paned window.
2164 # possibly use assumed geometry
2165 if {![info exists geometry(pwsash0)]} {
2172 }
2174 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2179 .tf.histframe.pwclist configure -sashpad 0 -handlesize 4
2180 }
2182 # create three canvases
2183 set cscroll .tf.histframe.csb
2184 set canv .tf.histframe.pwclist.canv
2190 set canv2 .tf.histframe.pwclist.canv2
2195 set canv3 .tf.histframe.pwclist.canv3
2201 bind .tf.histframe.pwclist <Map> {
2202 bind %W <Map> {}
2203 .tf.histframe.pwclist sashpos 1 [lindex $::geometry(pwsash1) 0]
2204 .tf.histframe.pwclist sashpos 0 [lindex $::geometry(pwsash0) 0]
2205 }
2206 } else {
2209 }
2211 # a scroll bar to rule them
2215 bind .tf.histframe.pwclist <Configure> {resizeclistpanes %W %w}
2217 pack .tf.histframe.pwclist -fill both -expand 1 -side left
2219 # we have two button bars at bottom of top frame. Bar 1
2223 set sha1entry .tf.bar.sha1
2225 set sha1but .tf.bar.sha1label
2227 -command gotocommit -width 8
2229 pack .tf.bar.sha1label -side left
2231 trace add variable sha1string write sha1change
2234 set bm_left_data {
2235 #define left_width 16
2236 #define left_height 16
2237 static unsigned char left_bits[] = {
2238 0x00, 0x00, 0xc0, 0x01, 0xe0, 0x00, 0x70, 0x00, 0x38, 0x00, 0x1c, 0x00,
2239 0x0e, 0x00, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x0e, 0x00, 0x1c, 0x00,
2240 0x38, 0x00, 0x70, 0x00, 0xe0, 0x00, 0xc0, 0x01};
2241 }
2242 set bm_right_data {
2243 #define right_width 16
2244 #define right_height 16
2245 static unsigned char right_bits[] = {
2246 0x00, 0x00, 0xc0, 0x01, 0x80, 0x03, 0x00, 0x07, 0x00, 0x0e, 0x00, 0x1c,
2247 0x00, 0x38, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x00, 0x38, 0x00, 0x1c,
2248 0x00, 0x0e, 0x00, 0x07, 0x80, 0x03, 0xc0, 0x01};
2249 }
2257 .tf.bar.leftbut configure -image [list bm-left disabled bm-left-gray]
2258 } else {
2259 .tf.bar.leftbut configure -image bm-left
2260 }
2261 pack .tf.bar.leftbut -side left -fill y
2264 .tf.bar.rightbut configure -image [list bm-right disabled bm-right-gray]
2265 } else {
2266 .tf.bar.rightbut configure -image bm-right
2267 }
2268 pack .tf.bar.rightbut -side left -fill y
2271 set rownumsel {}
2273 -relief sunken -anchor e
2276 -relief sunken -anchor e
2277 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2278 -side left
2281 }
2282 global selectedline
2283 trace add variable selectedline write selectedline_change
2285 # Status label and progress bar
2286 set statusw .tf.bar.status
2290 set progresscanv [ttk::progressbar .tf.bar.progress]
2291 } else {
2292 set h [expr {[font metrics uifont -linespace] + 2}]
2293 set progresscanv .tf.bar.progress
2298 }
2300 set progresscoords {0 0}
2301 set fprogcoord 0
2302 set rprogcoord 0
2304 set lastprogupdate [clock clicks -milliseconds]
2305 set progupdatepending 0
2307 # build up the bottom bar of upper window
2310 set bm_down_data {
2311 #define down_width 16
2312 #define down_height 16
2313 static unsigned char down_bits[] = {
2314 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2315 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2316 0x87, 0xe1, 0x8e, 0x71, 0x9c, 0x39, 0xb8, 0x1d,
2317 0xf0, 0x0f, 0xe0, 0x07, 0xc0, 0x03, 0x80, 0x01};
2318 }
2321 .tf.lbar.fnext configure -image bm-down
2323 set bm_up_data {
2324 #define up_width 16
2325 #define up_height 16
2326 static unsigned char up_bits[] = {
2327 0x80, 0x01, 0xc0, 0x03, 0xe0, 0x07, 0xf0, 0x0f,
2328 0xb8, 0x1d, 0x9c, 0x39, 0x8e, 0x71, 0x87, 0xe1,
2329 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2330 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01};
2331 }
2334 .tf.lbar.fprev configure -image bm-up
2338 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2339 -side left -fill y
2340 set gdttype [mc "containing:"]
2341 set gm [makedroplist .tf.lbar.gdttype gdttype \
2342 [mc "containing:"] \
2343 [mc "touching paths:"] \
2344 [mc "adding/removing string:"] \
2345 [mc "changing lines matching:"]]
2346 trace add variable gdttype write gdttype_change
2347 pack .tf.lbar.gdttype -side left -fill y
2349 set findstring {}
2350 set fstring .tf.lbar.findstring
2353 trace add variable findstring write find_change
2354 set findtype [mc "Exact"]
2355 set findtypemenu [makedroplist .tf.lbar.findtype \
2356 findtype [mc "Exact"] [mc "IgnCase"] [mc "Regexp"]]
2357 trace add variable findtype write findcom_change
2358 set findloc [mc "All fields"]
2359 makedroplist .tf.lbar.findloc findloc [mc "All fields"] [mc "Headline"] \
2360 [mc "Comments"] [mc "Author"] [mc "Committer"]
2361 trace add variable findloc write find_change
2362 pack .tf.lbar.findloc -side right
2363 pack .tf.lbar.findtype -side right
2366 # Finish putting the upper half of the viewer together
2367 pack .tf.lbar -in .tf -side bottom -fill x
2368 pack .tf.bar -in .tf -side bottom -fill x
2369 pack .tf.histframe -fill both -side top -expand 1
2370 .ctop add .tf
2374 }
2376 # now build up the bottom
2379 # lower left, a text box over search bar, scroll bar to the right
2380 # if we know window height, then that will set the lower text height, otherwise
2381 # we set lower text height which will drive window height
2382 if {[info exists geometry(main)]} {
2384 } else {
2386 }
2391 # gap between sub-widgets
2392 set wgap [font measure uifont "i"]
2395 pack .bleft.top.search -side left -padx 5
2396 set sstring .bleft.top.sstring
2397 set searchstring ""
2400 trace add variable searchstring write incrsearch
2403 -command changediffdisp -variable diffelide -value {0 0}
2405 -command changediffdisp -variable diffelide -value {0 1}
2407 -command changediffdisp -variable diffelide -value {1 0}
2411 spinbox .bleft.mid.diffcontext -width 5 \
2412 -from 0 -increment 1 -to 10000000 \
2413 -validate all -validatecommand "diffcontextvalidate %P" \
2414 -textvariable diffcontextstring
2416 trace add variable diffcontextstring write diffcontextchange
2417 lappend entries .bleft.mid.diffcontext
2420 -command changeignorespace -variable ignorespace
2421 pack .bleft.mid.ignspace -side left -padx 5
2423 set worddiff [mc "Line diff"]
2425 makedroplist .bleft.mid.worddiff worddiff [mc "Line diff"] \
2426 [mc "Markup words"] [mc "Color words"]
2427 trace add variable worddiff write changeworddiff
2428 pack .bleft.mid.worddiff -side left -padx 5
2429 }
2431 set ctext .bleft.bottom.ctext
2433 -state disabled -undo 0 -font textfont \
2434 -yscrollcommand scrolltext -wrap none \
2435 -xscrollcommand ".bleft.bottom.sbhorizontal set"
2438 }
2441 pack .bleft.top -side top -fill x
2442 pack .bleft.mid -side top -fill x
2444 grid .bleft.bottom.sbhorizontal -sticky ew
2445 grid columnconfigure .bleft.bottom 0 -weight 1
2446 grid rowconfigure .bleft.bottom 0 -weight 1
2447 grid rowconfigure .bleft.bottom 1 -weight 0
2448 pack .bleft.bottom -side top -fill both -expand 1
2476 set mergemax 16
2483 # set these to the lowest priority:
2490 .pwbottom add .bleft
2493 }
2495 # lower right
2499 -command reselectline -variable cmitmode -value "patch"
2501 -command reselectline -variable cmitmode -value "tree"
2502 grid .bright.mode.patch .bright.mode.tree -sticky ew
2503 pack .bright.mode -side top -fill x
2504 set cflist .bright.cfiles
2505 set indent [font measure mainfont "nn"]
2509 -font mainfont \
2511 -yscrollcommand ".bright.sb set" \
2512 -cursor [. cget -cursor] \
2513 -spacing1 1 -spacing3 1
2517 pack .bright.sb -side right -fill y
2523 .pwbottom add .bright
2524 .ctop add .pwbottom
2526 # restore window width & height if known
2527 if {[info exists geometry(main)]} {
2530 set w [winfo screenwidth .]
2531 }
2533 set h [winfo screenheight .]
2534 }
2536 }
2537 }
2541 }
2543 if {[tk windowingsystem] eq {aqua}} {
2544 set M1B M1
2545 set ::BM "3"
2546 } else {
2547 set M1B Control
2548 set ::BM "2"
2549 }
2552 bind .ctop <Map> {
2553 bind %W <Map> {}
2554 %W sashpos 0 $::geometry(topheight)
2555 }
2556 bind .pwbottom <Map> {
2557 bind %W <Map> {}
2558 %W sashpos 0 $::geometry(botwidth)
2559 }
2560 bind .pwbottom <Configure> {resizecdetpanes %W %w}
2561 }
2563 pack .ctop -fill both -expand 1
2564 bindall <1> {selcanvline %W %x %y}
2565 #bindall <B1-Motion> {selcanvline %W %x %y}
2566 if {[tk windowingsystem] == "win32"} {
2567 bind . <MouseWheel> { windows_mousewheel_redirector %W %X %Y %D }
2569 } else {
2570 bindall <ButtonRelease-4> "allcanvs yview scroll -5 units"
2571 bindall <ButtonRelease-5> "allcanvs yview scroll 5 units"
2573 if {"%b" eq 6} {
2575 } elseif {"%b" eq 7} {
2577 }
2578 }
2579 if {[tk windowingsystem] eq "aqua"} {
2580 bindall <MouseWheel> {
2581 set delta [expr {- (%D)}]
2583 }
2584 bindall <Shift-MouseWheel> {
2585 set delta [expr {- (%D)}]
2587 }
2588 }
2589 }
2590 bindall <$::BM> "canvscan mark %W %x %y"
2591 bindall <B$::BM-Motion> "canvscan dragto %W %x %y"
2594 bindkey <Home> selfirstline
2595 bindkey <End> sellastline
2596 bind . <Key-Up> "selnextline -1"
2597 bind . <Key-Down> "selnextline 1"
2598 bind . <Shift-Key-Up> "dofind -1 0"
2599 bind . <Shift-Key-Down> "dofind 1 0"
2600 bindkey <Key-Right> "goforw"
2601 bindkey <Key-Left> "goback"
2602 bind . <Key-Prior> "selnextpage -1"
2603 bind . <Key-Next> "selnextpage 1"
2613 bindkey p "selnextline -1"
2614 bindkey n "selnextline 1"
2615 bindkey z "goback"
2616 bindkey x "goforw"
2617 bindkey k "selnextline -1"
2618 bindkey j "selnextline 1"
2619 bindkey h "goback"
2620 bindkey l "goforw"
2621 bindkey b prevfile
2627 bindkey <Key-Return> {dofind 1 1}
2628 bindkey ? {dofind -1 1}
2629 bindkey f nextfile
2630 bind . <F5> updatecommits
2631 bindmodfunctionkey Shift 5 reloadcommits
2632 bind . <F2> showrefs
2633 bindmodfunctionkey Shift 4 {newview 0}
2634 bind . <F4> edit_or_newview
2645 wm protocol . WM_DELETE_WINDOW doquit
2646 bind . <Destroy> {stop_backends}
2647 bind . <Button-1> "click %W"
2655 global ctxbut
2662 }
2664 set maincursor [. cget -cursor]
2668 set rowctxmenu .rowctxmenu
2670 {mc "Diff this -> selected" command {diffvssel 0}}
2671 {mc "Diff selected -> this" command {diffvssel 1}}
2672 {mc "Make patch" command mkpatch}
2673 {mc "Create tag" command mktag}
2674 {mc "Copy commit reference" command copyreference}
2675 {mc "Write commit to file" command writecommit}
2676 {mc "Create new branch" command mkbranch}
2677 {mc "Cherry-pick this commit" command cherrypick}
2678 {mc "Reset HEAD branch to here" command resethead}
2679 {mc "Mark this commit" command markhere}
2680 {mc "Return to mark" command gotomark}
2681 {mc "Find descendant of this and mark" command find_common_desc}
2682 {mc "Compare with marked commit" command compare_commits}
2683 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2684 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2685 {mc "Revert this commit" command revert}
2686 }
2689 set fakerowmenu .fakerowmenu
2691 {mc "Diff this -> selected" command {diffvssel 0}}
2692 {mc "Diff selected -> this" command {diffvssel 1}}
2693 {mc "Make patch" command mkpatch}
2694 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2695 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2696 }
2699 set headctxmenu .headctxmenu
2701 {mc "Check out this branch" command cobranch}
2702 {mc "Rename this branch" command mvbranch}
2703 {mc "Remove this branch" command rmbranch}
2705 }
2708 global flist_menu
2709 set flist_menu .flistctxmenu
2711 {mc "Highlight this too" command {flist_hl 0}}
2712 {mc "Highlight this only" command {flist_hl 1}}
2713 {mc "External diff" command {external_diff}}
2714 {mc "Blame parent commit" command {external_blame 1}}
2716 }
2719 global diff_menu
2720 set diff_menu .diffctxmenu
2722 {mc "Show origin of this line" command show_line_source}
2723 {mc "Run git gui blame on this line" command {external_blame_diff}}
2724 }
2726 }
2728 # Windows sends all mouse wheel events to the current focused window, not
2729 # the one where the mouse hovers, so bind those events here and redirect
2730 # to the correct window
2731 proc windows_mousewheel_redirector {W X Y D} {
2732 global canv canv2 canv3
2738 } else {
2739 catch {
2741 }
2742 }
2743 }
2744 }
2746 # Update row number label when selectedline changes
2747 proc selectedline_change {n1 n2 op} {
2748 global selectedline rownumsel
2751 set rownumsel {}
2752 } else {
2754 }
2755 }
2757 # mouse-2 makes all windows scan vertically, but only the one
2758 # the cursor is in scans horizontally
2759 proc canvscan {op w x y} {
2760 global canv canv2 canv3
2764 } else {
2766 }
2767 }
2768 }
2770 proc scrollcanv {cscroll f0 f1} {
2772 drawvisible
2773 flushhighlights
2774 }
2776 # when we make a key binding for the toplevel, make sure
2777 # it doesn't get triggered when that key is pressed in the
2778 # find string entry widget.
2779 proc bindkey {ev script} {
2780 global entries
2784 set escript [bind Entry <Key>]
2785 }
2788 }
2789 }
2791 proc bindmodfunctionkey {mod n script} {
2794 }
2796 # set the focus back to the toplevel for any click outside
2797 # the entry widgets
2798 proc click {w} {
2799 global ctext entries
2802 }
2803 focus .
2804 }
2806 # Adjust the progress bar for a change in requested extent or canvas size
2807 proc adjustprogress {} {
2808 global progresscanv progressitem progresscoords
2809 global fprogitem fprogcoord lastprogupdate progupdatepending
2810 global rprogitem rprogcoord use_ttk
2814 return
2815 }
2824 set now [clock clicks -milliseconds]
2826 set progupdatepending 0
2827 update
2829 set progupdatepending 1
2831 }
2832 }
2834 proc doprogupdate {} {
2835 global lastprogupdate progupdatepending
2838 set progupdatepending 0
2839 set lastprogupdate [clock clicks -milliseconds]
2840 update
2841 }
2842 }
2844 proc config_check_tmp_exists {tries_left} {
2845 global config_file_tmp
2848 incr tries_left -1
2851 } else {
2853 file, which will prevent gitk from saving its configuration on exit.\
2854 Please remove it if it is not being used by any existing gitk process."
2855 }
2856 }
2857 }
2859 proc config_init_trace {name} {
2860 global config_variable_changed config_variable_original
2865 }
2867 proc config_variable_change_cb {name name2 op} {
2868 global config_variable_changed config_variable_original
2875 }
2876 }
2878 proc savestuff {w} {
2879 global stuffsaved
2880 global config_file config_file_tmp
2881 global config_variables config_variable_changed
2882 global viewchanged
2884 upvar #0 viewname current_viewname
2885 upvar #0 viewfiles current_viewfiles
2886 upvar #0 viewargs current_viewargs
2887 upvar #0 viewargscmd current_viewargscmd
2888 upvar #0 viewperm current_viewperm
2889 upvar #0 nextviewnum current_nextviewnum
2890 upvar #0 use_ttk current_use_ttk
2893 if {![winfo viewable .]} return
2894 set remove_tmp 0
2895 if {[catch {
2896 set try_count 0
2898 if {[incr try_count] > 50} {
2900 }
2901 after 100
2902 }
2903 set remove_tmp 1
2904 if {$::tcl_platform(platform) eq {windows}} {
2906 }
2909 }
2915 } else {
2917 }
2918 }
2927 } else {
2930 }
2934 array set view_save {}
2935 array set views {}
2936 if {![info exists permviews]} { set permviews {} }
2940 }
2945 set views($current_viewname($v)) [list $current_viewname($v) $current_viewfiles($v) $current_viewargs($v) $current_viewargscmd($v)]
2946 } else {
2948 }
2949 }
2950 }
2951 # write old and updated view to their places and append remaining to the end
2956 }
2958 }
2959 foreach view_name [array names views] {
2961 }
2965 set remove_tmp 0
2966 } err]} {
2968 }
2971 }
2972 set stuffsaved 1
2973 }
2975 proc resizeclistpanes {win w} {
2976 global oldwidth oldsash use_ttk
2984 } else {
2987 }
2991 } else {
2996 set sash0 30
2997 }
3000 }
3005 }
3006 }
3007 }
3011 } else {
3016 }
3018 }
3020 }
3022 proc resizecdetpanes {win w} {
3023 global oldwidth oldsash use_ttk
3029 } else {
3031 }
3034 } else {
3038 set sash0 45
3039 }
3042 }
3043 }
3046 } else {
3049 }
3051 }
3053 }
3055 proc allcanvs args {
3056 global canv canv2 canv3
3060 }
3062 proc bindall {event action} {
3063 global canv canv2 canv3
3067 }
3069 proc about {} {
3070 global bgcolor NS
3071 set w .about
3074 return
3075 }
3080 Gitk - a commit viewer for git
3082 Copyright \u00a9 2005-2016 Paul Mackerras
3084 Use and redistribute under the terms of the GNU General Public License"] \
3093 }
3095 proc keys {} {
3096 global bgcolor NS
3097 set w .keys
3100 return
3101 }
3102 if {[tk windowingsystem] eq {aqua}} {
3103 set M1T Cmd
3104 } else {
3105 set M1T Ctrl
3106 }
3111 [mc "Gitk key bindings:"]
3115 [mc "<Home> Move to first commit"]
3116 [mc "<End> Move to last commit"]
3117 [mc "<Up>, p, k Move up one commit"]
3118 [mc "<Down>, n, j Move down one commit"]
3119 [mc "<Left>, z, h Go back in history list"]
3120 [mc "<Right>, x, l Go forward in history list"]
3122 [mc "<PageUp> Move up one page in commit list"]
3123 [mc "<PageDown> Move down one page in commit list"]
3130 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
3131 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
3132 [mc "<Delete>, b Scroll diff view up one page"]
3133 [mc "<Backspace> Scroll diff view up one page"]
3134 [mc "<Space> Scroll diff view down one page"]
3135 [mc "u Scroll diff view up 18 lines"]
3136 [mc "d Scroll diff view down 18 lines"]
3139 [mc "<Return> Move to next find hit"]
3140 [mc "g Go to commit"]
3141 [mc "/ Focus the search box"]
3142 [mc "? Move to previous find hit"]
3143 [mc "f Scroll diff view to next file"]
3150 [mc "<F5> Update"]
3151 " \
3160 }
3162 # Procedures for manipulating the file list window at the
3163 # bottom right of the overall window.
3165 proc treeview {w l openlevs} {
3166 global treecontents treediropen treeheight treeparent treeindex
3168 set ix 0
3169 set treeindex() 0
3170 set lev 0
3171 set prefix {}
3172 set prefixend -1
3173 set prefendstack {}
3174 set htstack {}
3175 set ht 0
3176 set treecontents() {}
3183 }
3190 incr lev -1
3191 }
3195 set ht 0
3207 set ht 1
3212 set str "\n"
3220 }
3221 incr lev
3222 }
3225 incr ht
3226 set str "\n"
3230 }
3232 }
3233 }
3241 }
3243 }
3245 proc linetoelt {l} {
3246 global treeheight treecontents
3248 set y 2
3249 set prefix {}
3250 while {1} {
3254 }
3255 set n 1
3260 incr y
3261 break
3262 }
3263 }
3265 }
3266 }
3267 }
3269 proc highlight_tree {y prefix} {
3270 global treeheight treecontents cflist
3276 }
3277 incr y
3280 }
3281 }
3283 }
3285 proc treeclosedir {w dir} {
3286 global treediropen treeheight treeparent treeindex
3298 }
3299 }
3301 proc treeopendir {w dir} {
3302 global treediropen treeheight treeparent treecontents treeindex
3309 set lev 0
3310 set str "\n"
3313 incr lev
3314 append str "\t"
3316 }
3331 } else {
3334 }
3335 }
3348 }
3350 }
3351 }
3353 proc treeclick {w x y} {
3354 global treediropen cmitmode ctext cflist cflist_top
3357 if {![info exists cflist_top]} return
3364 return
3365 }
3371 } else {
3373 }
3374 }
3376 proc setfilelist {id} {
3377 global treefilelist cflist jump_to_here
3384 }
3385 }
3386 }
3388 image create bitmap tri-rt -background black -foreground blue -data {
3389 #define tri-rt_width 13
3390 #define tri-rt_height 13
3391 static unsigned char tri-rt_bits[] = {
3392 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3393 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3394 0x00, 0x00};
3395 } -maskdata {
3396 #define tri-rt-mask_width 13
3397 #define tri-rt-mask_height 13
3398 static unsigned char tri-rt-mask_bits[] = {
3399 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3400 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3401 0x08, 0x00};
3402 }
3403 image create bitmap tri-dn -background black -foreground blue -data {
3404 #define tri-dn_width 13
3405 #define tri-dn_height 13
3406 static unsigned char tri-dn_bits[] = {
3407 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3408 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3409 0x00, 0x00};
3410 } -maskdata {
3411 #define tri-dn-mask_width 13
3412 #define tri-dn-mask_height 13
3413 static unsigned char tri-dn-mask_bits[] = {
3414 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3415 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3416 0x00, 0x00};
3417 }
3419 image create bitmap reficon-T -background black -foreground yellow -data {
3420 #define tagicon_width 13
3421 #define tagicon_height 9
3422 static unsigned char tagicon_bits[] = {
3423 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3424 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3425 } -maskdata {
3426 #define tagicon-mask_width 13
3427 #define tagicon-mask_height 9
3428 static unsigned char tagicon-mask_bits[] = {
3429 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3430 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3431 }
3432 set rectdata {
3433 #define headicon_width 13
3434 #define headicon_height 9
3435 static unsigned char headicon_bits[] = {
3436 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3437 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3438 }
3439 set rectmask {
3440 #define headicon-mask_width 13
3441 #define headicon-mask_height 9
3442 static unsigned char headicon-mask_bits[] = {
3443 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3444 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3445 }
3446 image create bitmap reficon-H -background black -foreground "#00ff00" \
3448 image create bitmap reficon-R -background black -foreground "#ffddaa" \
3450 image create bitmap reficon-o -background black -foreground "#ddddff" \
3453 proc init_flist {first} {
3454 global cflist cflist_top difffilestart
3460 set cflist_top 1
3462 } else {
3463 unset -nocomplain cflist_top
3464 }
3466 set difffilestart {}
3467 }
3469 proc highlight_tag {f} {
3470 global highlight_paths
3474 return "bold"
3475 }
3476 }
3477 return {}
3478 }
3480 proc highlight_filelist {} {
3481 global cmitmode cflist
3490 }
3491 }
3492 } else {
3493 highlight_tree 2 {}
3494 }
3496 }
3498 proc unhighlight_filelist {} {
3499 global cflist
3504 }
3506 proc add_flist {fl} {
3507 global cflist
3513 }
3515 }
3517 proc sel_flist {w x y} {
3518 global ctext difffilestart cflist cflist_top cmitmode
3521 if {![info exists cflist_top]} return
3528 } else {
3530 }
3531 suppress_highlighting_file_for_current_scrollpos
3532 }
3534 proc pop_flist_menu {w X Y x y} {
3535 global ctext cflist cmitmode flist_menu flist_menu_file
3536 global treediffs diffids
3538 stopfinding
3544 } else {
3546 }
3548 set xdiffstate "normal"
3550 set xdiffstate "disabled"
3551 }
3552 # Disable "External diff" item in tree mode
3555 }
3557 proc find_ctext_fileinfo {line} {
3558 global ctext_file_names ctext_file_lines
3564 return {}
3565 } else {
3567 }
3568 }
3570 proc pop_diff_menu {w X Y x y} {
3571 global ctext diff_menu flist_menu_file
3572 global diff_menu_txtpos diff_menu_line
3573 global diff_menu_filebase
3577 # don't pop up the menu on hunk-separator or file-separator lines
3579 return
3580 }
3581 stopfinding
3587 }
3589 proc flist_hl {only} {
3590 global flist_menu_file findstring gdttype
3595 } else {
3597 }
3598 set gdttype [mc "touching paths:"]
3599 }
3601 proc gitknewtmpdir {} {
3602 global diffnum gitktmpdir gitdir env
3604 if {![info exists gitktmpdir]} {
3605 if {[info exists env(GITK_TMPDIR)]} {
3607 } elseif {[info exists env(TMPDIR)]} {
3609 } else {
3611 }
3615 }
3618 unset gitktmpdir
3619 return {}
3620 }
3621 set diffnum 0
3622 }
3623 incr diffnum
3627 return {}
3628 }
3630 }
3632 proc save_file_from_commit {filename output what} {
3633 global nullfile
3638 }
3640 return {}
3641 }
3643 }
3645 proc external_diff_get_one_file {diffid filename diffdir} {
3646 global nullid nullid2 nullfile
3647 global worktree
3653 }
3655 }
3659 }
3663 }
3665 proc external_diff {} {
3666 global nullid nullid2
3667 global flist_menu_file
3668 global diffids
3669 global extdifftool
3672 # no reference commit given
3675 # diffing working copy with index
3678 # diffing index with HEAD
3679 set diffidfrom "HEAD"
3680 } else {
3681 # use first parent commit
3682 global parentlist selectedline
3684 }
3685 } else {
3688 }
3690 # make sure that several diffs wont collide
3691 set diffdir [gitknewtmpdir]
3694 # gather files to diff
3703 } else {
3706 }
3707 }
3708 }
3710 proc find_hunk_blamespec {base line} {
3711 global ctext
3713 # Find and parse the hunk header
3719 s_line old_specs osz osz1 new_line nsz]} {
3720 return
3721 }
3723 # base lines for the parents
3727 old_spec old_line osz]} {
3728 return
3729 }
3731 }
3733 # Now scan the lines to determine offset within the hunk
3735 set dline 0
3738 # Determine if the line is removed
3742 # Choose a parent index
3745 } else {
3749 } else {
3750 # blame the current commit
3751 set parent -1
3752 }
3753 }
3754 # then count other lines that belong to it
3757 # Determine if the line is removed
3762 incr dline
3763 }
3764 } else {
3766 incr dline
3767 }
3768 }
3769 }
3770 incr parent
3771 } else {
3772 set parent 0
3773 }
3777 }
3779 proc external_blame_diff {} {
3780 global currentid cmitmode
3781 global diff_menu_txtpos diff_menu_line
3782 global diff_menu_filebase flist_menu_file
3785 set parent_idx 0
3787 } else {
3792 } else {
3793 set parent_idx 0
3794 set line 0
3795 }
3796 }
3799 }
3802 # at stage 0 or 2
3803 proc index_sha1 {fname} {
3811 }
3812 }
3814 return {}
3815 }
3817 # Turn an absolute path into one relative to the current directory
3818 proc make_relative {f} {
3821 }
3823 set here [file split [pwd]]
3824 set ei 0
3825 set hi 0
3826 set res {}
3829 lappend res ".."
3830 } else {
3831 incr ei
3832 }
3833 incr hi
3834 }
3837 }
3839 proc external_blame {parent_idx {line {}}} {
3840 global flist_menu_file cdup
3841 global nullid nullid2
3842 global parentlist selectedline currentid
3846 } else {
3848 }
3851 error_popup [mc "No such commit"]
3852 return
3853 }
3855 set cmdline [list git gui blame]
3858 }
3860 # Unfortunately it seems git gui blame doesn't like
3861 # being given an absolute path...
3866 }
3867 }
3869 proc show_line_source {} {
3870 global cmitmode currentid parents curview blamestuff blameinst
3871 global diff_menu_line diff_menu_filebase flist_menu_file
3872 global nullid nullid2 gitdir cdup
3874 set from_index {}
3878 } else {
3884 return
3885 }
3886 incr pi -1
3889 # must be a merge in progress...
3890 if {[catch {
3891 # get the last line from .git/MERGE_HEAD
3895 } err]} {
3897 return
3898 }
3900 # need to do the blame from the index
3901 if {[catch {
3903 } err]} {
3905 return
3906 }
3907 } else {
3909 }
3910 } else {
3912 }
3914 }
3915 set blameargs {}
3918 }
3921 lappend blameargs --contents -
3922 } else {
3924 }
3926 if {[catch {
3928 } err]} {
3930 return
3931 }
3932 nowbusy blaming [mc "Searching"]
3938 }
3940 proc stopblaming {} {
3941 global blameinst
3943 if {[info exists blameinst]} {
3945 unset blameinst
3946 notbusy blaming
3947 }
3948 }
3950 proc read_line_source {fd inst} {
3951 global blamestuff curview commfd blameinst nullid nullid2
3955 }
3957 return 1
3958 }
3960 unset blameinst
3961 notbusy blaming
3965 return 0
3966 }
3968 set fname {}
3974 # look for "filename" line
3978 break
3979 }
3980 }
3981 }
3983 # all looks good, select it
3985 # blame uses all-zeroes to mean not committed,
3986 # which would mean a change in the index
3988 }
3991 } else {
3992 error_popup [mc "That line comes from commit %s, \
3994 }
3995 } else {
3996 puts "oops couldn't parse git blame output"
3997 }
3998 return 0
3999 }
4002 proc delete_at_eof {f dir} {
4007 }
4009 return 0
4010 }
4011 return 1
4012 }
4014 # Functions for adding and removing shell-type quoting
4016 proc shellquote {str} {
4019 }
4022 }
4025 }
4027 }
4029 proc shellarglist {l} {
4030 set str {}
4033 append str " "
4034 }
4036 }
4038 }
4040 proc shelldequote {str} {
4041 set ret {}
4042 set used -1
4043 while {1} {
4044 incr used
4048 break
4049 }
4055 }
4057 incr used
4061 error "unmatched single-quote"
4062 }
4065 continue
4066 }
4069 error "trailing backslash"
4070 }
4072 continue
4073 }
4074 # here ch == "\""
4075 while {1} {
4077 error "unmatched double-quote"
4078 }
4084 }
4086 incr used
4088 incr used
4089 }
4090 }
4092 }
4094 proc shellsplit {str} {
4095 set l {}
4096 while {1} {
4104 }
4106 }
4108 proc set_window_title {} {
4109 global appname curview viewname vrevs
4110 set rev [mc "All files"]
4114 } else {
4116 }
4117 }
4119 }
4121 # Code to implement multiple views
4123 proc newview {ishighlight} {
4124 global nextviewnum newviewname newishighlight
4125 global revtreeargs viewargscmd newviewopts curview
4128 set top .gitkview
4131 return
4132 }
4138 }
4140 set known_view_options {
4141 {perm b . {} {mc "Remember this view"}}
4142 {reflabel l + {} {mc "References (space separated list):"}}
4143 {refs t15 .. {} {mc "Branches & tags:"}}
4144 {allrefs b *. "--all" {mc "All refs"}}
4145 {branches b . "--branches" {mc "All (local) branches"}}
4146 {tags b . "--tags" {mc "All tags"}}
4147 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
4148 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
4149 {author t15 .. "--author=*" {mc "Author:"}}
4150 {committer t15 . "--committer=*" {mc "Committer:"}}
4151 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
4152 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
4153 {igrep b .. "--invert-grep" {mc "Matches no Commit Info criteria"}}
4154 {changes_l l + {} {mc "Changes to Files:"}}
4155 {pickaxe_s r0 . {} {mc "Fixed String"}}
4156 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
4157 {pickaxe t15 .. "-S*" {mc "Search string:"}}
4158 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
4159 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
4160 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
4161 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
4162 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
4163 {skip t10 . "--skip=*" {mc "Number to skip:"}}
4164 {misc_lbl l + {} {mc "Miscellaneous options:"}}
4165 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
4166 {lright b . "--left-right" {mc "Mark branch sides"}}
4167 {first b . "--first-parent" {mc "Limit to first parent"}}
4168 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
4169 {args t50 *. {} {mc "Additional arguments to git log:"}}
4170 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
4171 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
4172 }
4175 proc encode_view_opts {n} {
4176 global known_view_options newviewopts
4178 set rargs [list]
4188 }
4194 }
4195 } else {
4201 }
4202 }
4203 }
4206 }
4209 proc decode_view_opts {n view_args} {
4210 global known_view_options newviewopts
4215 # Checkboxes
4216 set val 0
4218 # Radiobuttons
4220 set val 0
4221 } else {
4222 # Text fields
4223 set val {}
4224 }
4226 }
4227 set oargs [list]
4228 set refargs [list]
4231 && ![info exists found(limit)]} {
4233 set found(limit) 1
4234 continue
4235 }
4236 catch { unset val }
4243 # Check buttons
4244 set val 1
4246 # Radio buttons
4249 } else {
4250 # Text input fields
4253 }
4256 break
4257 }
4258 if {[info exists val]} break
4259 }
4260 if {[info exists val]} continue
4263 } else {
4265 }
4266 }
4269 }
4271 proc edit_or_newview {} {
4272 global curview
4275 editview
4276 } else {
4277 newview 0
4278 }
4279 }
4281 proc editview {} {
4282 global curview
4283 global viewname viewperm newviewname newviewopts
4284 global viewargs viewargscmd
4289 return
4290 }
4296 }
4298 proc vieweditor {top n title} {
4299 global newviewname newviewopts viewfiles bgcolor
4300 global known_view_options NS
4306 # View name
4314 # View options
4316 set cexpand 0
4317 set cnt 0
4323 set lxpad 0
4327 incr cnt
4333 incr cnt
4337 } else {
4338 set lxpad 5
4339 }
4373 }
4376 }
4378 }
4379 }
4394 }
4396 proc doviewmenu {m first cmd op argv} {
4401 break
4402 }
4403 }
4404 }
4406 proc allviewmenus {n op args} {
4407 # global viewhlmenu
4411 }
4413 proc newviewok {top n {apply 0}} {
4414 global nextviewnum newviewperm newviewname newishighlight
4415 global viewname viewfiles viewperm viewchanged selectedview curview
4416 global viewargs viewargscmd newviewopts viewhlmenu
4418 if {[catch {
4420 } err]} {
4422 return
4423 }
4424 set files {}
4429 }
4430 }
4432 # creating a new view
4433 incr nextviewnum
4443 } else {
4445 }
4446 } else {
4447 # editing an existing view
4456 }
4463 run reloadcommits
4464 }
4465 }
4466 }
4469 }
4471 proc delview {} {
4472 global curview viewperm hlview selectedhlview viewchanged
4476 set selectedhlview [mc "None"]
4477 unset hlview
4478 }
4482 showview 0
4483 }
4485 proc addviewmenu {n} {
4486 global viewname viewhlmenu
4492 }
4494 proc showview {n} {
4495 global curview cached_commitrow ordertok
4496 global displayorder parentlist rowidlist rowisopt rowfinal
4497 global colormap rowtextx nextcolor canvxmax
4498 global numcommits viewcomplete
4499 global selectedline currentid canv canvy0
4500 global treediffs
4501 global pending_select mainheadid
4502 global commitidx
4503 global selectedview
4504 global hlview selectedhlview commitinterest
4507 set selid {}
4518 }
4519 } elseif {[info exists pending_select]} {
4521 unset pending_select
4522 }
4523 unselectline
4524 normalline
4525 unset -nocomplain treediffs
4526 clear_display
4528 unset hlview
4529 set selectedhlview [mc "None"]
4530 }
4531 unset -nocomplain commitinterest
4532 unset -nocomplain cached_commitrow
4533 unset -nocomplain ordertok
4540 run refill_reflist
4543 return
4544 }
4546 set displayorder {}
4547 set parentlist {}
4548 set rowidlist {}
4549 set rowisopt {}
4550 set rowfinal {}
4553 unset -nocomplain colormap
4554 unset -nocomplain rowtextx
4555 set nextcolor 0
4558 set row 0
4559 setcanvscroll
4560 set yf 0
4561 set row {}
4564 # try to get the selected row in the same position on the screen
4568 set ytop 0
4569 }
4571 }
4573 drawvisible
4578 } else {
4579 reset_pending_select {}
4583 } else {
4584 set row [first_real_row]
4587 }
4588 }
4589 }
4592 show_status [mc "Reading commits..."]
4593 }
4595 show_status [mc "No commits selected"]
4596 }
4597 set_window_title
4598 }
4600 # Stuff relating to the highlighting facility
4602 proc ishighlighted {id} {
4603 global vhighlights fhighlights nhighlights rhighlights
4607 }
4610 }
4613 }
4616 }
4617 return 0
4618 }
4620 proc bolden {id font} {
4621 global canv linehtag currentid boldids need_redisplay markedid
4623 # need_redisplay = 1 means the display is stale and about to be redrawn
4630 -outline {{}} -tags secsel \
4633 }
4636 }
4637 }
4639 proc bolden_name {id font} {
4640 global canv2 linentag currentid boldnameids need_redisplay
4648 -outline {{}} -tags secsel \
4651 }
4652 }
4654 proc unbolden {} {
4655 global boldids
4657 set stillbold {}
4661 } else {
4663 }
4664 }
4666 }
4668 proc addvhighlight {n} {
4669 global hlview viewcomplete curview vhl_done commitidx
4671 if {[info exists hlview]} {
4672 delvhighlight
4673 }
4677 }
4680 drawvisible
4681 }
4682 }
4684 proc delvhighlight {} {
4685 global hlview vhighlights
4687 if {![info exists hlview]} return
4688 unset hlview
4689 unset -nocomplain vhighlights
4690 unbolden
4691 }
4693 proc vhighlightmore {} {
4694 global hlview vhl_done commitidx vhighlights curview
4697 set vr [visiblerows]
4707 }
4709 }
4710 }
4711 }
4713 return 0
4714 }
4716 proc askvhighlight {row id} {
4717 global hlview vhighlights iddrawn
4722 }
4724 } else {
4726 }
4727 }
4729 proc hfiles_change {} {
4730 global highlight_files filehighlight fhighlights fh_serial
4731 global highlight_paths
4733 if {[info exists filehighlight]} {
4734 # delete previous highlights
4736 unset filehighlight
4737 unset -nocomplain fhighlights
4738 unbolden
4739 unhighlight_filelist
4740 }
4741 set highlight_paths {}
4743 incr fh_serial
4746 }
4747 }
4749 proc gdttype_change {name ix op} {
4750 global gdttype highlight_files findstring findpattern
4752 stopfinding
4756 set highlight_files {}
4757 hfiles_change
4758 }
4759 findcom_change
4760 } else {
4762 set findpattern {}
4763 findcom_change
4764 }
4766 hfiles_change
4767 }
4768 drawvisible
4769 }
4770 # enable/disable findtype/findloc menus too
4771 }
4773 proc find_change {name ix op} {
4774 global gdttype findstring highlight_files
4776 stopfinding
4778 findcom_change
4779 } else {
4782 hfiles_change
4783 }
4784 }
4785 drawvisible
4786 }
4788 proc findcom_change args {
4789 global nhighlights boldnameids
4790 global findpattern findtype findstring gdttype
4792 stopfinding
4793 # delete previous highlights, if any
4796 }
4797 set boldnameids {}
4798 unset -nocomplain nhighlights
4799 unbolden
4800 unmarkmatches
4802 set findpattern {}
4805 } else {
4806 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4809 }
4810 }
4812 proc makepatterns {l} {
4813 set ret {}
4818 } else {
4821 }
4822 }
4824 }
4826 proc do_file_hl {serial} {
4827 global highlight_files filehighlight highlight_paths gdttype fhl_list
4828 global cdup findtype
4831 # If "exact" match then convert backslashes to forward slashes.
4832 # Most useful to support Windows-flavoured file paths.
4835 }
4838 highlight_filelist
4839 set relative_paths {}
4842 }
4848 } else {
4849 # must be "containing:", i.e. we're searching commit info
4850 return
4851 }
4856 set fhl_list {}
4857 drawvisible
4858 flushhighlights
4859 }
4861 proc flushhighlights {} {
4862 global filehighlight fhl_list
4864 if {[info exists filehighlight]} {
4865 lappend fhl_list {}
4868 }
4869 }
4871 proc askfilehighlight {row id} {
4872 global filehighlight fhighlights fhl_list
4877 }
4879 proc readfhighlight {} {
4880 global filehighlight fhighlights curview iddrawn
4881 global fhl_list find_dirn
4883 if {![info exists filehighlight]} {
4884 return 0
4885 }
4886 set nr 0
4894 }
4900 }
4902 }
4904 # strange...
4905 puts "oops, git diff-tree died"
4907 unset filehighlight
4908 return 0
4909 }
4910 if {[info exists find_dirn]} {
4911 run findmore
4912 }
4913 return 1
4914 }
4916 proc doesmatch {f} {
4917 global findtype findpattern
4923 } else {
4925 }
4926 }
4928 proc askfindhighlight {row id} {
4929 global nhighlights commitinfo iddrawn
4930 global findloc
4931 global markingmatches
4935 }
4937 set isbold 0
4938 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4944 set isbold 2
4945 break
4946 }
4947 set isbold 1
4948 }
4949 }
4955 }
4956 }
4959 }
4960 }
4962 }
4964 proc markrowmatches {row id} {
4965 global canv canv2 linehtag linentag commitinfo findloc
4976 }
4977 }
4983 }
4984 }
4985 }
4987 proc vrel_change {name ix op} {
4988 global highlight_related
4990 rhighlight_none
4992 run drawvisible
4993 }
4994 }
4996 # prepare for testing whether commits are descendents or ancestors of a
4997 proc rhighlight_sel {a} {
4998 global descendent desc_todo ancestor anc_todo
4999 global highlight_related
5001 unset -nocomplain descendent
5003 unset -nocomplain ancestor
5006 rhighlight_none
5007 run drawvisible
5008 }
5009 }
5011 proc rhighlight_none {} {
5012 global rhighlights
5014 unset -nocomplain rhighlights
5015 unbolden
5016 }
5018 proc is_descendent {a} {
5019 global curview children descendent desc_todo
5024 set leftover {}
5025 set done 0
5030 continue
5031 }
5037 set done 1
5038 }
5039 }
5040 }
5043 return
5044 }
5045 }
5048 }
5050 proc is_ancestor {a} {
5051 global curview parents ancestor anc_todo
5056 set leftover {}
5057 set done 0
5062 continue
5063 }
5069 set done 1
5070 }
5071 }
5072 }
5075 return
5076 }
5077 }
5080 }
5082 proc askrelhighlight {row id} {
5083 global descendent highlight_related iddrawn rhighlights
5084 global selectedline ancestor
5087 set isbold 0
5092 }
5094 set isbold 1
5095 }
5100 }
5102 set isbold 1
5103 }
5104 }
5108 }
5109 }
5111 }
5113 # Graph layout functions
5115 proc shortids {ids} {
5116 set res {}
5122 } else {
5124 }
5125 }
5127 }
5129 proc ntimes {n o} {
5130 set ret {}
5135 }
5137 }
5139 }
5141 proc ordertoken {id} {
5142 global ordertok curview varcid varcstart varctok curview parents children
5143 global nullid nullid2
5147 }
5149 set todo {}
5150 while {1} {
5154 } else {
5156 }
5159 break
5160 }
5163 # it's a root
5165 break
5166 }
5169 } else {
5173 }
5175 }
5176 }
5181 }
5184 }
5186 # Work out where id should go in idlist so that order-token
5187 # values increase from left to right
5188 proc idcol {idlist id {i 0}} {
5191 set i 0
5192 }
5196 }
5198 incr i
5199 } else {
5203 }
5204 }
5206 }
5208 proc initlayout {} {
5209 global rowidlist rowisopt rowfinal displayorder parentlist
5210 global numcommits canvxmax canv
5211 global nextcolor
5212 global colormap rowtextx
5214 set numcommits 0
5215 set displayorder {}
5216 set parentlist {}
5217 set nextcolor 0
5218 set rowidlist {}
5219 set rowisopt {}
5220 set rowfinal {}
5222 unset -nocomplain colormap
5223 unset -nocomplain rowtextx
5224 setcanvscroll
5225 }
5227 proc setcanvscroll {} {
5228 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5229 global lastscrollset lastscrollrows
5235 set lastscrollset [clock clicks -milliseconds]
5237 }
5239 proc visiblerows {} {
5240 global canv numcommits linespc
5248 set r0 0
5249 }
5254 }
5256 }
5258 proc layoutmore {} {
5259 global commitidx viewcomplete curview
5260 global numcommits pending_select curview
5261 global lastscrollset lastscrollrows
5265 setcanvscroll
5266 }
5267 if {[info exists pending_select] &&
5269 update
5271 }
5272 drawvisible
5273 }
5275 # With path limiting, we mightn't get the actual HEAD commit,
5276 # so ask git rev-list what is the first ancestor of HEAD that
5277 # touches a file in the path limit.
5278 proc get_viewmainhead {view} {
5279 global viewmainheadid vfilelimit viewinstances mainheadid
5281 catch {
5289 }
5290 }
5293 proc getviewhead {fd inst view} {
5294 global viewmainheadid commfd curview viewinstances showlocalchanges
5296 set id {}
5299 return 1
5300 }
5303 }
5310 }
5312 doshowlocalchanges
5313 }
5314 return 0
5315 }
5317 proc doshowlocalchanges {} {
5318 global curview viewmainheadid
5322 dodiffindex
5323 } else {
5325 }
5326 }
5328 proc dohidelocalchanges {} {
5329 global nullid nullid2 lserial curview
5333 }
5336 }
5337 incr lserial
5338 }
5340 # spawn off a process to do git diff-index --cached HEAD
5341 proc dodiffindex {} {
5342 global lserial showlocalchanges vfilelimit curview
5343 global hasworktree git_version
5346 incr lserial
5348 set cmd "|git diff-index --cached --ignore-submodules=dirty HEAD"
5349 } else {
5350 set cmd "|git diff-index --cached HEAD"
5351 }
5354 }
5359 }
5361 proc readdiffindex {fd serial inst} {
5362 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5363 global vfilelimit
5365 set isdiff 1
5368 return 1
5369 }
5370 set isdiff 0
5371 }
5372 # we only need to see one line and we don't really care what it says...
5376 return 0
5377 }
5379 # now see if there are any local changes not checked in to the index
5380 set cmd "|git diff-files"
5383 }
5390 # add the line for the changes in the index to the graph
5391 set hl [mc "Local changes checked in to index but not committed"]
5396 }
5401 }
5403 }
5404 return 0
5405 }
5407 proc readdifffiles {fd serial inst} {
5408 global viewmainheadid nullid nullid2 curview
5409 global commitinfo commitdata lserial
5411 set isdiff 1
5414 return 1
5415 }
5416 set isdiff 0
5417 }
5418 # we only need to see one line and we don't really care what it says...
5422 return 0
5423 }
5426 # add the line for the local diff to the graph
5427 set hl [mc "Local uncommitted changes, not checked in to index"]
5432 } else {
5434 }
5438 }
5439 return 0
5440 }
5442 proc nextuse {id row} {
5443 global curview children
5448 return -1
5449 }
5452 }
5453 }
5454 }
5457 }
5458 return -1
5459 }
5461 proc prevuse {id row} {
5462 global curview children
5464 set ret -1
5470 }
5471 }
5472 }
5474 }
5476 proc make_idlist {row} {
5477 global displayorder parentlist uparrowlen downarrowlen mingaplen
5478 global commitidx curview children
5482 set r 0
5483 }
5486 set ra 0
5487 }
5491 }
5493 set ids {}
5502 }
5503 }
5504 }
5512 }
5513 }
5514 }
5522 }
5523 }
5524 incr r
5530 }
5531 }
5532 }
5533 set idlist {}
5536 }
5538 }
5540 proc rowsequal {a b} {
5543 }
5546 }
5548 }
5550 proc makeupline {id row rend col} {
5551 global rowidlist uparrowlen downarrowlen mingaplen
5557 }
5560 }
5567 }
5568 }
5569 }
5571 proc layoutrows {row endrow} {
5572 global rowidlist rowisopt rowfinal displayorder
5573 global uparrowlen downarrowlen maxwidth mingaplen
5574 global children parentlist
5575 global commitidx viewcomplete curview
5578 set idlist {}
5584 }
5585 }
5587 }
5592 set final 1
5593 } else {
5601 # if not the first child, we have to insert a line going up
5604 }
5605 }
5606 }
5616 }
5617 }
5618 }
5625 }
5626 }
5636 }
5637 }
5645 }
5646 }
5647 }
5648 }
5649 }
5653 set final 0
5654 }
5658 lappend rowisopt 0
5664 }
5666 } else {
5673 }
5674 }
5676 }
5678 proc changedrow {row} {
5679 global displayorder iddrawn rowisopt need_redisplay
5688 }
5689 }
5690 }
5693 set need_redisplay 1
5694 }
5695 }
5697 proc insert_pad {row col npad} {
5698 global rowidlist
5707 }
5710 }
5712 proc optimize_rows {row col endrow} {
5713 global rowidlist rowisopt displayorder curview children
5716 set row 1
5717 }
5720 set haspad 0
5729 } else {
5730 set pprevidlist {}
5731 }
5732 set x0 -1
5733 set xm -1
5738 set haspad 1
5739 continue
5740 }
5744 set isarrow 0
5745 set z0 {}
5750 }
5751 }
5756 set isarrow 1
5757 }
5758 }
5761 set isarrow 1
5762 }
5763 # Looking at lines from this row to the previous row,
5764 # make them go straight up if they end in an arrow on
5765 # the previous row; otherwise make them go straight up
5766 # or at 45 degrees.
5768 # Line currently goes left too much;
5769 # insert pads in the previous row, then optimize it
5774 }
5782 }
5784 # Line currently goes right too much;
5785 # insert pads in this line
5791 set haspad 1
5792 }
5799 }
5800 }
5801 # avoid lines jigging left then immediately right
5804 incr x0
5807 }
5808 }
5810 # Find the first column that doesn't have a line going right
5816 # check if this is the link to the first child
5819 # it is, work out offset to child
5821 }
5822 }
5824 }
5825 # Insert a pad at that column as long as it has a line and
5826 # isn't the last column
5831 }
5832 }
5833 }
5834 }
5836 proc xc {row col} {
5837 global canvx0 linespc
5839 }
5841 proc yc {row} {
5842 global canvy0 linespc
5844 }
5846 proc linewidth {id} {
5847 global thickerline lthickness
5852 }
5854 }
5856 proc rowranges {id} {
5857 global curview children uparrowlen downarrowlen
5858 global rowidlist
5862 return {}
5863 }
5864 set ret {}
5869 if {![info exists prev]} {
5871 } else {
5873 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5874 }
5875 # see if the line extends the whole way from prevrow to row
5879 # it doesn't, see where it ends
5884 } else {
5887 incr r -1
5888 }
5890 # see where it starts up again
5895 } else {
5898 incr r
5899 }
5901 }
5902 }
5905 }
5908 }
5910 }
5912 proc drawlineseg {id row endrow arrowlow} {
5913 global rowidlist displayorder iddrawn linesegs
5914 global canv colormap linespc curview maxlinelen parentlist
5918 set arrowhigh 1
5919 while {1} {
5922 incr le -1
5923 break
5924 }
5928 set arrowhigh 0
5929 break
5930 }
5935 set arrowhigh 0
5936 }
5937 break
5938 }
5939 incr le
5940 }
5943 }
5945 set lines {}
5946 set i 0
5947 set joinhigh 0
5954 set joinhigh 1
5955 }
5956 break
5957 }
5958 incr i
5959 }
5960 }
5961 set joinlow 0
5966 set joinlow 1
5967 }
5968 }
5981 }
5982 } else {
5984 }
5992 set arrowlow 0
5993 }
5994 }
6002 }
6004 }
6007 # join parent line to first child
6018 } else {
6020 }
6028 }
6030 }
6032 } else {
6036 }
6044 } else {
6048 }
6050 }
6051 } else {
6057 }
6061 } else {
6062 # coalesce two pieces
6067 }
6071 }
6072 }
6076 }
6078 proc drawparentlinks {id row} {
6079 global rowidlist canv colormap curview parentlist
6080 global idpos linespc
6093 # rmx = right-most X coord used
6094 set rmx 0
6099 continue
6100 }
6104 }
6107 # drawlineseg will do this one for us
6108 continue
6109 }
6111 # should handle duplicated parents here...
6114 # if attaching to a vertical segment, draw a smaller
6115 # slant for visual distinctness
6119 } else {
6121 }
6123 # segment slants towards us already
6125 } else {
6130 }
6132 }
6133 } else {
6135 }
6140 }
6144 }
6145 }
6147 proc drawlines {id} {
6148 global canv
6151 }
6153 proc drawcmittext {id row col} {
6154 global linespc canv canv2 canv3 fgcolor curview
6155 global cmitlisted commitinfo rowidlist parentlist
6156 global rowtextx idpos idtags idheads idotherrefs
6157 global linehtag linentag linedtag selectedline
6158 global canvxmax boldids boldnameids fgcolor markedid
6159 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
6160 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
6161 global circleoutlinecolor
6163 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
6171 } else {
6173 }
6182 # triangle pointing left for left-side commits
6188 } else {
6189 # triangle pointing right for right-side commits
6195 }
6207 }
6208 }
6209 }
6216 }
6219 }
6224 set font mainfont
6225 set nfont mainfont
6229 set font mainfontbold
6232 set nfont mainfontbold
6233 }
6234 }
6244 }
6247 }
6251 setcanvscroll
6252 }
6253 }
6255 proc drawcmitrow {row} {
6256 global displayorder rowidlist nrows_drawn
6257 global iddrawn markingmatches
6258 global commitinfo numcommits
6259 global filehighlight fhighlights findpattern nhighlights
6260 global hlview vhighlights
6261 global highlight_related rhighlights
6268 }
6271 }
6274 }
6277 }
6282 return
6283 }
6286 }
6290 incr nrows_drawn
6291 }
6294 }
6295 }
6297 proc drawcommits {row {endrow {}}} {
6298 global numcommits iddrawn displayorder curview need_redisplay
6299 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6302 set row 0
6303 }
6306 }
6309 }
6313 set rl1 0
6314 }
6317 set ro1 0
6318 }
6322 }
6327 }
6329 }
6330 }
6333 }
6336 clear_display
6337 }
6339 # make the lines join to already-drawn rows either side
6343 }
6348 }
6363 # see if this is the first child of any of its parents
6366 # make this line extend up to the child
6368 }
6369 }
6370 } else {
6372 }
6373 }
6374 }
6375 }
6377 proc undolayout {row} {
6378 global uparrowlen mingaplen downarrowlen
6379 global rowidlist rowisopt rowfinal need_redisplay
6383 set r 0
6384 }
6386 incr r -1
6390 set need_redisplay 1
6391 run drawvisible
6392 }
6393 }
6395 proc drawvisible {} {
6396 global canv linespc curview vrowmod selectedline targetrow targetid
6397 global need_redisplay cscroll numcommits
6407 if {[info exists targetid]} {
6411 # Fix up the scrollregion and change the scrolling position
6412 # now that our target row has moved.
6415 setcanvscroll
6423 set need_redisplay 1
6424 }
6425 } else {
6426 unset targetid
6427 }
6428 }
6434 }
6438 } elseif {[info exists targetid]} {
6440 }
6441 if {[info exists targetrow]} {
6444 }
6446 }
6448 }
6450 proc clear_display {} {
6451 global iddrawn linesegs need_redisplay nrows_drawn
6452 global vhighlights fhighlights nhighlights rhighlights
6453 global linehtag linentag linedtag boldids boldnameids
6455 allcanvs delete all
6456 unset -nocomplain iddrawn
6457 unset -nocomplain linesegs
6458 unset -nocomplain linehtag
6459 unset -nocomplain linentag
6460 unset -nocomplain linedtag
6461 set boldids {}
6462 set boldnameids {}
6463 unset -nocomplain vhighlights
6464 unset -nocomplain fhighlights
6465 unset -nocomplain nhighlights
6466 unset -nocomplain rhighlights
6467 set need_redisplay 0
6468 set nrows_drawn 0
6469 }
6471 proc findcrossings {id} {
6472 global rowidlist parentlist numcommits displayorder
6474 set cross {}
6475 set ccross {}
6479 }
6498 }
6499 }
6500 }
6501 }
6502 }
6504 }
6506 proc assigncolor {id} {
6507 global colormap colors nextcolor
6508 global parents children children curview
6514 } else {
6515 set kids {}
6516 }
6522 return
6523 }
6524 }
6525 set badcolors {}
6526 set origbad {}
6529 # delimiter between corner crossings and other crossings
6532 }
6536 }
6537 }
6540 }
6547 }
6552 }
6553 }
6554 }
6557 }
6558 }
6562 set nextcolor 0
6563 }
6565 }
6567 }
6569 proc bindline {t id} {
6570 global canv
6576 }
6578 proc graph_pane_width {} {
6579 global use_ttk
6582 set g [.tf.histframe.pwclist sashpos 0]
6583 } else {
6584 set g [.tf.histframe.pwclist sash coord 0]
6585 }
6587 }
6589 proc totalwidth {l font extra} {
6590 set tot 0
6593 }
6595 }
6597 proc drawtags {id x xt y1} {
6598 global idtags idheads idotherrefs mainhead
6599 global linespc lthickness
6600 global canv rowtextx curview fgcolor bgcolor ctxbut
6601 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
6602 global tagbgcolor tagfgcolor tagoutlinecolor
6603 global reflinecolor
6605 set marks {}
6606 set ntags 0
6607 set nheads 0
6608 set singletag 0
6609 set maxtags 3
6610 set maxtagpct 25
6620 # show just a single "n tags..." tag
6621 set singletag 1
6623 set marks [list "tag..."]
6624 } else {
6626 }
6627 set ntags 1
6628 }
6629 }
6633 }
6636 }
6639 }
6643 set xvals {}
6644 set wvals {}
6645 set i -1
6647 incr i
6650 } else {
6652 }
6656 }
6664 set font mainfont
6665 if {[incr ntags -1] >= 0} {
6666 # draw a tag
6673 } else {
6675 }
6678 } else {
6679 # draw a head or other ref
6680 if {[incr nheads -1] >= 0} {
6683 set font mainfontbold
6684 }
6685 } else {
6686 set col "#ddddff"
6687 }
6698 }
6699 }
6706 }
6707 }
6709 }
6711 proc drawnotesign {xt y} {
6712 global linespc canv fgcolor
6720 }
6722 proc xcoord {i level ln} {
6723 global canvx0 xspc1 xspc2
6730 }
6732 }
6734 proc show_status {msg} {
6735 global canv fgcolor
6737 clear_display
6738 set_window_title
6741 }
6743 # Don't change the text pane cursor if it is currently the hand cursor,
6744 # showing that we are over a sha1 ID link.
6745 proc settextcursor {c} {
6746 global ctext curtextcursor
6750 }
6752 }
6754 proc nowbusy {what {name {}}} {
6755 global isbusy busyname statusw
6757 if {[array names isbusy] eq {}} {
6758 . config -cursor watch
6759 settextcursor watch
6760 }
6765 }
6766 }
6768 proc notbusy {what} {
6769 global isbusy maincursor textcursor busyname statusw
6771 catch {
6776 }
6777 }
6778 if {[array names isbusy] eq {}} {
6781 }
6782 }
6784 proc findmatches {f} {
6785 global findtype findstring
6788 } else {
6793 }
6794 set matches {}
6795 set i 0
6800 }
6801 }
6803 }
6805 proc dofind {{dirn 1} {wrap 1}} {
6806 global findstring findstartline findcurline selectedline numcommits
6807 global gdttype filehighlight fh_serial find_dirn findallowwrap
6809 if {[info exists find_dirn]} {
6811 stopfinding
6812 }
6813 focus .
6817 } else {
6819 }
6821 nowbusy finding [mc "Searching"]
6825 }
6828 run findmore
6829 }
6831 proc stopfinding {} {
6832 global find_dirn findcurline fprogcoord
6834 if {[info exists find_dirn]} {
6835 unset find_dirn
6836 unset findcurline
6837 notbusy finding
6838 set fprogcoord 0
6839 adjustprogress
6840 }
6841 stopblaming
6842 }
6844 proc findmore {} {
6845 global commitdata commitinfo numcommits findpattern findloc
6846 global findstartline findcurline findallowwrap
6847 global find_dirn gdttype fhighlights fprogcoord
6848 global curview varcorder vrownum varccommits vrowmod
6850 if {![info exists find_dirn]} {
6851 return 0
6852 }
6853 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6855 set moretodo 0
6857 incr l
6859 set l 0
6860 }
6863 } else {
6866 }
6867 } else {
6870 }
6871 incr l -1
6874 } else {
6875 set lim -1
6877 }
6878 }
6881 set n 500
6882 set moretodo 1
6883 }
6886 }
6887 set found 0
6888 set domore 1
6902 }
6904 # shouldn't happen unless git log doesn't give all the commits...
6907 continue
6908 }
6911 }
6917 set found 1
6918 break
6919 }
6920 }
6922 }
6923 } else {
6931 }
6936 }
6939 break
6940 }
6943 set domore 0
6945 }
6946 }
6947 }
6948 }
6950 unset findcurline
6951 unset find_dirn
6952 notbusy finding
6953 set fprogcoord 0
6954 adjustprogress
6957 } else {
6958 bell
6959 }
6960 return 0
6961 }
6963 flushhighlights
6964 } else {
6966 }
6970 }
6972 adjustprogress
6974 }
6976 proc findselectline {l} {
6977 global findloc commentend ctext findcurline markingmatches gdttype
6984 # highlight the matches in the comments
6991 }
6992 }
6993 drawvisible
6994 }
6996 # mark the bits of a headline or author that match a find string
6997 proc markmatches {canv l str tag matches font row} {
6998 global selectedline
7016 }
7017 }
7018 }
7020 proc unmarkmatches {} {
7021 global markingmatches
7023 allcanvs delete matches
7024 set markingmatches 0
7025 stopfinding
7026 }
7028 proc selcanvline {w x y} {
7029 global canv canvy0 ctext linespc
7030 global rowtextx
7037 set l 0
7038 }
7043 }
7044 unmarkmatches
7046 }
7048 proc commit_descriptor {p} {
7049 global commitinfo
7052 }
7053 set l "..."
7056 }
7058 }
7060 # append some text to the ctext widget, and make any SHA1 ID
7061 # that we know about be a clickable link.
7062 # Also look for URLs of the form "http[s]://..." and make them web links.
7063 proc appendwithlinks {text tags} {
7064 global ctext linknum curview
7073 incr e
7077 incr linknum
7078 }
7079 set wlinks [regexp -indices -all -inline -line \
7085 incr e2
7089 incr linknum
7090 }
7091 }
7093 proc setlink {id lk} {
7094 global curview ctext pendinglinks
7095 global linkfgcolor
7099 }
7101 set known 0
7106 set known 1
7108 }
7109 } else {
7111 }
7117 } else {
7120 }
7121 }
7123 proc setwlink {url lk} {
7124 global ctext
7125 global linkfgcolor
7126 global web_browser
7133 }
7135 proc appendshortlink {id {pre {}} {post {}}} {
7136 global ctext linknum
7143 incr linknum
7144 }
7146 proc makelink {id} {
7147 global pendinglinks
7152 }
7154 }
7156 proc linkcursor {w inc} {
7157 global linkentercount curtextcursor
7161 } else {
7164 set linkentercount 0
7165 }
7166 }
7167 }
7169 proc browseweb {url} {
7170 global web_browser
7176 }
7177 }
7179 proc viewnextline {dir} {
7180 global canv linespc
7188 set newtop 0
7191 }
7193 }
7195 # add a list of tag or branch names at position pos
7196 # returns the number of names inserted
7197 proc appendrefs {pos ids var} {
7201 return 0
7202 }
7205 set tags {}
7209 }
7210 }
7212 set sep {}
7214 set nutags 0
7217 # If we are displaying heads, and there are too many,
7218 # see if there are some important heads to display.
7220 set itags {}
7222 set utags {}
7229 } else {
7231 }
7232 }
7234 }
7236 set str [mc "and many more"]
7237 set sep " "
7238 } else {
7239 set str [mc "many"]
7240 }
7244 }
7249 incr linknum
7254 set sep ", "
7255 }
7259 }
7261 # called when we have finished computing the nearby tags
7262 proc dispneartags {delay} {
7263 global selectedline currentid showneartags tagphase
7266 after cancel dispnexttag
7268 after 200 dispnexttag
7269 set tagphase -1
7270 } else {
7271 after idle dispnexttag
7272 set tagphase 0
7273 }
7274 }
7276 proc dispnexttag {} {
7277 global selectedline currentid showneartags tagphase ctext
7281 0 {
7285 }
7286 }
7287 1 {
7291 }
7292 }
7293 2 {
7298 # turn "Branch" into "Branches"
7302 }
7303 }
7304 }
7305 }
7306 if {[incr tagphase] <= 2} {
7307 after idle dispnexttag
7308 }
7309 }
7311 proc make_secsel {id} {
7312 global linehtag linentag linedtag canv canv2 canv3
7327 }
7329 proc make_idmark {id} {
7330 global linehtag canv fgcolor
7337 }
7339 proc selectline {l isnew {desired_loc {}} {switch_to_patch 0}} {
7340 global canv ctext commitinfo selectedline
7341 global canvy0 linespc parents children curview
7342 global currentid sha1entry
7343 global commentend idtags linknum
7344 global mergemax numcommits pending_select
7345 global cmitmode showneartags allcommits
7346 global targetrow targetid lastscrollrows
7347 global autoselect autosellen jump_to_here
7348 global vinlinediff
7350 unset -nocomplain pending_select
7352 normalline
7353 unsel_reflist
7354 stopfinding
7362 setcanvscroll
7363 }
7366 set cmitmode "patch"
7367 }
7381 } else {
7385 }
7386 }
7390 } else {
7394 }
7395 }
7396 }
7399 set newtop 0
7400 }
7402 drawvisible
7403 }
7409 }
7415 }
7419 clear_ctext
7420 set linknum 0
7423 }
7433 }
7435 }
7437 set headers {}
7440 set np 0
7443 set tag mmax
7444 } else {
7446 }
7449 incr np
7450 }
7451 } else {
7454 }
7455 }
7459 }
7461 # make anything that looks like a SHA1 ID be a clickable link
7464 if {![info exists allcommits]} {
7465 getallcommits
7466 }
7477 dispneartags 1
7478 }
7483 }
7491 init_flist [mc "Comments"]
7498 } else {
7500 }
7501 }
7503 proc selfirstline {} {
7504 unmarkmatches
7505 selectline 0 1
7506 }
7508 proc sellastline {} {
7509 global numcommits
7510 unmarkmatches
7513 }
7515 proc selnextline {dir} {
7516 global selectedline
7517 focus .
7520 unmarkmatches
7522 }
7524 proc selnextpage {dir} {
7525 global canv linespc selectedline numcommits
7529 set lpp 1
7530 }
7532 drawvisible
7536 set l 0
7539 }
7540 unmarkmatches
7542 }
7544 proc unselectline {} {
7545 global selectedline currentid
7547 set selectedline {}
7548 unset -nocomplain currentid
7549 allcanvs delete secsel
7550 rhighlight_none
7551 }
7553 proc reselectline {} {
7554 global selectedline
7558 }
7559 }
7561 proc addtohistory {cmd {saveproc {}}} {
7562 global history historyindex curview
7564 unset_posvars
7565 save_position
7569 return
7570 }
7574 } else {
7576 }
7577 incr historyindex
7579 .tf.bar.leftbut conf -state normal
7580 } else {
7581 .tf.bar.leftbut conf -state disabled
7582 }
7583 .tf.bar.rightbut conf -state disabled
7584 }
7586 # save the scrolling position of the diff display pane
7587 proc save_position {} {
7588 global historyindex history
7595 }
7596 }
7598 proc unset_posvars {} {
7599 global last_posvars
7601 if {[info exists last_posvars]} {
7605 }
7606 unset last_posvars
7607 }
7608 }
7610 proc godo {elt} {
7611 global curview last_posvars
7618 }
7619 unset_posvars
7623 }
7626 }
7628 proc goback {} {
7629 global history historyindex
7630 focus .
7633 save_position
7634 incr historyindex -1
7636 .tf.bar.rightbut conf -state normal
7637 }
7639 .tf.bar.leftbut conf -state disabled
7640 }
7641 }
7643 proc goforw {} {
7644 global history historyindex
7645 focus .
7648 save_position
7650 incr historyindex
7652 .tf.bar.leftbut conf -state normal
7653 }
7655 .tf.bar.rightbut conf -state disabled
7656 }
7657 }
7659 proc go_to_parent {i} {
7660 global parents curview targetid
7664 }
7665 }
7667 proc gettree {id} {
7668 global treefilelist treeidlist diffids diffmergeid treepending
7669 global nullid nullid2
7672 unset -nocomplain diffmergeid
7674 if {![info exists treepending]} {
7676 set cmd [list | git ls-files]
7678 set cmd [list | git ls-files --stage -t]
7679 } else {
7681 }
7683 return
7684 }
7690 }
7691 } else {
7693 }
7694 }
7696 proc gettreeline {gtf id} {
7697 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7699 set nl 0
7703 } else {
7711 }
7714 }
7717 }
7720 }
7722 unset treepending
7724 if {![info exists diffmergeid]} {
7726 }
7729 } else {
7731 }
7732 return 0
7733 }
7735 proc showfile {f} {
7736 global treefilelist treeidlist diffids nullid nullid2
7737 global ctext_file_names ctext_file_lines
7738 global ctext commentend
7743 return
7744 }
7748 return
7749 }
7750 } else {
7754 return
7755 }
7756 }
7767 settabs 0
7768 }
7770 proc getblobline {bf id} {
7771 global diffids cmitmode ctext
7775 return 0
7776 }
7778 set nl 0
7781 }
7783 global jump_to_here ctext_file_names commentend
7785 # delete last newline
7793 }
7795 return 0
7796 }
7799 }
7801 proc mark_ctext_line {lnum} {
7802 global ctext markbgcolor
7808 }
7810 proc mergediff {id} {
7811 global diffmergeid
7812 global diffids treediffs
7813 global parents curview
7821 }
7823 proc startdiff {ids} {
7824 global treediffs diffids treepending diffmergeid nullid nullid2
7826 settabs 1
7828 unset -nocomplain diffmergeid
7832 if {![info exists treepending]} {
7834 }
7835 } else {
7837 }
7838 }
7840 proc showinlinediff {ids} {
7841 global commitinfo commitdata ctext
7842 global treediffs
7848 initblobdiffvars
7849 set treediff {}
7851 set inhdr 0
7854 set inhdr 1
7856 # offset also accounts for the b/ prefix
7858 set inhdr 0
7859 }
7860 }
7868 }
7869 maybe_scroll_ctext 1
7871 }
7873 # If the filename (name) is under any of the passed filter paths
7874 # then return true to include the file in the listing.
7875 proc path_filter {filter name} {
7876 set worktree [gitworktree]
7881 return 1
7882 }
7883 }
7884 return 0
7885 }
7887 proc addtocflist {ids} {
7888 global treediffs
7892 }
7894 proc diffcmd {ids flags} {
7895 global log_showroot nullid nullid2 git_version
7901 # comparing working directory with some specific revision
7905 } else {
7907 }
7908 } else {
7909 # comparing working directory with index
7912 lappend cmd -R
7913 }
7914 }
7918 }
7921 # comparing index with specific revision
7924 } else {
7926 }
7927 } else {
7928 # comparing index with HEAD
7929 lappend cmd HEAD
7930 }
7931 } else {
7933 lappend flags --root
7934 }
7936 }
7938 }
7940 proc gettreediffs {ids} {
7941 global treediff treepending limitdiffs vfilelimit curview
7946 }
7950 set treediff {}
7953 }
7955 proc gettreediffline {gdtf ids} {
7956 global treediff treediffs treepending diffids diffmergeid
7957 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7959 set nr 0
7960 set sublist {}
7961 set max 1000
7963 # cache_gitattr is slow, and even slower on win32 where we
7964 # have to invoke it for only about 30 paths at a time
7965 set max 500
7966 if {[tk windowingsystem] == "win32"} {
7967 set max 120
7968 }
7969 }
7976 }
7981 }
7982 }
7983 }
7986 }
7989 }
7992 unset treepending
7996 if {![info exists diffmergeid]} {
7998 }
7999 } else {
8001 }
8002 return 0
8003 }
8005 # empty string or positive integer
8006 proc diffcontextvalidate {v} {
8008 }
8010 proc diffcontextchange {n1 n2 op} {
8011 global diffcontextstring diffcontext
8016 reselectline
8017 }
8018 }
8019 }
8021 proc changeignorespace {} {
8022 reselectline
8023 }
8025 proc changeworddiff {name ix op} {
8026 reselectline
8027 }
8029 proc initblobdiffvars {} {
8030 global diffencoding targetline diffnparents
8031 global diffinhdr currdiffsubmod diffseehere
8032 set targetline {}
8033 set diffnparents 0
8034 set diffinhdr 0
8035 set diffencoding [get_path_encoding {}]
8036 set currdiffsubmod ""
8037 set diffseehere -1
8038 }
8040 proc getblobdiffs {ids} {
8041 global blobdifffd diffids env
8042 global treediffs
8043 global diffcontext
8044 global ignorespace
8045 global worddiff
8046 global limitdiffs vfilelimit curview
8047 global git_version
8049 set textconv {}
8051 set textconv "--textconv"
8052 }
8053 set submodule {}
8055 set submodule "--submodule"
8056 }
8059 append cmd " -w"
8060 }
8062 append cmd " --word-diff=porcelain"
8063 }
8066 }
8069 return
8070 }
8073 initblobdiffvars
8075 }
8077 proc savecmitpos {} {
8078 global ctext cmitmode
8081 return {}
8082 }
8084 }
8086 proc savectextpos {} {
8087 global ctext
8090 }
8092 proc maybe_scroll_ctext {ateof} {
8093 global ctext target_scrollpos
8095 if {![info exists target_scrollpos]} return
8098 / [font metrics textfont -linespace]}]
8100 }
8102 unset target_scrollpos
8103 }
8105 proc setinlist {var i val} {
8110 }
8113 } else {
8115 }
8116 }
8118 proc makediffhdr {fname ids} {
8119 global ctext curdiffstart treediffs diffencoding
8120 global ctext_file_names jump_to_here targetline diffline
8127 }
8132 set targetline {}
8135 }
8136 set diffline 0
8137 }
8139 proc blobdiffmaybeseehere {ateof} {
8140 global diffseehere
8143 }
8145 }
8147 proc getblobdiffline {bdf ids} {
8148 global diffids blobdifffd
8149 global ctext
8151 set nr 0
8155 # Older diff read. Abort it.
8159 }
8160 return 0
8161 }
8163 }
8169 return 0
8170 }
8172 }
8174 proc parseblobdiffline {ids line} {
8175 global ctext curdiffstart
8176 global diffnexthead diffnextnote difffilestart
8177 global ctext_file_names ctext_file_lines
8178 global diffinhdr treediffs mergemax diffnparents
8179 global diffencoding jump_to_here targetline diffline currdiffsubmod
8180 global worddiff diffseehere
8186 continue
8187 }
8188 # start of a new file
8189 set diffinhdr 1
8190 set currdiffsubmod ""
8194 lappend ctext_file_names ""
8199 # start of a new file in a merge diff
8204 }
8206 } else {
8208 # If the name hasn't changed the length will be odd,
8209 # the middle char will be a space, and the two bits either
8210 # side will be a/name and b/name, or "a/name" and "b/name".
8211 # If the name has changed we'll get "rename from" and
8212 # "rename to" or "copy from" and "copy to" lines following
8213 # this, and we'll use them to get the filenames.
8214 # This complexity is necessary because spaces in the
8215 # filename(s) don't get escaped.
8221 return
8222 }
8223 # unescape if quoted and chop off the a/ from the front
8226 } else {
8228 }
8229 }
8242 }
8250 }
8252 set diffinhdr 0
8255 # start of a new submodule
8258 } else {
8260 }
8263 }
8266 lappend ctext_file_names ""
8271 } else {
8273 }
8285 }
8290 }
8296 }
8299 # do nothing
8300 return
8302 set diffinhdr 0
8303 return
8304 }
8307 } else {
8308 set line [string map {\x1A ^Z} \
8310 # parse the prefix - one ' ', '-' or '+' for each parent
8314 set words_pre_markup ""
8315 set words_post_markup ""
8317 # prefix only has " ", "-" and "+" in it: normal diff line
8321 }
8325 set num "max"
8326 }
8329 } else {
8331 }
8334 }
8335 } else {
8336 set tags {}
8338 # added line
8344 set num "max"
8345 }
8347 }
8348 }
8349 set words_pre_markup "{+"
8350 set words_post_markup "+}"
8351 }
8355 set targetline {}
8356 } else {
8357 incr diffline
8358 }
8359 }
8362 } else {
8364 }
8367 }
8368 }
8371 } else {
8372 # "\ No newline at end of file",
8373 # or something else we don't recognize
8375 }
8376 }
8377 }
8379 proc changediffdisp {} {
8380 global ctext diffelide
8384 }
8386 proc highlightfile {cline} {
8387 global cflist cflist_top
8389 if {![info exists cflist_top]} return
8395 }
8397 proc highlightfile_for_scrollpos {topidx} {
8398 global cmitmode difffilestart
8401 if {![info exists difffilestart]} return
8405 highlightfile 0
8406 } else {
8408 }
8409 }
8411 proc prevfile {} {
8412 global difffilestart ctext cmitmode
8415 set prev 0.0
8420 return
8421 }
8423 }
8425 }
8427 proc nextfile {} {
8428 global difffilestart ctext cmitmode
8435 return
8436 }
8437 }
8438 }
8440 proc clear_ctext {{first 1.0}} {
8441 global ctext smarktop smarkbot
8442 global ctext_file_names ctext_file_lines
8443 global pendinglinks
8448 }
8451 }
8454 unset -nocomplain pendinglinks
8455 }
8456 set ctext_file_names {}
8457 set ctext_file_lines {}
8458 }
8460 proc settabs {{firstab {}}} {
8461 global firsttabstop tabstop ctext have_tk85
8465 }
8466 set w [font measure textfont "0"]
8472 } else {
8474 }
8475 }
8477 proc incrsearch {name ix op} {
8478 global ctext searchstring searchdirn
8481 # no anchor set, use start of selection, or of visible area
8487 } else {
8489 }
8490 }
8498 suppress_highlighting_file_for_current_scrollpos
8500 }
8501 }
8502 rehighlight_search_results
8503 }
8505 proc dosearch {} {
8506 global sstring ctext searchstring searchdirn
8510 set searchdirn -forwards
8516 set start "@0,0"
8517 }
8521 bell
8522 return
8523 }
8525 suppress_highlighting_file_for_current_scrollpos
8530 rehighlight_search_results
8531 }
8532 }
8534 proc dosearchback {} {
8535 global sstring ctext searchstring searchdirn
8539 set searchdirn -backwards
8546 }
8550 bell
8551 return
8552 }
8554 suppress_highlighting_file_for_current_scrollpos
8559 rehighlight_search_results
8560 }
8561 }
8563 proc rehighlight_search_results {} {
8564 global ctext searchstring
8570 searchmarkvisible 1
8571 }
8572 }
8574 proc searchmark {first last} {
8575 global ctext searchstring
8580 while {1} {
8586 } else {
8588 }
8589 }
8590 }
8592 proc searchmarkvisible {doall} {
8593 global ctext smarktop smarkbot
8598 # no overlap with previous
8602 } else {
8606 }
8610 }
8611 }
8612 }
8614 proc suppress_highlighting_file_for_current_scrollpos {} {
8615 global ctext suppress_highlighting_file_for_this_scrollpos
8618 }
8620 proc scrolltext {f0 f1} {
8621 global searchstring cmitmode ctext
8622 global suppress_highlighting_file_for_this_scrollpos
8625 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8628 }
8630 unset -nocomplain suppress_highlighting_file_for_this_scrollpos
8634 searchmarkvisible 0
8635 }
8636 }
8638 proc setcoords {} {
8639 global linespc charspc canvx0 canvy0
8640 global xspc1 xspc2 lthickness
8642 set linespc [font metrics mainfont -linespace]
8643 set charspc [font measure mainfont "m"]
8649 }
8651 proc redisplay {} {
8652 global canv
8653 global selectedline
8658 clear_display
8659 setcanvscroll
8661 drawvisible
8665 }
8666 }
8668 proc parsefont {f n} {
8669 global fontattr
8674 set s 10
8677 }
8683 "normal" -
8685 "roman" -
8687 }
8688 }
8689 }
8691 proc fontflags {f {isbold 0}} {
8692 global fontattr
8697 }
8699 proc fontname {f} {
8700 global fontattr
8704 lappend n "bold"
8705 }
8707 lappend n "italic"
8708 }
8710 }
8712 proc incrfont {inc} {
8713 global mainfont textfont ctext canv cflist showrefstop
8714 global stopped entries fontattr
8716 unmarkmatches
8720 set s 1
8721 }
8725 set mainfont [fontname mainfont]
8729 set s 1
8730 }
8734 set textfont [fontname textfont]
8735 setcoords
8736 settabs
8737 redisplay
8738 }
8740 proc clearsha1 {} {
8741 global sha1entry sha1string
8744 }
8745 }
8747 proc sha1change {n1 n2 op} {
8748 global sha1string currentid sha1but
8751 set state disabled
8752 } else {
8753 set state normal
8754 }
8758 } else {
8760 }
8761 }
8763 proc gotocommit {} {
8764 global sha1string tagids headids curview varcid
8772 } else {
8779 return
8780 }
8782 }
8783 } else {
8786 return
8787 }
8788 }
8789 }
8792 return
8793 }
8796 } else {
8798 }
8800 }
8802 proc lineenter {x y id} {
8803 global hoverx hovery hoverid hovertimer
8804 global commitinfo canv
8810 if {[info exists hovertimer]} {
8812 }
8813 set hovertimer [after 500 linehover]
8815 }
8817 proc linemotion {x y id} {
8818 global hoverx hovery hoverid hovertimer
8823 if {[info exists hovertimer]} {
8825 }
8826 set hovertimer [after 500 linehover]
8827 }
8828 }
8830 proc lineleave {id} {
8831 global hoverid hovertimer canv
8835 if {[info exists hovertimer]} {
8837 unset hovertimer
8838 }
8839 unset hoverid
8840 }
8841 }
8843 proc linehover {} {
8844 global hoverx hovery hoverid hovertimer
8845 global canv linespc lthickness
8846 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8848 global commitinfo
8862 -width 1 -tags hover]
8867 }
8869 proc clickisonarrow {id y} {
8870 global lthickness
8879 }
8880 }
8881 return {}
8882 }
8884 proc arrowjump {id n y} {
8885 global canv
8887 # 1 <-> 2, 3 <-> 4, etc...
8897 set yfrac 0
8898 }
8900 }
8902 proc lineclick {x y id isnew} {
8903 global ctext commitinfo children canv thickerline curview
8906 unmarkmatches
8907 unselectline
8908 normalline
8910 # draw this line thicker than normal
8918 }
8922 return
8923 }
8927 }
8928 # fill the details pane with info about this line
8930 clear_ctext
8931 settabs 0
8943 set i 0
8945 incr i
8955 }
8956 }
8957 maybe_scroll_ctext 1
8959 init_flist {}
8960 }
8962 proc normalline {} {
8963 global thickerline
8964 if {[info exists thickerline]} {
8966 unset thickerline
8968 }
8969 }
8971 proc selbyid {id {isnew 1}} {
8972 global curview
8975 }
8976 }
8978 proc mstime {} {
8979 global startmstime
8980 if {![info exists startmstime]} {
8981 set startmstime [clock clicks -milliseconds]
8982 }
8984 }
8986 proc rowmenu {x y id} {
8987 global rowctxmenu selectedline rowmenuid curview
8988 global nullid nullid2 fakerowmenu mainhead markedid
8990 stopfinding
8993 set state disabled
8994 } else {
8995 set state normal
8996 }
8998 set mstate normal
8999 } else {
9000 set mstate disabled
9001 }
9006 } else {
9008 }
9012 } else {
9014 }
9021 }
9023 proc markhere {} {
9024 global rowmenuid markedid canv
9028 }
9030 proc gotomark {} {
9031 global markedid
9033 if {[info exists markedid]} {
9035 }
9036 }
9038 proc replace_by_kids {l r} {
9039 global curview children
9045 }
9047 }
9049 proc find_common_desc {} {
9050 global markedid rowmenuid curview children
9052 if {![info exists markedid]} return
9055 #set t1 [clock clicks -milliseconds]
9058 while 1 {
9064 break
9065 }
9068 } else {
9070 }
9071 }
9072 #set t2 [clock clicks -milliseconds]
9074 }
9076 proc compare_commits {} {
9077 global markedid rowmenuid curview children
9079 if {![info exists markedid]} return
9083 }
9085 proc getpatchid {id} {
9086 global patchids
9090 # trim off the initial "|"
9092 if {[catch {
9095 }]} {
9097 }
9098 }
9100 }
9102 proc do_cmp_commits {a b} {
9103 global ctext curview parents children patchids commitinfo
9106 clear_ctext
9107 init_flist {}
9109 set skipa 0
9110 set skipb 0
9113 set skipa 1
9114 } else {
9116 }
9119 set skipb 1
9120 } else {
9122 }
9128 [mc " - stopping\n"]
9129 break
9130 }
9133 [mc " - stopping\n"]
9134 break
9135 }
9140 } else {
9144 }
9145 set skipa 1
9146 set skipb 1
9147 } else {
9154 update
9156 return
9157 }
9158 }
9165 break
9166 }
9168 }
9174 break
9175 }
9177 }
9178 }
9180 }
9182 proc diffcommits {a b} {
9183 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
9185 set tmpdir [gitknewtmpdir]
9188 if {[catch {
9191 } err]} {
9193 return
9194 }
9195 if {[catch {
9197 } err]} {
9199 return
9200 }
9203 set diffinhdr 0
9204 set currdiffsubmod ""
9206 }
9208 proc diffvssel {dirn} {
9209 global rowmenuid selectedline
9215 } else {
9218 }
9221 }
9223 proc diffvsmark {dirn} {
9224 global rowmenuid markedid
9226 if {![info exists markedid]} return
9230 } else {
9233 }
9236 }
9238 proc doseldiff {oldid newid} {
9239 global ctext
9240 global commitinfo
9243 clear_ctext
9244 init_flist [mc "Top"]
9259 }
9261 proc mkpatch {} {
9262 global rowmenuid currentid commitinfo patchtop patchnum NS
9264 if {![info exists currentid]} return
9269 set top .patch
9299 incr patchnum
9311 }
9313 proc mkpatchrev {} {
9314 global patchtop
9320 foreach e [list fromsha1 fromhead tosha1 tohead] \
9326 }
9327 }
9329 proc mkpatchgo {} {
9330 global patchtop nullid nullid2
9336 # trim off the initial "|"
9341 }
9343 unset patchtop
9344 }
9346 proc mkpatchcan {} {
9347 global patchtop
9350 unset patchtop
9351 }
9353 proc mktag {} {
9354 global rowmenuid mktagtop commitinfo NS
9356 set top .maketag
9390 }
9392 proc domktag {} {
9393 global mktagtop env tagids idtags
9400 return 0
9401 }
9404 return 0
9405 }
9406 if {[catch {
9409 } else {
9411 }
9412 } err]} {
9414 return 0
9415 }
9421 dispneartags 0
9422 run refill_reflist
9423 return 1
9424 }
9426 proc redrawtags {id} {
9427 global canv linehtag idpos currentid curview cmitlisted markedid
9428 global canvxmax iddrawn circleitem mainheadid circlecolors
9429 global mainheadcirclecolor
9436 } else {
9438 }
9448 setcanvscroll
9449 }
9452 }
9455 }
9456 }
9458 proc mktagcan {} {
9459 global mktagtop
9462 unset mktagtop
9463 }
9465 proc mktaggo {} {
9466 if {![domktag]} return
9467 mktagcan
9468 }
9470 proc copyreference {} {
9471 global rowmenuid autosellen
9473 set format "%h (\"%s\", %ad)"
9477 }
9480 clipboard clear
9482 }
9484 proc writecommit {} {
9485 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9487 set top .writecommit
9520 }
9522 proc wrcomgo {} {
9523 global wrcomtop
9530 }
9532 unset wrcomtop
9533 }
9535 proc wrcomcan {} {
9536 global wrcomtop
9539 unset wrcomtop
9540 }
9542 proc mkbranch {} {
9543 global NS rowmenuid
9545 set top .branchdialog
9547 set val(name) ""
9551 set ui(title) [mc "Create branch"]
9552 set ui(accept) [mc "Create"]
9555 }
9557 proc mvbranch {} {
9558 global NS
9559 global headmenuid headmenuhead
9561 set top .branchdialog
9568 set ui(accept) [mc "Rename"]
9571 }
9573 proc branchdia {top valvar uivar} {
9574 global NS commitinfo
9606 }
9608 proc mkbrgo {top} {
9609 global headids idheads
9613 set cmdargs {}
9614 set old_id {}
9617 return
9618 }
9620 if {![confirm_popup [mc \
9622 return
9623 }
9625 lappend cmdargs -f
9626 }
9629 nowbusy newbranch
9630 update
9631 if {[catch {
9633 } err]} {
9634 notbusy newbranch
9636 } else {
9637 notbusy newbranch
9643 } else {
9648 }
9649 dispneartags 0
9650 run refill_reflist
9651 }
9652 }
9654 proc mvbrgo {top prevname} {
9655 global headids idheads mainhead mainheadid
9659 set cmdargs {}
9662 return
9663 }
9666 return
9667 }
9670 nowbusy renamebranch
9671 update
9672 if {[catch {
9674 } err]} {
9675 notbusy renamebranch
9677 } else {
9678 notbusy renamebranch
9687 }
9689 dispneartags 0
9690 run refill_reflist
9691 }
9692 }
9694 proc exec_citool {tool_args {baseid {}}} {
9695 global commitinfo env
9697 set save_env [array get env GIT_AUTHOR_*]
9702 }
9705 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9711 }
9712 }
9716 array unset env GIT_AUTHOR_*
9718 }
9720 proc cherrypick {} {
9721 global rowmenuid curview
9722 global mainhead mainheadid
9723 global gitdir
9725 set oldhead [exec git rev-parse HEAD]
9728 set ok [confirm_popup [mc "Commit %s is already\
9729 included in branch %s -- really re-apply it?" \
9732 }
9733 nowbusy cherrypick [mc "Cherry-picking"]
9734 update
9735 # Unfortunately git-cherry-pick writes stuff to stderr even when
9736 # no error occurs, and exec takes that as an indication of error...
9738 notbusy cherrypick
9739 if {[regexp -line \
9740 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9742 error_popup [mc "Cherry-pick failed because of local changes\
9743 to file '%s'.\nPlease commit, reset or stash\
9745 } elseif {[regexp -line \
9746 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9748 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9749 conflict.\nDo you wish to run git citool to\
9750 resolve it?"]]} {
9751 # Force citool to read MERGE_MSG
9754 }
9755 } else {
9757 }
9758 run updatecommits
9759 return
9760 }
9761 set newhead [exec git rev-parse HEAD]
9763 notbusy cherrypick
9764 error_popup [mc "No changes committed"]
9765 return
9766 }
9769 # XXX this isn't right if we have a path limit...
9774 }
9779 }
9780 notbusy cherrypick
9781 }
9783 proc revert {} {
9784 global rowmenuid curview
9785 global mainhead mainheadid
9786 global gitdir
9788 set oldhead [exec git rev-parse HEAD]
9791 set ok [confirm_popup [mc "Commit %s is not\
9792 included in branch %s -- really revert it?" \
9795 }
9796 nowbusy revert [mc "Reverting"]
9797 update
9800 notbusy revert
9801 if [regexp {files would be overwritten by merge:(\n(( |\t)+[^\n]+\n)+)}\
9804 error_popup [mc "Revert failed because of local changes to\
9805 the following files:%s Please commit, reset or stash \
9808 if [confirm_popup [mc "Revert failed because of merge conflict.\n\
9809 Do you wish to run git citool to resolve it?"]] {
9810 # Force citool to read MERGE_MSG
9813 }
9815 run updatecommits
9816 return
9817 }
9819 set newhead [exec git rev-parse HEAD]
9821 notbusy revert
9822 error_popup [mc "No changes committed"]
9823 return
9824 }
9829 # XXX this isn't right if we have a path limit...
9834 }
9839 }
9841 notbusy revert
9842 }
9844 proc resethead {} {
9845 global mainhead rowmenuid confirm_ok resettype NS
9847 set confirm_ok 0
9848 set w ".confirmreset"
9856 set resettype mixed
9858 -text [mc "Soft: Leave working tree and index untouched"]
9861 -text [mc "Mixed: Leave working tree untouched, reset index"]
9864 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9875 if {[catch {set fd [open \
9878 } else {
9879 dohidelocalchanges
9881 nowbusy reset [mc "Resetting"]
9883 }
9884 }
9886 proc readresetstat {fd} {
9887 global mainhead mainheadid showlocalchanges rprogcoord
9892 adjustprogress
9893 }
9894 return 1
9895 }
9896 set rprogcoord 0
9897 adjustprogress
9898 notbusy reset
9901 }
9903 set newhead [exec git rev-parse HEAD]
9910 }
9912 doshowlocalchanges
9913 }
9914 return 0
9915 }
9917 # context menu for a head
9918 proc headmenu {x y id head} {
9919 global headmenuid headmenuhead headctxmenu mainhead headids
9921 stopfinding
9924 array set state {0 normal 1 normal 2 normal}
9928 set state(0) disabled
9929 }
9930 array set state {1 disabled 2 disabled}
9931 }
9933 array set state {0 disabled 2 disabled}
9934 }
9935 foreach i {0 1 2} {
9937 }
9939 }
9941 proc cobranch {} {
9942 global headmenuid headmenuhead headids
9943 global showlocalchanges
9945 # check the tree is clean first??
9947 set command [list | git checkout]
9951 # The following check is redundant - the menu option should
9952 # be disabled to begin with...
9955 return
9956 }
9958 } else {
9960 }
9961 lappend command 2>@1
9962 nowbusy checkout [mc "Checking out"]
9963 update
9964 dohidelocalchanges
9965 if {[catch {
9967 } err]} {
9968 notbusy checkout
9971 dodiffindex
9972 }
9973 } else {
9975 }
9976 }
9978 proc readcheckoutstat {fd newhead newheadid} {
9979 global mainhead mainheadid headids idheads showlocalchanges progresscoords
9980 global viewmainheadid curview
9985 adjustprogress
9986 }
9987 return 1
9988 }
9989 set progresscoords {0 0}
9990 adjustprogress
9991 notbusy checkout
9994 return
9995 }
10001 }
10009 dodiffindex
10010 }
10011 }
10013 proc rmbranch {} {
10014 global headmenuid headmenuhead mainhead
10015 global idheads
10019 # this check shouldn't be needed any more...
10021 error_popup [mc "Cannot delete the currently checked-out branch"]
10022 return
10023 }
10026 # the stuff on this branch isn't on any other branch
10027 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
10029 }
10030 nowbusy rmbranch
10031 update
10033 notbusy rmbranch
10035 return
10036 }
10040 notbusy rmbranch
10041 dispneartags 0
10042 run refill_reflist
10043 }
10045 # Display a list of tags and heads
10046 proc showrefs {} {
10047 global showrefstop bgcolor fgcolor selectbgcolor NS
10048 global bglist fglist reflistfilter reflist maincursor
10050 set top .showrefs
10054 refill_reflist
10055 return
10056 }
10064 -spacing1 1 -spacing3 1 -state disabled
10069 }
10077 set reflistfilter "*"
10078 trace add variable reflistfilter write reflistfilter_change
10090 set reflist {}
10091 refill_reflist
10092 }
10094 proc sel_reflist {w x y} {
10095 global showrefstop reflist headids tagids otherrefids
10106 }
10108 }
10110 proc unsel_reflist {} {
10111 global showrefstop
10115 }
10117 proc reflistfilter_change {n1 n2 op} {
10118 global reflistfilter
10120 after cancel refill_reflist
10121 after 200 refill_reflist
10122 }
10124 proc refill_reflist {} {
10125 global reflist reflistfilter showrefstop headids tagids otherrefids
10126 global curview
10129 set refs {}
10130 foreach n [array names headids] {
10135 } else {
10137 }
10138 } else {
10140 }
10141 }
10142 }
10143 foreach n [array names tagids] {
10147 } else {
10149 }
10150 }
10151 }
10152 foreach n [array names otherrefids] {
10156 } else {
10158 }
10159 }
10160 }
10168 set i 0
10169 set j 0
10178 }
10179 } else {
10180 set cmp -1
10181 }
10182 } else {
10183 set cmp 1
10184 }
10186 -1 {
10188 incr i
10189 }
10190 0 {
10191 incr i
10192 incr j
10193 }
10194 1 {
10199 incr j
10200 }
10201 }
10202 }
10204 # delete last newline
10207 }
10209 # Stuff for finding nearby tags
10210 proc getallcommits {} {
10211 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
10212 global idheads idtags idotherrefs allparents tagobjid
10213 global gitdir
10215 if {![info exists allcommits]} {
10216 set nextarc 0
10217 set allcommits 0
10218 set seeds {}
10219 set allcwait 0
10220 set cachedarcs 0
10222 if {![catch {
10224 set allcwait 1
10226 }]} return
10227 }
10230 return
10231 }
10232 set cmd [list | git rev-list --parents]
10235 set ids "--all"
10236 } else {
10237 set refs [concat [array names idheads] [array names idtags] \
10238 [array names idotherrefs]]
10239 set ids {}
10240 set tagobjs {}
10241 foreach name [array names tagobjid] {
10243 }
10248 }
10249 }
10253 }
10254 lappend ids "--"
10255 }
10256 }
10260 } else {
10262 }
10265 incr allcommits
10266 nowbusy allcommits
10268 } else {
10269 dispneartags 0
10270 }
10271 }
10273 # Since most commits have 1 parent and 1 child, we group strings of
10274 # such commits into "arcs" joining branch/merge points (BMPs), which
10275 # are commits that either don't have 1 parent or don't have 1 child.
10276 #
10277 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
10278 # arcout(id) - outgoing arcs for BMP
10279 # arcids(a) - list of IDs on arc including end but not start
10280 # arcstart(a) - BMP ID at start of arc
10281 # arcend(a) - BMP ID at end of arc
10282 # growing(a) - arc a is still growing
10283 # arctags(a) - IDs out of arcids (excluding end) that have tags
10284 # archeads(a) - IDs out of arcids (excluding end) that have heads
10285 # The start of an arc is at the descendent end, so "incoming" means
10286 # coming from descendents, and "outgoing" means going towards ancestors.
10288 proc getallclines {fd} {
10289 global allparents allchildren idtags idheads nextarc
10290 global arcnos arcids arctags arcout arcend arcstart archeads growing
10291 global seeds allcommits cachedarcs allcupdate
10293 set nid 0
10297 # seen it already
10298 continue
10299 }
10300 set cachedarcs 0
10307 } else {
10313 }
10316 }
10318 # seen parent already
10321 }
10325 }
10328 continue
10329 }
10330 }
10335 }
10337 set ao {}
10340 set a [incr nextarc]
10349 # seen it already, may need to make a new branch
10352 }
10356 }
10358 }
10360 }
10362 global cached_dheads cached_dtags cached_atags
10363 unset -nocomplain cached_dheads
10364 unset -nocomplain cached_dtags
10365 unset -nocomplain cached_atags
10366 }
10369 }
10370 set cacheok 1
10371 if {[catch {
10374 } err]} {
10375 # got an error reading the list of commits
10376 # if we were updating, try rereading the whole thing again
10378 incr allcommits -1
10380 return
10381 }
10382 error_popup "[mc "Error reading commit topology information;\
10383 branch and preceding/following tag information\
10385 set cacheok 0
10386 }
10387 if {[incr allcommits -1] == 0} {
10388 notbusy allcommits
10390 run savecache
10391 }
10392 }
10393 dispneartags 0
10394 return 0
10395 }
10397 proc recalcarc {a} {
10398 global arctags archeads arcids idtags idheads
10400 set at {}
10401 set ah {}
10405 }
10408 }
10409 }
10412 }
10414 proc splitarc {p} {
10415 global arcnos arcids nextarc arctags archeads idtags idheads
10416 global arcstart arcend arcout allparents growing
10421 return
10422 }
10427 return
10428 }
10429 set na [incr nextarc]
10432 } else {
10436 }
10446 }
10451 } else {
10454 }
10455 }
10457 # reconstruct tags and heads lists
10461 } else {
10464 }
10465 }
10467 # Update things for a new commit added that is a child of one
10468 # existing commit. Used when cherry-picking.
10469 proc addnewchild {id p} {
10470 global allparents allchildren idtags nextarc
10471 global arcnos arcids arctags arcout arcend arcstart archeads growing
10472 global seeds allcommits
10480 set a [incr nextarc]
10488 }
10491 }
10493 # This implements a cache for the topology information.
10494 # The cache saves, for each arc, the start and end of the arc,
10495 # the ids on the arc, and the outgoing arcs from the end.
10496 proc readcache {f} {
10497 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
10498 global idtags idheads allparents cachedarcs possible_seeds seeds growing
10499 global allcwait
10505 }
10506 if {[catch {
10508 # finish reading the cache and setting up arctags, etc.
10512 foreach id [array names idtags] {
10518 }
10519 }
10520 }
10521 foreach id [array names idheads] {
10527 }
10528 }
10529 }
10533 }
10534 }
10535 set allcwait 0
10536 } else {
10546 }
10550 } else {
10554 }
10555 }
10561 }
10564 }
10567 }
10569 }
10570 } err]} {
10572 return 0
10573 }
10575 getallcommits
10576 }
10578 }
10580 proc getcache {f} {
10581 global nextarc cachedarcs possible_seeds
10583 if {[catch {
10586 # make sure it's an integer
10589 set nextarc 0
10590 set possible_seeds {}
10592 } err]} {
10594 }
10595 return 0
10596 }
10598 proc dropcache {err} {
10599 global allcwait nextarc cachedarcs seeds
10602 foreach v {arcnos arcout arcids arcstart arcend growing \
10603 arctags archeads allparents allchildren} {
10606 }
10607 set allcwait 0
10608 set nextarc 0
10609 set cachedarcs 0
10610 set seeds {}
10611 getallcommits
10612 }
10614 proc writecache {f} {
10615 global cachearc cachedarcs allccache
10616 global arcstart arcend arcnos arcids arcout
10622 }
10623 if {[catch {
10627 } else {
10629 }
10630 }
10631 } err]} {
10635 return 0
10636 }
10641 return 0
10642 }
10643 return 1
10644 }
10646 proc savecache {} {
10647 global nextarc cachedarcs cachearc allccache
10650 set cachearc 0
10652 catch {
10656 }
10657 }
10659 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10660 # or 0 if neither is true.
10661 proc anc_or_desc {a b} {
10662 global arcout arcstart arcend arcnos cached_isanc
10665 # Both are on the same arc(s); either both are the same BMP,
10666 # or if one is not a BMP, the other is also not a BMP or is
10667 # the BMP at end of the arc (and it only has 1 incoming arc).
10668 # Or both can be BMPs with no incoming arcs.
10670 return 0
10671 }
10677 return 1
10678 } else {
10679 return -1
10680 }
10681 }
10687 } else {
10688 set aend {}
10689 }
10691 } else {
10693 }
10698 } else {
10699 set bend {}
10700 }
10702 } else {
10704 }
10706 return 1
10707 }
10709 return -1
10710 }
10713 return 1
10714 }
10715 }
10718 return -1
10719 }
10721 return 0
10722 }
10723 }
10731 continue
10732 }
10738 return 1
10742 return -1
10743 }
10749 }
10750 }
10751 }
10754 return 0
10755 }
10759 # and returns 0 if so and 1 if not.
10760 # If we subsequently discover a tag on such a growing tip, and that
10763 # isn't a good choice to display as a descendent tag of
10767 #
10768 proc is_certain {desc anc} {
10769 global arcnos arcout arcstart arcend growing problems
10771 set certain {}
10773 # tags on the same arc are certain
10775 return 1
10776 }
10781 }
10782 }
10785 } else {
10788 }
10790 return 1
10791 }
10794 set nnh 1
10795 set ngrowanc 0
10799 incr nnh -1
10800 }
10806 incr ngrowanc
10807 }
10808 } else {
10815 incr nnh -1
10816 }
10818 incr ngrowanc -1
10819 }
10829 incr nnh -1
10830 }
10832 incr ngrowanc -1
10833 }
10835 }
10836 }
10837 }
10838 }
10839 }
10840 }
10844 } else {
10847 incr nnh
10848 }
10849 }
10850 }
10851 }
10852 foreach x [array names growanc] {
10854 return 0
10855 }
10856 return 0
10857 }
10858 return 1
10859 }
10861 proc validate_arctags {a} {
10862 global arctags idtags
10864 set i -1
10867 incr i
10870 incr i -1
10871 }
10872 }
10874 }
10876 proc validate_archeads {a} {
10877 global archeads idheads
10879 set i -1
10882 incr i
10885 incr i -1
10886 }
10887 }
10889 }
10891 # Return the list of IDs that have tags that are descendents of id,
10892 # ignoring IDs that are descendents of IDs already reported.
10893 proc desctags {id} {
10894 global arcnos arcstart arcids arctags idtags allparents
10895 global growing cached_dtags
10898 return {}
10899 }
10900 set t1 [clock clicks -milliseconds]
10903 # part-way along an arc; check that arc first
10908 set tid {}
10913 }
10916 }
10917 }
10921 }
10922 }
10925 }
10930 set nc 1
10936 incr nc -1
10937 }
10938 # ignore tags on starting node
10942 set ta 1
10945 set ta 1
10946 }
10947 }
10954 }
10955 }
10964 }
10967 }
10969 incr nc -1
10970 }
10972 }
10973 }
10974 }
10979 incr nc
10980 }
10981 }
10982 }
10983 }
10984 set tags {}
10985 foreach id [array names tagloc] {
10990 }
10991 }
10992 }
10993 }
10994 set t2 [clock clicks -milliseconds]
10997 # remove tags that are descendents of other tags
11005 incr j -1
11006 incr i -1
11009 incr i -1
11010 break
11011 }
11012 }
11013 }
11015 if {[array names growing] ne {}} {
11016 # graph isn't finished, need to check if any tag could get
11017 # eclipsed by another tag coming later. Simply ignore any
11018 # tags that could later get eclipsed.
11019 set ctags {}
11023 }
11024 }
11027 } else {
11029 }
11030 } else {
11032 }
11033 set t3 [clock clicks -milliseconds]
11037 }
11039 }
11041 proc anctags {id} {
11042 global arcnos arcids arcout arcend arctags idtags allparents
11043 global growing cached_atags
11046 return {}
11047 }
11048 set t1 [clock clicks -milliseconds]
11051 # part-way along an arc; check that arc first
11060 }
11061 }
11062 }
11064 return {}
11065 }
11069 }
11070 }
11073 }
11078 set taglist {}
11079 set nc 1
11085 incr nc -1
11086 }
11087 # ignore tags on starting node
11091 set td 1
11094 set td 1
11095 }
11096 }
11102 }
11103 }
11115 }
11116 }
11119 }
11121 incr nc -1
11122 }
11124 }
11125 }
11126 }
11131 incr nc
11132 }
11133 }
11134 }
11135 }
11136 set t2 [clock clicks -milliseconds]
11138 set tags {}
11139 foreach id [array names tagloc] {
11144 }
11145 }
11146 }
11147 }
11149 # remove tags that are ancestors of other tags
11157 incr j -1
11158 incr i -1
11161 incr i -1
11162 break
11163 }
11164 }
11165 }
11167 if {[array names growing] ne {}} {
11168 # graph isn't finished, need to check if any tag could get
11169 # eclipsed by another tag coming later. Simply ignore any
11170 # tags that could later get eclipsed.
11171 set ctags {}
11175 }
11176 }
11179 } else {
11181 }
11182 } else {
11184 }
11185 set t3 [clock clicks -milliseconds]
11189 }
11191 }
11193 # Return the list of IDs that have heads that are descendents of id,
11194 # including id itself if it has a head.
11195 proc descheads {id} {
11196 global arcnos arcstart arcids archeads idheads cached_dheads
11197 global allparents arcout
11200 return {}
11201 }
11202 set aret {}
11204 # part-way along an arc; check it first
11213 }
11214 }
11216 }
11220 set ret {}
11225 } else {
11228 }
11234 }
11235 }
11240 }
11241 }
11242 }
11243 }
11247 }
11249 proc addedtag {id} {
11250 global arcnos arcout cached_dtags cached_atags
11255 }
11256 unset -nocomplain cached_dtags
11257 unset -nocomplain cached_atags
11258 }
11260 proc addedhead {hid head} {
11261 global arcnos arcout cached_dheads
11266 }
11267 unset -nocomplain cached_dheads
11268 }
11270 proc removedhead {hid head} {
11271 global cached_dheads
11273 unset -nocomplain cached_dheads
11274 }
11276 proc movedhead {hid head} {
11277 global arcnos arcout cached_dheads
11282 }
11283 unset -nocomplain cached_dheads
11284 }
11286 proc changedrefs {} {
11287 global cached_dheads cached_dtags cached_atags cached_tagcontent
11288 global arctags archeads arcnos arcout idheads idtags
11290 foreach id [concat [array names idheads] [array names idtags]] {
11296 }
11297 }
11298 }
11299 unset -nocomplain cached_tagcontent
11300 unset -nocomplain cached_dtags
11301 unset -nocomplain cached_atags
11302 unset -nocomplain cached_dheads
11303 }
11305 proc rereadrefs {} {
11306 global idtags idheads idotherrefs mainheadid
11308 set refids [concat [array names idtags] \
11309 [array names idheads] [array names idotherrefs]]
11313 }
11314 }
11316 readrefs
11317 changedrefs
11319 [array names idheads] [array names idotherrefs]]]
11324 }
11325 }
11329 }
11330 run refill_reflist
11331 }
11333 proc listrefs {id} {
11334 global idtags idheads idotherrefs
11336 set x {}
11339 }
11340 set y {}
11343 }
11344 set z {}
11347 }
11349 }
11351 proc add_tag_ctext {tag} {
11352 global ctext cached_tagcontent tagids
11355 catch {
11357 }
11358 }
11362 } else {
11364 }
11366 }
11368 proc showtag {tag isnew} {
11369 global ctext cached_tagcontent tagids linknum tagobjid
11373 }
11375 clear_ctext
11376 settabs 0
11377 set linknum 0
11379 maybe_scroll_ctext 1
11381 init_flist {}
11382 }
11384 proc showtags {id isnew} {
11385 global idtags ctext linknum
11389 }
11391 clear_ctext
11392 settabs 0
11393 set linknum 0
11394 set sep {}
11398 set sep "\n\n"
11399 }
11400 maybe_scroll_ctext 1
11402 init_flist {}
11403 }
11405 proc doquit {} {
11406 global stopped
11407 global gitktmpdir
11409 set stopped 100
11410 savestuff .
11411 destroy .
11413 if {[info exists gitktmpdir]} {
11415 }
11416 }
11418 proc mkfontdisp {font top which} {
11427 }
11429 proc choosefont {font which} {
11430 global fontparam fontlist fonttop fontattr
11431 global prefstop NS
11439 set top .gitkfont
11442 font create sample
11449 set fontlist [lsort [font families]]
11460 -textvariable fontparam(size) \
11461 -validatecommand {string is integer -strict %s}
11463 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
11464 -variable fontparam(weight) -onvalue bold -offvalue normal
11466 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
11467 -variable fontparam(slant) -onvalue italic -offvalue roman
11471 -background white
11473 -fill black -tags text
11485 trace add variable fontparam write chg_fontparam
11486 } else {
11489 }
11494 }
11495 }
11497 proc centertext {w} {
11499 }
11501 proc fontok {} {
11502 global fontparam fontpref prefstop
11508 }
11511 }
11515 fontcan
11516 }
11518 proc fontcan {} {
11519 global fonttop fontparam
11521 if {[info exists fonttop]} {
11523 catch {font delete sample}
11524 unset fonttop
11525 unset fontparam
11526 }
11527 }
11529 if {[package vsatisfies [package provide Tk] 8.6]} {
11530 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
11531 # function to make use of it.
11532 proc choosefont {font which} {
11535 tk fontchooser show
11536 }
11537 proc on_choosefont {font which newfont} {
11538 global fontparam
11547 fontok
11548 }
11549 }
11551 proc selfontfam {} {
11552 global fonttop fontparam
11557 }
11558 }
11560 proc chg_fontparam {v sub op} {
11561 global fontparam
11564 }
11566 # Create a property sheet tab page
11567 proc create_prefs_page {w} {
11568 global NS
11572 } else {
11574 }
11575 }
11577 proc prefspage_general {notebook} {
11578 global NS maxwidth maxgraphpct showneartags showlocalchanges
11579 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11580 global hideremotes want_ttk have_ttk maxrefs web_browser
11590 #xgettext:no-tcl-format
11595 -variable showlocalchanges
11598 -variable autoselect
11602 -variable hideremotes
11611 -variable showneartags
11617 -variable limitdiffs
11620 -variable perfile_attrs
11641 -text [mc "Use themed widgets"]
11644 } else {
11646 }
11649 }
11651 proc prefspage_colors {notebook} {
11652 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11653 global diffbgcolors
11679 [mc "diff old lines bg"] \
11690 [mc "diff new lines bg"] \
11696 [mc "diff hunk header"] \
11702 [mc "marked line background"] \
11710 }
11712 proc prefspage_fonts {notebook} {
11713 global NS
11721 }
11723 proc doprefs {} {
11724 global maxwidth maxgraphpct use_ttk NS
11725 global oldprefs prefstop showneartags showlocalchanges
11726 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11727 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11728 global hideremotes want_ttk have_ttk
11730 set top .gitkprefs
11734 return
11735 }
11736 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11737 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11739 }
11746 } else {
11748 }
11753 set col 0
11757 } else {
11763 }
11764 }
11770 }
11787 }
11789 proc choose_extdiff {} {
11790 global extdifftool
11792 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11795 }
11796 }
11798 proc choosecolor {v vi w x cmd} {
11807 }
11809 proc setselbg {c} {
11810 global bglist cflist
11814 }
11815 }
11819 }
11821 # This sets the background color and the color scheme for the whole UI.
11822 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11823 # if we don't specify one ourselves, which makes the checkbuttons and
11824 # radiobuttons look bad. This chooses white for selectColor if the
11825 # background color is light, or black if it is dark.
11826 proc setui {c} {
11827 if {[tk windowingsystem] eq "win32"} { return }
11829 set selc black
11831 set selc white
11832 }
11834 }
11836 proc setbg {c} {
11837 global bglist
11842 }
11843 }
11844 }
11846 proc setfg {c} {
11847 global fglist canv
11852 }
11853 }
11857 }
11859 proc prefscan {} {
11860 global oldprefs prefstop
11862 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11863 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11866 }
11868 unset prefstop
11869 fontcan
11870 }
11872 proc prefsok {} {
11873 global maxwidth maxgraphpct
11874 global oldprefs prefstop showneartags showlocalchanges
11875 global fontpref mainfont textfont uifont
11876 global limitdiffs treediffs perfile_attrs
11877 global hideremotes
11880 unset prefstop
11881 fontcan
11882 set fontchanged 0
11886 eval font configure mainfont [fontflags mainfont]
11887 eval font configure mainfontbold [fontflags mainfont 1]
11888 setcoords
11889 set fontchanged 1
11890 }
11894 eval font configure textfont [fontflags textfont]
11895 eval font configure textfontbold [fontflags textfont 1]
11896 }
11900 eval font configure uifont [fontflags uifont]
11901 }
11902 settabs
11905 doshowlocalchanges
11906 } else {
11907 dohidelocalchanges
11908 }
11909 }
11912 # treediffs elements are limited by path;
11913 # won't have encodings cached if perfile_attrs was just turned on
11914 unset -nocomplain treediffs
11915 }
11918 redisplay
11921 reselectline
11922 }
11924 rereadrefs
11925 }
11926 }
11928 proc formatdate {d} {
11929 global datetimeformat
11932 # timezone of the argument. Otherwise, display in local time.
11934 if {[catch {set d [clock format [lindex $d 0] -timezone [lindex $d 1] -format $datetimeformat]}]} {
11935 # Tcl < 8.5 does not support -timezone. Emulate it by
11936 # setting TZ (e.g. TZ=<-0430>+04:30).
11937 global env
11938 if {[info exists env(TZ)]} {
11940 }
11945 if {[info exists savedTZ]} {
11947 } else {
11948 unset env(TZ)
11949 }
11950 }
11951 } else {
11953 }
11954 }
11956 }
11958 # This list of encoding names and aliases is distilled from
11959 # http://www.iana.org/assignments/character-sets.
11960 # Not all of them are supported by Tcl.
11961 set encoding_aliases {
11962 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11963 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11964 { ISO-10646-UTF-1 csISO10646UTF1 }
11965 { ISO_646.basic:1983 ref csISO646basic1983 }
11966 { INVARIANT csINVARIANT }
11967 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11968 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11969 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11970 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11971 { NATS-DANO iso-ir-9-1 csNATSDANO }
11972 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11973 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11974 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11975 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11976 { ISO-2022-KR csISO2022KR }
11977 { EUC-KR csEUCKR }
11978 { ISO-2022-JP csISO2022JP }
11979 { ISO-2022-JP-2 csISO2022JP2 }
11980 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11981 csISO13JISC6220jp }
11982 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11983 { IT iso-ir-15 ISO646-IT csISO15Italian }
11984 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11985 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11986 { greek7-old iso-ir-18 csISO18Greek7Old }
11987 { latin-greek iso-ir-19 csISO19LatinGreek }
11988 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11989 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11990 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11991 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11992 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11993 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11994 { INIS iso-ir-49 csISO49INIS }
11995 { INIS-8 iso-ir-50 csISO50INIS8 }
11996 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11997 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11998 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11999 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
12000 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
12001 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
12002 csISO60Norwegian1 }
12003 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
12004 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
12005 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
12006 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
12007 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
12008 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
12009 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
12010 { greek7 iso-ir-88 csISO88Greek7 }
12011 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
12012 { iso-ir-90 csISO90 }
12013 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
12014 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
12015 csISO92JISC62991984b }
12016 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
12017 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
12018 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
12019 csISO95JIS62291984handadd }
12020 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
12021 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
12022 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
12023 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
12024 CP819 csISOLatin1 }
12025 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
12026 { T.61-7bit iso-ir-102 csISO102T617bit }
12027 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
12028 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
12029 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
12030 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
12031 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
12032 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
12033 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
12034 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
12035 arabic csISOLatinArabic }
12036 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
12037 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
12038 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
12039 greek greek8 csISOLatinGreek }
12040 { T.101-G2 iso-ir-128 csISO128T101G2 }
12041 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
12042 csISOLatinHebrew }
12043 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
12044 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
12045 { CSN_369103 iso-ir-139 csISO139CSN369103 }
12046 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
12047 { ISO_6937-2-add iso-ir-142 csISOTextComm }
12048 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
12049 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
12050 csISOLatinCyrillic }
12051 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
12052 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
12053 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
12054 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
12055 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
12056 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
12057 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
12058 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
12059 { ISO_10367-box iso-ir-155 csISO10367Box }
12060 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
12061 { latin-lap lap iso-ir-158 csISO158Lap }
12062 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
12063 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
12064 { us-dk csUSDK }
12065 { dk-us csDKUS }
12066 { JIS_X0201 X0201 csHalfWidthKatakana }
12067 { KSC5636 ISO646-KR csKSC5636 }
12068 { ISO-10646-UCS-2 csUnicode }
12069 { ISO-10646-UCS-4 csUCS4 }
12070 { DEC-MCS dec csDECMCS }
12071 { hp-roman8 roman8 r8 csHPRoman8 }
12072 { macintosh mac csMacintosh }
12073 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
12074 csIBM037 }
12075 { IBM038 EBCDIC-INT cp038 csIBM038 }
12076 { IBM273 CP273 csIBM273 }
12077 { IBM274 EBCDIC-BE CP274 csIBM274 }
12078 { IBM275 EBCDIC-BR cp275 csIBM275 }
12079 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
12080 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
12081 { IBM280 CP280 ebcdic-cp-it csIBM280 }
12082 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
12083 { IBM284 CP284 ebcdic-cp-es csIBM284 }
12084 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
12085 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
12086 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
12087 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
12088 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
12089 { IBM424 cp424 ebcdic-cp-he csIBM424 }
12090 { IBM437 cp437 437 csPC8CodePage437 }
12091 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
12092 { IBM775 cp775 csPC775Baltic }
12093 { IBM850 cp850 850 csPC850Multilingual }
12094 { IBM851 cp851 851 csIBM851 }
12095 { IBM852 cp852 852 csPCp852 }
12096 { IBM855 cp855 855 csIBM855 }
12097 { IBM857 cp857 857 csIBM857 }
12098 { IBM860 cp860 860 csIBM860 }
12099 { IBM861 cp861 861 cp-is csIBM861 }
12100 { IBM862 cp862 862 csPC862LatinHebrew }
12101 { IBM863 cp863 863 csIBM863 }
12102 { IBM864 cp864 csIBM864 }
12103 { IBM865 cp865 865 csIBM865 }
12104 { IBM866 cp866 866 csIBM866 }
12105 { IBM868 CP868 cp-ar csIBM868 }
12106 { IBM869 cp869 869 cp-gr csIBM869 }
12107 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
12108 { IBM871 CP871 ebcdic-cp-is csIBM871 }
12109 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
12110 { IBM891 cp891 csIBM891 }
12111 { IBM903 cp903 csIBM903 }
12112 { IBM904 cp904 904 csIBBM904 }
12113 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
12114 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
12115 { IBM1026 CP1026 csIBM1026 }
12116 { EBCDIC-AT-DE csIBMEBCDICATDE }
12117 { EBCDIC-AT-DE-A csEBCDICATDEA }
12118 { EBCDIC-CA-FR csEBCDICCAFR }
12119 { EBCDIC-DK-NO csEBCDICDKNO }
12120 { EBCDIC-DK-NO-A csEBCDICDKNOA }
12121 { EBCDIC-FI-SE csEBCDICFISE }
12122 { EBCDIC-FI-SE-A csEBCDICFISEA }
12123 { EBCDIC-FR csEBCDICFR }
12124 { EBCDIC-IT csEBCDICIT }
12125 { EBCDIC-PT csEBCDICPT }
12126 { EBCDIC-ES csEBCDICES }
12127 { EBCDIC-ES-A csEBCDICESA }
12128 { EBCDIC-ES-S csEBCDICESS }
12129 { EBCDIC-UK csEBCDICUK }
12130 { EBCDIC-US csEBCDICUS }
12131 { UNKNOWN-8BIT csUnknown8BiT }
12132 { MNEMONIC csMnemonic }
12133 { MNEM csMnem }
12134 { VISCII csVISCII }
12135 { VIQR csVIQR }
12136 { KOI8-R csKOI8R }
12137 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
12138 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
12139 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
12140 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
12141 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
12142 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
12143 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
12144 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
12145 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
12146 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
12147 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
12148 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
12149 { IBM1047 IBM-1047 }
12150 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
12151 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
12152 { UNICODE-1-1 csUnicode11 }
12153 { CESU-8 csCESU-8 }
12154 { BOCU-1 csBOCU-1 }
12155 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
12156 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
12157 l8 }
12158 { ISO-8859-15 ISO_8859-15 Latin-9 }
12159 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
12160 { GBK CP936 MS936 windows-936 }
12161 { JIS_Encoding csJISEncoding }
12162 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
12163 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
12164 EUC-JP }
12165 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
12166 { ISO-10646-UCS-Basic csUnicodeASCII }
12167 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
12168 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
12169 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
12170 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
12171 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
12172 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
12173 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
12174 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
12175 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
12176 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
12177 { Adobe-Standard-Encoding csAdobeStandardEncoding }
12178 { Ventura-US csVenturaUS }
12179 { Ventura-International csVenturaInternational }
12180 { PC8-Danish-Norwegian csPC8DanishNorwegian }
12181 { PC8-Turkish csPC8Turkish }
12182 { IBM-Symbols csIBMSymbols }
12183 { IBM-Thai csIBMThai }
12184 { HP-Legal csHPLegal }
12185 { HP-Pi-font csHPPiFont }
12186 { HP-Math8 csHPMath8 }
12187 { Adobe-Symbol-Encoding csHPPSMath }
12188 { HP-DeskTop csHPDesktop }
12189 { Ventura-Math csVenturaMath }
12190 { Microsoft-Publishing csMicrosoftPublishing }
12191 { Windows-31J csWindows31J }
12192 { GB2312 csGB2312 }
12193 { Big5 csBig5 }
12194 }
12196 proc tcl_encoding {enc} {
12197 global encoding_aliases tcl_encoding_cache
12200 }
12201 set names [encoding names]
12206 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
12209 }
12210 }
12215 # look through the aliases for one that tcl knows about
12221 }
12222 }
12224 }
12225 break
12226 }
12227 }
12228 set tclenc {}
12231 }
12234 }
12236 proc gitattr {path attr default} {
12237 global path_attr_cache
12240 } else {
12241 set r "unspecified"
12244 }
12246 }
12249 }
12251 }
12253 proc cache_gitattr {attr pathlist} {
12254 global path_attr_cache
12255 set newlist {}
12259 }
12260 }
12261 set lim 1000
12262 if {[tk windowingsystem] == "win32"} {
12263 # windows has a 32k limit on the arguments to a command...
12264 set lim 30
12265 }
12274 }
12276 }
12277 }
12278 }
12279 }
12280 }
12282 proc get_path_encoding {path} {
12283 global gui_encoding perfile_attrs
12289 }
12290 }
12292 }
12294 ## For msgcat loading, first locate the installation location.
12295 if { [info exists ::env(GITK_MSGSDIR)] } {
12296 ## Msgsdir was manually set in the environment.
12297 set gitk_msgsdir $::env(GITK_MSGSDIR)
12298 } else {
12299 ## Let's guess the prefix from argv0.
12303 unset gitk_prefix
12304 }
12306 ## Internationalization (i18n) through msgcat and gettext. See
12307 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
12308 package require msgcat
12309 namespace import ::msgcat::mc
12310 ## And eventually load the actual message catalog
12313 # First check that Tcl/Tk is recent enough
12314 if {[catch {package require Tk 8.4} err]} {
12315 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
12316 Gitk requires at least Tcl/Tk 8.4."]
12317 exit 1
12318 }
12320 # on OSX bring the current Wish process window to front
12321 if {[tk windowingsystem] eq "aqua"} {
12322 exec osascript -e [format {
12323 tell application "System Events"
12324 set frontmost of processes whose unix id is %d to true
12325 end tell
12326 } [pid] ]
12327 }
12329 # Unset GIT_TRACE var if set
12330 if { [info exists ::env(GIT_TRACE)] } {
12331 unset ::env(GIT_TRACE)
12332 }
12334 # defaults...
12335 set wrcomcmd "git diff-tree --stdin -p --pretty=email"
12337 set gitencoding {}
12338 catch {
12339 set gitencoding [exec git config --get i18n.commitencoding]
12340 }
12341 catch {
12342 set gitencoding [exec git config --get i18n.logoutputencoding]
12343 }
12345 set gitencoding "utf-8"
12346 }
12350 }
12352 set gui_encoding [encoding system]
12353 catch {
12354 set enc [exec git config --get gui.encoding]
12359 } else {
12361 }
12362 }
12363 }
12365 set log_showroot true
12366 catch {
12367 set log_showroot [exec git config --bool --get log.showroot]
12368 }
12370 if {[tk windowingsystem] eq "aqua"} {
12371 set mainfont {{Lucida Grande} 9}
12372 set textfont {Monaco 9}
12373 set uifont {{Lucida Grande} 9 bold}
12375 # fontconfig!
12376 set mainfont {sans 9}
12377 set textfont {monospace 9}
12378 set uifont {sans 9 bold}
12379 } else {
12380 set mainfont {Helvetica 9}
12381 set textfont {Courier 9}
12382 set uifont {Helvetica 9 bold}
12383 }
12384 set tabstop 8
12385 set findmergefiles 0
12386 set maxgraphpct 50
12387 set maxwidth 16
12388 set revlistorder 0
12389 set fastdate 0
12390 set uparrowlen 5
12391 set downarrowlen 5
12392 set mingaplen 100
12393 set cmitmode "patch"
12394 set wrapcomment "none"
12395 set showneartags 1
12396 set hideremotes 0
12397 set maxrefs 20
12398 set visiblerefs {"master"}
12399 set maxlinelen 200
12400 set showlocalchanges 1
12401 set limitdiffs 1
12402 set datetimeformat "%Y-%m-%d %H:%M:%S"
12403 set autoselect 1
12404 set autosellen 40
12405 set perfile_attrs 0
12406 set want_ttk 1
12408 if {[tk windowingsystem] eq "aqua"} {
12409 set extdifftool "opendiff"
12410 } else {
12411 set extdifftool "meld"
12412 }
12414 set colors {"#00ff00" red blue magenta darkgrey brown orange}
12415 if {[tk windowingsystem] eq "win32"} {
12416 set uicolor SystemButtonFace
12417 set uifgcolor SystemButtonText
12418 set uifgdisabledcolor SystemDisabledText
12419 set bgcolor SystemWindow
12420 set fgcolor SystemWindowText
12421 set selectbgcolor SystemHighlight
12422 set web_browser "cmd /c start"
12423 } else {
12424 set uicolor grey85
12425 set uifgcolor black
12426 set uifgdisabledcolor "#999"
12427 set bgcolor white
12428 set fgcolor black
12429 set selectbgcolor gray85
12430 if {[tk windowingsystem] eq "aqua"} {
12431 set web_browser "open"
12432 } else {
12433 set web_browser "xdg-open"
12434 }
12435 }
12436 set diffcolors {"#c30000" "#009800" blue}
12437 set diffbgcolors {"#fff3f3" "#f0fff0"}
12438 set diffcontext 3
12439 set mergecolors {red blue "#00ff00" purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
12440 set ignorespace 0
12441 set worddiff ""
12442 set markbgcolor "#e0e0ff"
12444 set headbgcolor "#00ff00"
12445 set headfgcolor black
12446 set headoutlinecolor black
12447 set remotebgcolor #ffddaa
12448 set tagbgcolor yellow
12449 set tagfgcolor black
12450 set tagoutlinecolor black
12451 set reflinecolor black
12452 set filesepbgcolor #aaaaaa
12453 set filesepfgcolor black
12454 set linehoverbgcolor #ffff80
12455 set linehoverfgcolor black
12456 set linehoveroutlinecolor black
12457 set mainheadcirclecolor yellow
12458 set workingfilescirclecolor red
12459 set indexcirclecolor "#00ff00"
12460 set circlecolors {white blue gray blue blue}
12461 set linkfgcolor blue
12463 set foundbgcolor yellow
12464 set currentsearchhitbgcolor orange
12466 # button for popping up context menus
12467 if {[tk windowingsystem] eq "aqua"} {
12468 set ctxbut <Button-2>
12469 } else {
12470 set ctxbut <Button-3>
12471 }
12473 catch {
12474 # follow the XDG base directory specification by default. See
12475 # http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html
12477 # XDG_CONFIG_HOME environment variable is set
12480 } else {
12481 # default XDG_CONFIG_HOME
12482 set config_file "~/.config/git/gitk"
12483 set config_file_tmp "~/.config/git/gitk-tmp"
12484 }
12486 # for backward compatibility use the old config file if it exists
12487 if {[file exists "~/.gitk"]} {
12488 set config_file "~/.gitk"
12489 set config_file_tmp "~/.gitk-tmp"
12492 }
12493 }
12495 }
12496 config_check_tmp_exists 50
12498 set config_variables {
12499 mainfont textfont uifont tabstop findmergefiles maxgraphpct maxwidth
12500 cmitmode wrapcomment autoselect autosellen showneartags maxrefs visiblerefs
12501 hideremotes showlocalchanges datetimeformat limitdiffs uicolor want_ttk
12502 bgcolor fgcolor uifgcolor uifgdisabledcolor colors diffcolors mergecolors
12503 markbgcolor diffcontext selectbgcolor foundbgcolor currentsearchhitbgcolor
12504 extdifftool perfile_attrs headbgcolor headfgcolor headoutlinecolor
12505 remotebgcolor tagbgcolor tagfgcolor tagoutlinecolor reflinecolor
12506 filesepbgcolor filesepfgcolor linehoverbgcolor linehoverfgcolor
12507 linehoveroutlinecolor mainheadcirclecolor workingfilescirclecolor
12508 indexcirclecolor circlecolors linkfgcolor circleoutlinecolor diffbgcolors
12509 web_browser
12510 }
12514 }
12517 eval font create mainfont [fontflags mainfont]
12518 eval font create mainfontbold [fontflags mainfont 1]
12521 eval font create textfont [fontflags textfont]
12522 eval font create textfontbold [fontflags textfont 1]
12525 eval font create uifont [fontflags uifont]
12529 setoptions
12531 # check that we can find a .git directory somewhere...
12532 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
12533 show_error {} . [mc "Cannot find a git repository here."]
12534 exit 1
12535 }
12537 set selecthead {}
12538 set selectheadid {}
12540 set revtreeargs {}
12541 set cmdline_files {}
12542 set i 0
12543 set revtreeargscmd {}
12546 "" { }
12547 "--" {
12549 break
12550 }
12551 "--select-commit=*" {
12553 }
12554 "--argscmd=*" {
12556 }
12557 default {
12559 }
12560 }
12561 incr i
12562 }
12565 set selecthead {}
12566 }
12569 # no -- on command line, but some arguments (other than --argscmd)
12570 if {[catch {
12575 # Unfortunately git rev-parse doesn't produce an error when
12576 # something is both a revision and a filename. To be consistent
12577 # with git log and git rev-list, check revtreeargs for filenames.
12580 show_error {} . [mc "Ambiguous argument '%s': both revision\
12582 exit 1
12583 }
12584 }
12585 } err]} {
12587 # so look for "fatal:".
12591 }
12593 exit 1
12594 }
12595 }
12597 set nullid "0000000000000000000000000000000000000000"
12598 set nullid2 "0000000000000000000000000000000000000001"
12599 set nullfile "/dev/null"
12602 if {![info exists have_ttk]} {
12603 set have_ttk [llength [info commands ::ttk::style]]
12604 }
12609 setttkstyle
12610 }
12612 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
12614 set show_notes {}
12616 set show_notes "--show-notes"
12617 }
12619 set appname "gitk"
12621 set runq {}
12622 set history {}
12623 set historyindex 0
12624 set fh_serial 0
12625 set nhl_names {}
12626 set highlight_paths {}
12627 set findpattern {}
12628 set searchdirn -forwards
12629 set boldids {}
12630 set boldnameids {}
12631 set diffelide {0 0}
12632 set markingmatches 0
12633 set linkentercount 0
12634 set need_redisplay 0
12635 set nrows_drawn 0
12636 set firsttabstop 0
12638 set nextviewnum 1
12639 set curview 0
12640 set selectedview 0
12641 set selectedhlview [mc "None"]
12642 set highlight_related [mc "None"]
12643 set highlight_files {}
12644 set viewfiles(0) {}
12645 set viewperm(0) 0
12646 set viewchanged(0) 0
12647 set viewargs(0) {}
12648 set viewargscmd(0) {}
12650 set selectedline {}
12651 set numcommits 0
12652 set loginstance 0
12653 set cmdlineok 0
12654 set stopped 0
12655 set stuffsaved 0
12656 set patchnum 0
12657 set lserial 0
12658 set hasworktree [hasworktree]
12659 set cdup {}
12660 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
12661 set cdup [exec git rev-parse --show-cdup]
12662 }
12663 set worktree [gitworktree]
12664 setcoords
12665 makewindow
12666 catch {
12667 image create photo gitlogo -width 16 -height 16
12669 image create photo gitlogominus -width 4 -height 2
12670 gitlogominus put #C00000 -to 0 0 4 2
12671 gitlogo copy gitlogominus -to 1 5
12672 gitlogo copy gitlogominus -to 6 5
12673 gitlogo copy gitlogominus -to 11 5
12674 image delete gitlogominus
12676 image create photo gitlogoplus -width 4 -height 4
12677 gitlogoplus put #008000 -to 1 0 3 4
12678 gitlogoplus put #008000 -to 0 1 4 3
12679 gitlogo copy gitlogoplus -to 1 9
12680 gitlogo copy gitlogoplus -to 6 9
12681 gitlogo copy gitlogoplus -to 11 9
12682 image delete gitlogoplus
12684 image create photo gitlogo32 -width 32 -height 32
12685 gitlogo32 copy gitlogo -zoom 2 2
12687 wm iconphoto . -default gitlogo gitlogo32
12688 }
12689 # wait for the window to become visible
12690 tkwait visibility .
12691 set_window_title
12692 update
12693 readrefs
12696 # create a view for the files/dirs specified on the command line
12697 set curview 1
12698 set selectedview 1
12699 set nextviewnum 2
12700 set viewname(1) [mc "Command line"]
12704 set viewperm(1) 0
12705 set viewchanged(1) 0
12706 set vdatemode(1) 0
12707 addviewmenu 1
12708 .bar.view entryconf [mca "&Edit view..."] -state normal
12709 .bar.view entryconf [mca "&Delete view"] -state normal
12710 }
12712 if {[info exists permviews]} {
12715 incr nextviewnum
12723 }
12724 }
12726 if {[tk windowingsystem] eq "win32"} {
12727 focus -force .
12728 }
12730 getcommits {}
12732 # Local variables:
12733 # mode: tcl
12734 # indent-tabs-mode: t
12735 # tab-width: 8
12736 # End: