| blob | 56c2c344ad9c22ac014d905df63237b90af55785 |
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 catch {file delete "~/.gitk"}
2787 file rename -force "~/.gitk-new" "~/.gitk"
2788 }
2789 set stuffsaved 1
2790 }
2792 proc resizeclistpanes {win w} {
2793 global oldwidth use_ttk
2798 } else {
2801 }
2805 } else {
2810 set sash0 30
2811 }
2814 }
2819 }
2820 }
2821 }
2825 } else {
2828 }
2829 }
2831 }
2833 proc resizecdetpanes {win w} {
2834 global oldwidth use_ttk
2838 } else {
2840 }
2843 } else {
2847 set sash0 45
2848 }
2851 }
2852 }
2855 } else {
2857 }
2858 }
2860 }
2862 proc allcanvs args {
2863 global canv canv2 canv3
2867 }
2869 proc bindall {event action} {
2870 global canv canv2 canv3
2874 }
2876 proc about {} {
2877 global uifont NS
2878 set w .about
2881 return
2882 }
2887 Gitk - a commit viewer for git
2889 Copyright \u00a9 2005-2011 Paul Mackerras
2891 Use and redistribute under the terms of the GNU General Public License"] \
2892 -justify center -aspect 400 -border 2 -bg white -relief groove
2900 }
2902 proc keys {} {
2903 global NS
2904 set w .keys
2907 return
2908 }
2909 if {[tk windowingsystem] eq {aqua}} {
2910 set M1T Cmd
2911 } else {
2912 set M1T Ctrl
2913 }
2918 [mc "Gitk key bindings:"]
2922 [mc "<Home> Move to first commit"]
2923 [mc "<End> Move to last commit"]
2924 [mc "<Up>, p, k Move up one commit"]
2925 [mc "<Down>, n, j Move down one commit"]
2926 [mc "<Left>, z, h Go back in history list"]
2927 [mc "<Right>, x, l Go forward in history list"]
2928 [mc "<PageUp> Move up one page in commit list"]
2929 [mc "<PageDown> Move down one page in commit list"]
2936 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2937 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2938 [mc "<Delete>, b Scroll diff view up one page"]
2939 [mc "<Backspace> Scroll diff view up one page"]
2940 [mc "<Space> Scroll diff view down one page"]
2941 [mc "u Scroll diff view up 18 lines"]
2942 [mc "d Scroll diff view down 18 lines"]
2945 [mc "<Return> Move to next find hit"]
2946 [mc "/ Focus the search box"]
2947 [mc "? Move to previous find hit"]
2948 [mc "f Scroll diff view to next file"]
2955 [mc "<F5> Update"]
2956 " \
2957 -justify left -bg white -border 2 -relief groove
2965 }
2967 # Procedures for manipulating the file list window at the
2968 # bottom right of the overall window.
2970 proc treeview {w l openlevs} {
2971 global treecontents treediropen treeheight treeparent treeindex
2973 set ix 0
2974 set treeindex() 0
2975 set lev 0
2976 set prefix {}
2977 set prefixend -1
2978 set prefendstack {}
2979 set htstack {}
2980 set ht 0
2981 set treecontents() {}
2988 }
2995 incr lev -1
2996 }
3000 set ht 0
3012 set ht 1
3017 set str "\n"
3025 }
3026 incr lev
3027 }
3030 incr ht
3031 set str "\n"
3035 }
3037 }
3038 }
3046 }
3048 }
3050 proc linetoelt {l} {
3051 global treeheight treecontents
3053 set y 2
3054 set prefix {}
3055 while {1} {
3059 }
3060 set n 1
3065 incr y
3066 break
3067 }
3068 }
3070 }
3071 }
3072 }
3074 proc highlight_tree {y prefix} {
3075 global treeheight treecontents cflist
3081 }
3082 incr y
3085 }
3086 }
3088 }
3090 proc treeclosedir {w dir} {
3091 global treediropen treeheight treeparent treeindex
3103 }
3104 }
3106 proc treeopendir {w dir} {
3107 global treediropen treeheight treeparent treecontents treeindex
3114 set lev 0
3115 set str "\n"
3118 incr lev
3119 append str "\t"
3121 }
3136 } else {
3139 }
3140 }
3153 }
3155 }
3156 }
3158 proc treeclick {w x y} {
3159 global treediropen cmitmode ctext cflist cflist_top
3162 if {![info exists cflist_top]} return
3169 return
3170 }
3176 } else {
3178 }
3179 }
3181 proc setfilelist {id} {
3182 global treefilelist cflist jump_to_here
3189 }
3190 }
3191 }
3193 image create bitmap tri-rt -background black -foreground blue -data {
3194 #define tri-rt_width 13
3195 #define tri-rt_height 13
3196 static unsigned char tri-rt_bits[] = {
3197 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3198 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3199 0x00, 0x00};
3200 } -maskdata {
3201 #define tri-rt-mask_width 13
3202 #define tri-rt-mask_height 13
3203 static unsigned char tri-rt-mask_bits[] = {
3204 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3205 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3206 0x08, 0x00};
3207 }
3208 image create bitmap tri-dn -background black -foreground blue -data {
3209 #define tri-dn_width 13
3210 #define tri-dn_height 13
3211 static unsigned char tri-dn_bits[] = {
3212 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3213 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3214 0x00, 0x00};
3215 } -maskdata {
3216 #define tri-dn-mask_width 13
3217 #define tri-dn-mask_height 13
3218 static unsigned char tri-dn-mask_bits[] = {
3219 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3220 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3221 0x00, 0x00};
3222 }
3224 image create bitmap reficon-T -background black -foreground yellow -data {
3225 #define tagicon_width 13
3226 #define tagicon_height 9
3227 static unsigned char tagicon_bits[] = {
3228 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3229 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3230 } -maskdata {
3231 #define tagicon-mask_width 13
3232 #define tagicon-mask_height 9
3233 static unsigned char tagicon-mask_bits[] = {
3234 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3235 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3236 }
3237 set rectdata {
3238 #define headicon_width 13
3239 #define headicon_height 9
3240 static unsigned char headicon_bits[] = {
3241 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3242 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3243 }
3244 set rectmask {
3245 #define headicon-mask_width 13
3246 #define headicon-mask_height 9
3247 static unsigned char headicon-mask_bits[] = {
3248 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3249 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3250 }
3251 image create bitmap reficon-H -background black -foreground green \
3253 image create bitmap reficon-o -background black -foreground "#ddddff" \
3256 proc init_flist {first} {
3257 global cflist cflist_top difffilestart
3263 set cflist_top 1
3265 } else {
3266 catch {unset cflist_top}
3267 }
3269 set difffilestart {}
3270 }
3272 proc highlight_tag {f} {
3273 global highlight_paths
3277 return "bold"
3278 }
3279 }
3280 return {}
3281 }
3283 proc highlight_filelist {} {
3284 global cmitmode cflist
3293 }
3294 }
3295 } else {
3296 highlight_tree 2 {}
3297 }
3299 }
3301 proc unhighlight_filelist {} {
3302 global cflist
3307 }
3309 proc add_flist {fl} {
3310 global cflist
3316 }
3318 }
3320 proc sel_flist {w x y} {
3321 global ctext difffilestart cflist cflist_top cmitmode
3324 if {![info exists cflist_top]} return
3331 } else {
3333 }
3334 suppress_highlighting_file_for_current_scrollpos
3335 }
3337 proc pop_flist_menu {w X Y x y} {
3338 global ctext cflist cmitmode flist_menu flist_menu_file
3339 global treediffs diffids
3341 stopfinding
3347 } else {
3349 }
3351 set xdiffstate "normal"
3353 set xdiffstate "disabled"
3354 }
3355 # Disable "External diff" item in tree mode
3358 }
3360 proc find_ctext_fileinfo {line} {
3361 global ctext_file_names ctext_file_lines
3367 return {}
3368 } else {
3370 }
3371 }
3373 proc pop_diff_menu {w X Y x y} {
3374 global ctext diff_menu flist_menu_file
3375 global diff_menu_txtpos diff_menu_line
3376 global diff_menu_filebase
3380 # don't pop up the menu on hunk-separator or file-separator lines
3382 return
3383 }
3384 stopfinding
3390 }
3392 proc flist_hl {only} {
3393 global flist_menu_file findstring gdttype
3398 } else {
3400 }
3401 set gdttype [mc "touching paths:"]
3402 }
3404 proc gitknewtmpdir {} {
3405 global diffnum gitktmpdir gitdir
3407 if {![info exists gitktmpdir]} {
3411 unset gitktmpdir
3412 return {}
3413 }
3414 set diffnum 0
3415 }
3416 incr diffnum
3420 return {}
3421 }
3423 }
3425 proc save_file_from_commit {filename output what} {
3426 global nullfile
3431 }
3433 return {}
3434 }
3436 }
3438 proc external_diff_get_one_file {diffid filename diffdir} {
3439 global nullid nullid2 nullfile
3440 global worktree
3446 }
3448 }
3452 }
3456 }
3458 proc external_diff {} {
3459 global nullid nullid2
3460 global flist_menu_file
3461 global diffids
3462 global extdifftool
3465 # no reference commit given
3468 # diffing working copy with index
3471 # diffing index with HEAD
3472 set diffidfrom "HEAD"
3473 } else {
3474 # use first parent commit
3475 global parentlist selectedline
3477 }
3478 } else {
3481 }
3483 # make sure that several diffs wont collide
3484 set diffdir [gitknewtmpdir]
3487 # gather files to diff
3496 } else {
3499 }
3500 }
3501 }
3503 proc find_hunk_blamespec {base line} {
3504 global ctext
3506 # Find and parse the hunk header
3512 s_line old_specs osz osz1 new_line nsz]} {
3513 return
3514 }
3516 # base lines for the parents
3520 old_spec old_line osz]} {
3521 return
3522 }
3524 }
3526 # Now scan the lines to determine offset within the hunk
3528 set dline 0
3531 # Determine if the line is removed
3535 # Choose a parent index
3538 } else {
3542 } else {
3543 # blame the current commit
3544 set parent -1
3545 }
3546 }
3547 # then count other lines that belong to it
3550 # Determine if the line is removed
3555 incr dline
3556 }
3557 } else {
3559 incr dline
3560 }
3561 }
3562 }
3563 incr parent
3564 } else {
3565 set parent 0
3566 }
3570 }
3572 proc external_blame_diff {} {
3573 global currentid cmitmode
3574 global diff_menu_txtpos diff_menu_line
3575 global diff_menu_filebase flist_menu_file
3578 set parent_idx 0
3580 } else {
3585 } else {
3586 set parent_idx 0
3587 set line 0
3588 }
3589 }
3592 }
3595 # at stage 0 or 2
3596 proc index_sha1 {fname} {
3604 }
3605 }
3607 return {}
3608 }
3610 # Turn an absolute path into one relative to the current directory
3611 proc make_relative {f} {
3614 }
3616 set here [file split [pwd]]
3617 set ei 0
3618 set hi 0
3619 set res {}
3622 lappend res ".."
3623 } else {
3624 incr ei
3625 }
3626 incr hi
3627 }
3630 }
3632 proc external_blame {parent_idx {line {}}} {
3633 global flist_menu_file cdup
3634 global nullid nullid2
3635 global parentlist selectedline currentid
3639 } else {
3641 }
3644 error_popup [mc "No such commit"]
3645 return
3646 }
3648 set cmdline [list git gui blame]
3651 }
3653 # Unfortunately it seems git gui blame doesn't like
3654 # being given an absolute path...
3659 }
3660 }
3662 proc show_line_source {} {
3663 global cmitmode currentid parents curview blamestuff blameinst
3664 global diff_menu_line diff_menu_filebase flist_menu_file
3665 global nullid nullid2 gitdir cdup
3667 set from_index {}
3671 } else {
3677 return
3678 }
3679 incr pi -1
3682 # must be a merge in progress...
3683 if {[catch {
3684 # get the last line from .git/MERGE_HEAD
3688 } err]} {
3690 return
3691 }
3693 # need to do the blame from the index
3694 if {[catch {
3696 } err]} {
3698 return
3699 }
3700 } else {
3702 }
3703 } else {
3705 }
3707 }
3708 set blameargs {}
3711 }
3714 lappend blameargs --contents -
3715 } else {
3717 }
3719 if {[catch {
3721 } err]} {
3723 return
3724 }
3725 nowbusy blaming [mc "Searching"]
3731 }
3733 proc stopblaming {} {
3734 global blameinst
3736 if {[info exists blameinst]} {
3738 unset blameinst
3739 notbusy blaming
3740 }
3741 }
3743 proc read_line_source {fd inst} {
3744 global blamestuff curview commfd blameinst nullid nullid2
3748 }
3750 return 1
3751 }
3753 unset blameinst
3754 notbusy blaming
3758 return 0
3759 }
3761 set fname {}
3767 # look for "filename" line
3771 break
3772 }
3773 }
3774 }
3776 # all looks good, select it
3778 # blame uses all-zeroes to mean not committed,
3779 # which would mean a change in the index
3781 }
3784 } else {
3785 error_popup [mc "That line comes from commit %s, \
3787 }
3788 } else {
3789 puts "oops couldn't parse git blame output"
3790 }
3791 return 0
3792 }
3795 proc delete_at_eof {f dir} {
3800 }
3802 return 0
3803 }
3804 return 1
3805 }
3807 # Functions for adding and removing shell-type quoting
3809 proc shellquote {str} {
3812 }
3815 }
3818 }
3820 }
3822 proc shellarglist {l} {
3823 set str {}
3826 append str " "
3827 }
3829 }
3831 }
3833 proc shelldequote {str} {
3834 set ret {}
3835 set used -1
3836 while {1} {
3837 incr used
3841 break
3842 }
3848 }
3850 incr used
3854 error "unmatched single-quote"
3855 }
3858 continue
3859 }
3862 error "trailing backslash"
3863 }
3865 continue
3866 }
3867 # here ch == "\""
3868 while {1} {
3870 error "unmatched double-quote"
3871 }
3877 }
3879 incr used
3881 incr used
3882 }
3883 }
3885 }
3887 proc shellsplit {str} {
3888 set l {}
3889 while {1} {
3897 }
3899 }
3901 # Code to implement multiple views
3903 proc newview {ishighlight} {
3904 global nextviewnum newviewname newishighlight
3905 global revtreeargs viewargscmd newviewopts curview
3908 set top .gitkview
3911 return
3912 }
3918 }
3920 set known_view_options {
3921 {perm b . {} {mc "Remember this view"}}
3922 {reflabel l + {} {mc "References (space separated list):"}}
3923 {refs t15 .. {} {mc "Branches & tags:"}}
3924 {allrefs b *. "--all" {mc "All refs"}}
3925 {branches b . "--branches" {mc "All (local) branches"}}
3926 {tags b . "--tags" {mc "All tags"}}
3927 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3928 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3929 {author t15 .. "--author=*" {mc "Author:"}}
3930 {committer t15 . "--committer=*" {mc "Committer:"}}
3931 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3932 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3933 {changes_l l + {} {mc "Changes to Files:"}}
3934 {pickaxe_s r0 . {} {mc "Fixed String"}}
3935 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3936 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3937 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3938 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3939 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3940 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3941 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3942 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3943 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3944 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3945 {lright b . "--left-right" {mc "Mark branch sides"}}
3946 {first b . "--first-parent" {mc "Limit to first parent"}}
3947 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3948 {args t50 *. {} {mc "Additional arguments to git log:"}}
3949 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3950 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3951 }
3954 proc encode_view_opts {n} {
3955 global known_view_options newviewopts
3957 set rargs [list]
3967 }
3973 }
3974 } else {
3980 }
3981 }
3982 }
3985 }
3988 proc decode_view_opts {n view_args} {
3989 global known_view_options newviewopts
3994 # Checkboxes
3995 set val 0
3997 # Radiobuttons
3999 set val 0
4000 } else {
4001 # Text fields
4002 set val {}
4003 }
4005 }
4006 set oargs [list]
4007 set refargs [list]
4010 && ![info exists found(limit)]} {
4012 set found(limit) 1
4013 continue
4014 }
4015 catch { unset val }
4022 # Check buttons
4023 set val 1
4025 # Radio buttons
4028 } else {
4029 # Text input fields
4032 }
4035 break
4036 }
4037 if {[info exists val]} break
4038 }
4039 if {[info exists val]} continue
4042 } else {
4044 }
4045 }
4048 }
4050 proc edit_or_newview {} {
4051 global curview
4054 editview
4055 } else {
4056 newview 0
4057 }
4058 }
4060 proc editview {} {
4061 global curview
4062 global viewname viewperm newviewname newviewopts
4063 global viewargs viewargscmd
4068 return
4069 }
4075 }
4077 proc vieweditor {top n title} {
4078 global newviewname newviewopts viewfiles bgcolor
4079 global known_view_options NS
4085 # View name
4093 # View options
4095 set cexpand 0
4096 set cnt 0
4102 set lxpad 0
4106 incr cnt
4112 incr cnt
4116 } else {
4117 set lxpad 5
4118 }
4152 }
4155 }
4157 }
4158 }
4173 }
4175 proc doviewmenu {m first cmd op argv} {
4180 break
4181 }
4182 }
4183 }
4185 proc allviewmenus {n op args} {
4186 # global viewhlmenu
4190 }
4192 proc newviewok {top n {apply 0}} {
4193 global nextviewnum newviewperm newviewname newishighlight
4194 global viewname viewfiles viewperm selectedview curview
4195 global viewargs viewargscmd newviewopts viewhlmenu
4197 if {[catch {
4199 } err]} {
4201 return
4202 }
4203 set files {}
4208 }
4209 }
4211 # creating a new view
4212 incr nextviewnum
4221 } else {
4223 }
4224 } else {
4225 # editing an existing view
4233 }
4240 run reloadcommits
4241 }
4242 }
4243 }
4246 }
4248 proc delview {} {
4249 global curview viewperm hlview selectedhlview
4253 set selectedhlview [mc "None"]
4254 unset hlview
4255 }
4258 showview 0
4259 }
4261 proc addviewmenu {n} {
4262 global viewname viewhlmenu
4268 }
4270 proc showview {n} {
4271 global curview cached_commitrow ordertok
4272 global displayorder parentlist rowidlist rowisopt rowfinal
4273 global colormap rowtextx nextcolor canvxmax
4274 global numcommits viewcomplete
4275 global selectedline currentid canv canvy0
4276 global treediffs
4277 global pending_select mainheadid
4278 global commitidx
4279 global selectedview
4280 global hlview selectedhlview commitinterest
4283 set selid {}
4294 }
4295 } elseif {[info exists pending_select]} {
4297 unset pending_select
4298 }
4299 unselectline
4300 normalline
4301 catch {unset treediffs}
4302 clear_display
4304 unset hlview
4305 set selectedhlview [mc "None"]
4306 }
4307 catch {unset commitinterest}
4308 catch {unset cached_commitrow}
4309 catch {unset ordertok}
4316 run refill_reflist
4319 return
4320 }
4322 set displayorder {}
4323 set parentlist {}
4324 set rowidlist {}
4325 set rowisopt {}
4326 set rowfinal {}
4329 catch {unset colormap}
4330 catch {unset rowtextx}
4331 set nextcolor 0
4334 set row 0
4335 setcanvscroll
4336 set yf 0
4337 set row {}
4340 # try to get the selected row in the same position on the screen
4344 set ytop 0
4345 }
4347 }
4349 drawvisible
4354 } else {
4355 reset_pending_select {}
4359 } else {
4360 set row [first_real_row]
4363 }
4364 }
4365 }
4368 show_status [mc "Reading commits..."]
4369 }
4371 show_status [mc "No commits selected"]
4372 }
4373 }
4375 # Stuff relating to the highlighting facility
4377 proc ishighlighted {id} {
4378 global vhighlights fhighlights nhighlights rhighlights
4382 }
4385 }
4388 }
4391 }
4392 return 0
4393 }
4395 proc bolden {id font} {
4396 global canv linehtag currentid boldids need_redisplay markedid
4398 # need_redisplay = 1 means the display is stale and about to be redrawn
4405 -outline {{}} -tags secsel \
4408 }
4411 }
4412 }
4414 proc bolden_name {id font} {
4415 global canv2 linentag currentid boldnameids need_redisplay
4423 -outline {{}} -tags secsel \
4426 }
4427 }
4429 proc unbolden {} {
4430 global boldids
4432 set stillbold {}
4436 } else {
4438 }
4439 }
4441 }
4443 proc addvhighlight {n} {
4444 global hlview viewcomplete curview vhl_done commitidx
4446 if {[info exists hlview]} {
4447 delvhighlight
4448 }
4452 }
4455 drawvisible
4456 }
4457 }
4459 proc delvhighlight {} {
4460 global hlview vhighlights
4462 if {![info exists hlview]} return
4463 unset hlview
4464 catch {unset vhighlights}
4465 unbolden
4466 }
4468 proc vhighlightmore {} {
4469 global hlview vhl_done commitidx vhighlights curview
4472 set vr [visiblerows]
4482 }
4484 }
4485 }
4486 }
4488 return 0
4489 }
4491 proc askvhighlight {row id} {
4492 global hlview vhighlights iddrawn
4497 }
4499 } else {
4501 }
4502 }
4504 proc hfiles_change {} {
4505 global highlight_files filehighlight fhighlights fh_serial
4506 global highlight_paths
4508 if {[info exists filehighlight]} {
4509 # delete previous highlights
4511 unset filehighlight
4512 catch {unset fhighlights}
4513 unbolden
4514 unhighlight_filelist
4515 }
4516 set highlight_paths {}
4518 incr fh_serial
4521 }
4522 }
4524 proc gdttype_change {name ix op} {
4525 global gdttype highlight_files findstring findpattern
4527 stopfinding
4531 set highlight_files {}
4532 hfiles_change
4533 }
4534 findcom_change
4535 } else {
4537 set findpattern {}
4538 findcom_change
4539 }
4541 hfiles_change
4542 }
4543 drawvisible
4544 }
4545 # enable/disable findtype/findloc menus too
4546 }
4548 proc find_change {name ix op} {
4549 global gdttype findstring highlight_files
4551 stopfinding
4553 findcom_change
4554 } else {
4557 hfiles_change
4558 }
4559 }
4560 drawvisible
4561 }
4563 proc findcom_change args {
4564 global nhighlights boldnameids
4565 global findpattern findtype findstring gdttype
4567 stopfinding
4568 # delete previous highlights, if any
4571 }
4572 set boldnameids {}
4573 catch {unset nhighlights}
4574 unbolden
4575 unmarkmatches
4577 set findpattern {}
4580 } else {
4581 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4584 }
4585 }
4587 proc makepatterns {l} {
4588 set ret {}
4593 } else {
4596 }
4597 }
4599 }
4601 proc do_file_hl {serial} {
4602 global highlight_files filehighlight highlight_paths gdttype fhl_list
4603 global cdup findtype
4606 # If "exact" match then convert backslashes to forward slashes.
4607 # Most useful to support Windows-flavoured file paths.
4610 }
4613 highlight_filelist
4614 set relative_paths {}
4617 }
4621 } else {
4622 # must be "containing:", i.e. we're searching commit info
4623 return
4624 }
4629 set fhl_list {}
4630 drawvisible
4631 flushhighlights
4632 }
4634 proc flushhighlights {} {
4635 global filehighlight fhl_list
4637 if {[info exists filehighlight]} {
4638 lappend fhl_list {}
4641 }
4642 }
4644 proc askfilehighlight {row id} {
4645 global filehighlight fhighlights fhl_list
4650 }
4652 proc readfhighlight {} {
4653 global filehighlight fhighlights curview iddrawn
4654 global fhl_list find_dirn
4656 if {![info exists filehighlight]} {
4657 return 0
4658 }
4659 set nr 0
4667 }
4673 }
4675 }
4677 # strange...
4678 puts "oops, git diff-tree died"
4680 unset filehighlight
4681 return 0
4682 }
4683 if {[info exists find_dirn]} {
4684 run findmore
4685 }
4686 return 1
4687 }
4689 proc doesmatch {f} {
4690 global findtype findpattern
4696 } else {
4698 }
4699 }
4701 proc askfindhighlight {row id} {
4702 global nhighlights commitinfo iddrawn
4703 global findloc
4704 global markingmatches
4708 }
4710 set isbold 0
4711 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4717 set isbold 2
4718 break
4719 }
4720 set isbold 1
4721 }
4722 }
4728 }
4729 }
4732 }
4733 }
4735 }
4737 proc markrowmatches {row id} {
4738 global canv canv2 linehtag linentag commitinfo findloc
4749 }
4750 }
4756 }
4757 }
4758 }
4760 proc vrel_change {name ix op} {
4761 global highlight_related
4763 rhighlight_none
4765 run drawvisible
4766 }
4767 }
4769 # prepare for testing whether commits are descendents or ancestors of a
4770 proc rhighlight_sel {a} {
4771 global descendent desc_todo ancestor anc_todo
4772 global highlight_related
4774 catch {unset descendent}
4776 catch {unset ancestor}
4779 rhighlight_none
4780 run drawvisible
4781 }
4782 }
4784 proc rhighlight_none {} {
4785 global rhighlights
4787 catch {unset rhighlights}
4788 unbolden
4789 }
4791 proc is_descendent {a} {
4792 global curview children descendent desc_todo
4797 set leftover {}
4798 set done 0
4803 continue
4804 }
4810 set done 1
4811 }
4812 }
4813 }
4816 return
4817 }
4818 }
4821 }
4823 proc is_ancestor {a} {
4824 global curview parents ancestor anc_todo
4829 set leftover {}
4830 set done 0
4835 continue
4836 }
4842 set done 1
4843 }
4844 }
4845 }
4848 return
4849 }
4850 }
4853 }
4855 proc askrelhighlight {row id} {
4856 global descendent highlight_related iddrawn rhighlights
4857 global selectedline ancestor
4860 set isbold 0
4865 }
4867 set isbold 1
4868 }
4873 }
4875 set isbold 1
4876 }
4877 }
4881 }
4882 }
4884 }
4886 # Graph layout functions
4888 proc shortids {ids} {
4889 set res {}
4895 } else {
4897 }
4898 }
4900 }
4902 proc ntimes {n o} {
4903 set ret {}
4908 }
4910 }
4912 }
4914 proc ordertoken {id} {
4915 global ordertok curview varcid varcstart varctok curview parents children
4916 global nullid nullid2
4920 }
4922 set todo {}
4923 while {1} {
4927 } else {
4929 }
4932 break
4933 }
4936 # it's a root
4938 break
4939 }
4942 } else {
4946 }
4948 }
4949 }
4954 }
4957 }
4959 # Work out where id should go in idlist so that order-token
4960 # values increase from left to right
4961 proc idcol {idlist id {i 0}} {
4964 set i 0
4965 }
4969 }
4971 incr i
4972 } else {
4976 }
4977 }
4979 }
4981 proc initlayout {} {
4982 global rowidlist rowisopt rowfinal displayorder parentlist
4983 global numcommits canvxmax canv
4984 global nextcolor
4985 global colormap rowtextx
4987 set numcommits 0
4988 set displayorder {}
4989 set parentlist {}
4990 set nextcolor 0
4991 set rowidlist {}
4992 set rowisopt {}
4993 set rowfinal {}
4995 catch {unset colormap}
4996 catch {unset rowtextx}
4997 setcanvscroll
4998 }
5000 proc setcanvscroll {} {
5001 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5002 global lastscrollset lastscrollrows
5008 set lastscrollset [clock clicks -milliseconds]
5010 }
5012 proc visiblerows {} {
5013 global canv numcommits linespc
5021 set r0 0
5022 }
5027 }
5029 }
5031 proc layoutmore {} {
5032 global commitidx viewcomplete curview
5033 global numcommits pending_select curview
5034 global lastscrollset lastscrollrows
5038 setcanvscroll
5039 }
5040 if {[info exists pending_select] &&
5042 update
5044 }
5045 drawvisible
5046 }
5048 # With path limiting, we mightn't get the actual HEAD commit,
5049 # so ask git rev-list what is the first ancestor of HEAD that
5050 # touches a file in the path limit.
5051 proc get_viewmainhead {view} {
5052 global viewmainheadid vfilelimit viewinstances mainheadid
5054 catch {
5062 }
5063 }
5066 proc getviewhead {fd inst view} {
5067 global viewmainheadid commfd curview viewinstances showlocalchanges
5069 set id {}
5072 return 1
5073 }
5076 }
5083 }
5085 doshowlocalchanges
5086 }
5087 return 0
5088 }
5090 proc doshowlocalchanges {} {
5091 global curview viewmainheadid
5095 dodiffindex
5096 } else {
5098 }
5099 }
5101 proc dohidelocalchanges {} {
5102 global nullid nullid2 lserial curview
5106 }
5109 }
5110 incr lserial
5111 }
5113 # spawn off a process to do git diff-index --cached HEAD
5114 proc dodiffindex {} {
5115 global lserial showlocalchanges vfilelimit curview
5116 global hasworktree
5119 incr lserial
5120 set cmd "|git diff-index --cached HEAD"
5123 }
5128 }
5130 proc readdiffindex {fd serial inst} {
5131 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5132 global vfilelimit
5134 set isdiff 1
5137 return 1
5138 }
5139 set isdiff 0
5140 }
5141 # we only need to see one line and we don't really care what it says...
5145 return 0
5146 }
5148 # now see if there are any local changes not checked in to the index
5149 set cmd "|git diff-files"
5152 }
5159 # add the line for the changes in the index to the graph
5160 set hl [mc "Local changes checked in to index but not committed"]
5165 }
5170 }
5172 }
5173 return 0
5174 }
5176 proc readdifffiles {fd serial inst} {
5177 global viewmainheadid nullid nullid2 curview
5178 global commitinfo commitdata lserial
5180 set isdiff 1
5183 return 1
5184 }
5185 set isdiff 0
5186 }
5187 # we only need to see one line and we don't really care what it says...
5191 return 0
5192 }
5195 # add the line for the local diff to the graph
5196 set hl [mc "Local uncommitted changes, not checked in to index"]
5201 } else {
5203 }
5207 }
5208 return 0
5209 }
5211 proc nextuse {id row} {
5212 global curview children
5217 return -1
5218 }
5221 }
5222 }
5223 }
5226 }
5227 return -1
5228 }
5230 proc prevuse {id row} {
5231 global curview children
5233 set ret -1
5239 }
5240 }
5241 }
5243 }
5245 proc make_idlist {row} {
5246 global displayorder parentlist uparrowlen downarrowlen mingaplen
5247 global commitidx curview children
5251 set r 0
5252 }
5255 set ra 0
5256 }
5260 }
5262 set ids {}
5271 }
5272 }
5273 }
5281 }
5282 }
5283 }
5291 }
5292 }
5293 incr r
5299 }
5300 }
5301 }
5302 set idlist {}
5305 }
5307 }
5309 proc rowsequal {a b} {
5312 }
5315 }
5317 }
5319 proc makeupline {id row rend col} {
5320 global rowidlist uparrowlen downarrowlen mingaplen
5326 }
5329 }
5336 }
5337 }
5338 }
5340 proc layoutrows {row endrow} {
5341 global rowidlist rowisopt rowfinal displayorder
5342 global uparrowlen downarrowlen maxwidth mingaplen
5343 global children parentlist
5344 global commitidx viewcomplete curview
5347 set idlist {}
5353 }
5354 }
5356 }
5361 set final 1
5362 } else {
5370 # if not the first child, we have to insert a line going up
5373 }
5374 }
5375 }
5385 }
5386 }
5387 }
5394 }
5395 }
5405 }
5406 }
5414 }
5415 }
5416 }
5417 }
5418 }
5422 set final 0
5423 }
5427 lappend rowisopt 0
5433 }
5435 } else {
5442 }
5443 }
5445 }
5447 proc changedrow {row} {
5448 global displayorder iddrawn rowisopt need_redisplay
5457 }
5458 }
5459 }
5462 set need_redisplay 1
5463 }
5464 }
5466 proc insert_pad {row col npad} {
5467 global rowidlist
5476 }
5479 }
5481 proc optimize_rows {row col endrow} {
5482 global rowidlist rowisopt displayorder curview children
5485 set row 1
5486 }
5489 set haspad 0
5498 } else {
5499 set pprevidlist {}
5500 }
5501 set x0 -1
5502 set xm -1
5507 set haspad 1
5508 continue
5509 }
5513 set isarrow 0
5514 set z0 {}
5519 }
5520 }
5525 set isarrow 1
5526 }
5527 }
5530 set isarrow 1
5531 }
5532 # Looking at lines from this row to the previous row,
5533 # make them go straight up if they end in an arrow on
5534 # the previous row; otherwise make them go straight up
5535 # or at 45 degrees.
5537 # Line currently goes left too much;
5538 # insert pads in the previous row, then optimize it
5543 }
5551 }
5553 # Line currently goes right too much;
5554 # insert pads in this line
5560 set haspad 1
5561 }
5568 }
5569 }
5570 # avoid lines jigging left then immediately right
5573 incr x0
5576 }
5577 }
5579 # Find the first column that doesn't have a line going right
5585 # check if this is the link to the first child
5588 # it is, work out offset to child
5590 }
5591 }
5593 }
5594 # Insert a pad at that column as long as it has a line and
5595 # isn't the last column
5600 }
5601 }
5602 }
5603 }
5605 proc xc {row col} {
5606 global canvx0 linespc
5608 }
5610 proc yc {row} {
5611 global canvy0 linespc
5613 }
5615 proc linewidth {id} {
5616 global thickerline lthickness
5621 }
5623 }
5625 proc rowranges {id} {
5626 global curview children uparrowlen downarrowlen
5627 global rowidlist
5631 return {}
5632 }
5633 set ret {}
5638 if {![info exists prev]} {
5640 } else {
5642 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5643 }
5644 # see if the line extends the whole way from prevrow to row
5648 # it doesn't, see where it ends
5653 } else {
5656 incr r -1
5657 }
5659 # see where it starts up again
5664 } else {
5667 incr r
5668 }
5670 }
5671 }
5674 }
5677 }
5679 }
5681 proc drawlineseg {id row endrow arrowlow} {
5682 global rowidlist displayorder iddrawn linesegs
5683 global canv colormap linespc curview maxlinelen parentlist
5687 set arrowhigh 1
5688 while {1} {
5691 incr le -1
5692 break
5693 }
5697 set arrowhigh 0
5698 break
5699 }
5704 set arrowhigh 0
5705 }
5706 break
5707 }
5708 incr le
5709 }
5712 }
5714 set lines {}
5715 set i 0
5716 set joinhigh 0
5723 set joinhigh 1
5724 }
5725 break
5726 }
5727 incr i
5728 }
5729 }
5730 set joinlow 0
5735 set joinlow 1
5736 }
5737 }
5750 }
5751 } else {
5753 }
5761 set arrowlow 0
5762 }
5763 }
5771 }
5773 }
5776 # join parent line to first child
5787 } else {
5789 }
5797 }
5799 }
5801 } else {
5805 }
5813 } else {
5817 }
5819 }
5820 } else {
5826 }
5830 } else {
5831 # coalesce two pieces
5836 }
5840 }
5841 }
5845 }
5847 proc drawparentlinks {id row} {
5848 global rowidlist canv colormap curview parentlist
5849 global idpos linespc
5862 # rmx = right-most X coord used
5863 set rmx 0
5868 continue
5869 }
5873 }
5876 # drawlineseg will do this one for us
5877 continue
5878 }
5880 # should handle duplicated parents here...
5883 # if attaching to a vertical segment, draw a smaller
5884 # slant for visual distinctness
5888 } else {
5890 }
5892 # segment slants towards us already
5894 } else {
5899 }
5901 }
5902 } else {
5904 }
5909 }
5913 }
5914 }
5916 proc drawlines {id} {
5917 global canv
5920 }
5922 proc drawcmittext {id row col} {
5923 global linespc canv canv2 canv3 fgcolor curview
5924 global cmitlisted commitinfo rowidlist parentlist
5925 global rowtextx idpos idtags idheads idotherrefs
5926 global linehtag linentag linedtag selectedline
5927 global canvxmax boldids boldnameids fgcolor markedid
5928 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5930 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5933 set ofill red
5935 set ofill green
5937 set ofill yellow
5938 } else {
5940 }
5949 # triangle pointing left for left-side commits
5955 } else {
5956 # triangle pointing right for right-side commits
5962 }
5974 }
5975 }
5976 }
5983 }
5986 }
5991 set font mainfont
5992 set nfont mainfont
5996 set font mainfontbold
5999 set nfont mainfontbold
6000 }
6001 }
6011 }
6014 }
6018 setcanvscroll
6019 }
6020 }
6022 proc drawcmitrow {row} {
6023 global displayorder rowidlist nrows_drawn
6024 global iddrawn markingmatches
6025 global commitinfo numcommits
6026 global filehighlight fhighlights findpattern nhighlights
6027 global hlview vhighlights
6028 global highlight_related rhighlights
6035 }
6038 }
6041 }
6044 }
6049 return
6050 }
6053 }
6057 incr nrows_drawn
6058 }
6061 }
6062 }
6064 proc drawcommits {row {endrow {}}} {
6065 global numcommits iddrawn displayorder curview need_redisplay
6066 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6069 set row 0
6070 }
6073 }
6076 }
6080 set rl1 0
6081 }
6084 set ro1 0
6085 }
6089 }
6094 }
6096 }
6097 }
6100 }
6103 clear_display
6104 }
6106 # make the lines join to already-drawn rows either side
6110 }
6115 }
6130 # see if this is the first child of any of its parents
6133 # make this line extend up to the child
6135 }
6136 }
6137 } else {
6139 }
6140 }
6141 }
6142 }
6144 proc undolayout {row} {
6145 global uparrowlen mingaplen downarrowlen
6146 global rowidlist rowisopt rowfinal need_redisplay
6150 set r 0
6151 }
6153 incr r -1
6157 set need_redisplay 1
6158 run drawvisible
6159 }
6160 }
6162 proc drawvisible {} {
6163 global canv linespc curview vrowmod selectedline targetrow targetid
6164 global need_redisplay cscroll numcommits
6174 if {[info exists targetid]} {
6178 # Fix up the scrollregion and change the scrolling position
6179 # now that our target row has moved.
6182 setcanvscroll
6190 set need_redisplay 1
6191 }
6192 } else {
6193 unset targetid
6194 }
6195 }
6201 }
6205 } elseif {[info exists targetid]} {
6207 }
6208 if {[info exists targetrow]} {
6211 }
6213 }
6215 }
6217 proc clear_display {} {
6218 global iddrawn linesegs need_redisplay nrows_drawn
6219 global vhighlights fhighlights nhighlights rhighlights
6220 global linehtag linentag linedtag boldids boldnameids
6222 allcanvs delete all
6223 catch {unset iddrawn}
6224 catch {unset linesegs}
6225 catch {unset linehtag}
6226 catch {unset linentag}
6227 catch {unset linedtag}
6228 set boldids {}
6229 set boldnameids {}
6230 catch {unset vhighlights}
6231 catch {unset fhighlights}
6232 catch {unset nhighlights}
6233 catch {unset rhighlights}
6234 set need_redisplay 0
6235 set nrows_drawn 0
6236 }
6238 proc findcrossings {id} {
6239 global rowidlist parentlist numcommits displayorder
6241 set cross {}
6242 set ccross {}
6246 }
6265 }
6266 }
6267 }
6268 }
6269 }
6271 }
6273 proc assigncolor {id} {
6274 global colormap colors nextcolor
6275 global parents children children curview
6281 } else {
6282 set kids {}
6283 }
6289 return
6290 }
6291 }
6292 set badcolors {}
6293 set origbad {}
6296 # delimiter between corner crossings and other crossings
6299 }
6303 }
6304 }
6307 }
6314 }
6319 }
6320 }
6321 }
6324 }
6325 }
6329 set nextcolor 0
6330 }
6332 }
6334 }
6336 proc bindline {t id} {
6337 global canv
6343 }
6345 proc drawtags {id x xt y1} {
6346 global idtags idheads idotherrefs mainhead
6347 global linespc lthickness
6348 global canv rowtextx curview fgcolor bgcolor ctxbut
6350 set marks {}
6351 set ntags 0
6352 set nheads 0
6356 }
6360 }
6363 }
6366 }
6371 set xvals {}
6372 set wvals {}
6373 set i -1
6375 incr i
6378 } else {
6380 }
6384 }
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: