| blob | dd9370c7b122981e000bd8248ff8acd0682d0f67 |
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 }
6392 set font mainfont
6393 if {[incr ntags -1] >= 0} {
6394 # draw a tag
6400 } else {
6401 # draw a head or other ref
6402 if {[incr nheads -1] >= 0} {
6403 set col green
6405 set font mainfontbold
6406 }
6407 } else {
6408 set col "#ddddff"
6409 }
6420 }
6421 }
6428 }
6429 }
6431 }
6433 proc drawnotesign {xt y} {
6434 global linespc canv fgcolor
6442 }
6444 proc xcoord {i level ln} {
6445 global canvx0 xspc1 xspc2
6452 }
6454 }
6456 proc show_status {msg} {
6457 global canv fgcolor
6459 clear_display
6462 }
6464 # Don't change the text pane cursor if it is currently the hand cursor,
6465 # showing that we are over a sha1 ID link.
6466 proc settextcursor {c} {
6467 global ctext curtextcursor
6471 }
6473 }
6475 proc nowbusy {what {name {}}} {
6476 global isbusy busyname statusw
6478 if {[array names isbusy] eq {}} {
6479 . config -cursor watch
6480 settextcursor watch
6481 }
6486 }
6487 }
6489 proc notbusy {what} {
6490 global isbusy maincursor textcursor busyname statusw
6492 catch {
6497 }
6498 }
6499 if {[array names isbusy] eq {}} {
6502 }
6503 }
6505 proc findmatches {f} {
6506 global findtype findstring
6509 } else {
6514 }
6515 set matches {}
6516 set i 0
6521 }
6522 }
6524 }
6526 proc dofind {{dirn 1} {wrap 1}} {
6527 global findstring findstartline findcurline selectedline numcommits
6528 global gdttype filehighlight fh_serial find_dirn findallowwrap
6530 if {[info exists find_dirn]} {
6532 stopfinding
6533 }
6534 focus .
6538 } else {
6540 }
6542 nowbusy finding [mc "Searching"]
6546 }
6549 run findmore
6550 }
6552 proc stopfinding {} {
6553 global find_dirn findcurline fprogcoord
6555 if {[info exists find_dirn]} {
6556 unset find_dirn
6557 unset findcurline
6558 notbusy finding
6559 set fprogcoord 0
6560 adjustprogress
6561 }
6562 stopblaming
6563 }
6565 proc findmore {} {
6566 global commitdata commitinfo numcommits findpattern findloc
6567 global findstartline findcurline findallowwrap
6568 global find_dirn gdttype fhighlights fprogcoord
6569 global curview varcorder vrownum varccommits vrowmod
6571 if {![info exists find_dirn]} {
6572 return 0
6573 }
6574 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6576 set moretodo 0
6578 incr l
6580 set l 0
6581 }
6584 } else {
6587 }
6588 } else {
6591 }
6592 incr l -1
6595 } else {
6596 set lim -1
6598 }
6599 }
6602 set n 500
6603 set moretodo 1
6604 }
6607 }
6608 set found 0
6609 set domore 1
6623 }
6625 # shouldn't happen unless git log doesn't give all the commits...
6628 continue
6629 }
6632 }
6638 set found 1
6639 break
6640 }
6641 }
6643 }
6644 } else {
6652 }
6657 }
6660 break
6661 }
6664 set domore 0
6666 }
6667 }
6668 }
6669 }
6671 unset findcurline
6672 unset find_dirn
6673 notbusy finding
6674 set fprogcoord 0
6675 adjustprogress
6678 } else {
6679 bell
6680 }
6681 return 0
6682 }
6684 flushhighlights
6685 } else {
6687 }
6691 }
6693 adjustprogress
6695 }
6697 proc findselectline {l} {
6698 global findloc commentend ctext findcurline markingmatches gdttype
6705 # highlight the matches in the comments
6712 }
6713 }
6714 drawvisible
6715 }
6717 # mark the bits of a headline or author that match a find string
6718 proc markmatches {canv l str tag matches font row} {
6719 global selectedline
6737 }
6738 }
6739 }
6741 proc unmarkmatches {} {
6742 global markingmatches
6744 allcanvs delete matches
6745 set markingmatches 0
6746 stopfinding
6747 }
6749 proc selcanvline {w x y} {
6750 global canv canvy0 ctext linespc
6751 global rowtextx
6758 set l 0
6759 }
6764 }
6765 unmarkmatches
6767 }
6769 proc commit_descriptor {p} {
6770 global commitinfo
6773 }
6774 set l "..."
6777 }
6779 }
6781 # append some text to the ctext widget, and make any SHA1 ID
6782 # that we know about be a clickable link.
6783 proc appendwithlinks {text tags} {
6784 global ctext linknum curview
6793 incr e
6797 incr linknum
6798 }
6799 }
6801 proc setlink {id lk} {
6802 global curview ctext pendinglinks
6806 }
6808 set known 0
6813 set known 1
6815 }
6816 } else {
6818 }
6824 } else {
6827 }
6828 }
6830 proc appendshortlink {id {pre {}} {post {}}} {
6831 global ctext linknum
6838 incr linknum
6839 }
6841 proc makelink {id} {
6842 global pendinglinks
6847 }
6849 }
6851 proc linkcursor {w inc} {
6852 global linkentercount curtextcursor
6856 } else {
6859 set linkentercount 0
6860 }
6861 }
6862 }
6864 proc viewnextline {dir} {
6865 global canv linespc
6873 set newtop 0
6876 }
6878 }
6880 # add a list of tag or branch names at position pos
6881 # returns the number of names inserted
6882 proc appendrefs {pos ids var} {
6886 return 0
6887 }
6890 set tags {}
6894 }
6895 }
6897 set sep {}
6899 set nutags 0
6902 # If we are displaying heads, and there are too many,
6903 # see if there are some important heads to display.
6904 # Currently this means "master" and the current head.
6905 set itags {}
6907 set utags {}
6914 } else {
6916 }
6917 }
6919 }
6921 set str [mc "and many more"]
6922 set sep " "
6923 } else {
6924 set str [mc "many"]
6925 }
6929 }
6934 incr linknum
6939 set sep ", "
6940 }
6944 }
6946 # called when we have finished computing the nearby tags
6947 proc dispneartags {delay} {
6948 global selectedline currentid showneartags tagphase
6951 after cancel dispnexttag
6953 after 200 dispnexttag
6954 set tagphase -1
6955 } else {
6956 after idle dispnexttag
6957 set tagphase 0
6958 }
6959 }
6961 proc dispnexttag {} {
6962 global selectedline currentid showneartags tagphase ctext
6966 0 {
6970 }
6971 }
6972 1 {
6976 }
6977 }
6978 2 {
6983 # turn "Branch" into "Branches"
6987 }
6988 }
6989 }
6990 }
6991 if {[incr tagphase] <= 2} {
6992 after idle dispnexttag
6993 }
6994 }
6996 proc make_secsel {id} {
6997 global linehtag linentag linedtag canv canv2 canv3
7012 }
7014 proc make_idmark {id} {
7015 global linehtag canv fgcolor
7022 }
7024 proc selectline {l isnew {desired_loc {}}} {
7025 global canv ctext commitinfo selectedline
7026 global canvy0 linespc parents children curview
7027 global currentid sha1entry
7028 global commentend idtags linknum
7029 global mergemax numcommits pending_select
7030 global cmitmode showneartags allcommits
7031 global targetrow targetid lastscrollrows
7032 global autoselect autosellen jump_to_here
7034 catch {unset pending_select}
7036 normalline
7037 unsel_reflist
7038 stopfinding
7046 setcanvscroll
7047 }
7061 } else {
7065 }
7066 }
7070 } else {
7074 }
7075 }
7076 }
7079 set newtop 0
7080 }
7082 drawvisible
7083 }
7089 }
7095 }
7099 clear_ctext
7100 set linknum 0
7103 }
7113 }
7115 }
7117 set headers {}
7120 set np 0
7123 set tag mmax
7124 } else {
7126 }
7129 incr np
7130 }
7131 } else {
7134 }
7135 }
7139 }
7141 # make anything that looks like a SHA1 ID be a clickable link
7144 if {![info exists allcommits]} {
7145 getallcommits
7146 }
7157 dispneartags 1
7158 }
7163 }
7171 init_flist [mc "Comments"]
7176 } else {
7178 }
7179 }
7181 proc selfirstline {} {
7182 unmarkmatches
7183 selectline 0 1
7184 }
7186 proc sellastline {} {
7187 global numcommits
7188 unmarkmatches
7191 }
7193 proc selnextline {dir} {
7194 global selectedline
7195 focus .
7198 unmarkmatches
7200 }
7202 proc selnextpage {dir} {
7203 global canv linespc selectedline numcommits
7207 set lpp 1
7208 }
7210 drawvisible
7214 set l 0
7217 }
7218 unmarkmatches
7220 }
7222 proc unselectline {} {
7223 global selectedline currentid
7225 set selectedline {}
7226 catch {unset currentid}
7227 allcanvs delete secsel
7228 rhighlight_none
7229 }
7231 proc reselectline {} {
7232 global selectedline
7236 }
7237 }
7239 proc addtohistory {cmd {saveproc {}}} {
7240 global history historyindex curview
7242 unset_posvars
7243 save_position
7247 return
7248 }
7252 } else {
7254 }
7255 incr historyindex
7257 .tf.bar.leftbut conf -state normal
7258 } else {
7259 .tf.bar.leftbut conf -state disabled
7260 }
7261 .tf.bar.rightbut conf -state disabled
7262 }
7264 # save the scrolling position of the diff display pane
7265 proc save_position {} {
7266 global historyindex history
7273 }
7274 }
7276 proc unset_posvars {} {
7277 global last_posvars
7279 if {[info exists last_posvars]} {
7283 }
7284 unset last_posvars
7285 }
7286 }
7288 proc godo {elt} {
7289 global curview last_posvars
7296 }
7297 unset_posvars
7301 }
7304 }
7306 proc goback {} {
7307 global history historyindex
7308 focus .
7311 save_position
7312 incr historyindex -1
7314 .tf.bar.rightbut conf -state normal
7315 }
7317 .tf.bar.leftbut conf -state disabled
7318 }
7319 }
7321 proc goforw {} {
7322 global history historyindex
7323 focus .
7326 save_position
7328 incr historyindex
7330 .tf.bar.leftbut conf -state normal
7331 }
7333 .tf.bar.rightbut conf -state disabled
7334 }
7335 }
7337 proc gettree {id} {
7338 global treefilelist treeidlist diffids diffmergeid treepending
7339 global nullid nullid2
7342 catch {unset diffmergeid}
7344 if {![info exists treepending]} {
7346 set cmd [list | git ls-files]
7348 set cmd [list | git ls-files --stage -t]
7349 } else {
7351 }
7353 return
7354 }
7360 }
7361 } else {
7363 }
7364 }
7366 proc gettreeline {gtf id} {
7367 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7369 set nl 0
7373 } else {
7381 }
7384 }
7387 }
7390 }
7392 unset treepending
7394 if {![info exists diffmergeid]} {
7396 }
7399 } else {
7401 }
7402 return 0
7403 }
7405 proc showfile {f} {
7406 global treefilelist treeidlist diffids nullid nullid2
7407 global ctext_file_names ctext_file_lines
7408 global ctext commentend
7413 return
7414 }
7418 return
7419 }
7420 } else {
7424 return
7425 }
7426 }
7437 settabs 0
7438 }
7440 proc getblobline {bf id} {
7441 global diffids cmitmode ctext
7445 return 0
7446 }
7448 set nl 0
7451 }
7453 global jump_to_here ctext_file_names commentend
7455 # delete last newline
7463 }
7465 return 0
7466 }
7469 }
7471 proc mark_ctext_line {lnum} {
7472 global ctext markbgcolor
7478 }
7480 proc mergediff {id} {
7481 global diffmergeid
7482 global diffids treediffs
7483 global parents curview
7491 }
7493 proc startdiff {ids} {
7494 global treediffs diffids treepending diffmergeid nullid nullid2
7496 settabs 1
7498 catch {unset diffmergeid}
7502 if {![info exists treepending]} {
7504 }
7505 } else {
7507 }
7508 }
7510 # If the filename (name) is under any of the passed filter paths
7511 # then return true to include the file in the listing.
7512 proc path_filter {filter name} {
7513 set worktree [gitworktree]
7518 return 1
7519 }
7520 }
7521 return 0
7522 }
7524 proc addtocflist {ids} {
7525 global treediffs
7529 }
7531 proc diffcmd {ids flags} {
7532 global log_showroot nullid nullid2
7538 # comparing working directory with some specific revision
7542 } else {
7544 }
7545 } else {
7546 # comparing working directory with index
7549 lappend cmd -R
7550 }
7551 }
7555 # comparing index with specific revision
7558 } else {
7560 }
7561 } else {
7562 # comparing index with HEAD
7563 lappend cmd HEAD
7564 }
7565 } else {
7567 lappend flags --root
7568 }
7570 }
7572 }
7574 proc gettreediffs {ids} {
7575 global treediff treepending
7580 set treediff {}
7583 }
7585 proc gettreediffline {gdtf ids} {
7586 global treediff treediffs treepending diffids diffmergeid
7587 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7589 set nr 0
7590 set sublist {}
7591 set max 1000
7593 # cache_gitattr is slow, and even slower on win32 where we
7594 # have to invoke it for only about 30 paths at a time
7595 set max 500
7596 if {[tk windowingsystem] == "win32"} {
7597 set max 120
7598 }
7599 }
7606 }
7611 }
7612 }
7613 }
7616 }
7619 }
7622 set flist {}
7626 }
7627 }
7629 } else {
7631 }
7632 unset treepending
7636 if {![info exists diffmergeid]} {
7638 }
7639 } else {
7641 }
7642 return 0
7643 }
7645 # empty string or positive integer
7646 proc diffcontextvalidate {v} {
7648 }
7650 proc diffcontextchange {n1 n2 op} {
7651 global diffcontextstring diffcontext
7656 reselectline
7657 }
7658 }
7659 }
7661 proc changeignorespace {} {
7662 reselectline
7663 }
7665 proc changeworddiff {name ix op} {
7666 reselectline
7667 }
7669 proc getblobdiffs {ids} {
7670 global blobdifffd diffids env
7671 global diffinhdr treediffs
7672 global diffcontext
7673 global ignorespace
7674 global worddiff
7675 global limitdiffs vfilelimit curview
7676 global diffencoding targetline diffnparents
7677 global git_version currdiffsubmod
7679 set textconv {}
7681 set textconv "--textconv"
7682 }
7683 set submodule {}
7685 set submodule "--submodule"
7686 }
7689 append cmd " -w"
7690 }
7692 append cmd " --word-diff=porcelain"
7693 }
7696 }
7699 return
7700 }
7701 set targetline {}
7702 set diffnparents 0
7703 set diffinhdr 0
7704 set diffencoding [get_path_encoding {}]
7707 set currdiffsubmod ""
7709 }
7711 proc savecmitpos {} {
7712 global ctext cmitmode
7715 return {}
7716 }
7718 }
7720 proc savectextpos {} {
7721 global ctext
7724 }
7726 proc maybe_scroll_ctext {ateof} {
7727 global ctext target_scrollpos
7729 if {![info exists target_scrollpos]} return
7732 / [font metrics textfont -linespace]}]
7734 }
7736 unset target_scrollpos
7737 }
7739 proc setinlist {var i val} {
7744 }
7747 } else {
7749 }
7750 }
7752 proc makediffhdr {fname ids} {
7753 global ctext curdiffstart treediffs diffencoding
7754 global ctext_file_names jump_to_here targetline diffline
7761 }
7766 set targetline {}
7769 }
7770 set diffline 0
7771 }
7773 proc getblobdiffline {bdf ids} {
7774 global diffids blobdifffd ctext curdiffstart
7775 global diffnexthead diffnextnote difffilestart
7776 global ctext_file_names ctext_file_lines
7777 global diffinhdr treediffs mergemax diffnparents
7778 global diffencoding jump_to_here targetline diffline currdiffsubmod
7779 global worddiff
7781 set nr 0
7786 return 0
7787 }
7792 continue
7793 }
7794 # start of a new file
7795 set diffinhdr 1
7798 lappend ctext_file_names ""
7803 # start of a new file in a merge diff
7808 }
7810 } else {
7812 # If the name hasn't changed the length will be odd,
7813 # the middle char will be a space, and the two bits either
7814 # side will be a/name and b/name, or "a/name" and "b/name".
7815 # If the name has changed we'll get "rename from" and
7816 # "rename to" or "copy from" and "copy to" lines following
7817 # this, and we'll use them to get the filenames.
7818 # This complexity is necessary because spaces in the
7819 # filename(s) don't get escaped.
7825 continue
7826 }
7827 # unescape if quoted and chop off the a/ from the front
7830 } else {
7832 }
7833 }
7846 }
7854 }
7856 set diffinhdr 0
7859 # start of a new submodule
7862 } else {
7864 }
7867 }
7869 lappend ctext_file_names ""
7875 } else {
7877 }
7891 }
7896 }
7902 }
7905 # do nothing
7906 continue
7908 set diffinhdr 0
7909 continue
7910 }
7913 } else {
7914 set line [string map {\x1A ^Z} \
7916 # parse the prefix - one ' ', '-' or '+' for each parent
7920 set words_pre_markup ""
7921 set words_post_markup ""
7923 # prefix only has " ", "-" and "+" in it: normal diff line
7927 }
7931 set num "max"
7932 }
7935 } else {
7937 }
7940 }
7941 } else {
7942 set tags {}
7944 # added line
7950 set num "max"
7951 }
7953 }
7954 }
7955 set words_pre_markup "{+"
7956 set words_post_markup "+}"
7957 }
7961 set targetline {}
7962 } else {
7963 incr diffline
7964 }
7965 }
7968 } else {
7970 }
7973 }
7974 }
7977 } else {
7978 # "\ No newline at end of file",
7979 # or something else we don't recognize
7981 }
7982 }
7983 }
7984 if {[info exists seehere]} {
7986 }
7991 return 0
7992 }
7994 }
7996 proc changediffdisp {} {
7997 global ctext diffelide
8001 }
8003 proc highlightfile {cline} {
8004 global cflist cflist_top
8006 if {![info exists cflist_top]} return
8012 }
8014 proc highlightfile_for_scrollpos {topidx} {
8015 global cmitmode difffilestart
8018 if {![info exists difffilestart]} return
8022 highlightfile 0
8023 } else {
8025 }
8026 }
8028 proc prevfile {} {
8029 global difffilestart ctext cmitmode
8032 set prev 0.0
8037 return
8038 }
8040 }
8042 }
8044 proc nextfile {} {
8045 global difffilestart ctext cmitmode
8052 return
8053 }
8054 }
8055 }
8057 proc clear_ctext {{first 1.0}} {
8058 global ctext smarktop smarkbot
8059 global ctext_file_names ctext_file_lines
8060 global pendinglinks
8065 }
8068 }
8071 catch {unset pendinglinks}
8072 }
8073 set ctext_file_names {}
8074 set ctext_file_lines {}
8075 }
8077 proc settabs {{firstab {}}} {
8078 global firsttabstop tabstop ctext have_tk85
8082 }
8083 set w [font measure textfont "0"]
8089 } else {
8091 }
8092 }
8094 proc incrsearch {name ix op} {
8095 global ctext searchstring searchdirn
8098 # no anchor set, use start of selection, or of visible area
8104 } else {
8106 }
8107 }
8115 suppress_highlighting_file_for_current_scrollpos
8117 }
8118 }
8119 rehighlight_search_results
8120 }
8122 proc dosearch {} {
8123 global sstring ctext searchstring searchdirn
8127 set searchdirn -forwards
8133 set start "@0,0"
8134 }
8138 bell
8139 return
8140 }
8142 suppress_highlighting_file_for_current_scrollpos
8147 rehighlight_search_results
8148 }
8149 }
8151 proc dosearchback {} {
8152 global sstring ctext searchstring searchdirn
8156 set searchdirn -backwards
8163 }
8167 bell
8168 return
8169 }
8171 suppress_highlighting_file_for_current_scrollpos
8176 rehighlight_search_results
8177 }
8178 }
8180 proc rehighlight_search_results {} {
8181 global ctext searchstring
8187 searchmarkvisible 1
8188 }
8189 }
8191 proc searchmark {first last} {
8192 global ctext searchstring
8197 while {1} {
8203 } else {
8205 }
8206 }
8207 }
8209 proc searchmarkvisible {doall} {
8210 global ctext smarktop smarkbot
8215 # no overlap with previous
8219 } else {
8223 }
8227 }
8228 }
8229 }
8231 proc suppress_highlighting_file_for_current_scrollpos {} {
8232 global ctext suppress_highlighting_file_for_this_scrollpos
8235 }
8237 proc scrolltext {f0 f1} {
8238 global searchstring cmitmode ctext
8239 global suppress_highlighting_file_for_this_scrollpos
8242 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8245 }
8247 catch {unset suppress_highlighting_file_for_this_scrollpos}
8251 searchmarkvisible 0
8252 }
8253 }
8255 proc setcoords {} {
8256 global linespc charspc canvx0 canvy0
8257 global xspc1 xspc2 lthickness
8259 set linespc [font metrics mainfont -linespace]
8260 set charspc [font measure mainfont "m"]
8266 }
8268 proc redisplay {} {
8269 global canv
8270 global selectedline
8275 clear_display
8276 setcanvscroll
8278 drawvisible
8282 }
8283 }
8285 proc parsefont {f n} {
8286 global fontattr
8291 set s 10
8294 }
8300 "normal" -
8302 "roman" -
8304 }
8305 }
8306 }
8308 proc fontflags {f {isbold 0}} {
8309 global fontattr
8314 }
8316 proc fontname {f} {
8317 global fontattr
8321 lappend n "bold"
8322 }
8324 lappend n "italic"
8325 }
8327 }
8329 proc incrfont {inc} {
8330 global mainfont textfont ctext canv cflist showrefstop
8331 global stopped entries fontattr
8333 unmarkmatches
8337 set s 1
8338 }
8342 set mainfont [fontname mainfont]
8346 set s 1
8347 }
8351 set textfont [fontname textfont]
8352 setcoords
8353 settabs
8354 redisplay
8355 }
8357 proc clearsha1 {} {
8358 global sha1entry sha1string
8361 }
8362 }
8364 proc sha1change {n1 n2 op} {
8365 global sha1string currentid sha1but
8368 set state disabled
8369 } else {
8370 set state normal
8371 }
8375 } else {
8377 }
8378 }
8380 proc gotocommit {} {
8381 global sha1string tagids headids curview varcid
8389 } else {
8396 return
8397 }
8399 }
8400 } else {
8403 return
8404 }
8405 }
8406 }
8409 return
8410 }
8413 } else {
8415 }
8417 }
8419 proc lineenter {x y id} {
8420 global hoverx hovery hoverid hovertimer
8421 global commitinfo canv
8427 if {[info exists hovertimer]} {
8429 }
8430 set hovertimer [after 500 linehover]
8432 }
8434 proc linemotion {x y id} {
8435 global hoverx hovery hoverid hovertimer
8440 if {[info exists hovertimer]} {
8442 }
8443 set hovertimer [after 500 linehover]
8444 }
8445 }
8447 proc lineleave {id} {
8448 global hoverid hovertimer canv
8452 if {[info exists hovertimer]} {
8454 unset hovertimer
8455 }
8456 unset hoverid
8457 }
8458 }
8460 proc linehover {} {
8461 global hoverx hovery hoverid hovertimer
8462 global canv linespc lthickness
8463 global commitinfo
8476 -fill \#ffff80 -outline black -width 1 -tags hover]
8479 -font mainfont]
8481 }
8483 proc clickisonarrow {id y} {
8484 global lthickness
8493 }
8494 }
8495 return {}
8496 }
8498 proc arrowjump {id n y} {
8499 global canv
8501 # 1 <-> 2, 3 <-> 4, etc...
8511 set yfrac 0
8512 }
8514 }
8516 proc lineclick {x y id isnew} {
8517 global ctext commitinfo children canv thickerline curview
8520 unmarkmatches
8521 unselectline
8522 normalline
8524 # draw this line thicker than normal
8532 }
8536 return
8537 }
8541 }
8542 # fill the details pane with info about this line
8544 clear_ctext
8545 settabs 0
8557 set i 0
8559 incr i
8569 }
8570 }
8571 maybe_scroll_ctext 1
8573 init_flist {}
8574 }
8576 proc normalline {} {
8577 global thickerline
8578 if {[info exists thickerline]} {
8580 unset thickerline
8582 }
8583 }
8585 proc selbyid {id {isnew 1}} {
8586 global curview
8589 }
8590 }
8592 proc mstime {} {
8593 global startmstime
8594 if {![info exists startmstime]} {
8595 set startmstime [clock clicks -milliseconds]
8596 }
8598 }
8600 proc rowmenu {x y id} {
8601 global rowctxmenu selectedline rowmenuid curview
8602 global nullid nullid2 fakerowmenu mainhead markedid
8604 stopfinding
8607 set state disabled
8608 } else {
8609 set state normal
8610 }
8612 set mstate normal
8613 } else {
8614 set mstate disabled
8615 }
8620 } else {
8622 }
8626 } else {
8628 }
8635 }
8637 proc markhere {} {
8638 global rowmenuid markedid canv
8642 }
8644 proc gotomark {} {
8645 global markedid
8647 if {[info exists markedid]} {
8649 }
8650 }
8652 proc replace_by_kids {l r} {
8653 global curview children
8659 }
8661 }
8663 proc find_common_desc {} {
8664 global markedid rowmenuid curview children
8666 if {![info exists markedid]} return
8669 #set t1 [clock clicks -milliseconds]
8672 while 1 {
8678 break
8679 }
8682 } else {
8684 }
8685 }
8686 #set t2 [clock clicks -milliseconds]
8688 }
8690 proc compare_commits {} {
8691 global markedid rowmenuid curview children
8693 if {![info exists markedid]} return
8697 }
8699 proc getpatchid {id} {
8700 global patchids
8704 # trim off the initial "|"
8706 if {[catch {
8709 }]} {
8711 }
8712 }
8714 }
8716 proc do_cmp_commits {a b} {
8717 global ctext curview parents children patchids commitinfo
8720 clear_ctext
8721 init_flist {}
8723 set skipa 0
8724 set skipb 0
8727 set skipa 1
8728 } else {
8730 }
8733 set skipb 1
8734 } else {
8736 }
8742 [mc " - stopping\n"]
8743 break
8744 }
8747 [mc " - stopping\n"]
8748 break
8749 }
8754 } else {
8758 }
8759 set skipa 1
8760 set skipb 1
8761 } else {
8768 update
8770 return
8771 }
8772 }
8779 break
8780 }
8782 }
8788 break
8789 }
8791 }
8792 }
8794 }
8796 proc diffcommits {a b} {
8797 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8799 set tmpdir [gitknewtmpdir]
8802 if {[catch {
8805 } err]} {
8807 return
8808 }
8809 if {[catch {
8811 } err]} {
8813 return
8814 }
8817 set diffinhdr 0
8818 set currdiffsubmod ""
8820 }
8822 proc diffvssel {dirn} {
8823 global rowmenuid selectedline
8829 } else {
8832 }
8835 }
8837 proc diffvsmark {dirn} {
8838 global rowmenuid markedid
8840 if {![info exists markedid]} return
8844 } else {
8847 }
8850 }
8852 proc doseldiff {oldid newid} {
8853 global ctext
8854 global commitinfo
8857 clear_ctext
8858 init_flist [mc "Top"]
8873 }
8875 proc mkpatch {} {
8876 global rowmenuid currentid commitinfo patchtop patchnum NS
8878 if {![info exists currentid]} return
8883 set top .patch
8913 incr patchnum
8925 }
8927 proc mkpatchrev {} {
8928 global patchtop
8934 foreach e [list fromsha1 fromhead tosha1 tohead] \
8940 }
8941 }
8943 proc mkpatchgo {} {
8944 global patchtop nullid nullid2
8950 # trim off the initial "|"
8955 }
8957 unset patchtop
8958 }
8960 proc mkpatchcan {} {
8961 global patchtop
8964 unset patchtop
8965 }
8967 proc mktag {} {
8968 global rowmenuid mktagtop commitinfo NS
8970 set top .maketag
9004 }
9006 proc domktag {} {
9007 global mktagtop env tagids idtags
9014 return 0
9015 }
9018 return 0
9019 }
9020 if {[catch {
9023 } else {
9025 }
9026 } err]} {
9028 return 0
9029 }
9035 dispneartags 0
9036 run refill_reflist
9037 return 1
9038 }
9040 proc redrawtags {id} {
9041 global canv linehtag idpos currentid curview cmitlisted markedid
9042 global canvxmax iddrawn circleitem mainheadid circlecolors
9048 set ofill yellow
9049 } else {
9051 }
9061 setcanvscroll
9062 }
9065 }
9068 }
9069 }
9071 proc mktagcan {} {
9072 global mktagtop
9075 unset mktagtop
9076 }
9078 proc mktaggo {} {
9079 if {![domktag]} return
9080 mktagcan
9081 }
9083 proc writecommit {} {
9084 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9086 set top .writecommit
9119 }
9121 proc wrcomgo {} {
9122 global wrcomtop
9129 }
9131 unset wrcomtop
9132 }
9134 proc wrcomcan {} {
9135 global wrcomtop
9138 unset wrcomtop
9139 }
9141 proc mkbranch {} {
9142 global rowmenuid mkbrtop NS
9144 set top .makebranch
9168 }
9170 proc mkbrgo {top} {
9171 global headids idheads
9175 set cmdargs {}
9176 set old_id {}
9179 return
9180 }
9182 if {![confirm_popup [mc \
9184 return
9185 }
9187 lappend cmdargs -f
9188 }
9191 nowbusy newbranch
9192 update
9193 if {[catch {
9195 } err]} {
9196 notbusy newbranch
9198 } else {
9199 notbusy newbranch
9205 } else {
9210 }
9211 dispneartags 0
9212 run refill_reflist
9213 }
9214 }
9216 proc exec_citool {tool_args {baseid {}}} {
9217 global commitinfo env
9219 set save_env [array get env GIT_AUTHOR_*]
9224 }
9227 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9233 }
9234 }
9238 array unset env GIT_AUTHOR_*
9240 }
9242 proc cherrypick {} {
9243 global rowmenuid curview
9244 global mainhead mainheadid
9245 global gitdir
9247 set oldhead [exec git rev-parse HEAD]
9250 set ok [confirm_popup [mc "Commit %s is already\
9251 included in branch %s -- really re-apply it?" \
9254 }
9255 nowbusy cherrypick [mc "Cherry-picking"]
9256 update
9257 # Unfortunately git-cherry-pick writes stuff to stderr even when
9258 # no error occurs, and exec takes that as an indication of error...
9260 notbusy cherrypick
9261 if {[regexp -line \
9262 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9264 error_popup [mc "Cherry-pick failed because of local changes\
9265 to file '%s'.\nPlease commit, reset or stash\
9267 } elseif {[regexp -line \
9268 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9270 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9271 conflict.\nDo you wish to run git citool to\
9272 resolve it?"]]} {
9273 # Force citool to read MERGE_MSG
9276 }
9277 } else {
9279 }
9280 run updatecommits
9281 return
9282 }
9283 set newhead [exec git rev-parse HEAD]
9285 notbusy cherrypick
9286 error_popup [mc "No changes committed"]
9287 return
9288 }
9291 # XXX this isn't right if we have a path limit...
9296 }
9301 }
9302 notbusy cherrypick
9303 }
9305 proc resethead {} {
9306 global mainhead rowmenuid confirm_ok resettype NS
9308 set confirm_ok 0
9309 set w ".confirmreset"
9317 set resettype mixed
9319 -text [mc "Soft: Leave working tree and index untouched"]
9322 -text [mc "Mixed: Leave working tree untouched, reset index"]
9325 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9336 if {[catch {set fd [open \
9339 } else {
9340 dohidelocalchanges
9342 nowbusy reset [mc "Resetting"]
9344 }
9345 }
9347 proc readresetstat {fd} {
9348 global mainhead mainheadid showlocalchanges rprogcoord
9353 adjustprogress
9354 }
9355 return 1
9356 }
9357 set rprogcoord 0
9358 adjustprogress
9359 notbusy reset
9362 }
9364 set newhead [exec git rev-parse HEAD]
9371 }
9373 doshowlocalchanges
9374 }
9375 return 0
9376 }
9378 # context menu for a head
9379 proc headmenu {x y id head} {
9380 global headmenuid headmenuhead headctxmenu mainhead
9382 stopfinding
9385 set state normal
9387 set state disabled
9388 }
9390 set state disabled
9391 }
9395 }
9397 proc cobranch {} {
9398 global headmenuid headmenuhead headids
9399 global showlocalchanges
9401 # check the tree is clean first??
9402 nowbusy checkout [mc "Checking out"]
9403 update
9404 dohidelocalchanges
9405 if {[catch {
9407 } err]} {
9408 notbusy checkout
9411 dodiffindex
9412 }
9413 } else {
9415 }
9416 }
9418 proc readcheckoutstat {fd newhead newheadid} {
9419 global mainhead mainheadid headids showlocalchanges progresscoords
9420 global viewmainheadid curview
9425 adjustprogress
9426 }
9427 return 1
9428 }
9429 set progresscoords {0 0}
9430 adjustprogress
9431 notbusy checkout
9434 }
9443 dodiffindex
9444 }
9445 }
9447 proc rmbranch {} {
9448 global headmenuid headmenuhead mainhead
9449 global idheads
9453 # this check shouldn't be needed any more...
9455 error_popup [mc "Cannot delete the currently checked-out branch"]
9456 return
9457 }
9460 # the stuff on this branch isn't on any other branch
9461 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9463 }
9464 nowbusy rmbranch
9465 update
9467 notbusy rmbranch
9469 return
9470 }
9474 notbusy rmbranch
9475 dispneartags 0
9476 run refill_reflist
9477 }
9479 # Display a list of tags and heads
9480 proc showrefs {} {
9481 global showrefstop bgcolor fgcolor selectbgcolor NS
9482 global bglist fglist reflistfilter reflist maincursor
9484 set top .showrefs
9488 refill_reflist
9489 return
9490 }
9498 -spacing1 1 -spacing3 1 -state disabled
9509 set reflistfilter "*"
9510 trace add variable reflistfilter write reflistfilter_change
9522 set reflist {}
9523 refill_reflist
9524 }
9526 proc sel_reflist {w x y} {
9527 global showrefstop reflist headids tagids otherrefids
9537 }
9539 }
9541 proc unsel_reflist {} {
9542 global showrefstop
9546 }
9548 proc reflistfilter_change {n1 n2 op} {
9549 global reflistfilter
9551 after cancel refill_reflist
9552 after 200 refill_reflist
9553 }
9555 proc refill_reflist {} {
9556 global reflist reflistfilter showrefstop headids tagids otherrefids
9557 global curview
9560 set refs {}
9561 foreach n [array names headids] {
9565 } else {
9567 }
9568 }
9569 }
9570 foreach n [array names tagids] {
9574 } else {
9576 }
9577 }
9578 }
9579 foreach n [array names otherrefids] {
9583 } else {
9585 }
9586 }
9587 }
9595 set i 0
9596 set j 0
9605 }
9606 } else {
9607 set cmp -1
9608 }
9609 } else {
9610 set cmp 1
9611 }
9613 -1 {
9615 incr i
9616 }
9617 0 {
9618 incr i
9619 incr j
9620 }
9621 1 {
9626 incr j
9627 }
9628 }
9629 }
9631 # delete last newline
9634 }
9636 # Stuff for finding nearby tags
9637 proc getallcommits {} {
9638 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9639 global idheads idtags idotherrefs allparents tagobjid
9640 global gitdir
9642 if {![info exists allcommits]} {
9643 set nextarc 0
9644 set allcommits 0
9645 set seeds {}
9646 set allcwait 0
9647 set cachedarcs 0
9649 if {![catch {
9651 set allcwait 1
9653 }]} return
9654 }
9657 return
9658 }
9659 set cmd [list | git rev-list --parents]
9662 set ids "--all"
9663 } else {
9664 set refs [concat [array names idheads] [array names idtags] \
9665 [array names idotherrefs]]
9666 set ids {}
9667 set tagobjs {}
9668 foreach name [array names tagobjid] {
9670 }
9675 }
9676 }
9680 }
9681 }
9682 }
9686 incr allcommits
9687 nowbusy allcommits
9689 } else {
9690 dispneartags 0
9691 }
9692 }
9694 # Since most commits have 1 parent and 1 child, we group strings of
9695 # such commits into "arcs" joining branch/merge points (BMPs), which
9696 # are commits that either don't have 1 parent or don't have 1 child.
9697 #
9698 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9699 # arcout(id) - outgoing arcs for BMP
9700 # arcids(a) - list of IDs on arc including end but not start
9701 # arcstart(a) - BMP ID at start of arc
9702 # arcend(a) - BMP ID at end of arc
9703 # growing(a) - arc a is still growing
9704 # arctags(a) - IDs out of arcids (excluding end) that have tags
9705 # archeads(a) - IDs out of arcids (excluding end) that have heads
9706 # The start of an arc is at the descendent end, so "incoming" means
9707 # coming from descendents, and "outgoing" means going towards ancestors.
9709 proc getallclines {fd} {
9710 global allparents allchildren idtags idheads nextarc
9711 global arcnos arcids arctags arcout arcend arcstart archeads growing
9712 global seeds allcommits cachedarcs allcupdate
9714 set nid 0
9718 # seen it already
9719 continue
9720 }
9721 set cachedarcs 0
9728 } else {
9734 }
9737 }
9739 # seen parent already
9742 }
9746 }
9749 continue
9750 }
9751 }
9756 }
9758 set ao {}
9761 set a [incr nextarc]
9770 # seen it already, may need to make a new branch
9773 }
9777 }
9779 }
9781 }
9783 global cached_dheads cached_dtags cached_atags
9784 catch {unset cached_dheads}
9785 catch {unset cached_dtags}
9786 catch {unset cached_atags}
9787 }
9790 }
9791 set cacheok 1
9792 if {[catch {
9795 } err]} {
9796 # got an error reading the list of commits
9797 # if we were updating, try rereading the whole thing again
9799 incr allcommits -1
9801 return
9802 }
9803 error_popup "[mc "Error reading commit topology information;\
9804 branch and preceding/following tag information\
9806 set cacheok 0
9807 }
9808 if {[incr allcommits -1] == 0} {
9809 notbusy allcommits
9811 run savecache
9812 }
9813 }
9814 dispneartags 0
9815 return 0
9816 }
9818 proc recalcarc {a} {
9819 global arctags archeads arcids idtags idheads
9821 set at {}
9822 set ah {}
9826 }
9829 }
9830 }
9833 }
9835 proc splitarc {p} {
9836 global arcnos arcids nextarc arctags archeads idtags idheads
9837 global arcstart arcend arcout allparents growing
9842 return
9843 }
9848 return
9849 }
9850 set na [incr nextarc]
9853 } else {
9857 }
9867 }
9872 } else {
9875 }
9876 }
9878 # reconstruct tags and heads lists
9882 } else {
9885 }
9886 }
9888 # Update things for a new commit added that is a child of one
9889 # existing commit. Used when cherry-picking.
9890 proc addnewchild {id p} {
9891 global allparents allchildren idtags nextarc
9892 global arcnos arcids arctags arcout arcend arcstart archeads growing
9893 global seeds allcommits
9901 set a [incr nextarc]
9909 }
9912 }
9914 # This implements a cache for the topology information.
9915 # The cache saves, for each arc, the start and end of the arc,
9916 # the ids on the arc, and the outgoing arcs from the end.
9917 proc readcache {f} {
9918 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9919 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9920 global allcwait
9926 }
9927 if {[catch {
9929 # finish reading the cache and setting up arctags, etc.
9933 foreach id [array names idtags] {
9939 }
9940 }
9941 }
9942 foreach id [array names idheads] {
9948 }
9949 }
9950 }
9954 }
9955 }
9956 set allcwait 0
9957 } else {
9967 }
9971 } else {
9975 }
9976 }
9982 }
9985 }
9988 }
9990 }
9991 } err]} {
9993 return 0
9994 }
9996 getallcommits
9997 }
9999 }
10001 proc getcache {f} {
10002 global nextarc cachedarcs possible_seeds
10004 if {[catch {
10007 # make sure it's an integer
10010 set nextarc 0
10011 set possible_seeds {}
10013 } err]} {
10015 }
10016 return 0
10017 }
10019 proc dropcache {err} {
10020 global allcwait nextarc cachedarcs seeds
10023 foreach v {arcnos arcout arcids arcstart arcend growing \
10024 arctags archeads allparents allchildren} {
10027 }
10028 set allcwait 0
10029 set nextarc 0
10030 set cachedarcs 0
10031 set seeds {}
10032 getallcommits
10033 }
10035 proc writecache {f} {
10036 global cachearc cachedarcs allccache
10037 global arcstart arcend arcnos arcids arcout
10043 }
10044 if {[catch {
10048 } else {
10050 }
10051 }
10052 } err]} {
10056 return 0
10057 }
10062 return 0
10063 }
10064 return 1
10065 }
10067 proc savecache {} {
10068 global nextarc cachedarcs cachearc allccache
10071 set cachearc 0
10073 catch {
10077 }
10078 }
10080 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10081 # or 0 if neither is true.
10082 proc anc_or_desc {a b} {
10083 global arcout arcstart arcend arcnos cached_isanc
10086 # Both are on the same arc(s); either both are the same BMP,
10087 # or if one is not a BMP, the other is also not a BMP or is
10088 # the BMP at end of the arc (and it only has 1 incoming arc).
10089 # Or both can be BMPs with no incoming arcs.
10091 return 0
10092 }
10098 return 1
10099 } else {
10100 return -1
10101 }
10102 }
10108 } else {
10109 set aend {}
10110 }
10112 } else {
10114 }
10119 } else {
10120 set bend {}
10121 }
10123 } else {
10125 }
10127 return 1
10128 }
10130 return -1
10131 }
10134 return 1
10135 }
10136 }
10139 return -1
10140 }
10142 return 0
10143 }
10144 }
10152 continue
10153 }
10159 return 1
10163 return -1
10164 }
10170 }
10171 }
10172 }
10175 return 0
10176 }
10180 # and returns 0 if so and 1 if not.
10181 # If we subsequently discover a tag on such a growing tip, and that
10184 # isn't a good choice to display as a descendent tag of
10188 #
10189 proc is_certain {desc anc} {
10190 global arcnos arcout arcstart arcend growing problems
10192 set certain {}
10194 # tags on the same arc are certain
10196 return 1
10197 }
10202 }
10203 }
10206 } else {
10209 }
10211 return 1
10212 }
10215 set nnh 1
10216 set ngrowanc 0
10220 incr nnh -1
10221 }
10227 incr ngrowanc
10228 }
10229 } else {
10236 incr nnh -1
10237 }
10239 incr ngrowanc -1
10240 }
10250 incr nnh -1
10251 }
10253 incr ngrowanc -1
10254 }
10256 }
10257 }
10258 }
10259 }
10260 }
10261 }
10265 } else {
10268 incr nnh
10269 }
10270 }
10271 }
10272 }
10273 foreach x [array names growanc] {
10275 return 0
10276 }
10277 return 0
10278 }
10279 return 1
10280 }
10282 proc validate_arctags {a} {
10283 global arctags idtags
10285 set i -1
10288 incr i
10291 incr i -1
10292 }
10293 }
10295 }
10297 proc validate_archeads {a} {
10298 global archeads idheads
10300 set i -1
10303 incr i
10306 incr i -1
10307 }
10308 }
10310 }
10312 # Return the list of IDs that have tags that are descendents of id,
10313 # ignoring IDs that are descendents of IDs already reported.
10314 proc desctags {id} {
10315 global arcnos arcstart arcids arctags idtags allparents
10316 global growing cached_dtags
10319 return {}
10320 }
10321 set t1 [clock clicks -milliseconds]
10324 # part-way along an arc; check that arc first
10329 set tid {}
10334 }
10337 }
10338 }
10342 }
10343 }
10346 }
10351 set nc 1
10357 incr nc -1
10358 }
10359 # ignore tags on starting node
10363 set ta 1
10366 set ta 1
10367 }
10368 }
10375 }
10376 }
10385 }
10388 }
10390 incr nc -1
10391 }
10393 }
10394 }
10395 }
10400 incr nc
10401 }
10402 }
10403 }
10404 }
10405 set tags {}
10406 foreach id [array names tagloc] {
10411 }
10412 }
10413 }
10414 }
10415 set t2 [clock clicks -milliseconds]
10418 # remove tags that are descendents of other tags
10426 incr j -1
10427 incr i -1
10430 incr i -1
10431 break
10432 }
10433 }
10434 }
10436 if {[array names growing] ne {}} {
10437 # graph isn't finished, need to check if any tag could get
10438 # eclipsed by another tag coming later. Simply ignore any
10439 # tags that could later get eclipsed.
10440 set ctags {}
10444 }
10445 }
10448 } else {
10450 }
10451 } else {
10453 }
10454 set t3 [clock clicks -milliseconds]
10458 }
10460 }
10462 proc anctags {id} {
10463 global arcnos arcids arcout arcend arctags idtags allparents
10464 global growing cached_atags
10467 return {}
10468 }
10469 set t1 [clock clicks -milliseconds]
10472 # part-way along an arc; check that arc first
10481 }
10482 }
10483 }
10485 return {}
10486 }
10490 }
10491 }
10494 }
10499 set taglist {}
10500 set nc 1
10506 incr nc -1
10507 }
10508 # ignore tags on starting node
10512 set td 1
10515 set td 1
10516 }
10517 }
10523 }
10524 }
10536 }
10537 }
10540 }
10542 incr nc -1
10543 }
10545 }
10546 }
10547 }
10552 incr nc
10553 }
10554 }
10555 }
10556 }
10557 set t2 [clock clicks -milliseconds]
10559 set tags {}
10560 foreach id [array names tagloc] {
10565 }
10566 }
10567 }
10568 }
10570 # remove tags that are ancestors of other tags
10578 incr j -1
10579 incr i -1
10582 incr i -1
10583 break
10584 }
10585 }
10586 }
10588 if {[array names growing] ne {}} {
10589 # graph isn't finished, need to check if any tag could get
10590 # eclipsed by another tag coming later. Simply ignore any
10591 # tags that could later get eclipsed.
10592 set ctags {}
10596 }
10597 }
10600 } else {
10602 }
10603 } else {
10605 }
10606 set t3 [clock clicks -milliseconds]
10610 }
10612 }
10614 # Return the list of IDs that have heads that are descendents of id,
10615 # including id itself if it has a head.
10616 proc descheads {id} {
10617 global arcnos arcstart arcids archeads idheads cached_dheads
10618 global allparents arcout
10621 return {}
10622 }
10623 set aret {}
10625 # part-way along an arc; check it first
10634 }
10635 }
10637 }
10641 set ret {}
10646 } else {
10649 }
10655 }
10656 }
10661 }
10662 }
10663 }
10664 }
10668 }
10670 proc addedtag {id} {
10671 global arcnos arcout cached_dtags cached_atags
10676 }
10677 catch {unset cached_dtags}
10678 catch {unset cached_atags}
10679 }
10681 proc addedhead {hid head} {
10682 global arcnos arcout cached_dheads
10687 }
10688 catch {unset cached_dheads}
10689 }
10691 proc removedhead {hid head} {
10692 global cached_dheads
10694 catch {unset cached_dheads}
10695 }
10697 proc movedhead {hid head} {
10698 global arcnos arcout cached_dheads
10703 }
10704 catch {unset cached_dheads}
10705 }
10707 proc changedrefs {} {
10708 global cached_dheads cached_dtags cached_atags cached_tagcontent
10709 global arctags archeads arcnos arcout idheads idtags
10711 foreach id [concat [array names idheads] [array names idtags]] {
10717 }
10718 }
10719 }
10720 catch {unset cached_tagcontent}
10721 catch {unset cached_dtags}
10722 catch {unset cached_atags}
10723 catch {unset cached_dheads}
10724 }
10726 proc rereadrefs {} {
10727 global idtags idheads idotherrefs mainheadid
10729 set refids [concat [array names idtags] \
10730 [array names idheads] [array names idotherrefs]]
10734 }
10735 }
10737 readrefs
10738 changedrefs
10740 [array names idheads] [array names idotherrefs]]]
10745 }
10746 }
10750 }
10751 run refill_reflist
10752 }
10754 proc listrefs {id} {
10755 global idtags idheads idotherrefs
10757 set x {}
10760 }
10761 set y {}
10764 }
10765 set z {}
10768 }
10770 }
10772 proc showtag {tag isnew} {
10773 global ctext cached_tagcontent tagids linknum tagobjid
10777 }
10779 clear_ctext
10780 settabs 0
10781 set linknum 0
10783 catch {
10785 }
10786 }
10789 } else {
10791 }
10793 maybe_scroll_ctext 1
10795 init_flist {}
10796 }
10798 proc doquit {} {
10799 global stopped
10800 global gitktmpdir
10802 set stopped 100
10803 savestuff .
10804 destroy .
10806 if {[info exists gitktmpdir]} {
10808 }
10809 }
10811 proc mkfontdisp {font top which} {
10820 }
10822 proc choosefont {font which} {
10823 global fontparam fontlist fonttop fontattr
10824 global prefstop NS
10832 set top .gitkfont
10835 font create sample
10842 set fontlist [lsort [font families]]
10853 -textvariable fontparam(size) \
10854 -validatecommand {string is integer -strict %s}
10856 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10857 -variable fontparam(weight) -onvalue bold -offvalue normal
10859 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10860 -variable fontparam(slant) -onvalue italic -offvalue roman
10864 -background white
10866 -fill black -tags text
10878 trace add variable fontparam write chg_fontparam
10879 } else {
10882 }
10887 }
10888 }
10890 proc centertext {w} {
10892 }
10894 proc fontok {} {
10895 global fontparam fontpref prefstop
10901 }
10904 }
10908 fontcan
10909 }
10911 proc fontcan {} {
10912 global fonttop fontparam
10914 if {[info exists fonttop]} {
10916 catch {font delete sample}
10917 unset fonttop
10918 unset fontparam
10919 }
10920 }
10922 if {[package vsatisfies [package provide Tk] 8.6]} {
10923 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10924 # function to make use of it.
10925 proc choosefont {font which} {
10928 tk fontchooser show
10929 }
10930 proc on_choosefont {font which newfont} {
10931 global fontparam
10940 fontok
10941 }
10942 }
10944 proc selfontfam {} {
10945 global fonttop fontparam
10950 }
10951 }
10953 proc chg_fontparam {v sub op} {
10954 global fontparam
10957 }
10959 # Create a property sheet tab page
10960 proc create_prefs_page {w} {
10961 global NS
10965 } else {
10967 }
10968 }
10970 proc prefspage_general {notebook} {
10971 global NS maxwidth maxgraphpct showneartags showlocalchanges
10972 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
10973 global hideremotes want_ttk have_ttk maxrefs
10987 -variable showlocalchanges
10990 -variable autoselect
10994 -variable hideremotes
11003 -variable showneartags
11009 -variable limitdiffs
11012 -variable perfile_attrs
11026 -text [mc "Use themed widgets"]
11029 } else {
11031 }
11034 }
11036 proc prefspage_colors {notebook} {
11037 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11068 [mc "diff hunk header"] \
11074 [mc "marked line background"] \
11082 }
11084 proc prefspage_fonts {notebook} {
11085 global NS
11093 }
11095 proc doprefs {} {
11096 global maxwidth maxgraphpct use_ttk NS
11097 global oldprefs prefstop showneartags showlocalchanges
11098 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11099 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11100 global hideremotes want_ttk have_ttk
11102 set top .gitkprefs
11106 return
11107 }
11108 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11109 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11111 }
11118 } else {
11120 }
11125 set col 0
11129 } else {
11135 }
11136 }
11142 }
11159 }
11161 proc choose_extdiff {} {
11162 global extdifftool
11164 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11167 }
11168 }
11170 proc choosecolor {v vi w x cmd} {
11179 }
11181 proc setselbg {c} {
11182 global bglist cflist
11185 }
11189 }
11191 # This sets the background color and the color scheme for the whole UI.
11192 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11193 # if we don't specify one ourselves, which makes the checkbuttons and
11194 # radiobuttons look bad. This chooses white for selectColor if the
11195 # background color is light, or black if it is dark.
11196 proc setui {c} {
11197 if {[tk windowingsystem] eq "win32"} { return }
11199 set selc black
11201 set selc white
11202 }
11204 }
11206 proc setbg {c} {
11207 global bglist
11211 }
11212 }
11214 proc setfg {c} {
11215 global fglist canv
11219 }
11223 }
11225 proc prefscan {} {
11226 global oldprefs prefstop
11228 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11229 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11232 }
11234 unset prefstop
11235 fontcan
11236 }
11238 proc prefsok {} {
11239 global maxwidth maxgraphpct
11240 global oldprefs prefstop showneartags showlocalchanges
11241 global fontpref mainfont textfont uifont
11242 global limitdiffs treediffs perfile_attrs
11243 global hideremotes
11246 unset prefstop
11247 fontcan
11248 set fontchanged 0
11252 eval font configure mainfont [fontflags mainfont]
11253 eval font configure mainfontbold [fontflags mainfont 1]
11254 setcoords
11255 set fontchanged 1
11256 }
11260 eval font configure textfont [fontflags textfont]
11261 eval font configure textfontbold [fontflags textfont 1]
11262 }
11266 eval font configure uifont [fontflags uifont]
11267 }
11268 settabs
11271 doshowlocalchanges
11272 } else {
11273 dohidelocalchanges
11274 }
11275 }
11278 # treediffs elements are limited by path;
11279 # won't have encodings cached if perfile_attrs was just turned on
11280 catch {unset treediffs}
11281 }
11284 redisplay
11287 reselectline
11288 }
11290 rereadrefs
11291 }
11292 }
11294 proc formatdate {d} {
11295 global datetimeformat
11298 }
11300 }
11302 # This list of encoding names and aliases is distilled from
11303 # http://www.iana.org/assignments/character-sets.
11304 # Not all of them are supported by Tcl.
11305 set encoding_aliases {
11306 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11307 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11308 { ISO-10646-UTF-1 csISO10646UTF1 }
11309 { ISO_646.basic:1983 ref csISO646basic1983 }
11310 { INVARIANT csINVARIANT }
11311 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11312 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11313 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11314 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11315 { NATS-DANO iso-ir-9-1 csNATSDANO }
11316 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11317 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11318 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11319 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11320 { ISO-2022-KR csISO2022KR }
11321 { EUC-KR csEUCKR }
11322 { ISO-2022-JP csISO2022JP }
11323 { ISO-2022-JP-2 csISO2022JP2 }
11324 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11325 csISO13JISC6220jp }
11326 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11327 { IT iso-ir-15 ISO646-IT csISO15Italian }
11328 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11329 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11330 { greek7-old iso-ir-18 csISO18Greek7Old }
11331 { latin-greek iso-ir-19 csISO19LatinGreek }
11332 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11333 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11334 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11335 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11336 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11337 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11338 { INIS iso-ir-49 csISO49INIS }
11339 { INIS-8 iso-ir-50 csISO50INIS8 }
11340 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11341 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11342 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11343 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11344 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11345 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11346 csISO60Norwegian1 }
11347 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11348 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11349 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11350 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11351 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11352 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11353 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11354 { greek7 iso-ir-88 csISO88Greek7 }
11355 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11356 { iso-ir-90 csISO90 }
11357 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11358 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11359 csISO92JISC62991984b }
11360 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11361 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11362 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11363 csISO95JIS62291984handadd }
11364 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11365 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11366 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11367 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11368 CP819 csISOLatin1 }
11369 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11370 { T.61-7bit iso-ir-102 csISO102T617bit }
11371 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11372 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11373 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11374 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11375 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11376 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11377 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11378 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11379 arabic csISOLatinArabic }
11380 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11381 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11382 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11383 greek greek8 csISOLatinGreek }
11384 { T.101-G2 iso-ir-128 csISO128T101G2 }
11385 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11386 csISOLatinHebrew }
11387 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11388 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11389 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11390 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11391 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11392 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11393 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11394 csISOLatinCyrillic }
11395 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11396 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11397 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11398 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11399 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11400 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11401 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11402 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11403 { ISO_10367-box iso-ir-155 csISO10367Box }
11404 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11405 { latin-lap lap iso-ir-158 csISO158Lap }
11406 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11407 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11408 { us-dk csUSDK }
11409 { dk-us csDKUS }
11410 { JIS_X0201 X0201 csHalfWidthKatakana }
11411 { KSC5636 ISO646-KR csKSC5636 }
11412 { ISO-10646-UCS-2 csUnicode }
11413 { ISO-10646-UCS-4 csUCS4 }
11414 { DEC-MCS dec csDECMCS }
11415 { hp-roman8 roman8 r8 csHPRoman8 }
11416 { macintosh mac csMacintosh }
11417 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11418 csIBM037 }
11419 { IBM038 EBCDIC-INT cp038 csIBM038 }
11420 { IBM273 CP273 csIBM273 }
11421 { IBM274 EBCDIC-BE CP274 csIBM274 }
11422 { IBM275 EBCDIC-BR cp275 csIBM275 }
11423 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11424 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11425 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11426 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11427 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11428 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11429 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11430 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11431 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11432 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11433 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11434 { IBM437 cp437 437 csPC8CodePage437 }
11435 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11436 { IBM775 cp775 csPC775Baltic }
11437 { IBM850 cp850 850 csPC850Multilingual }
11438 { IBM851 cp851 851 csIBM851 }
11439 { IBM852 cp852 852 csPCp852 }
11440 { IBM855 cp855 855 csIBM855 }
11441 { IBM857 cp857 857 csIBM857 }
11442 { IBM860 cp860 860 csIBM860 }
11443 { IBM861 cp861 861 cp-is csIBM861 }
11444 { IBM862 cp862 862 csPC862LatinHebrew }
11445 { IBM863 cp863 863 csIBM863 }
11446 { IBM864 cp864 csIBM864 }
11447 { IBM865 cp865 865 csIBM865 }
11448 { IBM866 cp866 866 csIBM866 }
11449 { IBM868 CP868 cp-ar csIBM868 }
11450 { IBM869 cp869 869 cp-gr csIBM869 }
11451 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11452 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11453 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11454 { IBM891 cp891 csIBM891 }
11455 { IBM903 cp903 csIBM903 }
11456 { IBM904 cp904 904 csIBBM904 }
11457 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11458 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11459 { IBM1026 CP1026 csIBM1026 }
11460 { EBCDIC-AT-DE csIBMEBCDICATDE }
11461 { EBCDIC-AT-DE-A csEBCDICATDEA }
11462 { EBCDIC-CA-FR csEBCDICCAFR }
11463 { EBCDIC-DK-NO csEBCDICDKNO }
11464 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11465 { EBCDIC-FI-SE csEBCDICFISE }
11466 { EBCDIC-FI-SE-A csEBCDICFISEA }
11467 { EBCDIC-FR csEBCDICFR }
11468 { EBCDIC-IT csEBCDICIT }
11469 { EBCDIC-PT csEBCDICPT }
11470 { EBCDIC-ES csEBCDICES }
11471 { EBCDIC-ES-A csEBCDICESA }
11472 { EBCDIC-ES-S csEBCDICESS }
11473 { EBCDIC-UK csEBCDICUK }
11474 { EBCDIC-US csEBCDICUS }
11475 { UNKNOWN-8BIT csUnknown8BiT }
11476 { MNEMONIC csMnemonic }
11477 { MNEM csMnem }
11478 { VISCII csVISCII }
11479 { VIQR csVIQR }
11480 { KOI8-R csKOI8R }
11481 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11482 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11483 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11484 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11485 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11486 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11487 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11488 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11489 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11490 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11491 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11492 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11493 { IBM1047 IBM-1047 }
11494 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11495 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11496 { UNICODE-1-1 csUnicode11 }
11497 { CESU-8 csCESU-8 }
11498 { BOCU-1 csBOCU-1 }
11499 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11500 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11501 l8 }
11502 { ISO-8859-15 ISO_8859-15 Latin-9 }
11503 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11504 { GBK CP936 MS936 windows-936 }
11505 { JIS_Encoding csJISEncoding }
11506 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11507 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11508 EUC-JP }
11509 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11510 { ISO-10646-UCS-Basic csUnicodeASCII }
11511 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11512 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11513 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11514 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11515 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11516 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11517 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11518 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11519 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11520 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11521 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11522 { Ventura-US csVenturaUS }
11523 { Ventura-International csVenturaInternational }
11524 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11525 { PC8-Turkish csPC8Turkish }
11526 { IBM-Symbols csIBMSymbols }
11527 { IBM-Thai csIBMThai }
11528 { HP-Legal csHPLegal }
11529 { HP-Pi-font csHPPiFont }
11530 { HP-Math8 csHPMath8 }
11531 { Adobe-Symbol-Encoding csHPPSMath }
11532 { HP-DeskTop csHPDesktop }
11533 { Ventura-Math csVenturaMath }
11534 { Microsoft-Publishing csMicrosoftPublishing }
11535 { Windows-31J csWindows31J }
11536 { GB2312 csGB2312 }
11537 { Big5 csBig5 }
11538 }
11540 proc tcl_encoding {enc} {
11541 global encoding_aliases tcl_encoding_cache
11544 }
11545 set names [encoding names]
11550 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11553 }
11554 }
11559 # look through the aliases for one that tcl knows about
11565 }
11566 }
11568 }
11569 break
11570 }
11571 }
11572 set tclenc {}
11575 }
11578 }
11580 proc gitattr {path attr default} {
11581 global path_attr_cache
11584 } else {
11585 set r "unspecified"
11588 }
11590 }
11593 }
11595 }
11597 proc cache_gitattr {attr pathlist} {
11598 global path_attr_cache
11599 set newlist {}
11603 }
11604 }
11605 set lim 1000
11606 if {[tk windowingsystem] == "win32"} {
11607 # windows has a 32k limit on the arguments to a command...
11608 set lim 30
11609 }
11618 }
11620 }
11621 }
11622 }
11623 }
11624 }
11626 proc get_path_encoding {path} {
11627 global gui_encoding perfile_attrs
11633 }
11634 }
11636 }
11638 # First check that Tcl/Tk is recent enough
11639 if {[catch {package require Tk 8.4} err]} {
11640 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11641 Gitk requires at least Tcl/Tk 8.4." list
11642 exit 1
11643 }
11645 # Unset GIT_TRACE var if set
11646 if { [info exists ::env(GIT_TRACE)] } {
11647 unset ::env(GIT_TRACE)
11648 }
11650 # defaults...
11651 set wrcomcmd "git diff-tree --stdin -p --pretty"
11653 set gitencoding {}
11654 catch {
11655 set gitencoding [exec git config --get i18n.commitencoding]
11656 }
11657 catch {
11658 set gitencoding [exec git config --get i18n.logoutputencoding]
11659 }
11661 set gitencoding "utf-8"
11662 }
11666 }
11668 set gui_encoding [encoding system]
11669 catch {
11670 set enc [exec git config --get gui.encoding]
11675 } else {
11677 }
11678 }
11679 }
11681 set log_showroot true
11682 catch {
11683 set log_showroot [exec git config --bool --get log.showroot]
11684 }
11686 if {[tk windowingsystem] eq "aqua"} {
11687 set mainfont {{Lucida Grande} 9}
11688 set textfont {Monaco 9}
11689 set uifont {{Lucida Grande} 9 bold}
11691 # fontconfig!
11692 set mainfont {sans 9}
11693 set textfont {monospace 9}
11694 set uifont {sans 9 bold}
11695 } else {
11696 set mainfont {Helvetica 9}
11697 set textfont {Courier 9}
11698 set uifont {Helvetica 9 bold}
11699 }
11700 set tabstop 8
11701 set findmergefiles 0
11702 set maxgraphpct 50
11703 set maxwidth 16
11704 set revlistorder 0
11705 set fastdate 0
11706 set uparrowlen 5
11707 set downarrowlen 5
11708 set mingaplen 100
11709 set cmitmode "patch"
11710 set wrapcomment "none"
11711 set showneartags 1
11712 set hideremotes 0
11713 set maxrefs 20
11714 set maxlinelen 200
11715 set showlocalchanges 1
11716 set limitdiffs 1
11717 set datetimeformat "%Y-%m-%d %H:%M:%S"
11718 set autoselect 1
11719 set autosellen 40
11720 set perfile_attrs 0
11721 set want_ttk 1
11723 if {[tk windowingsystem] eq "aqua"} {
11724 set extdifftool "opendiff"
11725 } else {
11726 set extdifftool "meld"
11727 }
11729 set colors {green red blue magenta darkgrey brown orange}
11730 if {[tk windowingsystem] eq "win32"} {
11731 set uicolor SystemButtonFace
11732 set bgcolor SystemWindow
11733 set fgcolor SystemButtonText
11734 set selectbgcolor SystemHighlight
11735 } else {
11736 set uicolor grey85
11737 set bgcolor white
11738 set fgcolor black
11739 set selectbgcolor gray85
11740 }
11741 set diffcolors {red "#00a000" blue}
11742 set diffcontext 3
11743 set ignorespace 0
11744 set worddiff ""
11745 set markbgcolor "#e0e0ff"
11747 set circlecolors {white blue gray blue blue}
11749 # button for popping up context menus
11750 if {[tk windowingsystem] eq "aqua"} {
11751 set ctxbut <Button-2>
11752 } else {
11753 set ctxbut <Button-3>
11754 }
11756 ## For msgcat loading, first locate the installation location.
11757 if { [info exists ::env(GITK_MSGSDIR)] } {
11758 ## Msgsdir was manually set in the environment.
11759 set gitk_msgsdir $::env(GITK_MSGSDIR)
11760 } else {
11761 ## Let's guess the prefix from argv0.
11765 unset gitk_prefix
11766 }
11768 ## Internationalization (i18n) through msgcat and gettext. See
11769 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11770 package require msgcat
11771 namespace import ::msgcat::mc
11772 ## And eventually load the actual message catalog
11775 catch {source ~/.gitk}
11778 eval font create mainfont [fontflags mainfont]
11779 eval font create mainfontbold [fontflags mainfont 1]
11782 eval font create textfont [fontflags textfont]
11783 eval font create textfontbold [fontflags textfont 1]
11786 eval font create uifont [fontflags uifont]
11790 setoptions
11792 # check that we can find a .git directory somewhere...
11793 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
11794 show_error {} . [mc "Cannot find a git repository here."]
11795 exit 1
11796 }
11798 set selecthead {}
11799 set selectheadid {}
11801 set revtreeargs {}
11802 set cmdline_files {}
11803 set i 0
11804 set revtreeargscmd {}
11807 "" { }
11808 "--" {
11810 break
11811 }
11812 "--select-commit=*" {
11814 }
11815 "--argscmd=*" {
11817 }
11818 default {
11820 }
11821 }
11822 incr i
11823 }
11826 set selecthead {}
11827 }
11830 # no -- on command line, but some arguments (other than --argscmd)
11831 if {[catch {
11836 # Unfortunately git rev-parse doesn't produce an error when
11837 # something is both a revision and a filename. To be consistent
11838 # with git log and git rev-list, check revtreeargs for filenames.
11841 show_error {} . [mc "Ambiguous argument '%s': both revision\
11843 exit 1
11844 }
11845 }
11846 } err]} {
11848 # so look for "fatal:".
11852 }
11854 exit 1
11855 }
11856 }
11858 set nullid "0000000000000000000000000000000000000000"
11859 set nullid2 "0000000000000000000000000000000000000001"
11860 set nullfile "/dev/null"
11863 if {![info exists have_ttk]} {
11864 set have_ttk [llength [info commands ::ttk::style]]
11865 }
11869 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
11871 set show_notes {}
11873 set show_notes "--show-notes"
11874 }
11876 set appname "gitk"
11878 set runq {}
11879 set history {}
11880 set historyindex 0
11881 set fh_serial 0
11882 set nhl_names {}
11883 set highlight_paths {}
11884 set findpattern {}
11885 set searchdirn -forwards
11886 set boldids {}
11887 set boldnameids {}
11888 set diffelide {0 0}
11889 set markingmatches 0
11890 set linkentercount 0
11891 set need_redisplay 0
11892 set nrows_drawn 0
11893 set firsttabstop 0
11895 set nextviewnum 1
11896 set curview 0
11897 set selectedview 0
11898 set selectedhlview [mc "None"]
11899 set highlight_related [mc "None"]
11900 set highlight_files {}
11901 set viewfiles(0) {}
11902 set viewperm(0) 0
11903 set viewargs(0) {}
11904 set viewargscmd(0) {}
11906 set selectedline {}
11907 set numcommits 0
11908 set loginstance 0
11909 set cmdlineok 0
11910 set stopped 0
11911 set stuffsaved 0
11912 set patchnum 0
11913 set lserial 0
11914 set hasworktree [hasworktree]
11915 set cdup {}
11916 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
11917 set cdup [exec git rev-parse --show-cdup]
11918 }
11919 set worktree [exec git rev-parse --show-toplevel]
11920 setcoords
11921 makewindow
11922 catch {
11923 image create photo gitlogo -width 16 -height 16
11925 image create photo gitlogominus -width 4 -height 2
11926 gitlogominus put #C00000 -to 0 0 4 2
11927 gitlogo copy gitlogominus -to 1 5
11928 gitlogo copy gitlogominus -to 6 5
11929 gitlogo copy gitlogominus -to 11 5
11930 image delete gitlogominus
11932 image create photo gitlogoplus -width 4 -height 4
11933 gitlogoplus put #008000 -to 1 0 3 4
11934 gitlogoplus put #008000 -to 0 1 4 3
11935 gitlogo copy gitlogoplus -to 1 9
11936 gitlogo copy gitlogoplus -to 6 9
11937 gitlogo copy gitlogoplus -to 11 9
11938 image delete gitlogoplus
11940 image create photo gitlogo32 -width 32 -height 32
11941 gitlogo32 copy gitlogo -zoom 2 2
11943 wm iconphoto . -default gitlogo gitlogo32
11944 }
11945 # wait for the window to become visible
11946 tkwait visibility .
11948 update
11949 readrefs
11952 # create a view for the files/dirs specified on the command line
11953 set curview 1
11954 set selectedview 1
11955 set nextviewnum 2
11956 set viewname(1) [mc "Command line"]
11960 set viewperm(1) 0
11961 set vdatemode(1) 0
11962 addviewmenu 1
11963 .bar.view entryconf [mca "Edit view..."] -state normal
11964 .bar.view entryconf [mca "Delete view"] -state normal
11965 }
11967 if {[info exists permviews]} {
11970 incr nextviewnum
11977 }
11978 }
11980 if {[tk windowingsystem] eq "win32"} {
11981 focus -force .
11982 }
11984 getcommits {}
11986 # Local variables:
11987 # mode: tcl
11988 # indent-tabs-mode: t
11989 # tab-width: 8
11990 # End: