| blob | b3706fc9b9bef1361f6872b00905443dea584a7d |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2011 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 worddiff git_version
163 set glflags {}
164 set diffargs {}
165 set nextisval 0
166 set revargs {}
168 set allknown 1
169 set filtered 0
170 set i -1
172 incr i
175 set nextisval 0
176 continue
177 }
179 "-d" -
180 "--date-order" {
182 # remove from origargs in case we hit an unknown option
184 incr i -1
185 }
186 "-[puabwcrRBMC]" -
187 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
188 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
189 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
190 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
191 "--ignore-space-change" - "-U*" - "--unified=*" {
192 # These request or affect diff output, which we don't want.
193 # Some could be used to set our defaults for diff display.
194 lappend diffargs $arg
195 }
203 # These cause our parsing of git log's output to fail, or else
204 # they're options we want to set ourselves, so ignore them.
205 }
207 # These trigger a word diff in the console interface,
208 # so help the user by enabling our own support
211 }
212 }
216 }
217 }
222 # These are harmless, and some are even useful
223 lappend glflags $arg
224 }
232 # These mean that we get a subset of the commits
234 lappend glflags $arg
235 }
237 # This appears to be the only one that has a value as a
238 # separate word following it
241 lappend glflags $arg
242 }
244 lappend revargs $arg
245 }
248 # git rev-parse doesn't understand --merge
249 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
250 }
253 }
255 # Other flag arguments including -<n>
259 # a flag argument that we don't recognize;
260 # that means we can't optimize
262 }
263 lappend glflags $arg
264 }
265 default {
266 # Non-flag arguments specify commits or ranges of commits
268 lappend revargs --gitk-symmetric-diff-marker
269 }
270 lappend revargs $arg
271 }
272 }
273 }
280 }
283 global vposids vnegids
286 set revs HEAD
287 }
289 # we get stdout followed by stderr in $err
290 # for an unknown rev, git rev-parse echoes it and then errors out
303 }
306 }
307 break
308 }
309 lappend badrev $line
310 }
311 }
314 }
324 lappend ret $id
327 }
328 }
332 lappend ret $id
335 }
336 lappend pos $id
337 }
338 incr sdm -1
339 }
343 }
345 # Start off a git log process and arrange to read its output
347 global startmsecs commitidx viewcomplete curview
348 global tclencoding
349 global viewargs viewargscmd viewfiles vfilelimit
350 global showlocalchanges
351 global viewactive viewinstances vmergeonly
352 global mainheadid viewmainheadid viewmainheadid_orig
353 global vcanopt vflags vrevs vorigargs
354 global show_notes
358 # these are set this way for the error exits
361 varcinit $view
370 }
372 }
379 global nr_unmerged
386 }
388 }
389 }
396 }
400 }
408 }
414 get_viewmainhead $view
415 }
418 }
422 }
428 }
431 global commfd leftover
434 catch {
441 }
442 }
444 nukefile $fd
447 }
449 proc stop_backends {} {
450 global commfd
453 stop_instance $inst
454 }
455 }
458 global viewinstances
461 stop_instance $inst
462 }
464 }
467 global pending_select mainheadid selectheadid
475 }
476 }
479 global canv curview need_redisplay viewactive
481 initlayout
483 reset_pending_select $selid
488 }
489 }
491 proc updatecommits {} {
492 global curview vcanopt vorigargs vfilelimit viewinstances
493 global viewactive viewcomplete tclencoding
494 global startmsecs showneartags showlocalchanges
495 global mainheadid viewmainheadid viewmainheadid_orig pending_select
496 global hasworktree
497 global varcid vposids vnegids vflags vrevs
498 global show_notes
501 rereadrefs
505 dohidelocalchanges
506 }
510 get_viewmainhead $view
511 }
512 }
514 doshowlocalchanges
515 }
521 return
522 }
523 # note: getting the delta when negative refs change is hard,
524 # and could require multiple git log invocations, so in that
525 # case we ask git log for all the commits (not just the delta)
529 # take out positive refs that we asked for before or
530 # that we have already seen
535 lappend newrevs $rev
536 incr npos
537 }
539 lappend $newrevs $rev
540 }
541 }
545 }
549 }
555 return
556 }
559 }
565 }
569 reset_pending_select {}
572 getallcommits
573 }
574 }
576 proc reloadcommits {} {
577 global curview viewcomplete selectedline currentid thickerline
578 global showneartags treediffs commitinterest cached_commitrow
579 global targetid
584 }
587 stop_rev_list $curview
588 }
589 resetvarcs $curview
594 readrefs
595 changedrefs
597 getallcommits
598 }
599 clear_display
603 setcanvscroll
604 getcommits $selid
606 }
608 # This makes a string representation of a positive integer which
609 # sorts as a string in numerical order
617 }
619 }
621 # Procedures used in reordering commits from git log (without
622 # --topo-order) into the order for display.
625 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
626 global vtokmod varcmod vrowmod varcix vlastins
640 }
643 global varcid varccommits parents children vseedcount ordertok
644 global vshortids
650 }
653 }
654 # some commits might have children but haven't been seen yet
657 }
660 }
663 }
665 }
667 # returns a list of the commits with no children
669 global vdownptr vleftptr varcstart
676 }
678 }
681 global varcid varctok parents children vdatemode
682 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
683 global commitdata commitinfo vseedcount varccommits vlastins
690 }
694 }
697 }
703 }
712 }
713 }
718 }
725 }
729 }
736 }
742 }
751 }
754 global varcid varcstart varccommits varctok vtokmod
755 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
763 # "%" sorts before "0"...
773 }
783 }
785 modify_arc $v $oa
786 }
787 }
790 global parents children varctok varcstart varccommits
791 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
800 lappend todo $a
805 }
806 }
807 }
808 incr ntot
815 }
816 }
818 }
825 }
831 }
840 }
841 }
846 }
848 continue
849 }
856 }
857 }
862 modify_arc $v $ka
863 }
865 modify_arc $v $b
866 }
873 }
876 }
879 }
888 }
893 }
900 }
904 }
906 }
907 }
912 }
913 }
915 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
916 }
918 # Fix up the graph after we have found out that in view $v,
919 # $p (a commit that we have already seen) is actually the parent
920 # of the last commit in arc $a.
922 global varcid varcstart varctok vupptr
926 splitvarc $p $v
928 }
929 # seeds always need to be renumbered
933 renumbervarc $pa $v
934 }
935 }
938 global cmitlisted children parents varcid varctok vtokmod
939 global varccommits ordertok commitidx numcommits curview
940 global targetid targetrow vshortids
942 readcommit $id
951 modify_arc $v $a
952 }
958 }
959 fix_reversal $p $a $v
963 setcanvscroll
966 incr targetrow
967 }
968 }
969 }
970 }
973 global varcid varccommits parents children cmitlisted
974 global commitidx varctok vtokmod targetid targetrow curview numcommits
981 return
982 }
989 # note we deliberately don't update varcstart($v) even if $i == 0
991 modify_arc $v $a $i
994 incr targetrow
995 }
996 }
997 setcanvscroll
998 drawvisible
999 }
1002 global varcid varccommits parents children commitidx
1003 global varctok vtokmod cmitlisted currentid selectedline
1004 global targetid curview numcommits
1009 return
1010 }
1016 return
1017 }
1027 }
1028 modify_arc $v $a $i
1030 unset currentid
1032 }
1035 }
1036 setcanvscroll
1037 drawvisible
1038 }
1041 global children nullid nullid2
1046 lappend kids $id
1047 }
1048 }
1050 }
1053 global children nullid nullid2
1058 }
1059 }
1061 }
1064 global children nullid nullid2
1071 }
1072 }
1074 }
1077 global varctok varcid
1081 }
1083 # This assumes that if lim is not given, the caller has checked that
1084 # arc a's token is less than $vtokmod($v)
1086 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1094 }
1095 }
1102 }
1107 }
1109 }
1111 undolayout $r
1112 }
1113 }
1116 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1117 global varcid vrownum varcorder varcix varccommits
1118 global vupptr vdownptr vleftptr varctok
1119 global displayorder parentlist curview cached_commitrow
1126 }
1128 }
1132 # go up the tree until we find something that has a row number,
1133 # or we get to a seed
1135 }
1150 }
1152 }
1156 # go down if possible
1159 # if not, go left, or go up until we can go left
1164 }
1166 }
1168 incr arcn
1173 }
1179 }
1180 }
1182 # Test whether view $v contains commit $id
1184 global varcid
1187 }
1189 # Return the row number for commit $id in the current view
1191 global varcid varccommits varcrow curview cached_commitrow
1192 global varctok vtokmod
1198 }
1201 update_arcrows $v
1202 }
1205 }
1210 }
1214 }
1216 # Returns 1 if a is on an earlier row than b, otherwise 0
1218 global varcid varctok curview
1224 }
1228 }
1230 }
1235 }
1247 }
1248 }
1250 }
1252 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1254 global vrownum curview commitidx displayorder parentlist
1255 global varccommits varcorder parents vrowmod varcrow
1256 global d_valid_start d_valid_end
1259 update_arcrows $curview
1260 }
1276 }
1278 lappend displayorder $id
1280 }
1284 lset displayorder $i $id
1286 incr i
1287 }
1288 }
1289 incr r $al
1290 }
1291 }
1294 global displayorder
1300 }
1302 }
1305 global varctok varccommits varcid parents children
1306 global cmitlisted commitidx vtokmod
1315 # add p as a new commit
1316 incr missing_parents
1324 }
1327 modify_arc $v $b
1328 }
1332 }
1333 }
1337 }
1338 }
1339 }
1341 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1342 # Assumes we already have an arc for $rwid.
1344 global children parents varcid varctok vtokmod varccommits
1347 # make $rwid be $ch's parent in place of $id
1351 }
1353 # add $ch to $rwid's children and sort the list if necessary
1357 }
1358 # fix the graph after joining $id to $rwid
1360 fix_reversal $rwid $a $v
1361 # parentlist is wrong for the last element of arc $a
1362 # even if displayorder is right, hence the 3rd arg here
1364 }
1365 }
1367 # Mechanism for registering a command to be executed when we come
1368 # across a particular commit. To handle the case when only the
1369 # prefix of the commit is known, the commitinterest array is now
1370 # indexed by the first 4 characters of the ID. Each element is a
1371 # list of id, cmd pairs.
1373 global commitinterest
1376 }
1379 global commitinterest
1388 lappend newlist $i $script
1389 }
1390 }
1395 }
1396 }
1398 }
1401 global cmitlisted leftover
1402 global commitidx commitdata vdatemode
1403 global parents children curview hlview
1404 global idpending ordertok
1405 global varccommits varcid varctok vtokmod vfilelimit vshortids
1408 # git log doesn't terminate the last commit with a null...
1411 }
1415 }
1416 global commfd viewcomplete viewactive viewname
1417 global viewinstances
1422 }
1423 # set it blocking so we wait for the process to terminate
1429 }
1432 bad arguments to git log."
1434 append err \
1435 " (Note: arguments to gitk are passed to git log\
1436 to allow selection of commits to be displayed.)"
1437 }
1440 }
1441 error_popup $err
1442 }
1445 # Check if we have seen any ids listed as parents that haven't
1446 # appeared in the list
1447 closevarcs $view
1448 notbusy $view
1449 }
1451 run chewcommits
1452 }
1454 }
1462 break
1463 }
1470 }
1483 }
1485 }
1490 break
1491 }
1492 }
1493 }
1498 }
1500 exit 1
1501 }
1510 # when doing path limiting, so work around that here
1511 # by working out the rewritten parent with git rev-list
1512 # and if we already know about it, using the rewritten
1513 # parent as a substitute parent for $id's children.
1517 }]} {
1519 # use $rwid in place of $id
1520 rewrite_commit $view $id $rwid
1521 continue
1522 }
1523 }
1524 }
1530 }
1535 }
1547 }
1548 }
1550 # new arc
1552 }
1554 modify_arc $view $a
1555 }
1560 }
1571 }
1573 fix_reversal $p $a $view
1574 }
1575 }
1576 incr i
1577 }
1581 }
1583 global numcommits hlview
1587 run chewcommits
1588 }
1590 # we never actually get here...
1591 run vhighlightmore
1592 }
1595 }
1596 }
1598 }
1600 proc chewcommits {} {
1601 global curview hlview viewcomplete
1602 global pending_select
1604 layoutmore
1606 global commitidx varctok
1607 global numcommits startmsecs
1610 update
1611 reset_pending_select {}
1618 }
1619 }
1621 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1622 #puts "overall $ms ms for $numcommits commits"
1623 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1626 }
1627 notbusy layout
1628 }
1630 }
1633 global tclencoding
1635 # Invoke git-log to handle automatic encoding conversion
1637 # Read the results using i18n.logoutputencoding
1641 }
1643 close $fd
1644 # Remove the heading line
1648 }
1653 }
1656 global commitinfo
1667 # should never happen...
1669 }
1681 }
1682 }
1684 # take the first non-blank line of the comment as the headline
1689 }
1694 }
1696 # git log indents the comment by 4 spaces;
1697 # if we got this via git cat-file, add the indentation
1700 append newcomment " "
1701 append newcomment $line
1703 }
1705 }
1709 }
1712 global commitdata commitinfo
1717 readcommit $id
1720 }
1721 }
1723 }
1725 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1726 # and are present in the current view.
1727 # This is fairly slow...
1729 global varcid curview vshortids
1738 lappend ids $id
1740 }
1741 }
1742 }
1743 }
1748 }
1749 }
1751 }
1753 proc readrefs {} {
1754 global tagids idtags headids idheads tagobjid
1755 global otherrefids idotherrefs mainhead mainheadid
1756 global selecthead selectheadid
1757 global hideremotes
1761 }
1773 }
1779 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1780 # which is what we want since the former is the commit ID
1786 }
1792 }
1793 }
1797 catch {
1802 }
1803 }
1806 catch {
1808 }
1809 }
1810 }
1812 # skip over fake commits
1813 proc first_real_row {} {
1814 global nullid nullid2 numcommits
1819 break
1820 }
1821 }
1823 }
1825 # update things for a head moved to a child of its previous location
1827 global headids idheads
1832 }
1834 # update things when a head has been removed
1836 global headids idheads
1844 }
1845 }
1847 }
1850 global use_ttk
1854 }
1856 }
1859 global have_tk85
1861 # In MacOS Tk 8.4 transient appears to work by setting
1862 # overrideredirect, which is utterly useless, since the
1863 # windows get no border, and are not even kept above
1864 # the parent.
1867 wm transient $window $origin
1869 # Windows fails to place transient windows normally, so
1870 # schedule a callback to center them on the parent.
1873 }
1874 }
1877 global NS
1888 tkwait window $top
1889 }
1896 set w .error
1897 ttk_toplevel $w
1898 make_transient $w $owner
1899 show_error $w $w $msg
1900 }
1901 }
1904 global confirm_ok NS
1906 set w .confirm
1907 ttk_toplevel $w
1908 make_transient $w $owner
1920 tkwait window $w
1922 }
1924 proc setoptions {} {
1927 option add *Panedwindow.sashRelief raised startupFile
1929 option add *Menu.font uifont startupFile
1930 }
1933 }
1934 option add *Button.font uifont startupFile
1935 option add *Checkbutton.font uifont startupFile
1936 option add *Radiobutton.font uifont startupFile
1937 option add *Menubutton.font uifont startupFile
1938 option add *Label.font uifont startupFile
1939 option add *Message.font uifont startupFile
1940 option add *Entry.font textfont startupFile
1941 option add *Text.font textfont startupFile
1942 option add *Labelframe.font uifont startupFile
1943 option add *Spinbox.font textfont startupFile
1944 option add *Listbox.font mainfont startupFile
1945 }
1947 # Make a menu and submenus.
1948 # m is the window name for the menu, items is the list of menu items to add.
1949 # Each item is a list {mc label type description options...}
1950 # mc is ignored; it's so we can put mc there to alert xgettext
1951 # label is the string that appears in the menu
1952 # type is cascade, command or radiobutton (should add checkbutton)
1953 # description depends on type; it's the sublist for cascade, the
1954 # command to invoke for command, or {variable value} for radiobutton
1956 menu $m
1958 set Meta1 Cmd
1960 set Meta1 Ctrl
1961 }
1972 }
1973 }
1978 }
1981 }
1985 }
1986 }
1992 }
1993 }
1994 }
1996 # translate string and remove ampersands
1999 }
2002 global use_ttk
2008 }
2013 }
2015 }
2017 proc makewindow {} {
2018 global canv canv2 canv3 linespc charspc ctext cflist cscroll
2019 global tabstop
2020 global findtype findtypemenu findloc findstring fstring geometry
2021 global entries sha1entry sha1string sha1but
2022 global diffcontextstring diffcontext
2023 global ignorespace
2024 global maincursor textcursor curtextcursor
2025 global rowctxmenu fakerowmenu mergemax wrapcomment
2026 global highlight_files gdttype
2027 global searchstring sstring
2028 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
2029 global headctxmenu progresscanv progressitem progresscoords statusw
2030 global fprogitem fprogcoord lastprogupdate progupdatepending
2031 global rprogitem rprogcoord rownumsel numcommits
2032 global have_tk85 use_ttk NS
2033 global git_version
2034 global worddiff
2036 # The "mc" arguments here are purely so that xgettext
2037 # sees the following string as needing to be translated
2048 }}
2052 }}
2060 }}
2066 }}
2076 }}
2080 }}
2082 }
2083 makemenu .bar $bar
2084 . configure -menu .bar
2087 # cover the non-themed toplevel with a themed frame.
2089 }
2091 # the gui has upper and lower half, parts of a paned window.
2094 # possibly use assumed geometry
2102 }
2104 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2110 }
2112 # create three canvases
2113 set cscroll .tf.histframe.csb
2114 set canv .tf.histframe.pwclist.canv
2115 canvas $canv \
2119 .tf.histframe.pwclist add $canv
2120 set canv2 .tf.histframe.pwclist.canv2
2121 canvas $canv2 \
2124 .tf.histframe.pwclist add $canv2
2125 set canv3 .tf.histframe.pwclist.canv3
2126 canvas $canv3 \
2129 .tf.histframe.pwclist add $canv3
2135 }
2139 }
2141 # a scroll bar to rule them
2146 lappend bglist $canv $canv2 $canv3
2149 # we have two button bars at bottom of top frame. Bar 1
2153 set sha1entry .tf.bar.sha1
2155 set sha1but .tf.bar.sha1label
2159 pack .tf.bar.sha1label -side left
2161 trace add variable sha1string write sha1change
2165 #define left_width 16
2166 #define left_height 16
2167 static unsigned char left_bits[] = {
2171 }
2173 #define right_width 16
2174 #define right_height 16
2175 static unsigned char right_bits[] = {
2179 }
2189 .tf.bar.leftbut configure -image bm-left
2190 }
2196 .tf.bar.rightbut configure -image bm-right
2197 }
2207 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2208 -side left
2211 }
2212 global selectedline
2213 trace add variable selectedline write selectedline_change
2215 # Status label and progress bar
2216 set statusw .tf.bar.status
2223 set progresscanv .tf.bar.progress
2228 }
2237 # build up the bottom bar of upper window
2242 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2249 trace add variable gdttype write gdttype_change
2253 set fstring .tf.lbar.findstring
2254 lappend entries $fstring
2256 trace add variable findstring write find_change
2260 trace add variable findtype write findcom_change
2264 trace add variable findloc write find_change
2265 pack .tf.lbar.findloc -side right
2266 pack .tf.lbar.findtype -side right
2269 # Finish putting the upper half of the viewer together
2273 .ctop add .tf
2277 }
2279 # now build up the bottom
2282 # lower left, a text box over search bar, scroll bar to the right
2283 # if we know window height, then that will set the lower text height, otherwise
2284 # we set lower text height which will drive window height
2289 }
2296 set sstring .bleft.top.sstring
2299 lappend entries $sstring
2300 trace add variable searchstring write incrsearch
2313 -textvariable diffcontextstring
2315 trace add variable diffcontextstring write diffcontextchange
2316 lappend entries .bleft.mid.diffcontext
2317 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2326 trace add variable worddiff write changeworddiff
2328 }
2330 set ctext .bleft.bottom.ctext
2337 }
2343 grid .bleft.bottom.sbhorizontal -sticky ew
2348 lappend bglist $ctext
2349 lappend fglist $ctext
2380 .pwbottom add .bleft
2383 }
2385 # lower right
2394 set cflist .bright.cfiles
2396 text $cflist \
2399 -font mainfont \
2404 lappend bglist $cflist
2405 lappend fglist $cflist
2409 $cflist tag configure highlight \
2413 .pwbottom add .bright
2414 .ctop add .pwbottom
2416 # restore window width & height if known
2421 }
2424 }
2426 }
2427 }
2431 }
2434 set M1B M1
2437 set M1B Control
2439 }
2445 }
2449 }
2450 }
2455 #bindall <B1-Motion> {selcanvline %W %x %y}
2465 allcanvs yview scroll $delta units
2466 }
2470 }
2471 }
2472 }
2496 bindkey p "selnextline -1"
2497 bindkey n "selnextline 1"
2498 bindkey z "goback"
2499 bindkey x "goforw"
2500 bindkey k "selnextline -1"
2501 bindkey j "selnextline 1"
2502 bindkey h "goback"
2503 bindkey l "goforw"
2504 bindkey b prevfile
2511 bindkey f nextfile
2513 bindmodfunctionkey Shift 5 reloadcommits
2527 wm protocol . WM_DELETE_WINDOW doquit
2536 global ctxbut
2542 set maincursor [. cget -cursor]
2546 set rowctxmenu .rowctxmenu
2548 {mc "Diff this -> selected" command {diffvssel 0}}
2549 {mc "Diff selected -> this" command {diffvssel 1}}
2550 {mc "Make patch" command mkpatch}
2551 {mc "Create tag" command mktag}
2552 {mc "Write commit to file" command writecommit}
2553 {mc "Create new branch" command mkbranch}
2554 {mc "Cherry-pick this commit" command cherrypick}
2555 {mc "Reset HEAD branch to here" command resethead}
2556 {mc "Mark this commit" command markhere}
2557 {mc "Return to mark" command gotomark}
2558 {mc "Find descendant of this and mark" command find_common_desc}
2559 {mc "Compare with marked commit" command compare_commits}
2560 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2561 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2562 }
2565 set fakerowmenu .fakerowmenu
2567 {mc "Diff this -> selected" command {diffvssel 0}}
2568 {mc "Diff selected -> this" command {diffvssel 1}}
2569 {mc "Make patch" command mkpatch}
2570 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2571 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2572 }
2575 set headctxmenu .headctxmenu
2577 {mc "Check out this branch" command cobranch}
2578 {mc "Remove this branch" command rmbranch}
2579 }
2582 global flist_menu
2583 set flist_menu .flistctxmenu
2585 {mc "Highlight this too" command {flist_hl 0}}
2586 {mc "Highlight this only" command {flist_hl 1}}
2587 {mc "External diff" command {external_diff}}
2588 {mc "Blame parent commit" command {external_blame 1}}
2589 }
2592 global diff_menu
2593 set diff_menu .diffctxmenu
2595 {mc "Show origin of this line" command show_line_source}
2596 {mc "Run git gui blame on this line" command {external_blame_diff}}
2597 }
2599 }
2601 # Windows sends all mouse wheel events to the current focused window, not
2602 # the one where the mouse hovers, so bind those events here and redirect
2603 # to the correct window
2604 proc windows_mousewheel_redirector {W X Y D} {
2605 global canv canv2 canv3
2611 } else {
2612 catch {
2614 }
2615 }
2616 }
2617 }
2619 # Update row number label when selectedline changes
2620 proc selectedline_change {n1 n2 op} {
2621 global selectedline rownumsel
2624 set rownumsel {}
2625 } else {
2627 }
2628 }
2630 # mouse-2 makes all windows scan vertically, but only the one
2631 # the cursor is in scans horizontally
2632 proc canvscan {op w x y} {
2633 global canv canv2 canv3
2637 } else {
2639 }
2640 }
2641 }
2643 proc scrollcanv {cscroll f0 f1} {
2645 drawvisible
2646 flushhighlights
2647 }
2649 # when we make a key binding for the toplevel, make sure
2650 # it doesn't get triggered when that key is pressed in the
2651 # find string entry widget.
2652 proc bindkey {ev script} {
2653 global entries
2657 set escript [bind Entry <Key>]
2658 }
2661 }
2662 }
2664 proc bindmodfunctionkey {mod n script} {
2667 }
2669 # set the focus back to the toplevel for any click outside
2670 # the entry widgets
2671 proc click {w} {
2672 global ctext entries
2675 }
2676 focus .
2677 }
2679 # Adjust the progress bar for a change in requested extent or canvas size
2680 proc adjustprogress {} {
2681 global progresscanv progressitem progresscoords
2682 global fprogitem fprogcoord lastprogupdate progupdatepending
2683 global rprogitem rprogcoord use_ttk
2687 return
2688 }
2697 set now [clock clicks -milliseconds]
2699 set progupdatepending 0
2700 update
2702 set progupdatepending 1
2704 }
2705 }
2707 proc doprogupdate {} {
2708 global lastprogupdate progupdatepending
2711 set progupdatepending 0
2712 set lastprogupdate [clock clicks -milliseconds]
2713 update
2714 }
2715 }
2717 proc savestuff {w} {
2718 global canv canv2 canv3 mainfont textfont uifont tabstop
2719 global stuffsaved findmergefiles maxgraphpct
2720 global maxwidth showneartags showlocalchanges
2721 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2722 global cmitmode wrapcomment datetimeformat limitdiffs
2723 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2724 global autoselect autosellen extdifftool perfile_attrs markbgcolor use_ttk
2725 global hideremotes want_ttk maxrefs
2728 if {![winfo viewable .]} return
2729 catch {
2730 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2731 set f [open "~/.gitk-new" w]
2732 if {$::tcl_platform(platform) eq {windows}} {
2733 file attributes "~/.gitk-new" -hidden true
2734 }
2771 } else {
2774 }
2782 }
2783 }
2786 file rename -force "~/.gitk-new" "~/.gitk"
2787 }
2788 set stuffsaved 1
2789 }
2791 proc resizeclistpanes {win w} {
2792 global oldwidth use_ttk
2797 } else {
2800 }
2804 } else {
2809 set sash0 30
2810 }
2813 }
2818 }
2819 }
2820 }
2824 } else {
2827 }
2828 }
2830 }
2832 proc resizecdetpanes {win w} {
2833 global oldwidth use_ttk
2837 } else {
2839 }
2842 } else {
2846 set sash0 45
2847 }
2850 }
2851 }
2854 } else {
2856 }
2857 }
2859 }
2861 proc allcanvs args {
2862 global canv canv2 canv3
2866 }
2868 proc bindall {event action} {
2869 global canv canv2 canv3
2873 }
2875 proc about {} {
2876 global uifont NS
2877 set w .about
2880 return
2881 }
2886 Gitk - a commit viewer for git
2888 Copyright \u00a9 2005-2011 Paul Mackerras
2890 Use and redistribute under the terms of the GNU General Public License"] \
2891 -justify center -aspect 400 -border 2 -bg white -relief groove
2899 }
2901 proc keys {} {
2902 global NS
2903 set w .keys
2906 return
2907 }
2908 if {[tk windowingsystem] eq {aqua}} {
2909 set M1T Cmd
2910 } else {
2911 set M1T Ctrl
2912 }
2917 [mc "Gitk key bindings:"]
2921 [mc "<Home> Move to first commit"]
2922 [mc "<End> Move to last commit"]
2923 [mc "<Up>, p, k Move up one commit"]
2924 [mc "<Down>, n, j Move down one commit"]
2925 [mc "<Left>, z, h Go back in history list"]
2926 [mc "<Right>, x, l Go forward in history list"]
2927 [mc "<PageUp> Move up one page in commit list"]
2928 [mc "<PageDown> Move down one page in commit list"]
2935 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2936 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2937 [mc "<Delete>, b Scroll diff view up one page"]
2938 [mc "<Backspace> Scroll diff view up one page"]
2939 [mc "<Space> Scroll diff view down one page"]
2940 [mc "u Scroll diff view up 18 lines"]
2941 [mc "d Scroll diff view down 18 lines"]
2944 [mc "<Return> Move to next find hit"]
2945 [mc "/ Focus the search box"]
2946 [mc "? Move to previous find hit"]
2947 [mc "f Scroll diff view to next file"]
2954 [mc "<F5> Update"]
2955 " \
2956 -justify left -bg white -border 2 -relief groove
2964 }
2966 # Procedures for manipulating the file list window at the
2967 # bottom right of the overall window.
2969 proc treeview {w l openlevs} {
2970 global treecontents treediropen treeheight treeparent treeindex
2972 set ix 0
2973 set treeindex() 0
2974 set lev 0
2975 set prefix {}
2976 set prefixend -1
2977 set prefendstack {}
2978 set htstack {}
2979 set ht 0
2980 set treecontents() {}
2987 }
2994 incr lev -1
2995 }
2999 set ht 0
3011 set ht 1
3016 set str "\n"
3024 }
3025 incr lev
3026 }
3029 incr ht
3030 set str "\n"
3034 }
3036 }
3037 }
3045 }
3047 }
3049 proc linetoelt {l} {
3050 global treeheight treecontents
3052 set y 2
3053 set prefix {}
3054 while {1} {
3058 }
3059 set n 1
3064 incr y
3065 break
3066 }
3067 }
3069 }
3070 }
3071 }
3073 proc highlight_tree {y prefix} {
3074 global treeheight treecontents cflist
3080 }
3081 incr y
3084 }
3085 }
3087 }
3089 proc treeclosedir {w dir} {
3090 global treediropen treeheight treeparent treeindex
3102 }
3103 }
3105 proc treeopendir {w dir} {
3106 global treediropen treeheight treeparent treecontents treeindex
3113 set lev 0
3114 set str "\n"
3117 incr lev
3118 append str "\t"
3120 }
3135 } else {
3138 }
3139 }
3152 }
3154 }
3155 }
3157 proc treeclick {w x y} {
3158 global treediropen cmitmode ctext cflist cflist_top
3161 if {![info exists cflist_top]} return
3168 return
3169 }
3175 } else {
3177 }
3178 }
3180 proc setfilelist {id} {
3181 global treefilelist cflist jump_to_here
3188 }
3189 }
3190 }
3192 image create bitmap tri-rt -background black -foreground blue -data {
3193 #define tri-rt_width 13
3194 #define tri-rt_height 13
3195 static unsigned char tri-rt_bits[] = {
3196 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3197 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3198 0x00, 0x00};
3199 } -maskdata {
3200 #define tri-rt-mask_width 13
3201 #define tri-rt-mask_height 13
3202 static unsigned char tri-rt-mask_bits[] = {
3203 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3204 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3205 0x08, 0x00};
3206 }
3207 image create bitmap tri-dn -background black -foreground blue -data {
3208 #define tri-dn_width 13
3209 #define tri-dn_height 13
3210 static unsigned char tri-dn_bits[] = {
3211 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3212 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3213 0x00, 0x00};
3214 } -maskdata {
3215 #define tri-dn-mask_width 13
3216 #define tri-dn-mask_height 13
3217 static unsigned char tri-dn-mask_bits[] = {
3218 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3219 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3220 0x00, 0x00};
3221 }
3223 image create bitmap reficon-T -background black -foreground yellow -data {
3224 #define tagicon_width 13
3225 #define tagicon_height 9
3226 static unsigned char tagicon_bits[] = {
3227 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3228 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3229 } -maskdata {
3230 #define tagicon-mask_width 13
3231 #define tagicon-mask_height 9
3232 static unsigned char tagicon-mask_bits[] = {
3233 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3234 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3235 }
3236 set rectdata {
3237 #define headicon_width 13
3238 #define headicon_height 9
3239 static unsigned char headicon_bits[] = {
3240 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3241 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3242 }
3243 set rectmask {
3244 #define headicon-mask_width 13
3245 #define headicon-mask_height 9
3246 static unsigned char headicon-mask_bits[] = {
3247 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3248 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3249 }
3250 image create bitmap reficon-H -background black -foreground green \
3252 image create bitmap reficon-o -background black -foreground "#ddddff" \
3255 proc init_flist {first} {
3256 global cflist cflist_top difffilestart
3262 set cflist_top 1
3264 } else {
3265 catch {unset cflist_top}
3266 }
3268 set difffilestart {}
3269 }
3271 proc highlight_tag {f} {
3272 global highlight_paths
3276 return "bold"
3277 }
3278 }
3279 return {}
3280 }
3282 proc highlight_filelist {} {
3283 global cmitmode cflist
3292 }
3293 }
3294 } else {
3295 highlight_tree 2 {}
3296 }
3298 }
3300 proc unhighlight_filelist {} {
3301 global cflist
3306 }
3308 proc add_flist {fl} {
3309 global cflist
3315 }
3317 }
3319 proc sel_flist {w x y} {
3320 global ctext difffilestart cflist cflist_top cmitmode
3323 if {![info exists cflist_top]} return
3330 } else {
3332 }
3333 suppress_highlighting_file_for_current_scrollpos
3334 }
3336 proc pop_flist_menu {w X Y x y} {
3337 global ctext cflist cmitmode flist_menu flist_menu_file
3338 global treediffs diffids
3340 stopfinding
3346 } else {
3348 }
3350 set xdiffstate "normal"
3352 set xdiffstate "disabled"
3353 }
3354 # Disable "External diff" item in tree mode
3357 }
3359 proc find_ctext_fileinfo {line} {
3360 global ctext_file_names ctext_file_lines
3366 return {}
3367 } else {
3369 }
3370 }
3372 proc pop_diff_menu {w X Y x y} {
3373 global ctext diff_menu flist_menu_file
3374 global diff_menu_txtpos diff_menu_line
3375 global diff_menu_filebase
3379 # don't pop up the menu on hunk-separator or file-separator lines
3381 return
3382 }
3383 stopfinding
3389 }
3391 proc flist_hl {only} {
3392 global flist_menu_file findstring gdttype
3397 } else {
3399 }
3400 set gdttype [mc "touching paths:"]
3401 }
3403 proc gitknewtmpdir {} {
3404 global diffnum gitktmpdir gitdir
3406 if {![info exists gitktmpdir]} {
3410 unset gitktmpdir
3411 return {}
3412 }
3413 set diffnum 0
3414 }
3415 incr diffnum
3419 return {}
3420 }
3422 }
3424 proc save_file_from_commit {filename output what} {
3425 global nullfile
3430 }
3432 return {}
3433 }
3435 }
3437 proc external_diff_get_one_file {diffid filename diffdir} {
3438 global nullid nullid2 nullfile
3439 global worktree
3445 }
3447 }
3451 }
3455 }
3457 proc external_diff {} {
3458 global nullid nullid2
3459 global flist_menu_file
3460 global diffids
3461 global extdifftool
3464 # no reference commit given
3467 # diffing working copy with index
3470 # diffing index with HEAD
3471 set diffidfrom "HEAD"
3472 } else {
3473 # use first parent commit
3474 global parentlist selectedline
3476 }
3477 } else {
3480 }
3482 # make sure that several diffs wont collide
3483 set diffdir [gitknewtmpdir]
3486 # gather files to diff
3495 } else {
3498 }
3499 }
3500 }
3502 proc find_hunk_blamespec {base line} {
3503 global ctext
3505 # Find and parse the hunk header
3511 s_line old_specs osz osz1 new_line nsz]} {
3512 return
3513 }
3515 # base lines for the parents
3519 old_spec old_line osz]} {
3520 return
3521 }
3523 }
3525 # Now scan the lines to determine offset within the hunk
3527 set dline 0
3530 # Determine if the line is removed
3534 # Choose a parent index
3537 } else {
3541 } else {
3542 # blame the current commit
3543 set parent -1
3544 }
3545 }
3546 # then count other lines that belong to it
3549 # Determine if the line is removed
3554 incr dline
3555 }
3556 } else {
3558 incr dline
3559 }
3560 }
3561 }
3562 incr parent
3563 } else {
3564 set parent 0
3565 }
3569 }
3571 proc external_blame_diff {} {
3572 global currentid cmitmode
3573 global diff_menu_txtpos diff_menu_line
3574 global diff_menu_filebase flist_menu_file
3577 set parent_idx 0
3579 } else {
3584 } else {
3585 set parent_idx 0
3586 set line 0
3587 }
3588 }
3591 }
3594 # at stage 0 or 2
3595 proc index_sha1 {fname} {
3603 }
3604 }
3606 return {}
3607 }
3609 # Turn an absolute path into one relative to the current directory
3610 proc make_relative {f} {
3613 }
3615 set here [file split [pwd]]
3616 set ei 0
3617 set hi 0
3618 set res {}
3621 lappend res ".."
3622 } else {
3623 incr ei
3624 }
3625 incr hi
3626 }
3629 }
3631 proc external_blame {parent_idx {line {}}} {
3632 global flist_menu_file cdup
3633 global nullid nullid2
3634 global parentlist selectedline currentid
3638 } else {
3640 }
3643 error_popup [mc "No such commit"]
3644 return
3645 }
3647 set cmdline [list git gui blame]
3650 }
3652 # Unfortunately it seems git gui blame doesn't like
3653 # being given an absolute path...
3658 }
3659 }
3661 proc show_line_source {} {
3662 global cmitmode currentid parents curview blamestuff blameinst
3663 global diff_menu_line diff_menu_filebase flist_menu_file
3664 global nullid nullid2 gitdir cdup
3666 set from_index {}
3670 } else {
3676 return
3677 }
3678 incr pi -1
3681 # must be a merge in progress...
3682 if {[catch {
3683 # get the last line from .git/MERGE_HEAD
3687 } err]} {
3689 return
3690 }
3692 # need to do the blame from the index
3693 if {[catch {
3695 } err]} {
3697 return
3698 }
3699 } else {
3701 }
3702 } else {
3704 }
3706 }
3707 set blameargs {}
3710 }
3713 lappend blameargs --contents -
3714 } else {
3716 }
3718 if {[catch {
3720 } err]} {
3722 return
3723 }
3724 nowbusy blaming [mc "Searching"]
3730 }
3732 proc stopblaming {} {
3733 global blameinst
3735 if {[info exists blameinst]} {
3737 unset blameinst
3738 notbusy blaming
3739 }
3740 }
3742 proc read_line_source {fd inst} {
3743 global blamestuff curview commfd blameinst nullid nullid2
3747 }
3749 return 1
3750 }
3752 unset blameinst
3753 notbusy blaming
3757 return 0
3758 }
3760 set fname {}
3766 # look for "filename" line
3770 break
3771 }
3772 }
3773 }
3775 # all looks good, select it
3777 # blame uses all-zeroes to mean not committed,
3778 # which would mean a change in the index
3780 }
3783 } else {
3784 error_popup [mc "That line comes from commit %s, \
3786 }
3787 } else {
3788 puts "oops couldn't parse git blame output"
3789 }
3790 return 0
3791 }
3794 proc delete_at_eof {f dir} {
3799 }
3801 return 0
3802 }
3803 return 1
3804 }
3806 # Functions for adding and removing shell-type quoting
3808 proc shellquote {str} {
3811 }
3814 }
3817 }
3819 }
3821 proc shellarglist {l} {
3822 set str {}
3825 append str " "
3826 }
3828 }
3830 }
3832 proc shelldequote {str} {
3833 set ret {}
3834 set used -1
3835 while {1} {
3836 incr used
3840 break
3841 }
3847 }
3849 incr used
3853 error "unmatched single-quote"
3854 }
3857 continue
3858 }
3861 error "trailing backslash"
3862 }
3864 continue
3865 }
3866 # here ch == "\""
3867 while {1} {
3869 error "unmatched double-quote"
3870 }
3876 }
3878 incr used
3880 incr used
3881 }
3882 }
3884 }
3886 proc shellsplit {str} {
3887 set l {}
3888 while {1} {
3896 }
3898 }
3900 # Code to implement multiple views
3902 proc newview {ishighlight} {
3903 global nextviewnum newviewname newishighlight
3904 global revtreeargs viewargscmd newviewopts curview
3907 set top .gitkview
3910 return
3911 }
3917 }
3919 set known_view_options {
3920 {perm b . {} {mc "Remember this view"}}
3921 {reflabel l + {} {mc "References (space separated list):"}}
3922 {refs t15 .. {} {mc "Branches & tags:"}}
3923 {allrefs b *. "--all" {mc "All refs"}}
3924 {branches b . "--branches" {mc "All (local) branches"}}
3925 {tags b . "--tags" {mc "All tags"}}
3926 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3927 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3928 {author t15 .. "--author=*" {mc "Author:"}}
3929 {committer t15 . "--committer=*" {mc "Committer:"}}
3930 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3931 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3932 {changes_l l + {} {mc "Changes to Files:"}}
3933 {pickaxe_s r0 . {} {mc "Fixed String"}}
3934 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3935 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3936 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3937 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3938 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3939 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3940 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3941 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3942 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3943 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3944 {lright b . "--left-right" {mc "Mark branch sides"}}
3945 {first b . "--first-parent" {mc "Limit to first parent"}}
3946 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3947 {args t50 *. {} {mc "Additional arguments to git log:"}}
3948 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3949 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3950 }
3953 proc encode_view_opts {n} {
3954 global known_view_options newviewopts
3956 set rargs [list]
3966 }
3972 }
3973 } else {
3979 }
3980 }
3981 }
3984 }
3987 proc decode_view_opts {n view_args} {
3988 global known_view_options newviewopts
3993 # Checkboxes
3994 set val 0
3996 # Radiobuttons
3998 set val 0
3999 } else {
4000 # Text fields
4001 set val {}
4002 }
4004 }
4005 set oargs [list]
4006 set refargs [list]
4009 && ![info exists found(limit)]} {
4011 set found(limit) 1
4012 continue
4013 }
4014 catch { unset val }
4021 # Check buttons
4022 set val 1
4024 # Radio buttons
4027 } else {
4028 # Text input fields
4031 }
4034 break
4035 }
4036 if {[info exists val]} break
4037 }
4038 if {[info exists val]} continue
4041 } else {
4043 }
4044 }
4047 }
4049 proc edit_or_newview {} {
4050 global curview
4053 editview
4054 } else {
4055 newview 0
4056 }
4057 }
4059 proc editview {} {
4060 global curview
4061 global viewname viewperm newviewname newviewopts
4062 global viewargs viewargscmd
4067 return
4068 }
4074 }
4076 proc vieweditor {top n title} {
4077 global newviewname newviewopts viewfiles bgcolor
4078 global known_view_options NS
4084 # View name
4092 # View options
4094 set cexpand 0
4095 set cnt 0
4101 set lxpad 0
4105 incr cnt
4111 incr cnt
4115 } else {
4116 set lxpad 5
4117 }
4151 }
4154 }
4156 }
4157 }
4172 }
4174 proc doviewmenu {m first cmd op argv} {
4179 break
4180 }
4181 }
4182 }
4184 proc allviewmenus {n op args} {
4185 # global viewhlmenu
4189 }
4191 proc newviewok {top n {apply 0}} {
4192 global nextviewnum newviewperm newviewname newishighlight
4193 global viewname viewfiles viewperm selectedview curview
4194 global viewargs viewargscmd newviewopts viewhlmenu
4196 if {[catch {
4198 } err]} {
4200 return
4201 }
4202 set files {}
4207 }
4208 }
4210 # creating a new view
4211 incr nextviewnum
4220 } else {
4222 }
4223 } else {
4224 # editing an existing view
4232 }
4239 run reloadcommits
4240 }
4241 }
4242 }
4245 }
4247 proc delview {} {
4248 global curview viewperm hlview selectedhlview
4252 set selectedhlview [mc "None"]
4253 unset hlview
4254 }
4257 showview 0
4258 }
4260 proc addviewmenu {n} {
4261 global viewname viewhlmenu
4267 }
4269 proc showview {n} {
4270 global curview cached_commitrow ordertok
4271 global displayorder parentlist rowidlist rowisopt rowfinal
4272 global colormap rowtextx nextcolor canvxmax
4273 global numcommits viewcomplete
4274 global selectedline currentid canv canvy0
4275 global treediffs
4276 global pending_select mainheadid
4277 global commitidx
4278 global selectedview
4279 global hlview selectedhlview commitinterest
4282 set selid {}
4293 }
4294 } elseif {[info exists pending_select]} {
4296 unset pending_select
4297 }
4298 unselectline
4299 normalline
4300 catch {unset treediffs}
4301 clear_display
4303 unset hlview
4304 set selectedhlview [mc "None"]
4305 }
4306 catch {unset commitinterest}
4307 catch {unset cached_commitrow}
4308 catch {unset ordertok}
4315 run refill_reflist
4318 return
4319 }
4321 set displayorder {}
4322 set parentlist {}
4323 set rowidlist {}
4324 set rowisopt {}
4325 set rowfinal {}
4328 catch {unset colormap}
4329 catch {unset rowtextx}
4330 set nextcolor 0
4333 set row 0
4334 setcanvscroll
4335 set yf 0
4336 set row {}
4339 # try to get the selected row in the same position on the screen
4343 set ytop 0
4344 }
4346 }
4348 drawvisible
4353 } else {
4354 reset_pending_select {}
4358 } else {
4359 set row [first_real_row]
4362 }
4363 }
4364 }
4367 show_status [mc "Reading commits..."]
4368 }
4370 show_status [mc "No commits selected"]
4371 }
4372 }
4374 # Stuff relating to the highlighting facility
4376 proc ishighlighted {id} {
4377 global vhighlights fhighlights nhighlights rhighlights
4381 }
4384 }
4387 }
4390 }
4391 return 0
4392 }
4394 proc bolden {id font} {
4395 global canv linehtag currentid boldids need_redisplay markedid
4397 # need_redisplay = 1 means the display is stale and about to be redrawn
4404 -outline {{}} -tags secsel \
4407 }
4410 }
4411 }
4413 proc bolden_name {id font} {
4414 global canv2 linentag currentid boldnameids need_redisplay
4422 -outline {{}} -tags secsel \
4425 }
4426 }
4428 proc unbolden {} {
4429 global boldids
4431 set stillbold {}
4435 } else {
4437 }
4438 }
4440 }
4442 proc addvhighlight {n} {
4443 global hlview viewcomplete curview vhl_done commitidx
4445 if {[info exists hlview]} {
4446 delvhighlight
4447 }
4451 }
4454 drawvisible
4455 }
4456 }
4458 proc delvhighlight {} {
4459 global hlview vhighlights
4461 if {![info exists hlview]} return
4462 unset hlview
4463 catch {unset vhighlights}
4464 unbolden
4465 }
4467 proc vhighlightmore {} {
4468 global hlview vhl_done commitidx vhighlights curview
4471 set vr [visiblerows]
4481 }
4483 }
4484 }
4485 }
4487 return 0
4488 }
4490 proc askvhighlight {row id} {
4491 global hlview vhighlights iddrawn
4496 }
4498 } else {
4500 }
4501 }
4503 proc hfiles_change {} {
4504 global highlight_files filehighlight fhighlights fh_serial
4505 global highlight_paths
4507 if {[info exists filehighlight]} {
4508 # delete previous highlights
4510 unset filehighlight
4511 catch {unset fhighlights}
4512 unbolden
4513 unhighlight_filelist
4514 }
4515 set highlight_paths {}
4517 incr fh_serial
4520 }
4521 }
4523 proc gdttype_change {name ix op} {
4524 global gdttype highlight_files findstring findpattern
4526 stopfinding
4530 set highlight_files {}
4531 hfiles_change
4532 }
4533 findcom_change
4534 } else {
4536 set findpattern {}
4537 findcom_change
4538 }
4540 hfiles_change
4541 }
4542 drawvisible
4543 }
4544 # enable/disable findtype/findloc menus too
4545 }
4547 proc find_change {name ix op} {
4548 global gdttype findstring highlight_files
4550 stopfinding
4552 findcom_change
4553 } else {
4556 hfiles_change
4557 }
4558 }
4559 drawvisible
4560 }
4562 proc findcom_change args {
4563 global nhighlights boldnameids
4564 global findpattern findtype findstring gdttype
4566 stopfinding
4567 # delete previous highlights, if any
4570 }
4571 set boldnameids {}
4572 catch {unset nhighlights}
4573 unbolden
4574 unmarkmatches
4576 set findpattern {}
4579 } else {
4580 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4583 }
4584 }
4586 proc makepatterns {l} {
4587 set ret {}
4592 } else {
4595 }
4596 }
4598 }
4600 proc do_file_hl {serial} {
4601 global highlight_files filehighlight highlight_paths gdttype fhl_list
4602 global cdup findtype
4605 # If "exact" match then convert backslashes to forward slashes.
4606 # Most useful to support Windows-flavoured file paths.
4609 }
4612 highlight_filelist
4613 set relative_paths {}
4616 }
4620 } else {
4621 # must be "containing:", i.e. we're searching commit info
4622 return
4623 }
4628 set fhl_list {}
4629 drawvisible
4630 flushhighlights
4631 }
4633 proc flushhighlights {} {
4634 global filehighlight fhl_list
4636 if {[info exists filehighlight]} {
4637 lappend fhl_list {}
4640 }
4641 }
4643 proc askfilehighlight {row id} {
4644 global filehighlight fhighlights fhl_list
4649 }
4651 proc readfhighlight {} {
4652 global filehighlight fhighlights curview iddrawn
4653 global fhl_list find_dirn
4655 if {![info exists filehighlight]} {
4656 return 0
4657 }
4658 set nr 0
4666 }
4672 }
4674 }
4676 # strange...
4677 puts "oops, git diff-tree died"
4679 unset filehighlight
4680 return 0
4681 }
4682 if {[info exists find_dirn]} {
4683 run findmore
4684 }
4685 return 1
4686 }
4688 proc doesmatch {f} {
4689 global findtype findpattern
4695 } else {
4697 }
4698 }
4700 proc askfindhighlight {row id} {
4701 global nhighlights commitinfo iddrawn
4702 global findloc
4703 global markingmatches
4707 }
4709 set isbold 0
4710 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4716 set isbold 2
4717 break
4718 }
4719 set isbold 1
4720 }
4721 }
4727 }
4728 }
4731 }
4732 }
4734 }
4736 proc markrowmatches {row id} {
4737 global canv canv2 linehtag linentag commitinfo findloc
4748 }
4749 }
4755 }
4756 }
4757 }
4759 proc vrel_change {name ix op} {
4760 global highlight_related
4762 rhighlight_none
4764 run drawvisible
4765 }
4766 }
4768 # prepare for testing whether commits are descendents or ancestors of a
4769 proc rhighlight_sel {a} {
4770 global descendent desc_todo ancestor anc_todo
4771 global highlight_related
4773 catch {unset descendent}
4775 catch {unset ancestor}
4778 rhighlight_none
4779 run drawvisible
4780 }
4781 }
4783 proc rhighlight_none {} {
4784 global rhighlights
4786 catch {unset rhighlights}
4787 unbolden
4788 }
4790 proc is_descendent {a} {
4791 global curview children descendent desc_todo
4796 set leftover {}
4797 set done 0
4802 continue
4803 }
4809 set done 1
4810 }
4811 }
4812 }
4815 return
4816 }
4817 }
4820 }
4822 proc is_ancestor {a} {
4823 global curview parents ancestor anc_todo
4828 set leftover {}
4829 set done 0
4834 continue
4835 }
4841 set done 1
4842 }
4843 }
4844 }
4847 return
4848 }
4849 }
4852 }
4854 proc askrelhighlight {row id} {
4855 global descendent highlight_related iddrawn rhighlights
4856 global selectedline ancestor
4859 set isbold 0
4864 }
4866 set isbold 1
4867 }
4872 }
4874 set isbold 1
4875 }
4876 }
4880 }
4881 }
4883 }
4885 # Graph layout functions
4887 proc shortids {ids} {
4888 set res {}
4894 } else {
4896 }
4897 }
4899 }
4901 proc ntimes {n o} {
4902 set ret {}
4907 }
4909 }
4911 }
4913 proc ordertoken {id} {
4914 global ordertok curview varcid varcstart varctok curview parents children
4915 global nullid nullid2
4919 }
4921 set todo {}
4922 while {1} {
4926 } else {
4928 }
4931 break
4932 }
4935 # it's a root
4937 break
4938 }
4941 } else {
4945 }
4947 }
4948 }
4953 }
4956 }
4958 # Work out where id should go in idlist so that order-token
4959 # values increase from left to right
4960 proc idcol {idlist id {i 0}} {
4963 set i 0
4964 }
4968 }
4970 incr i
4971 } else {
4975 }
4976 }
4978 }
4980 proc initlayout {} {
4981 global rowidlist rowisopt rowfinal displayorder parentlist
4982 global numcommits canvxmax canv
4983 global nextcolor
4984 global colormap rowtextx
4986 set numcommits 0
4987 set displayorder {}
4988 set parentlist {}
4989 set nextcolor 0
4990 set rowidlist {}
4991 set rowisopt {}
4992 set rowfinal {}
4994 catch {unset colormap}
4995 catch {unset rowtextx}
4996 setcanvscroll
4997 }
4999 proc setcanvscroll {} {
5000 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5001 global lastscrollset lastscrollrows
5007 set lastscrollset [clock clicks -milliseconds]
5009 }
5011 proc visiblerows {} {
5012 global canv numcommits linespc
5020 set r0 0
5021 }
5026 }
5028 }
5030 proc layoutmore {} {
5031 global commitidx viewcomplete curview
5032 global numcommits pending_select curview
5033 global lastscrollset lastscrollrows
5037 setcanvscroll
5038 }
5039 if {[info exists pending_select] &&
5041 update
5043 }
5044 drawvisible
5045 }
5047 # With path limiting, we mightn't get the actual HEAD commit,
5048 # so ask git rev-list what is the first ancestor of HEAD that
5049 # touches a file in the path limit.
5050 proc get_viewmainhead {view} {
5051 global viewmainheadid vfilelimit viewinstances mainheadid
5053 catch {
5061 }
5062 }
5065 proc getviewhead {fd inst view} {
5066 global viewmainheadid commfd curview viewinstances showlocalchanges
5068 set id {}
5071 return 1
5072 }
5075 }
5082 }
5084 doshowlocalchanges
5085 }
5086 return 0
5087 }
5089 proc doshowlocalchanges {} {
5090 global curview viewmainheadid
5094 dodiffindex
5095 } else {
5097 }
5098 }
5100 proc dohidelocalchanges {} {
5101 global nullid nullid2 lserial curview
5105 }
5108 }
5109 incr lserial
5110 }
5112 # spawn off a process to do git diff-index --cached HEAD
5113 proc dodiffindex {} {
5114 global lserial showlocalchanges vfilelimit curview
5115 global hasworktree
5118 incr lserial
5119 set cmd "|git diff-index --cached HEAD"
5122 }
5127 }
5129 proc readdiffindex {fd serial inst} {
5130 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5131 global vfilelimit
5133 set isdiff 1
5136 return 1
5137 }
5138 set isdiff 0
5139 }
5140 # we only need to see one line and we don't really care what it says...
5144 return 0
5145 }
5147 # now see if there are any local changes not checked in to the index
5148 set cmd "|git diff-files"
5151 }
5158 # add the line for the changes in the index to the graph
5159 set hl [mc "Local changes checked in to index but not committed"]
5164 }
5169 }
5171 }
5172 return 0
5173 }
5175 proc readdifffiles {fd serial inst} {
5176 global viewmainheadid nullid nullid2 curview
5177 global commitinfo commitdata lserial
5179 set isdiff 1
5182 return 1
5183 }
5184 set isdiff 0
5185 }
5186 # we only need to see one line and we don't really care what it says...
5190 return 0
5191 }
5194 # add the line for the local diff to the graph
5195 set hl [mc "Local uncommitted changes, not checked in to index"]
5200 } else {
5202 }
5206 }
5207 return 0
5208 }
5210 proc nextuse {id row} {
5211 global curview children
5216 return -1
5217 }
5220 }
5221 }
5222 }
5225 }
5226 return -1
5227 }
5229 proc prevuse {id row} {
5230 global curview children
5232 set ret -1
5238 }
5239 }
5240 }
5242 }
5244 proc make_idlist {row} {
5245 global displayorder parentlist uparrowlen downarrowlen mingaplen
5246 global commitidx curview children
5250 set r 0
5251 }
5254 set ra 0
5255 }
5259 }
5261 set ids {}
5270 }
5271 }
5272 }
5280 }
5281 }
5282 }
5290 }
5291 }
5292 incr r
5298 }
5299 }
5300 }
5301 set idlist {}
5304 }
5306 }
5308 proc rowsequal {a b} {
5311 }
5314 }
5316 }
5318 proc makeupline {id row rend col} {
5319 global rowidlist uparrowlen downarrowlen mingaplen
5325 }
5328 }
5335 }
5336 }
5337 }
5339 proc layoutrows {row endrow} {
5340 global rowidlist rowisopt rowfinal displayorder
5341 global uparrowlen downarrowlen maxwidth mingaplen
5342 global children parentlist
5343 global commitidx viewcomplete curview
5346 set idlist {}
5352 }
5353 }
5355 }
5360 set final 1
5361 } else {
5369 # if not the first child, we have to insert a line going up
5372 }
5373 }
5374 }
5384 }
5385 }
5386 }
5393 }
5394 }
5404 }
5405 }
5413 }
5414 }
5415 }
5416 }
5417 }
5421 set final 0
5422 }
5426 lappend rowisopt 0
5432 }
5434 } else {
5441 }
5442 }
5444 }
5446 proc changedrow {row} {
5447 global displayorder iddrawn rowisopt need_redisplay
5456 }
5457 }
5458 }
5461 set need_redisplay 1
5462 }
5463 }
5465 proc insert_pad {row col npad} {
5466 global rowidlist
5475 }
5478 }
5480 proc optimize_rows {row col endrow} {
5481 global rowidlist rowisopt displayorder curview children
5484 set row 1
5485 }
5488 set haspad 0
5497 } else {
5498 set pprevidlist {}
5499 }
5500 set x0 -1
5501 set xm -1
5506 set haspad 1
5507 continue
5508 }
5512 set isarrow 0
5513 set z0 {}
5518 }
5519 }
5524 set isarrow 1
5525 }
5526 }
5529 set isarrow 1
5530 }
5531 # Looking at lines from this row to the previous row,
5532 # make them go straight up if they end in an arrow on
5533 # the previous row; otherwise make them go straight up
5534 # or at 45 degrees.
5536 # Line currently goes left too much;
5537 # insert pads in the previous row, then optimize it
5542 }
5550 }
5552 # Line currently goes right too much;
5553 # insert pads in this line
5559 set haspad 1
5560 }
5567 }
5568 }
5569 # avoid lines jigging left then immediately right
5572 incr x0
5575 }
5576 }
5578 # Find the first column that doesn't have a line going right
5584 # check if this is the link to the first child
5587 # it is, work out offset to child
5589 }
5590 }
5592 }
5593 # Insert a pad at that column as long as it has a line and
5594 # isn't the last column
5599 }
5600 }
5601 }
5602 }
5604 proc xc {row col} {
5605 global canvx0 linespc
5607 }
5609 proc yc {row} {
5610 global canvy0 linespc
5612 }
5614 proc linewidth {id} {
5615 global thickerline lthickness
5620 }
5622 }
5624 proc rowranges {id} {
5625 global curview children uparrowlen downarrowlen
5626 global rowidlist
5630 return {}
5631 }
5632 set ret {}
5637 if {![info exists prev]} {
5639 } else {
5641 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5642 }
5643 # see if the line extends the whole way from prevrow to row
5647 # it doesn't, see where it ends
5652 } else {
5655 incr r -1
5656 }
5658 # see where it starts up again
5663 } else {
5666 incr r
5667 }
5669 }
5670 }
5673 }
5676 }
5678 }
5680 proc drawlineseg {id row endrow arrowlow} {
5681 global rowidlist displayorder iddrawn linesegs
5682 global canv colormap linespc curview maxlinelen parentlist
5686 set arrowhigh 1
5687 while {1} {
5690 incr le -1
5691 break
5692 }
5696 set arrowhigh 0
5697 break
5698 }
5703 set arrowhigh 0
5704 }
5705 break
5706 }
5707 incr le
5708 }
5711 }
5713 set lines {}
5714 set i 0
5715 set joinhigh 0
5722 set joinhigh 1
5723 }
5724 break
5725 }
5726 incr i
5727 }
5728 }
5729 set joinlow 0
5734 set joinlow 1
5735 }
5736 }
5749 }
5750 } else {
5752 }
5760 set arrowlow 0
5761 }
5762 }
5770 }
5772 }
5775 # join parent line to first child
5786 } else {
5788 }
5796 }
5798 }
5800 } else {
5804 }
5812 } else {
5816 }
5818 }
5819 } else {
5825 }
5829 } else {
5830 # coalesce two pieces
5835 }
5839 }
5840 }
5844 }
5846 proc drawparentlinks {id row} {
5847 global rowidlist canv colormap curview parentlist
5848 global idpos linespc
5861 # rmx = right-most X coord used
5862 set rmx 0
5867 continue
5868 }
5872 }
5875 # drawlineseg will do this one for us
5876 continue
5877 }
5879 # should handle duplicated parents here...
5882 # if attaching to a vertical segment, draw a smaller
5883 # slant for visual distinctness
5887 } else {
5889 }
5891 # segment slants towards us already
5893 } else {
5898 }
5900 }
5901 } else {
5903 }
5908 }
5912 }
5913 }
5915 proc drawlines {id} {
5916 global canv
5919 }
5921 proc drawcmittext {id row col} {
5922 global linespc canv canv2 canv3 fgcolor curview
5923 global cmitlisted commitinfo rowidlist parentlist
5924 global rowtextx idpos idtags idheads idotherrefs
5925 global linehtag linentag linedtag selectedline
5926 global canvxmax boldids boldnameids fgcolor markedid
5927 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5929 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5932 set ofill red
5934 set ofill green
5936 set ofill yellow
5937 } else {
5939 }
5948 # triangle pointing left for left-side commits
5954 } else {
5955 # triangle pointing right for right-side commits
5961 }
5973 }
5974 }
5975 }
5982 }
5985 }
5990 set font mainfont
5991 set nfont mainfont
5995 set font mainfontbold
5998 set nfont mainfontbold
5999 }
6000 }
6010 }
6013 }
6017 setcanvscroll
6018 }
6019 }
6021 proc drawcmitrow {row} {
6022 global displayorder rowidlist nrows_drawn
6023 global iddrawn markingmatches
6024 global commitinfo numcommits
6025 global filehighlight fhighlights findpattern nhighlights
6026 global hlview vhighlights
6027 global highlight_related rhighlights
6034 }
6037 }
6040 }
6043 }
6048 return
6049 }
6052 }
6056 incr nrows_drawn
6057 }
6060 }
6061 }
6063 proc drawcommits {row {endrow {}}} {
6064 global numcommits iddrawn displayorder curview need_redisplay
6065 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6068 set row 0
6069 }
6072 }
6075 }
6079 set rl1 0
6080 }
6083 set ro1 0
6084 }
6088 }
6093 }
6095 }
6096 }
6099 }
6102 clear_display
6103 }
6105 # make the lines join to already-drawn rows either side
6109 }
6114 }
6129 # see if this is the first child of any of its parents
6132 # make this line extend up to the child
6134 }
6135 }
6136 } else {
6138 }
6139 }
6140 }
6141 }
6143 proc undolayout {row} {
6144 global uparrowlen mingaplen downarrowlen
6145 global rowidlist rowisopt rowfinal need_redisplay
6149 set r 0
6150 }
6152 incr r -1
6156 set need_redisplay 1
6157 run drawvisible
6158 }
6159 }
6161 proc drawvisible {} {
6162 global canv linespc curview vrowmod selectedline targetrow targetid
6163 global need_redisplay cscroll numcommits
6173 if {[info exists targetid]} {
6177 # Fix up the scrollregion and change the scrolling position
6178 # now that our target row has moved.
6181 setcanvscroll
6189 set need_redisplay 1
6190 }
6191 } else {
6192 unset targetid
6193 }
6194 }
6200 }
6204 } elseif {[info exists targetid]} {
6206 }
6207 if {[info exists targetrow]} {
6210 }
6212 }
6214 }
6216 proc clear_display {} {
6217 global iddrawn linesegs need_redisplay nrows_drawn
6218 global vhighlights fhighlights nhighlights rhighlights
6219 global linehtag linentag linedtag boldids boldnameids
6221 allcanvs delete all
6222 catch {unset iddrawn}
6223 catch {unset linesegs}
6224 catch {unset linehtag}
6225 catch {unset linentag}
6226 catch {unset linedtag}
6227 set boldids {}
6228 set boldnameids {}
6229 catch {unset vhighlights}
6230 catch {unset fhighlights}
6231 catch {unset nhighlights}
6232 catch {unset rhighlights}
6233 set need_redisplay 0
6234 set nrows_drawn 0
6235 }
6237 proc findcrossings {id} {
6238 global rowidlist parentlist numcommits displayorder
6240 set cross {}
6241 set ccross {}
6245 }
6264 }
6265 }
6266 }
6267 }
6268 }
6270 }
6272 proc assigncolor {id} {
6273 global colormap colors nextcolor
6274 global parents children children curview
6280 } else {
6281 set kids {}
6282 }
6288 return
6289 }
6290 }
6291 set badcolors {}
6292 set origbad {}
6295 # delimiter between corner crossings and other crossings
6298 }
6302 }
6303 }
6306 }
6313 }
6318 }
6319 }
6320 }
6323 }
6324 }
6328 set nextcolor 0
6329 }
6331 }
6333 }
6335 proc bindline {t id} {
6336 global canv
6342 }
6344 proc drawtags {id x xt y1} {
6345 global idtags idheads idotherrefs mainhead
6346 global linespc lthickness
6347 global canv rowtextx curview fgcolor bgcolor ctxbut
6349 set marks {}
6350 set ntags 0
6351 set nheads 0
6355 }
6359 }
6362 }
6365 }
6370 set xvals {}
6371 set wvals {}
6372 set i -1
6374 incr i
6377 } else {
6379 }
6383 }
6391 set font mainfont
6392 if {[incr ntags -1] >= 0} {
6393 # draw a tag
6399 } else {
6400 # draw a head or other ref
6401 if {[incr nheads -1] >= 0} {
6402 set col green
6404 set font mainfontbold
6405 }
6406 } else {
6407 set col "#ddddff"
6408 }
6419 }
6420 }
6427 }
6428 }
6430 }
6432 proc drawnotesign {xt y} {
6433 global linespc canv fgcolor
6441 }
6443 proc xcoord {i level ln} {
6444 global canvx0 xspc1 xspc2
6451 }
6453 }
6455 proc show_status {msg} {
6456 global canv fgcolor
6458 clear_display
6461 }
6463 # Don't change the text pane cursor if it is currently the hand cursor,
6464 # showing that we are over a sha1 ID link.
6465 proc settextcursor {c} {
6466 global ctext curtextcursor
6470 }
6472 }
6474 proc nowbusy {what {name {}}} {
6475 global isbusy busyname statusw
6477 if {[array names isbusy] eq {}} {
6478 . config -cursor watch
6479 settextcursor watch
6480 }
6485 }
6486 }
6488 proc notbusy {what} {
6489 global isbusy maincursor textcursor busyname statusw
6491 catch {
6496 }
6497 }
6498 if {[array names isbusy] eq {}} {
6501 }
6502 }
6504 proc findmatches {f} {
6505 global findtype findstring
6508 } else {
6513 }
6514 set matches {}
6515 set i 0
6520 }
6521 }
6523 }
6525 proc dofind {{dirn 1} {wrap 1}} {
6526 global findstring findstartline findcurline selectedline numcommits
6527 global gdttype filehighlight fh_serial find_dirn findallowwrap
6529 if {[info exists find_dirn]} {
6531 stopfinding
6532 }
6533 focus .
6537 } else {
6539 }
6541 nowbusy finding [mc "Searching"]
6545 }
6548 run findmore
6549 }
6551 proc stopfinding {} {
6552 global find_dirn findcurline fprogcoord
6554 if {[info exists find_dirn]} {
6555 unset find_dirn
6556 unset findcurline
6557 notbusy finding
6558 set fprogcoord 0
6559 adjustprogress
6560 }
6561 stopblaming
6562 }
6564 proc findmore {} {
6565 global commitdata commitinfo numcommits findpattern findloc
6566 global findstartline findcurline findallowwrap
6567 global find_dirn gdttype fhighlights fprogcoord
6568 global curview varcorder vrownum varccommits vrowmod
6570 if {![info exists find_dirn]} {
6571 return 0
6572 }
6573 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6575 set moretodo 0
6577 incr l
6579 set l 0
6580 }
6583 } else {
6586 }
6587 } else {
6590 }
6591 incr l -1
6594 } else {
6595 set lim -1
6597 }
6598 }
6601 set n 500
6602 set moretodo 1
6603 }
6606 }
6607 set found 0
6608 set domore 1
6622 }
6624 # shouldn't happen unless git log doesn't give all the commits...
6627 continue
6628 }
6631 }
6637 set found 1
6638 break
6639 }
6640 }
6642 }
6643 } else {
6651 }
6656 }
6659 break
6660 }
6663 set domore 0
6665 }
6666 }
6667 }
6668 }
6670 unset findcurline
6671 unset find_dirn
6672 notbusy finding
6673 set fprogcoord 0
6674 adjustprogress
6677 } else {
6678 bell
6679 }
6680 return 0
6681 }
6683 flushhighlights
6684 } else {
6686 }
6690 }
6692 adjustprogress
6694 }
6696 proc findselectline {l} {
6697 global findloc commentend ctext findcurline markingmatches gdttype
6704 # highlight the matches in the comments
6711 }
6712 }
6713 drawvisible
6714 }
6716 # mark the bits of a headline or author that match a find string
6717 proc markmatches {canv l str tag matches font row} {
6718 global selectedline
6736 }
6737 }
6738 }
6740 proc unmarkmatches {} {
6741 global markingmatches
6743 allcanvs delete matches
6744 set markingmatches 0
6745 stopfinding
6746 }
6748 proc selcanvline {w x y} {
6749 global canv canvy0 ctext linespc
6750 global rowtextx
6757 set l 0
6758 }
6763 }
6764 unmarkmatches
6766 }
6768 proc commit_descriptor {p} {
6769 global commitinfo
6772 }
6773 set l "..."
6776 }
6778 }
6780 # append some text to the ctext widget, and make any SHA1 ID
6781 # that we know about be a clickable link.
6782 proc appendwithlinks {text tags} {
6783 global ctext linknum curview
6792 incr e
6796 incr linknum
6797 }
6798 }
6800 proc setlink {id lk} {
6801 global curview ctext pendinglinks
6805 }
6807 set known 0
6812 set known 1
6814 }
6815 } else {
6817 }
6823 } else {
6826 }
6827 }
6829 proc appendshortlink {id {pre {}} {post {}}} {
6830 global ctext linknum
6837 incr linknum
6838 }
6840 proc makelink {id} {
6841 global pendinglinks
6846 }
6848 }
6850 proc linkcursor {w inc} {
6851 global linkentercount curtextcursor
6855 } else {
6858 set linkentercount 0
6859 }
6860 }
6861 }
6863 proc viewnextline {dir} {
6864 global canv linespc
6872 set newtop 0
6875 }
6877 }
6879 # add a list of tag or branch names at position pos
6880 # returns the number of names inserted
6881 proc appendrefs {pos ids var} {
6885 return 0
6886 }
6889 set tags {}
6893 }
6894 }
6896 set sep {}
6898 set nutags 0
6901 # If we are displaying heads, and there are too many,
6902 # see if there are some important heads to display.
6903 # Currently this means "master" and the current head.
6904 set itags {}
6906 set utags {}
6913 } else {
6915 }
6916 }
6918 }
6920 set str [mc "and many more"]
6921 set sep " "
6922 } else {
6923 set str [mc "many"]
6924 }
6928 }
6933 incr linknum
6938 set sep ", "
6939 }
6943 }
6945 # called when we have finished computing the nearby tags
6946 proc dispneartags {delay} {
6947 global selectedline currentid showneartags tagphase
6950 after cancel dispnexttag
6952 after 200 dispnexttag
6953 set tagphase -1
6954 } else {
6955 after idle dispnexttag
6956 set tagphase 0
6957 }
6958 }
6960 proc dispnexttag {} {
6961 global selectedline currentid showneartags tagphase ctext
6965 0 {
6969 }
6970 }
6971 1 {
6975 }
6976 }
6977 2 {
6982 # turn "Branch" into "Branches"
6986 }
6987 }
6988 }
6989 }
6990 if {[incr tagphase] <= 2} {
6991 after idle dispnexttag
6992 }
6993 }
6995 proc make_secsel {id} {
6996 global linehtag linentag linedtag canv canv2 canv3
7011 }
7013 proc make_idmark {id} {
7014 global linehtag canv fgcolor
7021 }
7023 proc selectline {l isnew {desired_loc {}}} {
7024 global canv ctext commitinfo selectedline
7025 global canvy0 linespc parents children curview
7026 global currentid sha1entry
7027 global commentend idtags linknum
7028 global mergemax numcommits pending_select
7029 global cmitmode showneartags allcommits
7030 global targetrow targetid lastscrollrows
7031 global autoselect autosellen jump_to_here
7033 catch {unset pending_select}
7035 normalline
7036 unsel_reflist
7037 stopfinding
7045 setcanvscroll
7046 }
7060 } else {
7064 }
7065 }
7069 } else {
7073 }
7074 }
7075 }
7078 set newtop 0
7079 }
7081 drawvisible
7082 }
7088 }
7094 }
7098 clear_ctext
7099 set linknum 0
7102 }
7112 }
7114 }
7116 set headers {}
7119 set np 0
7122 set tag mmax
7123 } else {
7125 }
7128 incr np
7129 }
7130 } else {
7133 }
7134 }
7138 }
7140 # make anything that looks like a SHA1 ID be a clickable link
7143 if {![info exists allcommits]} {
7144 getallcommits
7145 }
7156 dispneartags 1
7157 }
7162 }
7170 init_flist [mc "Comments"]
7175 } else {
7177 }
7178 }
7180 proc selfirstline {} {
7181 unmarkmatches
7182 selectline 0 1
7183 }
7185 proc sellastline {} {
7186 global numcommits
7187 unmarkmatches
7190 }
7192 proc selnextline {dir} {
7193 global selectedline
7194 focus .
7197 unmarkmatches
7199 }
7201 proc selnextpage {dir} {
7202 global canv linespc selectedline numcommits
7206 set lpp 1
7207 }
7209 drawvisible
7213 set l 0
7216 }
7217 unmarkmatches
7219 }
7221 proc unselectline {} {
7222 global selectedline currentid
7224 set selectedline {}
7225 catch {unset currentid}
7226 allcanvs delete secsel
7227 rhighlight_none
7228 }
7230 proc reselectline {} {
7231 global selectedline
7235 }
7236 }
7238 proc addtohistory {cmd {saveproc {}}} {
7239 global history historyindex curview
7241 unset_posvars
7242 save_position
7246 return
7247 }
7251 } else {
7253 }
7254 incr historyindex
7256 .tf.bar.leftbut conf -state normal
7257 } else {
7258 .tf.bar.leftbut conf -state disabled
7259 }
7260 .tf.bar.rightbut conf -state disabled
7261 }
7263 # save the scrolling position of the diff display pane
7264 proc save_position {} {
7265 global historyindex history
7272 }
7273 }
7275 proc unset_posvars {} {
7276 global last_posvars
7278 if {[info exists last_posvars]} {
7282 }
7283 unset last_posvars
7284 }
7285 }
7287 proc godo {elt} {
7288 global curview last_posvars
7295 }
7296 unset_posvars
7300 }
7303 }
7305 proc goback {} {
7306 global history historyindex
7307 focus .
7310 save_position
7311 incr historyindex -1
7313 .tf.bar.rightbut conf -state normal
7314 }
7316 .tf.bar.leftbut conf -state disabled
7317 }
7318 }
7320 proc goforw {} {
7321 global history historyindex
7322 focus .
7325 save_position
7327 incr historyindex
7329 .tf.bar.leftbut conf -state normal
7330 }
7332 .tf.bar.rightbut conf -state disabled
7333 }
7334 }
7336 proc gettree {id} {
7337 global treefilelist treeidlist diffids diffmergeid treepending
7338 global nullid nullid2
7341 catch {unset diffmergeid}
7343 if {![info exists treepending]} {
7345 set cmd [list | git ls-files]
7347 set cmd [list | git ls-files --stage -t]
7348 } else {
7350 }
7352 return
7353 }
7359 }
7360 } else {
7362 }
7363 }
7365 proc gettreeline {gtf id} {
7366 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7368 set nl 0
7372 } else {
7380 }
7383 }
7386 }
7389 }
7391 unset treepending
7393 if {![info exists diffmergeid]} {
7395 }
7398 } else {
7400 }
7401 return 0
7402 }
7404 proc showfile {f} {
7405 global treefilelist treeidlist diffids nullid nullid2
7406 global ctext_file_names ctext_file_lines
7407 global ctext commentend
7412 return
7413 }
7417 return
7418 }
7419 } else {
7423 return
7424 }
7425 }
7436 settabs 0
7437 }
7439 proc getblobline {bf id} {
7440 global diffids cmitmode ctext
7444 return 0
7445 }
7447 set nl 0
7450 }
7452 global jump_to_here ctext_file_names commentend
7454 # delete last newline
7462 }
7464 return 0
7465 }
7468 }
7470 proc mark_ctext_line {lnum} {
7471 global ctext markbgcolor
7477 }
7479 proc mergediff {id} {
7480 global diffmergeid
7481 global diffids treediffs
7482 global parents curview
7490 }
7492 proc startdiff {ids} {
7493 global treediffs diffids treepending diffmergeid nullid nullid2
7495 settabs 1
7497 catch {unset diffmergeid}
7501 if {![info exists treepending]} {
7503 }
7504 } else {
7506 }
7507 }
7509 # If the filename (name) is under any of the passed filter paths
7510 # then return true to include the file in the listing.
7511 proc path_filter {filter name} {
7512 set worktree [gitworktree]
7517 return 1
7518 }
7519 }
7520 return 0
7521 }
7523 proc addtocflist {ids} {
7524 global treediffs
7528 }
7530 proc diffcmd {ids flags} {
7531 global log_showroot nullid nullid2
7537 # comparing working directory with some specific revision
7541 } else {
7543 }
7544 } else {
7545 # comparing working directory with index
7548 lappend cmd -R
7549 }
7550 }
7554 # comparing index with specific revision
7557 } else {
7559 }
7560 } else {
7561 # comparing index with HEAD
7562 lappend cmd HEAD
7563 }
7564 } else {
7566 lappend flags --root
7567 }
7569 }
7571 }
7573 proc gettreediffs {ids} {
7574 global treediff treepending
7579 set treediff {}
7582 }
7584 proc gettreediffline {gdtf ids} {
7585 global treediff treediffs treepending diffids diffmergeid
7586 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7588 set nr 0
7589 set sublist {}
7590 set max 1000
7592 # cache_gitattr is slow, and even slower on win32 where we
7593 # have to invoke it for only about 30 paths at a time
7594 set max 500
7595 if {[tk windowingsystem] == "win32"} {
7596 set max 120
7597 }
7598 }
7605 }
7610 }
7611 }
7612 }
7615 }
7618 }
7621 set flist {}
7625 }
7626 }
7628 } else {
7630 }
7631 unset treepending
7635 if {![info exists diffmergeid]} {
7637 }
7638 } else {
7640 }
7641 return 0
7642 }
7644 # empty string or positive integer
7645 proc diffcontextvalidate {v} {
7647 }
7649 proc diffcontextchange {n1 n2 op} {
7650 global diffcontextstring diffcontext
7655 reselectline
7656 }
7657 }
7658 }
7660 proc changeignorespace {} {
7661 reselectline
7662 }
7664 proc changeworddiff {name ix op} {
7665 reselectline
7666 }
7668 proc getblobdiffs {ids} {
7669 global blobdifffd diffids env
7670 global diffinhdr treediffs
7671 global diffcontext
7672 global ignorespace
7673 global worddiff
7674 global limitdiffs vfilelimit curview
7675 global diffencoding targetline diffnparents
7676 global git_version currdiffsubmod
7678 set textconv {}
7680 set textconv "--textconv"
7681 }
7682 set submodule {}
7684 set submodule "--submodule"
7685 }
7688 append cmd " -w"
7689 }
7691 append cmd " --word-diff=porcelain"
7692 }
7695 }
7698 return
7699 }
7700 set targetline {}
7701 set diffnparents 0
7702 set diffinhdr 0
7703 set diffencoding [get_path_encoding {}]
7706 set currdiffsubmod ""
7708 }
7710 proc savecmitpos {} {
7711 global ctext cmitmode
7714 return {}
7715 }
7717 }
7719 proc savectextpos {} {
7720 global ctext
7723 }
7725 proc maybe_scroll_ctext {ateof} {
7726 global ctext target_scrollpos
7728 if {![info exists target_scrollpos]} return
7731 / [font metrics textfont -linespace]}]
7733 }
7735 unset target_scrollpos
7736 }
7738 proc setinlist {var i val} {
7743 }
7746 } else {
7748 }
7749 }
7751 proc makediffhdr {fname ids} {
7752 global ctext curdiffstart treediffs diffencoding
7753 global ctext_file_names jump_to_here targetline diffline
7760 }
7765 set targetline {}
7768 }
7769 set diffline 0
7770 }
7772 proc getblobdiffline {bdf ids} {
7773 global diffids blobdifffd ctext curdiffstart
7774 global diffnexthead diffnextnote difffilestart
7775 global ctext_file_names ctext_file_lines
7776 global diffinhdr treediffs mergemax diffnparents
7777 global diffencoding jump_to_here targetline diffline currdiffsubmod
7778 global worddiff
7780 set nr 0
7785 return 0
7786 }
7791 continue
7792 }
7793 # start of a new file
7794 set diffinhdr 1
7797 lappend ctext_file_names ""
7802 # start of a new file in a merge diff
7807 }
7809 } else {
7811 # If the name hasn't changed the length will be odd,
7812 # the middle char will be a space, and the two bits either
7813 # side will be a/name and b/name, or "a/name" and "b/name".
7814 # If the name has changed we'll get "rename from" and
7815 # "rename to" or "copy from" and "copy to" lines following
7816 # this, and we'll use them to get the filenames.
7817 # This complexity is necessary because spaces in the
7818 # filename(s) don't get escaped.
7824 continue
7825 }
7826 # unescape if quoted and chop off the a/ from the front
7829 } else {
7831 }
7832 }
7845 }
7853 }
7855 set diffinhdr 0
7858 # start of a new submodule
7861 } else {
7863 }
7866 }
7868 lappend ctext_file_names ""
7874 } else {
7876 }
7890 }
7895 }
7901 }
7904 # do nothing
7905 continue
7907 set diffinhdr 0
7908 continue
7909 }
7912 } else {
7913 set line [string map {\x1A ^Z} \
7915 # parse the prefix - one ' ', '-' or '+' for each parent
7919 set words_pre_markup ""
7920 set words_post_markup ""
7922 # prefix only has " ", "-" and "+" in it: normal diff line
7926 }
7930 set num "max"
7931 }
7934 } else {
7936 }
7939 }
7940 } else {
7941 set tags {}
7943 # added line
7949 set num "max"
7950 }
7952 }
7953 }
7954 set words_pre_markup "{+"
7955 set words_post_markup "+}"
7956 }
7960 set targetline {}
7961 } else {
7962 incr diffline
7963 }
7964 }
7967 } else {
7969 }
7972 }
7973 }
7976 } else {
7977 # "\ No newline at end of file",
7978 # or something else we don't recognize
7980 }
7981 }
7982 }
7983 if {[info exists seehere]} {
7985 }
7990 return 0
7991 }
7993 }
7995 proc changediffdisp {} {
7996 global ctext diffelide
8000 }
8002 proc highlightfile {cline} {
8003 global cflist cflist_top
8005 if {![info exists cflist_top]} return
8011 }
8013 proc highlightfile_for_scrollpos {topidx} {
8014 global cmitmode difffilestart
8017 if {![info exists difffilestart]} return
8021 highlightfile 0
8022 } else {
8024 }
8025 }
8027 proc prevfile {} {
8028 global difffilestart ctext cmitmode
8031 set prev 0.0
8036 return
8037 }
8039 }
8041 }
8043 proc nextfile {} {
8044 global difffilestart ctext cmitmode
8051 return
8052 }
8053 }
8054 }
8056 proc clear_ctext {{first 1.0}} {
8057 global ctext smarktop smarkbot
8058 global ctext_file_names ctext_file_lines
8059 global pendinglinks
8064 }
8067 }
8070 catch {unset pendinglinks}
8071 }
8072 set ctext_file_names {}
8073 set ctext_file_lines {}
8074 }
8076 proc settabs {{firstab {}}} {
8077 global firsttabstop tabstop ctext have_tk85
8081 }
8082 set w [font measure textfont "0"]
8088 } else {
8090 }
8091 }
8093 proc incrsearch {name ix op} {
8094 global ctext searchstring searchdirn
8097 # no anchor set, use start of selection, or of visible area
8103 } else {
8105 }
8106 }
8114 suppress_highlighting_file_for_current_scrollpos
8116 }
8117 }
8118 rehighlight_search_results
8119 }
8121 proc dosearch {} {
8122 global sstring ctext searchstring searchdirn
8126 set searchdirn -forwards
8132 set start "@0,0"
8133 }
8137 bell
8138 return
8139 }
8141 suppress_highlighting_file_for_current_scrollpos
8146 rehighlight_search_results
8147 }
8148 }
8150 proc dosearchback {} {
8151 global sstring ctext searchstring searchdirn
8155 set searchdirn -backwards
8162 }
8166 bell
8167 return
8168 }
8170 suppress_highlighting_file_for_current_scrollpos
8175 rehighlight_search_results
8176 }
8177 }
8179 proc rehighlight_search_results {} {
8180 global ctext searchstring
8186 searchmarkvisible 1
8187 }
8188 }
8190 proc searchmark {first last} {
8191 global ctext searchstring
8196 while {1} {
8202 } else {
8204 }
8205 }
8206 }
8208 proc searchmarkvisible {doall} {
8209 global ctext smarktop smarkbot
8214 # no overlap with previous
8218 } else {
8222 }
8226 }
8227 }
8228 }
8230 proc suppress_highlighting_file_for_current_scrollpos {} {
8231 global ctext suppress_highlighting_file_for_this_scrollpos
8234 }
8236 proc scrolltext {f0 f1} {
8237 global searchstring cmitmode ctext
8238 global suppress_highlighting_file_for_this_scrollpos
8241 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8244 }
8246 catch {unset suppress_highlighting_file_for_this_scrollpos}
8250 searchmarkvisible 0
8251 }
8252 }
8254 proc setcoords {} {
8255 global linespc charspc canvx0 canvy0
8256 global xspc1 xspc2 lthickness
8258 set linespc [font metrics mainfont -linespace]
8259 set charspc [font measure mainfont "m"]
8265 }
8267 proc redisplay {} {
8268 global canv
8269 global selectedline
8274 clear_display
8275 setcanvscroll
8277 drawvisible
8281 }
8282 }
8284 proc parsefont {f n} {
8285 global fontattr
8290 set s 10
8293 }
8299 "normal" -
8301 "roman" -
8303 }
8304 }
8305 }
8307 proc fontflags {f {isbold 0}} {
8308 global fontattr
8313 }
8315 proc fontname {f} {
8316 global fontattr
8320 lappend n "bold"
8321 }
8323 lappend n "italic"
8324 }
8326 }
8328 proc incrfont {inc} {
8329 global mainfont textfont ctext canv cflist showrefstop
8330 global stopped entries fontattr
8332 unmarkmatches
8336 set s 1
8337 }
8341 set mainfont [fontname mainfont]
8345 set s 1
8346 }
8350 set textfont [fontname textfont]
8351 setcoords
8352 settabs
8353 redisplay
8354 }
8356 proc clearsha1 {} {
8357 global sha1entry sha1string
8360 }
8361 }
8363 proc sha1change {n1 n2 op} {
8364 global sha1string currentid sha1but
8367 set state disabled
8368 } else {
8369 set state normal
8370 }
8374 } else {
8376 }
8377 }
8379 proc gotocommit {} {
8380 global sha1string tagids headids curview varcid
8388 } else {
8395 return
8396 }
8398 }
8399 } else {
8402 return
8403 }
8404 }
8405 }
8408 return
8409 }
8412 } else {
8414 }
8416 }
8418 proc lineenter {x y id} {
8419 global hoverx hovery hoverid hovertimer
8420 global commitinfo canv
8426 if {[info exists hovertimer]} {
8428 }
8429 set hovertimer [after 500 linehover]
8431 }
8433 proc linemotion {x y id} {
8434 global hoverx hovery hoverid hovertimer
8439 if {[info exists hovertimer]} {
8441 }
8442 set hovertimer [after 500 linehover]
8443 }
8444 }
8446 proc lineleave {id} {
8447 global hoverid hovertimer canv
8451 if {[info exists hovertimer]} {
8453 unset hovertimer
8454 }
8455 unset hoverid
8456 }
8457 }
8459 proc linehover {} {
8460 global hoverx hovery hoverid hovertimer
8461 global canv linespc lthickness
8462 global commitinfo
8475 -fill \#ffff80 -outline black -width 1 -tags hover]
8478 -font mainfont]
8480 }
8482 proc clickisonarrow {id y} {
8483 global lthickness
8492 }
8493 }
8494 return {}
8495 }
8497 proc arrowjump {id n y} {
8498 global canv
8500 # 1 <-> 2, 3 <-> 4, etc...
8510 set yfrac 0
8511 }
8513 }
8515 proc lineclick {x y id isnew} {
8516 global ctext commitinfo children canv thickerline curview
8519 unmarkmatches
8520 unselectline
8521 normalline
8523 # draw this line thicker than normal
8531 }
8535 return
8536 }
8540 }
8541 # fill the details pane with info about this line
8543 clear_ctext
8544 settabs 0
8556 set i 0
8558 incr i
8568 }
8569 }
8570 maybe_scroll_ctext 1
8572 init_flist {}
8573 }
8575 proc normalline {} {
8576 global thickerline
8577 if {[info exists thickerline]} {
8579 unset thickerline
8581 }
8582 }
8584 proc selbyid {id {isnew 1}} {
8585 global curview
8588 }
8589 }
8591 proc mstime {} {
8592 global startmstime
8593 if {![info exists startmstime]} {
8594 set startmstime [clock clicks -milliseconds]
8595 }
8597 }
8599 proc rowmenu {x y id} {
8600 global rowctxmenu selectedline rowmenuid curview
8601 global nullid nullid2 fakerowmenu mainhead markedid
8603 stopfinding
8606 set state disabled
8607 } else {
8608 set state normal
8609 }
8611 set mstate normal
8612 } else {
8613 set mstate disabled
8614 }
8619 } else {
8621 }
8625 } else {
8627 }
8634 }
8636 proc markhere {} {
8637 global rowmenuid markedid canv
8641 }
8643 proc gotomark {} {
8644 global markedid
8646 if {[info exists markedid]} {
8648 }
8649 }
8651 proc replace_by_kids {l r} {
8652 global curview children
8658 }
8660 }
8662 proc find_common_desc {} {
8663 global markedid rowmenuid curview children
8665 if {![info exists markedid]} return
8668 #set t1 [clock clicks -milliseconds]
8671 while 1 {
8677 break
8678 }
8681 } else {
8683 }
8684 }
8685 #set t2 [clock clicks -milliseconds]
8687 }
8689 proc compare_commits {} {
8690 global markedid rowmenuid curview children
8692 if {![info exists markedid]} return
8696 }
8698 proc getpatchid {id} {
8699 global patchids
8703 # trim off the initial "|"
8705 if {[catch {
8708 }]} {
8710 }
8711 }
8713 }
8715 proc do_cmp_commits {a b} {
8716 global ctext curview parents children patchids commitinfo
8719 clear_ctext
8720 init_flist {}
8722 set skipa 0
8723 set skipb 0
8726 set skipa 1
8727 } else {
8729 }
8732 set skipb 1
8733 } else {
8735 }
8741 [mc " - stopping\n"]
8742 break
8743 }
8746 [mc " - stopping\n"]
8747 break
8748 }
8753 } else {
8757 }
8758 set skipa 1
8759 set skipb 1
8760 } else {
8767 update
8769 return
8770 }
8771 }
8778 break
8779 }
8781 }
8787 break
8788 }
8790 }
8791 }
8793 }
8795 proc diffcommits {a b} {
8796 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8798 set tmpdir [gitknewtmpdir]
8801 if {[catch {
8804 } err]} {
8806 return
8807 }
8808 if {[catch {
8810 } err]} {
8812 return
8813 }
8816 set diffinhdr 0
8817 set currdiffsubmod ""
8819 }
8821 proc diffvssel {dirn} {
8822 global rowmenuid selectedline
8828 } else {
8831 }
8834 }
8836 proc diffvsmark {dirn} {
8837 global rowmenuid markedid
8839 if {![info exists markedid]} return
8843 } else {
8846 }
8849 }
8851 proc doseldiff {oldid newid} {
8852 global ctext
8853 global commitinfo
8856 clear_ctext
8857 init_flist [mc "Top"]
8872 }
8874 proc mkpatch {} {
8875 global rowmenuid currentid commitinfo patchtop patchnum NS
8877 if {![info exists currentid]} return
8882 set top .patch
8912 incr patchnum
8924 }
8926 proc mkpatchrev {} {
8927 global patchtop
8933 foreach e [list fromsha1 fromhead tosha1 tohead] \
8939 }
8940 }
8942 proc mkpatchgo {} {
8943 global patchtop nullid nullid2
8949 # trim off the initial "|"
8954 }
8956 unset patchtop
8957 }
8959 proc mkpatchcan {} {
8960 global patchtop
8963 unset patchtop
8964 }
8966 proc mktag {} {
8967 global rowmenuid mktagtop commitinfo NS
8969 set top .maketag
9003 }
9005 proc domktag {} {
9006 global mktagtop env tagids idtags
9013 return 0
9014 }
9017 return 0
9018 }
9019 if {[catch {
9022 } else {
9024 }
9025 } err]} {
9027 return 0
9028 }
9034 dispneartags 0
9035 run refill_reflist
9036 return 1
9037 }
9039 proc redrawtags {id} {
9040 global canv linehtag idpos currentid curview cmitlisted markedid
9041 global canvxmax iddrawn circleitem mainheadid circlecolors
9047 set ofill yellow
9048 } else {
9050 }
9060 setcanvscroll
9061 }
9064 }
9067 }
9068 }
9070 proc mktagcan {} {
9071 global mktagtop
9074 unset mktagtop
9075 }
9077 proc mktaggo {} {
9078 if {![domktag]} return
9079 mktagcan
9080 }
9082 proc writecommit {} {
9083 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9085 set top .writecommit
9118 }
9120 proc wrcomgo {} {
9121 global wrcomtop
9128 }
9130 unset wrcomtop
9131 }
9133 proc wrcomcan {} {
9134 global wrcomtop
9137 unset wrcomtop
9138 }
9140 proc mkbranch {} {
9141 global rowmenuid mkbrtop NS
9143 set top .makebranch
9167 }
9169 proc mkbrgo {top} {
9170 global headids idheads
9174 set cmdargs {}
9175 set old_id {}
9178 return
9179 }
9181 if {![confirm_popup [mc \
9183 return
9184 }
9186 lappend cmdargs -f
9187 }
9190 nowbusy newbranch
9191 update
9192 if {[catch {
9194 } err]} {
9195 notbusy newbranch
9197 } else {
9198 notbusy newbranch
9204 } else {
9209 }
9210 dispneartags 0
9211 run refill_reflist
9212 }
9213 }
9215 proc exec_citool {tool_args {baseid {}}} {
9216 global commitinfo env
9218 set save_env [array get env GIT_AUTHOR_*]
9223 }
9226 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9232 }
9233 }
9237 array unset env GIT_AUTHOR_*
9239 }
9241 proc cherrypick {} {
9242 global rowmenuid curview
9243 global mainhead mainheadid
9244 global gitdir
9246 set oldhead [exec git rev-parse HEAD]
9249 set ok [confirm_popup [mc "Commit %s is already\
9250 included in branch %s -- really re-apply it?" \
9253 }
9254 nowbusy cherrypick [mc "Cherry-picking"]
9255 update
9256 # Unfortunately git-cherry-pick writes stuff to stderr even when
9257 # no error occurs, and exec takes that as an indication of error...
9259 notbusy cherrypick
9260 if {[regexp -line \
9261 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9263 error_popup [mc "Cherry-pick failed because of local changes\
9264 to file '%s'.\nPlease commit, reset or stash\
9266 } elseif {[regexp -line \
9267 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9269 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9270 conflict.\nDo you wish to run git citool to\
9271 resolve it?"]]} {
9272 # Force citool to read MERGE_MSG
9275 }
9276 } else {
9278 }
9279 run updatecommits
9280 return
9281 }
9282 set newhead [exec git rev-parse HEAD]
9284 notbusy cherrypick
9285 error_popup [mc "No changes committed"]
9286 return
9287 }
9290 # XXX this isn't right if we have a path limit...
9295 }
9300 }
9301 notbusy cherrypick
9302 }
9304 proc resethead {} {
9305 global mainhead rowmenuid confirm_ok resettype NS
9307 set confirm_ok 0
9308 set w ".confirmreset"
9316 set resettype mixed
9318 -text [mc "Soft: Leave working tree and index untouched"]
9321 -text [mc "Mixed: Leave working tree untouched, reset index"]
9324 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9335 if {[catch {set fd [open \
9338 } else {
9339 dohidelocalchanges
9341 nowbusy reset [mc "Resetting"]
9343 }
9344 }
9346 proc readresetstat {fd} {
9347 global mainhead mainheadid showlocalchanges rprogcoord
9352 adjustprogress
9353 }
9354 return 1
9355 }
9356 set rprogcoord 0
9357 adjustprogress
9358 notbusy reset
9361 }
9363 set newhead [exec git rev-parse HEAD]
9370 }
9372 doshowlocalchanges
9373 }
9374 return 0
9375 }
9377 # context menu for a head
9378 proc headmenu {x y id head} {
9379 global headmenuid headmenuhead headctxmenu mainhead
9381 stopfinding
9384 set state normal
9386 set state disabled
9387 }
9389 set state disabled
9390 }
9394 }
9396 proc cobranch {} {
9397 global headmenuid headmenuhead headids
9398 global showlocalchanges
9400 # check the tree is clean first??
9401 nowbusy checkout [mc "Checking out"]
9402 update
9403 dohidelocalchanges
9404 if {[catch {
9406 } err]} {
9407 notbusy checkout
9410 dodiffindex
9411 }
9412 } else {
9414 }
9415 }
9417 proc readcheckoutstat {fd newhead newheadid} {
9418 global mainhead mainheadid headids showlocalchanges progresscoords
9419 global viewmainheadid curview
9424 adjustprogress
9425 }
9426 return 1
9427 }
9428 set progresscoords {0 0}
9429 adjustprogress
9430 notbusy checkout
9433 }
9442 dodiffindex
9443 }
9444 }
9446 proc rmbranch {} {
9447 global headmenuid headmenuhead mainhead
9448 global idheads
9452 # this check shouldn't be needed any more...
9454 error_popup [mc "Cannot delete the currently checked-out branch"]
9455 return
9456 }
9459 # the stuff on this branch isn't on any other branch
9460 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9462 }
9463 nowbusy rmbranch
9464 update
9466 notbusy rmbranch
9468 return
9469 }
9473 notbusy rmbranch
9474 dispneartags 0
9475 run refill_reflist
9476 }
9478 # Display a list of tags and heads
9479 proc showrefs {} {
9480 global showrefstop bgcolor fgcolor selectbgcolor NS
9481 global bglist fglist reflistfilter reflist maincursor
9483 set top .showrefs
9487 refill_reflist
9488 return
9489 }
9497 -spacing1 1 -spacing3 1 -state disabled
9508 set reflistfilter "*"
9509 trace add variable reflistfilter write reflistfilter_change
9521 set reflist {}
9522 refill_reflist
9523 }
9525 proc sel_reflist {w x y} {
9526 global showrefstop reflist headids tagids otherrefids
9536 }
9538 }
9540 proc unsel_reflist {} {
9541 global showrefstop
9545 }
9547 proc reflistfilter_change {n1 n2 op} {
9548 global reflistfilter
9550 after cancel refill_reflist
9551 after 200 refill_reflist
9552 }
9554 proc refill_reflist {} {
9555 global reflist reflistfilter showrefstop headids tagids otherrefids
9556 global curview
9559 set refs {}
9560 foreach n [array names headids] {
9564 } else {
9566 }
9567 }
9568 }
9569 foreach n [array names tagids] {
9573 } else {
9575 }
9576 }
9577 }
9578 foreach n [array names otherrefids] {
9582 } else {
9584 }
9585 }
9586 }
9594 set i 0
9595 set j 0
9604 }
9605 } else {
9606 set cmp -1
9607 }
9608 } else {
9609 set cmp 1
9610 }
9612 -1 {
9614 incr i
9615 }
9616 0 {
9617 incr i
9618 incr j
9619 }
9620 1 {
9625 incr j
9626 }
9627 }
9628 }
9630 # delete last newline
9633 }
9635 # Stuff for finding nearby tags
9636 proc getallcommits {} {
9637 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9638 global idheads idtags idotherrefs allparents tagobjid
9639 global gitdir
9641 if {![info exists allcommits]} {
9642 set nextarc 0
9643 set allcommits 0
9644 set seeds {}
9645 set allcwait 0
9646 set cachedarcs 0
9648 if {![catch {
9650 set allcwait 1
9652 }]} return
9653 }
9656 return
9657 }
9658 set cmd [list | git rev-list --parents]
9661 set ids "--all"
9662 } else {
9663 set refs [concat [array names idheads] [array names idtags] \
9664 [array names idotherrefs]]
9665 set ids {}
9666 set tagobjs {}
9667 foreach name [array names tagobjid] {
9669 }
9674 }
9675 }
9679 }
9680 }
9681 }
9685 incr allcommits
9686 nowbusy allcommits
9688 } else {
9689 dispneartags 0
9690 }
9691 }
9693 # Since most commits have 1 parent and 1 child, we group strings of
9694 # such commits into "arcs" joining branch/merge points (BMPs), which
9695 # are commits that either don't have 1 parent or don't have 1 child.
9696 #
9697 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9698 # arcout(id) - outgoing arcs for BMP
9699 # arcids(a) - list of IDs on arc including end but not start
9700 # arcstart(a) - BMP ID at start of arc
9701 # arcend(a) - BMP ID at end of arc
9702 # growing(a) - arc a is still growing
9703 # arctags(a) - IDs out of arcids (excluding end) that have tags
9704 # archeads(a) - IDs out of arcids (excluding end) that have heads
9705 # The start of an arc is at the descendent end, so "incoming" means
9706 # coming from descendents, and "outgoing" means going towards ancestors.
9708 proc getallclines {fd} {
9709 global allparents allchildren idtags idheads nextarc
9710 global arcnos arcids arctags arcout arcend arcstart archeads growing
9711 global seeds allcommits cachedarcs allcupdate
9713 set nid 0
9717 # seen it already
9718 continue
9719 }
9720 set cachedarcs 0
9727 } else {
9733 }
9736 }
9738 # seen parent already
9741 }
9745 }
9748 continue
9749 }
9750 }
9755 }
9757 set ao {}
9760 set a [incr nextarc]
9769 # seen it already, may need to make a new branch
9772 }
9776 }
9778 }
9780 }
9782 global cached_dheads cached_dtags cached_atags
9783 catch {unset cached_dheads}
9784 catch {unset cached_dtags}
9785 catch {unset cached_atags}
9786 }
9789 }
9790 set cacheok 1
9791 if {[catch {
9794 } err]} {
9795 # got an error reading the list of commits
9796 # if we were updating, try rereading the whole thing again
9798 incr allcommits -1
9800 return
9801 }
9802 error_popup "[mc "Error reading commit topology information;\
9803 branch and preceding/following tag information\
9805 set cacheok 0
9806 }
9807 if {[incr allcommits -1] == 0} {
9808 notbusy allcommits
9810 run savecache
9811 }
9812 }
9813 dispneartags 0
9814 return 0
9815 }
9817 proc recalcarc {a} {
9818 global arctags archeads arcids idtags idheads
9820 set at {}
9821 set ah {}
9825 }
9828 }
9829 }
9832 }
9834 proc splitarc {p} {
9835 global arcnos arcids nextarc arctags archeads idtags idheads
9836 global arcstart arcend arcout allparents growing
9841 return
9842 }
9847 return
9848 }
9849 set na [incr nextarc]
9852 } else {
9856 }
9866 }
9871 } else {
9874 }
9875 }
9877 # reconstruct tags and heads lists
9881 } else {
9884 }
9885 }
9887 # Update things for a new commit added that is a child of one
9888 # existing commit. Used when cherry-picking.
9889 proc addnewchild {id p} {
9890 global allparents allchildren idtags nextarc
9891 global arcnos arcids arctags arcout arcend arcstart archeads growing
9892 global seeds allcommits
9900 set a [incr nextarc]
9908 }
9911 }
9913 # This implements a cache for the topology information.
9914 # The cache saves, for each arc, the start and end of the arc,
9915 # the ids on the arc, and the outgoing arcs from the end.
9916 proc readcache {f} {
9917 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9918 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9919 global allcwait
9925 }
9926 if {[catch {
9928 # finish reading the cache and setting up arctags, etc.
9932 foreach id [array names idtags] {
9938 }
9939 }
9940 }
9941 foreach id [array names idheads] {
9947 }
9948 }
9949 }
9953 }
9954 }
9955 set allcwait 0
9956 } else {
9966 }
9970 } else {
9974 }
9975 }
9981 }
9984 }
9987 }
9989 }
9990 } err]} {
9992 return 0
9993 }
9995 getallcommits
9996 }
9998 }
10000 proc getcache {f} {
10001 global nextarc cachedarcs possible_seeds
10003 if {[catch {
10006 # make sure it's an integer
10009 set nextarc 0
10010 set possible_seeds {}
10012 } err]} {
10014 }
10015 return 0
10016 }
10018 proc dropcache {err} {
10019 global allcwait nextarc cachedarcs seeds
10022 foreach v {arcnos arcout arcids arcstart arcend growing \
10023 arctags archeads allparents allchildren} {
10026 }
10027 set allcwait 0
10028 set nextarc 0
10029 set cachedarcs 0
10030 set seeds {}
10031 getallcommits
10032 }
10034 proc writecache {f} {
10035 global cachearc cachedarcs allccache
10036 global arcstart arcend arcnos arcids arcout
10042 }
10043 if {[catch {
10047 } else {
10049 }
10050 }
10051 } err]} {
10055 return 0
10056 }
10061 return 0
10062 }
10063 return 1
10064 }
10066 proc savecache {} {
10067 global nextarc cachedarcs cachearc allccache
10070 set cachearc 0
10072 catch {
10076 }
10077 }
10079 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10080 # or 0 if neither is true.
10081 proc anc_or_desc {a b} {
10082 global arcout arcstart arcend arcnos cached_isanc
10085 # Both are on the same arc(s); either both are the same BMP,
10086 # or if one is not a BMP, the other is also not a BMP or is
10087 # the BMP at end of the arc (and it only has 1 incoming arc).
10088 # Or both can be BMPs with no incoming arcs.
10090 return 0
10091 }
10097 return 1
10098 } else {
10099 return -1
10100 }
10101 }
10107 } else {
10108 set aend {}
10109 }
10111 } else {
10113 }
10118 } else {
10119 set bend {}
10120 }
10122 } else {
10124 }
10126 return 1
10127 }
10129 return -1
10130 }
10133 return 1
10134 }
10135 }
10138 return -1
10139 }
10141 return 0
10142 }
10143 }
10151 continue
10152 }
10158 return 1
10162 return -1
10163 }
10169 }
10170 }
10171 }
10174 return 0
10175 }
10179 # and returns 0 if so and 1 if not.
10180 # If we subsequently discover a tag on such a growing tip, and that
10183 # isn't a good choice to display as a descendent tag of
10187 #
10188 proc is_certain {desc anc} {
10189 global arcnos arcout arcstart arcend growing problems
10191 set certain {}
10193 # tags on the same arc are certain
10195 return 1
10196 }
10201 }
10202 }
10205 } else {
10208 }
10210 return 1
10211 }
10214 set nnh 1
10215 set ngrowanc 0
10219 incr nnh -1
10220 }
10226 incr ngrowanc
10227 }
10228 } else {
10235 incr nnh -1
10236 }
10238 incr ngrowanc -1
10239 }
10249 incr nnh -1
10250 }
10252 incr ngrowanc -1
10253 }
10255 }
10256 }
10257 }
10258 }
10259 }
10260 }
10264 } else {
10267 incr nnh
10268 }
10269 }
10270 }
10271 }
10272 foreach x [array names growanc] {
10274 return 0
10275 }
10276 return 0
10277 }
10278 return 1
10279 }
10281 proc validate_arctags {a} {
10282 global arctags idtags
10284 set i -1
10287 incr i
10290 incr i -1
10291 }
10292 }
10294 }
10296 proc validate_archeads {a} {
10297 global archeads idheads
10299 set i -1
10302 incr i
10305 incr i -1
10306 }
10307 }
10309 }
10311 # Return the list of IDs that have tags that are descendents of id,
10312 # ignoring IDs that are descendents of IDs already reported.
10313 proc desctags {id} {
10314 global arcnos arcstart arcids arctags idtags allparents
10315 global growing cached_dtags
10318 return {}
10319 }
10320 set t1 [clock clicks -milliseconds]
10323 # part-way along an arc; check that arc first
10328 set tid {}
10333 }
10336 }
10337 }
10341 }
10342 }
10345 }
10350 set nc 1
10356 incr nc -1
10357 }
10358 # ignore tags on starting node
10362 set ta 1
10365 set ta 1
10366 }
10367 }
10374 }
10375 }
10384 }
10387 }
10389 incr nc -1
10390 }
10392 }
10393 }
10394 }
10399 incr nc
10400 }
10401 }
10402 }
10403 }
10404 set tags {}
10405 foreach id [array names tagloc] {
10410 }
10411 }
10412 }
10413 }
10414 set t2 [clock clicks -milliseconds]
10417 # remove tags that are descendents of other tags
10425 incr j -1
10426 incr i -1
10429 incr i -1
10430 break
10431 }
10432 }
10433 }
10435 if {[array names growing] ne {}} {
10436 # graph isn't finished, need to check if any tag could get
10437 # eclipsed by another tag coming later. Simply ignore any
10438 # tags that could later get eclipsed.
10439 set ctags {}
10443 }
10444 }
10447 } else {
10449 }
10450 } else {
10452 }
10453 set t3 [clock clicks -milliseconds]
10457 }
10459 }
10461 proc anctags {id} {
10462 global arcnos arcids arcout arcend arctags idtags allparents
10463 global growing cached_atags
10466 return {}
10467 }
10468 set t1 [clock clicks -milliseconds]
10471 # part-way along an arc; check that arc first
10480 }
10481 }
10482 }
10484 return {}
10485 }
10489 }
10490 }
10493 }
10498 set taglist {}
10499 set nc 1
10505 incr nc -1
10506 }
10507 # ignore tags on starting node
10511 set td 1
10514 set td 1
10515 }
10516 }
10522 }
10523 }
10535 }
10536 }
10539 }
10541 incr nc -1
10542 }
10544 }
10545 }
10546 }
10551 incr nc
10552 }
10553 }
10554 }
10555 }
10556 set t2 [clock clicks -milliseconds]
10558 set tags {}
10559 foreach id [array names tagloc] {
10564 }
10565 }
10566 }
10567 }
10569 # remove tags that are ancestors of other tags
10577 incr j -1
10578 incr i -1
10581 incr i -1
10582 break
10583 }
10584 }
10585 }
10587 if {[array names growing] ne {}} {
10588 # graph isn't finished, need to check if any tag could get
10589 # eclipsed by another tag coming later. Simply ignore any
10590 # tags that could later get eclipsed.
10591 set ctags {}
10595 }
10596 }
10599 } else {
10601 }
10602 } else {
10604 }
10605 set t3 [clock clicks -milliseconds]
10609 }
10611 }
10613 # Return the list of IDs that have heads that are descendents of id,
10614 # including id itself if it has a head.
10615 proc descheads {id} {
10616 global arcnos arcstart arcids archeads idheads cached_dheads
10617 global allparents arcout
10620 return {}
10621 }
10622 set aret {}
10624 # part-way along an arc; check it first
10633 }
10634 }
10636 }
10640 set ret {}
10645 } else {
10648 }
10654 }
10655 }
10660 }
10661 }
10662 }
10663 }
10667 }
10669 proc addedtag {id} {
10670 global arcnos arcout cached_dtags cached_atags
10675 }
10676 catch {unset cached_dtags}
10677 catch {unset cached_atags}
10678 }
10680 proc addedhead {hid head} {
10681 global arcnos arcout cached_dheads
10686 }
10687 catch {unset cached_dheads}
10688 }
10690 proc removedhead {hid head} {
10691 global cached_dheads
10693 catch {unset cached_dheads}
10694 }
10696 proc movedhead {hid head} {
10697 global arcnos arcout cached_dheads
10702 }
10703 catch {unset cached_dheads}
10704 }
10706 proc changedrefs {} {
10707 global cached_dheads cached_dtags cached_atags cached_tagcontent
10708 global arctags archeads arcnos arcout idheads idtags
10710 foreach id [concat [array names idheads] [array names idtags]] {
10716 }
10717 }
10718 }
10719 catch {unset cached_tagcontent}
10720 catch {unset cached_dtags}
10721 catch {unset cached_atags}
10722 catch {unset cached_dheads}
10723 }
10725 proc rereadrefs {} {
10726 global idtags idheads idotherrefs mainheadid
10728 set refids [concat [array names idtags] \
10729 [array names idheads] [array names idotherrefs]]
10733 }
10734 }
10736 readrefs
10737 changedrefs
10739 [array names idheads] [array names idotherrefs]]]
10744 }
10745 }
10749 }
10750 run refill_reflist
10751 }
10753 proc listrefs {id} {
10754 global idtags idheads idotherrefs
10756 set x {}
10759 }
10760 set y {}
10763 }
10764 set z {}
10767 }
10769 }
10771 proc showtag {tag isnew} {
10772 global ctext cached_tagcontent tagids linknum tagobjid
10776 }
10778 clear_ctext
10779 settabs 0
10780 set linknum 0
10782 catch {
10784 }
10785 }
10788 } else {
10790 }
10792 maybe_scroll_ctext 1
10794 init_flist {}
10795 }
10797 proc doquit {} {
10798 global stopped
10799 global gitktmpdir
10801 set stopped 100
10802 savestuff .
10803 destroy .
10805 if {[info exists gitktmpdir]} {
10807 }
10808 }
10810 proc mkfontdisp {font top which} {
10819 }
10821 proc choosefont {font which} {
10822 global fontparam fontlist fonttop fontattr
10823 global prefstop NS
10831 set top .gitkfont
10834 font create sample
10841 set fontlist [lsort [font families]]
10852 -textvariable fontparam(size) \
10853 -validatecommand {string is integer -strict %s}
10855 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10856 -variable fontparam(weight) -onvalue bold -offvalue normal
10858 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10859 -variable fontparam(slant) -onvalue italic -offvalue roman
10863 -background white
10865 -fill black -tags text
10877 trace add variable fontparam write chg_fontparam
10878 } else {
10881 }
10886 }
10887 }
10889 proc centertext {w} {
10891 }
10893 proc fontok {} {
10894 global fontparam fontpref prefstop
10900 }
10903 }
10907 fontcan
10908 }
10910 proc fontcan {} {
10911 global fonttop fontparam
10913 if {[info exists fonttop]} {
10915 catch {font delete sample}
10916 unset fonttop
10917 unset fontparam
10918 }
10919 }
10921 if {[package vsatisfies [package provide Tk] 8.6]} {
10922 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10923 # function to make use of it.
10924 proc choosefont {font which} {
10927 tk fontchooser show
10928 }
10929 proc on_choosefont {font which newfont} {
10930 global fontparam
10939 fontok
10940 }
10941 }
10943 proc selfontfam {} {
10944 global fonttop fontparam
10949 }
10950 }
10952 proc chg_fontparam {v sub op} {
10953 global fontparam
10956 }
10958 # Create a property sheet tab page
10959 proc create_prefs_page {w} {
10960 global NS
10964 } else {
10966 }
10967 }
10969 proc prefspage_general {notebook} {
10970 global NS maxwidth maxgraphpct showneartags showlocalchanges
10971 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
10972 global hideremotes want_ttk have_ttk maxrefs
10986 -variable showlocalchanges
10989 -variable autoselect
10993 -variable hideremotes
11002 -variable showneartags
11008 -variable limitdiffs
11011 -variable perfile_attrs
11025 -text [mc "Use themed widgets"]
11028 } else {
11030 }
11033 }
11035 proc prefspage_colors {notebook} {
11036 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11067 [mc "diff hunk header"] \
11073 [mc "marked line background"] \
11081 }
11083 proc prefspage_fonts {notebook} {
11084 global NS
11092 }
11094 proc doprefs {} {
11095 global maxwidth maxgraphpct use_ttk NS
11096 global oldprefs prefstop showneartags showlocalchanges
11097 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11098 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11099 global hideremotes want_ttk have_ttk
11101 set top .gitkprefs
11105 return
11106 }
11107 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11108 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11110 }
11117 } else {
11119 }
11124 set col 0
11128 } else {
11134 }
11135 }
11141 }
11158 }
11160 proc choose_extdiff {} {
11161 global extdifftool
11163 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11166 }
11167 }
11169 proc choosecolor {v vi w x cmd} {
11178 }
11180 proc setselbg {c} {
11181 global bglist cflist
11184 }
11188 }
11190 # This sets the background color and the color scheme for the whole UI.
11191 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11192 # if we don't specify one ourselves, which makes the checkbuttons and
11193 # radiobuttons look bad. This chooses white for selectColor if the
11194 # background color is light, or black if it is dark.
11195 proc setui {c} {
11196 if {[tk windowingsystem] eq "win32"} { return }
11198 set selc black
11200 set selc white
11201 }
11203 }
11205 proc setbg {c} {
11206 global bglist
11210 }
11211 }
11213 proc setfg {c} {
11214 global fglist canv
11218 }
11222 }
11224 proc prefscan {} {
11225 global oldprefs prefstop
11227 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11228 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11231 }
11233 unset prefstop
11234 fontcan
11235 }
11237 proc prefsok {} {
11238 global maxwidth maxgraphpct
11239 global oldprefs prefstop showneartags showlocalchanges
11240 global fontpref mainfont textfont uifont
11241 global limitdiffs treediffs perfile_attrs
11242 global hideremotes
11245 unset prefstop
11246 fontcan
11247 set fontchanged 0
11251 eval font configure mainfont [fontflags mainfont]
11252 eval font configure mainfontbold [fontflags mainfont 1]
11253 setcoords
11254 set fontchanged 1
11255 }
11259 eval font configure textfont [fontflags textfont]
11260 eval font configure textfontbold [fontflags textfont 1]
11261 }
11265 eval font configure uifont [fontflags uifont]
11266 }
11267 settabs
11270 doshowlocalchanges
11271 } else {
11272 dohidelocalchanges
11273 }
11274 }
11277 # treediffs elements are limited by path;
11278 # won't have encodings cached if perfile_attrs was just turned on
11279 catch {unset treediffs}
11280 }
11283 redisplay
11286 reselectline
11287 }
11289 rereadrefs
11290 }
11291 }
11293 proc formatdate {d} {
11294 global datetimeformat
11297 }
11299 }
11301 # This list of encoding names and aliases is distilled from
11302 # http://www.iana.org/assignments/character-sets.
11303 # Not all of them are supported by Tcl.
11304 set encoding_aliases {
11305 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11306 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11307 { ISO-10646-UTF-1 csISO10646UTF1 }
11308 { ISO_646.basic:1983 ref csISO646basic1983 }
11309 { INVARIANT csINVARIANT }
11310 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11311 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11312 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11313 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11314 { NATS-DANO iso-ir-9-1 csNATSDANO }
11315 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11316 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11317 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11318 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11319 { ISO-2022-KR csISO2022KR }
11320 { EUC-KR csEUCKR }
11321 { ISO-2022-JP csISO2022JP }
11322 { ISO-2022-JP-2 csISO2022JP2 }
11323 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11324 csISO13JISC6220jp }
11325 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11326 { IT iso-ir-15 ISO646-IT csISO15Italian }
11327 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11328 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11329 { greek7-old iso-ir-18 csISO18Greek7Old }
11330 { latin-greek iso-ir-19 csISO19LatinGreek }
11331 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11332 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11333 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11334 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11335 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11336 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11337 { INIS iso-ir-49 csISO49INIS }
11338 { INIS-8 iso-ir-50 csISO50INIS8 }
11339 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11340 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11341 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11342 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11343 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11344 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11345 csISO60Norwegian1 }
11346 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11347 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11348 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11349 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11350 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11351 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11352 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11353 { greek7 iso-ir-88 csISO88Greek7 }
11354 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11355 { iso-ir-90 csISO90 }
11356 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11357 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11358 csISO92JISC62991984b }
11359 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11360 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11361 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11362 csISO95JIS62291984handadd }
11363 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11364 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11365 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11366 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11367 CP819 csISOLatin1 }
11368 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11369 { T.61-7bit iso-ir-102 csISO102T617bit }
11370 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11371 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11372 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11373 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11374 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11375 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11376 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11377 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11378 arabic csISOLatinArabic }
11379 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11380 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11381 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11382 greek greek8 csISOLatinGreek }
11383 { T.101-G2 iso-ir-128 csISO128T101G2 }
11384 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11385 csISOLatinHebrew }
11386 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11387 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11388 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11389 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11390 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11391 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11392 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11393 csISOLatinCyrillic }
11394 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11395 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11396 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11397 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11398 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11399 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11400 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11401 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11402 { ISO_10367-box iso-ir-155 csISO10367Box }
11403 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11404 { latin-lap lap iso-ir-158 csISO158Lap }
11405 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11406 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11407 { us-dk csUSDK }
11408 { dk-us csDKUS }
11409 { JIS_X0201 X0201 csHalfWidthKatakana }
11410 { KSC5636 ISO646-KR csKSC5636 }
11411 { ISO-10646-UCS-2 csUnicode }
11412 { ISO-10646-UCS-4 csUCS4 }
11413 { DEC-MCS dec csDECMCS }
11414 { hp-roman8 roman8 r8 csHPRoman8 }
11415 { macintosh mac csMacintosh }
11416 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11417 csIBM037 }
11418 { IBM038 EBCDIC-INT cp038 csIBM038 }
11419 { IBM273 CP273 csIBM273 }
11420 { IBM274 EBCDIC-BE CP274 csIBM274 }
11421 { IBM275 EBCDIC-BR cp275 csIBM275 }
11422 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11423 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11424 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11425 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11426 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11427 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11428 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11429 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11430 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11431 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11432 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11433 { IBM437 cp437 437 csPC8CodePage437 }
11434 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11435 { IBM775 cp775 csPC775Baltic }
11436 { IBM850 cp850 850 csPC850Multilingual }
11437 { IBM851 cp851 851 csIBM851 }
11438 { IBM852 cp852 852 csPCp852 }
11439 { IBM855 cp855 855 csIBM855 }
11440 { IBM857 cp857 857 csIBM857 }
11441 { IBM860 cp860 860 csIBM860 }
11442 { IBM861 cp861 861 cp-is csIBM861 }
11443 { IBM862 cp862 862 csPC862LatinHebrew }
11444 { IBM863 cp863 863 csIBM863 }
11445 { IBM864 cp864 csIBM864 }
11446 { IBM865 cp865 865 csIBM865 }
11447 { IBM866 cp866 866 csIBM866 }
11448 { IBM868 CP868 cp-ar csIBM868 }
11449 { IBM869 cp869 869 cp-gr csIBM869 }
11450 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11451 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11452 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11453 { IBM891 cp891 csIBM891 }
11454 { IBM903 cp903 csIBM903 }
11455 { IBM904 cp904 904 csIBBM904 }
11456 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11457 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11458 { IBM1026 CP1026 csIBM1026 }
11459 { EBCDIC-AT-DE csIBMEBCDICATDE }
11460 { EBCDIC-AT-DE-A csEBCDICATDEA }
11461 { EBCDIC-CA-FR csEBCDICCAFR }
11462 { EBCDIC-DK-NO csEBCDICDKNO }
11463 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11464 { EBCDIC-FI-SE csEBCDICFISE }
11465 { EBCDIC-FI-SE-A csEBCDICFISEA }
11466 { EBCDIC-FR csEBCDICFR }
11467 { EBCDIC-IT csEBCDICIT }
11468 { EBCDIC-PT csEBCDICPT }
11469 { EBCDIC-ES csEBCDICES }
11470 { EBCDIC-ES-A csEBCDICESA }
11471 { EBCDIC-ES-S csEBCDICESS }
11472 { EBCDIC-UK csEBCDICUK }
11473 { EBCDIC-US csEBCDICUS }
11474 { UNKNOWN-8BIT csUnknown8BiT }
11475 { MNEMONIC csMnemonic }
11476 { MNEM csMnem }
11477 { VISCII csVISCII }
11478 { VIQR csVIQR }
11479 { KOI8-R csKOI8R }
11480 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11481 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11482 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11483 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11484 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11485 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11486 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11487 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11488 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11489 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11490 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11491 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11492 { IBM1047 IBM-1047 }
11493 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11494 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11495 { UNICODE-1-1 csUnicode11 }
11496 { CESU-8 csCESU-8 }
11497 { BOCU-1 csBOCU-1 }
11498 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11499 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11500 l8 }
11501 { ISO-8859-15 ISO_8859-15 Latin-9 }
11502 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11503 { GBK CP936 MS936 windows-936 }
11504 { JIS_Encoding csJISEncoding }
11505 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11506 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11507 EUC-JP }
11508 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11509 { ISO-10646-UCS-Basic csUnicodeASCII }
11510 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11511 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11512 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11513 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11514 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11515 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11516 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11517 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11518 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11519 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11520 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11521 { Ventura-US csVenturaUS }
11522 { Ventura-International csVenturaInternational }
11523 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11524 { PC8-Turkish csPC8Turkish }
11525 { IBM-Symbols csIBMSymbols }
11526 { IBM-Thai csIBMThai }
11527 { HP-Legal csHPLegal }
11528 { HP-Pi-font csHPPiFont }
11529 { HP-Math8 csHPMath8 }
11530 { Adobe-Symbol-Encoding csHPPSMath }
11531 { HP-DeskTop csHPDesktop }
11532 { Ventura-Math csVenturaMath }
11533 { Microsoft-Publishing csMicrosoftPublishing }
11534 { Windows-31J csWindows31J }
11535 { GB2312 csGB2312 }
11536 { Big5 csBig5 }
11537 }
11539 proc tcl_encoding {enc} {
11540 global encoding_aliases tcl_encoding_cache
11543 }
11544 set names [encoding names]
11549 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11552 }
11553 }
11558 # look through the aliases for one that tcl knows about
11564 }
11565 }
11567 }
11568 break
11569 }
11570 }
11571 set tclenc {}
11574 }
11577 }
11579 proc gitattr {path attr default} {
11580 global path_attr_cache
11583 } else {
11584 set r "unspecified"
11587 }
11589 }
11592 }
11594 }
11596 proc cache_gitattr {attr pathlist} {
11597 global path_attr_cache
11598 set newlist {}
11602 }
11603 }
11604 set lim 1000
11605 if {[tk windowingsystem] == "win32"} {
11606 # windows has a 32k limit on the arguments to a command...
11607 set lim 30
11608 }
11617 }
11619 }
11620 }
11621 }
11622 }
11623 }
11625 proc get_path_encoding {path} {
11626 global gui_encoding perfile_attrs
11632 }
11633 }
11635 }
11637 # First check that Tcl/Tk is recent enough
11638 if {[catch {package require Tk 8.4} err]} {
11639 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11640 Gitk requires at least Tcl/Tk 8.4." list
11641 exit 1
11642 }
11644 # Unset GIT_TRACE var if set
11645 if { [info exists ::env(GIT_TRACE)] } {
11646 unset ::env(GIT_TRACE)
11647 }
11649 # defaults...
11650 set wrcomcmd "git diff-tree --stdin -p --pretty"
11652 set gitencoding {}
11653 catch {
11654 set gitencoding [exec git config --get i18n.commitencoding]
11655 }
11656 catch {
11657 set gitencoding [exec git config --get i18n.logoutputencoding]
11658 }
11660 set gitencoding "utf-8"
11661 }
11665 }
11667 set gui_encoding [encoding system]
11668 catch {
11669 set enc [exec git config --get gui.encoding]
11674 } else {
11676 }
11677 }
11678 }
11680 set log_showroot true
11681 catch {
11682 set log_showroot [exec git config --bool --get log.showroot]
11683 }
11685 if {[tk windowingsystem] eq "aqua"} {
11686 set mainfont {{Lucida Grande} 9}
11687 set textfont {Monaco 9}
11688 set uifont {{Lucida Grande} 9 bold}
11690 # fontconfig!
11691 set mainfont {sans 9}
11692 set textfont {monospace 9}
11693 set uifont {sans 9 bold}
11694 } else {
11695 set mainfont {Helvetica 9}
11696 set textfont {Courier 9}
11697 set uifont {Helvetica 9 bold}
11698 }
11699 set tabstop 8
11700 set findmergefiles 0
11701 set maxgraphpct 50
11702 set maxwidth 16
11703 set revlistorder 0
11704 set fastdate 0
11705 set uparrowlen 5
11706 set downarrowlen 5
11707 set mingaplen 100
11708 set cmitmode "patch"
11709 set wrapcomment "none"
11710 set showneartags 1
11711 set hideremotes 0
11712 set maxrefs 20
11713 set maxlinelen 200
11714 set showlocalchanges 1
11715 set limitdiffs 1
11716 set datetimeformat "%Y-%m-%d %H:%M:%S"
11717 set autoselect 1
11718 set autosellen 40
11719 set perfile_attrs 0
11720 set want_ttk 1
11722 if {[tk windowingsystem] eq "aqua"} {
11723 set extdifftool "opendiff"
11724 } else {
11725 set extdifftool "meld"
11726 }
11728 set colors {green red blue magenta darkgrey brown orange}
11729 if {[tk windowingsystem] eq "win32"} {
11730 set uicolor SystemButtonFace
11731 set bgcolor SystemWindow
11732 set fgcolor SystemButtonText
11733 set selectbgcolor SystemHighlight
11734 } else {
11735 set uicolor grey85
11736 set bgcolor white
11737 set fgcolor black
11738 set selectbgcolor gray85
11739 }
11740 set diffcolors {red "#00a000" blue}
11741 set diffcontext 3
11742 set ignorespace 0
11743 set worddiff ""
11744 set markbgcolor "#e0e0ff"
11746 set circlecolors {white blue gray blue blue}
11748 # button for popping up context menus
11749 if {[tk windowingsystem] eq "aqua"} {
11750 set ctxbut <Button-2>
11751 } else {
11752 set ctxbut <Button-3>
11753 }
11755 ## For msgcat loading, first locate the installation location.
11756 if { [info exists ::env(GITK_MSGSDIR)] } {
11757 ## Msgsdir was manually set in the environment.
11758 set gitk_msgsdir $::env(GITK_MSGSDIR)
11759 } else {
11760 ## Let's guess the prefix from argv0.
11764 unset gitk_prefix
11765 }
11767 ## Internationalization (i18n) through msgcat and gettext. See
11768 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11769 package require msgcat
11770 namespace import ::msgcat::mc
11771 ## And eventually load the actual message catalog
11774 catch {source ~/.gitk}
11777 eval font create mainfont [fontflags mainfont]
11778 eval font create mainfontbold [fontflags mainfont 1]
11781 eval font create textfont [fontflags textfont]
11782 eval font create textfontbold [fontflags textfont 1]
11785 eval font create uifont [fontflags uifont]
11789 setoptions
11791 # check that we can find a .git directory somewhere...
11792 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
11793 show_error {} . [mc "Cannot find a git repository here."]
11794 exit 1
11795 }
11797 set selecthead {}
11798 set selectheadid {}
11800 set revtreeargs {}
11801 set cmdline_files {}
11802 set i 0
11803 set revtreeargscmd {}
11806 "" { }
11807 "--" {
11809 break
11810 }
11811 "--select-commit=*" {
11813 }
11814 "--argscmd=*" {
11816 }
11817 default {
11819 }
11820 }
11821 incr i
11822 }
11825 set selecthead {}
11826 }
11829 # no -- on command line, but some arguments (other than --argscmd)
11830 if {[catch {
11835 # Unfortunately git rev-parse doesn't produce an error when
11836 # something is both a revision and a filename. To be consistent
11837 # with git log and git rev-list, check revtreeargs for filenames.
11840 show_error {} . [mc "Ambiguous argument '%s': both revision\
11842 exit 1
11843 }
11844 }
11845 } err]} {
11847 # so look for "fatal:".
11851 }
11853 exit 1
11854 }
11855 }
11857 set nullid "0000000000000000000000000000000000000000"
11858 set nullid2 "0000000000000000000000000000000000000001"
11859 set nullfile "/dev/null"
11862 if {![info exists have_ttk]} {
11863 set have_ttk [llength [info commands ::ttk::style]]
11864 }
11868 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
11870 set show_notes {}
11872 set show_notes "--show-notes"
11873 }
11875 set appname "gitk"
11877 set runq {}
11878 set history {}
11879 set historyindex 0
11880 set fh_serial 0
11881 set nhl_names {}
11882 set highlight_paths {}
11883 set findpattern {}
11884 set searchdirn -forwards
11885 set boldids {}
11886 set boldnameids {}
11887 set diffelide {0 0}
11888 set markingmatches 0
11889 set linkentercount 0
11890 set need_redisplay 0
11891 set nrows_drawn 0
11892 set firsttabstop 0
11894 set nextviewnum 1
11895 set curview 0
11896 set selectedview 0
11897 set selectedhlview [mc "None"]
11898 set highlight_related [mc "None"]
11899 set highlight_files {}
11900 set viewfiles(0) {}
11901 set viewperm(0) 0
11902 set viewargs(0) {}
11903 set viewargscmd(0) {}
11905 set selectedline {}
11906 set numcommits 0
11907 set loginstance 0
11908 set cmdlineok 0
11909 set stopped 0
11910 set stuffsaved 0
11911 set patchnum 0
11912 set lserial 0
11913 set hasworktree [hasworktree]
11914 set cdup {}
11915 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
11916 set cdup [exec git rev-parse --show-cdup]
11917 }
11918 set worktree [exec git rev-parse --show-toplevel]
11919 setcoords
11920 makewindow
11921 catch {
11922 image create photo gitlogo -width 16 -height 16
11924 image create photo gitlogominus -width 4 -height 2
11925 gitlogominus put #C00000 -to 0 0 4 2
11926 gitlogo copy gitlogominus -to 1 5
11927 gitlogo copy gitlogominus -to 6 5
11928 gitlogo copy gitlogominus -to 11 5
11929 image delete gitlogominus
11931 image create photo gitlogoplus -width 4 -height 4
11932 gitlogoplus put #008000 -to 1 0 3 4
11933 gitlogoplus put #008000 -to 0 1 4 3
11934 gitlogo copy gitlogoplus -to 1 9
11935 gitlogo copy gitlogoplus -to 6 9
11936 gitlogo copy gitlogoplus -to 11 9
11937 image delete gitlogoplus
11939 image create photo gitlogo32 -width 32 -height 32
11940 gitlogo32 copy gitlogo -zoom 2 2
11942 wm iconphoto . -default gitlogo gitlogo32
11943 }
11944 # wait for the window to become visible
11945 tkwait visibility .
11947 update
11948 readrefs
11951 # create a view for the files/dirs specified on the command line
11952 set curview 1
11953 set selectedview 1
11954 set nextviewnum 2
11955 set viewname(1) [mc "Command line"]
11959 set viewperm(1) 0
11960 set vdatemode(1) 0
11961 addviewmenu 1
11962 .bar.view entryconf [mca "Edit view..."] -state normal
11963 .bar.view entryconf [mca "Delete view"] -state normal
11964 }
11966 if {[info exists permviews]} {
11969 incr nextviewnum
11976 }
11977 }
11979 if {[tk windowingsystem] eq "win32"} {
11980 focus -force .
11981 }
11983 getcommits {}
11985 # Local variables:
11986 # mode: tcl
11987 # indent-tabs-mode: t
11988 # tab-width: 8
11989 # End: