| blob | 9a2daf3c55b2292239ec9667a919b5121a7e965e |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2014 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 package require Tk
12 proc hasworktree {} {
15 }
17 proc reponame {} {
18 global gitdir
22 }
24 }
26 proc gitworktree {} {
27 variable _gitworktree
30 }
31 # v1.7.0 introduced --show-toplevel to return the canonical work-tree
33 # try to set work tree from environment, core.worktree or use
34 # cdup to obtain a relative path to the top of the worktree. If
35 # run from the top, the ./ prefix ensures normalize expands pwd.
40 }
41 }
42 }
44 }
46 # A simple scheduler for compute-intensive stuff.
47 # The aim is to make sure that event handlers for GUI actions can
48 # run at least every 50-100 ms. Unfortunately fileevent handlers are
49 # run before X event handlers, so reading from a fast source can
50 # make the GUI completely unresponsive.
51 proc run args {
52 global isonrunq runq currunq
57 after idle dorunq
58 }
61 }
65 }
68 global runq currunq
72 after idle dorunq
73 }
75 }
78 global runq
84 incr i
85 }
86 }
87 }
89 proc dorunq {} {
90 global isonrunq runq currunq
100 unset currunq
105 # script returns 1 if it wants to be readded
106 # file readers return 2 if they could do more straight away
110 }
113 }
116 }
118 after idle dorunq
119 }
120 }
123 global commfd leftover loginstance
129 }
132 global nr_unmerged
134 # find the list of unmerged files
141 exit 1
142 }
148 incr nr_unmerged
151 }
152 }
155 }
157 proc parseviewargs {n arglist} {
158 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
159 global vinlinediff
160 global worddiff git_version
165 set glflags {}
166 set diffargs {}
167 set nextisval 0
168 set revargs {}
170 set allknown 1
171 set filtered 0
172 set i -1
174 incr i
177 set nextisval 0
178 continue
179 }
181 "-d" -
182 "--date-order" {
184 # remove from origargs in case we hit an unknown option
186 incr i -1
187 }
188 "-[puabwcrRBMC]" -
189 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
190 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
191 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
192 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
193 "--ignore-space-change" - "-U*" - "--unified=*" {
194 # These request or affect diff output, which we don't want.
195 # Some could be used to set our defaults for diff display.
196 lappend diffargs $arg
197 }
205 # These cause our parsing of git log's output to fail, or else
206 # they're options we want to set ourselves, so ignore them.
207 }
209 # These trigger a word diff in the console interface,
210 # so help the user by enabling our own support
213 }
214 }
218 }
219 }
224 # These are harmless, and some are even useful
225 lappend glflags $arg
226 }
234 # These mean that we get a subset of the commits
236 lappend glflags $arg
237 }
239 # Line-log with 'stuck' argument (unstuck form is
240 # not supported)
244 lappend glflags $arg
245 }
247 # This appears to be the only one that has a value as a
248 # separate word following it
251 lappend glflags $arg
252 }
254 lappend revargs $arg
255 }
258 # git rev-parse doesn't understand --merge
259 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
260 }
263 }
265 # Other flag arguments including -<n>
269 # a flag argument that we don't recognize;
270 # that means we can't optimize
272 }
273 lappend glflags $arg
274 }
275 default {
276 # Non-flag arguments specify commits or ranges of commits
278 lappend revargs --gitk-symmetric-diff-marker
279 }
280 lappend revargs $arg
281 }
282 }
283 }
290 }
293 global vposids vnegids
296 set revs HEAD
298 lappend revs HEAD
299 }
301 # we get stdout followed by stderr in $err
302 # for an unknown rev, git rev-parse echoes it and then errors out
315 }
318 }
319 break
320 }
321 lappend badrev $line
322 }
323 }
326 }
336 lappend ret $id
339 }
340 }
344 lappend ret $id
347 }
348 lappend pos $id
349 }
350 incr sdm -1
351 }
355 }
357 # Start off a git log process and arrange to read its output
359 global startmsecs commitidx viewcomplete curview
360 global tclencoding
361 global viewargs viewargscmd viewfiles vfilelimit
362 global showlocalchanges
363 global viewactive viewinstances vmergeonly
364 global mainheadid viewmainheadid viewmainheadid_orig
365 global vcanopt vflags vrevs vorigargs
366 global show_notes
370 # these are set this way for the error exits
373 varcinit $view
382 }
384 }
391 global nr_unmerged
398 }
400 }
401 }
408 }
412 }
420 }
426 get_viewmainhead $view
427 }
430 }
434 }
440 }
443 global commfd leftover
446 catch {
453 }
454 }
456 nukefile $fd
459 }
461 proc stop_backends {} {
462 global commfd
465 stop_instance $inst
466 }
467 }
470 global viewinstances
473 stop_instance $inst
474 }
476 }
479 global pending_select mainheadid selectheadid
487 }
488 }
491 global canv curview need_redisplay viewactive
493 initlayout
495 reset_pending_select $selid
500 }
501 }
503 proc updatecommits {} {
504 global curview vcanopt vorigargs vfilelimit viewinstances
505 global viewactive viewcomplete tclencoding
506 global startmsecs showneartags showlocalchanges
507 global mainheadid viewmainheadid viewmainheadid_orig pending_select
508 global hasworktree
509 global varcid vposids vnegids vflags vrevs
510 global show_notes
513 rereadrefs
517 dohidelocalchanges
518 }
522 get_viewmainhead $view
523 }
524 }
526 doshowlocalchanges
527 }
533 return
534 }
535 # note: getting the delta when negative refs change is hard,
536 # and could require multiple git log invocations, so in that
537 # case we ask git log for all the commits (not just the delta)
541 # take out positive refs that we asked for before or
542 # that we have already seen
547 lappend newrevs $rev
548 incr npos
549 }
551 lappend $newrevs $rev
552 }
553 }
557 }
561 }
567 return
568 }
571 }
577 }
581 reset_pending_select {}
584 getallcommits
585 }
586 }
588 proc reloadcommits {} {
589 global curview viewcomplete selectedline currentid thickerline
590 global showneartags treediffs commitinterest cached_commitrow
591 global targetid
596 }
599 stop_rev_list $curview
600 }
601 resetvarcs $curview
606 readrefs
607 changedrefs
609 getallcommits
610 }
611 clear_display
615 setcanvscroll
616 getcommits $selid
618 }
620 # This makes a string representation of a positive integer which
621 # sorts as a string in numerical order
629 }
631 }
633 # Procedures used in reordering commits from git log (without
634 # --topo-order) into the order for display.
637 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
638 global vtokmod varcmod vrowmod varcix vlastins
652 }
655 global varcid varccommits parents children vseedcount ordertok
656 global vshortids
662 }
665 }
666 # some commits might have children but haven't been seen yet
669 }
672 }
675 }
677 }
679 # returns a list of the commits with no children
681 global vdownptr vleftptr varcstart
688 }
690 }
693 global varcid varctok parents children vdatemode
694 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
695 global commitdata commitinfo vseedcount varccommits vlastins
702 }
706 }
709 }
715 }
724 }
725 }
730 }
737 }
741 }
748 }
754 }
763 }
766 global varcid varcstart varccommits varctok vtokmod
767 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
775 # "%" sorts before "0"...
785 }
795 }
797 modify_arc $v $oa
798 }
799 }
802 global parents children varctok varcstart varccommits
803 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
812 lappend todo $a
817 }
818 }
819 }
820 incr ntot
827 }
828 }
830 }
837 }
843 }
852 }
853 }
858 }
860 continue
861 }
868 }
869 }
874 modify_arc $v $ka
875 }
877 modify_arc $v $b
878 }
885 }
888 }
891 }
900 }
905 }
912 }
916 }
918 }
919 }
924 }
925 }
927 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
928 }
930 # Fix up the graph after we have found out that in view $v,
931 # $p (a commit that we have already seen) is actually the parent
932 # of the last commit in arc $a.
934 global varcid varcstart varctok vupptr
938 splitvarc $p $v
940 }
941 # seeds always need to be renumbered
945 renumbervarc $pa $v
946 }
947 }
950 global cmitlisted children parents varcid varctok vtokmod
951 global varccommits ordertok commitidx numcommits curview
952 global targetid targetrow vshortids
954 readcommit $id
963 modify_arc $v $a
964 }
970 }
971 fix_reversal $p $a $v
975 setcanvscroll
978 incr targetrow
979 }
980 }
981 }
982 }
985 global varcid varccommits parents children cmitlisted
986 global commitidx varctok vtokmod targetid targetrow curview numcommits
993 return
994 }
1001 # note we deliberately don't update varcstart($v) even if $i == 0
1003 modify_arc $v $a $i
1006 incr targetrow
1007 }
1008 }
1009 setcanvscroll
1010 drawvisible
1011 }
1014 global varcid varccommits parents children commitidx
1015 global varctok vtokmod cmitlisted currentid selectedline
1016 global targetid curview numcommits
1021 return
1022 }
1028 return
1029 }
1039 }
1040 modify_arc $v $a $i
1042 unset currentid
1044 }
1047 }
1048 setcanvscroll
1049 drawvisible
1050 }
1053 global children nullid nullid2
1058 lappend kids $id
1059 }
1060 }
1062 }
1065 global children nullid nullid2
1070 }
1071 }
1073 }
1076 global children nullid nullid2
1083 }
1084 }
1086 }
1089 global varctok varcid
1093 }
1095 # This assumes that if lim is not given, the caller has checked that
1096 # arc a's token is less than $vtokmod($v)
1098 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1106 }
1107 }
1114 }
1119 }
1121 }
1123 undolayout $r
1124 }
1125 }
1128 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1129 global varcid vrownum varcorder varcix varccommits
1130 global vupptr vdownptr vleftptr varctok
1131 global displayorder parentlist curview cached_commitrow
1138 }
1140 }
1144 # go up the tree until we find something that has a row number,
1145 # or we get to a seed
1147 }
1162 }
1164 }
1168 # go down if possible
1171 # if not, go left, or go up until we can go left
1176 }
1178 }
1180 incr arcn
1185 }
1191 }
1192 }
1194 # Test whether view $v contains commit $id
1196 global varcid
1199 }
1201 # Return the row number for commit $id in the current view
1203 global varcid varccommits varcrow curview cached_commitrow
1204 global varctok vtokmod
1210 }
1213 update_arcrows $v
1214 }
1217 }
1222 }
1226 }
1228 # Returns 1 if a is on an earlier row than b, otherwise 0
1230 global varcid varctok curview
1236 }
1240 }
1242 }
1247 }
1259 }
1260 }
1262 }
1264 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1266 global vrownum curview commitidx displayorder parentlist
1267 global varccommits varcorder parents vrowmod varcrow
1268 global d_valid_start d_valid_end
1271 update_arcrows $curview
1272 }
1288 }
1290 lappend displayorder $id
1292 }
1296 lset displayorder $i $id
1298 incr i
1299 }
1300 }
1301 incr r $al
1302 }
1303 }
1306 global displayorder
1312 }
1314 }
1317 global varctok varccommits varcid parents children
1318 global cmitlisted commitidx vtokmod
1327 # add p as a new commit
1328 incr missing_parents
1336 }
1339 modify_arc $v $b
1340 }
1344 }
1345 }
1349 }
1350 }
1351 }
1353 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1354 # Assumes we already have an arc for $rwid.
1356 global children parents varcid varctok vtokmod varccommits
1359 # make $rwid be $ch's parent in place of $id
1363 }
1365 # add $ch to $rwid's children and sort the list if necessary
1369 }
1370 # fix the graph after joining $id to $rwid
1372 fix_reversal $rwid $a $v
1373 # parentlist is wrong for the last element of arc $a
1374 # even if displayorder is right, hence the 3rd arg here
1376 }
1377 }
1379 # Mechanism for registering a command to be executed when we come
1380 # across a particular commit. To handle the case when only the
1381 # prefix of the commit is known, the commitinterest array is now
1382 # indexed by the first 4 characters of the ID. Each element is a
1383 # list of id, cmd pairs.
1385 global commitinterest
1388 }
1391 global commitinterest
1400 lappend newlist $i $script
1401 }
1402 }
1407 }
1408 }
1410 }
1413 global cmitlisted leftover
1414 global commitidx commitdata vdatemode
1415 global parents children curview hlview
1416 global idpending ordertok
1417 global varccommits varcid varctok vtokmod vfilelimit vshortids
1420 # git log doesn't terminate the last commit with a null...
1423 }
1427 }
1428 global commfd viewcomplete viewactive viewname
1429 global viewinstances
1434 }
1435 # set it blocking so we wait for the process to terminate
1441 }
1444 bad arguments to git log."
1446 append err \
1447 " (Note: arguments to gitk are passed to git log\
1448 to allow selection of commits to be displayed.)"
1449 }
1452 }
1453 error_popup $err
1454 }
1457 # Check if we have seen any ids listed as parents that haven't
1458 # appeared in the list
1459 closevarcs $view
1460 notbusy $view
1461 }
1463 run chewcommits
1464 }
1466 }
1474 break
1475 }
1482 }
1495 }
1497 }
1502 break
1503 }
1504 }
1505 }
1510 }
1512 exit 1
1513 }
1522 # when doing path limiting, so work around that here
1523 # by working out the rewritten parent with git rev-list
1524 # and if we already know about it, using the rewritten
1525 # parent as a substitute parent for $id's children.
1529 }]} {
1531 # use $rwid in place of $id
1532 rewrite_commit $view $id $rwid
1533 continue
1534 }
1535 }
1536 }
1542 }
1547 }
1559 }
1560 }
1562 # new arc
1564 }
1566 modify_arc $view $a
1567 }
1572 }
1583 }
1585 fix_reversal $p $a $view
1586 }
1587 }
1588 incr i
1589 }
1593 }
1595 global numcommits hlview
1599 run chewcommits
1600 }
1602 # we never actually get here...
1603 run vhighlightmore
1604 }
1607 }
1608 }
1610 }
1612 proc chewcommits {} {
1613 global curview hlview viewcomplete
1614 global pending_select
1616 layoutmore
1618 global commitidx varctok
1619 global numcommits startmsecs
1622 update
1623 reset_pending_select {}
1630 }
1631 }
1633 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1634 #puts "overall $ms ms for $numcommits commits"
1635 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1638 }
1639 notbusy layout
1640 }
1642 }
1645 global tclencoding
1647 # Invoke git-log to handle automatic encoding conversion
1649 # Read the results using i18n.logoutputencoding
1653 }
1655 close $fd
1656 # Remove the heading line
1660 }
1665 }
1668 global commitinfo
1679 # should never happen...
1681 }
1693 }
1694 }
1696 # take the first non-blank line of the comment as the headline
1701 }
1706 }
1708 # git log indents the comment by 4 spaces;
1709 # if we got this via git cat-file, add the indentation
1712 append newcomment " "
1713 append newcomment $line
1715 }
1717 }
1720 # If there is diff output shown in the git-log stream, split it
1721 # out. But get rid of the empty line that always precedes the
1722 # diff.
1727 }
1730 }
1733 global commitdata commitinfo
1738 readcommit $id
1741 }
1742 }
1744 }
1746 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1747 # and are present in the current view.
1748 # This is fairly slow...
1750 global varcid curview vshortids
1759 lappend ids $id
1761 }
1762 }
1763 }
1764 }
1769 }
1770 }
1772 }
1774 proc readrefs {} {
1775 global tagids idtags headids idheads tagobjid
1776 global otherrefids idotherrefs mainhead mainheadid
1777 global selecthead selectheadid
1778 global hideremotes
1782 }
1794 }
1800 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1801 # which is what we want since the former is the commit ID
1807 }
1813 }
1814 }
1818 catch {
1823 }
1824 }
1827 catch {
1829 }
1830 }
1831 }
1833 # skip over fake commits
1834 proc first_real_row {} {
1835 global nullid nullid2 numcommits
1840 break
1841 }
1842 }
1844 }
1846 # update things for a head moved to a child of its previous location
1848 global headids idheads
1853 }
1855 # update things when a head has been removed
1857 global headids idheads
1865 }
1866 }
1868 }
1871 global use_ttk
1875 }
1877 }
1880 global have_tk85
1882 # In MacOS Tk 8.4 transient appears to work by setting
1883 # overrideredirect, which is utterly useless, since the
1884 # windows get no border, and are not even kept above
1885 # the parent.
1888 wm transient $window $origin
1890 # Windows fails to place transient windows normally, so
1891 # schedule a callback to center them on the parent.
1894 }
1895 }
1898 global NS
1909 tkwait window $top
1910 }
1917 set w .error
1918 ttk_toplevel $w
1919 make_transient $w $owner
1920 show_error $w $w $msg
1921 }
1922 }
1925 global confirm_ok NS
1927 set w .confirm
1928 ttk_toplevel $w
1929 make_transient $w $owner
1941 tkwait window $w
1943 }
1945 proc setoptions {} {
1948 option add *Panedwindow.sashRelief raised startupFile
1950 option add *Menu.font uifont startupFile
1951 }
1954 }
1955 option add *Button.font uifont startupFile
1956 option add *Checkbutton.font uifont startupFile
1957 option add *Radiobutton.font uifont startupFile
1958 option add *Menubutton.font uifont startupFile
1959 option add *Label.font uifont startupFile
1960 option add *Message.font uifont startupFile
1961 option add *Entry.font textfont startupFile
1962 option add *Text.font textfont startupFile
1963 option add *Labelframe.font uifont startupFile
1964 option add *Spinbox.font textfont startupFile
1965 option add *Listbox.font mainfont startupFile
1966 }
1968 # Make a menu and submenus.
1969 # m is the window name for the menu, items is the list of menu items to add.
1970 # Each item is a list {mc label type description options...}
1971 # mc is ignored; it's so we can put mc there to alert xgettext
1972 # label is the string that appears in the menu
1973 # type is cascade, command or radiobutton (should add checkbutton)
1974 # description depends on type; it's the sublist for cascade, the
1975 # command to invoke for command, or {variable value} for radiobutton
1977 menu $m
1979 set Meta1 Cmd
1981 set Meta1 Ctrl
1982 }
1993 }
1994 }
1999 }
2002 }
2006 }
2007 }
2013 }
2014 }
2015 }
2017 # translate string and remove ampersands
2020 }
2024 }
2026 global use_ttk
2032 }
2037 } else {
2039 }
2041 }
2043 proc makewindow {} {
2044 global canv canv2 canv3 linespc charspc ctext cflist cscroll
2045 global tabstop
2046 global findtype findtypemenu findloc findstring fstring geometry
2047 global entries sha1entry sha1string sha1but
2048 global diffcontextstring diffcontext
2049 global ignorespace
2050 global maincursor textcursor curtextcursor
2051 global rowctxmenu fakerowmenu mergemax wrapcomment
2052 global highlight_files gdttype
2053 global searchstring sstring
2054 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
2055 global uifgcolor uifgdisabledcolor
2056 global filesepbgcolor filesepfgcolor
2057 global mergecolors foundbgcolor currentsearchhitbgcolor
2058 global headctxmenu progresscanv progressitem progresscoords statusw
2059 global fprogitem fprogcoord lastprogupdate progupdatepending
2060 global rprogitem rprogcoord rownumsel numcommits
2061 global have_tk85 use_ttk NS
2062 global git_version
2063 global worddiff
2065 # The "mc" arguments here are purely so that xgettext
2066 # sees the following string as needing to be translated
2067 set file {
2068 mc "File" cascade {
2069 {mc "Update" command updatecommits -accelerator F5}
2070 {mc "Reload" command reloadcommits -accelerator Shift-F5}
2071 {mc "Reread references" command rereadrefs}
2072 {mc "List references" command showrefs -accelerator F2}
2073 {xx "" separator}
2074 {mc "Start git gui" command {exec git gui &}}
2075 {xx "" separator}
2076 {mc "Quit" command doquit -accelerator Meta1-Q}
2077 }}
2078 set edit {
2079 mc "Edit" cascade {
2080 {mc "Preferences" command doprefs}
2081 }}
2082 set view {
2083 mc "View" cascade {
2084 {mc "New view..." command {newview 0} -accelerator Shift-F4}
2085 {mc "Edit view..." command editview -state disabled -accelerator F4}
2086 {mc "Delete view" command delview -state disabled}
2087 {xx "" separator}
2088 {mc "All files" radiobutton {selectedview 0} -command {showview 0}}
2089 }}
2090 if {[tk windowingsystem] ne "aqua"} {
2091 set help {
2092 mc "Help" cascade {
2093 {mc "About gitk" command about}
2094 {mc "Key bindings" command keys}
2095 }}
2097 } else {
2098 proc ::tk::mac::ShowPreferences {} {doprefs}
2099 proc ::tk::mac::Quit {} {doquit}
2101 set apple {
2102 xx "Apple" cascade {
2103 {mc "About gitk" command about}
2104 {xx "" separator}
2105 }}
2106 set help {
2107 mc "Help" cascade {
2108 {mc "Key bindings" command keys}
2109 }}
2111 }
2113 . configure -menu .bar
2116 # cover the non-themed toplevel with a themed frame.
2117 place [ttk::frame ._main_background] -x 0 -y 0 -relwidth 1 -relheight 1
2118 }
2120 # the gui has upper and lower half, parts of a paned window.
2123 # possibly use assumed geometry
2124 if {![info exists geometry(pwsash0)]} {
2131 }
2133 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2138 .tf.histframe.pwclist configure -sashpad 0 -handlesize 4
2139 }
2141 # create three canvases
2142 set cscroll .tf.histframe.csb
2143 set canv .tf.histframe.pwclist.canv
2149 set canv2 .tf.histframe.pwclist.canv2
2154 set canv3 .tf.histframe.pwclist.canv3
2160 bind .tf.histframe.pwclist <Map> {
2161 bind %W <Map> {}
2162 .tf.histframe.pwclist sashpos 1 [lindex $::geometry(pwsash1) 0]
2163 .tf.histframe.pwclist sashpos 0 [lindex $::geometry(pwsash0) 0]
2164 }
2165 } else {
2168 }
2170 # a scroll bar to rule them
2174 bind .tf.histframe.pwclist <Configure> {resizeclistpanes %W %w}
2176 pack .tf.histframe.pwclist -fill both -expand 1 -side left
2178 # we have two button bars at bottom of top frame. Bar 1
2182 set sha1entry .tf.bar.sha1
2184 set sha1but .tf.bar.sha1label
2186 -command gotocommit -width 8
2188 pack .tf.bar.sha1label -side left
2190 trace add variable sha1string write sha1change
2193 set bm_left_data {
2194 #define left_width 16
2195 #define left_height 16
2196 static unsigned char left_bits[] = {
2197 0x00, 0x00, 0xc0, 0x01, 0xe0, 0x00, 0x70, 0x00, 0x38, 0x00, 0x1c, 0x00,
2198 0x0e, 0x00, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x0e, 0x00, 0x1c, 0x00,
2199 0x38, 0x00, 0x70, 0x00, 0xe0, 0x00, 0xc0, 0x01};
2200 }
2201 set bm_right_data {
2202 #define right_width 16
2203 #define right_height 16
2204 static unsigned char right_bits[] = {
2205 0x00, 0x00, 0xc0, 0x01, 0x80, 0x03, 0x00, 0x07, 0x00, 0x0e, 0x00, 0x1c,
2206 0x00, 0x38, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x00, 0x38, 0x00, 0x1c,
2207 0x00, 0x0e, 0x00, 0x07, 0x80, 0x03, 0xc0, 0x01};
2208 }
2216 .tf.bar.leftbut configure -image [list bm-left disabled bm-left-gray]
2217 } else {
2218 .tf.bar.leftbut configure -image bm-left
2219 }
2220 pack .tf.bar.leftbut -side left -fill y
2223 .tf.bar.rightbut configure -image [list bm-right disabled bm-right-gray]
2224 } else {
2225 .tf.bar.rightbut configure -image bm-right
2226 }
2227 pack .tf.bar.rightbut -side left -fill y
2230 set rownumsel {}
2232 -relief sunken -anchor e
2235 -relief sunken -anchor e
2236 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2237 -side left
2240 }
2241 global selectedline
2242 trace add variable selectedline write selectedline_change
2244 # Status label and progress bar
2245 set statusw .tf.bar.status
2249 set progresscanv [ttk::progressbar .tf.bar.progress]
2250 } else {
2251 set h [expr {[font metrics uifont -linespace] + 2}]
2252 set progresscanv .tf.bar.progress
2257 }
2259 set progresscoords {0 0}
2260 set fprogcoord 0
2261 set rprogcoord 0
2263 set lastprogupdate [clock clicks -milliseconds]
2264 set progupdatepending 0
2266 # build up the bottom bar of upper window
2269 set bm_down_data {
2270 #define down_width 16
2271 #define down_height 16
2272 static unsigned char down_bits[] = {
2273 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2274 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2275 0x87, 0xe1, 0x8e, 0x71, 0x9c, 0x39, 0xb8, 0x1d,
2276 0xf0, 0x0f, 0xe0, 0x07, 0xc0, 0x03, 0x80, 0x01};
2277 }
2280 .tf.lbar.fnext configure -image bm-down
2282 set bm_up_data {
2283 #define up_width 16
2284 #define up_height 16
2285 static unsigned char up_bits[] = {
2286 0x80, 0x01, 0xc0, 0x03, 0xe0, 0x07, 0xf0, 0x0f,
2287 0xb8, 0x1d, 0x9c, 0x39, 0x8e, 0x71, 0x87, 0xe1,
2288 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2289 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01};
2290 }
2293 .tf.lbar.fprev configure -image bm-up
2297 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2298 -side left -fill y
2299 set gdttype [mc "containing:"]
2300 set gm [makedroplist .tf.lbar.gdttype gdttype \
2301 [mc "containing:"] \
2302 [mc "touching paths:"] \
2303 [mc "adding/removing string:"] \
2304 [mc "changing lines matching:"]]
2305 trace add variable gdttype write gdttype_change
2306 pack .tf.lbar.gdttype -side left -fill y
2308 set findstring {}
2309 set fstring .tf.lbar.findstring
2312 trace add variable findstring write find_change
2313 set findtype [mc "Exact"]
2314 set findtypemenu [makedroplist .tf.lbar.findtype \
2315 findtype [mc "Exact"] [mc "IgnCase"] [mc "Regexp"]]
2316 trace add variable findtype write findcom_change
2317 set findloc [mc "All fields"]
2318 makedroplist .tf.lbar.findloc findloc [mc "All fields"] [mc "Headline"] \
2319 [mc "Comments"] [mc "Author"] [mc "Committer"]
2320 trace add variable findloc write find_change
2321 pack .tf.lbar.findloc -side right
2322 pack .tf.lbar.findtype -side right
2325 # Finish putting the upper half of the viewer together
2326 pack .tf.lbar -in .tf -side bottom -fill x
2327 pack .tf.bar -in .tf -side bottom -fill x
2328 pack .tf.histframe -fill both -side top -expand 1
2329 .ctop add .tf
2333 }
2335 # now build up the bottom
2338 # lower left, a text box over search bar, scroll bar to the right
2339 # if we know window height, then that will set the lower text height, otherwise
2340 # we set lower text height which will drive window height
2341 if {[info exists geometry(main)]} {
2343 } else {
2345 }
2351 pack .bleft.top.search -side left -padx 5
2352 set sstring .bleft.top.sstring
2353 set searchstring ""
2356 trace add variable searchstring write incrsearch
2359 -command changediffdisp -variable diffelide -value {0 0}
2361 -command changediffdisp -variable diffelide -value {0 1}
2363 -command changediffdisp -variable diffelide -value {1 0}
2365 pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left
2366 spinbox .bleft.mid.diffcontext -width 5 \
2367 -from 0 -increment 1 -to 10000000 \
2368 -validate all -validatecommand "diffcontextvalidate %P" \
2369 -textvariable diffcontextstring
2371 trace add variable diffcontextstring write diffcontextchange
2372 lappend entries .bleft.mid.diffcontext
2373 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2375 -command changeignorespace -variable ignorespace
2376 pack .bleft.mid.ignspace -side left -padx 5
2378 set worddiff [mc "Line diff"]
2380 makedroplist .bleft.mid.worddiff worddiff [mc "Line diff"] \
2381 [mc "Markup words"] [mc "Color words"]
2382 trace add variable worddiff write changeworddiff
2383 pack .bleft.mid.worddiff -side left -padx 5
2384 }
2386 set ctext .bleft.bottom.ctext
2388 -state disabled -font textfont \
2389 -yscrollcommand scrolltext -wrap none \
2390 -xscrollcommand ".bleft.bottom.sbhorizontal set"
2393 }
2396 pack .bleft.top -side top -fill x
2397 pack .bleft.mid -side top -fill x
2399 grid .bleft.bottom.sbhorizontal -sticky ew
2400 grid columnconfigure .bleft.bottom 0 -weight 1
2401 grid rowconfigure .bleft.bottom 0 -weight 1
2402 grid rowconfigure .bleft.bottom 1 -weight 0
2403 pack .bleft.bottom -side top -fill both -expand 1
2429 set mergemax 16
2437 .pwbottom add .bleft
2440 }
2442 # lower right
2446 -command reselectline -variable cmitmode -value "patch"
2448 -command reselectline -variable cmitmode -value "tree"
2449 grid .bright.mode.patch .bright.mode.tree -sticky ew
2450 pack .bright.mode -side top -fill x
2451 set cflist .bright.cfiles
2452 set indent [font measure mainfont "nn"]
2456 -font mainfont \
2458 -yscrollcommand ".bright.sb set" \
2459 -cursor [. cget -cursor] \
2460 -spacing1 1 -spacing3 1
2464 pack .bright.sb -side right -fill y
2470 .pwbottom add .bright
2471 .ctop add .pwbottom
2473 # restore window width & height if known
2474 if {[info exists geometry(main)]} {
2477 set w [winfo screenwidth .]
2478 }
2480 set h [winfo screenheight .]
2481 }
2483 }
2484 }
2488 }
2490 if {[tk windowingsystem] eq {aqua}} {
2491 set M1B M1
2492 set ::BM "3"
2493 } else {
2494 set M1B Control
2495 set ::BM "2"
2496 }
2499 bind .ctop <Map> {
2500 bind %W <Map> {}
2501 %W sashpos 0 $::geometry(topheight)
2502 }
2503 bind .pwbottom <Map> {
2504 bind %W <Map> {}
2505 %W sashpos 0 $::geometry(botwidth)
2506 }
2507 }
2509 bind .pwbottom <Configure> {resizecdetpanes %W %w}
2510 pack .ctop -fill both -expand 1
2511 bindall <1> {selcanvline %W %x %y}
2512 #bindall <B1-Motion> {selcanvline %W %x %y}
2513 if {[tk windowingsystem] == "win32"} {
2514 bind . <MouseWheel> { windows_mousewheel_redirector %W %X %Y %D }
2516 } else {
2517 bindall <ButtonRelease-4> "allcanvs yview scroll -5 units"
2518 bindall <ButtonRelease-5> "allcanvs yview scroll 5 units"
2520 if {"%b" eq 6} {
2522 } elseif {"%b" eq 7} {
2524 }
2525 }
2526 if {[tk windowingsystem] eq "aqua"} {
2527 bindall <MouseWheel> {
2528 set delta [expr {- (%D)}]
2530 }
2531 bindall <Shift-MouseWheel> {
2532 set delta [expr {- (%D)}]
2534 }
2535 }
2536 }
2537 bindall <$::BM> "canvscan mark %W %x %y"
2538 bindall <B$::BM-Motion> "canvscan dragto %W %x %y"
2541 bindkey <Home> selfirstline
2542 bindkey <End> sellastline
2543 bind . <Key-Up> "selnextline -1"
2544 bind . <Key-Down> "selnextline 1"
2545 bind . <Shift-Key-Up> "dofind -1 0"
2546 bind . <Shift-Key-Down> "dofind 1 0"
2547 bindkey <Key-Right> "goforw"
2548 bindkey <Key-Left> "goback"
2549 bind . <Key-Prior> "selnextpage -1"
2550 bind . <Key-Next> "selnextpage 1"
2560 bindkey p "selnextline -1"
2561 bindkey n "selnextline 1"
2562 bindkey z "goback"
2563 bindkey x "goforw"
2564 bindkey k "selnextline -1"
2565 bindkey j "selnextline 1"
2566 bindkey h "goback"
2567 bindkey l "goforw"
2568 bindkey b prevfile
2573 bindkey <Key-Return> {dofind 1 1}
2574 bindkey ? {dofind -1 1}
2575 bindkey f nextfile
2576 bind . <F5> updatecommits
2577 bindmodfunctionkey Shift 5 reloadcommits
2578 bind . <F2> showrefs
2579 bindmodfunctionkey Shift 4 {newview 0}
2580 bind . <F4> edit_or_newview
2591 wm protocol . WM_DELETE_WINDOW doquit
2592 bind . <Destroy> {stop_backends}
2593 bind . <Button-1> "click %W"
2601 global ctxbut
2608 }
2610 set maincursor [. cget -cursor]
2614 set rowctxmenu .rowctxmenu
2616 {mc "Diff this -> selected" command {diffvssel 0}}
2617 {mc "Diff selected -> this" command {diffvssel 1}}
2618 {mc "Make patch" command mkpatch}
2619 {mc "Create tag" command mktag}
2620 {mc "Write commit to file" command writecommit}
2621 {mc "Create new branch" command mkbranch}
2622 {mc "Cherry-pick this commit" command cherrypick}
2623 {mc "Reset HEAD branch to here" command resethead}
2624 {mc "Mark this commit" command markhere}
2625 {mc "Return to mark" command gotomark}
2626 {mc "Find descendant of this and mark" command find_common_desc}
2627 {mc "Compare with marked commit" command compare_commits}
2628 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2629 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2630 {mc "Revert this commit" command revert}
2631 }
2634 set fakerowmenu .fakerowmenu
2636 {mc "Diff this -> selected" command {diffvssel 0}}
2637 {mc "Diff selected -> this" command {diffvssel 1}}
2638 {mc "Make patch" command mkpatch}
2639 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2640 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2641 }
2644 set headctxmenu .headctxmenu
2646 {mc "Check out this branch" command cobranch}
2647 {mc "Remove this branch" command rmbranch}
2648 }
2651 global flist_menu
2652 set flist_menu .flistctxmenu
2654 {mc "Highlight this too" command {flist_hl 0}}
2655 {mc "Highlight this only" command {flist_hl 1}}
2656 {mc "External diff" command {external_diff}}
2657 {mc "Blame parent commit" command {external_blame 1}}
2658 }
2661 global diff_menu
2662 set diff_menu .diffctxmenu
2664 {mc "Show origin of this line" command show_line_source}
2665 {mc "Run git gui blame on this line" command {external_blame_diff}}
2666 }
2668 }
2670 # Windows sends all mouse wheel events to the current focused window, not
2671 # the one where the mouse hovers, so bind those events here and redirect
2672 # to the correct window
2673 proc windows_mousewheel_redirector {W X Y D} {
2674 global canv canv2 canv3
2680 } else {
2681 catch {
2683 }
2684 }
2685 }
2686 }
2688 # Update row number label when selectedline changes
2689 proc selectedline_change {n1 n2 op} {
2690 global selectedline rownumsel
2693 set rownumsel {}
2694 } else {
2696 }
2697 }
2699 # mouse-2 makes all windows scan vertically, but only the one
2700 # the cursor is in scans horizontally
2701 proc canvscan {op w x y} {
2702 global canv canv2 canv3
2706 } else {
2708 }
2709 }
2710 }
2712 proc scrollcanv {cscroll f0 f1} {
2714 drawvisible
2715 flushhighlights
2716 }
2718 # when we make a key binding for the toplevel, make sure
2719 # it doesn't get triggered when that key is pressed in the
2720 # find string entry widget.
2721 proc bindkey {ev script} {
2722 global entries
2726 set escript [bind Entry <Key>]
2727 }
2730 }
2731 }
2733 proc bindmodfunctionkey {mod n script} {
2736 }
2738 # set the focus back to the toplevel for any click outside
2739 # the entry widgets
2740 proc click {w} {
2741 global ctext entries
2744 }
2745 focus .
2746 }
2748 # Adjust the progress bar for a change in requested extent or canvas size
2749 proc adjustprogress {} {
2750 global progresscanv progressitem progresscoords
2751 global fprogitem fprogcoord lastprogupdate progupdatepending
2752 global rprogitem rprogcoord use_ttk
2756 return
2757 }
2766 set now [clock clicks -milliseconds]
2768 set progupdatepending 0
2769 update
2771 set progupdatepending 1
2773 }
2774 }
2776 proc doprogupdate {} {
2777 global lastprogupdate progupdatepending
2780 set progupdatepending 0
2781 set lastprogupdate [clock clicks -milliseconds]
2782 update
2783 }
2784 }
2786 proc config_check_tmp_exists {tries_left} {
2787 global config_file_tmp
2790 incr tries_left -1
2793 } else {
2795 file, which will prevent gitk from saving its configuration on exit.\
2796 Please remove it if it is not being used by any existing gitk process."
2797 }
2798 }
2799 }
2801 proc config_init_trace {name} {
2802 global config_variable_changed config_variable_original
2807 }
2809 proc config_variable_change_cb {name name2 op} {
2810 global config_variable_changed config_variable_original
2817 }
2818 }
2820 proc savestuff {w} {
2821 global stuffsaved
2822 global config_file config_file_tmp
2823 global config_variables config_variable_changed
2824 global viewchanged
2826 upvar #0 viewname current_viewname
2827 upvar #0 viewfiles current_viewfiles
2828 upvar #0 viewargs current_viewargs
2829 upvar #0 viewargscmd current_viewargscmd
2830 upvar #0 viewperm current_viewperm
2831 upvar #0 nextviewnum current_nextviewnum
2832 upvar #0 use_ttk current_use_ttk
2835 if {![winfo viewable .]} return
2836 set remove_tmp 0
2837 if {[catch {
2838 set try_count 0
2840 if {[incr try_count] > 50} {
2842 }
2843 after 100
2844 }
2845 set remove_tmp 1
2846 if {$::tcl_platform(platform) eq {windows}} {
2848 }
2851 }
2857 } else {
2859 }
2860 }
2869 } else {
2872 }
2876 array set view_save {}
2877 array set views {}
2878 if {![info exists permviews]} { set permviews {} }
2882 }
2887 set views($current_viewname($v)) [list $current_viewname($v) $current_viewfiles($v) $current_viewargs($v) $current_viewargscmd($v)]
2888 } else {
2890 }
2891 }
2892 }
2893 # write old and updated view to their places and append remaining to the end
2898 }
2900 }
2901 foreach view_name [array names views] {
2903 }
2907 set remove_tmp 0
2908 } err]} {
2910 }
2913 }
2914 set stuffsaved 1
2915 }
2917 proc resizeclistpanes {win w} {
2918 global oldwidth use_ttk
2923 } else {
2926 }
2930 } else {
2935 set sash0 30
2936 }
2939 }
2944 }
2945 }
2946 }
2950 } else {
2953 }
2954 }
2956 }
2958 proc resizecdetpanes {win w} {
2959 global oldwidth use_ttk
2963 } else {
2965 }
2968 } else {
2972 set sash0 45
2973 }
2976 }
2977 }
2980 } else {
2982 }
2983 }
2985 }
2987 proc allcanvs args {
2988 global canv canv2 canv3
2992 }
2994 proc bindall {event action} {
2995 global canv canv2 canv3
2999 }
3001 proc about {} {
3002 global uifont NS
3003 set w .about
3006 return
3007 }
3012 Gitk - a commit viewer for git
3014 Copyright \u00a9 2005-2014 Paul Mackerras
3016 Use and redistribute under the terms of the GNU General Public License"] \
3017 -justify center -aspect 400 -border 2 -bg white -relief groove
3025 }
3027 proc keys {} {
3028 global NS
3029 set w .keys
3032 return
3033 }
3034 if {[tk windowingsystem] eq {aqua}} {
3035 set M1T Cmd
3036 } else {
3037 set M1T Ctrl
3038 }
3043 [mc "Gitk key bindings:"]
3047 [mc "<Home> Move to first commit"]
3048 [mc "<End> Move to last commit"]
3049 [mc "<Up>, p, k Move up one commit"]
3050 [mc "<Down>, n, j Move down one commit"]
3051 [mc "<Left>, z, h Go back in history list"]
3052 [mc "<Right>, x, l Go forward in history list"]
3054 [mc "<PageUp> Move up one page in commit list"]
3055 [mc "<PageDown> Move down one page in commit list"]
3062 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
3063 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
3064 [mc "<Delete>, b Scroll diff view up one page"]
3065 [mc "<Backspace> Scroll diff view up one page"]
3066 [mc "<Space> Scroll diff view down one page"]
3067 [mc "u Scroll diff view up 18 lines"]
3068 [mc "d Scroll diff view down 18 lines"]
3071 [mc "<Return> Move to next find hit"]
3072 [mc "/ Focus the search box"]
3073 [mc "? Move to previous find hit"]
3074 [mc "f Scroll diff view to next file"]
3081 [mc "<F5> Update"]
3082 " \
3083 -justify left -bg white -border 2 -relief groove
3091 }
3093 # Procedures for manipulating the file list window at the
3094 # bottom right of the overall window.
3096 proc treeview {w l openlevs} {
3097 global treecontents treediropen treeheight treeparent treeindex
3099 set ix 0
3100 set treeindex() 0
3101 set lev 0
3102 set prefix {}
3103 set prefixend -1
3104 set prefendstack {}
3105 set htstack {}
3106 set ht 0
3107 set treecontents() {}
3114 }
3121 incr lev -1
3122 }
3126 set ht 0
3138 set ht 1
3143 set str "\n"
3151 }
3152 incr lev
3153 }
3156 incr ht
3157 set str "\n"
3161 }
3163 }
3164 }
3172 }
3174 }
3176 proc linetoelt {l} {
3177 global treeheight treecontents
3179 set y 2
3180 set prefix {}
3181 while {1} {
3185 }
3186 set n 1
3191 incr y
3192 break
3193 }
3194 }
3196 }
3197 }
3198 }
3200 proc highlight_tree {y prefix} {
3201 global treeheight treecontents cflist
3207 }
3208 incr y
3211 }
3212 }
3214 }
3216 proc treeclosedir {w dir} {
3217 global treediropen treeheight treeparent treeindex
3229 }
3230 }
3232 proc treeopendir {w dir} {
3233 global treediropen treeheight treeparent treecontents treeindex
3240 set lev 0
3241 set str "\n"
3244 incr lev
3245 append str "\t"
3247 }
3262 } else {
3265 }
3266 }
3279 }
3281 }
3282 }
3284 proc treeclick {w x y} {
3285 global treediropen cmitmode ctext cflist cflist_top
3288 if {![info exists cflist_top]} return
3295 return
3296 }
3302 } else {
3304 }
3305 }
3307 proc setfilelist {id} {
3308 global treefilelist cflist jump_to_here
3315 }
3316 }
3317 }
3319 image create bitmap tri-rt -background black -foreground blue -data {
3320 #define tri-rt_width 13
3321 #define tri-rt_height 13
3322 static unsigned char tri-rt_bits[] = {
3323 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3324 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3325 0x00, 0x00};
3326 } -maskdata {
3327 #define tri-rt-mask_width 13
3328 #define tri-rt-mask_height 13
3329 static unsigned char tri-rt-mask_bits[] = {
3330 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3331 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3332 0x08, 0x00};
3333 }
3334 image create bitmap tri-dn -background black -foreground blue -data {
3335 #define tri-dn_width 13
3336 #define tri-dn_height 13
3337 static unsigned char tri-dn_bits[] = {
3338 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3339 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3340 0x00, 0x00};
3341 } -maskdata {
3342 #define tri-dn-mask_width 13
3343 #define tri-dn-mask_height 13
3344 static unsigned char tri-dn-mask_bits[] = {
3345 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3346 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3347 0x00, 0x00};
3348 }
3350 image create bitmap reficon-T -background black -foreground yellow -data {
3351 #define tagicon_width 13
3352 #define tagicon_height 9
3353 static unsigned char tagicon_bits[] = {
3354 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3355 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3356 } -maskdata {
3357 #define tagicon-mask_width 13
3358 #define tagicon-mask_height 9
3359 static unsigned char tagicon-mask_bits[] = {
3360 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3361 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3362 }
3363 set rectdata {
3364 #define headicon_width 13
3365 #define headicon_height 9
3366 static unsigned char headicon_bits[] = {
3367 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3368 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3369 }
3370 set rectmask {
3371 #define headicon-mask_width 13
3372 #define headicon-mask_height 9
3373 static unsigned char headicon-mask_bits[] = {
3374 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3375 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3376 }
3377 image create bitmap reficon-H -background black -foreground green \
3379 image create bitmap reficon-o -background black -foreground "#ddddff" \
3382 proc init_flist {first} {
3383 global cflist cflist_top difffilestart
3389 set cflist_top 1
3391 } else {
3392 catch {unset cflist_top}
3393 }
3395 set difffilestart {}
3396 }
3398 proc highlight_tag {f} {
3399 global highlight_paths
3403 return "bold"
3404 }
3405 }
3406 return {}
3407 }
3409 proc highlight_filelist {} {
3410 global cmitmode cflist
3419 }
3420 }
3421 } else {
3422 highlight_tree 2 {}
3423 }
3425 }
3427 proc unhighlight_filelist {} {
3428 global cflist
3433 }
3435 proc add_flist {fl} {
3436 global cflist
3442 }
3444 }
3446 proc sel_flist {w x y} {
3447 global ctext difffilestart cflist cflist_top cmitmode
3450 if {![info exists cflist_top]} return
3457 } else {
3459 }
3460 suppress_highlighting_file_for_current_scrollpos
3461 }
3463 proc pop_flist_menu {w X Y x y} {
3464 global ctext cflist cmitmode flist_menu flist_menu_file
3465 global treediffs diffids
3467 stopfinding
3473 } else {
3475 }
3477 set xdiffstate "normal"
3479 set xdiffstate "disabled"
3480 }
3481 # Disable "External diff" item in tree mode
3484 }
3486 proc find_ctext_fileinfo {line} {
3487 global ctext_file_names ctext_file_lines
3493 return {}
3494 } else {
3496 }
3497 }
3499 proc pop_diff_menu {w X Y x y} {
3500 global ctext diff_menu flist_menu_file
3501 global diff_menu_txtpos diff_menu_line
3502 global diff_menu_filebase
3506 # don't pop up the menu on hunk-separator or file-separator lines
3508 return
3509 }
3510 stopfinding
3516 }
3518 proc flist_hl {only} {
3519 global flist_menu_file findstring gdttype
3524 } else {
3526 }
3527 set gdttype [mc "touching paths:"]
3528 }
3530 proc gitknewtmpdir {} {
3531 global diffnum gitktmpdir gitdir env
3533 if {![info exists gitktmpdir]} {
3534 if {[info exists env(GITK_TMPDIR)]} {
3536 } elseif {[info exists env(TMPDIR)]} {
3538 } else {
3540 }
3544 }
3547 unset gitktmpdir
3548 return {}
3549 }
3550 set diffnum 0
3551 }
3552 incr diffnum
3556 return {}
3557 }
3559 }
3561 proc save_file_from_commit {filename output what} {
3562 global nullfile
3567 }
3569 return {}
3570 }
3572 }
3574 proc external_diff_get_one_file {diffid filename diffdir} {
3575 global nullid nullid2 nullfile
3576 global worktree
3582 }
3584 }
3588 }
3592 }
3594 proc external_diff {} {
3595 global nullid nullid2
3596 global flist_menu_file
3597 global diffids
3598 global extdifftool
3601 # no reference commit given
3604 # diffing working copy with index
3607 # diffing index with HEAD
3608 set diffidfrom "HEAD"
3609 } else {
3610 # use first parent commit
3611 global parentlist selectedline
3613 }
3614 } else {
3617 }
3619 # make sure that several diffs wont collide
3620 set diffdir [gitknewtmpdir]
3623 # gather files to diff
3632 } else {
3635 }
3636 }
3637 }
3639 proc find_hunk_blamespec {base line} {
3640 global ctext
3642 # Find and parse the hunk header
3648 s_line old_specs osz osz1 new_line nsz]} {
3649 return
3650 }
3652 # base lines for the parents
3656 old_spec old_line osz]} {
3657 return
3658 }
3660 }
3662 # Now scan the lines to determine offset within the hunk
3664 set dline 0
3667 # Determine if the line is removed
3671 # Choose a parent index
3674 } else {
3678 } else {
3679 # blame the current commit
3680 set parent -1
3681 }
3682 }
3683 # then count other lines that belong to it
3686 # Determine if the line is removed
3691 incr dline
3692 }
3693 } else {
3695 incr dline
3696 }
3697 }
3698 }
3699 incr parent
3700 } else {
3701 set parent 0
3702 }
3706 }
3708 proc external_blame_diff {} {
3709 global currentid cmitmode
3710 global diff_menu_txtpos diff_menu_line
3711 global diff_menu_filebase flist_menu_file
3714 set parent_idx 0
3716 } else {
3721 } else {
3722 set parent_idx 0
3723 set line 0
3724 }
3725 }
3728 }
3731 # at stage 0 or 2
3732 proc index_sha1 {fname} {
3740 }
3741 }
3743 return {}
3744 }
3746 # Turn an absolute path into one relative to the current directory
3747 proc make_relative {f} {
3750 }
3752 set here [file split [pwd]]
3753 set ei 0
3754 set hi 0
3755 set res {}
3758 lappend res ".."
3759 } else {
3760 incr ei
3761 }
3762 incr hi
3763 }
3766 }
3768 proc external_blame {parent_idx {line {}}} {
3769 global flist_menu_file cdup
3770 global nullid nullid2
3771 global parentlist selectedline currentid
3775 } else {
3777 }
3780 error_popup [mc "No such commit"]
3781 return
3782 }
3784 set cmdline [list git gui blame]
3787 }
3789 # Unfortunately it seems git gui blame doesn't like
3790 # being given an absolute path...
3795 }
3796 }
3798 proc show_line_source {} {
3799 global cmitmode currentid parents curview blamestuff blameinst
3800 global diff_menu_line diff_menu_filebase flist_menu_file
3801 global nullid nullid2 gitdir cdup
3803 set from_index {}
3807 } else {
3813 return
3814 }
3815 incr pi -1
3818 # must be a merge in progress...
3819 if {[catch {
3820 # get the last line from .git/MERGE_HEAD
3824 } err]} {
3826 return
3827 }
3829 # need to do the blame from the index
3830 if {[catch {
3832 } err]} {
3834 return
3835 }
3836 } else {
3838 }
3839 } else {
3841 }
3843 }
3844 set blameargs {}
3847 }
3850 lappend blameargs --contents -
3851 } else {
3853 }
3855 if {[catch {
3857 } err]} {
3859 return
3860 }
3861 nowbusy blaming [mc "Searching"]
3867 }
3869 proc stopblaming {} {
3870 global blameinst
3872 if {[info exists blameinst]} {
3874 unset blameinst
3875 notbusy blaming
3876 }
3877 }
3879 proc read_line_source {fd inst} {
3880 global blamestuff curview commfd blameinst nullid nullid2
3884 }
3886 return 1
3887 }
3889 unset blameinst
3890 notbusy blaming
3894 return 0
3895 }
3897 set fname {}
3903 # look for "filename" line
3907 break
3908 }
3909 }
3910 }
3912 # all looks good, select it
3914 # blame uses all-zeroes to mean not committed,
3915 # which would mean a change in the index
3917 }
3920 } else {
3921 error_popup [mc "That line comes from commit %s, \
3923 }
3924 } else {
3925 puts "oops couldn't parse git blame output"
3926 }
3927 return 0
3928 }
3931 proc delete_at_eof {f dir} {
3936 }
3938 return 0
3939 }
3940 return 1
3941 }
3943 # Functions for adding and removing shell-type quoting
3945 proc shellquote {str} {
3948 }
3951 }
3954 }
3956 }
3958 proc shellarglist {l} {
3959 set str {}
3962 append str " "
3963 }
3965 }
3967 }
3969 proc shelldequote {str} {
3970 set ret {}
3971 set used -1
3972 while {1} {
3973 incr used
3977 break
3978 }
3984 }
3986 incr used
3990 error "unmatched single-quote"
3991 }
3994 continue
3995 }
3998 error "trailing backslash"
3999 }
4001 continue
4002 }
4003 # here ch == "\""
4004 while {1} {
4006 error "unmatched double-quote"
4007 }
4013 }
4015 incr used
4017 incr used
4018 }
4019 }
4021 }
4023 proc shellsplit {str} {
4024 set l {}
4025 while {1} {
4033 }
4035 }
4037 # Code to implement multiple views
4039 proc newview {ishighlight} {
4040 global nextviewnum newviewname newishighlight
4041 global revtreeargs viewargscmd newviewopts curview
4044 set top .gitkview
4047 return
4048 }
4054 }
4056 set known_view_options {
4057 {perm b . {} {mc "Remember this view"}}
4058 {reflabel l + {} {mc "References (space separated list):"}}
4059 {refs t15 .. {} {mc "Branches & tags:"}}
4060 {allrefs b *. "--all" {mc "All refs"}}
4061 {branches b . "--branches" {mc "All (local) branches"}}
4062 {tags b . "--tags" {mc "All tags"}}
4063 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
4064 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
4065 {author t15 .. "--author=*" {mc "Author:"}}
4066 {committer t15 . "--committer=*" {mc "Committer:"}}
4067 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
4068 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
4069 {igrep b .. "--invert-grep" {mc "Matches none Commit Info criteria"}}
4070 {changes_l l + {} {mc "Changes to Files:"}}
4071 {pickaxe_s r0 . {} {mc "Fixed String"}}
4072 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
4073 {pickaxe t15 .. "-S*" {mc "Search string:"}}
4074 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
4075 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
4076 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
4077 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
4078 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
4079 {skip t10 . "--skip=*" {mc "Number to skip:"}}
4080 {misc_lbl l + {} {mc "Miscellaneous options:"}}
4081 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
4082 {lright b . "--left-right" {mc "Mark branch sides"}}
4083 {first b . "--first-parent" {mc "Limit to first parent"}}
4084 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
4085 {args t50 *. {} {mc "Additional arguments to git log:"}}
4086 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
4087 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
4088 }
4091 proc encode_view_opts {n} {
4092 global known_view_options newviewopts
4094 set rargs [list]
4104 }
4110 }
4111 } else {
4117 }
4118 }
4119 }
4122 }
4125 proc decode_view_opts {n view_args} {
4126 global known_view_options newviewopts
4131 # Checkboxes
4132 set val 0
4134 # Radiobuttons
4136 set val 0
4137 } else {
4138 # Text fields
4139 set val {}
4140 }
4142 }
4143 set oargs [list]
4144 set refargs [list]
4147 && ![info exists found(limit)]} {
4149 set found(limit) 1
4150 continue
4151 }
4152 catch { unset val }
4159 # Check buttons
4160 set val 1
4162 # Radio buttons
4165 } else {
4166 # Text input fields
4169 }
4172 break
4173 }
4174 if {[info exists val]} break
4175 }
4176 if {[info exists val]} continue
4179 } else {
4181 }
4182 }
4185 }
4187 proc edit_or_newview {} {
4188 global curview
4191 editview
4192 } else {
4193 newview 0
4194 }
4195 }
4197 proc editview {} {
4198 global curview
4199 global viewname viewperm newviewname newviewopts
4200 global viewargs viewargscmd
4205 return
4206 }
4212 }
4214 proc vieweditor {top n title} {
4215 global newviewname newviewopts viewfiles bgcolor
4216 global known_view_options NS
4222 # View name
4230 # View options
4232 set cexpand 0
4233 set cnt 0
4239 set lxpad 0
4243 incr cnt
4249 incr cnt
4253 } else {
4254 set lxpad 5
4255 }
4289 }
4292 }
4294 }
4295 }
4310 }
4312 proc doviewmenu {m first cmd op argv} {
4317 break
4318 }
4319 }
4320 }
4322 proc allviewmenus {n op args} {
4323 # global viewhlmenu
4327 }
4329 proc newviewok {top n {apply 0}} {
4330 global nextviewnum newviewperm newviewname newishighlight
4331 global viewname viewfiles viewperm viewchanged selectedview curview
4332 global viewargs viewargscmd newviewopts viewhlmenu
4334 if {[catch {
4336 } err]} {
4338 return
4339 }
4340 set files {}
4345 }
4346 }
4348 # creating a new view
4349 incr nextviewnum
4359 } else {
4361 }
4362 } else {
4363 # editing an existing view
4372 }
4379 run reloadcommits
4380 }
4381 }
4382 }
4385 }
4387 proc delview {} {
4388 global curview viewperm hlview selectedhlview viewchanged
4392 set selectedhlview [mc "None"]
4393 unset hlview
4394 }
4398 showview 0
4399 }
4401 proc addviewmenu {n} {
4402 global viewname viewhlmenu
4408 }
4410 proc showview {n} {
4411 global curview cached_commitrow ordertok
4412 global displayorder parentlist rowidlist rowisopt rowfinal
4413 global colormap rowtextx nextcolor canvxmax
4414 global numcommits viewcomplete
4415 global selectedline currentid canv canvy0
4416 global treediffs
4417 global pending_select mainheadid
4418 global commitidx
4419 global selectedview
4420 global hlview selectedhlview commitinterest
4423 set selid {}
4434 }
4435 } elseif {[info exists pending_select]} {
4437 unset pending_select
4438 }
4439 unselectline
4440 normalline
4441 catch {unset treediffs}
4442 clear_display
4444 unset hlview
4445 set selectedhlview [mc "None"]
4446 }
4447 catch {unset commitinterest}
4448 catch {unset cached_commitrow}
4449 catch {unset ordertok}
4456 run refill_reflist
4459 return
4460 }
4462 set displayorder {}
4463 set parentlist {}
4464 set rowidlist {}
4465 set rowisopt {}
4466 set rowfinal {}
4469 catch {unset colormap}
4470 catch {unset rowtextx}
4471 set nextcolor 0
4474 set row 0
4475 setcanvscroll
4476 set yf 0
4477 set row {}
4480 # try to get the selected row in the same position on the screen
4484 set ytop 0
4485 }
4487 }
4489 drawvisible
4494 } else {
4495 reset_pending_select {}
4499 } else {
4500 set row [first_real_row]
4503 }
4504 }
4505 }
4508 show_status [mc "Reading commits..."]
4509 }
4511 show_status [mc "No commits selected"]
4512 }
4513 }
4515 # Stuff relating to the highlighting facility
4517 proc ishighlighted {id} {
4518 global vhighlights fhighlights nhighlights rhighlights
4522 }
4525 }
4528 }
4531 }
4532 return 0
4533 }
4535 proc bolden {id font} {
4536 global canv linehtag currentid boldids need_redisplay markedid
4538 # need_redisplay = 1 means the display is stale and about to be redrawn
4545 -outline {{}} -tags secsel \
4548 }
4551 }
4552 }
4554 proc bolden_name {id font} {
4555 global canv2 linentag currentid boldnameids need_redisplay
4563 -outline {{}} -tags secsel \
4566 }
4567 }
4569 proc unbolden {} {
4570 global boldids
4572 set stillbold {}
4576 } else {
4578 }
4579 }
4581 }
4583 proc addvhighlight {n} {
4584 global hlview viewcomplete curview vhl_done commitidx
4586 if {[info exists hlview]} {
4587 delvhighlight
4588 }
4592 }
4595 drawvisible
4596 }
4597 }
4599 proc delvhighlight {} {
4600 global hlview vhighlights
4602 if {![info exists hlview]} return
4603 unset hlview
4604 catch {unset vhighlights}
4605 unbolden
4606 }
4608 proc vhighlightmore {} {
4609 global hlview vhl_done commitidx vhighlights curview
4612 set vr [visiblerows]
4622 }
4624 }
4625 }
4626 }
4628 return 0
4629 }
4631 proc askvhighlight {row id} {
4632 global hlview vhighlights iddrawn
4637 }
4639 } else {
4641 }
4642 }
4644 proc hfiles_change {} {
4645 global highlight_files filehighlight fhighlights fh_serial
4646 global highlight_paths
4648 if {[info exists filehighlight]} {
4649 # delete previous highlights
4651 unset filehighlight
4652 catch {unset fhighlights}
4653 unbolden
4654 unhighlight_filelist
4655 }
4656 set highlight_paths {}
4658 incr fh_serial
4661 }
4662 }
4664 proc gdttype_change {name ix op} {
4665 global gdttype highlight_files findstring findpattern
4667 stopfinding
4671 set highlight_files {}
4672 hfiles_change
4673 }
4674 findcom_change
4675 } else {
4677 set findpattern {}
4678 findcom_change
4679 }
4681 hfiles_change
4682 }
4683 drawvisible
4684 }
4685 # enable/disable findtype/findloc menus too
4686 }
4688 proc find_change {name ix op} {
4689 global gdttype findstring highlight_files
4691 stopfinding
4693 findcom_change
4694 } else {
4697 hfiles_change
4698 }
4699 }
4700 drawvisible
4701 }
4703 proc findcom_change args {
4704 global nhighlights boldnameids
4705 global findpattern findtype findstring gdttype
4707 stopfinding
4708 # delete previous highlights, if any
4711 }
4712 set boldnameids {}
4713 catch {unset nhighlights}
4714 unbolden
4715 unmarkmatches
4717 set findpattern {}
4720 } else {
4721 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4724 }
4725 }
4727 proc makepatterns {l} {
4728 set ret {}
4733 } else {
4736 }
4737 }
4739 }
4741 proc do_file_hl {serial} {
4742 global highlight_files filehighlight highlight_paths gdttype fhl_list
4743 global cdup findtype
4746 # If "exact" match then convert backslashes to forward slashes.
4747 # Most useful to support Windows-flavoured file paths.
4750 }
4753 highlight_filelist
4754 set relative_paths {}
4757 }
4763 } else {
4764 # must be "containing:", i.e. we're searching commit info
4765 return
4766 }
4771 set fhl_list {}
4772 drawvisible
4773 flushhighlights
4774 }
4776 proc flushhighlights {} {
4777 global filehighlight fhl_list
4779 if {[info exists filehighlight]} {
4780 lappend fhl_list {}
4783 }
4784 }
4786 proc askfilehighlight {row id} {
4787 global filehighlight fhighlights fhl_list
4792 }
4794 proc readfhighlight {} {
4795 global filehighlight fhighlights curview iddrawn
4796 global fhl_list find_dirn
4798 if {![info exists filehighlight]} {
4799 return 0
4800 }
4801 set nr 0
4809 }
4815 }
4817 }
4819 # strange...
4820 puts "oops, git diff-tree died"
4822 unset filehighlight
4823 return 0
4824 }
4825 if {[info exists find_dirn]} {
4826 run findmore
4827 }
4828 return 1
4829 }
4831 proc doesmatch {f} {
4832 global findtype findpattern
4838 } else {
4840 }
4841 }
4843 proc askfindhighlight {row id} {
4844 global nhighlights commitinfo iddrawn
4845 global findloc
4846 global markingmatches
4850 }
4852 set isbold 0
4853 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4859 set isbold 2
4860 break
4861 }
4862 set isbold 1
4863 }
4864 }
4870 }
4871 }
4874 }
4875 }
4877 }
4879 proc markrowmatches {row id} {
4880 global canv canv2 linehtag linentag commitinfo findloc
4891 }
4892 }
4898 }
4899 }
4900 }
4902 proc vrel_change {name ix op} {
4903 global highlight_related
4905 rhighlight_none
4907 run drawvisible
4908 }
4909 }
4911 # prepare for testing whether commits are descendents or ancestors of a
4912 proc rhighlight_sel {a} {
4913 global descendent desc_todo ancestor anc_todo
4914 global highlight_related
4916 catch {unset descendent}
4918 catch {unset ancestor}
4921 rhighlight_none
4922 run drawvisible
4923 }
4924 }
4926 proc rhighlight_none {} {
4927 global rhighlights
4929 catch {unset rhighlights}
4930 unbolden
4931 }
4933 proc is_descendent {a} {
4934 global curview children descendent desc_todo
4939 set leftover {}
4940 set done 0
4945 continue
4946 }
4952 set done 1
4953 }
4954 }
4955 }
4958 return
4959 }
4960 }
4963 }
4965 proc is_ancestor {a} {
4966 global curview parents ancestor anc_todo
4971 set leftover {}
4972 set done 0
4977 continue
4978 }
4984 set done 1
4985 }
4986 }
4987 }
4990 return
4991 }
4992 }
4995 }
4997 proc askrelhighlight {row id} {
4998 global descendent highlight_related iddrawn rhighlights
4999 global selectedline ancestor
5002 set isbold 0
5007 }
5009 set isbold 1
5010 }
5015 }
5017 set isbold 1
5018 }
5019 }
5023 }
5024 }
5026 }
5028 # Graph layout functions
5030 proc shortids {ids} {
5031 set res {}
5037 } else {
5039 }
5040 }
5042 }
5044 proc ntimes {n o} {
5045 set ret {}
5050 }
5052 }
5054 }
5056 proc ordertoken {id} {
5057 global ordertok curview varcid varcstart varctok curview parents children
5058 global nullid nullid2
5062 }
5064 set todo {}
5065 while {1} {
5069 } else {
5071 }
5074 break
5075 }
5078 # it's a root
5080 break
5081 }
5084 } else {
5088 }
5090 }
5091 }
5096 }
5099 }
5101 # Work out where id should go in idlist so that order-token
5102 # values increase from left to right
5103 proc idcol {idlist id {i 0}} {
5106 set i 0
5107 }
5111 }
5113 incr i
5114 } else {
5118 }
5119 }
5121 }
5123 proc initlayout {} {
5124 global rowidlist rowisopt rowfinal displayorder parentlist
5125 global numcommits canvxmax canv
5126 global nextcolor
5127 global colormap rowtextx
5129 set numcommits 0
5130 set displayorder {}
5131 set parentlist {}
5132 set nextcolor 0
5133 set rowidlist {}
5134 set rowisopt {}
5135 set rowfinal {}
5137 catch {unset colormap}
5138 catch {unset rowtextx}
5139 setcanvscroll
5140 }
5142 proc setcanvscroll {} {
5143 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5144 global lastscrollset lastscrollrows
5150 set lastscrollset [clock clicks -milliseconds]
5152 }
5154 proc visiblerows {} {
5155 global canv numcommits linespc
5163 set r0 0
5164 }
5169 }
5171 }
5173 proc layoutmore {} {
5174 global commitidx viewcomplete curview
5175 global numcommits pending_select curview
5176 global lastscrollset lastscrollrows
5180 setcanvscroll
5181 }
5182 if {[info exists pending_select] &&
5184 update
5186 }
5187 drawvisible
5188 }
5190 # With path limiting, we mightn't get the actual HEAD commit,
5191 # so ask git rev-list what is the first ancestor of HEAD that
5192 # touches a file in the path limit.
5193 proc get_viewmainhead {view} {
5194 global viewmainheadid vfilelimit viewinstances mainheadid
5196 catch {
5204 }
5205 }
5208 proc getviewhead {fd inst view} {
5209 global viewmainheadid commfd curview viewinstances showlocalchanges
5211 set id {}
5214 return 1
5215 }
5218 }
5225 }
5227 doshowlocalchanges
5228 }
5229 return 0
5230 }
5232 proc doshowlocalchanges {} {
5233 global curview viewmainheadid
5237 dodiffindex
5238 } else {
5240 }
5241 }
5243 proc dohidelocalchanges {} {
5244 global nullid nullid2 lserial curview
5248 }
5251 }
5252 incr lserial
5253 }
5255 # spawn off a process to do git diff-index --cached HEAD
5256 proc dodiffindex {} {
5257 global lserial showlocalchanges vfilelimit curview
5258 global hasworktree git_version
5261 incr lserial
5263 set cmd "|git diff-index --cached --ignore-submodules=dirty HEAD"
5264 } else {
5265 set cmd "|git diff-index --cached HEAD"
5266 }
5269 }
5274 }
5276 proc readdiffindex {fd serial inst} {
5277 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5278 global vfilelimit
5280 set isdiff 1
5283 return 1
5284 }
5285 set isdiff 0
5286 }
5287 # we only need to see one line and we don't really care what it says...
5291 return 0
5292 }
5294 # now see if there are any local changes not checked in to the index
5295 set cmd "|git diff-files"
5298 }
5305 # add the line for the changes in the index to the graph
5306 set hl [mc "Local changes checked in to index but not committed"]
5311 }
5316 }
5318 }
5319 return 0
5320 }
5322 proc readdifffiles {fd serial inst} {
5323 global viewmainheadid nullid nullid2 curview
5324 global commitinfo commitdata lserial
5326 set isdiff 1
5329 return 1
5330 }
5331 set isdiff 0
5332 }
5333 # we only need to see one line and we don't really care what it says...
5337 return 0
5338 }
5341 # add the line for the local diff to the graph
5342 set hl [mc "Local uncommitted changes, not checked in to index"]
5347 } else {
5349 }
5353 }
5354 return 0
5355 }
5357 proc nextuse {id row} {
5358 global curview children
5363 return -1
5364 }
5367 }
5368 }
5369 }
5372 }
5373 return -1
5374 }
5376 proc prevuse {id row} {
5377 global curview children
5379 set ret -1
5385 }
5386 }
5387 }
5389 }
5391 proc make_idlist {row} {
5392 global displayorder parentlist uparrowlen downarrowlen mingaplen
5393 global commitidx curview children
5397 set r 0
5398 }
5401 set ra 0
5402 }
5406 }
5408 set ids {}
5417 }
5418 }
5419 }
5427 }
5428 }
5429 }
5437 }
5438 }
5439 incr r
5445 }
5446 }
5447 }
5448 set idlist {}
5451 }
5453 }
5455 proc rowsequal {a b} {
5458 }
5461 }
5463 }
5465 proc makeupline {id row rend col} {
5466 global rowidlist uparrowlen downarrowlen mingaplen
5472 }
5475 }
5482 }
5483 }
5484 }
5486 proc layoutrows {row endrow} {
5487 global rowidlist rowisopt rowfinal displayorder
5488 global uparrowlen downarrowlen maxwidth mingaplen
5489 global children parentlist
5490 global commitidx viewcomplete curview
5493 set idlist {}
5499 }
5500 }
5502 }
5507 set final 1
5508 } else {
5516 # if not the first child, we have to insert a line going up
5519 }
5520 }
5521 }
5531 }
5532 }
5533 }
5540 }
5541 }
5551 }
5552 }
5560 }
5561 }
5562 }
5563 }
5564 }
5568 set final 0
5569 }
5573 lappend rowisopt 0
5579 }
5581 } else {
5588 }
5589 }
5591 }
5593 proc changedrow {row} {
5594 global displayorder iddrawn rowisopt need_redisplay
5603 }
5604 }
5605 }
5608 set need_redisplay 1
5609 }
5610 }
5612 proc insert_pad {row col npad} {
5613 global rowidlist
5622 }
5625 }
5627 proc optimize_rows {row col endrow} {
5628 global rowidlist rowisopt displayorder curview children
5631 set row 1
5632 }
5635 set haspad 0
5644 } else {
5645 set pprevidlist {}
5646 }
5647 set x0 -1
5648 set xm -1
5653 set haspad 1
5654 continue
5655 }
5659 set isarrow 0
5660 set z0 {}
5665 }
5666 }
5671 set isarrow 1
5672 }
5673 }
5676 set isarrow 1
5677 }
5678 # Looking at lines from this row to the previous row,
5679 # make them go straight up if they end in an arrow on
5680 # the previous row; otherwise make them go straight up
5681 # or at 45 degrees.
5683 # Line currently goes left too much;
5684 # insert pads in the previous row, then optimize it
5689 }
5697 }
5699 # Line currently goes right too much;
5700 # insert pads in this line
5706 set haspad 1
5707 }
5714 }
5715 }
5716 # avoid lines jigging left then immediately right
5719 incr x0
5722 }
5723 }
5725 # Find the first column that doesn't have a line going right
5731 # check if this is the link to the first child
5734 # it is, work out offset to child
5736 }
5737 }
5739 }
5740 # Insert a pad at that column as long as it has a line and
5741 # isn't the last column
5746 }
5747 }
5748 }
5749 }
5751 proc xc {row col} {
5752 global canvx0 linespc
5754 }
5756 proc yc {row} {
5757 global canvy0 linespc
5759 }
5761 proc linewidth {id} {
5762 global thickerline lthickness
5767 }
5769 }
5771 proc rowranges {id} {
5772 global curview children uparrowlen downarrowlen
5773 global rowidlist
5777 return {}
5778 }
5779 set ret {}
5784 if {![info exists prev]} {
5786 } else {
5788 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5789 }
5790 # see if the line extends the whole way from prevrow to row
5794 # it doesn't, see where it ends
5799 } else {
5802 incr r -1
5803 }
5805 # see where it starts up again
5810 } else {
5813 incr r
5814 }
5816 }
5817 }
5820 }
5823 }
5825 }
5827 proc drawlineseg {id row endrow arrowlow} {
5828 global rowidlist displayorder iddrawn linesegs
5829 global canv colormap linespc curview maxlinelen parentlist
5833 set arrowhigh 1
5834 while {1} {
5837 incr le -1
5838 break
5839 }
5843 set arrowhigh 0
5844 break
5845 }
5850 set arrowhigh 0
5851 }
5852 break
5853 }
5854 incr le
5855 }
5858 }
5860 set lines {}
5861 set i 0
5862 set joinhigh 0
5869 set joinhigh 1
5870 }
5871 break
5872 }
5873 incr i
5874 }
5875 }
5876 set joinlow 0
5881 set joinlow 1
5882 }
5883 }
5896 }
5897 } else {
5899 }
5907 set arrowlow 0
5908 }
5909 }
5917 }
5919 }
5922 # join parent line to first child
5933 } else {
5935 }
5943 }
5945 }
5947 } else {
5951 }
5959 } else {
5963 }
5965 }
5966 } else {
5972 }
5976 } else {
5977 # coalesce two pieces
5982 }
5986 }
5987 }
5991 }
5993 proc drawparentlinks {id row} {
5994 global rowidlist canv colormap curview parentlist
5995 global idpos linespc
6008 # rmx = right-most X coord used
6009 set rmx 0
6014 continue
6015 }
6019 }
6022 # drawlineseg will do this one for us
6023 continue
6024 }
6026 # should handle duplicated parents here...
6029 # if attaching to a vertical segment, draw a smaller
6030 # slant for visual distinctness
6034 } else {
6036 }
6038 # segment slants towards us already
6040 } else {
6045 }
6047 }
6048 } else {
6050 }
6055 }
6059 }
6060 }
6062 proc drawlines {id} {
6063 global canv
6066 }
6068 proc drawcmittext {id row col} {
6069 global linespc canv canv2 canv3 fgcolor curview
6070 global cmitlisted commitinfo rowidlist parentlist
6071 global rowtextx idpos idtags idheads idotherrefs
6072 global linehtag linentag linedtag selectedline
6073 global canvxmax boldids boldnameids fgcolor markedid
6074 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
6075 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
6076 global circleoutlinecolor
6078 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
6086 } else {
6088 }
6097 # triangle pointing left for left-side commits
6103 } else {
6104 # triangle pointing right for right-side commits
6110 }
6122 }
6123 }
6124 }
6131 }
6134 }
6139 set font mainfont
6140 set nfont mainfont
6144 set font mainfontbold
6147 set nfont mainfontbold
6148 }
6149 }
6159 }
6162 }
6166 setcanvscroll
6167 }
6168 }
6170 proc drawcmitrow {row} {
6171 global displayorder rowidlist nrows_drawn
6172 global iddrawn markingmatches
6173 global commitinfo numcommits
6174 global filehighlight fhighlights findpattern nhighlights
6175 global hlview vhighlights
6176 global highlight_related rhighlights
6183 }
6186 }
6189 }
6192 }
6197 return
6198 }
6201 }
6205 incr nrows_drawn
6206 }
6209 }
6210 }
6212 proc drawcommits {row {endrow {}}} {
6213 global numcommits iddrawn displayorder curview need_redisplay
6214 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6217 set row 0
6218 }
6221 }
6224 }
6228 set rl1 0
6229 }
6232 set ro1 0
6233 }
6237 }
6242 }
6244 }
6245 }
6248 }
6251 clear_display
6252 }
6254 # make the lines join to already-drawn rows either side
6258 }
6263 }
6278 # see if this is the first child of any of its parents
6281 # make this line extend up to the child
6283 }
6284 }
6285 } else {
6287 }
6288 }
6289 }
6290 }
6292 proc undolayout {row} {
6293 global uparrowlen mingaplen downarrowlen
6294 global rowidlist rowisopt rowfinal need_redisplay
6298 set r 0
6299 }
6301 incr r -1
6305 set need_redisplay 1
6306 run drawvisible
6307 }
6308 }
6310 proc drawvisible {} {
6311 global canv linespc curview vrowmod selectedline targetrow targetid
6312 global need_redisplay cscroll numcommits
6322 if {[info exists targetid]} {
6326 # Fix up the scrollregion and change the scrolling position
6327 # now that our target row has moved.
6330 setcanvscroll
6338 set need_redisplay 1
6339 }
6340 } else {
6341 unset targetid
6342 }
6343 }
6349 }
6353 } elseif {[info exists targetid]} {
6355 }
6356 if {[info exists targetrow]} {
6359 }
6361 }
6363 }
6365 proc clear_display {} {
6366 global iddrawn linesegs need_redisplay nrows_drawn
6367 global vhighlights fhighlights nhighlights rhighlights
6368 global linehtag linentag linedtag boldids boldnameids
6370 allcanvs delete all
6371 catch {unset iddrawn}
6372 catch {unset linesegs}
6373 catch {unset linehtag}
6374 catch {unset linentag}
6375 catch {unset linedtag}
6376 set boldids {}
6377 set boldnameids {}
6378 catch {unset vhighlights}
6379 catch {unset fhighlights}
6380 catch {unset nhighlights}
6381 catch {unset rhighlights}
6382 set need_redisplay 0
6383 set nrows_drawn 0
6384 }
6386 proc findcrossings {id} {
6387 global rowidlist parentlist numcommits displayorder
6389 set cross {}
6390 set ccross {}
6394 }
6413 }
6414 }
6415 }
6416 }
6417 }
6419 }
6421 proc assigncolor {id} {
6422 global colormap colors nextcolor
6423 global parents children children curview
6429 } else {
6430 set kids {}
6431 }
6437 return
6438 }
6439 }
6440 set badcolors {}
6441 set origbad {}
6444 # delimiter between corner crossings and other crossings
6447 }
6451 }
6452 }
6455 }
6462 }
6467 }
6468 }
6469 }
6472 }
6473 }
6477 set nextcolor 0
6478 }
6480 }
6482 }
6484 proc bindline {t id} {
6485 global canv
6491 }
6493 proc graph_pane_width {} {
6494 global use_ttk
6497 set g [.tf.histframe.pwclist sashpos 0]
6498 } else {
6499 set g [.tf.histframe.pwclist sash coord 0]
6500 }
6502 }
6504 proc totalwidth {l font extra} {
6505 set tot 0
6508 }
6510 }
6512 proc drawtags {id x xt y1} {
6513 global idtags idheads idotherrefs mainhead
6514 global linespc lthickness
6515 global canv rowtextx curview fgcolor bgcolor ctxbut
6516 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
6517 global tagbgcolor tagfgcolor tagoutlinecolor
6518 global reflinecolor
6520 set marks {}
6521 set ntags 0
6522 set nheads 0
6523 set singletag 0
6524 set maxtags 3
6525 set maxtagpct 25
6535 # show just a single "n tags..." tag
6536 set singletag 1
6538 set marks [list "tag..."]
6539 } else {
6541 }
6542 set ntags 1
6543 }
6544 }
6548 }
6551 }
6554 }
6558 set xvals {}
6559 set wvals {}
6560 set i -1
6562 incr i
6565 } else {
6567 }
6571 }
6579 set font mainfont
6580 if {[incr ntags -1] >= 0} {
6581 # draw a tag
6588 } else {
6590 }
6593 } else {
6594 # draw a head or other ref
6595 if {[incr nheads -1] >= 0} {
6598 set font mainfontbold
6599 }
6600 } else {
6601 set col "#ddddff"
6602 }
6613 }
6614 }
6621 }
6622 }
6624 }
6626 proc drawnotesign {xt y} {
6627 global linespc canv fgcolor
6635 }
6637 proc xcoord {i level ln} {
6638 global canvx0 xspc1 xspc2
6645 }
6647 }
6649 proc show_status {msg} {
6650 global canv fgcolor
6652 clear_display
6655 }
6657 # Don't change the text pane cursor if it is currently the hand cursor,
6658 # showing that we are over a sha1 ID link.
6659 proc settextcursor {c} {
6660 global ctext curtextcursor
6664 }
6666 }
6668 proc nowbusy {what {name {}}} {
6669 global isbusy busyname statusw
6671 if {[array names isbusy] eq {}} {
6672 . config -cursor watch
6673 settextcursor watch
6674 }
6679 }
6680 }
6682 proc notbusy {what} {
6683 global isbusy maincursor textcursor busyname statusw
6685 catch {
6690 }
6691 }
6692 if {[array names isbusy] eq {}} {
6695 }
6696 }
6698 proc findmatches {f} {
6699 global findtype findstring
6702 } else {
6707 }
6708 set matches {}
6709 set i 0
6714 }
6715 }
6717 }
6719 proc dofind {{dirn 1} {wrap 1}} {
6720 global findstring findstartline findcurline selectedline numcommits
6721 global gdttype filehighlight fh_serial find_dirn findallowwrap
6723 if {[info exists find_dirn]} {
6725 stopfinding
6726 }
6727 focus .
6731 } else {
6733 }
6735 nowbusy finding [mc "Searching"]
6739 }
6742 run findmore
6743 }
6745 proc stopfinding {} {
6746 global find_dirn findcurline fprogcoord
6748 if {[info exists find_dirn]} {
6749 unset find_dirn
6750 unset findcurline
6751 notbusy finding
6752 set fprogcoord 0
6753 adjustprogress
6754 }
6755 stopblaming
6756 }
6758 proc findmore {} {
6759 global commitdata commitinfo numcommits findpattern findloc
6760 global findstartline findcurline findallowwrap
6761 global find_dirn gdttype fhighlights fprogcoord
6762 global curview varcorder vrownum varccommits vrowmod
6764 if {![info exists find_dirn]} {
6765 return 0
6766 }
6767 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6769 set moretodo 0
6771 incr l
6773 set l 0
6774 }
6777 } else {
6780 }
6781 } else {
6784 }
6785 incr l -1
6788 } else {
6789 set lim -1
6791 }
6792 }
6795 set n 500
6796 set moretodo 1
6797 }
6800 }
6801 set found 0
6802 set domore 1
6816 }
6818 # shouldn't happen unless git log doesn't give all the commits...
6821 continue
6822 }
6825 }
6831 set found 1
6832 break
6833 }
6834 }
6836 }
6837 } else {
6845 }
6850 }
6853 break
6854 }
6857 set domore 0
6859 }
6860 }
6861 }
6862 }
6864 unset findcurline
6865 unset find_dirn
6866 notbusy finding
6867 set fprogcoord 0
6868 adjustprogress
6871 } else {
6872 bell
6873 }
6874 return 0
6875 }
6877 flushhighlights
6878 } else {
6880 }
6884 }
6886 adjustprogress
6888 }
6890 proc findselectline {l} {
6891 global findloc commentend ctext findcurline markingmatches gdttype
6898 # highlight the matches in the comments
6905 }
6906 }
6907 drawvisible
6908 }
6910 # mark the bits of a headline or author that match a find string
6911 proc markmatches {canv l str tag matches font row} {
6912 global selectedline
6930 }
6931 }
6932 }
6934 proc unmarkmatches {} {
6935 global markingmatches
6937 allcanvs delete matches
6938 set markingmatches 0
6939 stopfinding
6940 }
6942 proc selcanvline {w x y} {
6943 global canv canvy0 ctext linespc
6944 global rowtextx
6951 set l 0
6952 }
6957 }
6958 unmarkmatches
6960 }
6962 proc commit_descriptor {p} {
6963 global commitinfo
6966 }
6967 set l "..."
6970 }
6972 }
6974 # append some text to the ctext widget, and make any SHA1 ID
6975 # that we know about be a clickable link.
6976 proc appendwithlinks {text tags} {
6977 global ctext linknum curview
6986 incr e
6990 incr linknum
6991 }
6992 }
6994 proc setlink {id lk} {
6995 global curview ctext pendinglinks
6996 global linkfgcolor
7000 }
7002 set known 0
7007 set known 1
7009 }
7010 } else {
7012 }
7018 } else {
7021 }
7022 }
7024 proc appendshortlink {id {pre {}} {post {}}} {
7025 global ctext linknum
7032 incr linknum
7033 }
7035 proc makelink {id} {
7036 global pendinglinks
7041 }
7043 }
7045 proc linkcursor {w inc} {
7046 global linkentercount curtextcursor
7050 } else {
7053 set linkentercount 0
7054 }
7055 }
7056 }
7058 proc viewnextline {dir} {
7059 global canv linespc
7067 set newtop 0
7070 }
7072 }
7074 # add a list of tag or branch names at position pos
7075 # returns the number of names inserted
7076 proc appendrefs {pos ids var} {
7080 return 0
7081 }
7084 set tags {}
7088 }
7089 }
7091 set sep {}
7093 set nutags 0
7096 # If we are displaying heads, and there are too many,
7097 # see if there are some important heads to display.
7099 set itags {}
7101 set utags {}
7108 } else {
7110 }
7111 }
7113 }
7115 set str [mc "and many more"]
7116 set sep " "
7117 } else {
7118 set str [mc "many"]
7119 }
7123 }
7128 incr linknum
7133 set sep ", "
7134 }
7138 }
7140 # called when we have finished computing the nearby tags
7141 proc dispneartags {delay} {
7142 global selectedline currentid showneartags tagphase
7145 after cancel dispnexttag
7147 after 200 dispnexttag
7148 set tagphase -1
7149 } else {
7150 after idle dispnexttag
7151 set tagphase 0
7152 }
7153 }
7155 proc dispnexttag {} {
7156 global selectedline currentid showneartags tagphase ctext
7160 0 {
7164 }
7165 }
7166 1 {
7170 }
7171 }
7172 2 {
7177 # turn "Branch" into "Branches"
7181 }
7182 }
7183 }
7184 }
7185 if {[incr tagphase] <= 2} {
7186 after idle dispnexttag
7187 }
7188 }
7190 proc make_secsel {id} {
7191 global linehtag linentag linedtag canv canv2 canv3
7206 }
7208 proc make_idmark {id} {
7209 global linehtag canv fgcolor
7216 }
7218 proc selectline {l isnew {desired_loc {}} {switch_to_patch 0}} {
7219 global canv ctext commitinfo selectedline
7220 global canvy0 linespc parents children curview
7221 global currentid sha1entry
7222 global commentend idtags linknum
7223 global mergemax numcommits pending_select
7224 global cmitmode showneartags allcommits
7225 global targetrow targetid lastscrollrows
7226 global autoselect autosellen jump_to_here
7227 global vinlinediff
7229 catch {unset pending_select}
7231 normalline
7232 unsel_reflist
7233 stopfinding
7241 setcanvscroll
7242 }
7245 set cmitmode "patch"
7246 }
7260 } else {
7264 }
7265 }
7269 } else {
7273 }
7274 }
7275 }
7278 set newtop 0
7279 }
7281 drawvisible
7282 }
7288 }
7294 }
7298 clear_ctext
7299 set linknum 0
7302 }
7312 }
7314 }
7316 set headers {}
7319 set np 0
7322 set tag mmax
7323 } else {
7325 }
7328 incr np
7329 }
7330 } else {
7333 }
7334 }
7338 }
7340 # make anything that looks like a SHA1 ID be a clickable link
7343 if {![info exists allcommits]} {
7344 getallcommits
7345 }
7356 dispneartags 1
7357 }
7362 }
7370 init_flist [mc "Comments"]
7377 } else {
7379 }
7380 }
7382 proc selfirstline {} {
7383 unmarkmatches
7384 selectline 0 1
7385 }
7387 proc sellastline {} {
7388 global numcommits
7389 unmarkmatches
7392 }
7394 proc selnextline {dir} {
7395 global selectedline
7396 focus .
7399 unmarkmatches
7401 }
7403 proc selnextpage {dir} {
7404 global canv linespc selectedline numcommits
7408 set lpp 1
7409 }
7411 drawvisible
7415 set l 0
7418 }
7419 unmarkmatches
7421 }
7423 proc unselectline {} {
7424 global selectedline currentid
7426 set selectedline {}
7427 catch {unset currentid}
7428 allcanvs delete secsel
7429 rhighlight_none
7430 }
7432 proc reselectline {} {
7433 global selectedline
7437 }
7438 }
7440 proc addtohistory {cmd {saveproc {}}} {
7441 global history historyindex curview
7443 unset_posvars
7444 save_position
7448 return
7449 }
7453 } else {
7455 }
7456 incr historyindex
7458 .tf.bar.leftbut conf -state normal
7459 } else {
7460 .tf.bar.leftbut conf -state disabled
7461 }
7462 .tf.bar.rightbut conf -state disabled
7463 }
7465 # save the scrolling position of the diff display pane
7466 proc save_position {} {
7467 global historyindex history
7474 }
7475 }
7477 proc unset_posvars {} {
7478 global last_posvars
7480 if {[info exists last_posvars]} {
7484 }
7485 unset last_posvars
7486 }
7487 }
7489 proc godo {elt} {
7490 global curview last_posvars
7497 }
7498 unset_posvars
7502 }
7505 }
7507 proc goback {} {
7508 global history historyindex
7509 focus .
7512 save_position
7513 incr historyindex -1
7515 .tf.bar.rightbut conf -state normal
7516 }
7518 .tf.bar.leftbut conf -state disabled
7519 }
7520 }
7522 proc goforw {} {
7523 global history historyindex
7524 focus .
7527 save_position
7529 incr historyindex
7531 .tf.bar.leftbut conf -state normal
7532 }
7534 .tf.bar.rightbut conf -state disabled
7535 }
7536 }
7538 proc go_to_parent {i} {
7539 global parents curview targetid
7543 }
7544 }
7546 proc gettree {id} {
7547 global treefilelist treeidlist diffids diffmergeid treepending
7548 global nullid nullid2
7551 catch {unset diffmergeid}
7553 if {![info exists treepending]} {
7555 set cmd [list | git ls-files]
7557 set cmd [list | git ls-files --stage -t]
7558 } else {
7560 }
7562 return
7563 }
7569 }
7570 } else {
7572 }
7573 }
7575 proc gettreeline {gtf id} {
7576 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7578 set nl 0
7582 } else {
7590 }
7593 }
7596 }
7599 }
7601 unset treepending
7603 if {![info exists diffmergeid]} {
7605 }
7608 } else {
7610 }
7611 return 0
7612 }
7614 proc showfile {f} {
7615 global treefilelist treeidlist diffids nullid nullid2
7616 global ctext_file_names ctext_file_lines
7617 global ctext commentend
7622 return
7623 }
7627 return
7628 }
7629 } else {
7633 return
7634 }
7635 }
7646 settabs 0
7647 }
7649 proc getblobline {bf id} {
7650 global diffids cmitmode ctext
7654 return 0
7655 }
7657 set nl 0
7660 }
7662 global jump_to_here ctext_file_names commentend
7664 # delete last newline
7672 }
7674 return 0
7675 }
7678 }
7680 proc mark_ctext_line {lnum} {
7681 global ctext markbgcolor
7687 }
7689 proc mergediff {id} {
7690 global diffmergeid
7691 global diffids treediffs
7692 global parents curview
7700 }
7702 proc startdiff {ids} {
7703 global treediffs diffids treepending diffmergeid nullid nullid2
7705 settabs 1
7707 catch {unset diffmergeid}
7711 if {![info exists treepending]} {
7713 }
7714 } else {
7716 }
7717 }
7719 proc showinlinediff {ids} {
7720 global commitinfo commitdata ctext
7721 global treediffs
7727 initblobdiffvars
7728 set treediff {}
7730 set inhdr 0
7733 set inhdr 1
7735 # offset also accounts for the b/ prefix
7737 set inhdr 0
7738 }
7739 }
7747 }
7748 maybe_scroll_ctext 1
7750 }
7752 # If the filename (name) is under any of the passed filter paths
7753 # then return true to include the file in the listing.
7754 proc path_filter {filter name} {
7755 set worktree [gitworktree]
7760 return 1
7761 }
7762 }
7763 return 0
7764 }
7766 proc addtocflist {ids} {
7767 global treediffs
7771 }
7773 proc diffcmd {ids flags} {
7774 global log_showroot nullid nullid2 git_version
7780 # comparing working directory with some specific revision
7784 } else {
7786 }
7787 } else {
7788 # comparing working directory with index
7791 lappend cmd -R
7792 }
7793 }
7797 }
7800 # comparing index with specific revision
7803 } else {
7805 }
7806 } else {
7807 # comparing index with HEAD
7808 lappend cmd HEAD
7809 }
7810 } else {
7812 lappend flags --root
7813 }
7815 }
7817 }
7819 proc gettreediffs {ids} {
7820 global treediff treepending limitdiffs vfilelimit curview
7825 }
7829 set treediff {}
7832 }
7834 proc gettreediffline {gdtf ids} {
7835 global treediff treediffs treepending diffids diffmergeid
7836 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7838 set nr 0
7839 set sublist {}
7840 set max 1000
7842 # cache_gitattr is slow, and even slower on win32 where we
7843 # have to invoke it for only about 30 paths at a time
7844 set max 500
7845 if {[tk windowingsystem] == "win32"} {
7846 set max 120
7847 }
7848 }
7855 }
7860 }
7861 }
7862 }
7865 }
7868 }
7871 unset treepending
7875 if {![info exists diffmergeid]} {
7877 }
7878 } else {
7880 }
7881 return 0
7882 }
7884 # empty string or positive integer
7885 proc diffcontextvalidate {v} {
7887 }
7889 proc diffcontextchange {n1 n2 op} {
7890 global diffcontextstring diffcontext
7895 reselectline
7896 }
7897 }
7898 }
7900 proc changeignorespace {} {
7901 reselectline
7902 }
7904 proc changeworddiff {name ix op} {
7905 reselectline
7906 }
7908 proc initblobdiffvars {} {
7909 global diffencoding targetline diffnparents
7910 global diffinhdr currdiffsubmod diffseehere
7911 set targetline {}
7912 set diffnparents 0
7913 set diffinhdr 0
7914 set diffencoding [get_path_encoding {}]
7915 set currdiffsubmod ""
7916 set diffseehere -1
7917 }
7919 proc getblobdiffs {ids} {
7920 global blobdifffd diffids env
7921 global treediffs
7922 global diffcontext
7923 global ignorespace
7924 global worddiff
7925 global limitdiffs vfilelimit curview
7926 global git_version
7928 set textconv {}
7930 set textconv "--textconv"
7931 }
7932 set submodule {}
7934 set submodule "--submodule"
7935 }
7938 append cmd " -w"
7939 }
7941 append cmd " --word-diff=porcelain"
7942 }
7945 }
7948 return
7949 }
7952 initblobdiffvars
7954 }
7956 proc savecmitpos {} {
7957 global ctext cmitmode
7960 return {}
7961 }
7963 }
7965 proc savectextpos {} {
7966 global ctext
7969 }
7971 proc maybe_scroll_ctext {ateof} {
7972 global ctext target_scrollpos
7974 if {![info exists target_scrollpos]} return
7977 / [font metrics textfont -linespace]}]
7979 }
7981 unset target_scrollpos
7982 }
7984 proc setinlist {var i val} {
7989 }
7992 } else {
7994 }
7995 }
7997 proc makediffhdr {fname ids} {
7998 global ctext curdiffstart treediffs diffencoding
7999 global ctext_file_names jump_to_here targetline diffline
8006 }
8011 set targetline {}
8014 }
8015 set diffline 0
8016 }
8018 proc blobdiffmaybeseehere {ateof} {
8019 global diffseehere
8022 }
8024 }
8026 proc getblobdiffline {bdf ids} {
8027 global diffids blobdifffd
8028 global ctext
8030 set nr 0
8035 return 0
8036 }
8038 }
8043 return 0
8044 }
8046 }
8048 proc parseblobdiffline {ids line} {
8049 global ctext curdiffstart
8050 global diffnexthead diffnextnote difffilestart
8051 global ctext_file_names ctext_file_lines
8052 global diffinhdr treediffs mergemax diffnparents
8053 global diffencoding jump_to_here targetline diffline currdiffsubmod
8054 global worddiff diffseehere
8060 continue
8061 }
8062 # start of a new file
8063 set diffinhdr 1
8066 lappend ctext_file_names ""
8071 # start of a new file in a merge diff
8076 }
8078 } else {
8080 # If the name hasn't changed the length will be odd,
8081 # the middle char will be a space, and the two bits either
8082 # side will be a/name and b/name, or "a/name" and "b/name".
8083 # If the name has changed we'll get "rename from" and
8084 # "rename to" or "copy from" and "copy to" lines following
8085 # this, and we'll use them to get the filenames.
8086 # This complexity is necessary because spaces in the
8087 # filename(s) don't get escaped.
8093 return
8094 }
8095 # unescape if quoted and chop off the a/ from the front
8098 } else {
8100 }
8101 }
8114 }
8122 }
8124 set diffinhdr 0
8127 # start of a new submodule
8130 } else {
8132 }
8135 }
8137 lappend ctext_file_names ""
8143 } else {
8145 }
8159 }
8164 }
8170 }
8173 # do nothing
8174 return
8176 set diffinhdr 0
8177 return
8178 }
8181 } else {
8182 set line [string map {\x1A ^Z} \
8184 # parse the prefix - one ' ', '-' or '+' for each parent
8188 set words_pre_markup ""
8189 set words_post_markup ""
8191 # prefix only has " ", "-" and "+" in it: normal diff line
8195 }
8199 set num "max"
8200 }
8203 } else {
8205 }
8208 }
8209 } else {
8210 set tags {}
8212 # added line
8218 set num "max"
8219 }
8221 }
8222 }
8223 set words_pre_markup "{+"
8224 set words_post_markup "+}"
8225 }
8229 set targetline {}
8230 } else {
8231 incr diffline
8232 }
8233 }
8236 } else {
8238 }
8241 }
8242 }
8245 } else {
8246 # "\ No newline at end of file",
8247 # or something else we don't recognize
8249 }
8250 }
8251 }
8253 proc changediffdisp {} {
8254 global ctext diffelide
8258 }
8260 proc highlightfile {cline} {
8261 global cflist cflist_top
8263 if {![info exists cflist_top]} return
8269 }
8271 proc highlightfile_for_scrollpos {topidx} {
8272 global cmitmode difffilestart
8275 if {![info exists difffilestart]} return
8279 highlightfile 0
8280 } else {
8282 }
8283 }
8285 proc prevfile {} {
8286 global difffilestart ctext cmitmode
8289 set prev 0.0
8294 return
8295 }
8297 }
8299 }
8301 proc nextfile {} {
8302 global difffilestart ctext cmitmode
8309 return
8310 }
8311 }
8312 }
8314 proc clear_ctext {{first 1.0}} {
8315 global ctext smarktop smarkbot
8316 global ctext_file_names ctext_file_lines
8317 global pendinglinks
8322 }
8325 }
8328 catch {unset pendinglinks}
8329 }
8330 set ctext_file_names {}
8331 set ctext_file_lines {}
8332 }
8334 proc settabs {{firstab {}}} {
8335 global firsttabstop tabstop ctext have_tk85
8339 }
8340 set w [font measure textfont "0"]
8346 } else {
8348 }
8349 }
8351 proc incrsearch {name ix op} {
8352 global ctext searchstring searchdirn
8355 # no anchor set, use start of selection, or of visible area
8361 } else {
8363 }
8364 }
8372 suppress_highlighting_file_for_current_scrollpos
8374 }
8375 }
8376 rehighlight_search_results
8377 }
8379 proc dosearch {} {
8380 global sstring ctext searchstring searchdirn
8384 set searchdirn -forwards
8390 set start "@0,0"
8391 }
8395 bell
8396 return
8397 }
8399 suppress_highlighting_file_for_current_scrollpos
8404 rehighlight_search_results
8405 }
8406 }
8408 proc dosearchback {} {
8409 global sstring ctext searchstring searchdirn
8413 set searchdirn -backwards
8420 }
8424 bell
8425 return
8426 }
8428 suppress_highlighting_file_for_current_scrollpos
8433 rehighlight_search_results
8434 }
8435 }
8437 proc rehighlight_search_results {} {
8438 global ctext searchstring
8444 searchmarkvisible 1
8445 }
8446 }
8448 proc searchmark {first last} {
8449 global ctext searchstring
8454 while {1} {
8460 } else {
8462 }
8463 }
8464 }
8466 proc searchmarkvisible {doall} {
8467 global ctext smarktop smarkbot
8472 # no overlap with previous
8476 } else {
8480 }
8484 }
8485 }
8486 }
8488 proc suppress_highlighting_file_for_current_scrollpos {} {
8489 global ctext suppress_highlighting_file_for_this_scrollpos
8492 }
8494 proc scrolltext {f0 f1} {
8495 global searchstring cmitmode ctext
8496 global suppress_highlighting_file_for_this_scrollpos
8499 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8502 }
8504 catch {unset suppress_highlighting_file_for_this_scrollpos}
8508 searchmarkvisible 0
8509 }
8510 }
8512 proc setcoords {} {
8513 global linespc charspc canvx0 canvy0
8514 global xspc1 xspc2 lthickness
8516 set linespc [font metrics mainfont -linespace]
8517 set charspc [font measure mainfont "m"]
8523 }
8525 proc redisplay {} {
8526 global canv
8527 global selectedline
8532 clear_display
8533 setcanvscroll
8535 drawvisible
8539 }
8540 }
8542 proc parsefont {f n} {
8543 global fontattr
8548 set s 10
8551 }
8557 "normal" -
8559 "roman" -
8561 }
8562 }
8563 }
8565 proc fontflags {f {isbold 0}} {
8566 global fontattr
8571 }
8573 proc fontname {f} {
8574 global fontattr
8578 lappend n "bold"
8579 }
8581 lappend n "italic"
8582 }
8584 }
8586 proc incrfont {inc} {
8587 global mainfont textfont ctext canv cflist showrefstop
8588 global stopped entries fontattr
8590 unmarkmatches
8594 set s 1
8595 }
8599 set mainfont [fontname mainfont]
8603 set s 1
8604 }
8608 set textfont [fontname textfont]
8609 setcoords
8610 settabs
8611 redisplay
8612 }
8614 proc clearsha1 {} {
8615 global sha1entry sha1string
8618 }
8619 }
8621 proc sha1change {n1 n2 op} {
8622 global sha1string currentid sha1but
8625 set state disabled
8626 } else {
8627 set state normal
8628 }
8632 } else {
8634 }
8635 }
8637 proc gotocommit {} {
8638 global sha1string tagids headids curview varcid
8646 } else {
8653 return
8654 }
8656 }
8657 } else {
8660 return
8661 }
8662 }
8663 }
8666 return
8667 }
8670 } else {
8672 }
8674 }
8676 proc lineenter {x y id} {
8677 global hoverx hovery hoverid hovertimer
8678 global commitinfo canv
8684 if {[info exists hovertimer]} {
8686 }
8687 set hovertimer [after 500 linehover]
8689 }
8691 proc linemotion {x y id} {
8692 global hoverx hovery hoverid hovertimer
8697 if {[info exists hovertimer]} {
8699 }
8700 set hovertimer [after 500 linehover]
8701 }
8702 }
8704 proc lineleave {id} {
8705 global hoverid hovertimer canv
8709 if {[info exists hovertimer]} {
8711 unset hovertimer
8712 }
8713 unset hoverid
8714 }
8715 }
8717 proc linehover {} {
8718 global hoverx hovery hoverid hovertimer
8719 global canv linespc lthickness
8720 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8722 global commitinfo
8736 -width 1 -tags hover]
8741 }
8743 proc clickisonarrow {id y} {
8744 global lthickness
8753 }
8754 }
8755 return {}
8756 }
8758 proc arrowjump {id n y} {
8759 global canv
8761 # 1 <-> 2, 3 <-> 4, etc...
8771 set yfrac 0
8772 }
8774 }
8776 proc lineclick {x y id isnew} {
8777 global ctext commitinfo children canv thickerline curview
8780 unmarkmatches
8781 unselectline
8782 normalline
8784 # draw this line thicker than normal
8792 }
8796 return
8797 }
8801 }
8802 # fill the details pane with info about this line
8804 clear_ctext
8805 settabs 0
8817 set i 0
8819 incr i
8829 }
8830 }
8831 maybe_scroll_ctext 1
8833 init_flist {}
8834 }
8836 proc normalline {} {
8837 global thickerline
8838 if {[info exists thickerline]} {
8840 unset thickerline
8842 }
8843 }
8845 proc selbyid {id {isnew 1}} {
8846 global curview
8849 }
8850 }
8852 proc mstime {} {
8853 global startmstime
8854 if {![info exists startmstime]} {
8855 set startmstime [clock clicks -milliseconds]
8856 }
8858 }
8860 proc rowmenu {x y id} {
8861 global rowctxmenu selectedline rowmenuid curview
8862 global nullid nullid2 fakerowmenu mainhead markedid
8864 stopfinding
8867 set state disabled
8868 } else {
8869 set state normal
8870 }
8872 set mstate normal
8873 } else {
8874 set mstate disabled
8875 }
8880 } else {
8882 }
8886 } else {
8888 }
8895 }
8897 proc markhere {} {
8898 global rowmenuid markedid canv
8902 }
8904 proc gotomark {} {
8905 global markedid
8907 if {[info exists markedid]} {
8909 }
8910 }
8912 proc replace_by_kids {l r} {
8913 global curview children
8919 }
8921 }
8923 proc find_common_desc {} {
8924 global markedid rowmenuid curview children
8926 if {![info exists markedid]} return
8929 #set t1 [clock clicks -milliseconds]
8932 while 1 {
8938 break
8939 }
8942 } else {
8944 }
8945 }
8946 #set t2 [clock clicks -milliseconds]
8948 }
8950 proc compare_commits {} {
8951 global markedid rowmenuid curview children
8953 if {![info exists markedid]} return
8957 }
8959 proc getpatchid {id} {
8960 global patchids
8964 # trim off the initial "|"
8966 if {[catch {
8969 }]} {
8971 }
8972 }
8974 }
8976 proc do_cmp_commits {a b} {
8977 global ctext curview parents children patchids commitinfo
8980 clear_ctext
8981 init_flist {}
8983 set skipa 0
8984 set skipb 0
8987 set skipa 1
8988 } else {
8990 }
8993 set skipb 1
8994 } else {
8996 }
9002 [mc " - stopping\n"]
9003 break
9004 }
9007 [mc " - stopping\n"]
9008 break
9009 }
9014 } else {
9018 }
9019 set skipa 1
9020 set skipb 1
9021 } else {
9028 update
9030 return
9031 }
9032 }
9039 break
9040 }
9042 }
9048 break
9049 }
9051 }
9052 }
9054 }
9056 proc diffcommits {a b} {
9057 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
9059 set tmpdir [gitknewtmpdir]
9062 if {[catch {
9065 } err]} {
9067 return
9068 }
9069 if {[catch {
9071 } err]} {
9073 return
9074 }
9077 set diffinhdr 0
9078 set currdiffsubmod ""
9080 }
9082 proc diffvssel {dirn} {
9083 global rowmenuid selectedline
9089 } else {
9092 }
9095 }
9097 proc diffvsmark {dirn} {
9098 global rowmenuid markedid
9100 if {![info exists markedid]} return
9104 } else {
9107 }
9110 }
9112 proc doseldiff {oldid newid} {
9113 global ctext
9114 global commitinfo
9117 clear_ctext
9118 init_flist [mc "Top"]
9133 }
9135 proc mkpatch {} {
9136 global rowmenuid currentid commitinfo patchtop patchnum NS
9138 if {![info exists currentid]} return
9143 set top .patch
9173 incr patchnum
9185 }
9187 proc mkpatchrev {} {
9188 global patchtop
9194 foreach e [list fromsha1 fromhead tosha1 tohead] \
9200 }
9201 }
9203 proc mkpatchgo {} {
9204 global patchtop nullid nullid2
9210 # trim off the initial "|"
9215 }
9217 unset patchtop
9218 }
9220 proc mkpatchcan {} {
9221 global patchtop
9224 unset patchtop
9225 }
9227 proc mktag {} {
9228 global rowmenuid mktagtop commitinfo NS
9230 set top .maketag
9264 }
9266 proc domktag {} {
9267 global mktagtop env tagids idtags
9274 return 0
9275 }
9278 return 0
9279 }
9280 if {[catch {
9283 } else {
9285 }
9286 } err]} {
9288 return 0
9289 }
9295 dispneartags 0
9296 run refill_reflist
9297 return 1
9298 }
9300 proc redrawtags {id} {
9301 global canv linehtag idpos currentid curview cmitlisted markedid
9302 global canvxmax iddrawn circleitem mainheadid circlecolors
9303 global mainheadcirclecolor
9310 } else {
9312 }
9322 setcanvscroll
9323 }
9326 }
9329 }
9330 }
9332 proc mktagcan {} {
9333 global mktagtop
9336 unset mktagtop
9337 }
9339 proc mktaggo {} {
9340 if {![domktag]} return
9341 mktagcan
9342 }
9344 proc writecommit {} {
9345 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9347 set top .writecommit
9380 }
9382 proc wrcomgo {} {
9383 global wrcomtop
9390 }
9392 unset wrcomtop
9393 }
9395 proc wrcomcan {} {
9396 global wrcomtop
9399 unset wrcomtop
9400 }
9402 proc mkbranch {} {
9403 global rowmenuid mkbrtop NS
9405 set top .makebranch
9429 }
9431 proc mkbrgo {top} {
9432 global headids idheads
9436 set cmdargs {}
9437 set old_id {}
9440 return
9441 }
9443 if {![confirm_popup [mc \
9445 return
9446 }
9448 lappend cmdargs -f
9449 }
9452 nowbusy newbranch
9453 update
9454 if {[catch {
9456 } err]} {
9457 notbusy newbranch
9459 } else {
9460 notbusy newbranch
9466 } else {
9471 }
9472 dispneartags 0
9473 run refill_reflist
9474 }
9475 }
9477 proc exec_citool {tool_args {baseid {}}} {
9478 global commitinfo env
9480 set save_env [array get env GIT_AUTHOR_*]
9485 }
9488 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9494 }
9495 }
9499 array unset env GIT_AUTHOR_*
9501 }
9503 proc cherrypick {} {
9504 global rowmenuid curview
9505 global mainhead mainheadid
9506 global gitdir
9508 set oldhead [exec git rev-parse HEAD]
9511 set ok [confirm_popup [mc "Commit %s is already\
9512 included in branch %s -- really re-apply it?" \
9515 }
9516 nowbusy cherrypick [mc "Cherry-picking"]
9517 update
9518 # Unfortunately git-cherry-pick writes stuff to stderr even when
9519 # no error occurs, and exec takes that as an indication of error...
9521 notbusy cherrypick
9522 if {[regexp -line \
9523 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9525 error_popup [mc "Cherry-pick failed because of local changes\
9526 to file '%s'.\nPlease commit, reset or stash\
9528 } elseif {[regexp -line \
9529 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9531 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9532 conflict.\nDo you wish to run git citool to\
9533 resolve it?"]]} {
9534 # Force citool to read MERGE_MSG
9537 }
9538 } else {
9540 }
9541 run updatecommits
9542 return
9543 }
9544 set newhead [exec git rev-parse HEAD]
9546 notbusy cherrypick
9547 error_popup [mc "No changes committed"]
9548 return
9549 }
9552 # XXX this isn't right if we have a path limit...
9557 }
9562 }
9563 notbusy cherrypick
9564 }
9566 proc revert {} {
9567 global rowmenuid curview
9568 global mainhead mainheadid
9569 global gitdir
9571 set oldhead [exec git rev-parse HEAD]
9574 set ok [confirm_popup [mc "Commit %s is not\
9575 included in branch %s -- really revert it?" \
9578 }
9579 nowbusy revert [mc "Reverting"]
9580 update
9583 notbusy revert
9584 if [regexp {files would be overwritten by merge:(\n(( |\t)+[^\n]+\n)+)}\
9587 error_popup [mc "Revert failed because of local changes to\
9588 the following files:%s Please commit, reset or stash \
9591 if [confirm_popup [mc "Revert failed because of merge conflict.\n\
9592 Do you wish to run git citool to resolve it?"]] {
9593 # Force citool to read MERGE_MSG
9596 }
9598 run updatecommits
9599 return
9600 }
9602 set newhead [exec git rev-parse HEAD]
9604 notbusy revert
9605 error_popup [mc "No changes committed"]
9606 return
9607 }
9612 # XXX this isn't right if we have a path limit...
9617 }
9622 }
9624 notbusy revert
9625 }
9627 proc resethead {} {
9628 global mainhead rowmenuid confirm_ok resettype NS
9630 set confirm_ok 0
9631 set w ".confirmreset"
9639 set resettype mixed
9641 -text [mc "Soft: Leave working tree and index untouched"]
9644 -text [mc "Mixed: Leave working tree untouched, reset index"]
9647 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9658 if {[catch {set fd [open \
9661 } else {
9662 dohidelocalchanges
9664 nowbusy reset [mc "Resetting"]
9666 }
9667 }
9669 proc readresetstat {fd} {
9670 global mainhead mainheadid showlocalchanges rprogcoord
9675 adjustprogress
9676 }
9677 return 1
9678 }
9679 set rprogcoord 0
9680 adjustprogress
9681 notbusy reset
9684 }
9686 set newhead [exec git rev-parse HEAD]
9693 }
9695 doshowlocalchanges
9696 }
9697 return 0
9698 }
9700 # context menu for a head
9701 proc headmenu {x y id head} {
9702 global headmenuid headmenuhead headctxmenu mainhead
9704 stopfinding
9707 set state normal
9709 set state disabled
9710 }
9712 set state disabled
9713 }
9717 }
9719 proc cobranch {} {
9720 global headmenuid headmenuhead headids
9721 global showlocalchanges
9723 # check the tree is clean first??
9724 nowbusy checkout [mc "Checking out"]
9725 update
9726 dohidelocalchanges
9727 if {[catch {
9729 } err]} {
9730 notbusy checkout
9733 dodiffindex
9734 }
9735 } else {
9737 }
9738 }
9740 proc readcheckoutstat {fd newhead newheadid} {
9741 global mainhead mainheadid headids showlocalchanges progresscoords
9742 global viewmainheadid curview
9747 adjustprogress
9748 }
9749 return 1
9750 }
9751 set progresscoords {0 0}
9752 adjustprogress
9753 notbusy checkout
9756 }
9765 dodiffindex
9766 }
9767 }
9769 proc rmbranch {} {
9770 global headmenuid headmenuhead mainhead
9771 global idheads
9775 # this check shouldn't be needed any more...
9777 error_popup [mc "Cannot delete the currently checked-out branch"]
9778 return
9779 }
9782 # the stuff on this branch isn't on any other branch
9783 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9785 }
9786 nowbusy rmbranch
9787 update
9789 notbusy rmbranch
9791 return
9792 }
9796 notbusy rmbranch
9797 dispneartags 0
9798 run refill_reflist
9799 }
9801 # Display a list of tags and heads
9802 proc showrefs {} {
9803 global showrefstop bgcolor fgcolor selectbgcolor NS
9804 global bglist fglist reflistfilter reflist maincursor
9806 set top .showrefs
9810 refill_reflist
9811 return
9812 }
9820 -spacing1 1 -spacing3 1 -state disabled
9831 set reflistfilter "*"
9832 trace add variable reflistfilter write reflistfilter_change
9844 set reflist {}
9845 refill_reflist
9846 }
9848 proc sel_reflist {w x y} {
9849 global showrefstop reflist headids tagids otherrefids
9859 }
9861 }
9863 proc unsel_reflist {} {
9864 global showrefstop
9868 }
9870 proc reflistfilter_change {n1 n2 op} {
9871 global reflistfilter
9873 after cancel refill_reflist
9874 after 200 refill_reflist
9875 }
9877 proc refill_reflist {} {
9878 global reflist reflistfilter showrefstop headids tagids otherrefids
9879 global curview
9882 set refs {}
9883 foreach n [array names headids] {
9887 } else {
9889 }
9890 }
9891 }
9892 foreach n [array names tagids] {
9896 } else {
9898 }
9899 }
9900 }
9901 foreach n [array names otherrefids] {
9905 } else {
9907 }
9908 }
9909 }
9917 set i 0
9918 set j 0
9927 }
9928 } else {
9929 set cmp -1
9930 }
9931 } else {
9932 set cmp 1
9933 }
9935 -1 {
9937 incr i
9938 }
9939 0 {
9940 incr i
9941 incr j
9942 }
9943 1 {
9948 incr j
9949 }
9950 }
9951 }
9953 # delete last newline
9956 }
9958 # Stuff for finding nearby tags
9959 proc getallcommits {} {
9960 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9961 global idheads idtags idotherrefs allparents tagobjid
9962 global gitdir
9964 if {![info exists allcommits]} {
9965 set nextarc 0
9966 set allcommits 0
9967 set seeds {}
9968 set allcwait 0
9969 set cachedarcs 0
9971 if {![catch {
9973 set allcwait 1
9975 }]} return
9976 }
9979 return
9980 }
9981 set cmd [list | git rev-list --parents]
9984 set ids "--all"
9985 } else {
9986 set refs [concat [array names idheads] [array names idtags] \
9987 [array names idotherrefs]]
9988 set ids {}
9989 set tagobjs {}
9990 foreach name [array names tagobjid] {
9992 }
9997 }
9998 }
10002 }
10003 }
10004 }
10008 incr allcommits
10009 nowbusy allcommits
10011 } else {
10012 dispneartags 0
10013 }
10014 }
10016 # Since most commits have 1 parent and 1 child, we group strings of
10017 # such commits into "arcs" joining branch/merge points (BMPs), which
10018 # are commits that either don't have 1 parent or don't have 1 child.
10019 #
10020 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
10021 # arcout(id) - outgoing arcs for BMP
10022 # arcids(a) - list of IDs on arc including end but not start
10023 # arcstart(a) - BMP ID at start of arc
10024 # arcend(a) - BMP ID at end of arc
10025 # growing(a) - arc a is still growing
10026 # arctags(a) - IDs out of arcids (excluding end) that have tags
10027 # archeads(a) - IDs out of arcids (excluding end) that have heads
10028 # The start of an arc is at the descendent end, so "incoming" means
10029 # coming from descendents, and "outgoing" means going towards ancestors.
10031 proc getallclines {fd} {
10032 global allparents allchildren idtags idheads nextarc
10033 global arcnos arcids arctags arcout arcend arcstart archeads growing
10034 global seeds allcommits cachedarcs allcupdate
10036 set nid 0
10040 # seen it already
10041 continue
10042 }
10043 set cachedarcs 0
10050 } else {
10056 }
10059 }
10061 # seen parent already
10064 }
10068 }
10071 continue
10072 }
10073 }
10078 }
10080 set ao {}
10083 set a [incr nextarc]
10092 # seen it already, may need to make a new branch
10095 }
10099 }
10101 }
10103 }
10105 global cached_dheads cached_dtags cached_atags
10106 catch {unset cached_dheads}
10107 catch {unset cached_dtags}
10108 catch {unset cached_atags}
10109 }
10112 }
10113 set cacheok 1
10114 if {[catch {
10117 } err]} {
10118 # got an error reading the list of commits
10119 # if we were updating, try rereading the whole thing again
10121 incr allcommits -1
10123 return
10124 }
10125 error_popup "[mc "Error reading commit topology information;\
10126 branch and preceding/following tag information\
10128 set cacheok 0
10129 }
10130 if {[incr allcommits -1] == 0} {
10131 notbusy allcommits
10133 run savecache
10134 }
10135 }
10136 dispneartags 0
10137 return 0
10138 }
10140 proc recalcarc {a} {
10141 global arctags archeads arcids idtags idheads
10143 set at {}
10144 set ah {}
10148 }
10151 }
10152 }
10155 }
10157 proc splitarc {p} {
10158 global arcnos arcids nextarc arctags archeads idtags idheads
10159 global arcstart arcend arcout allparents growing
10164 return
10165 }
10170 return
10171 }
10172 set na [incr nextarc]
10175 } else {
10179 }
10189 }
10194 } else {
10197 }
10198 }
10200 # reconstruct tags and heads lists
10204 } else {
10207 }
10208 }
10210 # Update things for a new commit added that is a child of one
10211 # existing commit. Used when cherry-picking.
10212 proc addnewchild {id p} {
10213 global allparents allchildren idtags nextarc
10214 global arcnos arcids arctags arcout arcend arcstart archeads growing
10215 global seeds allcommits
10223 set a [incr nextarc]
10231 }
10234 }
10236 # This implements a cache for the topology information.
10237 # The cache saves, for each arc, the start and end of the arc,
10238 # the ids on the arc, and the outgoing arcs from the end.
10239 proc readcache {f} {
10240 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
10241 global idtags idheads allparents cachedarcs possible_seeds seeds growing
10242 global allcwait
10248 }
10249 if {[catch {
10251 # finish reading the cache and setting up arctags, etc.
10255 foreach id [array names idtags] {
10261 }
10262 }
10263 }
10264 foreach id [array names idheads] {
10270 }
10271 }
10272 }
10276 }
10277 }
10278 set allcwait 0
10279 } else {
10289 }
10293 } else {
10297 }
10298 }
10304 }
10307 }
10310 }
10312 }
10313 } err]} {
10315 return 0
10316 }
10318 getallcommits
10319 }
10321 }
10323 proc getcache {f} {
10324 global nextarc cachedarcs possible_seeds
10326 if {[catch {
10329 # make sure it's an integer
10332 set nextarc 0
10333 set possible_seeds {}
10335 } err]} {
10337 }
10338 return 0
10339 }
10341 proc dropcache {err} {
10342 global allcwait nextarc cachedarcs seeds
10345 foreach v {arcnos arcout arcids arcstart arcend growing \
10346 arctags archeads allparents allchildren} {
10349 }
10350 set allcwait 0
10351 set nextarc 0
10352 set cachedarcs 0
10353 set seeds {}
10354 getallcommits
10355 }
10357 proc writecache {f} {
10358 global cachearc cachedarcs allccache
10359 global arcstart arcend arcnos arcids arcout
10365 }
10366 if {[catch {
10370 } else {
10372 }
10373 }
10374 } err]} {
10378 return 0
10379 }
10384 return 0
10385 }
10386 return 1
10387 }
10389 proc savecache {} {
10390 global nextarc cachedarcs cachearc allccache
10393 set cachearc 0
10395 catch {
10399 }
10400 }
10402 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10403 # or 0 if neither is true.
10404 proc anc_or_desc {a b} {
10405 global arcout arcstart arcend arcnos cached_isanc
10408 # Both are on the same arc(s); either both are the same BMP,
10409 # or if one is not a BMP, the other is also not a BMP or is
10410 # the BMP at end of the arc (and it only has 1 incoming arc).
10411 # Or both can be BMPs with no incoming arcs.
10413 return 0
10414 }
10420 return 1
10421 } else {
10422 return -1
10423 }
10424 }
10430 } else {
10431 set aend {}
10432 }
10434 } else {
10436 }
10441 } else {
10442 set bend {}
10443 }
10445 } else {
10447 }
10449 return 1
10450 }
10452 return -1
10453 }
10456 return 1
10457 }
10458 }
10461 return -1
10462 }
10464 return 0
10465 }
10466 }
10474 continue
10475 }
10481 return 1
10485 return -1
10486 }
10492 }
10493 }
10494 }
10497 return 0
10498 }
10502 # and returns 0 if so and 1 if not.
10503 # If we subsequently discover a tag on such a growing tip, and that
10506 # isn't a good choice to display as a descendent tag of
10510 #
10511 proc is_certain {desc anc} {
10512 global arcnos arcout arcstart arcend growing problems
10514 set certain {}
10516 # tags on the same arc are certain
10518 return 1
10519 }
10524 }
10525 }
10528 } else {
10531 }
10533 return 1
10534 }
10537 set nnh 1
10538 set ngrowanc 0
10542 incr nnh -1
10543 }
10549 incr ngrowanc
10550 }
10551 } else {
10558 incr nnh -1
10559 }
10561 incr ngrowanc -1
10562 }
10572 incr nnh -1
10573 }
10575 incr ngrowanc -1
10576 }
10578 }
10579 }
10580 }
10581 }
10582 }
10583 }
10587 } else {
10590 incr nnh
10591 }
10592 }
10593 }
10594 }
10595 foreach x [array names growanc] {
10597 return 0
10598 }
10599 return 0
10600 }
10601 return 1
10602 }
10604 proc validate_arctags {a} {
10605 global arctags idtags
10607 set i -1
10610 incr i
10613 incr i -1
10614 }
10615 }
10617 }
10619 proc validate_archeads {a} {
10620 global archeads idheads
10622 set i -1
10625 incr i
10628 incr i -1
10629 }
10630 }
10632 }
10634 # Return the list of IDs that have tags that are descendents of id,
10635 # ignoring IDs that are descendents of IDs already reported.
10636 proc desctags {id} {
10637 global arcnos arcstart arcids arctags idtags allparents
10638 global growing cached_dtags
10641 return {}
10642 }
10643 set t1 [clock clicks -milliseconds]
10646 # part-way along an arc; check that arc first
10651 set tid {}
10656 }
10659 }
10660 }
10664 }
10665 }
10668 }
10673 set nc 1
10679 incr nc -1
10680 }
10681 # ignore tags on starting node
10685 set ta 1
10688 set ta 1
10689 }
10690 }
10697 }
10698 }
10707 }
10710 }
10712 incr nc -1
10713 }
10715 }
10716 }
10717 }
10722 incr nc
10723 }
10724 }
10725 }
10726 }
10727 set tags {}
10728 foreach id [array names tagloc] {
10733 }
10734 }
10735 }
10736 }
10737 set t2 [clock clicks -milliseconds]
10740 # remove tags that are descendents of other tags
10748 incr j -1
10749 incr i -1
10752 incr i -1
10753 break
10754 }
10755 }
10756 }
10758 if {[array names growing] ne {}} {
10759 # graph isn't finished, need to check if any tag could get
10760 # eclipsed by another tag coming later. Simply ignore any
10761 # tags that could later get eclipsed.
10762 set ctags {}
10766 }
10767 }
10770 } else {
10772 }
10773 } else {
10775 }
10776 set t3 [clock clicks -milliseconds]
10780 }
10782 }
10784 proc anctags {id} {
10785 global arcnos arcids arcout arcend arctags idtags allparents
10786 global growing cached_atags
10789 return {}
10790 }
10791 set t1 [clock clicks -milliseconds]
10794 # part-way along an arc; check that arc first
10803 }
10804 }
10805 }
10807 return {}
10808 }
10812 }
10813 }
10816 }
10821 set taglist {}
10822 set nc 1
10828 incr nc -1
10829 }
10830 # ignore tags on starting node
10834 set td 1
10837 set td 1
10838 }
10839 }
10845 }
10846 }
10858 }
10859 }
10862 }
10864 incr nc -1
10865 }
10867 }
10868 }
10869 }
10874 incr nc
10875 }
10876 }
10877 }
10878 }
10879 set t2 [clock clicks -milliseconds]
10881 set tags {}
10882 foreach id [array names tagloc] {
10887 }
10888 }
10889 }
10890 }
10892 # remove tags that are ancestors of other tags
10900 incr j -1
10901 incr i -1
10904 incr i -1
10905 break
10906 }
10907 }
10908 }
10910 if {[array names growing] ne {}} {
10911 # graph isn't finished, need to check if any tag could get
10912 # eclipsed by another tag coming later. Simply ignore any
10913 # tags that could later get eclipsed.
10914 set ctags {}
10918 }
10919 }
10922 } else {
10924 }
10925 } else {
10927 }
10928 set t3 [clock clicks -milliseconds]
10932 }
10934 }
10936 # Return the list of IDs that have heads that are descendents of id,
10937 # including id itself if it has a head.
10938 proc descheads {id} {
10939 global arcnos arcstart arcids archeads idheads cached_dheads
10940 global allparents arcout
10943 return {}
10944 }
10945 set aret {}
10947 # part-way along an arc; check it first
10956 }
10957 }
10959 }
10963 set ret {}
10968 } else {
10971 }
10977 }
10978 }
10983 }
10984 }
10985 }
10986 }
10990 }
10992 proc addedtag {id} {
10993 global arcnos arcout cached_dtags cached_atags
10998 }
10999 catch {unset cached_dtags}
11000 catch {unset cached_atags}
11001 }
11003 proc addedhead {hid head} {
11004 global arcnos arcout cached_dheads
11009 }
11010 catch {unset cached_dheads}
11011 }
11013 proc removedhead {hid head} {
11014 global cached_dheads
11016 catch {unset cached_dheads}
11017 }
11019 proc movedhead {hid head} {
11020 global arcnos arcout cached_dheads
11025 }
11026 catch {unset cached_dheads}
11027 }
11029 proc changedrefs {} {
11030 global cached_dheads cached_dtags cached_atags cached_tagcontent
11031 global arctags archeads arcnos arcout idheads idtags
11033 foreach id [concat [array names idheads] [array names idtags]] {
11039 }
11040 }
11041 }
11042 catch {unset cached_tagcontent}
11043 catch {unset cached_dtags}
11044 catch {unset cached_atags}
11045 catch {unset cached_dheads}
11046 }
11048 proc rereadrefs {} {
11049 global idtags idheads idotherrefs mainheadid
11051 set refids [concat [array names idtags] \
11052 [array names idheads] [array names idotherrefs]]
11056 }
11057 }
11059 readrefs
11060 changedrefs
11062 [array names idheads] [array names idotherrefs]]]
11067 }
11068 }
11072 }
11073 run refill_reflist
11074 }
11076 proc listrefs {id} {
11077 global idtags idheads idotherrefs
11079 set x {}
11082 }
11083 set y {}
11086 }
11087 set z {}
11090 }
11092 }
11094 proc add_tag_ctext {tag} {
11095 global ctext cached_tagcontent tagids
11098 catch {
11100 }
11101 }
11105 } else {
11107 }
11109 }
11111 proc showtag {tag isnew} {
11112 global ctext cached_tagcontent tagids linknum tagobjid
11116 }
11118 clear_ctext
11119 settabs 0
11120 set linknum 0
11122 maybe_scroll_ctext 1
11124 init_flist {}
11125 }
11127 proc showtags {id isnew} {
11128 global idtags ctext linknum
11132 }
11134 clear_ctext
11135 settabs 0
11136 set linknum 0
11137 set sep {}
11141 set sep "\n\n"
11142 }
11143 maybe_scroll_ctext 1
11145 init_flist {}
11146 }
11148 proc doquit {} {
11149 global stopped
11150 global gitktmpdir
11152 set stopped 100
11153 savestuff .
11154 destroy .
11156 if {[info exists gitktmpdir]} {
11158 }
11159 }
11161 proc mkfontdisp {font top which} {
11170 }
11172 proc choosefont {font which} {
11173 global fontparam fontlist fonttop fontattr
11174 global prefstop NS
11182 set top .gitkfont
11185 font create sample
11192 set fontlist [lsort [font families]]
11203 -textvariable fontparam(size) \
11204 -validatecommand {string is integer -strict %s}
11206 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
11207 -variable fontparam(weight) -onvalue bold -offvalue normal
11209 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
11210 -variable fontparam(slant) -onvalue italic -offvalue roman
11214 -background white
11216 -fill black -tags text
11228 trace add variable fontparam write chg_fontparam
11229 } else {
11232 }
11237 }
11238 }
11240 proc centertext {w} {
11242 }
11244 proc fontok {} {
11245 global fontparam fontpref prefstop
11251 }
11254 }
11258 fontcan
11259 }
11261 proc fontcan {} {
11262 global fonttop fontparam
11264 if {[info exists fonttop]} {
11266 catch {font delete sample}
11267 unset fonttop
11268 unset fontparam
11269 }
11270 }
11272 if {[package vsatisfies [package provide Tk] 8.6]} {
11273 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
11274 # function to make use of it.
11275 proc choosefont {font which} {
11278 tk fontchooser show
11279 }
11280 proc on_choosefont {font which newfont} {
11281 global fontparam
11290 fontok
11291 }
11292 }
11294 proc selfontfam {} {
11295 global fonttop fontparam
11300 }
11301 }
11303 proc chg_fontparam {v sub op} {
11304 global fontparam
11307 }
11309 # Create a property sheet tab page
11310 proc create_prefs_page {w} {
11311 global NS
11315 } else {
11317 }
11318 }
11320 proc prefspage_general {notebook} {
11321 global NS maxwidth maxgraphpct showneartags showlocalchanges
11322 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11323 global hideremotes want_ttk have_ttk maxrefs
11333 #xgettext:no-tcl-format
11338 -variable showlocalchanges
11341 -variable autoselect
11345 -variable hideremotes
11354 -variable showneartags
11360 -variable limitdiffs
11363 -variable perfile_attrs
11377 -text [mc "Use themed widgets"]
11380 } else {
11382 }
11385 }
11387 proc prefspage_colors {notebook} {
11388 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11419 [mc "diff hunk header"] \
11425 [mc "marked line background"] \
11433 }
11435 proc prefspage_fonts {notebook} {
11436 global NS
11444 }
11446 proc doprefs {} {
11447 global maxwidth maxgraphpct use_ttk NS
11448 global oldprefs prefstop showneartags showlocalchanges
11449 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11450 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11451 global hideremotes want_ttk have_ttk
11453 set top .gitkprefs
11457 return
11458 }
11459 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11460 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11462 }
11469 } else {
11471 }
11476 set col 0
11480 } else {
11486 }
11487 }
11493 }
11510 }
11512 proc choose_extdiff {} {
11513 global extdifftool
11515 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11518 }
11519 }
11521 proc choosecolor {v vi w x cmd} {
11530 }
11532 proc setselbg {c} {
11533 global bglist cflist
11536 }
11540 }
11542 # This sets the background color and the color scheme for the whole UI.
11543 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11544 # if we don't specify one ourselves, which makes the checkbuttons and
11545 # radiobuttons look bad. This chooses white for selectColor if the
11546 # background color is light, or black if it is dark.
11547 proc setui {c} {
11548 if {[tk windowingsystem] eq "win32"} { return }
11550 set selc black
11552 set selc white
11553 }
11555 }
11557 proc setbg {c} {
11558 global bglist
11562 }
11563 }
11565 proc setfg {c} {
11566 global fglist canv
11570 }
11574 }
11576 proc prefscan {} {
11577 global oldprefs prefstop
11579 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11580 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11583 }
11585 unset prefstop
11586 fontcan
11587 }
11589 proc prefsok {} {
11590 global maxwidth maxgraphpct
11591 global oldprefs prefstop showneartags showlocalchanges
11592 global fontpref mainfont textfont uifont
11593 global limitdiffs treediffs perfile_attrs
11594 global hideremotes
11597 unset prefstop
11598 fontcan
11599 set fontchanged 0
11603 eval font configure mainfont [fontflags mainfont]
11604 eval font configure mainfontbold [fontflags mainfont 1]
11605 setcoords
11606 set fontchanged 1
11607 }
11611 eval font configure textfont [fontflags textfont]
11612 eval font configure textfontbold [fontflags textfont 1]
11613 }
11617 eval font configure uifont [fontflags uifont]
11618 }
11619 settabs
11622 doshowlocalchanges
11623 } else {
11624 dohidelocalchanges
11625 }
11626 }
11629 # treediffs elements are limited by path;
11630 # won't have encodings cached if perfile_attrs was just turned on
11631 catch {unset treediffs}
11632 }
11635 redisplay
11638 reselectline
11639 }
11641 rereadrefs
11642 }
11643 }
11645 proc formatdate {d} {
11646 global datetimeformat
11649 # timezone of the argument. Otherwise, display in local time.
11651 if {[catch {set d [clock format [lindex $d 0] -timezone [lindex $d 1] -format $datetimeformat]}]} {
11652 # Tcl < 8.5 does not support -timezone. Emulate it by
11653 # setting TZ (e.g. TZ=<-0430>+04:30).
11654 global env
11655 if {[info exists env(TZ)]} {
11657 }
11662 if {[info exists savedTZ]} {
11664 } else {
11665 unset env(TZ)
11666 }
11667 }
11668 } else {
11670 }
11671 }
11673 }
11675 # This list of encoding names and aliases is distilled from
11676 # http://www.iana.org/assignments/character-sets.
11677 # Not all of them are supported by Tcl.
11678 set encoding_aliases {
11679 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11680 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11681 { ISO-10646-UTF-1 csISO10646UTF1 }
11682 { ISO_646.basic:1983 ref csISO646basic1983 }
11683 { INVARIANT csINVARIANT }
11684 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11685 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11686 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11687 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11688 { NATS-DANO iso-ir-9-1 csNATSDANO }
11689 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11690 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11691 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11692 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11693 { ISO-2022-KR csISO2022KR }
11694 { EUC-KR csEUCKR }
11695 { ISO-2022-JP csISO2022JP }
11696 { ISO-2022-JP-2 csISO2022JP2 }
11697 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11698 csISO13JISC6220jp }
11699 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11700 { IT iso-ir-15 ISO646-IT csISO15Italian }
11701 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11702 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11703 { greek7-old iso-ir-18 csISO18Greek7Old }
11704 { latin-greek iso-ir-19 csISO19LatinGreek }
11705 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11706 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11707 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11708 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11709 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11710 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11711 { INIS iso-ir-49 csISO49INIS }
11712 { INIS-8 iso-ir-50 csISO50INIS8 }
11713 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11714 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11715 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11716 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11717 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11718 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11719 csISO60Norwegian1 }
11720 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11721 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11722 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11723 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11724 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11725 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11726 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11727 { greek7 iso-ir-88 csISO88Greek7 }
11728 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11729 { iso-ir-90 csISO90 }
11730 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11731 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11732 csISO92JISC62991984b }
11733 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11734 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11735 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11736 csISO95JIS62291984handadd }
11737 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11738 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11739 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11740 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11741 CP819 csISOLatin1 }
11742 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11743 { T.61-7bit iso-ir-102 csISO102T617bit }
11744 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11745 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11746 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11747 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11748 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11749 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11750 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11751 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11752 arabic csISOLatinArabic }
11753 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11754 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11755 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11756 greek greek8 csISOLatinGreek }
11757 { T.101-G2 iso-ir-128 csISO128T101G2 }
11758 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11759 csISOLatinHebrew }
11760 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11761 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11762 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11763 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11764 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11765 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11766 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11767 csISOLatinCyrillic }
11768 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11769 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11770 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11771 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11772 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11773 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11774 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11775 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11776 { ISO_10367-box iso-ir-155 csISO10367Box }
11777 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11778 { latin-lap lap iso-ir-158 csISO158Lap }
11779 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11780 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11781 { us-dk csUSDK }
11782 { dk-us csDKUS }
11783 { JIS_X0201 X0201 csHalfWidthKatakana }
11784 { KSC5636 ISO646-KR csKSC5636 }
11785 { ISO-10646-UCS-2 csUnicode }
11786 { ISO-10646-UCS-4 csUCS4 }
11787 { DEC-MCS dec csDECMCS }
11788 { hp-roman8 roman8 r8 csHPRoman8 }
11789 { macintosh mac csMacintosh }
11790 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11791 csIBM037 }
11792 { IBM038 EBCDIC-INT cp038 csIBM038 }
11793 { IBM273 CP273 csIBM273 }
11794 { IBM274 EBCDIC-BE CP274 csIBM274 }
11795 { IBM275 EBCDIC-BR cp275 csIBM275 }
11796 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11797 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11798 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11799 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11800 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11801 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11802 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11803 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11804 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11805 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11806 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11807 { IBM437 cp437 437 csPC8CodePage437 }
11808 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11809 { IBM775 cp775 csPC775Baltic }
11810 { IBM850 cp850 850 csPC850Multilingual }
11811 { IBM851 cp851 851 csIBM851 }
11812 { IBM852 cp852 852 csPCp852 }
11813 { IBM855 cp855 855 csIBM855 }
11814 { IBM857 cp857 857 csIBM857 }
11815 { IBM860 cp860 860 csIBM860 }
11816 { IBM861 cp861 861 cp-is csIBM861 }
11817 { IBM862 cp862 862 csPC862LatinHebrew }
11818 { IBM863 cp863 863 csIBM863 }
11819 { IBM864 cp864 csIBM864 }
11820 { IBM865 cp865 865 csIBM865 }
11821 { IBM866 cp866 866 csIBM866 }
11822 { IBM868 CP868 cp-ar csIBM868 }
11823 { IBM869 cp869 869 cp-gr csIBM869 }
11824 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11825 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11826 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11827 { IBM891 cp891 csIBM891 }
11828 { IBM903 cp903 csIBM903 }
11829 { IBM904 cp904 904 csIBBM904 }
11830 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11831 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11832 { IBM1026 CP1026 csIBM1026 }
11833 { EBCDIC-AT-DE csIBMEBCDICATDE }
11834 { EBCDIC-AT-DE-A csEBCDICATDEA }
11835 { EBCDIC-CA-FR csEBCDICCAFR }
11836 { EBCDIC-DK-NO csEBCDICDKNO }
11837 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11838 { EBCDIC-FI-SE csEBCDICFISE }
11839 { EBCDIC-FI-SE-A csEBCDICFISEA }
11840 { EBCDIC-FR csEBCDICFR }
11841 { EBCDIC-IT csEBCDICIT }
11842 { EBCDIC-PT csEBCDICPT }
11843 { EBCDIC-ES csEBCDICES }
11844 { EBCDIC-ES-A csEBCDICESA }
11845 { EBCDIC-ES-S csEBCDICESS }
11846 { EBCDIC-UK csEBCDICUK }
11847 { EBCDIC-US csEBCDICUS }
11848 { UNKNOWN-8BIT csUnknown8BiT }
11849 { MNEMONIC csMnemonic }
11850 { MNEM csMnem }
11851 { VISCII csVISCII }
11852 { VIQR csVIQR }
11853 { KOI8-R csKOI8R }
11854 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11855 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11856 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11857 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11858 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11859 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11860 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11861 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11862 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11863 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11864 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11865 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11866 { IBM1047 IBM-1047 }
11867 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11868 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11869 { UNICODE-1-1 csUnicode11 }
11870 { CESU-8 csCESU-8 }
11871 { BOCU-1 csBOCU-1 }
11872 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11873 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11874 l8 }
11875 { ISO-8859-15 ISO_8859-15 Latin-9 }
11876 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11877 { GBK CP936 MS936 windows-936 }
11878 { JIS_Encoding csJISEncoding }
11879 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11880 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11881 EUC-JP }
11882 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11883 { ISO-10646-UCS-Basic csUnicodeASCII }
11884 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11885 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11886 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11887 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11888 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11889 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11890 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11891 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11892 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11893 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11894 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11895 { Ventura-US csVenturaUS }
11896 { Ventura-International csVenturaInternational }
11897 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11898 { PC8-Turkish csPC8Turkish }
11899 { IBM-Symbols csIBMSymbols }
11900 { IBM-Thai csIBMThai }
11901 { HP-Legal csHPLegal }
11902 { HP-Pi-font csHPPiFont }
11903 { HP-Math8 csHPMath8 }
11904 { Adobe-Symbol-Encoding csHPPSMath }
11905 { HP-DeskTop csHPDesktop }
11906 { Ventura-Math csVenturaMath }
11907 { Microsoft-Publishing csMicrosoftPublishing }
11908 { Windows-31J csWindows31J }
11909 { GB2312 csGB2312 }
11910 { Big5 csBig5 }
11911 }
11913 proc tcl_encoding {enc} {
11914 global encoding_aliases tcl_encoding_cache
11917 }
11918 set names [encoding names]
11923 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11926 }
11927 }
11932 # look through the aliases for one that tcl knows about
11938 }
11939 }
11941 }
11942 break
11943 }
11944 }
11945 set tclenc {}
11948 }
11951 }
11953 proc gitattr {path attr default} {
11954 global path_attr_cache
11957 } else {
11958 set r "unspecified"
11961 }
11963 }
11966 }
11968 }
11970 proc cache_gitattr {attr pathlist} {
11971 global path_attr_cache
11972 set newlist {}
11976 }
11977 }
11978 set lim 1000
11979 if {[tk windowingsystem] == "win32"} {
11980 # windows has a 32k limit on the arguments to a command...
11981 set lim 30
11982 }
11991 }
11993 }
11994 }
11995 }
11996 }
11997 }
11999 proc get_path_encoding {path} {
12000 global gui_encoding perfile_attrs
12006 }
12007 }
12009 }
12011 # First check that Tcl/Tk is recent enough
12012 if {[catch {package require Tk 8.4} err]} {
12013 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
12014 Gitk requires at least Tcl/Tk 8.4." list
12015 exit 1
12016 }
12018 # on OSX bring the current Wish process window to front
12019 if {[tk windowingsystem] eq "aqua"} {
12020 exec osascript -e [format {
12021 tell application "System Events"
12022 set frontmost of processes whose unix id is %d to true
12023 end tell
12024 } [pid] ]
12025 }
12027 # Unset GIT_TRACE var if set
12028 if { [info exists ::env(GIT_TRACE)] } {
12029 unset ::env(GIT_TRACE)
12030 }
12032 # defaults...
12033 set wrcomcmd "git diff-tree --stdin -p --pretty=email"
12035 set gitencoding {}
12036 catch {
12037 set gitencoding [exec git config --get i18n.commitencoding]
12038 }
12039 catch {
12040 set gitencoding [exec git config --get i18n.logoutputencoding]
12041 }
12043 set gitencoding "utf-8"
12044 }
12048 }
12050 set gui_encoding [encoding system]
12051 catch {
12052 set enc [exec git config --get gui.encoding]
12057 } else {
12059 }
12060 }
12061 }
12063 set log_showroot true
12064 catch {
12065 set log_showroot [exec git config --bool --get log.showroot]
12066 }
12068 if {[tk windowingsystem] eq "aqua"} {
12069 set mainfont {{Lucida Grande} 9}
12070 set textfont {Monaco 9}
12071 set uifont {{Lucida Grande} 9 bold}
12073 # fontconfig!
12074 set mainfont {sans 9}
12075 set textfont {monospace 9}
12076 set uifont {sans 9 bold}
12077 } else {
12078 set mainfont {Helvetica 9}
12079 set textfont {Courier 9}
12080 set uifont {Helvetica 9 bold}
12081 }
12082 set tabstop 8
12083 set findmergefiles 0
12084 set maxgraphpct 50
12085 set maxwidth 16
12086 set revlistorder 0
12087 set fastdate 0
12088 set uparrowlen 5
12089 set downarrowlen 5
12090 set mingaplen 100
12091 set cmitmode "patch"
12092 set wrapcomment "none"
12093 set showneartags 1
12094 set hideremotes 0
12095 set maxrefs 20
12096 set visiblerefs {"master"}
12097 set maxlinelen 200
12098 set showlocalchanges 1
12099 set limitdiffs 1
12100 set datetimeformat "%Y-%m-%d %H:%M:%S"
12101 set autoselect 1
12102 set autosellen 40
12103 set perfile_attrs 0
12104 set want_ttk 1
12106 if {[tk windowingsystem] eq "aqua"} {
12107 set extdifftool "opendiff"
12108 } else {
12109 set extdifftool "meld"
12110 }
12112 set colors {green red blue magenta darkgrey brown orange}
12113 if {[tk windowingsystem] eq "win32"} {
12114 set uicolor SystemButtonFace
12115 set uifgcolor SystemButtonText
12116 set uifgdisabledcolor SystemDisabledText
12117 set bgcolor SystemWindow
12118 set fgcolor SystemWindowText
12119 set selectbgcolor SystemHighlight
12120 } else {
12121 set uicolor grey85
12122 set uifgcolor black
12123 set uifgdisabledcolor "#999"
12124 set bgcolor white
12125 set fgcolor black
12126 set selectbgcolor gray85
12127 }
12128 set diffcolors {red "#00a000" blue}
12129 set diffcontext 3
12130 set mergecolors {red blue green purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
12131 set ignorespace 0
12132 set worddiff ""
12133 set markbgcolor "#e0e0ff"
12135 set headbgcolor green
12136 set headfgcolor black
12137 set headoutlinecolor black
12138 set remotebgcolor #ffddaa
12139 set tagbgcolor yellow
12140 set tagfgcolor black
12141 set tagoutlinecolor black
12142 set reflinecolor black
12143 set filesepbgcolor #aaaaaa
12144 set filesepfgcolor black
12145 set linehoverbgcolor #ffff80
12146 set linehoverfgcolor black
12147 set linehoveroutlinecolor black
12148 set mainheadcirclecolor yellow
12149 set workingfilescirclecolor red
12150 set indexcirclecolor green
12151 set circlecolors {white blue gray blue blue}
12152 set linkfgcolor blue
12154 set foundbgcolor yellow
12155 set currentsearchhitbgcolor orange
12157 # button for popping up context menus
12158 if {[tk windowingsystem] eq "aqua"} {
12159 set ctxbut <Button-2>
12160 } else {
12161 set ctxbut <Button-3>
12162 }
12164 ## For msgcat loading, first locate the installation location.
12165 if { [info exists ::env(GITK_MSGSDIR)] } {
12166 ## Msgsdir was manually set in the environment.
12167 set gitk_msgsdir $::env(GITK_MSGSDIR)
12168 } else {
12169 ## Let's guess the prefix from argv0.
12173 unset gitk_prefix
12174 }
12176 ## Internationalization (i18n) through msgcat and gettext. See
12177 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
12178 package require msgcat
12179 namespace import ::msgcat::mc
12180 ## And eventually load the actual message catalog
12183 catch {
12184 # follow the XDG base directory specification by default. See
12185 # http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html
12187 # XDG_CONFIG_HOME environment variable is set
12190 } else {
12191 # default XDG_CONFIG_HOME
12192 set config_file "~/.config/git/gitk"
12193 set config_file_tmp "~/.config/git/gitk-tmp"
12194 }
12196 # for backward compatibility use the old config file if it exists
12197 if {[file exists "~/.gitk"]} {
12198 set config_file "~/.gitk"
12199 set config_file_tmp "~/.gitk-tmp"
12202 }
12203 }
12205 }
12206 config_check_tmp_exists 50
12208 set config_variables {
12209 mainfont textfont uifont tabstop findmergefiles maxgraphpct maxwidth
12210 cmitmode wrapcomment autoselect autosellen showneartags maxrefs visiblerefs
12211 hideremotes showlocalchanges datetimeformat limitdiffs uicolor want_ttk
12212 bgcolor fgcolor uifgcolor uifgdisabledcolor colors diffcolors mergecolors
12213 markbgcolor diffcontext selectbgcolor foundbgcolor currentsearchhitbgcolor
12214 extdifftool perfile_attrs headbgcolor headfgcolor headoutlinecolor
12215 remotebgcolor tagbgcolor tagfgcolor tagoutlinecolor reflinecolor
12216 filesepbgcolor filesepfgcolor linehoverbgcolor linehoverfgcolor
12217 linehoveroutlinecolor mainheadcirclecolor workingfilescirclecolor
12218 indexcirclecolor circlecolors linkfgcolor circleoutlinecolor
12219 }
12223 }
12226 eval font create mainfont [fontflags mainfont]
12227 eval font create mainfontbold [fontflags mainfont 1]
12230 eval font create textfont [fontflags textfont]
12231 eval font create textfontbold [fontflags textfont 1]
12234 eval font create uifont [fontflags uifont]
12238 setoptions
12240 # check that we can find a .git directory somewhere...
12241 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
12242 show_error {} . [mc "Cannot find a git repository here."]
12243 exit 1
12244 }
12246 set selecthead {}
12247 set selectheadid {}
12249 set revtreeargs {}
12250 set cmdline_files {}
12251 set i 0
12252 set revtreeargscmd {}
12255 "" { }
12256 "--" {
12258 break
12259 }
12260 "--select-commit=*" {
12262 }
12263 "--argscmd=*" {
12265 }
12266 default {
12268 }
12269 }
12270 incr i
12271 }
12274 set selecthead {}
12275 }
12278 # no -- on command line, but some arguments (other than --argscmd)
12279 if {[catch {
12284 # Unfortunately git rev-parse doesn't produce an error when
12285 # something is both a revision and a filename. To be consistent
12286 # with git log and git rev-list, check revtreeargs for filenames.
12289 show_error {} . [mc "Ambiguous argument '%s': both revision\
12291 exit 1
12292 }
12293 }
12294 } err]} {
12296 # so look for "fatal:".
12300 }
12302 exit 1
12303 }
12304 }
12306 set nullid "0000000000000000000000000000000000000000"
12307 set nullid2 "0000000000000000000000000000000000000001"
12308 set nullfile "/dev/null"
12311 if {![info exists have_ttk]} {
12312 set have_ttk [llength [info commands ::ttk::style]]
12313 }
12317 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
12319 set show_notes {}
12321 set show_notes "--show-notes"
12322 }
12324 set appname "gitk"
12326 set runq {}
12327 set history {}
12328 set historyindex 0
12329 set fh_serial 0
12330 set nhl_names {}
12331 set highlight_paths {}
12332 set findpattern {}
12333 set searchdirn -forwards
12334 set boldids {}
12335 set boldnameids {}
12336 set diffelide {0 0}
12337 set markingmatches 0
12338 set linkentercount 0
12339 set need_redisplay 0
12340 set nrows_drawn 0
12341 set firsttabstop 0
12343 set nextviewnum 1
12344 set curview 0
12345 set selectedview 0
12346 set selectedhlview [mc "None"]
12347 set highlight_related [mc "None"]
12348 set highlight_files {}
12349 set viewfiles(0) {}
12350 set viewperm(0) 0
12351 set viewchanged(0) 0
12352 set viewargs(0) {}
12353 set viewargscmd(0) {}
12355 set selectedline {}
12356 set numcommits 0
12357 set loginstance 0
12358 set cmdlineok 0
12359 set stopped 0
12360 set stuffsaved 0
12361 set patchnum 0
12362 set lserial 0
12363 set hasworktree [hasworktree]
12364 set cdup {}
12365 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
12366 set cdup [exec git rev-parse --show-cdup]
12367 }
12368 set worktree [exec git rev-parse --show-toplevel]
12369 setcoords
12370 makewindow
12371 catch {
12372 image create photo gitlogo -width 16 -height 16
12374 image create photo gitlogominus -width 4 -height 2
12375 gitlogominus put #C00000 -to 0 0 4 2
12376 gitlogo copy gitlogominus -to 1 5
12377 gitlogo copy gitlogominus -to 6 5
12378 gitlogo copy gitlogominus -to 11 5
12379 image delete gitlogominus
12381 image create photo gitlogoplus -width 4 -height 4
12382 gitlogoplus put #008000 -to 1 0 3 4
12383 gitlogoplus put #008000 -to 0 1 4 3
12384 gitlogo copy gitlogoplus -to 1 9
12385 gitlogo copy gitlogoplus -to 6 9
12386 gitlogo copy gitlogoplus -to 11 9
12387 image delete gitlogoplus
12389 image create photo gitlogo32 -width 32 -height 32
12390 gitlogo32 copy gitlogo -zoom 2 2
12392 wm iconphoto . -default gitlogo gitlogo32
12393 }
12394 # wait for the window to become visible
12395 tkwait visibility .
12397 update
12398 readrefs
12401 # create a view for the files/dirs specified on the command line
12402 set curview 1
12403 set selectedview 1
12404 set nextviewnum 2
12405 set viewname(1) [mc "Command line"]
12409 set viewperm(1) 0
12410 set viewchanged(1) 0
12411 set vdatemode(1) 0
12412 addviewmenu 1
12413 .bar.view entryconf [mca "Edit view..."] -state normal
12414 .bar.view entryconf [mca "Delete view"] -state normal
12415 }
12417 if {[info exists permviews]} {
12420 incr nextviewnum
12428 }
12429 }
12431 if {[tk windowingsystem] eq "win32"} {
12432 focus -force .
12433 }
12435 getcommits {}
12437 # Local variables:
12438 # mode: tcl
12439 # indent-tabs-mode: t
12440 # tab-width: 8
12441 # End: