| blob | 26a7db4c8c27415738ce9ced7754563cf3f2d28c |
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_init_trace {name} {
2787 global config_variable_changed config_variable_original
2792 }
2794 proc config_variable_change_cb {name name2 op} {
2795 global config_variable_changed config_variable_original
2802 }
2803 }
2805 proc savestuff {w} {
2806 global stuffsaved
2807 global config_file config_file_tmp
2808 global config_variables config_variable_changed
2809 global viewchanged
2811 upvar #0 viewname current_viewname
2812 upvar #0 viewfiles current_viewfiles
2813 upvar #0 viewargs current_viewargs
2814 upvar #0 viewargscmd current_viewargscmd
2815 upvar #0 viewperm current_viewperm
2816 upvar #0 nextviewnum current_nextviewnum
2817 upvar #0 use_ttk current_use_ttk
2820 if {![winfo viewable .]} return
2821 if {[catch {
2824 }
2826 if {$::tcl_platform(platform) eq {windows}} {
2828 }
2831 }
2837 } else {
2839 }
2840 }
2849 } else {
2852 }
2856 array set view_save {}
2857 array set views {}
2858 if {![info exists permviews]} { set permviews {} }
2862 }
2867 set views($current_viewname($v)) [list $current_viewname($v) $current_viewfiles($v) $current_viewargs($v) $current_viewargscmd($v)]
2868 } else {
2870 }
2871 }
2872 }
2873 # write old and updated view to their places and append remaining to the end
2878 }
2880 }
2881 foreach view_name [array names views] {
2883 }
2887 } err]} {
2889 }
2890 set stuffsaved 1
2891 }
2893 proc resizeclistpanes {win w} {
2894 global oldwidth use_ttk
2899 } else {
2902 }
2906 } else {
2911 set sash0 30
2912 }
2915 }
2920 }
2921 }
2922 }
2926 } else {
2929 }
2930 }
2932 }
2934 proc resizecdetpanes {win w} {
2935 global oldwidth use_ttk
2939 } else {
2941 }
2944 } else {
2948 set sash0 45
2949 }
2952 }
2953 }
2956 } else {
2958 }
2959 }
2961 }
2963 proc allcanvs args {
2964 global canv canv2 canv3
2968 }
2970 proc bindall {event action} {
2971 global canv canv2 canv3
2975 }
2977 proc about {} {
2978 global uifont NS
2979 set w .about
2982 return
2983 }
2988 Gitk - a commit viewer for git
2990 Copyright \u00a9 2005-2014 Paul Mackerras
2992 Use and redistribute under the terms of the GNU General Public License"] \
2993 -justify center -aspect 400 -border 2 -bg white -relief groove
3001 }
3003 proc keys {} {
3004 global NS
3005 set w .keys
3008 return
3009 }
3010 if {[tk windowingsystem] eq {aqua}} {
3011 set M1T Cmd
3012 } else {
3013 set M1T Ctrl
3014 }
3019 [mc "Gitk key bindings:"]
3023 [mc "<Home> Move to first commit"]
3024 [mc "<End> Move to last commit"]
3025 [mc "<Up>, p, k Move up one commit"]
3026 [mc "<Down>, n, j Move down one commit"]
3027 [mc "<Left>, z, h Go back in history list"]
3028 [mc "<Right>, x, l Go forward in history list"]
3030 [mc "<PageUp> Move up one page in commit list"]
3031 [mc "<PageDown> Move down one page in commit list"]
3038 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
3039 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
3040 [mc "<Delete>, b Scroll diff view up one page"]
3041 [mc "<Backspace> Scroll diff view up one page"]
3042 [mc "<Space> Scroll diff view down one page"]
3043 [mc "u Scroll diff view up 18 lines"]
3044 [mc "d Scroll diff view down 18 lines"]
3047 [mc "<Return> Move to next find hit"]
3048 [mc "/ Focus the search box"]
3049 [mc "? Move to previous find hit"]
3050 [mc "f Scroll diff view to next file"]
3057 [mc "<F5> Update"]
3058 " \
3059 -justify left -bg white -border 2 -relief groove
3067 }
3069 # Procedures for manipulating the file list window at the
3070 # bottom right of the overall window.
3072 proc treeview {w l openlevs} {
3073 global treecontents treediropen treeheight treeparent treeindex
3075 set ix 0
3076 set treeindex() 0
3077 set lev 0
3078 set prefix {}
3079 set prefixend -1
3080 set prefendstack {}
3081 set htstack {}
3082 set ht 0
3083 set treecontents() {}
3090 }
3097 incr lev -1
3098 }
3102 set ht 0
3114 set ht 1
3119 set str "\n"
3127 }
3128 incr lev
3129 }
3132 incr ht
3133 set str "\n"
3137 }
3139 }
3140 }
3148 }
3150 }
3152 proc linetoelt {l} {
3153 global treeheight treecontents
3155 set y 2
3156 set prefix {}
3157 while {1} {
3161 }
3162 set n 1
3167 incr y
3168 break
3169 }
3170 }
3172 }
3173 }
3174 }
3176 proc highlight_tree {y prefix} {
3177 global treeheight treecontents cflist
3183 }
3184 incr y
3187 }
3188 }
3190 }
3192 proc treeclosedir {w dir} {
3193 global treediropen treeheight treeparent treeindex
3205 }
3206 }
3208 proc treeopendir {w dir} {
3209 global treediropen treeheight treeparent treecontents treeindex
3216 set lev 0
3217 set str "\n"
3220 incr lev
3221 append str "\t"
3223 }
3238 } else {
3241 }
3242 }
3255 }
3257 }
3258 }
3260 proc treeclick {w x y} {
3261 global treediropen cmitmode ctext cflist cflist_top
3264 if {![info exists cflist_top]} return
3271 return
3272 }
3278 } else {
3280 }
3281 }
3283 proc setfilelist {id} {
3284 global treefilelist cflist jump_to_here
3291 }
3292 }
3293 }
3295 image create bitmap tri-rt -background black -foreground blue -data {
3296 #define tri-rt_width 13
3297 #define tri-rt_height 13
3298 static unsigned char tri-rt_bits[] = {
3299 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3300 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3301 0x00, 0x00};
3302 } -maskdata {
3303 #define tri-rt-mask_width 13
3304 #define tri-rt-mask_height 13
3305 static unsigned char tri-rt-mask_bits[] = {
3306 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3307 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3308 0x08, 0x00};
3309 }
3310 image create bitmap tri-dn -background black -foreground blue -data {
3311 #define tri-dn_width 13
3312 #define tri-dn_height 13
3313 static unsigned char tri-dn_bits[] = {
3314 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3315 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3316 0x00, 0x00};
3317 } -maskdata {
3318 #define tri-dn-mask_width 13
3319 #define tri-dn-mask_height 13
3320 static unsigned char tri-dn-mask_bits[] = {
3321 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3322 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3323 0x00, 0x00};
3324 }
3326 image create bitmap reficon-T -background black -foreground yellow -data {
3327 #define tagicon_width 13
3328 #define tagicon_height 9
3329 static unsigned char tagicon_bits[] = {
3330 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3331 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3332 } -maskdata {
3333 #define tagicon-mask_width 13
3334 #define tagicon-mask_height 9
3335 static unsigned char tagicon-mask_bits[] = {
3336 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3337 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3338 }
3339 set rectdata {
3340 #define headicon_width 13
3341 #define headicon_height 9
3342 static unsigned char headicon_bits[] = {
3343 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3344 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3345 }
3346 set rectmask {
3347 #define headicon-mask_width 13
3348 #define headicon-mask_height 9
3349 static unsigned char headicon-mask_bits[] = {
3350 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3351 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3352 }
3353 image create bitmap reficon-H -background black -foreground green \
3355 image create bitmap reficon-o -background black -foreground "#ddddff" \
3358 proc init_flist {first} {
3359 global cflist cflist_top difffilestart
3365 set cflist_top 1
3367 } else {
3368 catch {unset cflist_top}
3369 }
3371 set difffilestart {}
3372 }
3374 proc highlight_tag {f} {
3375 global highlight_paths
3379 return "bold"
3380 }
3381 }
3382 return {}
3383 }
3385 proc highlight_filelist {} {
3386 global cmitmode cflist
3395 }
3396 }
3397 } else {
3398 highlight_tree 2 {}
3399 }
3401 }
3403 proc unhighlight_filelist {} {
3404 global cflist
3409 }
3411 proc add_flist {fl} {
3412 global cflist
3418 }
3420 }
3422 proc sel_flist {w x y} {
3423 global ctext difffilestart cflist cflist_top cmitmode
3426 if {![info exists cflist_top]} return
3433 } else {
3435 }
3436 suppress_highlighting_file_for_current_scrollpos
3437 }
3439 proc pop_flist_menu {w X Y x y} {
3440 global ctext cflist cmitmode flist_menu flist_menu_file
3441 global treediffs diffids
3443 stopfinding
3449 } else {
3451 }
3453 set xdiffstate "normal"
3455 set xdiffstate "disabled"
3456 }
3457 # Disable "External diff" item in tree mode
3460 }
3462 proc find_ctext_fileinfo {line} {
3463 global ctext_file_names ctext_file_lines
3469 return {}
3470 } else {
3472 }
3473 }
3475 proc pop_diff_menu {w X Y x y} {
3476 global ctext diff_menu flist_menu_file
3477 global diff_menu_txtpos diff_menu_line
3478 global diff_menu_filebase
3482 # don't pop up the menu on hunk-separator or file-separator lines
3484 return
3485 }
3486 stopfinding
3492 }
3494 proc flist_hl {only} {
3495 global flist_menu_file findstring gdttype
3500 } else {
3502 }
3503 set gdttype [mc "touching paths:"]
3504 }
3506 proc gitknewtmpdir {} {
3507 global diffnum gitktmpdir gitdir env
3509 if {![info exists gitktmpdir]} {
3510 if {[info exists env(GITK_TMPDIR)]} {
3512 } elseif {[info exists env(TMPDIR)]} {
3514 } else {
3516 }
3520 }
3523 unset gitktmpdir
3524 return {}
3525 }
3526 set diffnum 0
3527 }
3528 incr diffnum
3532 return {}
3533 }
3535 }
3537 proc save_file_from_commit {filename output what} {
3538 global nullfile
3543 }
3545 return {}
3546 }
3548 }
3550 proc external_diff_get_one_file {diffid filename diffdir} {
3551 global nullid nullid2 nullfile
3552 global worktree
3558 }
3560 }
3564 }
3568 }
3570 proc external_diff {} {
3571 global nullid nullid2
3572 global flist_menu_file
3573 global diffids
3574 global extdifftool
3577 # no reference commit given
3580 # diffing working copy with index
3583 # diffing index with HEAD
3584 set diffidfrom "HEAD"
3585 } else {
3586 # use first parent commit
3587 global parentlist selectedline
3589 }
3590 } else {
3593 }
3595 # make sure that several diffs wont collide
3596 set diffdir [gitknewtmpdir]
3599 # gather files to diff
3608 } else {
3611 }
3612 }
3613 }
3615 proc find_hunk_blamespec {base line} {
3616 global ctext
3618 # Find and parse the hunk header
3624 s_line old_specs osz osz1 new_line nsz]} {
3625 return
3626 }
3628 # base lines for the parents
3632 old_spec old_line osz]} {
3633 return
3634 }
3636 }
3638 # Now scan the lines to determine offset within the hunk
3640 set dline 0
3643 # Determine if the line is removed
3647 # Choose a parent index
3650 } else {
3654 } else {
3655 # blame the current commit
3656 set parent -1
3657 }
3658 }
3659 # then count other lines that belong to it
3662 # Determine if the line is removed
3667 incr dline
3668 }
3669 } else {
3671 incr dline
3672 }
3673 }
3674 }
3675 incr parent
3676 } else {
3677 set parent 0
3678 }
3682 }
3684 proc external_blame_diff {} {
3685 global currentid cmitmode
3686 global diff_menu_txtpos diff_menu_line
3687 global diff_menu_filebase flist_menu_file
3690 set parent_idx 0
3692 } else {
3697 } else {
3698 set parent_idx 0
3699 set line 0
3700 }
3701 }
3704 }
3707 # at stage 0 or 2
3708 proc index_sha1 {fname} {
3716 }
3717 }
3719 return {}
3720 }
3722 # Turn an absolute path into one relative to the current directory
3723 proc make_relative {f} {
3726 }
3728 set here [file split [pwd]]
3729 set ei 0
3730 set hi 0
3731 set res {}
3734 lappend res ".."
3735 } else {
3736 incr ei
3737 }
3738 incr hi
3739 }
3742 }
3744 proc external_blame {parent_idx {line {}}} {
3745 global flist_menu_file cdup
3746 global nullid nullid2
3747 global parentlist selectedline currentid
3751 } else {
3753 }
3756 error_popup [mc "No such commit"]
3757 return
3758 }
3760 set cmdline [list git gui blame]
3763 }
3765 # Unfortunately it seems git gui blame doesn't like
3766 # being given an absolute path...
3771 }
3772 }
3774 proc show_line_source {} {
3775 global cmitmode currentid parents curview blamestuff blameinst
3776 global diff_menu_line diff_menu_filebase flist_menu_file
3777 global nullid nullid2 gitdir cdup
3779 set from_index {}
3783 } else {
3789 return
3790 }
3791 incr pi -1
3794 # must be a merge in progress...
3795 if {[catch {
3796 # get the last line from .git/MERGE_HEAD
3800 } err]} {
3802 return
3803 }
3805 # need to do the blame from the index
3806 if {[catch {
3808 } err]} {
3810 return
3811 }
3812 } else {
3814 }
3815 } else {
3817 }
3819 }
3820 set blameargs {}
3823 }
3826 lappend blameargs --contents -
3827 } else {
3829 }
3831 if {[catch {
3833 } err]} {
3835 return
3836 }
3837 nowbusy blaming [mc "Searching"]
3843 }
3845 proc stopblaming {} {
3846 global blameinst
3848 if {[info exists blameinst]} {
3850 unset blameinst
3851 notbusy blaming
3852 }
3853 }
3855 proc read_line_source {fd inst} {
3856 global blamestuff curview commfd blameinst nullid nullid2
3860 }
3862 return 1
3863 }
3865 unset blameinst
3866 notbusy blaming
3870 return 0
3871 }
3873 set fname {}
3879 # look for "filename" line
3883 break
3884 }
3885 }
3886 }
3888 # all looks good, select it
3890 # blame uses all-zeroes to mean not committed,
3891 # which would mean a change in the index
3893 }
3896 } else {
3897 error_popup [mc "That line comes from commit %s, \
3899 }
3900 } else {
3901 puts "oops couldn't parse git blame output"
3902 }
3903 return 0
3904 }
3907 proc delete_at_eof {f dir} {
3912 }
3914 return 0
3915 }
3916 return 1
3917 }
3919 # Functions for adding and removing shell-type quoting
3921 proc shellquote {str} {
3924 }
3927 }
3930 }
3932 }
3934 proc shellarglist {l} {
3935 set str {}
3938 append str " "
3939 }
3941 }
3943 }
3945 proc shelldequote {str} {
3946 set ret {}
3947 set used -1
3948 while {1} {
3949 incr used
3953 break
3954 }
3960 }
3962 incr used
3966 error "unmatched single-quote"
3967 }
3970 continue
3971 }
3974 error "trailing backslash"
3975 }
3977 continue
3978 }
3979 # here ch == "\""
3980 while {1} {
3982 error "unmatched double-quote"
3983 }
3989 }
3991 incr used
3993 incr used
3994 }
3995 }
3997 }
3999 proc shellsplit {str} {
4000 set l {}
4001 while {1} {
4009 }
4011 }
4013 # Code to implement multiple views
4015 proc newview {ishighlight} {
4016 global nextviewnum newviewname newishighlight
4017 global revtreeargs viewargscmd newviewopts curview
4020 set top .gitkview
4023 return
4024 }
4030 }
4032 set known_view_options {
4033 {perm b . {} {mc "Remember this view"}}
4034 {reflabel l + {} {mc "References (space separated list):"}}
4035 {refs t15 .. {} {mc "Branches & tags:"}}
4036 {allrefs b *. "--all" {mc "All refs"}}
4037 {branches b . "--branches" {mc "All (local) branches"}}
4038 {tags b . "--tags" {mc "All tags"}}
4039 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
4040 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
4041 {author t15 .. "--author=*" {mc "Author:"}}
4042 {committer t15 . "--committer=*" {mc "Committer:"}}
4043 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
4044 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
4045 {changes_l l + {} {mc "Changes to Files:"}}
4046 {pickaxe_s r0 . {} {mc "Fixed String"}}
4047 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
4048 {pickaxe t15 .. "-S*" {mc "Search string:"}}
4049 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
4050 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
4051 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
4052 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
4053 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
4054 {skip t10 . "--skip=*" {mc "Number to skip:"}}
4055 {misc_lbl l + {} {mc "Miscellaneous options:"}}
4056 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
4057 {lright b . "--left-right" {mc "Mark branch sides"}}
4058 {first b . "--first-parent" {mc "Limit to first parent"}}
4059 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
4060 {args t50 *. {} {mc "Additional arguments to git log:"}}
4061 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
4062 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
4063 }
4066 proc encode_view_opts {n} {
4067 global known_view_options newviewopts
4069 set rargs [list]
4079 }
4085 }
4086 } else {
4092 }
4093 }
4094 }
4097 }
4100 proc decode_view_opts {n view_args} {
4101 global known_view_options newviewopts
4106 # Checkboxes
4107 set val 0
4109 # Radiobuttons
4111 set val 0
4112 } else {
4113 # Text fields
4114 set val {}
4115 }
4117 }
4118 set oargs [list]
4119 set refargs [list]
4122 && ![info exists found(limit)]} {
4124 set found(limit) 1
4125 continue
4126 }
4127 catch { unset val }
4134 # Check buttons
4135 set val 1
4137 # Radio buttons
4140 } else {
4141 # Text input fields
4144 }
4147 break
4148 }
4149 if {[info exists val]} break
4150 }
4151 if {[info exists val]} continue
4154 } else {
4156 }
4157 }
4160 }
4162 proc edit_or_newview {} {
4163 global curview
4166 editview
4167 } else {
4168 newview 0
4169 }
4170 }
4172 proc editview {} {
4173 global curview
4174 global viewname viewperm newviewname newviewopts
4175 global viewargs viewargscmd
4180 return
4181 }
4187 }
4189 proc vieweditor {top n title} {
4190 global newviewname newviewopts viewfiles bgcolor
4191 global known_view_options NS
4197 # View name
4205 # View options
4207 set cexpand 0
4208 set cnt 0
4214 set lxpad 0
4218 incr cnt
4224 incr cnt
4228 } else {
4229 set lxpad 5
4230 }
4264 }
4267 }
4269 }
4270 }
4285 }
4287 proc doviewmenu {m first cmd op argv} {
4292 break
4293 }
4294 }
4295 }
4297 proc allviewmenus {n op args} {
4298 # global viewhlmenu
4302 }
4304 proc newviewok {top n {apply 0}} {
4305 global nextviewnum newviewperm newviewname newishighlight
4306 global viewname viewfiles viewperm viewchanged selectedview curview
4307 global viewargs viewargscmd newviewopts viewhlmenu
4309 if {[catch {
4311 } err]} {
4313 return
4314 }
4315 set files {}
4320 }
4321 }
4323 # creating a new view
4324 incr nextviewnum
4334 } else {
4336 }
4337 } else {
4338 # editing an existing view
4347 }
4354 run reloadcommits
4355 }
4356 }
4357 }
4360 }
4362 proc delview {} {
4363 global curview viewperm hlview selectedhlview viewchanged
4367 set selectedhlview [mc "None"]
4368 unset hlview
4369 }
4373 showview 0
4374 }
4376 proc addviewmenu {n} {
4377 global viewname viewhlmenu
4383 }
4385 proc showview {n} {
4386 global curview cached_commitrow ordertok
4387 global displayorder parentlist rowidlist rowisopt rowfinal
4388 global colormap rowtextx nextcolor canvxmax
4389 global numcommits viewcomplete
4390 global selectedline currentid canv canvy0
4391 global treediffs
4392 global pending_select mainheadid
4393 global commitidx
4394 global selectedview
4395 global hlview selectedhlview commitinterest
4398 set selid {}
4409 }
4410 } elseif {[info exists pending_select]} {
4412 unset pending_select
4413 }
4414 unselectline
4415 normalline
4416 catch {unset treediffs}
4417 clear_display
4419 unset hlview
4420 set selectedhlview [mc "None"]
4421 }
4422 catch {unset commitinterest}
4423 catch {unset cached_commitrow}
4424 catch {unset ordertok}
4431 run refill_reflist
4434 return
4435 }
4437 set displayorder {}
4438 set parentlist {}
4439 set rowidlist {}
4440 set rowisopt {}
4441 set rowfinal {}
4444 catch {unset colormap}
4445 catch {unset rowtextx}
4446 set nextcolor 0
4449 set row 0
4450 setcanvscroll
4451 set yf 0
4452 set row {}
4455 # try to get the selected row in the same position on the screen
4459 set ytop 0
4460 }
4462 }
4464 drawvisible
4469 } else {
4470 reset_pending_select {}
4474 } else {
4475 set row [first_real_row]
4478 }
4479 }
4480 }
4483 show_status [mc "Reading commits..."]
4484 }
4486 show_status [mc "No commits selected"]
4487 }
4488 }
4490 # Stuff relating to the highlighting facility
4492 proc ishighlighted {id} {
4493 global vhighlights fhighlights nhighlights rhighlights
4497 }
4500 }
4503 }
4506 }
4507 return 0
4508 }
4510 proc bolden {id font} {
4511 global canv linehtag currentid boldids need_redisplay markedid
4513 # need_redisplay = 1 means the display is stale and about to be redrawn
4520 -outline {{}} -tags secsel \
4523 }
4526 }
4527 }
4529 proc bolden_name {id font} {
4530 global canv2 linentag currentid boldnameids need_redisplay
4538 -outline {{}} -tags secsel \
4541 }
4542 }
4544 proc unbolden {} {
4545 global boldids
4547 set stillbold {}
4551 } else {
4553 }
4554 }
4556 }
4558 proc addvhighlight {n} {
4559 global hlview viewcomplete curview vhl_done commitidx
4561 if {[info exists hlview]} {
4562 delvhighlight
4563 }
4567 }
4570 drawvisible
4571 }
4572 }
4574 proc delvhighlight {} {
4575 global hlview vhighlights
4577 if {![info exists hlview]} return
4578 unset hlview
4579 catch {unset vhighlights}
4580 unbolden
4581 }
4583 proc vhighlightmore {} {
4584 global hlview vhl_done commitidx vhighlights curview
4587 set vr [visiblerows]
4597 }
4599 }
4600 }
4601 }
4603 return 0
4604 }
4606 proc askvhighlight {row id} {
4607 global hlview vhighlights iddrawn
4612 }
4614 } else {
4616 }
4617 }
4619 proc hfiles_change {} {
4620 global highlight_files filehighlight fhighlights fh_serial
4621 global highlight_paths
4623 if {[info exists filehighlight]} {
4624 # delete previous highlights
4626 unset filehighlight
4627 catch {unset fhighlights}
4628 unbolden
4629 unhighlight_filelist
4630 }
4631 set highlight_paths {}
4633 incr fh_serial
4636 }
4637 }
4639 proc gdttype_change {name ix op} {
4640 global gdttype highlight_files findstring findpattern
4642 stopfinding
4646 set highlight_files {}
4647 hfiles_change
4648 }
4649 findcom_change
4650 } else {
4652 set findpattern {}
4653 findcom_change
4654 }
4656 hfiles_change
4657 }
4658 drawvisible
4659 }
4660 # enable/disable findtype/findloc menus too
4661 }
4663 proc find_change {name ix op} {
4664 global gdttype findstring highlight_files
4666 stopfinding
4668 findcom_change
4669 } else {
4672 hfiles_change
4673 }
4674 }
4675 drawvisible
4676 }
4678 proc findcom_change args {
4679 global nhighlights boldnameids
4680 global findpattern findtype findstring gdttype
4682 stopfinding
4683 # delete previous highlights, if any
4686 }
4687 set boldnameids {}
4688 catch {unset nhighlights}
4689 unbolden
4690 unmarkmatches
4692 set findpattern {}
4695 } else {
4696 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4699 }
4700 }
4702 proc makepatterns {l} {
4703 set ret {}
4708 } else {
4711 }
4712 }
4714 }
4716 proc do_file_hl {serial} {
4717 global highlight_files filehighlight highlight_paths gdttype fhl_list
4718 global cdup findtype
4721 # If "exact" match then convert backslashes to forward slashes.
4722 # Most useful to support Windows-flavoured file paths.
4725 }
4728 highlight_filelist
4729 set relative_paths {}
4732 }
4738 } else {
4739 # must be "containing:", i.e. we're searching commit info
4740 return
4741 }
4746 set fhl_list {}
4747 drawvisible
4748 flushhighlights
4749 }
4751 proc flushhighlights {} {
4752 global filehighlight fhl_list
4754 if {[info exists filehighlight]} {
4755 lappend fhl_list {}
4758 }
4759 }
4761 proc askfilehighlight {row id} {
4762 global filehighlight fhighlights fhl_list
4767 }
4769 proc readfhighlight {} {
4770 global filehighlight fhighlights curview iddrawn
4771 global fhl_list find_dirn
4773 if {![info exists filehighlight]} {
4774 return 0
4775 }
4776 set nr 0
4784 }
4790 }
4792 }
4794 # strange...
4795 puts "oops, git diff-tree died"
4797 unset filehighlight
4798 return 0
4799 }
4800 if {[info exists find_dirn]} {
4801 run findmore
4802 }
4803 return 1
4804 }
4806 proc doesmatch {f} {
4807 global findtype findpattern
4813 } else {
4815 }
4816 }
4818 proc askfindhighlight {row id} {
4819 global nhighlights commitinfo iddrawn
4820 global findloc
4821 global markingmatches
4825 }
4827 set isbold 0
4828 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4834 set isbold 2
4835 break
4836 }
4837 set isbold 1
4838 }
4839 }
4845 }
4846 }
4849 }
4850 }
4852 }
4854 proc markrowmatches {row id} {
4855 global canv canv2 linehtag linentag commitinfo findloc
4866 }
4867 }
4873 }
4874 }
4875 }
4877 proc vrel_change {name ix op} {
4878 global highlight_related
4880 rhighlight_none
4882 run drawvisible
4883 }
4884 }
4886 # prepare for testing whether commits are descendents or ancestors of a
4887 proc rhighlight_sel {a} {
4888 global descendent desc_todo ancestor anc_todo
4889 global highlight_related
4891 catch {unset descendent}
4893 catch {unset ancestor}
4896 rhighlight_none
4897 run drawvisible
4898 }
4899 }
4901 proc rhighlight_none {} {
4902 global rhighlights
4904 catch {unset rhighlights}
4905 unbolden
4906 }
4908 proc is_descendent {a} {
4909 global curview children descendent desc_todo
4914 set leftover {}
4915 set done 0
4920 continue
4921 }
4927 set done 1
4928 }
4929 }
4930 }
4933 return
4934 }
4935 }
4938 }
4940 proc is_ancestor {a} {
4941 global curview parents ancestor anc_todo
4946 set leftover {}
4947 set done 0
4952 continue
4953 }
4959 set done 1
4960 }
4961 }
4962 }
4965 return
4966 }
4967 }
4970 }
4972 proc askrelhighlight {row id} {
4973 global descendent highlight_related iddrawn rhighlights
4974 global selectedline ancestor
4977 set isbold 0
4982 }
4984 set isbold 1
4985 }
4990 }
4992 set isbold 1
4993 }
4994 }
4998 }
4999 }
5001 }
5003 # Graph layout functions
5005 proc shortids {ids} {
5006 set res {}
5012 } else {
5014 }
5015 }
5017 }
5019 proc ntimes {n o} {
5020 set ret {}
5025 }
5027 }
5029 }
5031 proc ordertoken {id} {
5032 global ordertok curview varcid varcstart varctok curview parents children
5033 global nullid nullid2
5037 }
5039 set todo {}
5040 while {1} {
5044 } else {
5046 }
5049 break
5050 }
5053 # it's a root
5055 break
5056 }
5059 } else {
5063 }
5065 }
5066 }
5071 }
5074 }
5076 # Work out where id should go in idlist so that order-token
5077 # values increase from left to right
5078 proc idcol {idlist id {i 0}} {
5081 set i 0
5082 }
5086 }
5088 incr i
5089 } else {
5093 }
5094 }
5096 }
5098 proc initlayout {} {
5099 global rowidlist rowisopt rowfinal displayorder parentlist
5100 global numcommits canvxmax canv
5101 global nextcolor
5102 global colormap rowtextx
5104 set numcommits 0
5105 set displayorder {}
5106 set parentlist {}
5107 set nextcolor 0
5108 set rowidlist {}
5109 set rowisopt {}
5110 set rowfinal {}
5112 catch {unset colormap}
5113 catch {unset rowtextx}
5114 setcanvscroll
5115 }
5117 proc setcanvscroll {} {
5118 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5119 global lastscrollset lastscrollrows
5125 set lastscrollset [clock clicks -milliseconds]
5127 }
5129 proc visiblerows {} {
5130 global canv numcommits linespc
5138 set r0 0
5139 }
5144 }
5146 }
5148 proc layoutmore {} {
5149 global commitidx viewcomplete curview
5150 global numcommits pending_select curview
5151 global lastscrollset lastscrollrows
5155 setcanvscroll
5156 }
5157 if {[info exists pending_select] &&
5159 update
5161 }
5162 drawvisible
5163 }
5165 # With path limiting, we mightn't get the actual HEAD commit,
5166 # so ask git rev-list what is the first ancestor of HEAD that
5167 # touches a file in the path limit.
5168 proc get_viewmainhead {view} {
5169 global viewmainheadid vfilelimit viewinstances mainheadid
5171 catch {
5179 }
5180 }
5183 proc getviewhead {fd inst view} {
5184 global viewmainheadid commfd curview viewinstances showlocalchanges
5186 set id {}
5189 return 1
5190 }
5193 }
5200 }
5202 doshowlocalchanges
5203 }
5204 return 0
5205 }
5207 proc doshowlocalchanges {} {
5208 global curview viewmainheadid
5212 dodiffindex
5213 } else {
5215 }
5216 }
5218 proc dohidelocalchanges {} {
5219 global nullid nullid2 lserial curview
5223 }
5226 }
5227 incr lserial
5228 }
5230 # spawn off a process to do git diff-index --cached HEAD
5231 proc dodiffindex {} {
5232 global lserial showlocalchanges vfilelimit curview
5233 global hasworktree git_version
5236 incr lserial
5238 set cmd "|git diff-index --cached --ignore-submodules=dirty HEAD"
5239 } else {
5240 set cmd "|git diff-index --cached HEAD"
5241 }
5244 }
5249 }
5251 proc readdiffindex {fd serial inst} {
5252 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5253 global vfilelimit
5255 set isdiff 1
5258 return 1
5259 }
5260 set isdiff 0
5261 }
5262 # we only need to see one line and we don't really care what it says...
5266 return 0
5267 }
5269 # now see if there are any local changes not checked in to the index
5270 set cmd "|git diff-files"
5273 }
5280 # add the line for the changes in the index to the graph
5281 set hl [mc "Local changes checked in to index but not committed"]
5286 }
5291 }
5293 }
5294 return 0
5295 }
5297 proc readdifffiles {fd serial inst} {
5298 global viewmainheadid nullid nullid2 curview
5299 global commitinfo commitdata lserial
5301 set isdiff 1
5304 return 1
5305 }
5306 set isdiff 0
5307 }
5308 # we only need to see one line and we don't really care what it says...
5312 return 0
5313 }
5316 # add the line for the local diff to the graph
5317 set hl [mc "Local uncommitted changes, not checked in to index"]
5322 } else {
5324 }
5328 }
5329 return 0
5330 }
5332 proc nextuse {id row} {
5333 global curview children
5338 return -1
5339 }
5342 }
5343 }
5344 }
5347 }
5348 return -1
5349 }
5351 proc prevuse {id row} {
5352 global curview children
5354 set ret -1
5360 }
5361 }
5362 }
5364 }
5366 proc make_idlist {row} {
5367 global displayorder parentlist uparrowlen downarrowlen mingaplen
5368 global commitidx curview children
5372 set r 0
5373 }
5376 set ra 0
5377 }
5381 }
5383 set ids {}
5392 }
5393 }
5394 }
5402 }
5403 }
5404 }
5412 }
5413 }
5414 incr r
5420 }
5421 }
5422 }
5423 set idlist {}
5426 }
5428 }
5430 proc rowsequal {a b} {
5433 }
5436 }
5438 }
5440 proc makeupline {id row rend col} {
5441 global rowidlist uparrowlen downarrowlen mingaplen
5447 }
5450 }
5457 }
5458 }
5459 }
5461 proc layoutrows {row endrow} {
5462 global rowidlist rowisopt rowfinal displayorder
5463 global uparrowlen downarrowlen maxwidth mingaplen
5464 global children parentlist
5465 global commitidx viewcomplete curview
5468 set idlist {}
5474 }
5475 }
5477 }
5482 set final 1
5483 } else {
5491 # if not the first child, we have to insert a line going up
5494 }
5495 }
5496 }
5506 }
5507 }
5508 }
5515 }
5516 }
5526 }
5527 }
5535 }
5536 }
5537 }
5538 }
5539 }
5543 set final 0
5544 }
5548 lappend rowisopt 0
5554 }
5556 } else {
5563 }
5564 }
5566 }
5568 proc changedrow {row} {
5569 global displayorder iddrawn rowisopt need_redisplay
5578 }
5579 }
5580 }
5583 set need_redisplay 1
5584 }
5585 }
5587 proc insert_pad {row col npad} {
5588 global rowidlist
5597 }
5600 }
5602 proc optimize_rows {row col endrow} {
5603 global rowidlist rowisopt displayorder curview children
5606 set row 1
5607 }
5610 set haspad 0
5619 } else {
5620 set pprevidlist {}
5621 }
5622 set x0 -1
5623 set xm -1
5628 set haspad 1
5629 continue
5630 }
5634 set isarrow 0
5635 set z0 {}
5640 }
5641 }
5646 set isarrow 1
5647 }
5648 }
5651 set isarrow 1
5652 }
5653 # Looking at lines from this row to the previous row,
5654 # make them go straight up if they end in an arrow on
5655 # the previous row; otherwise make them go straight up
5656 # or at 45 degrees.
5658 # Line currently goes left too much;
5659 # insert pads in the previous row, then optimize it
5664 }
5672 }
5674 # Line currently goes right too much;
5675 # insert pads in this line
5681 set haspad 1
5682 }
5689 }
5690 }
5691 # avoid lines jigging left then immediately right
5694 incr x0
5697 }
5698 }
5700 # Find the first column that doesn't have a line going right
5706 # check if this is the link to the first child
5709 # it is, work out offset to child
5711 }
5712 }
5714 }
5715 # Insert a pad at that column as long as it has a line and
5716 # isn't the last column
5721 }
5722 }
5723 }
5724 }
5726 proc xc {row col} {
5727 global canvx0 linespc
5729 }
5731 proc yc {row} {
5732 global canvy0 linespc
5734 }
5736 proc linewidth {id} {
5737 global thickerline lthickness
5742 }
5744 }
5746 proc rowranges {id} {
5747 global curview children uparrowlen downarrowlen
5748 global rowidlist
5752 return {}
5753 }
5754 set ret {}
5759 if {![info exists prev]} {
5761 } else {
5763 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5764 }
5765 # see if the line extends the whole way from prevrow to row
5769 # it doesn't, see where it ends
5774 } else {
5777 incr r -1
5778 }
5780 # see where it starts up again
5785 } else {
5788 incr r
5789 }
5791 }
5792 }
5795 }
5798 }
5800 }
5802 proc drawlineseg {id row endrow arrowlow} {
5803 global rowidlist displayorder iddrawn linesegs
5804 global canv colormap linespc curview maxlinelen parentlist
5808 set arrowhigh 1
5809 while {1} {
5812 incr le -1
5813 break
5814 }
5818 set arrowhigh 0
5819 break
5820 }
5825 set arrowhigh 0
5826 }
5827 break
5828 }
5829 incr le
5830 }
5833 }
5835 set lines {}
5836 set i 0
5837 set joinhigh 0
5844 set joinhigh 1
5845 }
5846 break
5847 }
5848 incr i
5849 }
5850 }
5851 set joinlow 0
5856 set joinlow 1
5857 }
5858 }
5871 }
5872 } else {
5874 }
5882 set arrowlow 0
5883 }
5884 }
5892 }
5894 }
5897 # join parent line to first child
5908 } else {
5910 }
5918 }
5920 }
5922 } else {
5926 }
5934 } else {
5938 }
5940 }
5941 } else {
5947 }
5951 } else {
5952 # coalesce two pieces
5957 }
5961 }
5962 }
5966 }
5968 proc drawparentlinks {id row} {
5969 global rowidlist canv colormap curview parentlist
5970 global idpos linespc
5983 # rmx = right-most X coord used
5984 set rmx 0
5989 continue
5990 }
5994 }
5997 # drawlineseg will do this one for us
5998 continue
5999 }
6001 # should handle duplicated parents here...
6004 # if attaching to a vertical segment, draw a smaller
6005 # slant for visual distinctness
6009 } else {
6011 }
6013 # segment slants towards us already
6015 } else {
6020 }
6022 }
6023 } else {
6025 }
6030 }
6034 }
6035 }
6037 proc drawlines {id} {
6038 global canv
6041 }
6043 proc drawcmittext {id row col} {
6044 global linespc canv canv2 canv3 fgcolor curview
6045 global cmitlisted commitinfo rowidlist parentlist
6046 global rowtextx idpos idtags idheads idotherrefs
6047 global linehtag linentag linedtag selectedline
6048 global canvxmax boldids boldnameids fgcolor markedid
6049 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
6050 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
6051 global circleoutlinecolor
6053 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
6061 } else {
6063 }
6072 # triangle pointing left for left-side commits
6078 } else {
6079 # triangle pointing right for right-side commits
6085 }
6097 }
6098 }
6099 }
6106 }
6109 }
6114 set font mainfont
6115 set nfont mainfont
6119 set font mainfontbold
6122 set nfont mainfontbold
6123 }
6124 }
6134 }
6137 }
6141 setcanvscroll
6142 }
6143 }
6145 proc drawcmitrow {row} {
6146 global displayorder rowidlist nrows_drawn
6147 global iddrawn markingmatches
6148 global commitinfo numcommits
6149 global filehighlight fhighlights findpattern nhighlights
6150 global hlview vhighlights
6151 global highlight_related rhighlights
6158 }
6161 }
6164 }
6167 }
6172 return
6173 }
6176 }
6180 incr nrows_drawn
6181 }
6184 }
6185 }
6187 proc drawcommits {row {endrow {}}} {
6188 global numcommits iddrawn displayorder curview need_redisplay
6189 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6192 set row 0
6193 }
6196 }
6199 }
6203 set rl1 0
6204 }
6207 set ro1 0
6208 }
6212 }
6217 }
6219 }
6220 }
6223 }
6226 clear_display
6227 }
6229 # make the lines join to already-drawn rows either side
6233 }
6238 }
6253 # see if this is the first child of any of its parents
6256 # make this line extend up to the child
6258 }
6259 }
6260 } else {
6262 }
6263 }
6264 }
6265 }
6267 proc undolayout {row} {
6268 global uparrowlen mingaplen downarrowlen
6269 global rowidlist rowisopt rowfinal need_redisplay
6273 set r 0
6274 }
6276 incr r -1
6280 set need_redisplay 1
6281 run drawvisible
6282 }
6283 }
6285 proc drawvisible {} {
6286 global canv linespc curview vrowmod selectedline targetrow targetid
6287 global need_redisplay cscroll numcommits
6297 if {[info exists targetid]} {
6301 # Fix up the scrollregion and change the scrolling position
6302 # now that our target row has moved.
6305 setcanvscroll
6313 set need_redisplay 1
6314 }
6315 } else {
6316 unset targetid
6317 }
6318 }
6324 }
6328 } elseif {[info exists targetid]} {
6330 }
6331 if {[info exists targetrow]} {
6334 }
6336 }
6338 }
6340 proc clear_display {} {
6341 global iddrawn linesegs need_redisplay nrows_drawn
6342 global vhighlights fhighlights nhighlights rhighlights
6343 global linehtag linentag linedtag boldids boldnameids
6345 allcanvs delete all
6346 catch {unset iddrawn}
6347 catch {unset linesegs}
6348 catch {unset linehtag}
6349 catch {unset linentag}
6350 catch {unset linedtag}
6351 set boldids {}
6352 set boldnameids {}
6353 catch {unset vhighlights}
6354 catch {unset fhighlights}
6355 catch {unset nhighlights}
6356 catch {unset rhighlights}
6357 set need_redisplay 0
6358 set nrows_drawn 0
6359 }
6361 proc findcrossings {id} {
6362 global rowidlist parentlist numcommits displayorder
6364 set cross {}
6365 set ccross {}
6369 }
6388 }
6389 }
6390 }
6391 }
6392 }
6394 }
6396 proc assigncolor {id} {
6397 global colormap colors nextcolor
6398 global parents children children curview
6404 } else {
6405 set kids {}
6406 }
6412 return
6413 }
6414 }
6415 set badcolors {}
6416 set origbad {}
6419 # delimiter between corner crossings and other crossings
6422 }
6426 }
6427 }
6430 }
6437 }
6442 }
6443 }
6444 }
6447 }
6448 }
6452 set nextcolor 0
6453 }
6455 }
6457 }
6459 proc bindline {t id} {
6460 global canv
6466 }
6468 proc graph_pane_width {} {
6469 global use_ttk
6472 set g [.tf.histframe.pwclist sashpos 0]
6473 } else {
6474 set g [.tf.histframe.pwclist sash coord 0]
6475 }
6477 }
6479 proc totalwidth {l font extra} {
6480 set tot 0
6483 }
6485 }
6487 proc drawtags {id x xt y1} {
6488 global idtags idheads idotherrefs mainhead
6489 global linespc lthickness
6490 global canv rowtextx curview fgcolor bgcolor ctxbut
6491 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
6492 global tagbgcolor tagfgcolor tagoutlinecolor
6493 global reflinecolor
6495 set marks {}
6496 set ntags 0
6497 set nheads 0
6498 set singletag 0
6499 set maxtags 3
6500 set maxtagpct 25
6510 # show just a single "n tags..." tag
6511 set singletag 1
6513 set marks [list "tag..."]
6514 } else {
6516 }
6517 set ntags 1
6518 }
6519 }
6523 }
6526 }
6529 }
6533 set xvals {}
6534 set wvals {}
6535 set i -1
6537 incr i
6540 } else {
6542 }
6546 }
6554 set font mainfont
6555 if {[incr ntags -1] >= 0} {
6556 # draw a tag
6563 } else {
6565 }
6568 } else {
6569 # draw a head or other ref
6570 if {[incr nheads -1] >= 0} {
6573 set font mainfontbold
6574 }
6575 } else {
6576 set col "#ddddff"
6577 }
6588 }
6589 }
6596 }
6597 }
6599 }
6601 proc drawnotesign {xt y} {
6602 global linespc canv fgcolor
6610 }
6612 proc xcoord {i level ln} {
6613 global canvx0 xspc1 xspc2
6620 }
6622 }
6624 proc show_status {msg} {
6625 global canv fgcolor
6627 clear_display
6630 }
6632 # Don't change the text pane cursor if it is currently the hand cursor,
6633 # showing that we are over a sha1 ID link.
6634 proc settextcursor {c} {
6635 global ctext curtextcursor
6639 }
6641 }
6643 proc nowbusy {what {name {}}} {
6644 global isbusy busyname statusw
6646 if {[array names isbusy] eq {}} {
6647 . config -cursor watch
6648 settextcursor watch
6649 }
6654 }
6655 }
6657 proc notbusy {what} {
6658 global isbusy maincursor textcursor busyname statusw
6660 catch {
6665 }
6666 }
6667 if {[array names isbusy] eq {}} {
6670 }
6671 }
6673 proc findmatches {f} {
6674 global findtype findstring
6677 } else {
6682 }
6683 set matches {}
6684 set i 0
6689 }
6690 }
6692 }
6694 proc dofind {{dirn 1} {wrap 1}} {
6695 global findstring findstartline findcurline selectedline numcommits
6696 global gdttype filehighlight fh_serial find_dirn findallowwrap
6698 if {[info exists find_dirn]} {
6700 stopfinding
6701 }
6702 focus .
6706 } else {
6708 }
6710 nowbusy finding [mc "Searching"]
6714 }
6717 run findmore
6718 }
6720 proc stopfinding {} {
6721 global find_dirn findcurline fprogcoord
6723 if {[info exists find_dirn]} {
6724 unset find_dirn
6725 unset findcurline
6726 notbusy finding
6727 set fprogcoord 0
6728 adjustprogress
6729 }
6730 stopblaming
6731 }
6733 proc findmore {} {
6734 global commitdata commitinfo numcommits findpattern findloc
6735 global findstartline findcurline findallowwrap
6736 global find_dirn gdttype fhighlights fprogcoord
6737 global curview varcorder vrownum varccommits vrowmod
6739 if {![info exists find_dirn]} {
6740 return 0
6741 }
6742 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6744 set moretodo 0
6746 incr l
6748 set l 0
6749 }
6752 } else {
6755 }
6756 } else {
6759 }
6760 incr l -1
6763 } else {
6764 set lim -1
6766 }
6767 }
6770 set n 500
6771 set moretodo 1
6772 }
6775 }
6776 set found 0
6777 set domore 1
6791 }
6793 # shouldn't happen unless git log doesn't give all the commits...
6796 continue
6797 }
6800 }
6806 set found 1
6807 break
6808 }
6809 }
6811 }
6812 } else {
6820 }
6825 }
6828 break
6829 }
6832 set domore 0
6834 }
6835 }
6836 }
6837 }
6839 unset findcurline
6840 unset find_dirn
6841 notbusy finding
6842 set fprogcoord 0
6843 adjustprogress
6846 } else {
6847 bell
6848 }
6849 return 0
6850 }
6852 flushhighlights
6853 } else {
6855 }
6859 }
6861 adjustprogress
6863 }
6865 proc findselectline {l} {
6866 global findloc commentend ctext findcurline markingmatches gdttype
6873 # highlight the matches in the comments
6880 }
6881 }
6882 drawvisible
6883 }
6885 # mark the bits of a headline or author that match a find string
6886 proc markmatches {canv l str tag matches font row} {
6887 global selectedline
6905 }
6906 }
6907 }
6909 proc unmarkmatches {} {
6910 global markingmatches
6912 allcanvs delete matches
6913 set markingmatches 0
6914 stopfinding
6915 }
6917 proc selcanvline {w x y} {
6918 global canv canvy0 ctext linespc
6919 global rowtextx
6926 set l 0
6927 }
6932 }
6933 unmarkmatches
6935 }
6937 proc commit_descriptor {p} {
6938 global commitinfo
6941 }
6942 set l "..."
6945 }
6947 }
6949 # append some text to the ctext widget, and make any SHA1 ID
6950 # that we know about be a clickable link.
6951 proc appendwithlinks {text tags} {
6952 global ctext linknum curview
6961 incr e
6965 incr linknum
6966 }
6967 }
6969 proc setlink {id lk} {
6970 global curview ctext pendinglinks
6971 global linkfgcolor
6975 }
6977 set known 0
6982 set known 1
6984 }
6985 } else {
6987 }
6993 } else {
6996 }
6997 }
6999 proc appendshortlink {id {pre {}} {post {}}} {
7000 global ctext linknum
7007 incr linknum
7008 }
7010 proc makelink {id} {
7011 global pendinglinks
7016 }
7018 }
7020 proc linkcursor {w inc} {
7021 global linkentercount curtextcursor
7025 } else {
7028 set linkentercount 0
7029 }
7030 }
7031 }
7033 proc viewnextline {dir} {
7034 global canv linespc
7042 set newtop 0
7045 }
7047 }
7049 # add a list of tag or branch names at position pos
7050 # returns the number of names inserted
7051 proc appendrefs {pos ids var} {
7055 return 0
7056 }
7059 set tags {}
7063 }
7064 }
7066 set sep {}
7068 set nutags 0
7071 # If we are displaying heads, and there are too many,
7072 # see if there are some important heads to display.
7074 set itags {}
7076 set utags {}
7083 } else {
7085 }
7086 }
7088 }
7090 set str [mc "and many more"]
7091 set sep " "
7092 } else {
7093 set str [mc "many"]
7094 }
7098 }
7103 incr linknum
7108 set sep ", "
7109 }
7113 }
7115 # called when we have finished computing the nearby tags
7116 proc dispneartags {delay} {
7117 global selectedline currentid showneartags tagphase
7120 after cancel dispnexttag
7122 after 200 dispnexttag
7123 set tagphase -1
7124 } else {
7125 after idle dispnexttag
7126 set tagphase 0
7127 }
7128 }
7130 proc dispnexttag {} {
7131 global selectedline currentid showneartags tagphase ctext
7135 0 {
7139 }
7140 }
7141 1 {
7145 }
7146 }
7147 2 {
7152 # turn "Branch" into "Branches"
7156 }
7157 }
7158 }
7159 }
7160 if {[incr tagphase] <= 2} {
7161 after idle dispnexttag
7162 }
7163 }
7165 proc make_secsel {id} {
7166 global linehtag linentag linedtag canv canv2 canv3
7181 }
7183 proc make_idmark {id} {
7184 global linehtag canv fgcolor
7191 }
7193 proc selectline {l isnew {desired_loc {}} {switch_to_patch 0}} {
7194 global canv ctext commitinfo selectedline
7195 global canvy0 linespc parents children curview
7196 global currentid sha1entry
7197 global commentend idtags linknum
7198 global mergemax numcommits pending_select
7199 global cmitmode showneartags allcommits
7200 global targetrow targetid lastscrollrows
7201 global autoselect autosellen jump_to_here
7202 global vinlinediff
7204 catch {unset pending_select}
7206 normalline
7207 unsel_reflist
7208 stopfinding
7216 setcanvscroll
7217 }
7220 set cmitmode "patch"
7221 }
7235 } else {
7239 }
7240 }
7244 } else {
7248 }
7249 }
7250 }
7253 set newtop 0
7254 }
7256 drawvisible
7257 }
7263 }
7269 }
7273 clear_ctext
7274 set linknum 0
7277 }
7287 }
7289 }
7291 set headers {}
7294 set np 0
7297 set tag mmax
7298 } else {
7300 }
7303 incr np
7304 }
7305 } else {
7308 }
7309 }
7313 }
7315 # make anything that looks like a SHA1 ID be a clickable link
7318 if {![info exists allcommits]} {
7319 getallcommits
7320 }
7331 dispneartags 1
7332 }
7337 }
7345 init_flist [mc "Comments"]
7352 } else {
7354 }
7355 }
7357 proc selfirstline {} {
7358 unmarkmatches
7359 selectline 0 1
7360 }
7362 proc sellastline {} {
7363 global numcommits
7364 unmarkmatches
7367 }
7369 proc selnextline {dir} {
7370 global selectedline
7371 focus .
7374 unmarkmatches
7376 }
7378 proc selnextpage {dir} {
7379 global canv linespc selectedline numcommits
7383 set lpp 1
7384 }
7386 drawvisible
7390 set l 0
7393 }
7394 unmarkmatches
7396 }
7398 proc unselectline {} {
7399 global selectedline currentid
7401 set selectedline {}
7402 catch {unset currentid}
7403 allcanvs delete secsel
7404 rhighlight_none
7405 }
7407 proc reselectline {} {
7408 global selectedline
7412 }
7413 }
7415 proc addtohistory {cmd {saveproc {}}} {
7416 global history historyindex curview
7418 unset_posvars
7419 save_position
7423 return
7424 }
7428 } else {
7430 }
7431 incr historyindex
7433 .tf.bar.leftbut conf -state normal
7434 } else {
7435 .tf.bar.leftbut conf -state disabled
7436 }
7437 .tf.bar.rightbut conf -state disabled
7438 }
7440 # save the scrolling position of the diff display pane
7441 proc save_position {} {
7442 global historyindex history
7449 }
7450 }
7452 proc unset_posvars {} {
7453 global last_posvars
7455 if {[info exists last_posvars]} {
7459 }
7460 unset last_posvars
7461 }
7462 }
7464 proc godo {elt} {
7465 global curview last_posvars
7472 }
7473 unset_posvars
7477 }
7480 }
7482 proc goback {} {
7483 global history historyindex
7484 focus .
7487 save_position
7488 incr historyindex -1
7490 .tf.bar.rightbut conf -state normal
7491 }
7493 .tf.bar.leftbut conf -state disabled
7494 }
7495 }
7497 proc goforw {} {
7498 global history historyindex
7499 focus .
7502 save_position
7504 incr historyindex
7506 .tf.bar.leftbut conf -state normal
7507 }
7509 .tf.bar.rightbut conf -state disabled
7510 }
7511 }
7513 proc go_to_parent {i} {
7514 global parents curview targetid
7518 }
7519 }
7521 proc gettree {id} {
7522 global treefilelist treeidlist diffids diffmergeid treepending
7523 global nullid nullid2
7526 catch {unset diffmergeid}
7528 if {![info exists treepending]} {
7530 set cmd [list | git ls-files]
7532 set cmd [list | git ls-files --stage -t]
7533 } else {
7535 }
7537 return
7538 }
7544 }
7545 } else {
7547 }
7548 }
7550 proc gettreeline {gtf id} {
7551 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7553 set nl 0
7557 } else {
7565 }
7568 }
7571 }
7574 }
7576 unset treepending
7578 if {![info exists diffmergeid]} {
7580 }
7583 } else {
7585 }
7586 return 0
7587 }
7589 proc showfile {f} {
7590 global treefilelist treeidlist diffids nullid nullid2
7591 global ctext_file_names ctext_file_lines
7592 global ctext commentend
7597 return
7598 }
7602 return
7603 }
7604 } else {
7608 return
7609 }
7610 }
7621 settabs 0
7622 }
7624 proc getblobline {bf id} {
7625 global diffids cmitmode ctext
7629 return 0
7630 }
7632 set nl 0
7635 }
7637 global jump_to_here ctext_file_names commentend
7639 # delete last newline
7647 }
7649 return 0
7650 }
7653 }
7655 proc mark_ctext_line {lnum} {
7656 global ctext markbgcolor
7662 }
7664 proc mergediff {id} {
7665 global diffmergeid
7666 global diffids treediffs
7667 global parents curview
7675 }
7677 proc startdiff {ids} {
7678 global treediffs diffids treepending diffmergeid nullid nullid2
7680 settabs 1
7682 catch {unset diffmergeid}
7686 if {![info exists treepending]} {
7688 }
7689 } else {
7691 }
7692 }
7694 proc showinlinediff {ids} {
7695 global commitinfo commitdata ctext
7696 global treediffs
7702 initblobdiffvars
7703 set treediff {}
7705 set inhdr 0
7708 set inhdr 1
7710 # offset also accounts for the b/ prefix
7712 set inhdr 0
7713 }
7714 }
7722 }
7723 maybe_scroll_ctext 1
7725 }
7727 # If the filename (name) is under any of the passed filter paths
7728 # then return true to include the file in the listing.
7729 proc path_filter {filter name} {
7730 set worktree [gitworktree]
7735 return 1
7736 }
7737 }
7738 return 0
7739 }
7741 proc addtocflist {ids} {
7742 global treediffs
7746 }
7748 proc diffcmd {ids flags} {
7749 global log_showroot nullid nullid2 git_version
7755 # comparing working directory with some specific revision
7759 } else {
7761 }
7762 } else {
7763 # comparing working directory with index
7766 lappend cmd -R
7767 }
7768 }
7772 }
7775 # comparing index with specific revision
7778 } else {
7780 }
7781 } else {
7782 # comparing index with HEAD
7783 lappend cmd HEAD
7784 }
7785 } else {
7787 lappend flags --root
7788 }
7790 }
7792 }
7794 proc gettreediffs {ids} {
7795 global treediff treepending limitdiffs vfilelimit curview
7800 }
7804 set treediff {}
7807 }
7809 proc gettreediffline {gdtf ids} {
7810 global treediff treediffs treepending diffids diffmergeid
7811 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7813 set nr 0
7814 set sublist {}
7815 set max 1000
7817 # cache_gitattr is slow, and even slower on win32 where we
7818 # have to invoke it for only about 30 paths at a time
7819 set max 500
7820 if {[tk windowingsystem] == "win32"} {
7821 set max 120
7822 }
7823 }
7830 }
7835 }
7836 }
7837 }
7840 }
7843 }
7846 unset treepending
7850 if {![info exists diffmergeid]} {
7852 }
7853 } else {
7855 }
7856 return 0
7857 }
7859 # empty string or positive integer
7860 proc diffcontextvalidate {v} {
7862 }
7864 proc diffcontextchange {n1 n2 op} {
7865 global diffcontextstring diffcontext
7870 reselectline
7871 }
7872 }
7873 }
7875 proc changeignorespace {} {
7876 reselectline
7877 }
7879 proc changeworddiff {name ix op} {
7880 reselectline
7881 }
7883 proc initblobdiffvars {} {
7884 global diffencoding targetline diffnparents
7885 global diffinhdr currdiffsubmod diffseehere
7886 set targetline {}
7887 set diffnparents 0
7888 set diffinhdr 0
7889 set diffencoding [get_path_encoding {}]
7890 set currdiffsubmod ""
7891 set diffseehere -1
7892 }
7894 proc getblobdiffs {ids} {
7895 global blobdifffd diffids env
7896 global treediffs
7897 global diffcontext
7898 global ignorespace
7899 global worddiff
7900 global limitdiffs vfilelimit curview
7901 global git_version
7903 set textconv {}
7905 set textconv "--textconv"
7906 }
7907 set submodule {}
7909 set submodule "--submodule"
7910 }
7913 append cmd " -w"
7914 }
7916 append cmd " --word-diff=porcelain"
7917 }
7920 }
7923 return
7924 }
7927 initblobdiffvars
7929 }
7931 proc savecmitpos {} {
7932 global ctext cmitmode
7935 return {}
7936 }
7938 }
7940 proc savectextpos {} {
7941 global ctext
7944 }
7946 proc maybe_scroll_ctext {ateof} {
7947 global ctext target_scrollpos
7949 if {![info exists target_scrollpos]} return
7952 / [font metrics textfont -linespace]}]
7954 }
7956 unset target_scrollpos
7957 }
7959 proc setinlist {var i val} {
7964 }
7967 } else {
7969 }
7970 }
7972 proc makediffhdr {fname ids} {
7973 global ctext curdiffstart treediffs diffencoding
7974 global ctext_file_names jump_to_here targetline diffline
7981 }
7986 set targetline {}
7989 }
7990 set diffline 0
7991 }
7993 proc blobdiffmaybeseehere {ateof} {
7994 global diffseehere
7997 }
7999 }
8001 proc getblobdiffline {bdf ids} {
8002 global diffids blobdifffd
8003 global ctext
8005 set nr 0
8010 return 0
8011 }
8013 }
8018 return 0
8019 }
8021 }
8023 proc parseblobdiffline {ids line} {
8024 global ctext curdiffstart
8025 global diffnexthead diffnextnote difffilestart
8026 global ctext_file_names ctext_file_lines
8027 global diffinhdr treediffs mergemax diffnparents
8028 global diffencoding jump_to_here targetline diffline currdiffsubmod
8029 global worddiff diffseehere
8035 continue
8036 }
8037 # start of a new file
8038 set diffinhdr 1
8041 lappend ctext_file_names ""
8046 # start of a new file in a merge diff
8051 }
8053 } else {
8055 # If the name hasn't changed the length will be odd,
8056 # the middle char will be a space, and the two bits either
8057 # side will be a/name and b/name, or "a/name" and "b/name".
8058 # If the name has changed we'll get "rename from" and
8059 # "rename to" or "copy from" and "copy to" lines following
8060 # this, and we'll use them to get the filenames.
8061 # This complexity is necessary because spaces in the
8062 # filename(s) don't get escaped.
8068 return
8069 }
8070 # unescape if quoted and chop off the a/ from the front
8073 } else {
8075 }
8076 }
8089 }
8097 }
8099 set diffinhdr 0
8102 # start of a new submodule
8105 } else {
8107 }
8110 }
8112 lappend ctext_file_names ""
8118 } else {
8120 }
8134 }
8139 }
8145 }
8148 # do nothing
8149 return
8151 set diffinhdr 0
8152 return
8153 }
8156 } else {
8157 set line [string map {\x1A ^Z} \
8159 # parse the prefix - one ' ', '-' or '+' for each parent
8163 set words_pre_markup ""
8164 set words_post_markup ""
8166 # prefix only has " ", "-" and "+" in it: normal diff line
8170 }
8174 set num "max"
8175 }
8178 } else {
8180 }
8183 }
8184 } else {
8185 set tags {}
8187 # added line
8193 set num "max"
8194 }
8196 }
8197 }
8198 set words_pre_markup "{+"
8199 set words_post_markup "+}"
8200 }
8204 set targetline {}
8205 } else {
8206 incr diffline
8207 }
8208 }
8211 } else {
8213 }
8216 }
8217 }
8220 } else {
8221 # "\ No newline at end of file",
8222 # or something else we don't recognize
8224 }
8225 }
8226 }
8228 proc changediffdisp {} {
8229 global ctext diffelide
8233 }
8235 proc highlightfile {cline} {
8236 global cflist cflist_top
8238 if {![info exists cflist_top]} return
8244 }
8246 proc highlightfile_for_scrollpos {topidx} {
8247 global cmitmode difffilestart
8250 if {![info exists difffilestart]} return
8254 highlightfile 0
8255 } else {
8257 }
8258 }
8260 proc prevfile {} {
8261 global difffilestart ctext cmitmode
8264 set prev 0.0
8269 return
8270 }
8272 }
8274 }
8276 proc nextfile {} {
8277 global difffilestart ctext cmitmode
8284 return
8285 }
8286 }
8287 }
8289 proc clear_ctext {{first 1.0}} {
8290 global ctext smarktop smarkbot
8291 global ctext_file_names ctext_file_lines
8292 global pendinglinks
8297 }
8300 }
8303 catch {unset pendinglinks}
8304 }
8305 set ctext_file_names {}
8306 set ctext_file_lines {}
8307 }
8309 proc settabs {{firstab {}}} {
8310 global firsttabstop tabstop ctext have_tk85
8314 }
8315 set w [font measure textfont "0"]
8321 } else {
8323 }
8324 }
8326 proc incrsearch {name ix op} {
8327 global ctext searchstring searchdirn
8330 # no anchor set, use start of selection, or of visible area
8336 } else {
8338 }
8339 }
8347 suppress_highlighting_file_for_current_scrollpos
8349 }
8350 }
8351 rehighlight_search_results
8352 }
8354 proc dosearch {} {
8355 global sstring ctext searchstring searchdirn
8359 set searchdirn -forwards
8365 set start "@0,0"
8366 }
8370 bell
8371 return
8372 }
8374 suppress_highlighting_file_for_current_scrollpos
8379 rehighlight_search_results
8380 }
8381 }
8383 proc dosearchback {} {
8384 global sstring ctext searchstring searchdirn
8388 set searchdirn -backwards
8395 }
8399 bell
8400 return
8401 }
8403 suppress_highlighting_file_for_current_scrollpos
8408 rehighlight_search_results
8409 }
8410 }
8412 proc rehighlight_search_results {} {
8413 global ctext searchstring
8419 searchmarkvisible 1
8420 }
8421 }
8423 proc searchmark {first last} {
8424 global ctext searchstring
8429 while {1} {
8435 } else {
8437 }
8438 }
8439 }
8441 proc searchmarkvisible {doall} {
8442 global ctext smarktop smarkbot
8447 # no overlap with previous
8451 } else {
8455 }
8459 }
8460 }
8461 }
8463 proc suppress_highlighting_file_for_current_scrollpos {} {
8464 global ctext suppress_highlighting_file_for_this_scrollpos
8467 }
8469 proc scrolltext {f0 f1} {
8470 global searchstring cmitmode ctext
8471 global suppress_highlighting_file_for_this_scrollpos
8474 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8477 }
8479 catch {unset suppress_highlighting_file_for_this_scrollpos}
8483 searchmarkvisible 0
8484 }
8485 }
8487 proc setcoords {} {
8488 global linespc charspc canvx0 canvy0
8489 global xspc1 xspc2 lthickness
8491 set linespc [font metrics mainfont -linespace]
8492 set charspc [font measure mainfont "m"]
8498 }
8500 proc redisplay {} {
8501 global canv
8502 global selectedline
8507 clear_display
8508 setcanvscroll
8510 drawvisible
8514 }
8515 }
8517 proc parsefont {f n} {
8518 global fontattr
8523 set s 10
8526 }
8532 "normal" -
8534 "roman" -
8536 }
8537 }
8538 }
8540 proc fontflags {f {isbold 0}} {
8541 global fontattr
8546 }
8548 proc fontname {f} {
8549 global fontattr
8553 lappend n "bold"
8554 }
8556 lappend n "italic"
8557 }
8559 }
8561 proc incrfont {inc} {
8562 global mainfont textfont ctext canv cflist showrefstop
8563 global stopped entries fontattr
8565 unmarkmatches
8569 set s 1
8570 }
8574 set mainfont [fontname mainfont]
8578 set s 1
8579 }
8583 set textfont [fontname textfont]
8584 setcoords
8585 settabs
8586 redisplay
8587 }
8589 proc clearsha1 {} {
8590 global sha1entry sha1string
8593 }
8594 }
8596 proc sha1change {n1 n2 op} {
8597 global sha1string currentid sha1but
8600 set state disabled
8601 } else {
8602 set state normal
8603 }
8607 } else {
8609 }
8610 }
8612 proc gotocommit {} {
8613 global sha1string tagids headids curview varcid
8621 } else {
8628 return
8629 }
8631 }
8632 } else {
8635 return
8636 }
8637 }
8638 }
8641 return
8642 }
8645 } else {
8647 }
8649 }
8651 proc lineenter {x y id} {
8652 global hoverx hovery hoverid hovertimer
8653 global commitinfo canv
8659 if {[info exists hovertimer]} {
8661 }
8662 set hovertimer [after 500 linehover]
8664 }
8666 proc linemotion {x y id} {
8667 global hoverx hovery hoverid hovertimer
8672 if {[info exists hovertimer]} {
8674 }
8675 set hovertimer [after 500 linehover]
8676 }
8677 }
8679 proc lineleave {id} {
8680 global hoverid hovertimer canv
8684 if {[info exists hovertimer]} {
8686 unset hovertimer
8687 }
8688 unset hoverid
8689 }
8690 }
8692 proc linehover {} {
8693 global hoverx hovery hoverid hovertimer
8694 global canv linespc lthickness
8695 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8697 global commitinfo
8711 -width 1 -tags hover]
8716 }
8718 proc clickisonarrow {id y} {
8719 global lthickness
8728 }
8729 }
8730 return {}
8731 }
8733 proc arrowjump {id n y} {
8734 global canv
8736 # 1 <-> 2, 3 <-> 4, etc...
8746 set yfrac 0
8747 }
8749 }
8751 proc lineclick {x y id isnew} {
8752 global ctext commitinfo children canv thickerline curview
8755 unmarkmatches
8756 unselectline
8757 normalline
8759 # draw this line thicker than normal
8767 }
8771 return
8772 }
8776 }
8777 # fill the details pane with info about this line
8779 clear_ctext
8780 settabs 0
8792 set i 0
8794 incr i
8804 }
8805 }
8806 maybe_scroll_ctext 1
8808 init_flist {}
8809 }
8811 proc normalline {} {
8812 global thickerline
8813 if {[info exists thickerline]} {
8815 unset thickerline
8817 }
8818 }
8820 proc selbyid {id {isnew 1}} {
8821 global curview
8824 }
8825 }
8827 proc mstime {} {
8828 global startmstime
8829 if {![info exists startmstime]} {
8830 set startmstime [clock clicks -milliseconds]
8831 }
8833 }
8835 proc rowmenu {x y id} {
8836 global rowctxmenu selectedline rowmenuid curview
8837 global nullid nullid2 fakerowmenu mainhead markedid
8839 stopfinding
8842 set state disabled
8843 } else {
8844 set state normal
8845 }
8847 set mstate normal
8848 } else {
8849 set mstate disabled
8850 }
8855 } else {
8857 }
8861 } else {
8863 }
8870 }
8872 proc markhere {} {
8873 global rowmenuid markedid canv
8877 }
8879 proc gotomark {} {
8880 global markedid
8882 if {[info exists markedid]} {
8884 }
8885 }
8887 proc replace_by_kids {l r} {
8888 global curview children
8894 }
8896 }
8898 proc find_common_desc {} {
8899 global markedid rowmenuid curview children
8901 if {![info exists markedid]} return
8904 #set t1 [clock clicks -milliseconds]
8907 while 1 {
8913 break
8914 }
8917 } else {
8919 }
8920 }
8921 #set t2 [clock clicks -milliseconds]
8923 }
8925 proc compare_commits {} {
8926 global markedid rowmenuid curview children
8928 if {![info exists markedid]} return
8932 }
8934 proc getpatchid {id} {
8935 global patchids
8939 # trim off the initial "|"
8941 if {[catch {
8944 }]} {
8946 }
8947 }
8949 }
8951 proc do_cmp_commits {a b} {
8952 global ctext curview parents children patchids commitinfo
8955 clear_ctext
8956 init_flist {}
8958 set skipa 0
8959 set skipb 0
8962 set skipa 1
8963 } else {
8965 }
8968 set skipb 1
8969 } else {
8971 }
8977 [mc " - stopping\n"]
8978 break
8979 }
8982 [mc " - stopping\n"]
8983 break
8984 }
8989 } else {
8993 }
8994 set skipa 1
8995 set skipb 1
8996 } else {
9003 update
9005 return
9006 }
9007 }
9014 break
9015 }
9017 }
9023 break
9024 }
9026 }
9027 }
9029 }
9031 proc diffcommits {a b} {
9032 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
9034 set tmpdir [gitknewtmpdir]
9037 if {[catch {
9040 } err]} {
9042 return
9043 }
9044 if {[catch {
9046 } err]} {
9048 return
9049 }
9052 set diffinhdr 0
9053 set currdiffsubmod ""
9055 }
9057 proc diffvssel {dirn} {
9058 global rowmenuid selectedline
9064 } else {
9067 }
9070 }
9072 proc diffvsmark {dirn} {
9073 global rowmenuid markedid
9075 if {![info exists markedid]} return
9079 } else {
9082 }
9085 }
9087 proc doseldiff {oldid newid} {
9088 global ctext
9089 global commitinfo
9092 clear_ctext
9093 init_flist [mc "Top"]
9108 }
9110 proc mkpatch {} {
9111 global rowmenuid currentid commitinfo patchtop patchnum NS
9113 if {![info exists currentid]} return
9118 set top .patch
9148 incr patchnum
9160 }
9162 proc mkpatchrev {} {
9163 global patchtop
9169 foreach e [list fromsha1 fromhead tosha1 tohead] \
9175 }
9176 }
9178 proc mkpatchgo {} {
9179 global patchtop nullid nullid2
9185 # trim off the initial "|"
9190 }
9192 unset patchtop
9193 }
9195 proc mkpatchcan {} {
9196 global patchtop
9199 unset patchtop
9200 }
9202 proc mktag {} {
9203 global rowmenuid mktagtop commitinfo NS
9205 set top .maketag
9239 }
9241 proc domktag {} {
9242 global mktagtop env tagids idtags
9249 return 0
9250 }
9253 return 0
9254 }
9255 if {[catch {
9258 } else {
9260 }
9261 } err]} {
9263 return 0
9264 }
9270 dispneartags 0
9271 run refill_reflist
9272 return 1
9273 }
9275 proc redrawtags {id} {
9276 global canv linehtag idpos currentid curview cmitlisted markedid
9277 global canvxmax iddrawn circleitem mainheadid circlecolors
9278 global mainheadcirclecolor
9285 } else {
9287 }
9297 setcanvscroll
9298 }
9301 }
9304 }
9305 }
9307 proc mktagcan {} {
9308 global mktagtop
9311 unset mktagtop
9312 }
9314 proc mktaggo {} {
9315 if {![domktag]} return
9316 mktagcan
9317 }
9319 proc writecommit {} {
9320 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9322 set top .writecommit
9355 }
9357 proc wrcomgo {} {
9358 global wrcomtop
9365 }
9367 unset wrcomtop
9368 }
9370 proc wrcomcan {} {
9371 global wrcomtop
9374 unset wrcomtop
9375 }
9377 proc mkbranch {} {
9378 global rowmenuid mkbrtop NS
9380 set top .makebranch
9404 }
9406 proc mkbrgo {top} {
9407 global headids idheads
9411 set cmdargs {}
9412 set old_id {}
9415 return
9416 }
9418 if {![confirm_popup [mc \
9420 return
9421 }
9423 lappend cmdargs -f
9424 }
9427 nowbusy newbranch
9428 update
9429 if {[catch {
9431 } err]} {
9432 notbusy newbranch
9434 } else {
9435 notbusy newbranch
9441 } else {
9446 }
9447 dispneartags 0
9448 run refill_reflist
9449 }
9450 }
9452 proc exec_citool {tool_args {baseid {}}} {
9453 global commitinfo env
9455 set save_env [array get env GIT_AUTHOR_*]
9460 }
9463 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9469 }
9470 }
9474 array unset env GIT_AUTHOR_*
9476 }
9478 proc cherrypick {} {
9479 global rowmenuid curview
9480 global mainhead mainheadid
9481 global gitdir
9483 set oldhead [exec git rev-parse HEAD]
9486 set ok [confirm_popup [mc "Commit %s is already\
9487 included in branch %s -- really re-apply it?" \
9490 }
9491 nowbusy cherrypick [mc "Cherry-picking"]
9492 update
9493 # Unfortunately git-cherry-pick writes stuff to stderr even when
9494 # no error occurs, and exec takes that as an indication of error...
9496 notbusy cherrypick
9497 if {[regexp -line \
9498 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9500 error_popup [mc "Cherry-pick failed because of local changes\
9501 to file '%s'.\nPlease commit, reset or stash\
9503 } elseif {[regexp -line \
9504 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9506 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9507 conflict.\nDo you wish to run git citool to\
9508 resolve it?"]]} {
9509 # Force citool to read MERGE_MSG
9512 }
9513 } else {
9515 }
9516 run updatecommits
9517 return
9518 }
9519 set newhead [exec git rev-parse HEAD]
9521 notbusy cherrypick
9522 error_popup [mc "No changes committed"]
9523 return
9524 }
9527 # XXX this isn't right if we have a path limit...
9532 }
9537 }
9538 notbusy cherrypick
9539 }
9541 proc revert {} {
9542 global rowmenuid curview
9543 global mainhead mainheadid
9544 global gitdir
9546 set oldhead [exec git rev-parse HEAD]
9549 set ok [confirm_popup [mc "Commit %s is not\
9550 included in branch %s -- really revert it?" \
9553 }
9554 nowbusy revert [mc "Reverting"]
9555 update
9558 notbusy revert
9559 if [regexp {files would be overwritten by merge:(\n(( |\t)+[^\n]+\n)+)}\
9562 error_popup [mc "Revert failed because of local changes to\
9563 the following files:%s Please commit, reset or stash \
9566 if [confirm_popup [mc "Revert failed because of merge conflict.\n\
9567 Do you wish to run git citool to resolve it?"]] {
9568 # Force citool to read MERGE_MSG
9571 }
9573 run updatecommits
9574 return
9575 }
9577 set newhead [exec git rev-parse HEAD]
9579 notbusy revert
9580 error_popup [mc "No changes committed"]
9581 return
9582 }
9587 # XXX this isn't right if we have a path limit...
9592 }
9597 }
9599 notbusy revert
9600 }
9602 proc resethead {} {
9603 global mainhead rowmenuid confirm_ok resettype NS
9605 set confirm_ok 0
9606 set w ".confirmreset"
9614 set resettype mixed
9616 -text [mc "Soft: Leave working tree and index untouched"]
9619 -text [mc "Mixed: Leave working tree untouched, reset index"]
9622 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9633 if {[catch {set fd [open \
9636 } else {
9637 dohidelocalchanges
9639 nowbusy reset [mc "Resetting"]
9641 }
9642 }
9644 proc readresetstat {fd} {
9645 global mainhead mainheadid showlocalchanges rprogcoord
9650 adjustprogress
9651 }
9652 return 1
9653 }
9654 set rprogcoord 0
9655 adjustprogress
9656 notbusy reset
9659 }
9661 set newhead [exec git rev-parse HEAD]
9668 }
9670 doshowlocalchanges
9671 }
9672 return 0
9673 }
9675 # context menu for a head
9676 proc headmenu {x y id head} {
9677 global headmenuid headmenuhead headctxmenu mainhead
9679 stopfinding
9682 set state normal
9684 set state disabled
9685 }
9687 set state disabled
9688 }
9692 }
9694 proc cobranch {} {
9695 global headmenuid headmenuhead headids
9696 global showlocalchanges
9698 # check the tree is clean first??
9699 nowbusy checkout [mc "Checking out"]
9700 update
9701 dohidelocalchanges
9702 if {[catch {
9704 } err]} {
9705 notbusy checkout
9708 dodiffindex
9709 }
9710 } else {
9712 }
9713 }
9715 proc readcheckoutstat {fd newhead newheadid} {
9716 global mainhead mainheadid headids showlocalchanges progresscoords
9717 global viewmainheadid curview
9722 adjustprogress
9723 }
9724 return 1
9725 }
9726 set progresscoords {0 0}
9727 adjustprogress
9728 notbusy checkout
9731 }
9740 dodiffindex
9741 }
9742 }
9744 proc rmbranch {} {
9745 global headmenuid headmenuhead mainhead
9746 global idheads
9750 # this check shouldn't be needed any more...
9752 error_popup [mc "Cannot delete the currently checked-out branch"]
9753 return
9754 }
9757 # the stuff on this branch isn't on any other branch
9758 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9760 }
9761 nowbusy rmbranch
9762 update
9764 notbusy rmbranch
9766 return
9767 }
9771 notbusy rmbranch
9772 dispneartags 0
9773 run refill_reflist
9774 }
9776 # Display a list of tags and heads
9777 proc showrefs {} {
9778 global showrefstop bgcolor fgcolor selectbgcolor NS
9779 global bglist fglist reflistfilter reflist maincursor
9781 set top .showrefs
9785 refill_reflist
9786 return
9787 }
9795 -spacing1 1 -spacing3 1 -state disabled
9806 set reflistfilter "*"
9807 trace add variable reflistfilter write reflistfilter_change
9819 set reflist {}
9820 refill_reflist
9821 }
9823 proc sel_reflist {w x y} {
9824 global showrefstop reflist headids tagids otherrefids
9834 }
9836 }
9838 proc unsel_reflist {} {
9839 global showrefstop
9843 }
9845 proc reflistfilter_change {n1 n2 op} {
9846 global reflistfilter
9848 after cancel refill_reflist
9849 after 200 refill_reflist
9850 }
9852 proc refill_reflist {} {
9853 global reflist reflistfilter showrefstop headids tagids otherrefids
9854 global curview
9857 set refs {}
9858 foreach n [array names headids] {
9862 } else {
9864 }
9865 }
9866 }
9867 foreach n [array names tagids] {
9871 } else {
9873 }
9874 }
9875 }
9876 foreach n [array names otherrefids] {
9880 } else {
9882 }
9883 }
9884 }
9892 set i 0
9893 set j 0
9902 }
9903 } else {
9904 set cmp -1
9905 }
9906 } else {
9907 set cmp 1
9908 }
9910 -1 {
9912 incr i
9913 }
9914 0 {
9915 incr i
9916 incr j
9917 }
9918 1 {
9923 incr j
9924 }
9925 }
9926 }
9928 # delete last newline
9931 }
9933 # Stuff for finding nearby tags
9934 proc getallcommits {} {
9935 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9936 global idheads idtags idotherrefs allparents tagobjid
9937 global gitdir
9939 if {![info exists allcommits]} {
9940 set nextarc 0
9941 set allcommits 0
9942 set seeds {}
9943 set allcwait 0
9944 set cachedarcs 0
9946 if {![catch {
9948 set allcwait 1
9950 }]} return
9951 }
9954 return
9955 }
9956 set cmd [list | git rev-list --parents]
9959 set ids "--all"
9960 } else {
9961 set refs [concat [array names idheads] [array names idtags] \
9962 [array names idotherrefs]]
9963 set ids {}
9964 set tagobjs {}
9965 foreach name [array names tagobjid] {
9967 }
9972 }
9973 }
9977 }
9978 }
9979 }
9983 incr allcommits
9984 nowbusy allcommits
9986 } else {
9987 dispneartags 0
9988 }
9989 }
9991 # Since most commits have 1 parent and 1 child, we group strings of
9992 # such commits into "arcs" joining branch/merge points (BMPs), which
9993 # are commits that either don't have 1 parent or don't have 1 child.
9994 #
9995 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9996 # arcout(id) - outgoing arcs for BMP
9997 # arcids(a) - list of IDs on arc including end but not start
9998 # arcstart(a) - BMP ID at start of arc
9999 # arcend(a) - BMP ID at end of arc
10000 # growing(a) - arc a is still growing
10001 # arctags(a) - IDs out of arcids (excluding end) that have tags
10002 # archeads(a) - IDs out of arcids (excluding end) that have heads
10003 # The start of an arc is at the descendent end, so "incoming" means
10004 # coming from descendents, and "outgoing" means going towards ancestors.
10006 proc getallclines {fd} {
10007 global allparents allchildren idtags idheads nextarc
10008 global arcnos arcids arctags arcout arcend arcstart archeads growing
10009 global seeds allcommits cachedarcs allcupdate
10011 set nid 0
10015 # seen it already
10016 continue
10017 }
10018 set cachedarcs 0
10025 } else {
10031 }
10034 }
10036 # seen parent already
10039 }
10043 }
10046 continue
10047 }
10048 }
10053 }
10055 set ao {}
10058 set a [incr nextarc]
10067 # seen it already, may need to make a new branch
10070 }
10074 }
10076 }
10078 }
10080 global cached_dheads cached_dtags cached_atags
10081 catch {unset cached_dheads}
10082 catch {unset cached_dtags}
10083 catch {unset cached_atags}
10084 }
10087 }
10088 set cacheok 1
10089 if {[catch {
10092 } err]} {
10093 # got an error reading the list of commits
10094 # if we were updating, try rereading the whole thing again
10096 incr allcommits -1
10098 return
10099 }
10100 error_popup "[mc "Error reading commit topology information;\
10101 branch and preceding/following tag information\
10103 set cacheok 0
10104 }
10105 if {[incr allcommits -1] == 0} {
10106 notbusy allcommits
10108 run savecache
10109 }
10110 }
10111 dispneartags 0
10112 return 0
10113 }
10115 proc recalcarc {a} {
10116 global arctags archeads arcids idtags idheads
10118 set at {}
10119 set ah {}
10123 }
10126 }
10127 }
10130 }
10132 proc splitarc {p} {
10133 global arcnos arcids nextarc arctags archeads idtags idheads
10134 global arcstart arcend arcout allparents growing
10139 return
10140 }
10145 return
10146 }
10147 set na [incr nextarc]
10150 } else {
10154 }
10164 }
10169 } else {
10172 }
10173 }
10175 # reconstruct tags and heads lists
10179 } else {
10182 }
10183 }
10185 # Update things for a new commit added that is a child of one
10186 # existing commit. Used when cherry-picking.
10187 proc addnewchild {id p} {
10188 global allparents allchildren idtags nextarc
10189 global arcnos arcids arctags arcout arcend arcstart archeads growing
10190 global seeds allcommits
10198 set a [incr nextarc]
10206 }
10209 }
10211 # This implements a cache for the topology information.
10212 # The cache saves, for each arc, the start and end of the arc,
10213 # the ids on the arc, and the outgoing arcs from the end.
10214 proc readcache {f} {
10215 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
10216 global idtags idheads allparents cachedarcs possible_seeds seeds growing
10217 global allcwait
10223 }
10224 if {[catch {
10226 # finish reading the cache and setting up arctags, etc.
10230 foreach id [array names idtags] {
10236 }
10237 }
10238 }
10239 foreach id [array names idheads] {
10245 }
10246 }
10247 }
10251 }
10252 }
10253 set allcwait 0
10254 } else {
10264 }
10268 } else {
10272 }
10273 }
10279 }
10282 }
10285 }
10287 }
10288 } err]} {
10290 return 0
10291 }
10293 getallcommits
10294 }
10296 }
10298 proc getcache {f} {
10299 global nextarc cachedarcs possible_seeds
10301 if {[catch {
10304 # make sure it's an integer
10307 set nextarc 0
10308 set possible_seeds {}
10310 } err]} {
10312 }
10313 return 0
10314 }
10316 proc dropcache {err} {
10317 global allcwait nextarc cachedarcs seeds
10320 foreach v {arcnos arcout arcids arcstart arcend growing \
10321 arctags archeads allparents allchildren} {
10324 }
10325 set allcwait 0
10326 set nextarc 0
10327 set cachedarcs 0
10328 set seeds {}
10329 getallcommits
10330 }
10332 proc writecache {f} {
10333 global cachearc cachedarcs allccache
10334 global arcstart arcend arcnos arcids arcout
10340 }
10341 if {[catch {
10345 } else {
10347 }
10348 }
10349 } err]} {
10353 return 0
10354 }
10359 return 0
10360 }
10361 return 1
10362 }
10364 proc savecache {} {
10365 global nextarc cachedarcs cachearc allccache
10368 set cachearc 0
10370 catch {
10374 }
10375 }
10377 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10378 # or 0 if neither is true.
10379 proc anc_or_desc {a b} {
10380 global arcout arcstart arcend arcnos cached_isanc
10383 # Both are on the same arc(s); either both are the same BMP,
10384 # or if one is not a BMP, the other is also not a BMP or is
10385 # the BMP at end of the arc (and it only has 1 incoming arc).
10386 # Or both can be BMPs with no incoming arcs.
10388 return 0
10389 }
10395 return 1
10396 } else {
10397 return -1
10398 }
10399 }
10405 } else {
10406 set aend {}
10407 }
10409 } else {
10411 }
10416 } else {
10417 set bend {}
10418 }
10420 } else {
10422 }
10424 return 1
10425 }
10427 return -1
10428 }
10431 return 1
10432 }
10433 }
10436 return -1
10437 }
10439 return 0
10440 }
10441 }
10449 continue
10450 }
10456 return 1
10460 return -1
10461 }
10467 }
10468 }
10469 }
10472 return 0
10473 }
10477 # and returns 0 if so and 1 if not.
10478 # If we subsequently discover a tag on such a growing tip, and that
10481 # isn't a good choice to display as a descendent tag of
10485 #
10486 proc is_certain {desc anc} {
10487 global arcnos arcout arcstart arcend growing problems
10489 set certain {}
10491 # tags on the same arc are certain
10493 return 1
10494 }
10499 }
10500 }
10503 } else {
10506 }
10508 return 1
10509 }
10512 set nnh 1
10513 set ngrowanc 0
10517 incr nnh -1
10518 }
10524 incr ngrowanc
10525 }
10526 } else {
10533 incr nnh -1
10534 }
10536 incr ngrowanc -1
10537 }
10547 incr nnh -1
10548 }
10550 incr ngrowanc -1
10551 }
10553 }
10554 }
10555 }
10556 }
10557 }
10558 }
10562 } else {
10565 incr nnh
10566 }
10567 }
10568 }
10569 }
10570 foreach x [array names growanc] {
10572 return 0
10573 }
10574 return 0
10575 }
10576 return 1
10577 }
10579 proc validate_arctags {a} {
10580 global arctags idtags
10582 set i -1
10585 incr i
10588 incr i -1
10589 }
10590 }
10592 }
10594 proc validate_archeads {a} {
10595 global archeads idheads
10597 set i -1
10600 incr i
10603 incr i -1
10604 }
10605 }
10607 }
10609 # Return the list of IDs that have tags that are descendents of id,
10610 # ignoring IDs that are descendents of IDs already reported.
10611 proc desctags {id} {
10612 global arcnos arcstart arcids arctags idtags allparents
10613 global growing cached_dtags
10616 return {}
10617 }
10618 set t1 [clock clicks -milliseconds]
10621 # part-way along an arc; check that arc first
10626 set tid {}
10631 }
10634 }
10635 }
10639 }
10640 }
10643 }
10648 set nc 1
10654 incr nc -1
10655 }
10656 # ignore tags on starting node
10660 set ta 1
10663 set ta 1
10664 }
10665 }
10672 }
10673 }
10682 }
10685 }
10687 incr nc -1
10688 }
10690 }
10691 }
10692 }
10697 incr nc
10698 }
10699 }
10700 }
10701 }
10702 set tags {}
10703 foreach id [array names tagloc] {
10708 }
10709 }
10710 }
10711 }
10712 set t2 [clock clicks -milliseconds]
10715 # remove tags that are descendents of other tags
10723 incr j -1
10724 incr i -1
10727 incr i -1
10728 break
10729 }
10730 }
10731 }
10733 if {[array names growing] ne {}} {
10734 # graph isn't finished, need to check if any tag could get
10735 # eclipsed by another tag coming later. Simply ignore any
10736 # tags that could later get eclipsed.
10737 set ctags {}
10741 }
10742 }
10745 } else {
10747 }
10748 } else {
10750 }
10751 set t3 [clock clicks -milliseconds]
10755 }
10757 }
10759 proc anctags {id} {
10760 global arcnos arcids arcout arcend arctags idtags allparents
10761 global growing cached_atags
10764 return {}
10765 }
10766 set t1 [clock clicks -milliseconds]
10769 # part-way along an arc; check that arc first
10778 }
10779 }
10780 }
10782 return {}
10783 }
10787 }
10788 }
10791 }
10796 set taglist {}
10797 set nc 1
10803 incr nc -1
10804 }
10805 # ignore tags on starting node
10809 set td 1
10812 set td 1
10813 }
10814 }
10820 }
10821 }
10833 }
10834 }
10837 }
10839 incr nc -1
10840 }
10842 }
10843 }
10844 }
10849 incr nc
10850 }
10851 }
10852 }
10853 }
10854 set t2 [clock clicks -milliseconds]
10856 set tags {}
10857 foreach id [array names tagloc] {
10862 }
10863 }
10864 }
10865 }
10867 # remove tags that are ancestors of other tags
10875 incr j -1
10876 incr i -1
10879 incr i -1
10880 break
10881 }
10882 }
10883 }
10885 if {[array names growing] ne {}} {
10886 # graph isn't finished, need to check if any tag could get
10887 # eclipsed by another tag coming later. Simply ignore any
10888 # tags that could later get eclipsed.
10889 set ctags {}
10893 }
10894 }
10897 } else {
10899 }
10900 } else {
10902 }
10903 set t3 [clock clicks -milliseconds]
10907 }
10909 }
10911 # Return the list of IDs that have heads that are descendents of id,
10912 # including id itself if it has a head.
10913 proc descheads {id} {
10914 global arcnos arcstart arcids archeads idheads cached_dheads
10915 global allparents arcout
10918 return {}
10919 }
10920 set aret {}
10922 # part-way along an arc; check it first
10931 }
10932 }
10934 }
10938 set ret {}
10943 } else {
10946 }
10952 }
10953 }
10958 }
10959 }
10960 }
10961 }
10965 }
10967 proc addedtag {id} {
10968 global arcnos arcout cached_dtags cached_atags
10973 }
10974 catch {unset cached_dtags}
10975 catch {unset cached_atags}
10976 }
10978 proc addedhead {hid head} {
10979 global arcnos arcout cached_dheads
10984 }
10985 catch {unset cached_dheads}
10986 }
10988 proc removedhead {hid head} {
10989 global cached_dheads
10991 catch {unset cached_dheads}
10992 }
10994 proc movedhead {hid head} {
10995 global arcnos arcout cached_dheads
11000 }
11001 catch {unset cached_dheads}
11002 }
11004 proc changedrefs {} {
11005 global cached_dheads cached_dtags cached_atags cached_tagcontent
11006 global arctags archeads arcnos arcout idheads idtags
11008 foreach id [concat [array names idheads] [array names idtags]] {
11014 }
11015 }
11016 }
11017 catch {unset cached_tagcontent}
11018 catch {unset cached_dtags}
11019 catch {unset cached_atags}
11020 catch {unset cached_dheads}
11021 }
11023 proc rereadrefs {} {
11024 global idtags idheads idotherrefs mainheadid
11026 set refids [concat [array names idtags] \
11027 [array names idheads] [array names idotherrefs]]
11031 }
11032 }
11034 readrefs
11035 changedrefs
11037 [array names idheads] [array names idotherrefs]]]
11042 }
11043 }
11047 }
11048 run refill_reflist
11049 }
11051 proc listrefs {id} {
11052 global idtags idheads idotherrefs
11054 set x {}
11057 }
11058 set y {}
11061 }
11062 set z {}
11065 }
11067 }
11069 proc add_tag_ctext {tag} {
11070 global ctext cached_tagcontent tagids
11073 catch {
11075 }
11076 }
11080 } else {
11082 }
11084 }
11086 proc showtag {tag isnew} {
11087 global ctext cached_tagcontent tagids linknum tagobjid
11091 }
11093 clear_ctext
11094 settabs 0
11095 set linknum 0
11097 maybe_scroll_ctext 1
11099 init_flist {}
11100 }
11102 proc showtags {id isnew} {
11103 global idtags ctext linknum
11107 }
11109 clear_ctext
11110 settabs 0
11111 set linknum 0
11112 set sep {}
11116 set sep "\n\n"
11117 }
11118 maybe_scroll_ctext 1
11120 init_flist {}
11121 }
11123 proc doquit {} {
11124 global stopped
11125 global gitktmpdir
11127 set stopped 100
11128 savestuff .
11129 destroy .
11131 if {[info exists gitktmpdir]} {
11133 }
11134 }
11136 proc mkfontdisp {font top which} {
11145 }
11147 proc choosefont {font which} {
11148 global fontparam fontlist fonttop fontattr
11149 global prefstop NS
11157 set top .gitkfont
11160 font create sample
11167 set fontlist [lsort [font families]]
11178 -textvariable fontparam(size) \
11179 -validatecommand {string is integer -strict %s}
11181 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
11182 -variable fontparam(weight) -onvalue bold -offvalue normal
11184 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
11185 -variable fontparam(slant) -onvalue italic -offvalue roman
11189 -background white
11191 -fill black -tags text
11203 trace add variable fontparam write chg_fontparam
11204 } else {
11207 }
11212 }
11213 }
11215 proc centertext {w} {
11217 }
11219 proc fontok {} {
11220 global fontparam fontpref prefstop
11226 }
11229 }
11233 fontcan
11234 }
11236 proc fontcan {} {
11237 global fonttop fontparam
11239 if {[info exists fonttop]} {
11241 catch {font delete sample}
11242 unset fonttop
11243 unset fontparam
11244 }
11245 }
11247 if {[package vsatisfies [package provide Tk] 8.6]} {
11248 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
11249 # function to make use of it.
11250 proc choosefont {font which} {
11253 tk fontchooser show
11254 }
11255 proc on_choosefont {font which newfont} {
11256 global fontparam
11265 fontok
11266 }
11267 }
11269 proc selfontfam {} {
11270 global fonttop fontparam
11275 }
11276 }
11278 proc chg_fontparam {v sub op} {
11279 global fontparam
11282 }
11284 # Create a property sheet tab page
11285 proc create_prefs_page {w} {
11286 global NS
11290 } else {
11292 }
11293 }
11295 proc prefspage_general {notebook} {
11296 global NS maxwidth maxgraphpct showneartags showlocalchanges
11297 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11298 global hideremotes want_ttk have_ttk maxrefs
11312 -variable showlocalchanges
11315 -variable autoselect
11319 -variable hideremotes
11328 -variable showneartags
11334 -variable limitdiffs
11337 -variable perfile_attrs
11351 -text [mc "Use themed widgets"]
11354 } else {
11356 }
11359 }
11361 proc prefspage_colors {notebook} {
11362 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11393 [mc "diff hunk header"] \
11399 [mc "marked line background"] \
11407 }
11409 proc prefspage_fonts {notebook} {
11410 global NS
11418 }
11420 proc doprefs {} {
11421 global maxwidth maxgraphpct use_ttk NS
11422 global oldprefs prefstop showneartags showlocalchanges
11423 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11424 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11425 global hideremotes want_ttk have_ttk
11427 set top .gitkprefs
11431 return
11432 }
11433 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11434 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11436 }
11443 } else {
11445 }
11450 set col 0
11454 } else {
11460 }
11461 }
11467 }
11484 }
11486 proc choose_extdiff {} {
11487 global extdifftool
11489 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11492 }
11493 }
11495 proc choosecolor {v vi w x cmd} {
11504 }
11506 proc setselbg {c} {
11507 global bglist cflist
11510 }
11514 }
11516 # This sets the background color and the color scheme for the whole UI.
11517 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11518 # if we don't specify one ourselves, which makes the checkbuttons and
11519 # radiobuttons look bad. This chooses white for selectColor if the
11520 # background color is light, or black if it is dark.
11521 proc setui {c} {
11522 if {[tk windowingsystem] eq "win32"} { return }
11524 set selc black
11526 set selc white
11527 }
11529 }
11531 proc setbg {c} {
11532 global bglist
11536 }
11537 }
11539 proc setfg {c} {
11540 global fglist canv
11544 }
11548 }
11550 proc prefscan {} {
11551 global oldprefs prefstop
11553 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11554 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11557 }
11559 unset prefstop
11560 fontcan
11561 }
11563 proc prefsok {} {
11564 global maxwidth maxgraphpct
11565 global oldprefs prefstop showneartags showlocalchanges
11566 global fontpref mainfont textfont uifont
11567 global limitdiffs treediffs perfile_attrs
11568 global hideremotes
11571 unset prefstop
11572 fontcan
11573 set fontchanged 0
11577 eval font configure mainfont [fontflags mainfont]
11578 eval font configure mainfontbold [fontflags mainfont 1]
11579 setcoords
11580 set fontchanged 1
11581 }
11585 eval font configure textfont [fontflags textfont]
11586 eval font configure textfontbold [fontflags textfont 1]
11587 }
11591 eval font configure uifont [fontflags uifont]
11592 }
11593 settabs
11596 doshowlocalchanges
11597 } else {
11598 dohidelocalchanges
11599 }
11600 }
11603 # treediffs elements are limited by path;
11604 # won't have encodings cached if perfile_attrs was just turned on
11605 catch {unset treediffs}
11606 }
11609 redisplay
11612 reselectline
11613 }
11615 rereadrefs
11616 }
11617 }
11619 proc formatdate {d} {
11620 global datetimeformat
11623 # timezone of the argument. Otherwise, display in local time.
11625 if {[catch {set d [clock format [lindex $d 0] -timezone [lindex $d 1] -format $datetimeformat]}]} {
11626 # Tcl < 8.5 does not support -timezone. Emulate it by
11627 # setting TZ (e.g. TZ=<-0430>+04:30).
11628 global env
11629 if {[info exists env(TZ)]} {
11631 }
11636 if {[info exists savedTZ]} {
11638 } else {
11639 unset env(TZ)
11640 }
11641 }
11642 } else {
11644 }
11645 }
11647 }
11649 # This list of encoding names and aliases is distilled from
11650 # http://www.iana.org/assignments/character-sets.
11651 # Not all of them are supported by Tcl.
11652 set encoding_aliases {
11653 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11654 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11655 { ISO-10646-UTF-1 csISO10646UTF1 }
11656 { ISO_646.basic:1983 ref csISO646basic1983 }
11657 { INVARIANT csINVARIANT }
11658 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11659 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11660 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11661 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11662 { NATS-DANO iso-ir-9-1 csNATSDANO }
11663 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11664 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11665 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11666 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11667 { ISO-2022-KR csISO2022KR }
11668 { EUC-KR csEUCKR }
11669 { ISO-2022-JP csISO2022JP }
11670 { ISO-2022-JP-2 csISO2022JP2 }
11671 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11672 csISO13JISC6220jp }
11673 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11674 { IT iso-ir-15 ISO646-IT csISO15Italian }
11675 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11676 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11677 { greek7-old iso-ir-18 csISO18Greek7Old }
11678 { latin-greek iso-ir-19 csISO19LatinGreek }
11679 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11680 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11681 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11682 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11683 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11684 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11685 { INIS iso-ir-49 csISO49INIS }
11686 { INIS-8 iso-ir-50 csISO50INIS8 }
11687 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11688 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11689 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11690 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11691 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11692 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11693 csISO60Norwegian1 }
11694 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11695 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11696 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11697 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11698 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11699 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11700 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11701 { greek7 iso-ir-88 csISO88Greek7 }
11702 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11703 { iso-ir-90 csISO90 }
11704 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11705 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11706 csISO92JISC62991984b }
11707 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11708 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11709 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11710 csISO95JIS62291984handadd }
11711 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11712 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11713 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11714 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11715 CP819 csISOLatin1 }
11716 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11717 { T.61-7bit iso-ir-102 csISO102T617bit }
11718 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11719 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11720 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11721 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11722 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11723 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11724 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11725 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11726 arabic csISOLatinArabic }
11727 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11728 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11729 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11730 greek greek8 csISOLatinGreek }
11731 { T.101-G2 iso-ir-128 csISO128T101G2 }
11732 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11733 csISOLatinHebrew }
11734 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11735 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11736 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11737 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11738 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11739 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11740 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11741 csISOLatinCyrillic }
11742 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11743 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11744 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11745 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11746 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11747 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11748 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11749 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11750 { ISO_10367-box iso-ir-155 csISO10367Box }
11751 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11752 { latin-lap lap iso-ir-158 csISO158Lap }
11753 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11754 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11755 { us-dk csUSDK }
11756 { dk-us csDKUS }
11757 { JIS_X0201 X0201 csHalfWidthKatakana }
11758 { KSC5636 ISO646-KR csKSC5636 }
11759 { ISO-10646-UCS-2 csUnicode }
11760 { ISO-10646-UCS-4 csUCS4 }
11761 { DEC-MCS dec csDECMCS }
11762 { hp-roman8 roman8 r8 csHPRoman8 }
11763 { macintosh mac csMacintosh }
11764 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11765 csIBM037 }
11766 { IBM038 EBCDIC-INT cp038 csIBM038 }
11767 { IBM273 CP273 csIBM273 }
11768 { IBM274 EBCDIC-BE CP274 csIBM274 }
11769 { IBM275 EBCDIC-BR cp275 csIBM275 }
11770 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11771 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11772 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11773 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11774 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11775 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11776 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11777 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11778 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11779 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11780 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11781 { IBM437 cp437 437 csPC8CodePage437 }
11782 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11783 { IBM775 cp775 csPC775Baltic }
11784 { IBM850 cp850 850 csPC850Multilingual }
11785 { IBM851 cp851 851 csIBM851 }
11786 { IBM852 cp852 852 csPCp852 }
11787 { IBM855 cp855 855 csIBM855 }
11788 { IBM857 cp857 857 csIBM857 }
11789 { IBM860 cp860 860 csIBM860 }
11790 { IBM861 cp861 861 cp-is csIBM861 }
11791 { IBM862 cp862 862 csPC862LatinHebrew }
11792 { IBM863 cp863 863 csIBM863 }
11793 { IBM864 cp864 csIBM864 }
11794 { IBM865 cp865 865 csIBM865 }
11795 { IBM866 cp866 866 csIBM866 }
11796 { IBM868 CP868 cp-ar csIBM868 }
11797 { IBM869 cp869 869 cp-gr csIBM869 }
11798 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11799 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11800 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11801 { IBM891 cp891 csIBM891 }
11802 { IBM903 cp903 csIBM903 }
11803 { IBM904 cp904 904 csIBBM904 }
11804 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11805 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11806 { IBM1026 CP1026 csIBM1026 }
11807 { EBCDIC-AT-DE csIBMEBCDICATDE }
11808 { EBCDIC-AT-DE-A csEBCDICATDEA }
11809 { EBCDIC-CA-FR csEBCDICCAFR }
11810 { EBCDIC-DK-NO csEBCDICDKNO }
11811 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11812 { EBCDIC-FI-SE csEBCDICFISE }
11813 { EBCDIC-FI-SE-A csEBCDICFISEA }
11814 { EBCDIC-FR csEBCDICFR }
11815 { EBCDIC-IT csEBCDICIT }
11816 { EBCDIC-PT csEBCDICPT }
11817 { EBCDIC-ES csEBCDICES }
11818 { EBCDIC-ES-A csEBCDICESA }
11819 { EBCDIC-ES-S csEBCDICESS }
11820 { EBCDIC-UK csEBCDICUK }
11821 { EBCDIC-US csEBCDICUS }
11822 { UNKNOWN-8BIT csUnknown8BiT }
11823 { MNEMONIC csMnemonic }
11824 { MNEM csMnem }
11825 { VISCII csVISCII }
11826 { VIQR csVIQR }
11827 { KOI8-R csKOI8R }
11828 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11829 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11830 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11831 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11832 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11833 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11834 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11835 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11836 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11837 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11838 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11839 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11840 { IBM1047 IBM-1047 }
11841 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11842 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11843 { UNICODE-1-1 csUnicode11 }
11844 { CESU-8 csCESU-8 }
11845 { BOCU-1 csBOCU-1 }
11846 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11847 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11848 l8 }
11849 { ISO-8859-15 ISO_8859-15 Latin-9 }
11850 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11851 { GBK CP936 MS936 windows-936 }
11852 { JIS_Encoding csJISEncoding }
11853 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11854 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11855 EUC-JP }
11856 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11857 { ISO-10646-UCS-Basic csUnicodeASCII }
11858 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11859 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11860 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11861 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11862 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11863 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11864 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11865 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11866 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11867 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11868 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11869 { Ventura-US csVenturaUS }
11870 { Ventura-International csVenturaInternational }
11871 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11872 { PC8-Turkish csPC8Turkish }
11873 { IBM-Symbols csIBMSymbols }
11874 { IBM-Thai csIBMThai }
11875 { HP-Legal csHPLegal }
11876 { HP-Pi-font csHPPiFont }
11877 { HP-Math8 csHPMath8 }
11878 { Adobe-Symbol-Encoding csHPPSMath }
11879 { HP-DeskTop csHPDesktop }
11880 { Ventura-Math csVenturaMath }
11881 { Microsoft-Publishing csMicrosoftPublishing }
11882 { Windows-31J csWindows31J }
11883 { GB2312 csGB2312 }
11884 { Big5 csBig5 }
11885 }
11887 proc tcl_encoding {enc} {
11888 global encoding_aliases tcl_encoding_cache
11891 }
11892 set names [encoding names]
11897 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11900 }
11901 }
11906 # look through the aliases for one that tcl knows about
11912 }
11913 }
11915 }
11916 break
11917 }
11918 }
11919 set tclenc {}
11922 }
11925 }
11927 proc gitattr {path attr default} {
11928 global path_attr_cache
11931 } else {
11932 set r "unspecified"
11935 }
11937 }
11940 }
11942 }
11944 proc cache_gitattr {attr pathlist} {
11945 global path_attr_cache
11946 set newlist {}
11950 }
11951 }
11952 set lim 1000
11953 if {[tk windowingsystem] == "win32"} {
11954 # windows has a 32k limit on the arguments to a command...
11955 set lim 30
11956 }
11965 }
11967 }
11968 }
11969 }
11970 }
11971 }
11973 proc get_path_encoding {path} {
11974 global gui_encoding perfile_attrs
11980 }
11981 }
11983 }
11985 # First check that Tcl/Tk is recent enough
11986 if {[catch {package require Tk 8.4} err]} {
11987 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11988 Gitk requires at least Tcl/Tk 8.4." list
11989 exit 1
11990 }
11992 # on OSX bring the current Wish process window to front
11993 if {[tk windowingsystem] eq "aqua"} {
11994 exec osascript -e [format {
11995 tell application "System Events"
11996 set frontmost of processes whose unix id is %d to true
11997 end tell
11998 } [pid] ]
11999 }
12001 # Unset GIT_TRACE var if set
12002 if { [info exists ::env(GIT_TRACE)] } {
12003 unset ::env(GIT_TRACE)
12004 }
12006 # defaults...
12007 set wrcomcmd "git diff-tree --stdin -p --pretty=email"
12009 set gitencoding {}
12010 catch {
12011 set gitencoding [exec git config --get i18n.commitencoding]
12012 }
12013 catch {
12014 set gitencoding [exec git config --get i18n.logoutputencoding]
12015 }
12017 set gitencoding "utf-8"
12018 }
12022 }
12024 set gui_encoding [encoding system]
12025 catch {
12026 set enc [exec git config --get gui.encoding]
12031 } else {
12033 }
12034 }
12035 }
12037 set log_showroot true
12038 catch {
12039 set log_showroot [exec git config --bool --get log.showroot]
12040 }
12042 if {[tk windowingsystem] eq "aqua"} {
12043 set mainfont {{Lucida Grande} 9}
12044 set textfont {Monaco 9}
12045 set uifont {{Lucida Grande} 9 bold}
12047 # fontconfig!
12048 set mainfont {sans 9}
12049 set textfont {monospace 9}
12050 set uifont {sans 9 bold}
12051 } else {
12052 set mainfont {Helvetica 9}
12053 set textfont {Courier 9}
12054 set uifont {Helvetica 9 bold}
12055 }
12056 set tabstop 8
12057 set findmergefiles 0
12058 set maxgraphpct 50
12059 set maxwidth 16
12060 set revlistorder 0
12061 set fastdate 0
12062 set uparrowlen 5
12063 set downarrowlen 5
12064 set mingaplen 100
12065 set cmitmode "patch"
12066 set wrapcomment "none"
12067 set showneartags 1
12068 set hideremotes 0
12069 set maxrefs 20
12070 set visiblerefs {"master"}
12071 set maxlinelen 200
12072 set showlocalchanges 1
12073 set limitdiffs 1
12074 set datetimeformat "%Y-%m-%d %H:%M:%S"
12075 set autoselect 1
12076 set autosellen 40
12077 set perfile_attrs 0
12078 set want_ttk 1
12080 if {[tk windowingsystem] eq "aqua"} {
12081 set extdifftool "opendiff"
12082 } else {
12083 set extdifftool "meld"
12084 }
12086 set colors {green red blue magenta darkgrey brown orange}
12087 if {[tk windowingsystem] eq "win32"} {
12088 set uicolor SystemButtonFace
12089 set uifgcolor SystemButtonText
12090 set uifgdisabledcolor SystemDisabledText
12091 set bgcolor SystemWindow
12092 set fgcolor SystemWindowText
12093 set selectbgcolor SystemHighlight
12094 } else {
12095 set uicolor grey85
12096 set uifgcolor black
12097 set uifgdisabledcolor "#999"
12098 set bgcolor white
12099 set fgcolor black
12100 set selectbgcolor gray85
12101 }
12102 set diffcolors {red "#00a000" blue}
12103 set diffcontext 3
12104 set mergecolors {red blue green purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
12105 set ignorespace 0
12106 set worddiff ""
12107 set markbgcolor "#e0e0ff"
12109 set headbgcolor green
12110 set headfgcolor black
12111 set headoutlinecolor black
12112 set remotebgcolor #ffddaa
12113 set tagbgcolor yellow
12114 set tagfgcolor black
12115 set tagoutlinecolor black
12116 set reflinecolor black
12117 set filesepbgcolor #aaaaaa
12118 set filesepfgcolor black
12119 set linehoverbgcolor #ffff80
12120 set linehoverfgcolor black
12121 set linehoveroutlinecolor black
12122 set mainheadcirclecolor yellow
12123 set workingfilescirclecolor red
12124 set indexcirclecolor green
12125 set circlecolors {white blue gray blue blue}
12126 set linkfgcolor blue
12128 set foundbgcolor yellow
12129 set currentsearchhitbgcolor orange
12131 # button for popping up context menus
12132 if {[tk windowingsystem] eq "aqua"} {
12133 set ctxbut <Button-2>
12134 } else {
12135 set ctxbut <Button-3>
12136 }
12138 ## For msgcat loading, first locate the installation location.
12139 if { [info exists ::env(GITK_MSGSDIR)] } {
12140 ## Msgsdir was manually set in the environment.
12141 set gitk_msgsdir $::env(GITK_MSGSDIR)
12142 } else {
12143 ## Let's guess the prefix from argv0.
12147 unset gitk_prefix
12148 }
12150 ## Internationalization (i18n) through msgcat and gettext. See
12151 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
12152 package require msgcat
12153 namespace import ::msgcat::mc
12154 ## And eventually load the actual message catalog
12157 catch {
12158 # follow the XDG base directory specification by default. See
12159 # http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html
12161 # XDG_CONFIG_HOME environment variable is set
12164 } else {
12165 # default XDG_CONFIG_HOME
12166 set config_file "~/.config/git/gitk"
12167 set config_file_tmp "~/.config/git/gitk-tmp"
12168 }
12170 # for backward compatibility use the old config file if it exists
12171 if {[file exists "~/.gitk"]} {
12172 set config_file "~/.gitk"
12173 set config_file_tmp "~/.gitk-tmp"
12176 }
12177 }
12179 }
12181 set config_variables {
12182 mainfont textfont uifont tabstop findmergefiles maxgraphpct maxwidth
12183 cmitmode wrapcomment autoselect autosellen showneartags maxrefs visiblerefs
12184 hideremotes showlocalchanges datetimeformat limitdiffs uicolor want_ttk
12185 bgcolor fgcolor uifgcolor uifgdisabledcolor colors diffcolors mergecolors
12186 markbgcolor diffcontext selectbgcolor foundbgcolor currentsearchhitbgcolor
12187 extdifftool perfile_attrs headbgcolor headfgcolor headoutlinecolor
12188 remotebgcolor tagbgcolor tagfgcolor tagoutlinecolor reflinecolor
12189 filesepbgcolor filesepfgcolor linehoverbgcolor linehoverfgcolor
12190 linehoveroutlinecolor mainheadcirclecolor workingfilescirclecolor
12191 indexcirclecolor circlecolors linkfgcolor circleoutlinecolor
12192 }
12196 }
12199 eval font create mainfont [fontflags mainfont]
12200 eval font create mainfontbold [fontflags mainfont 1]
12203 eval font create textfont [fontflags textfont]
12204 eval font create textfontbold [fontflags textfont 1]
12207 eval font create uifont [fontflags uifont]
12211 setoptions
12213 # check that we can find a .git directory somewhere...
12214 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
12215 show_error {} . [mc "Cannot find a git repository here."]
12216 exit 1
12217 }
12219 set selecthead {}
12220 set selectheadid {}
12222 set revtreeargs {}
12223 set cmdline_files {}
12224 set i 0
12225 set revtreeargscmd {}
12228 "" { }
12229 "--" {
12231 break
12232 }
12233 "--select-commit=*" {
12235 }
12236 "--argscmd=*" {
12238 }
12239 default {
12241 }
12242 }
12243 incr i
12244 }
12247 set selecthead {}
12248 }
12251 # no -- on command line, but some arguments (other than --argscmd)
12252 if {[catch {
12257 # Unfortunately git rev-parse doesn't produce an error when
12258 # something is both a revision and a filename. To be consistent
12259 # with git log and git rev-list, check revtreeargs for filenames.
12262 show_error {} . [mc "Ambiguous argument '%s': both revision\
12264 exit 1
12265 }
12266 }
12267 } err]} {
12269 # so look for "fatal:".
12273 }
12275 exit 1
12276 }
12277 }
12279 set nullid "0000000000000000000000000000000000000000"
12280 set nullid2 "0000000000000000000000000000000000000001"
12281 set nullfile "/dev/null"
12284 if {![info exists have_ttk]} {
12285 set have_ttk [llength [info commands ::ttk::style]]
12286 }
12290 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
12292 set show_notes {}
12294 set show_notes "--show-notes"
12295 }
12297 set appname "gitk"
12299 set runq {}
12300 set history {}
12301 set historyindex 0
12302 set fh_serial 0
12303 set nhl_names {}
12304 set highlight_paths {}
12305 set findpattern {}
12306 set searchdirn -forwards
12307 set boldids {}
12308 set boldnameids {}
12309 set diffelide {0 0}
12310 set markingmatches 0
12311 set linkentercount 0
12312 set need_redisplay 0
12313 set nrows_drawn 0
12314 set firsttabstop 0
12316 set nextviewnum 1
12317 set curview 0
12318 set selectedview 0
12319 set selectedhlview [mc "None"]
12320 set highlight_related [mc "None"]
12321 set highlight_files {}
12322 set viewfiles(0) {}
12323 set viewperm(0) 0
12324 set viewchanged(0) 0
12325 set viewargs(0) {}
12326 set viewargscmd(0) {}
12328 set selectedline {}
12329 set numcommits 0
12330 set loginstance 0
12331 set cmdlineok 0
12332 set stopped 0
12333 set stuffsaved 0
12334 set patchnum 0
12335 set lserial 0
12336 set hasworktree [hasworktree]
12337 set cdup {}
12338 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
12339 set cdup [exec git rev-parse --show-cdup]
12340 }
12341 set worktree [exec git rev-parse --show-toplevel]
12342 setcoords
12343 makewindow
12344 catch {
12345 image create photo gitlogo -width 16 -height 16
12347 image create photo gitlogominus -width 4 -height 2
12348 gitlogominus put #C00000 -to 0 0 4 2
12349 gitlogo copy gitlogominus -to 1 5
12350 gitlogo copy gitlogominus -to 6 5
12351 gitlogo copy gitlogominus -to 11 5
12352 image delete gitlogominus
12354 image create photo gitlogoplus -width 4 -height 4
12355 gitlogoplus put #008000 -to 1 0 3 4
12356 gitlogoplus put #008000 -to 0 1 4 3
12357 gitlogo copy gitlogoplus -to 1 9
12358 gitlogo copy gitlogoplus -to 6 9
12359 gitlogo copy gitlogoplus -to 11 9
12360 image delete gitlogoplus
12362 image create photo gitlogo32 -width 32 -height 32
12363 gitlogo32 copy gitlogo -zoom 2 2
12365 wm iconphoto . -default gitlogo gitlogo32
12366 }
12367 # wait for the window to become visible
12368 tkwait visibility .
12370 update
12371 readrefs
12374 # create a view for the files/dirs specified on the command line
12375 set curview 1
12376 set selectedview 1
12377 set nextviewnum 2
12378 set viewname(1) [mc "Command line"]
12382 set viewperm(1) 0
12383 set viewchanged(1) 0
12384 set vdatemode(1) 0
12385 addviewmenu 1
12386 .bar.view entryconf [mca "Edit view..."] -state normal
12387 .bar.view entryconf [mca "Delete view"] -state normal
12388 }
12390 if {[info exists permviews]} {
12393 incr nextviewnum
12401 }
12402 }
12404 if {[tk windowingsystem] eq "win32"} {
12405 focus -force .
12406 }
12408 getcommits {}
12410 # Local variables:
12411 # mode: tcl
12412 # indent-tabs-mode: t
12413 # tab-width: 8
12414 # End: