| blob | e263b49f5abc1aeb8ba2ff4cf11dfbce58f843f8 |
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 gitdir {} {
13 global env
18 }
19 }
21 # A simple scheduler for compute-intensive stuff.
22 # The aim is to make sure that event handlers for GUI actions can
23 # run at least every 50-100 ms. Unfortunately fileevent handlers are
24 # run before X event handlers, so reading from a fast source can
25 # make the GUI completely unresponsive.
26 proc run args {
27 global isonrunq runq currunq
32 after idle dorunq
33 }
36 }
40 }
43 global runq currunq
47 after idle dorunq
48 }
50 }
53 global runq
59 incr i
60 }
61 }
62 }
64 proc dorunq {} {
65 global isonrunq runq currunq
75 unset currunq
80 # script returns 1 if it wants to be readded
81 # file readers return 2 if they could do more straight away
85 }
88 }
91 }
93 after idle dorunq
94 }
95 }
98 global commfd leftover loginstance
104 }
107 global nr_unmerged
109 # find the list of unmerged files
116 exit 1
117 }
123 incr nr_unmerged
126 }
127 }
130 }
132 proc parseviewargs {n arglist} {
133 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
134 global worddiff git_version
138 set glflags {}
139 set diffargs {}
140 set nextisval 0
141 set revargs {}
143 set allknown 1
144 set filtered 0
145 set i -1
147 incr i
150 set nextisval 0
151 continue
152 }
154 "-d" -
155 "--date-order" {
157 # remove from origargs in case we hit an unknown option
159 incr i -1
160 }
161 "-[puabwcrRBMC]" -
162 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
163 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
164 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
165 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
166 "--ignore-space-change" - "-U*" - "--unified=*" {
167 # These request or affect diff output, which we don't want.
168 # Some could be used to set our defaults for diff display.
169 lappend diffargs $arg
170 }
178 # These cause our parsing of git log's output to fail, or else
179 # they're options we want to set ourselves, so ignore them.
180 }
182 # These trigger a word diff in the console interface,
183 # so help the user by enabling our own support
186 }
187 }
191 }
192 }
197 # These are harmless, and some are even useful
198 lappend glflags $arg
199 }
207 # These mean that we get a subset of the commits
209 lappend glflags $arg
210 }
212 # This appears to be the only one that has a value as a
213 # separate word following it
216 lappend glflags $arg
217 }
219 lappend revargs $arg
220 }
223 # git rev-parse doesn't understand --merge
224 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
225 }
228 }
230 # Other flag arguments including -<n>
234 # a flag argument that we don't recognize;
235 # that means we can't optimize
237 }
238 lappend glflags $arg
239 }
240 default {
241 # Non-flag arguments specify commits or ranges of commits
243 lappend revargs --gitk-symmetric-diff-marker
244 }
245 lappend revargs $arg
246 }
247 }
248 }
255 }
258 global vposids vnegids
261 set revs HEAD
262 }
264 # we get stdout followed by stderr in $err
265 # for an unknown rev, git rev-parse echoes it and then errors out
278 }
281 }
282 break
283 }
284 lappend badrev $line
285 }
286 }
289 }
299 lappend ret $id
302 }
303 }
307 lappend ret $id
310 }
311 lappend pos $id
312 }
313 incr sdm -1
314 }
318 }
320 # Start off a git log process and arrange to read its output
322 global startmsecs commitidx viewcomplete curview
323 global tclencoding
324 global viewargs viewargscmd viewfiles vfilelimit
325 global showlocalchanges
326 global viewactive viewinstances vmergeonly
327 global mainheadid viewmainheadid viewmainheadid_orig
328 global vcanopt vflags vrevs vorigargs
329 global show_notes
333 # these are set this way for the error exits
336 varcinit $view
345 }
347 }
354 global nr_unmerged
361 }
363 }
364 }
371 }
375 }
383 }
389 get_viewmainhead $view
390 }
393 }
397 }
403 }
406 global commfd leftover
409 catch {
416 }
417 }
419 nukefile $fd
422 }
424 proc stop_backends {} {
425 global commfd
428 stop_instance $inst
429 }
430 }
433 global viewinstances
436 stop_instance $inst
437 }
439 }
442 global pending_select mainheadid selectheadid
450 }
451 }
454 global canv curview need_redisplay viewactive
456 initlayout
458 reset_pending_select $selid
463 }
464 }
466 proc updatecommits {} {
467 global curview vcanopt vorigargs vfilelimit viewinstances
468 global viewactive viewcomplete tclencoding
469 global startmsecs showneartags showlocalchanges
470 global mainheadid viewmainheadid viewmainheadid_orig pending_select
471 global isworktree
472 global varcid vposids vnegids vflags vrevs
473 global show_notes
476 rereadrefs
480 dohidelocalchanges
481 }
485 get_viewmainhead $view
486 }
487 }
489 doshowlocalchanges
490 }
496 return
497 }
498 # note: getting the delta when negative refs change is hard,
499 # and could require multiple git log invocations, so in that
500 # case we ask git log for all the commits (not just the delta)
504 # take out positive refs that we asked for before or
505 # that we have already seen
510 lappend newrevs $rev
511 incr npos
512 }
514 lappend $newrevs $rev
515 }
516 }
520 }
524 }
530 return
531 }
534 }
540 }
544 reset_pending_select {}
547 getallcommits
548 }
549 }
551 proc reloadcommits {} {
552 global curview viewcomplete selectedline currentid thickerline
553 global showneartags treediffs commitinterest cached_commitrow
554 global targetid
559 }
562 stop_rev_list $curview
563 }
564 resetvarcs $curview
569 readrefs
570 changedrefs
572 getallcommits
573 }
574 clear_display
578 setcanvscroll
579 getcommits $selid
581 }
583 # This makes a string representation of a positive integer which
584 # sorts as a string in numerical order
592 }
594 }
596 # Procedures used in reordering commits from git log (without
597 # --topo-order) into the order for display.
600 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
601 global vtokmod varcmod vrowmod varcix vlastins
615 }
618 global varcid varccommits parents children vseedcount ordertok
624 }
625 # some commits might have children but haven't been seen yet
628 }
631 }
634 }
636 }
638 # returns a list of the commits with no children
640 global vdownptr vleftptr varcstart
647 }
649 }
652 global varcid varctok parents children vdatemode
653 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
654 global commitdata commitinfo vseedcount varccommits vlastins
661 }
665 }
668 }
674 }
683 }
684 }
689 }
696 }
700 }
707 }
713 }
722 }
725 global varcid varcstart varccommits varctok vtokmod
726 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
734 # "%" sorts before "0"...
744 }
754 }
756 modify_arc $v $oa
757 }
758 }
761 global parents children varctok varcstart varccommits
762 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
771 lappend todo $a
776 }
777 }
778 }
779 incr ntot
786 }
787 }
789 }
796 }
802 }
811 }
812 }
817 }
819 continue
820 }
827 }
828 }
833 modify_arc $v $ka
834 }
836 modify_arc $v $b
837 }
844 }
847 }
850 }
859 }
864 }
871 }
875 }
877 }
878 }
883 }
884 }
886 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
887 }
889 # Fix up the graph after we have found out that in view $v,
890 # $p (a commit that we have already seen) is actually the parent
891 # of the last commit in arc $a.
893 global varcid varcstart varctok vupptr
897 splitvarc $p $v
899 }
900 # seeds always need to be renumbered
904 renumbervarc $pa $v
905 }
906 }
909 global cmitlisted children parents varcid varctok vtokmod
910 global varccommits ordertok commitidx numcommits curview
911 global targetid targetrow
913 readcommit $id
921 modify_arc $v $a
922 }
928 }
929 fix_reversal $p $a $v
933 setcanvscroll
936 incr targetrow
937 }
938 }
939 }
940 }
943 global varcid varccommits parents children cmitlisted
944 global commitidx varctok vtokmod targetid targetrow curview numcommits
951 return
952 }
959 # note we deliberately don't update varcstart($v) even if $i == 0
961 modify_arc $v $a $i
964 incr targetrow
965 }
966 }
967 setcanvscroll
968 drawvisible
969 }
972 global varcid varccommits parents children commitidx
973 global varctok vtokmod cmitlisted currentid selectedline
974 global targetid curview numcommits
979 return
980 }
986 return
987 }
997 }
998 modify_arc $v $a $i
1000 unset currentid
1002 }
1005 }
1006 setcanvscroll
1007 drawvisible
1008 }
1011 global children nullid nullid2
1016 lappend kids $id
1017 }
1018 }
1020 }
1023 global children nullid nullid2
1028 }
1029 }
1031 }
1034 global children nullid nullid2
1041 }
1042 }
1044 }
1047 global varctok varcid
1051 }
1053 # This assumes that if lim is not given, the caller has checked that
1054 # arc a's token is less than $vtokmod($v)
1056 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1064 }
1065 }
1072 }
1077 }
1079 }
1081 undolayout $r
1082 }
1083 }
1086 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1087 global varcid vrownum varcorder varcix varccommits
1088 global vupptr vdownptr vleftptr varctok
1089 global displayorder parentlist curview cached_commitrow
1096 }
1098 }
1102 # go up the tree until we find something that has a row number,
1103 # or we get to a seed
1105 }
1120 }
1122 }
1126 # go down if possible
1129 # if not, go left, or go up until we can go left
1134 }
1136 }
1138 incr arcn
1143 }
1149 }
1150 }
1152 # Test whether view $v contains commit $id
1154 global varcid
1157 }
1159 # Return the row number for commit $id in the current view
1161 global varcid varccommits varcrow curview cached_commitrow
1162 global varctok vtokmod
1168 }
1171 update_arcrows $v
1172 }
1175 }
1180 }
1184 }
1186 # Returns 1 if a is on an earlier row than b, otherwise 0
1188 global varcid varctok curview
1194 }
1198 }
1200 }
1205 }
1217 }
1218 }
1220 }
1222 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1224 global vrownum curview commitidx displayorder parentlist
1225 global varccommits varcorder parents vrowmod varcrow
1226 global d_valid_start d_valid_end
1229 update_arcrows $curview
1230 }
1246 }
1248 lappend displayorder $id
1250 }
1254 lset displayorder $i $id
1256 incr i
1257 }
1258 }
1259 incr r $al
1260 }
1261 }
1264 global displayorder
1270 }
1272 }
1275 global varctok varccommits varcid parents children
1276 global cmitlisted commitidx vtokmod
1285 # add p as a new commit
1286 incr missing_parents
1294 }
1297 modify_arc $v $b
1298 }
1302 }
1303 }
1307 }
1308 }
1309 }
1311 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1312 # Assumes we already have an arc for $rwid.
1314 global children parents varcid varctok vtokmod varccommits
1317 # make $rwid be $ch's parent in place of $id
1321 }
1323 # add $ch to $rwid's children and sort the list if necessary
1327 }
1328 # fix the graph after joining $id to $rwid
1330 fix_reversal $rwid $a $v
1331 # parentlist is wrong for the last element of arc $a
1332 # even if displayorder is right, hence the 3rd arg here
1334 }
1335 }
1337 # Mechanism for registering a command to be executed when we come
1338 # across a particular commit. To handle the case when only the
1339 # prefix of the commit is known, the commitinterest array is now
1340 # indexed by the first 4 characters of the ID. Each element is a
1341 # list of id, cmd pairs.
1343 global commitinterest
1346 }
1349 global commitinterest
1358 lappend newlist $i $script
1359 }
1360 }
1365 }
1366 }
1368 }
1371 global cmitlisted leftover
1372 global commitidx commitdata vdatemode
1373 global parents children curview hlview
1374 global idpending ordertok
1375 global varccommits varcid varctok vtokmod vfilelimit
1378 # git log doesn't terminate the last commit with a null...
1381 }
1385 }
1386 global commfd viewcomplete viewactive viewname
1387 global viewinstances
1392 }
1393 # set it blocking so we wait for the process to terminate
1399 }
1402 bad arguments to git log."
1404 append err \
1405 " (Note: arguments to gitk are passed to git log\
1406 to allow selection of commits to be displayed.)"
1407 }
1410 }
1411 error_popup $err
1412 }
1415 # Check if we have seen any ids listed as parents that haven't
1416 # appeared in the list
1417 closevarcs $view
1418 notbusy $view
1419 }
1421 run chewcommits
1422 }
1424 }
1432 break
1433 }
1440 }
1453 }
1455 }
1460 break
1461 }
1462 }
1463 }
1468 }
1470 exit 1
1471 }
1478 # when doing path limiting, so work around that here
1479 # by working out the rewritten parent with git rev-list
1480 # and if we already know about it, using the rewritten
1481 # parent as a substitute parent for $id's children.
1485 }]} {
1487 # use $rwid in place of $id
1488 rewrite_commit $view $id $rwid
1489 continue
1490 }
1491 }
1492 }
1498 }
1503 }
1515 }
1516 }
1518 # new arc
1520 }
1522 modify_arc $view $a
1523 }
1528 }
1539 }
1541 fix_reversal $p $a $view
1542 }
1543 }
1544 incr i
1545 }
1549 }
1551 global numcommits hlview
1555 run chewcommits
1556 }
1558 # we never actually get here...
1559 run vhighlightmore
1560 }
1563 }
1564 }
1566 }
1568 proc chewcommits {} {
1569 global curview hlview viewcomplete
1570 global pending_select
1572 layoutmore
1574 global commitidx varctok
1575 global numcommits startmsecs
1578 update
1579 reset_pending_select {}
1586 }
1587 }
1589 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1590 #puts "overall $ms ms for $numcommits commits"
1591 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1594 }
1595 notbusy layout
1596 }
1598 }
1601 global tclencoding
1603 # Invoke git-log to handle automatic encoding conversion
1605 # Read the results using i18n.logoutputencoding
1609 }
1611 close $fd
1612 # Remove the heading line
1616 }
1621 }
1624 global commitinfo
1635 # should never happen...
1637 }
1649 }
1650 }
1652 # take the first non-blank line of the comment as the headline
1657 }
1662 }
1664 # git log indents the comment by 4 spaces;
1665 # if we got this via git cat-file, add the indentation
1668 append newcomment " "
1669 append newcomment $line
1671 }
1673 }
1677 }
1680 global commitdata commitinfo
1685 readcommit $id
1688 }
1689 }
1691 }
1693 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1694 # and are present in the current view.
1695 # This is fairly slow...
1697 global varcid curview
1702 }
1704 }
1706 proc readrefs {} {
1707 global tagids idtags headids idheads tagobjid
1708 global otherrefids idotherrefs mainhead mainheadid
1709 global selecthead selectheadid
1710 global hideremotes
1714 }
1726 }
1732 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1733 # which is what we want since the former is the commit ID
1739 }
1745 }
1746 }
1750 catch {
1755 }
1756 }
1759 catch {
1761 }
1762 }
1763 }
1765 # skip over fake commits
1766 proc first_real_row {} {
1767 global nullid nullid2 numcommits
1772 break
1773 }
1774 }
1776 }
1778 # update things for a head moved to a child of its previous location
1780 global headids idheads
1785 }
1787 # update things when a head has been removed
1789 global headids idheads
1797 }
1798 }
1800 }
1803 global use_ttk
1807 }
1809 }
1812 global have_tk85
1814 # In MacOS Tk 8.4 transient appears to work by setting
1815 # overrideredirect, which is utterly useless, since the
1816 # windows get no border, and are not even kept above
1817 # the parent.
1820 wm transient $window $origin
1822 # Windows fails to place transient windows normally, so
1823 # schedule a callback to center them on the parent.
1826 }
1827 }
1830 global NS
1841 tkwait window $top
1842 }
1849 set w .error
1850 ttk_toplevel $w
1851 make_transient $w $owner
1852 show_error $w $w $msg
1853 }
1854 }
1857 global confirm_ok NS
1859 set w .confirm
1860 ttk_toplevel $w
1861 make_transient $w $owner
1873 tkwait window $w
1875 }
1877 proc setoptions {} {
1880 option add *Panedwindow.sashRelief raised startupFile
1882 option add *Menu.font uifont startupFile
1883 }
1886 }
1887 option add *Button.font uifont startupFile
1888 option add *Checkbutton.font uifont startupFile
1889 option add *Radiobutton.font uifont startupFile
1890 option add *Menubutton.font uifont startupFile
1891 option add *Label.font uifont startupFile
1892 option add *Message.font uifont startupFile
1893 option add *Entry.font textfont startupFile
1894 option add *Text.font textfont startupFile
1895 option add *Labelframe.font uifont startupFile
1896 option add *Spinbox.font textfont startupFile
1897 option add *Listbox.font mainfont startupFile
1898 }
1900 # Make a menu and submenus.
1901 # m is the window name for the menu, items is the list of menu items to add.
1902 # Each item is a list {mc label type description options...}
1903 # mc is ignored; it's so we can put mc there to alert xgettext
1904 # label is the string that appears in the menu
1905 # type is cascade, command or radiobutton (should add checkbutton)
1906 # description depends on type; it's the sublist for cascade, the
1907 # command to invoke for command, or {variable value} for radiobutton
1909 menu $m
1911 set Meta1 Cmd
1913 set Meta1 Ctrl
1914 }
1925 }
1926 }
1931 }
1934 }
1938 }
1939 }
1945 }
1946 }
1947 }
1949 # translate string and remove ampersands
1952 }
1955 global use_ttk
1961 }
1966 }
1968 }
1970 proc makewindow {} {
1971 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1972 global tabstop
1973 global findtype findtypemenu findloc findstring fstring geometry
1974 global entries sha1entry sha1string sha1but
1975 global diffcontextstring diffcontext
1976 global ignorespace
1977 global maincursor textcursor curtextcursor
1978 global rowctxmenu fakerowmenu mergemax wrapcomment
1979 global highlight_files gdttype
1980 global searchstring sstring
1981 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1982 global headctxmenu progresscanv progressitem progresscoords statusw
1983 global fprogitem fprogcoord lastprogupdate progupdatepending
1984 global rprogitem rprogcoord rownumsel numcommits
1985 global have_tk85 use_ttk NS
1986 global git_version
1987 global worddiff
1989 # The "mc" arguments here are purely so that xgettext
1990 # sees the following string as needing to be translated
2001 }}
2005 }}
2013 }}
2019 }}
2029 }}
2033 }}
2035 }
2036 makemenu .bar $bar
2037 . configure -menu .bar
2040 # cover the non-themed toplevel with a themed frame.
2042 }
2044 # the gui has upper and lower half, parts of a paned window.
2047 # possibly use assumed geometry
2055 }
2057 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2063 }
2065 # create three canvases
2066 set cscroll .tf.histframe.csb
2067 set canv .tf.histframe.pwclist.canv
2068 canvas $canv \
2072 .tf.histframe.pwclist add $canv
2073 set canv2 .tf.histframe.pwclist.canv2
2074 canvas $canv2 \
2077 .tf.histframe.pwclist add $canv2
2078 set canv3 .tf.histframe.pwclist.canv3
2079 canvas $canv3 \
2082 .tf.histframe.pwclist add $canv3
2088 }
2092 }
2094 # a scroll bar to rule them
2099 lappend bglist $canv $canv2 $canv3
2102 # we have two button bars at bottom of top frame. Bar 1
2106 set sha1entry .tf.bar.sha1
2108 set sha1but .tf.bar.sha1label
2112 pack .tf.bar.sha1label -side left
2114 trace add variable sha1string write sha1change
2118 #define left_width 16
2119 #define left_height 16
2120 static unsigned char left_bits[] = {
2124 }
2126 #define right_width 16
2127 #define right_height 16
2128 static unsigned char right_bits[] = {
2132 }
2147 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2148 -side left
2151 }
2152 global selectedline
2153 trace add variable selectedline write selectedline_change
2155 # Status label and progress bar
2156 set statusw .tf.bar.status
2163 set progresscanv .tf.bar.progress
2168 }
2177 # build up the bottom bar of upper window
2182 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2189 trace add variable gdttype write gdttype_change
2193 set fstring .tf.lbar.findstring
2194 lappend entries $fstring
2196 trace add variable findstring write find_change
2200 trace add variable findtype write findcom_change
2204 trace add variable findloc write find_change
2205 pack .tf.lbar.findloc -side right
2206 pack .tf.lbar.findtype -side right
2209 # Finish putting the upper half of the viewer together
2213 .ctop add .tf
2217 }
2219 # now build up the bottom
2222 # lower left, a text box over search bar, scroll bar to the right
2223 # if we know window height, then that will set the lower text height, otherwise
2224 # we set lower text height which will drive window height
2229 }
2236 set sstring .bleft.top.sstring
2239 lappend entries $sstring
2240 trace add variable searchstring write incrsearch
2253 -textvariable diffcontextstring
2255 trace add variable diffcontextstring write diffcontextchange
2256 lappend entries .bleft.mid.diffcontext
2257 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2266 trace add variable worddiff write changeworddiff
2268 }
2270 set ctext .bleft.bottom.ctext
2277 }
2283 grid .bleft.bottom.sbhorizontal -sticky ew
2288 lappend bglist $ctext
2289 lappend fglist $ctext
2318 .pwbottom add .bleft
2321 }
2323 # lower right
2332 set cflist .bright.cfiles
2334 text $cflist \
2337 -font mainfont \
2342 lappend bglist $cflist
2343 lappend fglist $cflist
2347 $cflist tag configure highlight \
2351 .pwbottom add .bright
2352 .ctop add .pwbottom
2354 # restore window width & height if known
2359 }
2362 }
2364 }
2365 }
2369 }
2372 set M1B M1
2375 set M1B Control
2377 }
2383 }
2387 }
2388 }
2393 #bindall <B1-Motion> {selcanvline %W %x %y}
2403 allcanvs yview scroll $delta units
2404 }
2408 }
2409 }
2410 }
2434 bindkey p "selnextline -1"
2435 bindkey n "selnextline 1"
2436 bindkey z "goback"
2437 bindkey x "goforw"
2438 bindkey i "selnextline -1"
2439 bindkey k "selnextline 1"
2440 bindkey j "goback"
2441 bindkey l "goforw"
2442 bindkey b prevfile
2449 bindkey f nextfile
2466 wm protocol . WM_DELETE_WINDOW doquit
2475 global ctxbut
2480 set maincursor [. cget -cursor]
2484 set rowctxmenu .rowctxmenu
2486 {mc "Diff this -> selected" command {diffvssel 0}}
2487 {mc "Diff selected -> this" command {diffvssel 1}}
2488 {mc "Make patch" command mkpatch}
2489 {mc "Create tag" command mktag}
2490 {mc "Write commit to file" command writecommit}
2491 {mc "Create new branch" command mkbranch}
2492 {mc "Cherry-pick this commit" command cherrypick}
2493 {mc "Reset HEAD branch to here" command resethead}
2494 {mc "Mark this commit" command markhere}
2495 {mc "Return to mark" command gotomark}
2496 {mc "Find descendant of this and mark" command find_common_desc}
2497 {mc "Compare with marked commit" command compare_commits}
2498 }
2501 set fakerowmenu .fakerowmenu
2503 {mc "Diff this -> selected" command {diffvssel 0}}
2504 {mc "Diff selected -> this" command {diffvssel 1}}
2505 {mc "Make patch" command mkpatch}
2506 }
2509 set headctxmenu .headctxmenu
2511 {mc "Check out this branch" command cobranch}
2512 {mc "Remove this branch" command rmbranch}
2513 }
2516 global flist_menu
2517 set flist_menu .flistctxmenu
2519 {mc "Highlight this too" command {flist_hl 0}}
2520 {mc "Highlight this only" command {flist_hl 1}}
2521 {mc "External diff" command {external_diff}}
2522 {mc "Blame parent commit" command {external_blame 1}}
2523 }
2526 global diff_menu
2527 set diff_menu .diffctxmenu
2529 {mc "Show origin of this line" command show_line_source}
2530 {mc "Run git gui blame on this line" command {external_blame_diff}}
2531 }
2533 }
2535 # Windows sends all mouse wheel events to the current focused window, not
2536 # the one where the mouse hovers, so bind those events here and redirect
2537 # to the correct window
2538 proc windows_mousewheel_redirector {W X Y D} {
2539 global canv canv2 canv3
2545 } else {
2546 catch {
2548 }
2549 }
2550 }
2551 }
2553 # Update row number label when selectedline changes
2554 proc selectedline_change {n1 n2 op} {
2555 global selectedline rownumsel
2558 set rownumsel {}
2559 } else {
2561 }
2562 }
2564 # mouse-2 makes all windows scan vertically, but only the one
2565 # the cursor is in scans horizontally
2566 proc canvscan {op w x y} {
2567 global canv canv2 canv3
2571 } else {
2573 }
2574 }
2575 }
2577 proc scrollcanv {cscroll f0 f1} {
2579 drawvisible
2580 flushhighlights
2581 }
2583 # when we make a key binding for the toplevel, make sure
2584 # it doesn't get triggered when that key is pressed in the
2585 # find string entry widget.
2586 proc bindkey {ev script} {
2587 global entries
2591 set escript [bind Entry <Key>]
2592 }
2595 }
2596 }
2598 # set the focus back to the toplevel for any click outside
2599 # the entry widgets
2600 proc click {w} {
2601 global ctext entries
2604 }
2605 focus .
2606 }
2608 # Adjust the progress bar for a change in requested extent or canvas size
2609 proc adjustprogress {} {
2610 global progresscanv progressitem progresscoords
2611 global fprogitem fprogcoord lastprogupdate progupdatepending
2612 global rprogitem rprogcoord use_ttk
2616 return
2617 }
2626 set now [clock clicks -milliseconds]
2628 set progupdatepending 0
2629 update
2631 set progupdatepending 1
2633 }
2634 }
2636 proc doprogupdate {} {
2637 global lastprogupdate progupdatepending
2640 set progupdatepending 0
2641 set lastprogupdate [clock clicks -milliseconds]
2642 update
2643 }
2644 }
2646 proc savestuff {w} {
2647 global canv canv2 canv3 mainfont textfont uifont tabstop
2648 global stuffsaved findmergefiles maxgraphpct
2649 global maxwidth showneartags showlocalchanges
2650 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2651 global cmitmode wrapcomment datetimeformat limitdiffs
2652 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2653 global autoselect autosellen extdifftool perfile_attrs markbgcolor use_ttk
2654 global hideremotes want_ttk
2657 if {![winfo viewable .]} return
2658 catch {
2659 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2660 set f [open "~/.gitk-new" w]
2661 if {$::tcl_platform(platform) eq {windows}} {
2662 file attributes "~/.gitk-new" -hidden true
2663 }
2699 } else {
2702 }
2710 }
2711 }
2714 file rename -force "~/.gitk-new" "~/.gitk"
2715 }
2716 set stuffsaved 1
2717 }
2719 proc resizeclistpanes {win w} {
2720 global oldwidth use_ttk
2725 } else {
2728 }
2732 } else {
2737 set sash0 30
2738 }
2741 }
2746 }
2747 }
2748 }
2752 } else {
2755 }
2756 }
2758 }
2760 proc resizecdetpanes {win w} {
2761 global oldwidth use_ttk
2765 } else {
2767 }
2770 } else {
2774 set sash0 45
2775 }
2778 }
2779 }
2782 } else {
2784 }
2785 }
2787 }
2789 proc allcanvs args {
2790 global canv canv2 canv3
2794 }
2796 proc bindall {event action} {
2797 global canv canv2 canv3
2801 }
2803 proc about {} {
2804 global uifont NS
2805 set w .about
2808 return
2809 }
2814 Gitk - a commit viewer for git
2816 Copyright \u00a9 2005-2011 Paul Mackerras
2818 Use and redistribute under the terms of the GNU General Public License"] \
2819 -justify center -aspect 400 -border 2 -bg white -relief groove
2827 }
2829 proc keys {} {
2830 global NS
2831 set w .keys
2834 return
2835 }
2836 if {[tk windowingsystem] eq {aqua}} {
2837 set M1T Cmd
2838 } else {
2839 set M1T Ctrl
2840 }
2845 [mc "Gitk key bindings:"]
2849 [mc "<Home> Move to first commit"]
2850 [mc "<End> Move to last commit"]
2851 [mc "<Up>, p, i Move up one commit"]
2852 [mc "<Down>, n, k Move down one commit"]
2853 [mc "<Left>, z, j Go back in history list"]
2854 [mc "<Right>, x, l Go forward in history list"]
2855 [mc "<PageUp> Move up one page in commit list"]
2856 [mc "<PageDown> Move down one page in commit list"]
2863 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2864 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2865 [mc "<Delete>, b Scroll diff view up one page"]
2866 [mc "<Backspace> Scroll diff view up one page"]
2867 [mc "<Space> Scroll diff view down one page"]
2868 [mc "u Scroll diff view up 18 lines"]
2869 [mc "d Scroll diff view down 18 lines"]
2872 [mc "<Return> Move to next find hit"]
2873 [mc "/ Focus the search box"]
2874 [mc "? Move to previous find hit"]
2875 [mc "f Scroll diff view to next file"]
2882 [mc "<F5> Update"]
2883 " \
2884 -justify left -bg white -border 2 -relief groove
2892 }
2894 # Procedures for manipulating the file list window at the
2895 # bottom right of the overall window.
2897 proc treeview {w l openlevs} {
2898 global treecontents treediropen treeheight treeparent treeindex
2900 set ix 0
2901 set treeindex() 0
2902 set lev 0
2903 set prefix {}
2904 set prefixend -1
2905 set prefendstack {}
2906 set htstack {}
2907 set ht 0
2908 set treecontents() {}
2915 }
2922 incr lev -1
2923 }
2927 set ht 0
2939 set ht 1
2944 set str "\n"
2952 }
2953 incr lev
2954 }
2957 incr ht
2958 set str "\n"
2962 }
2964 }
2965 }
2973 }
2975 }
2977 proc linetoelt {l} {
2978 global treeheight treecontents
2980 set y 2
2981 set prefix {}
2982 while {1} {
2986 }
2987 set n 1
2992 incr y
2993 break
2994 }
2995 }
2997 }
2998 }
2999 }
3001 proc highlight_tree {y prefix} {
3002 global treeheight treecontents cflist
3008 }
3009 incr y
3012 }
3013 }
3015 }
3017 proc treeclosedir {w dir} {
3018 global treediropen treeheight treeparent treeindex
3030 }
3031 }
3033 proc treeopendir {w dir} {
3034 global treediropen treeheight treeparent treecontents treeindex
3041 set lev 0
3042 set str "\n"
3045 incr lev
3046 append str "\t"
3048 }
3063 } else {
3066 }
3067 }
3080 }
3082 }
3083 }
3085 proc treeclick {w x y} {
3086 global treediropen cmitmode ctext cflist cflist_top
3089 if {![info exists cflist_top]} return
3096 return
3097 }
3103 } else {
3105 }
3106 }
3108 proc setfilelist {id} {
3109 global treefilelist cflist jump_to_here
3116 }
3117 }
3118 }
3120 image create bitmap tri-rt -background black -foreground blue -data {
3121 #define tri-rt_width 13
3122 #define tri-rt_height 13
3123 static unsigned char tri-rt_bits[] = {
3124 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3125 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3126 0x00, 0x00};
3127 } -maskdata {
3128 #define tri-rt-mask_width 13
3129 #define tri-rt-mask_height 13
3130 static unsigned char tri-rt-mask_bits[] = {
3131 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3132 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3133 0x08, 0x00};
3134 }
3135 image create bitmap tri-dn -background black -foreground blue -data {
3136 #define tri-dn_width 13
3137 #define tri-dn_height 13
3138 static unsigned char tri-dn_bits[] = {
3139 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3140 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3141 0x00, 0x00};
3142 } -maskdata {
3143 #define tri-dn-mask_width 13
3144 #define tri-dn-mask_height 13
3145 static unsigned char tri-dn-mask_bits[] = {
3146 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3147 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3148 0x00, 0x00};
3149 }
3151 image create bitmap reficon-T -background black -foreground yellow -data {
3152 #define tagicon_width 13
3153 #define tagicon_height 9
3154 static unsigned char tagicon_bits[] = {
3155 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3156 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3157 } -maskdata {
3158 #define tagicon-mask_width 13
3159 #define tagicon-mask_height 9
3160 static unsigned char tagicon-mask_bits[] = {
3161 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3162 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3163 }
3164 set rectdata {
3165 #define headicon_width 13
3166 #define headicon_height 9
3167 static unsigned char headicon_bits[] = {
3168 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3169 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3170 }
3171 set rectmask {
3172 #define headicon-mask_width 13
3173 #define headicon-mask_height 9
3174 static unsigned char headicon-mask_bits[] = {
3175 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3176 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3177 }
3178 image create bitmap reficon-H -background black -foreground green \
3180 image create bitmap reficon-o -background black -foreground "#ddddff" \
3183 proc init_flist {first} {
3184 global cflist cflist_top difffilestart
3190 set cflist_top 1
3192 } else {
3193 catch {unset cflist_top}
3194 }
3196 set difffilestart {}
3197 }
3199 proc highlight_tag {f} {
3200 global highlight_paths
3204 return "bold"
3205 }
3206 }
3207 return {}
3208 }
3210 proc highlight_filelist {} {
3211 global cmitmode cflist
3220 }
3221 }
3222 } else {
3223 highlight_tree 2 {}
3224 }
3226 }
3228 proc unhighlight_filelist {} {
3229 global cflist
3234 }
3236 proc add_flist {fl} {
3237 global cflist
3243 }
3245 }
3247 proc sel_flist {w x y} {
3248 global ctext difffilestart cflist cflist_top cmitmode
3251 if {![info exists cflist_top]} return
3258 } else {
3260 }
3261 }
3263 proc pop_flist_menu {w X Y x y} {
3264 global ctext cflist cmitmode flist_menu flist_menu_file
3265 global treediffs diffids
3267 stopfinding
3273 } else {
3275 }
3277 set xdiffstate "normal"
3279 set xdiffstate "disabled"
3280 }
3281 # Disable "External diff" item in tree mode
3284 }
3286 proc find_ctext_fileinfo {line} {
3287 global ctext_file_names ctext_file_lines
3293 return {}
3294 } else {
3296 }
3297 }
3299 proc pop_diff_menu {w X Y x y} {
3300 global ctext diff_menu flist_menu_file
3301 global diff_menu_txtpos diff_menu_line
3302 global diff_menu_filebase
3306 # don't pop up the menu on hunk-separator or file-separator lines
3308 return
3309 }
3310 stopfinding
3316 }
3318 proc flist_hl {only} {
3319 global flist_menu_file findstring gdttype
3324 } else {
3326 }
3327 set gdttype [mc "touching paths:"]
3328 }
3330 proc gitknewtmpdir {} {
3331 global diffnum gitktmpdir gitdir
3333 if {![info exists gitktmpdir]} {
3337 unset gitktmpdir
3338 return {}
3339 }
3340 set diffnum 0
3341 }
3342 incr diffnum
3346 return {}
3347 }
3349 }
3351 proc save_file_from_commit {filename output what} {
3352 global nullfile
3357 }
3359 return {}
3360 }
3362 }
3364 proc external_diff_get_one_file {diffid filename diffdir} {
3365 global nullid nullid2 nullfile
3366 global worktree
3372 }
3374 }
3378 }
3382 }
3384 proc external_diff {} {
3385 global nullid nullid2
3386 global flist_menu_file
3387 global diffids
3388 global extdifftool
3391 # no reference commit given
3394 # diffing working copy with index
3397 # diffing index with HEAD
3398 set diffidfrom "HEAD"
3399 } else {
3400 # use first parent commit
3401 global parentlist selectedline
3403 }
3404 } else {
3407 }
3409 # make sure that several diffs wont collide
3410 set diffdir [gitknewtmpdir]
3413 # gather files to diff
3422 } else {
3425 }
3426 }
3427 }
3429 proc find_hunk_blamespec {base line} {
3430 global ctext
3432 # Find and parse the hunk header
3438 s_line old_specs osz osz1 new_line nsz]} {
3439 return
3440 }
3442 # base lines for the parents
3446 old_spec old_line osz]} {
3447 return
3448 }
3450 }
3452 # Now scan the lines to determine offset within the hunk
3454 set dline 0
3457 # Determine if the line is removed
3461 # Choose a parent index
3464 } else {
3468 } else {
3469 # blame the current commit
3470 set parent -1
3471 }
3472 }
3473 # then count other lines that belong to it
3476 # Determine if the line is removed
3481 incr dline
3482 }
3483 } else {
3485 incr dline
3486 }
3487 }
3488 }
3489 incr parent
3490 } else {
3491 set parent 0
3492 }
3496 }
3498 proc external_blame_diff {} {
3499 global currentid cmitmode
3500 global diff_menu_txtpos diff_menu_line
3501 global diff_menu_filebase flist_menu_file
3504 set parent_idx 0
3506 } else {
3511 } else {
3512 set parent_idx 0
3513 set line 0
3514 }
3515 }
3518 }
3521 # at stage 0 or 2
3522 proc index_sha1 {fname} {
3530 }
3531 }
3533 return {}
3534 }
3536 # Turn an absolute path into one relative to the current directory
3537 proc make_relative {f} {
3540 }
3542 set here [file split [pwd]]
3543 set ei 0
3544 set hi 0
3545 set res {}
3548 lappend res ".."
3549 } else {
3550 incr ei
3551 }
3552 incr hi
3553 }
3556 }
3558 proc external_blame {parent_idx {line {}}} {
3559 global flist_menu_file cdup
3560 global nullid nullid2
3561 global parentlist selectedline currentid
3565 } else {
3567 }
3570 error_popup [mc "No such commit"]
3571 return
3572 }
3574 set cmdline [list git gui blame]
3577 }
3579 # Unfortunately it seems git gui blame doesn't like
3580 # being given an absolute path...
3585 }
3586 }
3588 proc show_line_source {} {
3589 global cmitmode currentid parents curview blamestuff blameinst
3590 global diff_menu_line diff_menu_filebase flist_menu_file
3591 global nullid nullid2 gitdir cdup
3593 set from_index {}
3597 } else {
3603 return
3604 }
3605 incr pi -1
3608 # must be a merge in progress...
3609 if {[catch {
3610 # get the last line from .git/MERGE_HEAD
3614 } err]} {
3616 return
3617 }
3619 # need to do the blame from the index
3620 if {[catch {
3622 } err]} {
3624 return
3625 }
3626 } else {
3628 }
3629 } else {
3631 }
3633 }
3634 set blameargs {}
3637 }
3640 lappend blameargs --contents -
3641 } else {
3643 }
3645 if {[catch {
3647 } err]} {
3649 return
3650 }
3651 nowbusy blaming [mc "Searching"]
3657 }
3659 proc stopblaming {} {
3660 global blameinst
3662 if {[info exists blameinst]} {
3664 unset blameinst
3665 notbusy blaming
3666 }
3667 }
3669 proc read_line_source {fd inst} {
3670 global blamestuff curview commfd blameinst nullid nullid2
3674 }
3676 return 1
3677 }
3679 unset blameinst
3680 notbusy blaming
3684 return 0
3685 }
3687 set fname {}
3693 # look for "filename" line
3697 break
3698 }
3699 }
3700 }
3702 # all looks good, select it
3704 # blame uses all-zeroes to mean not committed,
3705 # which would mean a change in the index
3707 }
3710 } else {
3711 error_popup [mc "That line comes from commit %s, \
3713 }
3714 } else {
3715 puts "oops couldn't parse git blame output"
3716 }
3717 return 0
3718 }
3721 proc delete_at_eof {f dir} {
3726 }
3728 return 0
3729 }
3730 return 1
3731 }
3733 # Functions for adding and removing shell-type quoting
3735 proc shellquote {str} {
3738 }
3741 }
3744 }
3746 }
3748 proc shellarglist {l} {
3749 set str {}
3752 append str " "
3753 }
3755 }
3757 }
3759 proc shelldequote {str} {
3760 set ret {}
3761 set used -1
3762 while {1} {
3763 incr used
3767 break
3768 }
3774 }
3776 incr used
3780 error "unmatched single-quote"
3781 }
3784 continue
3785 }
3788 error "trailing backslash"
3789 }
3791 continue
3792 }
3793 # here ch == "\""
3794 while {1} {
3796 error "unmatched double-quote"
3797 }
3803 }
3805 incr used
3807 incr used
3808 }
3809 }
3811 }
3813 proc shellsplit {str} {
3814 set l {}
3815 while {1} {
3823 }
3825 }
3827 # Code to implement multiple views
3829 proc newview {ishighlight} {
3830 global nextviewnum newviewname newishighlight
3831 global revtreeargs viewargscmd newviewopts curview
3834 set top .gitkview
3837 return
3838 }
3844 }
3846 set known_view_options {
3847 {perm b . {} {mc "Remember this view"}}
3848 {reflabel l + {} {mc "References (space separated list):"}}
3849 {refs t15 .. {} {mc "Branches & tags:"}}
3850 {allrefs b *. "--all" {mc "All refs"}}
3851 {branches b . "--branches" {mc "All (local) branches"}}
3852 {tags b . "--tags" {mc "All tags"}}
3853 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3854 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3855 {author t15 .. "--author=*" {mc "Author:"}}
3856 {committer t15 . "--committer=*" {mc "Committer:"}}
3857 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3858 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3859 {changes_l l + {} {mc "Changes to Files:"}}
3860 {pickaxe_s r0 . {} {mc "Fixed String"}}
3861 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3862 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3863 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3864 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3865 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3866 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3867 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3868 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3869 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3870 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3871 {lright b . "--left-right" {mc "Mark branch sides"}}
3872 {first b . "--first-parent" {mc "Limit to first parent"}}
3873 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3874 {args t50 *. {} {mc "Additional arguments to git log:"}}
3875 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3876 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3877 }
3880 proc encode_view_opts {n} {
3881 global known_view_options newviewopts
3883 set rargs [list]
3893 }
3899 }
3900 } else {
3906 }
3907 }
3908 }
3911 }
3914 proc decode_view_opts {n view_args} {
3915 global known_view_options newviewopts
3920 # Checkboxes
3921 set val 0
3923 # Radiobuttons
3925 set val 0
3926 } else {
3927 # Text fields
3928 set val {}
3929 }
3931 }
3932 set oargs [list]
3933 set refargs [list]
3936 && ![info exists found(limit)]} {
3938 set found(limit) 1
3939 continue
3940 }
3941 catch { unset val }
3948 # Check buttons
3949 set val 1
3951 # Radio buttons
3954 } else {
3955 # Text input fields
3958 }
3961 break
3962 }
3963 if {[info exists val]} break
3964 }
3965 if {[info exists val]} continue
3968 } else {
3970 }
3971 }
3974 }
3976 proc edit_or_newview {} {
3977 global curview
3980 editview
3981 } else {
3982 newview 0
3983 }
3984 }
3986 proc editview {} {
3987 global curview
3988 global viewname viewperm newviewname newviewopts
3989 global viewargs viewargscmd
3994 return
3995 }
4001 }
4003 proc vieweditor {top n title} {
4004 global newviewname newviewopts viewfiles bgcolor
4005 global known_view_options NS
4011 # View name
4019 # View options
4021 set cexpand 0
4022 set cnt 0
4028 set lxpad 0
4032 incr cnt
4038 incr cnt
4042 } else {
4043 set lxpad 5
4044 }
4078 }
4081 }
4083 }
4084 }
4099 }
4101 proc doviewmenu {m first cmd op argv} {
4106 break
4107 }
4108 }
4109 }
4111 proc allviewmenus {n op args} {
4112 # global viewhlmenu
4116 }
4118 proc newviewok {top n {apply 0}} {
4119 global nextviewnum newviewperm newviewname newishighlight
4120 global viewname viewfiles viewperm selectedview curview
4121 global viewargs viewargscmd newviewopts viewhlmenu
4123 if {[catch {
4125 } err]} {
4127 return
4128 }
4129 set files {}
4134 }
4135 }
4137 # creating a new view
4138 incr nextviewnum
4147 } else {
4149 }
4150 } else {
4151 # editing an existing view
4159 }
4166 run reloadcommits
4167 }
4168 }
4169 }
4172 }
4174 proc delview {} {
4175 global curview viewperm hlview selectedhlview
4179 set selectedhlview [mc "None"]
4180 unset hlview
4181 }
4184 showview 0
4185 }
4187 proc addviewmenu {n} {
4188 global viewname viewhlmenu
4194 }
4196 proc showview {n} {
4197 global curview cached_commitrow ordertok
4198 global displayorder parentlist rowidlist rowisopt rowfinal
4199 global colormap rowtextx nextcolor canvxmax
4200 global numcommits viewcomplete
4201 global selectedline currentid canv canvy0
4202 global treediffs
4203 global pending_select mainheadid
4204 global commitidx
4205 global selectedview
4206 global hlview selectedhlview commitinterest
4209 set selid {}
4220 }
4221 } elseif {[info exists pending_select]} {
4223 unset pending_select
4224 }
4225 unselectline
4226 normalline
4227 catch {unset treediffs}
4228 clear_display
4230 unset hlview
4231 set selectedhlview [mc "None"]
4232 }
4233 catch {unset commitinterest}
4234 catch {unset cached_commitrow}
4235 catch {unset ordertok}
4242 run refill_reflist
4245 return
4246 }
4248 set displayorder {}
4249 set parentlist {}
4250 set rowidlist {}
4251 set rowisopt {}
4252 set rowfinal {}
4255 catch {unset colormap}
4256 catch {unset rowtextx}
4257 set nextcolor 0
4260 set row 0
4261 setcanvscroll
4262 set yf 0
4263 set row {}
4266 # try to get the selected row in the same position on the screen
4270 set ytop 0
4271 }
4273 }
4275 drawvisible
4280 } else {
4281 reset_pending_select {}
4285 } else {
4286 set row [first_real_row]
4289 }
4290 }
4291 }
4294 show_status [mc "Reading commits..."]
4295 }
4297 show_status [mc "No commits selected"]
4298 }
4299 }
4301 # Stuff relating to the highlighting facility
4303 proc ishighlighted {id} {
4304 global vhighlights fhighlights nhighlights rhighlights
4308 }
4311 }
4314 }
4317 }
4318 return 0
4319 }
4321 proc bolden {id font} {
4322 global canv linehtag currentid boldids need_redisplay markedid
4324 # need_redisplay = 1 means the display is stale and about to be redrawn
4331 -outline {{}} -tags secsel \
4334 }
4337 }
4338 }
4340 proc bolden_name {id font} {
4341 global canv2 linentag currentid boldnameids need_redisplay
4349 -outline {{}} -tags secsel \
4352 }
4353 }
4355 proc unbolden {} {
4356 global boldids
4358 set stillbold {}
4362 } else {
4364 }
4365 }
4367 }
4369 proc addvhighlight {n} {
4370 global hlview viewcomplete curview vhl_done commitidx
4372 if {[info exists hlview]} {
4373 delvhighlight
4374 }
4378 }
4381 drawvisible
4382 }
4383 }
4385 proc delvhighlight {} {
4386 global hlview vhighlights
4388 if {![info exists hlview]} return
4389 unset hlview
4390 catch {unset vhighlights}
4391 unbolden
4392 }
4394 proc vhighlightmore {} {
4395 global hlview vhl_done commitidx vhighlights curview
4398 set vr [visiblerows]
4408 }
4410 }
4411 }
4412 }
4414 return 0
4415 }
4417 proc askvhighlight {row id} {
4418 global hlview vhighlights iddrawn
4423 }
4425 } else {
4427 }
4428 }
4430 proc hfiles_change {} {
4431 global highlight_files filehighlight fhighlights fh_serial
4432 global highlight_paths
4434 if {[info exists filehighlight]} {
4435 # delete previous highlights
4437 unset filehighlight
4438 catch {unset fhighlights}
4439 unbolden
4440 unhighlight_filelist
4441 }
4442 set highlight_paths {}
4444 incr fh_serial
4447 }
4448 }
4450 proc gdttype_change {name ix op} {
4451 global gdttype highlight_files findstring findpattern
4453 stopfinding
4457 set highlight_files {}
4458 hfiles_change
4459 }
4460 findcom_change
4461 } else {
4463 set findpattern {}
4464 findcom_change
4465 }
4467 hfiles_change
4468 }
4469 drawvisible
4470 }
4471 # enable/disable findtype/findloc menus too
4472 }
4474 proc find_change {name ix op} {
4475 global gdttype findstring highlight_files
4477 stopfinding
4479 findcom_change
4480 } else {
4483 hfiles_change
4484 }
4485 }
4486 drawvisible
4487 }
4489 proc findcom_change args {
4490 global nhighlights boldnameids
4491 global findpattern findtype findstring gdttype
4493 stopfinding
4494 # delete previous highlights, if any
4497 }
4498 set boldnameids {}
4499 catch {unset nhighlights}
4500 unbolden
4501 unmarkmatches
4503 set findpattern {}
4506 } else {
4507 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4510 }
4511 }
4513 proc makepatterns {l} {
4514 set ret {}
4519 } else {
4522 }
4523 }
4525 }
4527 proc do_file_hl {serial} {
4528 global highlight_files filehighlight highlight_paths gdttype fhl_list
4529 global cdup
4534 highlight_filelist
4535 set relative_paths {}
4538 }
4542 } else {
4543 # must be "containing:", i.e. we're searching commit info
4544 return
4545 }
4550 set fhl_list {}
4551 drawvisible
4552 flushhighlights
4553 }
4555 proc flushhighlights {} {
4556 global filehighlight fhl_list
4558 if {[info exists filehighlight]} {
4559 lappend fhl_list {}
4562 }
4563 }
4565 proc askfilehighlight {row id} {
4566 global filehighlight fhighlights fhl_list
4571 }
4573 proc readfhighlight {} {
4574 global filehighlight fhighlights curview iddrawn
4575 global fhl_list find_dirn
4577 if {![info exists filehighlight]} {
4578 return 0
4579 }
4580 set nr 0
4588 }
4594 }
4596 }
4598 # strange...
4599 puts "oops, git diff-tree died"
4601 unset filehighlight
4602 return 0
4603 }
4604 if {[info exists find_dirn]} {
4605 run findmore
4606 }
4607 return 1
4608 }
4610 proc doesmatch {f} {
4611 global findtype findpattern
4617 } else {
4619 }
4620 }
4622 proc askfindhighlight {row id} {
4623 global nhighlights commitinfo iddrawn
4624 global findloc
4625 global markingmatches
4629 }
4631 set isbold 0
4632 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4637 set isbold 2
4638 break
4639 }
4640 set isbold 1
4641 }
4642 }
4648 }
4649 }
4652 }
4653 }
4655 }
4657 proc markrowmatches {row id} {
4658 global canv canv2 linehtag linentag commitinfo findloc
4669 }
4670 }
4676 }
4677 }
4678 }
4680 proc vrel_change {name ix op} {
4681 global highlight_related
4683 rhighlight_none
4685 run drawvisible
4686 }
4687 }
4689 # prepare for testing whether commits are descendents or ancestors of a
4690 proc rhighlight_sel {a} {
4691 global descendent desc_todo ancestor anc_todo
4692 global highlight_related
4694 catch {unset descendent}
4696 catch {unset ancestor}
4699 rhighlight_none
4700 run drawvisible
4701 }
4702 }
4704 proc rhighlight_none {} {
4705 global rhighlights
4707 catch {unset rhighlights}
4708 unbolden
4709 }
4711 proc is_descendent {a} {
4712 global curview children descendent desc_todo
4717 set leftover {}
4718 set done 0
4723 continue
4724 }
4730 set done 1
4731 }
4732 }
4733 }
4736 return
4737 }
4738 }
4741 }
4743 proc is_ancestor {a} {
4744 global curview parents ancestor anc_todo
4749 set leftover {}
4750 set done 0
4755 continue
4756 }
4762 set done 1
4763 }
4764 }
4765 }
4768 return
4769 }
4770 }
4773 }
4775 proc askrelhighlight {row id} {
4776 global descendent highlight_related iddrawn rhighlights
4777 global selectedline ancestor
4780 set isbold 0
4785 }
4787 set isbold 1
4788 }
4793 }
4795 set isbold 1
4796 }
4797 }
4801 }
4802 }
4804 }
4806 # Graph layout functions
4808 proc shortids {ids} {
4809 set res {}
4815 } else {
4817 }
4818 }
4820 }
4822 proc ntimes {n o} {
4823 set ret {}
4828 }
4830 }
4832 }
4834 proc ordertoken {id} {
4835 global ordertok curview varcid varcstart varctok curview parents children
4836 global nullid nullid2
4840 }
4842 set todo {}
4843 while {1} {
4847 } else {
4849 }
4852 break
4853 }
4856 # it's a root
4858 break
4859 }
4862 } else {
4866 }
4868 }
4869 }
4874 }
4877 }
4879 # Work out where id should go in idlist so that order-token
4880 # values increase from left to right
4881 proc idcol {idlist id {i 0}} {
4884 set i 0
4885 }
4889 }
4891 incr i
4892 } else {
4896 }
4897 }
4899 }
4901 proc initlayout {} {
4902 global rowidlist rowisopt rowfinal displayorder parentlist
4903 global numcommits canvxmax canv
4904 global nextcolor
4905 global colormap rowtextx
4907 set numcommits 0
4908 set displayorder {}
4909 set parentlist {}
4910 set nextcolor 0
4911 set rowidlist {}
4912 set rowisopt {}
4913 set rowfinal {}
4915 catch {unset colormap}
4916 catch {unset rowtextx}
4917 setcanvscroll
4918 }
4920 proc setcanvscroll {} {
4921 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4922 global lastscrollset lastscrollrows
4928 set lastscrollset [clock clicks -milliseconds]
4930 }
4932 proc visiblerows {} {
4933 global canv numcommits linespc
4941 set r0 0
4942 }
4947 }
4949 }
4951 proc layoutmore {} {
4952 global commitidx viewcomplete curview
4953 global numcommits pending_select curview
4954 global lastscrollset lastscrollrows
4958 setcanvscroll
4959 }
4960 if {[info exists pending_select] &&
4962 update
4964 }
4965 drawvisible
4966 }
4968 # With path limiting, we mightn't get the actual HEAD commit,
4969 # so ask git rev-list what is the first ancestor of HEAD that
4970 # touches a file in the path limit.
4971 proc get_viewmainhead {view} {
4972 global viewmainheadid vfilelimit viewinstances mainheadid
4974 catch {
4982 }
4983 }
4986 proc getviewhead {fd inst view} {
4987 global viewmainheadid commfd curview viewinstances showlocalchanges
4989 set id {}
4992 return 1
4993 }
4996 }
5003 }
5005 doshowlocalchanges
5006 }
5007 return 0
5008 }
5010 proc doshowlocalchanges {} {
5011 global curview viewmainheadid
5015 dodiffindex
5016 } else {
5018 }
5019 }
5021 proc dohidelocalchanges {} {
5022 global nullid nullid2 lserial curview
5026 }
5029 }
5030 incr lserial
5031 }
5033 # spawn off a process to do git diff-index --cached HEAD
5034 proc dodiffindex {} {
5035 global lserial showlocalchanges vfilelimit curview
5036 global isworktree
5039 incr lserial
5040 set cmd "|git diff-index --cached HEAD"
5043 }
5048 }
5050 proc readdiffindex {fd serial inst} {
5051 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5052 global vfilelimit
5054 set isdiff 1
5057 return 1
5058 }
5059 set isdiff 0
5060 }
5061 # we only need to see one line and we don't really care what it says...
5065 return 0
5066 }
5068 # now see if there are any local changes not checked in to the index
5069 set cmd "|git diff-files"
5072 }
5079 # add the line for the changes in the index to the graph
5080 set hl [mc "Local changes checked in to index but not committed"]
5085 }
5090 }
5092 }
5093 return 0
5094 }
5096 proc readdifffiles {fd serial inst} {
5097 global viewmainheadid nullid nullid2 curview
5098 global commitinfo commitdata lserial
5100 set isdiff 1
5103 return 1
5104 }
5105 set isdiff 0
5106 }
5107 # we only need to see one line and we don't really care what it says...
5111 return 0
5112 }
5115 # add the line for the local diff to the graph
5116 set hl [mc "Local uncommitted changes, not checked in to index"]
5121 } else {
5123 }
5127 }
5128 return 0
5129 }
5131 proc nextuse {id row} {
5132 global curview children
5137 return -1
5138 }
5141 }
5142 }
5143 }
5146 }
5147 return -1
5148 }
5150 proc prevuse {id row} {
5151 global curview children
5153 set ret -1
5159 }
5160 }
5161 }
5163 }
5165 proc make_idlist {row} {
5166 global displayorder parentlist uparrowlen downarrowlen mingaplen
5167 global commitidx curview children
5171 set r 0
5172 }
5175 set ra 0
5176 }
5180 }
5182 set ids {}
5191 }
5192 }
5193 }
5201 }
5202 }
5203 }
5211 }
5212 }
5213 incr r
5219 }
5220 }
5221 }
5222 set idlist {}
5225 }
5227 }
5229 proc rowsequal {a b} {
5232 }
5235 }
5237 }
5239 proc makeupline {id row rend col} {
5240 global rowidlist uparrowlen downarrowlen mingaplen
5246 }
5249 }
5256 }
5257 }
5258 }
5260 proc layoutrows {row endrow} {
5261 global rowidlist rowisopt rowfinal displayorder
5262 global uparrowlen downarrowlen maxwidth mingaplen
5263 global children parentlist
5264 global commitidx viewcomplete curview
5267 set idlist {}
5273 }
5274 }
5276 }
5281 set final 1
5282 } else {
5290 # if not the first child, we have to insert a line going up
5293 }
5294 }
5295 }
5305 }
5306 }
5307 }
5314 }
5315 }
5325 }
5326 }
5334 }
5335 }
5336 }
5337 }
5338 }
5342 set final 0
5343 }
5347 lappend rowisopt 0
5353 }
5355 } else {
5362 }
5363 }
5365 }
5367 proc changedrow {row} {
5368 global displayorder iddrawn rowisopt need_redisplay
5377 }
5378 }
5379 }
5382 set need_redisplay 1
5383 }
5384 }
5386 proc insert_pad {row col npad} {
5387 global rowidlist
5396 }
5399 }
5401 proc optimize_rows {row col endrow} {
5402 global rowidlist rowisopt displayorder curview children
5405 set row 1
5406 }
5409 set haspad 0
5418 } else {
5419 set pprevidlist {}
5420 }
5421 set x0 -1
5422 set xm -1
5427 set haspad 1
5428 continue
5429 }
5433 set isarrow 0
5434 set z0 {}
5439 }
5440 }
5445 set isarrow 1
5446 }
5447 }
5450 set isarrow 1
5451 }
5452 # Looking at lines from this row to the previous row,
5453 # make them go straight up if they end in an arrow on
5454 # the previous row; otherwise make them go straight up
5455 # or at 45 degrees.
5457 # Line currently goes left too much;
5458 # insert pads in the previous row, then optimize it
5463 }
5471 }
5473 # Line currently goes right too much;
5474 # insert pads in this line
5480 set haspad 1
5481 }
5488 }
5489 }
5490 # avoid lines jigging left then immediately right
5493 incr x0
5496 }
5497 }
5499 # Find the first column that doesn't have a line going right
5505 # check if this is the link to the first child
5508 # it is, work out offset to child
5510 }
5511 }
5513 }
5514 # Insert a pad at that column as long as it has a line and
5515 # isn't the last column
5520 }
5521 }
5522 }
5523 }
5525 proc xc {row col} {
5526 global canvx0 linespc
5528 }
5530 proc yc {row} {
5531 global canvy0 linespc
5533 }
5535 proc linewidth {id} {
5536 global thickerline lthickness
5541 }
5543 }
5545 proc rowranges {id} {
5546 global curview children uparrowlen downarrowlen
5547 global rowidlist
5551 return {}
5552 }
5553 set ret {}
5558 if {![info exists prev]} {
5560 } else {
5562 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5563 }
5564 # see if the line extends the whole way from prevrow to row
5568 # it doesn't, see where it ends
5573 } else {
5576 incr r -1
5577 }
5579 # see where it starts up again
5584 } else {
5587 incr r
5588 }
5590 }
5591 }
5594 }
5597 }
5599 }
5601 proc drawlineseg {id row endrow arrowlow} {
5602 global rowidlist displayorder iddrawn linesegs
5603 global canv colormap linespc curview maxlinelen parentlist
5607 set arrowhigh 1
5608 while {1} {
5611 incr le -1
5612 break
5613 }
5617 set arrowhigh 0
5618 break
5619 }
5624 set arrowhigh 0
5625 }
5626 break
5627 }
5628 incr le
5629 }
5632 }
5634 set lines {}
5635 set i 0
5636 set joinhigh 0
5643 set joinhigh 1
5644 }
5645 break
5646 }
5647 incr i
5648 }
5649 }
5650 set joinlow 0
5655 set joinlow 1
5656 }
5657 }
5670 }
5671 } else {
5673 }
5681 set arrowlow 0
5682 }
5683 }
5691 }
5693 }
5696 # join parent line to first child
5707 } else {
5709 }
5717 }
5719 }
5721 } else {
5725 }
5733 } else {
5737 }
5739 }
5740 } else {
5746 }
5750 } else {
5751 # coalesce two pieces
5756 }
5760 }
5761 }
5765 }
5767 proc drawparentlinks {id row} {
5768 global rowidlist canv colormap curview parentlist
5769 global idpos linespc
5782 # rmx = right-most X coord used
5783 set rmx 0
5788 continue
5789 }
5793 }
5796 # drawlineseg will do this one for us
5797 continue
5798 }
5800 # should handle duplicated parents here...
5803 # if attaching to a vertical segment, draw a smaller
5804 # slant for visual distinctness
5808 } else {
5810 }
5812 # segment slants towards us already
5814 } else {
5819 }
5821 }
5822 } else {
5824 }
5829 }
5833 }
5834 }
5836 proc drawlines {id} {
5837 global canv
5840 }
5842 proc drawcmittext {id row col} {
5843 global linespc canv canv2 canv3 fgcolor curview
5844 global cmitlisted commitinfo rowidlist parentlist
5845 global rowtextx idpos idtags idheads idotherrefs
5846 global linehtag linentag linedtag selectedline
5847 global canvxmax boldids boldnameids fgcolor markedid
5848 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5850 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5853 set ofill red
5855 set ofill green
5857 set ofill yellow
5858 } else {
5860 }
5869 # triangle pointing left for left-side commits
5875 } else {
5876 # triangle pointing right for right-side commits
5882 }
5894 }
5895 }
5896 }
5903 }
5906 }
5911 set font mainfont
5912 set nfont mainfont
5916 set font mainfontbold
5919 set nfont mainfontbold
5920 }
5921 }
5931 }
5934 }
5938 setcanvscroll
5939 }
5940 }
5942 proc drawcmitrow {row} {
5943 global displayorder rowidlist nrows_drawn
5944 global iddrawn markingmatches
5945 global commitinfo numcommits
5946 global filehighlight fhighlights findpattern nhighlights
5947 global hlview vhighlights
5948 global highlight_related rhighlights
5955 }
5958 }
5961 }
5964 }
5969 return
5970 }
5973 }
5977 incr nrows_drawn
5978 }
5981 }
5982 }
5984 proc drawcommits {row {endrow {}}} {
5985 global numcommits iddrawn displayorder curview need_redisplay
5986 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5989 set row 0
5990 }
5993 }
5996 }
6000 set rl1 0
6001 }
6004 set ro1 0
6005 }
6009 }
6014 }
6016 }
6017 }
6020 }
6023 clear_display
6024 }
6026 # make the lines join to already-drawn rows either side
6030 }
6035 }
6050 # see if this is the first child of any of its parents
6053 # make this line extend up to the child
6055 }
6056 }
6057 } else {
6059 }
6060 }
6061 }
6062 }
6064 proc undolayout {row} {
6065 global uparrowlen mingaplen downarrowlen
6066 global rowidlist rowisopt rowfinal need_redisplay
6070 set r 0
6071 }
6073 incr r -1
6077 set need_redisplay 1
6078 run drawvisible
6079 }
6080 }
6082 proc drawvisible {} {
6083 global canv linespc curview vrowmod selectedline targetrow targetid
6084 global need_redisplay cscroll numcommits
6094 if {[info exists targetid]} {
6098 # Fix up the scrollregion and change the scrolling position
6099 # now that our target row has moved.
6102 setcanvscroll
6110 set need_redisplay 1
6111 }
6112 } else {
6113 unset targetid
6114 }
6115 }
6121 }
6125 } elseif {[info exists targetid]} {
6127 }
6128 if {[info exists targetrow]} {
6131 }
6133 }
6135 }
6137 proc clear_display {} {
6138 global iddrawn linesegs need_redisplay nrows_drawn
6139 global vhighlights fhighlights nhighlights rhighlights
6140 global linehtag linentag linedtag boldids boldnameids
6142 allcanvs delete all
6143 catch {unset iddrawn}
6144 catch {unset linesegs}
6145 catch {unset linehtag}
6146 catch {unset linentag}
6147 catch {unset linedtag}
6148 set boldids {}
6149 set boldnameids {}
6150 catch {unset vhighlights}
6151 catch {unset fhighlights}
6152 catch {unset nhighlights}
6153 catch {unset rhighlights}
6154 set need_redisplay 0
6155 set nrows_drawn 0
6156 }
6158 proc findcrossings {id} {
6159 global rowidlist parentlist numcommits displayorder
6161 set cross {}
6162 set ccross {}
6166 }
6185 }
6186 }
6187 }
6188 }
6189 }
6191 }
6193 proc assigncolor {id} {
6194 global colormap colors nextcolor
6195 global parents children children curview
6201 } else {
6202 set kids {}
6203 }
6209 return
6210 }
6211 }
6212 set badcolors {}
6213 set origbad {}
6216 # delimiter between corner crossings and other crossings
6219 }
6223 }
6224 }
6227 }
6234 }
6239 }
6240 }
6241 }
6244 }
6245 }
6249 set nextcolor 0
6250 }
6252 }
6254 }
6256 proc bindline {t id} {
6257 global canv
6263 }
6265 proc drawtags {id x xt y1} {
6266 global idtags idheads idotherrefs mainhead
6267 global linespc lthickness
6268 global canv rowtextx curview fgcolor bgcolor ctxbut
6270 set marks {}
6271 set ntags 0
6272 set nheads 0
6276 }
6280 }
6283 }
6286 }
6291 set xvals {}
6292 set wvals {}
6293 set i -1
6295 incr i
6298 } else {
6300 }
6304 }
6312 set font mainfont
6313 if {[incr ntags -1] >= 0} {
6314 # draw a tag
6320 } else {
6321 # draw a head or other ref
6322 if {[incr nheads -1] >= 0} {
6323 set col green
6325 set font mainfontbold
6326 }
6327 } else {
6328 set col "#ddddff"
6329 }
6340 }
6341 }
6348 }
6349 }
6351 }
6353 proc drawnotesign {xt y} {
6354 global linespc canv fgcolor
6362 }
6364 proc xcoord {i level ln} {
6365 global canvx0 xspc1 xspc2
6372 }
6374 }
6376 proc show_status {msg} {
6377 global canv fgcolor
6379 clear_display
6382 }
6384 # Don't change the text pane cursor if it is currently the hand cursor,
6385 # showing that we are over a sha1 ID link.
6386 proc settextcursor {c} {
6387 global ctext curtextcursor
6391 }
6393 }
6395 proc nowbusy {what {name {}}} {
6396 global isbusy busyname statusw
6398 if {[array names isbusy] eq {}} {
6399 . config -cursor watch
6400 settextcursor watch
6401 }
6406 }
6407 }
6409 proc notbusy {what} {
6410 global isbusy maincursor textcursor busyname statusw
6412 catch {
6417 }
6418 }
6419 if {[array names isbusy] eq {}} {
6422 }
6423 }
6425 proc findmatches {f} {
6426 global findtype findstring
6429 } else {
6434 }
6435 set matches {}
6436 set i 0
6441 }
6442 }
6444 }
6446 proc dofind {{dirn 1} {wrap 1}} {
6447 global findstring findstartline findcurline selectedline numcommits
6448 global gdttype filehighlight fh_serial find_dirn findallowwrap
6450 if {[info exists find_dirn]} {
6452 stopfinding
6453 }
6454 focus .
6458 } else {
6460 }
6462 nowbusy finding [mc "Searching"]
6466 }
6469 run findmore
6470 }
6472 proc stopfinding {} {
6473 global find_dirn findcurline fprogcoord
6475 if {[info exists find_dirn]} {
6476 unset find_dirn
6477 unset findcurline
6478 notbusy finding
6479 set fprogcoord 0
6480 adjustprogress
6481 }
6482 stopblaming
6483 }
6485 proc findmore {} {
6486 global commitdata commitinfo numcommits findpattern findloc
6487 global findstartline findcurline findallowwrap
6488 global find_dirn gdttype fhighlights fprogcoord
6489 global curview varcorder vrownum varccommits vrowmod
6491 if {![info exists find_dirn]} {
6492 return 0
6493 }
6494 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6496 set moretodo 0
6498 incr l
6500 set l 0
6501 }
6504 } else {
6507 }
6508 } else {
6511 }
6512 incr l -1
6515 } else {
6516 set lim -1
6518 }
6519 }
6522 set n 500
6523 set moretodo 1
6524 }
6527 }
6528 set found 0
6529 set domore 1
6543 }
6545 # shouldn't happen unless git log doesn't give all the commits...
6548 continue
6549 }
6552 }
6557 set found 1
6558 break
6559 }
6560 }
6562 }
6563 } else {
6571 }
6576 }
6579 break
6580 }
6583 set domore 0
6585 }
6586 }
6587 }
6588 }
6590 unset findcurline
6591 unset find_dirn
6592 notbusy finding
6593 set fprogcoord 0
6594 adjustprogress
6597 } else {
6598 bell
6599 }
6600 return 0
6601 }
6603 flushhighlights
6604 } else {
6606 }
6610 }
6612 adjustprogress
6614 }
6616 proc findselectline {l} {
6617 global findloc commentend ctext findcurline markingmatches gdttype
6624 # highlight the matches in the comments
6631 }
6632 }
6633 drawvisible
6634 }
6636 # mark the bits of a headline or author that match a find string
6637 proc markmatches {canv l str tag matches font row} {
6638 global selectedline
6656 }
6657 }
6658 }
6660 proc unmarkmatches {} {
6661 global markingmatches
6663 allcanvs delete matches
6664 set markingmatches 0
6665 stopfinding
6666 }
6668 proc selcanvline {w x y} {
6669 global canv canvy0 ctext linespc
6670 global rowtextx
6677 set l 0
6678 }
6683 }
6684 unmarkmatches
6686 }
6688 proc commit_descriptor {p} {
6689 global commitinfo
6692 }
6693 set l "..."
6696 }
6698 }
6700 # append some text to the ctext widget, and make any SHA1 ID
6701 # that we know about be a clickable link.
6702 proc appendwithlinks {text tags} {
6703 global ctext linknum curview
6712 incr e
6716 incr linknum
6717 }
6718 }
6720 proc setlink {id lk} {
6721 global curview ctext pendinglinks
6723 set known 0
6728 set known 1
6730 }
6731 } else {
6733 }
6739 } else {
6742 }
6743 }
6745 proc appendshortlink {id {pre {}} {post {}}} {
6746 global ctext linknum
6753 incr linknum
6754 }
6756 proc makelink {id} {
6757 global pendinglinks
6762 }
6764 }
6766 proc linkcursor {w inc} {
6767 global linkentercount curtextcursor
6771 } else {
6774 set linkentercount 0
6775 }
6776 }
6777 }
6779 proc viewnextline {dir} {
6780 global canv linespc
6788 set newtop 0
6791 }
6793 }
6795 # add a list of tag or branch names at position pos
6796 # returns the number of names inserted
6797 proc appendrefs {pos ids var} {
6801 return 0
6802 }
6805 set tags {}
6809 }
6810 }
6813 } else {
6815 set sep {}
6819 incr linknum
6824 set sep ", "
6825 }
6826 }
6829 }
6831 # called when we have finished computing the nearby tags
6832 proc dispneartags {delay} {
6833 global selectedline currentid showneartags tagphase
6836 after cancel dispnexttag
6838 after 200 dispnexttag
6839 set tagphase -1
6840 } else {
6841 after idle dispnexttag
6842 set tagphase 0
6843 }
6844 }
6846 proc dispnexttag {} {
6847 global selectedline currentid showneartags tagphase ctext
6851 0 {
6855 }
6856 }
6857 1 {
6861 }
6862 }
6863 2 {
6868 # turn "Branch" into "Branches"
6872 }
6873 }
6874 }
6875 }
6876 if {[incr tagphase] <= 2} {
6877 after idle dispnexttag
6878 }
6879 }
6881 proc make_secsel {id} {
6882 global linehtag linentag linedtag canv canv2 canv3
6897 }
6899 proc make_idmark {id} {
6900 global linehtag canv fgcolor
6907 }
6909 proc selectline {l isnew {desired_loc {}}} {
6910 global canv ctext commitinfo selectedline
6911 global canvy0 linespc parents children curview
6912 global currentid sha1entry
6913 global commentend idtags linknum
6914 global mergemax numcommits pending_select
6915 global cmitmode showneartags allcommits
6916 global targetrow targetid lastscrollrows
6917 global autoselect autosellen jump_to_here
6919 catch {unset pending_select}
6921 normalline
6922 unsel_reflist
6923 stopfinding
6931 setcanvscroll
6932 }
6946 } else {
6950 }
6951 }
6955 } else {
6959 }
6960 }
6961 }
6964 set newtop 0
6965 }
6967 drawvisible
6968 }
6974 }
6980 }
6984 clear_ctext
6985 set linknum 0
6988 }
6998 }
7000 }
7002 set headers {}
7005 set np 0
7008 set tag mmax
7009 } else {
7011 }
7014 incr np
7015 }
7016 } else {
7019 }
7020 }
7024 }
7026 # make anything that looks like a SHA1 ID be a clickable link
7029 if {![info exists allcommits]} {
7030 getallcommits
7031 }
7042 dispneartags 1
7043 }
7048 }
7056 init_flist [mc "Comments"]
7061 } else {
7063 }
7064 }
7066 proc selfirstline {} {
7067 unmarkmatches
7068 selectline 0 1
7069 }
7071 proc sellastline {} {
7072 global numcommits
7073 unmarkmatches
7076 }
7078 proc selnextline {dir} {
7079 global selectedline
7080 focus .
7083 unmarkmatches
7085 }
7087 proc selnextpage {dir} {
7088 global canv linespc selectedline numcommits
7092 set lpp 1
7093 }
7095 drawvisible
7099 set l 0
7102 }
7103 unmarkmatches
7105 }
7107 proc unselectline {} {
7108 global selectedline currentid
7110 set selectedline {}
7111 catch {unset currentid}
7112 allcanvs delete secsel
7113 rhighlight_none
7114 }
7116 proc reselectline {} {
7117 global selectedline
7121 }
7122 }
7124 proc addtohistory {cmd {saveproc {}}} {
7125 global history historyindex curview
7127 unset_posvars
7128 save_position
7132 return
7133 }
7137 } else {
7139 }
7140 incr historyindex
7142 .tf.bar.leftbut conf -state normal
7143 } else {
7144 .tf.bar.leftbut conf -state disabled
7145 }
7146 .tf.bar.rightbut conf -state disabled
7147 }
7149 # save the scrolling position of the diff display pane
7150 proc save_position {} {
7151 global historyindex history
7158 }
7159 }
7161 proc unset_posvars {} {
7162 global last_posvars
7164 if {[info exists last_posvars]} {
7168 }
7169 unset last_posvars
7170 }
7171 }
7173 proc godo {elt} {
7174 global curview last_posvars
7181 }
7182 unset_posvars
7186 }
7189 }
7191 proc goback {} {
7192 global history historyindex
7193 focus .
7196 save_position
7197 incr historyindex -1
7199 .tf.bar.rightbut conf -state normal
7200 }
7202 .tf.bar.leftbut conf -state disabled
7203 }
7204 }
7206 proc goforw {} {
7207 global history historyindex
7208 focus .
7211 save_position
7213 incr historyindex
7215 .tf.bar.leftbut conf -state normal
7216 }
7218 .tf.bar.rightbut conf -state disabled
7219 }
7220 }
7222 proc gettree {id} {
7223 global treefilelist treeidlist diffids diffmergeid treepending
7224 global nullid nullid2
7227 catch {unset diffmergeid}
7229 if {![info exists treepending]} {
7231 set cmd [list | git ls-files]
7233 set cmd [list | git ls-files --stage -t]
7234 } else {
7236 }
7238 return
7239 }
7245 }
7246 } else {
7248 }
7249 }
7251 proc gettreeline {gtf id} {
7252 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7254 set nl 0
7258 } else {
7266 }
7269 }
7272 }
7275 }
7277 unset treepending
7279 if {![info exists diffmergeid]} {
7281 }
7284 } else {
7286 }
7287 return 0
7288 }
7290 proc showfile {f} {
7291 global treefilelist treeidlist diffids nullid nullid2
7292 global ctext_file_names ctext_file_lines
7293 global ctext commentend
7298 return
7299 }
7303 return
7304 }
7305 } else {
7309 return
7310 }
7311 }
7322 settabs 0
7323 }
7325 proc getblobline {bf id} {
7326 global diffids cmitmode ctext
7330 return 0
7331 }
7333 set nl 0
7336 }
7338 global jump_to_here ctext_file_names commentend
7340 # delete last newline
7348 }
7350 return 0
7351 }
7354 }
7356 proc mark_ctext_line {lnum} {
7357 global ctext markbgcolor
7363 }
7365 proc mergediff {id} {
7366 global diffmergeid
7367 global diffids treediffs
7368 global parents curview
7376 }
7378 proc startdiff {ids} {
7379 global treediffs diffids treepending diffmergeid nullid nullid2
7381 settabs 1
7383 catch {unset diffmergeid}
7387 if {![info exists treepending]} {
7389 }
7390 } else {
7392 }
7393 }
7395 proc path_filter {filter name} {
7400 return 1
7401 }
7402 } else {
7406 return 1
7407 }
7408 }
7409 }
7410 return 0
7411 }
7413 proc addtocflist {ids} {
7414 global treediffs
7418 }
7420 proc diffcmd {ids flags} {
7421 global nullid nullid2
7427 # comparing working directory with some specific revision
7431 } else {
7433 }
7434 } else {
7435 # comparing working directory with index
7438 lappend cmd -R
7439 }
7440 }
7444 # comparing index with specific revision
7447 } else {
7449 }
7450 } else {
7451 # comparing index with HEAD
7452 lappend cmd HEAD
7453 }
7454 } else {
7456 }
7458 }
7460 proc gettreediffs {ids} {
7461 global treediff treepending
7466 set treediff {}
7469 }
7471 proc gettreediffline {gdtf ids} {
7472 global treediff treediffs treepending diffids diffmergeid
7473 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7475 set nr 0
7476 set sublist {}
7477 set max 1000
7479 # cache_gitattr is slow, and even slower on win32 where we
7480 # have to invoke it for only about 30 paths at a time
7481 set max 500
7482 if {[tk windowingsystem] == "win32"} {
7483 set max 120
7484 }
7485 }
7492 }
7497 }
7498 }
7499 }
7502 }
7505 }
7508 set flist {}
7512 }
7513 }
7515 } else {
7517 }
7518 unset treepending
7522 if {![info exists diffmergeid]} {
7524 }
7525 } else {
7527 }
7528 return 0
7529 }
7531 # empty string or positive integer
7532 proc diffcontextvalidate {v} {
7534 }
7536 proc diffcontextchange {n1 n2 op} {
7537 global diffcontextstring diffcontext
7542 reselectline
7543 }
7544 }
7545 }
7547 proc changeignorespace {} {
7548 reselectline
7549 }
7551 proc changeworddiff {name ix op} {
7552 reselectline
7553 }
7555 proc getblobdiffs {ids} {
7556 global blobdifffd diffids env
7557 global diffinhdr treediffs
7558 global diffcontext
7559 global ignorespace
7560 global worddiff
7561 global limitdiffs vfilelimit curview
7562 global diffencoding targetline diffnparents
7563 global git_version currdiffsubmod
7565 set textconv {}
7567 set textconv "--textconv"
7568 }
7569 set submodule {}
7571 set submodule "--submodule"
7572 }
7575 append cmd " -w"
7576 }
7578 append cmd " --word-diff=porcelain"
7579 }
7582 }
7585 return
7586 }
7587 set targetline {}
7588 set diffnparents 0
7589 set diffinhdr 0
7590 set diffencoding [get_path_encoding {}]
7593 set currdiffsubmod ""
7595 }
7597 proc savecmitpos {} {
7598 global ctext cmitmode
7601 return {}
7602 }
7604 }
7606 proc savectextpos {} {
7607 global ctext
7610 }
7612 proc maybe_scroll_ctext {ateof} {
7613 global ctext target_scrollpos
7615 if {![info exists target_scrollpos]} return
7618 / [font metrics textfont -linespace]}]
7620 }
7622 unset target_scrollpos
7623 }
7625 proc setinlist {var i val} {
7630 }
7633 } else {
7635 }
7636 }
7638 proc makediffhdr {fname ids} {
7639 global ctext curdiffstart treediffs diffencoding
7640 global ctext_file_names jump_to_here targetline diffline
7647 }
7652 set targetline {}
7655 }
7656 set diffline 0
7657 }
7659 proc getblobdiffline {bdf ids} {
7660 global diffids blobdifffd ctext curdiffstart
7661 global diffnexthead diffnextnote difffilestart
7662 global ctext_file_names ctext_file_lines
7663 global diffinhdr treediffs mergemax diffnparents
7664 global diffencoding jump_to_here targetline diffline currdiffsubmod
7665 global worddiff
7667 set nr 0
7672 return 0
7673 }
7678 continue
7679 }
7680 # start of a new file
7681 set diffinhdr 1
7684 lappend ctext_file_names ""
7689 # start of a new file in a merge diff
7694 }
7696 } else {
7698 # If the name hasn't changed the length will be odd,
7699 # the middle char will be a space, and the two bits either
7700 # side will be a/name and b/name, or "a/name" and "b/name".
7701 # If the name has changed we'll get "rename from" and
7702 # "rename to" or "copy from" and "copy to" lines following
7703 # this, and we'll use them to get the filenames.
7704 # This complexity is necessary because spaces in the
7705 # filename(s) don't get escaped.
7711 continue
7712 }
7713 # unescape if quoted and chop off the a/ from the front
7716 } else {
7718 }
7719 }
7732 }
7740 }
7742 set diffinhdr 0
7745 # start of a new submodule
7748 } else {
7750 }
7753 }
7755 lappend ctext_file_names ""
7761 } else {
7763 }
7777 }
7782 }
7788 }
7791 # do nothing
7792 continue
7794 set diffinhdr 0
7795 continue
7796 }
7799 } else {
7800 set line [string map {\x1A ^Z} \
7802 # parse the prefix - one ' ', '-' or '+' for each parent
7806 set words_pre_markup ""
7807 set words_post_markup ""
7809 # prefix only has " ", "-" and "+" in it: normal diff line
7813 }
7817 set num "max"
7818 }
7821 } else {
7823 }
7826 }
7827 } else {
7828 set tags {}
7830 # added line
7836 set num "max"
7837 }
7839 }
7840 }
7841 set words_pre_markup "{+"
7842 set words_post_markup "+}"
7843 }
7847 set targetline {}
7848 } else {
7849 incr diffline
7850 }
7851 }
7854 } else {
7856 }
7859 }
7860 }
7863 } else {
7864 # "\ No newline at end of file",
7865 # or something else we don't recognize
7867 }
7868 }
7869 }
7870 if {[info exists seehere]} {
7872 }
7877 return 0
7878 }
7880 }
7882 proc changediffdisp {} {
7883 global ctext diffelide
7887 }
7889 proc highlightfile {loc cline} {
7890 global ctext cflist cflist_top
7897 }
7899 proc prevfile {} {
7900 global difffilestart ctext cmitmode
7903 set prev 0.0
7904 set prevline 1
7909 return
7910 }
7912 incr prevline
7913 }
7915 }
7917 proc nextfile {} {
7918 global difffilestart ctext cmitmode
7922 set line 1
7924 incr line
7927 return
7928 }
7929 }
7930 }
7932 proc clear_ctext {{first 1.0}} {
7933 global ctext smarktop smarkbot
7934 global ctext_file_names ctext_file_lines
7935 global pendinglinks
7940 }
7943 }
7946 catch {unset pendinglinks}
7947 }
7948 set ctext_file_names {}
7949 set ctext_file_lines {}
7950 }
7952 proc settabs {{firstab {}}} {
7953 global firsttabstop tabstop ctext have_tk85
7957 }
7958 set w [font measure textfont "0"]
7964 } else {
7966 }
7967 }
7969 proc incrsearch {name ix op} {
7970 global ctext searchstring searchdirn
7974 # no anchor set, use start of selection, or of visible area
7980 } else {
7982 }
7983 }
7988 }
7989 searchmarkvisible 1
7990 }
7991 }
7993 proc dosearch {} {
7994 global sstring ctext searchstring searchdirn
7998 set searchdirn -forwards
8004 set start "@0,0"
8005 }
8009 bell
8010 return
8011 }
8016 }
8017 }
8019 proc dosearchback {} {
8020 global sstring ctext searchstring searchdirn
8024 set searchdirn -backwards
8031 }
8035 bell
8036 return
8037 }
8042 }
8043 }
8045 proc searchmark {first last} {
8046 global ctext searchstring
8049 while {1} {
8054 }
8055 }
8057 proc searchmarkvisible {doall} {
8058 global ctext smarktop smarkbot
8063 # no overlap with previous
8067 } else {
8071 }
8075 }
8076 }
8077 }
8079 proc scrolltext {f0 f1} {
8080 global searchstring
8084 searchmarkvisible 0
8085 }
8086 }
8088 proc setcoords {} {
8089 global linespc charspc canvx0 canvy0
8090 global xspc1 xspc2 lthickness
8092 set linespc [font metrics mainfont -linespace]
8093 set charspc [font measure mainfont "m"]
8099 }
8101 proc redisplay {} {
8102 global canv
8103 global selectedline
8108 clear_display
8109 setcanvscroll
8111 drawvisible
8115 }
8116 }
8118 proc parsefont {f n} {
8119 global fontattr
8124 set s 10
8127 }
8133 "normal" -
8135 "roman" -
8137 }
8138 }
8139 }
8141 proc fontflags {f {isbold 0}} {
8142 global fontattr
8147 }
8149 proc fontname {f} {
8150 global fontattr
8154 lappend n "bold"
8155 }
8157 lappend n "italic"
8158 }
8160 }
8162 proc incrfont {inc} {
8163 global mainfont textfont ctext canv cflist showrefstop
8164 global stopped entries fontattr
8166 unmarkmatches
8170 set s 1
8171 }
8175 set mainfont [fontname mainfont]
8179 set s 1
8180 }
8184 set textfont [fontname textfont]
8185 setcoords
8186 settabs
8187 redisplay
8188 }
8190 proc clearsha1 {} {
8191 global sha1entry sha1string
8194 }
8195 }
8197 proc sha1change {n1 n2 op} {
8198 global sha1string currentid sha1but
8201 set state disabled
8202 } else {
8203 set state normal
8204 }
8208 } else {
8210 }
8211 }
8213 proc gotocommit {} {
8214 global sha1string tagids headids curview varcid
8222 } else {
8229 return
8230 }
8232 }
8233 } else {
8236 return
8237 }
8238 }
8239 }
8242 return
8243 }
8246 } else {
8248 }
8250 }
8252 proc lineenter {x y id} {
8253 global hoverx hovery hoverid hovertimer
8254 global commitinfo canv
8260 if {[info exists hovertimer]} {
8262 }
8263 set hovertimer [after 500 linehover]
8265 }
8267 proc linemotion {x y id} {
8268 global hoverx hovery hoverid hovertimer
8273 if {[info exists hovertimer]} {
8275 }
8276 set hovertimer [after 500 linehover]
8277 }
8278 }
8280 proc lineleave {id} {
8281 global hoverid hovertimer canv
8285 if {[info exists hovertimer]} {
8287 unset hovertimer
8288 }
8289 unset hoverid
8290 }
8291 }
8293 proc linehover {} {
8294 global hoverx hovery hoverid hovertimer
8295 global canv linespc lthickness
8296 global commitinfo
8309 -fill \#ffff80 -outline black -width 1 -tags hover]
8312 -font mainfont]
8314 }
8316 proc clickisonarrow {id y} {
8317 global lthickness
8326 }
8327 }
8328 return {}
8329 }
8331 proc arrowjump {id n y} {
8332 global canv
8334 # 1 <-> 2, 3 <-> 4, etc...
8344 set yfrac 0
8345 }
8347 }
8349 proc lineclick {x y id isnew} {
8350 global ctext commitinfo children canv thickerline curview
8353 unmarkmatches
8354 unselectline
8355 normalline
8357 # draw this line thicker than normal
8365 }
8369 return
8370 }
8374 }
8375 # fill the details pane with info about this line
8377 clear_ctext
8378 settabs 0
8390 set i 0
8392 incr i
8402 }
8403 }
8404 maybe_scroll_ctext 1
8406 init_flist {}
8407 }
8409 proc normalline {} {
8410 global thickerline
8411 if {[info exists thickerline]} {
8413 unset thickerline
8415 }
8416 }
8418 proc selbyid {id {isnew 1}} {
8419 global curview
8422 }
8423 }
8425 proc mstime {} {
8426 global startmstime
8427 if {![info exists startmstime]} {
8428 set startmstime [clock clicks -milliseconds]
8429 }
8431 }
8433 proc rowmenu {x y id} {
8434 global rowctxmenu selectedline rowmenuid curview
8435 global nullid nullid2 fakerowmenu mainhead markedid
8437 stopfinding
8440 set state disabled
8441 } else {
8442 set state normal
8443 }
8448 } else {
8450 }
8455 } else {
8459 }
8460 } else {
8462 }
8467 }
8469 proc markhere {} {
8470 global rowmenuid markedid canv
8474 }
8476 proc gotomark {} {
8477 global markedid
8479 if {[info exists markedid]} {
8481 }
8482 }
8484 proc replace_by_kids {l r} {
8485 global curview children
8491 }
8493 }
8495 proc find_common_desc {} {
8496 global markedid rowmenuid curview children
8498 if {![info exists markedid]} return
8501 #set t1 [clock clicks -milliseconds]
8504 while 1 {
8510 break
8511 }
8514 } else {
8516 }
8517 }
8518 #set t2 [clock clicks -milliseconds]
8520 }
8522 proc compare_commits {} {
8523 global markedid rowmenuid curview children
8525 if {![info exists markedid]} return
8529 }
8531 proc getpatchid {id} {
8532 global patchids
8536 # trim off the initial "|"
8538 if {[catch {
8541 }]} {
8543 }
8544 }
8546 }
8548 proc do_cmp_commits {a b} {
8549 global ctext curview parents children patchids commitinfo
8552 clear_ctext
8553 init_flist {}
8555 set skipa 0
8556 set skipb 0
8559 set skipa 1
8560 } else {
8562 }
8565 set skipb 1
8566 } else {
8568 }
8574 [mc " - stopping\n"]
8575 break
8576 }
8579 [mc " - stopping\n"]
8580 break
8581 }
8586 } else {
8590 }
8591 set skipa 1
8592 set skipb 1
8593 } else {
8600 update
8602 return
8603 }
8604 }
8611 break
8612 }
8614 }
8620 break
8621 }
8623 }
8624 }
8626 }
8628 proc diffcommits {a b} {
8629 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8631 set tmpdir [gitknewtmpdir]
8634 if {[catch {
8637 } err]} {
8639 return
8640 }
8641 if {[catch {
8643 } err]} {
8645 return
8646 }
8649 set diffinhdr 0
8650 set currdiffsubmod ""
8652 }
8654 proc diffvssel {dirn} {
8655 global rowmenuid selectedline
8661 } else {
8664 }
8667 }
8669 proc doseldiff {oldid newid} {
8670 global ctext
8671 global commitinfo
8674 clear_ctext
8675 init_flist [mc "Top"]
8690 }
8692 proc mkpatch {} {
8693 global rowmenuid currentid commitinfo patchtop patchnum NS
8695 if {![info exists currentid]} return
8700 set top .patch
8730 incr patchnum
8742 }
8744 proc mkpatchrev {} {
8745 global patchtop
8751 foreach e [list fromsha1 fromhead tosha1 tohead] \
8757 }
8758 }
8760 proc mkpatchgo {} {
8761 global patchtop nullid nullid2
8767 # trim off the initial "|"
8772 }
8774 unset patchtop
8775 }
8777 proc mkpatchcan {} {
8778 global patchtop
8781 unset patchtop
8782 }
8784 proc mktag {} {
8785 global rowmenuid mktagtop commitinfo NS
8787 set top .maketag
8821 }
8823 proc domktag {} {
8824 global mktagtop env tagids idtags
8831 return 0
8832 }
8835 return 0
8836 }
8837 if {[catch {
8840 } else {
8842 }
8843 } err]} {
8845 return 0
8846 }
8852 dispneartags 0
8853 run refill_reflist
8854 return 1
8855 }
8857 proc redrawtags {id} {
8858 global canv linehtag idpos currentid curview cmitlisted markedid
8859 global canvxmax iddrawn circleitem mainheadid circlecolors
8865 set ofill yellow
8866 } else {
8868 }
8878 setcanvscroll
8879 }
8882 }
8885 }
8886 }
8888 proc mktagcan {} {
8889 global mktagtop
8892 unset mktagtop
8893 }
8895 proc mktaggo {} {
8896 if {![domktag]} return
8897 mktagcan
8898 }
8900 proc writecommit {} {
8901 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8903 set top .writecommit
8936 }
8938 proc wrcomgo {} {
8939 global wrcomtop
8946 }
8948 unset wrcomtop
8949 }
8951 proc wrcomcan {} {
8952 global wrcomtop
8955 unset wrcomtop
8956 }
8958 proc mkbranch {} {
8959 global rowmenuid mkbrtop NS
8961 set top .makebranch
8985 }
8987 proc mkbrgo {top} {
8988 global headids idheads
8992 set cmdargs {}
8993 set old_id {}
8996 return
8997 }
8999 if {![confirm_popup [mc \
9001 return
9002 }
9004 lappend cmdargs -f
9005 }
9008 nowbusy newbranch
9009 update
9010 if {[catch {
9012 } err]} {
9013 notbusy newbranch
9015 } else {
9016 notbusy newbranch
9022 } else {
9027 }
9028 dispneartags 0
9029 run refill_reflist
9030 }
9031 }
9033 proc exec_citool {tool_args {baseid {}}} {
9034 global commitinfo env
9036 set save_env [array get env GIT_AUTHOR_*]
9041 }
9044 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9050 }
9051 }
9055 array unset env GIT_AUTHOR_*
9057 }
9059 proc cherrypick {} {
9060 global rowmenuid curview
9061 global mainhead mainheadid
9063 set oldhead [exec git rev-parse HEAD]
9066 set ok [confirm_popup [mc "Commit %s is already\
9067 included in branch %s -- really re-apply it?" \
9070 }
9071 nowbusy cherrypick [mc "Cherry-picking"]
9072 update
9073 # Unfortunately git-cherry-pick writes stuff to stderr even when
9074 # no error occurs, and exec takes that as an indication of error...
9076 notbusy cherrypick
9077 if {[regexp -line \
9078 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9080 error_popup [mc "Cherry-pick failed because of local changes\
9081 to file '%s'.\nPlease commit, reset or stash\
9083 } elseif {[regexp -line \
9084 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9086 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9087 conflict.\nDo you wish to run git citool to\
9088 resolve it?"]]} {
9089 # Force citool to read MERGE_MSG
9090 file delete [file join [gitdir] "GITGUI_MSG"]
9092 }
9093 } else {
9095 }
9096 run updatecommits
9097 return
9098 }
9099 set newhead [exec git rev-parse HEAD]
9101 notbusy cherrypick
9102 error_popup [mc "No changes committed"]
9103 return
9104 }
9107 # XXX this isn't right if we have a path limit...
9112 }
9117 }
9118 notbusy cherrypick
9119 }
9121 proc resethead {} {
9122 global mainhead rowmenuid confirm_ok resettype NS
9124 set confirm_ok 0
9125 set w ".confirmreset"
9133 set resettype mixed
9135 -text [mc "Soft: Leave working tree and index untouched"]
9138 -text [mc "Mixed: Leave working tree untouched, reset index"]
9141 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9152 if {[catch {set fd [open \
9155 } else {
9156 dohidelocalchanges
9158 nowbusy reset [mc "Resetting"]
9160 }
9161 }
9163 proc readresetstat {fd} {
9164 global mainhead mainheadid showlocalchanges rprogcoord
9169 adjustprogress
9170 }
9171 return 1
9172 }
9173 set rprogcoord 0
9174 adjustprogress
9175 notbusy reset
9178 }
9180 set newhead [exec git rev-parse HEAD]
9187 }
9189 doshowlocalchanges
9190 }
9191 return 0
9192 }
9194 # context menu for a head
9195 proc headmenu {x y id head} {
9196 global headmenuid headmenuhead headctxmenu mainhead
9198 stopfinding
9201 set state normal
9203 set state disabled
9204 }
9206 set state disabled
9207 }
9211 }
9213 proc cobranch {} {
9214 global headmenuid headmenuhead headids
9215 global showlocalchanges
9217 # check the tree is clean first??
9218 nowbusy checkout [mc "Checking out"]
9219 update
9220 dohidelocalchanges
9221 if {[catch {
9223 } err]} {
9224 notbusy checkout
9227 dodiffindex
9228 }
9229 } else {
9231 }
9232 }
9234 proc readcheckoutstat {fd newhead newheadid} {
9235 global mainhead mainheadid headids showlocalchanges progresscoords
9236 global viewmainheadid curview
9241 adjustprogress
9242 }
9243 return 1
9244 }
9245 set progresscoords {0 0}
9246 adjustprogress
9247 notbusy checkout
9250 }
9259 dodiffindex
9260 }
9261 }
9263 proc rmbranch {} {
9264 global headmenuid headmenuhead mainhead
9265 global idheads
9269 # this check shouldn't be needed any more...
9271 error_popup [mc "Cannot delete the currently checked-out branch"]
9272 return
9273 }
9276 # the stuff on this branch isn't on any other branch
9277 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9279 }
9280 nowbusy rmbranch
9281 update
9283 notbusy rmbranch
9285 return
9286 }
9290 notbusy rmbranch
9291 dispneartags 0
9292 run refill_reflist
9293 }
9295 # Display a list of tags and heads
9296 proc showrefs {} {
9297 global showrefstop bgcolor fgcolor selectbgcolor NS
9298 global bglist fglist reflistfilter reflist maincursor
9300 set top .showrefs
9304 refill_reflist
9305 return
9306 }
9314 -spacing1 1 -spacing3 1 -state disabled
9325 set reflistfilter "*"
9326 trace add variable reflistfilter write reflistfilter_change
9338 set reflist {}
9339 refill_reflist
9340 }
9342 proc sel_reflist {w x y} {
9343 global showrefstop reflist headids tagids otherrefids
9353 }
9355 }
9357 proc unsel_reflist {} {
9358 global showrefstop
9362 }
9364 proc reflistfilter_change {n1 n2 op} {
9365 global reflistfilter
9367 after cancel refill_reflist
9368 after 200 refill_reflist
9369 }
9371 proc refill_reflist {} {
9372 global reflist reflistfilter showrefstop headids tagids otherrefids
9373 global curview
9376 set refs {}
9377 foreach n [array names headids] {
9381 } else {
9383 }
9384 }
9385 }
9386 foreach n [array names tagids] {
9390 } else {
9392 }
9393 }
9394 }
9395 foreach n [array names otherrefids] {
9399 } else {
9401 }
9402 }
9403 }
9411 set i 0
9412 set j 0
9421 }
9422 } else {
9423 set cmp -1
9424 }
9425 } else {
9426 set cmp 1
9427 }
9429 -1 {
9431 incr i
9432 }
9433 0 {
9434 incr i
9435 incr j
9436 }
9437 1 {
9442 incr j
9443 }
9444 }
9445 }
9447 # delete last newline
9450 }
9452 # Stuff for finding nearby tags
9453 proc getallcommits {} {
9454 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9455 global idheads idtags idotherrefs allparents tagobjid
9457 if {![info exists allcommits]} {
9458 set nextarc 0
9459 set allcommits 0
9460 set seeds {}
9461 set allcwait 0
9462 set cachedarcs 0
9463 set allccache [file join [gitdir] "gitk.cache"]
9464 if {![catch {
9466 set allcwait 1
9468 }]} return
9469 }
9472 return
9473 }
9474 set cmd [list | git rev-list --parents]
9477 set ids "--all"
9478 } else {
9479 set refs [concat [array names idheads] [array names idtags] \
9480 [array names idotherrefs]]
9481 set ids {}
9482 set tagobjs {}
9483 foreach name [array names tagobjid] {
9485 }
9490 }
9491 }
9495 }
9496 }
9497 }
9501 incr allcommits
9502 nowbusy allcommits
9504 } else {
9505 dispneartags 0
9506 }
9507 }
9509 # Since most commits have 1 parent and 1 child, we group strings of
9510 # such commits into "arcs" joining branch/merge points (BMPs), which
9511 # are commits that either don't have 1 parent or don't have 1 child.
9512 #
9513 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9514 # arcout(id) - outgoing arcs for BMP
9515 # arcids(a) - list of IDs on arc including end but not start
9516 # arcstart(a) - BMP ID at start of arc
9517 # arcend(a) - BMP ID at end of arc
9518 # growing(a) - arc a is still growing
9519 # arctags(a) - IDs out of arcids (excluding end) that have tags
9520 # archeads(a) - IDs out of arcids (excluding end) that have heads
9521 # The start of an arc is at the descendent end, so "incoming" means
9522 # coming from descendents, and "outgoing" means going towards ancestors.
9524 proc getallclines {fd} {
9525 global allparents allchildren idtags idheads nextarc
9526 global arcnos arcids arctags arcout arcend arcstart archeads growing
9527 global seeds allcommits cachedarcs allcupdate
9529 set nid 0
9533 # seen it already
9534 continue
9535 }
9536 set cachedarcs 0
9543 } else {
9549 }
9552 }
9554 # seen parent already
9557 }
9561 }
9564 continue
9565 }
9566 }
9571 }
9573 set ao {}
9576 set a [incr nextarc]
9585 # seen it already, may need to make a new branch
9588 }
9592 }
9594 }
9596 }
9598 global cached_dheads cached_dtags cached_atags
9599 catch {unset cached_dheads}
9600 catch {unset cached_dtags}
9601 catch {unset cached_atags}
9602 }
9605 }
9606 set cacheok 1
9607 if {[catch {
9610 } err]} {
9611 # got an error reading the list of commits
9612 # if we were updating, try rereading the whole thing again
9614 incr allcommits -1
9616 return
9617 }
9618 error_popup "[mc "Error reading commit topology information;\
9619 branch and preceding/following tag information\
9621 set cacheok 0
9622 }
9623 if {[incr allcommits -1] == 0} {
9624 notbusy allcommits
9626 run savecache
9627 }
9628 }
9629 dispneartags 0
9630 return 0
9631 }
9633 proc recalcarc {a} {
9634 global arctags archeads arcids idtags idheads
9636 set at {}
9637 set ah {}
9641 }
9644 }
9645 }
9648 }
9650 proc splitarc {p} {
9651 global arcnos arcids nextarc arctags archeads idtags idheads
9652 global arcstart arcend arcout allparents growing
9657 return
9658 }
9663 return
9664 }
9665 set na [incr nextarc]
9668 } else {
9672 }
9682 }
9687 } else {
9690 }
9691 }
9693 # reconstruct tags and heads lists
9697 } else {
9700 }
9701 }
9703 # Update things for a new commit added that is a child of one
9704 # existing commit. Used when cherry-picking.
9705 proc addnewchild {id p} {
9706 global allparents allchildren idtags nextarc
9707 global arcnos arcids arctags arcout arcend arcstart archeads growing
9708 global seeds allcommits
9716 set a [incr nextarc]
9724 }
9727 }
9729 # This implements a cache for the topology information.
9730 # The cache saves, for each arc, the start and end of the arc,
9731 # the ids on the arc, and the outgoing arcs from the end.
9732 proc readcache {f} {
9733 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9734 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9735 global allcwait
9741 }
9742 if {[catch {
9744 # finish reading the cache and setting up arctags, etc.
9748 foreach id [array names idtags] {
9754 }
9755 }
9756 }
9757 foreach id [array names idheads] {
9763 }
9764 }
9765 }
9769 }
9770 }
9771 set allcwait 0
9772 } else {
9782 }
9786 } else {
9790 }
9791 }
9797 }
9800 }
9803 }
9805 }
9806 } err]} {
9808 return 0
9809 }
9811 getallcommits
9812 }
9814 }
9816 proc getcache {f} {
9817 global nextarc cachedarcs possible_seeds
9819 if {[catch {
9822 # make sure it's an integer
9825 set nextarc 0
9826 set possible_seeds {}
9828 } err]} {
9830 }
9831 return 0
9832 }
9834 proc dropcache {err} {
9835 global allcwait nextarc cachedarcs seeds
9838 foreach v {arcnos arcout arcids arcstart arcend growing \
9839 arctags archeads allparents allchildren} {
9842 }
9843 set allcwait 0
9844 set nextarc 0
9845 set cachedarcs 0
9846 set seeds {}
9847 getallcommits
9848 }
9850 proc writecache {f} {
9851 global cachearc cachedarcs allccache
9852 global arcstart arcend arcnos arcids arcout
9858 }
9859 if {[catch {
9863 } else {
9865 }
9866 }
9867 } err]} {
9871 return 0
9872 }
9877 return 0
9878 }
9879 return 1
9880 }
9882 proc savecache {} {
9883 global nextarc cachedarcs cachearc allccache
9886 set cachearc 0
9888 catch {
9892 }
9893 }
9895 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9896 # or 0 if neither is true.
9897 proc anc_or_desc {a b} {
9898 global arcout arcstart arcend arcnos cached_isanc
9901 # Both are on the same arc(s); either both are the same BMP,
9902 # or if one is not a BMP, the other is also not a BMP or is
9903 # the BMP at end of the arc (and it only has 1 incoming arc).
9904 # Or both can be BMPs with no incoming arcs.
9906 return 0
9907 }
9913 return 1
9914 } else {
9915 return -1
9916 }
9917 }
9923 } else {
9924 set aend {}
9925 }
9927 } else {
9929 }
9934 } else {
9935 set bend {}
9936 }
9938 } else {
9940 }
9942 return 1
9943 }
9945 return -1
9946 }
9949 return 1
9950 }
9951 }
9954 return -1
9955 }
9957 return 0
9958 }
9959 }
9967 continue
9968 }
9974 return 1
9978 return -1
9979 }
9985 }
9986 }
9987 }
9990 return 0
9991 }
9995 # and returns 0 if so and 1 if not.
9996 # If we subsequently discover a tag on such a growing tip, and that
9999 # isn't a good choice to display as a descendent tag of
10003 #
10004 proc is_certain {desc anc} {
10005 global arcnos arcout arcstart arcend growing problems
10007 set certain {}
10009 # tags on the same arc are certain
10011 return 1
10012 }
10017 }
10018 }
10021 } else {
10024 }
10026 return 1
10027 }
10030 set nnh 1
10031 set ngrowanc 0
10035 incr nnh -1
10036 }
10042 incr ngrowanc
10043 }
10044 } else {
10051 incr nnh -1
10052 }
10054 incr ngrowanc -1
10055 }
10065 incr nnh -1
10066 }
10068 incr ngrowanc -1
10069 }
10071 }
10072 }
10073 }
10074 }
10075 }
10076 }
10080 } else {
10083 incr nnh
10084 }
10085 }
10086 }
10087 }
10088 foreach x [array names growanc] {
10090 return 0
10091 }
10092 return 0
10093 }
10094 return 1
10095 }
10097 proc validate_arctags {a} {
10098 global arctags idtags
10100 set i -1
10103 incr i
10106 incr i -1
10107 }
10108 }
10110 }
10112 proc validate_archeads {a} {
10113 global archeads idheads
10115 set i -1
10118 incr i
10121 incr i -1
10122 }
10123 }
10125 }
10127 # Return the list of IDs that have tags that are descendents of id,
10128 # ignoring IDs that are descendents of IDs already reported.
10129 proc desctags {id} {
10130 global arcnos arcstart arcids arctags idtags allparents
10131 global growing cached_dtags
10134 return {}
10135 }
10136 set t1 [clock clicks -milliseconds]
10139 # part-way along an arc; check that arc first
10144 set tid {}
10149 }
10152 }
10153 }
10157 }
10158 }
10161 }
10166 set nc 1
10172 incr nc -1
10173 }
10174 # ignore tags on starting node
10178 set ta 1
10181 set ta 1
10182 }
10183 }
10190 }
10191 }
10200 }
10203 }
10205 incr nc -1
10206 }
10208 }
10209 }
10210 }
10215 incr nc
10216 }
10217 }
10218 }
10219 }
10220 set tags {}
10221 foreach id [array names tagloc] {
10226 }
10227 }
10228 }
10229 }
10230 set t2 [clock clicks -milliseconds]
10233 # remove tags that are descendents of other tags
10241 incr j -1
10242 incr i -1
10245 incr i -1
10246 break
10247 }
10248 }
10249 }
10251 if {[array names growing] ne {}} {
10252 # graph isn't finished, need to check if any tag could get
10253 # eclipsed by another tag coming later. Simply ignore any
10254 # tags that could later get eclipsed.
10255 set ctags {}
10259 }
10260 }
10263 } else {
10265 }
10266 } else {
10268 }
10269 set t3 [clock clicks -milliseconds]
10273 }
10275 }
10277 proc anctags {id} {
10278 global arcnos arcids arcout arcend arctags idtags allparents
10279 global growing cached_atags
10282 return {}
10283 }
10284 set t1 [clock clicks -milliseconds]
10287 # part-way along an arc; check that arc first
10296 }
10297 }
10298 }
10300 return {}
10301 }
10305 }
10306 }
10309 }
10314 set taglist {}
10315 set nc 1
10321 incr nc -1
10322 }
10323 # ignore tags on starting node
10327 set td 1
10330 set td 1
10331 }
10332 }
10338 }
10339 }
10351 }
10352 }
10355 }
10357 incr nc -1
10358 }
10360 }
10361 }
10362 }
10367 incr nc
10368 }
10369 }
10370 }
10371 }
10372 set t2 [clock clicks -milliseconds]
10374 set tags {}
10375 foreach id [array names tagloc] {
10380 }
10381 }
10382 }
10383 }
10385 # remove tags that are ancestors of other tags
10393 incr j -1
10394 incr i -1
10397 incr i -1
10398 break
10399 }
10400 }
10401 }
10403 if {[array names growing] ne {}} {
10404 # graph isn't finished, need to check if any tag could get
10405 # eclipsed by another tag coming later. Simply ignore any
10406 # tags that could later get eclipsed.
10407 set ctags {}
10411 }
10412 }
10415 } else {
10417 }
10418 } else {
10420 }
10421 set t3 [clock clicks -milliseconds]
10425 }
10427 }
10429 # Return the list of IDs that have heads that are descendents of id,
10430 # including id itself if it has a head.
10431 proc descheads {id} {
10432 global arcnos arcstart arcids archeads idheads cached_dheads
10433 global allparents
10436 return {}
10437 }
10438 set aret {}
10440 # part-way along an arc; check it first
10449 }
10450 }
10452 }
10456 set ret {}
10461 } else {
10464 }
10470 }
10471 }
10476 }
10477 }
10478 }
10479 }
10483 }
10485 proc addedtag {id} {
10486 global arcnos arcout cached_dtags cached_atags
10491 }
10492 catch {unset cached_dtags}
10493 catch {unset cached_atags}
10494 }
10496 proc addedhead {hid head} {
10497 global arcnos arcout cached_dheads
10502 }
10503 catch {unset cached_dheads}
10504 }
10506 proc removedhead {hid head} {
10507 global cached_dheads
10509 catch {unset cached_dheads}
10510 }
10512 proc movedhead {hid head} {
10513 global arcnos arcout cached_dheads
10518 }
10519 catch {unset cached_dheads}
10520 }
10522 proc changedrefs {} {
10523 global cached_dheads cached_dtags cached_atags
10524 global arctags archeads arcnos arcout idheads idtags
10526 foreach id [concat [array names idheads] [array names idtags]] {
10532 }
10533 }
10534 }
10535 catch {unset cached_dtags}
10536 catch {unset cached_atags}
10537 catch {unset cached_dheads}
10538 }
10540 proc rereadrefs {} {
10541 global idtags idheads idotherrefs mainheadid
10543 set refids [concat [array names idtags] \
10544 [array names idheads] [array names idotherrefs]]
10548 }
10549 }
10551 readrefs
10552 changedrefs
10554 [array names idheads] [array names idotherrefs]]]
10559 }
10560 }
10564 }
10565 run refill_reflist
10566 }
10568 proc listrefs {id} {
10569 global idtags idheads idotherrefs
10571 set x {}
10574 }
10575 set y {}
10578 }
10579 set z {}
10582 }
10584 }
10586 proc showtag {tag isnew} {
10587 global ctext tagcontents tagids linknum tagobjid
10591 }
10593 clear_ctext
10594 settabs 0
10595 set linknum 0
10597 catch {
10599 }
10600 }
10603 } else {
10605 }
10607 maybe_scroll_ctext 1
10609 init_flist {}
10610 }
10612 proc doquit {} {
10613 global stopped
10614 global gitktmpdir
10616 set stopped 100
10617 savestuff .
10618 destroy .
10620 if {[info exists gitktmpdir]} {
10622 }
10623 }
10625 proc mkfontdisp {font top which} {
10634 }
10636 proc choosefont {font which} {
10637 global fontparam fontlist fonttop fontattr
10638 global prefstop NS
10646 set top .gitkfont
10649 font create sample
10656 set fontlist [lsort [font families]]
10667 -textvariable fontparam(size) \
10668 -validatecommand {string is integer -strict %s}
10670 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10671 -variable fontparam(weight) -onvalue bold -offvalue normal
10673 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10674 -variable fontparam(slant) -onvalue italic -offvalue roman
10678 -background white
10680 -fill black -tags text
10692 trace add variable fontparam write chg_fontparam
10693 } else {
10696 }
10701 }
10702 }
10704 proc centertext {w} {
10706 }
10708 proc fontok {} {
10709 global fontparam fontpref prefstop
10715 }
10718 }
10722 fontcan
10723 }
10725 proc fontcan {} {
10726 global fonttop fontparam
10728 if {[info exists fonttop]} {
10730 catch {font delete sample}
10731 unset fonttop
10732 unset fontparam
10733 }
10734 }
10736 if {[package vsatisfies [package provide Tk] 8.6]} {
10737 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10738 # function to make use of it.
10739 proc choosefont {font which} {
10742 tk fontchooser show
10743 }
10744 proc on_choosefont {font which newfont} {
10745 global fontparam
10754 fontok
10755 }
10756 }
10758 proc selfontfam {} {
10759 global fonttop fontparam
10764 }
10765 }
10767 proc chg_fontparam {v sub op} {
10768 global fontparam
10771 }
10773 proc doprefs {} {
10774 global maxwidth maxgraphpct use_ttk NS
10775 global oldprefs prefstop showneartags showlocalchanges
10776 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10777 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
10778 global hideremotes want_ttk have_ttk
10780 set top .gitkprefs
10784 return
10785 }
10786 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10787 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10789 }
10803 -variable showlocalchanges
10806 -variable autoselect
10810 -variable hideremotes
10819 -variable showneartags
10822 -variable limitdiffs
10825 -variable perfile_attrs
10839 -text [mc "Use themed widgets"]
10842 } else {
10844 }
10874 [mc "diff hunk header"] \
10880 [mc "marked line background"] \
10905 }
10907 proc choose_extdiff {} {
10908 global extdifftool
10910 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10913 }
10914 }
10916 proc choosecolor {v vi w x cmd} {
10925 }
10927 proc setselbg {c} {
10928 global bglist cflist
10931 }
10935 }
10937 # This sets the background color and the color scheme for the whole UI.
10938 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10939 # if we don't specify one ourselves, which makes the checkbuttons and
10940 # radiobuttons look bad. This chooses white for selectColor if the
10941 # background color is light, or black if it is dark.
10942 proc setui {c} {
10943 if {[tk windowingsystem] eq "win32"} { return }
10945 set selc black
10947 set selc white
10948 }
10950 }
10952 proc setbg {c} {
10953 global bglist
10957 }
10958 }
10960 proc setfg {c} {
10961 global fglist canv
10965 }
10969 }
10971 proc prefscan {} {
10972 global oldprefs prefstop
10974 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10975 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10978 }
10980 unset prefstop
10981 fontcan
10982 }
10984 proc prefsok {} {
10985 global maxwidth maxgraphpct
10986 global oldprefs prefstop showneartags showlocalchanges
10987 global fontpref mainfont textfont uifont
10988 global limitdiffs treediffs perfile_attrs
10989 global hideremotes
10992 unset prefstop
10993 fontcan
10994 set fontchanged 0
10998 eval font configure mainfont [fontflags mainfont]
10999 eval font configure mainfontbold [fontflags mainfont 1]
11000 setcoords
11001 set fontchanged 1
11002 }
11006 eval font configure textfont [fontflags textfont]
11007 eval font configure textfontbold [fontflags textfont 1]
11008 }
11012 eval font configure uifont [fontflags uifont]
11013 }
11014 settabs
11017 doshowlocalchanges
11018 } else {
11019 dohidelocalchanges
11020 }
11021 }
11024 # treediffs elements are limited by path;
11025 # won't have encodings cached if perfile_attrs was just turned on
11026 catch {unset treediffs}
11027 }
11030 redisplay
11033 reselectline
11034 }
11036 rereadrefs
11037 }
11038 }
11040 proc formatdate {d} {
11041 global datetimeformat
11044 }
11046 }
11048 # This list of encoding names and aliases is distilled from
11049 # http://www.iana.org/assignments/character-sets.
11050 # Not all of them are supported by Tcl.
11051 set encoding_aliases {
11052 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11053 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11054 { ISO-10646-UTF-1 csISO10646UTF1 }
11055 { ISO_646.basic:1983 ref csISO646basic1983 }
11056 { INVARIANT csINVARIANT }
11057 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11058 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11059 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11060 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11061 { NATS-DANO iso-ir-9-1 csNATSDANO }
11062 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11063 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11064 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11065 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11066 { ISO-2022-KR csISO2022KR }
11067 { EUC-KR csEUCKR }
11068 { ISO-2022-JP csISO2022JP }
11069 { ISO-2022-JP-2 csISO2022JP2 }
11070 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11071 csISO13JISC6220jp }
11072 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11073 { IT iso-ir-15 ISO646-IT csISO15Italian }
11074 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11075 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11076 { greek7-old iso-ir-18 csISO18Greek7Old }
11077 { latin-greek iso-ir-19 csISO19LatinGreek }
11078 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11079 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11080 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11081 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11082 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11083 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11084 { INIS iso-ir-49 csISO49INIS }
11085 { INIS-8 iso-ir-50 csISO50INIS8 }
11086 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11087 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11088 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11089 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11090 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11091 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11092 csISO60Norwegian1 }
11093 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11094 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11095 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11096 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11097 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11098 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11099 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11100 { greek7 iso-ir-88 csISO88Greek7 }
11101 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11102 { iso-ir-90 csISO90 }
11103 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11104 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11105 csISO92JISC62991984b }
11106 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11107 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11108 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11109 csISO95JIS62291984handadd }
11110 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11111 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11112 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11113 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11114 CP819 csISOLatin1 }
11115 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11116 { T.61-7bit iso-ir-102 csISO102T617bit }
11117 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11118 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11119 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11120 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11121 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11122 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11123 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11124 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11125 arabic csISOLatinArabic }
11126 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11127 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11128 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11129 greek greek8 csISOLatinGreek }
11130 { T.101-G2 iso-ir-128 csISO128T101G2 }
11131 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11132 csISOLatinHebrew }
11133 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11134 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11135 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11136 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11137 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11138 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11139 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11140 csISOLatinCyrillic }
11141 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11142 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11143 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11144 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11145 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11146 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11147 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11148 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11149 { ISO_10367-box iso-ir-155 csISO10367Box }
11150 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11151 { latin-lap lap iso-ir-158 csISO158Lap }
11152 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11153 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11154 { us-dk csUSDK }
11155 { dk-us csDKUS }
11156 { JIS_X0201 X0201 csHalfWidthKatakana }
11157 { KSC5636 ISO646-KR csKSC5636 }
11158 { ISO-10646-UCS-2 csUnicode }
11159 { ISO-10646-UCS-4 csUCS4 }
11160 { DEC-MCS dec csDECMCS }
11161 { hp-roman8 roman8 r8 csHPRoman8 }
11162 { macintosh mac csMacintosh }
11163 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11164 csIBM037 }
11165 { IBM038 EBCDIC-INT cp038 csIBM038 }
11166 { IBM273 CP273 csIBM273 }
11167 { IBM274 EBCDIC-BE CP274 csIBM274 }
11168 { IBM275 EBCDIC-BR cp275 csIBM275 }
11169 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11170 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11171 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11172 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11173 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11174 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11175 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11176 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11177 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11178 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11179 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11180 { IBM437 cp437 437 csPC8CodePage437 }
11181 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11182 { IBM775 cp775 csPC775Baltic }
11183 { IBM850 cp850 850 csPC850Multilingual }
11184 { IBM851 cp851 851 csIBM851 }
11185 { IBM852 cp852 852 csPCp852 }
11186 { IBM855 cp855 855 csIBM855 }
11187 { IBM857 cp857 857 csIBM857 }
11188 { IBM860 cp860 860 csIBM860 }
11189 { IBM861 cp861 861 cp-is csIBM861 }
11190 { IBM862 cp862 862 csPC862LatinHebrew }
11191 { IBM863 cp863 863 csIBM863 }
11192 { IBM864 cp864 csIBM864 }
11193 { IBM865 cp865 865 csIBM865 }
11194 { IBM866 cp866 866 csIBM866 }
11195 { IBM868 CP868 cp-ar csIBM868 }
11196 { IBM869 cp869 869 cp-gr csIBM869 }
11197 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11198 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11199 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11200 { IBM891 cp891 csIBM891 }
11201 { IBM903 cp903 csIBM903 }
11202 { IBM904 cp904 904 csIBBM904 }
11203 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11204 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11205 { IBM1026 CP1026 csIBM1026 }
11206 { EBCDIC-AT-DE csIBMEBCDICATDE }
11207 { EBCDIC-AT-DE-A csEBCDICATDEA }
11208 { EBCDIC-CA-FR csEBCDICCAFR }
11209 { EBCDIC-DK-NO csEBCDICDKNO }
11210 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11211 { EBCDIC-FI-SE csEBCDICFISE }
11212 { EBCDIC-FI-SE-A csEBCDICFISEA }
11213 { EBCDIC-FR csEBCDICFR }
11214 { EBCDIC-IT csEBCDICIT }
11215 { EBCDIC-PT csEBCDICPT }
11216 { EBCDIC-ES csEBCDICES }
11217 { EBCDIC-ES-A csEBCDICESA }
11218 { EBCDIC-ES-S csEBCDICESS }
11219 { EBCDIC-UK csEBCDICUK }
11220 { EBCDIC-US csEBCDICUS }
11221 { UNKNOWN-8BIT csUnknown8BiT }
11222 { MNEMONIC csMnemonic }
11223 { MNEM csMnem }
11224 { VISCII csVISCII }
11225 { VIQR csVIQR }
11226 { KOI8-R csKOI8R }
11227 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11228 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11229 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11230 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11231 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11232 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11233 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11234 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11235 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11236 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11237 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11238 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11239 { IBM1047 IBM-1047 }
11240 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11241 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11242 { UNICODE-1-1 csUnicode11 }
11243 { CESU-8 csCESU-8 }
11244 { BOCU-1 csBOCU-1 }
11245 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11246 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11247 l8 }
11248 { ISO-8859-15 ISO_8859-15 Latin-9 }
11249 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11250 { GBK CP936 MS936 windows-936 }
11251 { JIS_Encoding csJISEncoding }
11252 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11253 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11254 EUC-JP }
11255 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11256 { ISO-10646-UCS-Basic csUnicodeASCII }
11257 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11258 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11259 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11260 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11261 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11262 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11263 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11264 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11265 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11266 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11267 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11268 { Ventura-US csVenturaUS }
11269 { Ventura-International csVenturaInternational }
11270 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11271 { PC8-Turkish csPC8Turkish }
11272 { IBM-Symbols csIBMSymbols }
11273 { IBM-Thai csIBMThai }
11274 { HP-Legal csHPLegal }
11275 { HP-Pi-font csHPPiFont }
11276 { HP-Math8 csHPMath8 }
11277 { Adobe-Symbol-Encoding csHPPSMath }
11278 { HP-DeskTop csHPDesktop }
11279 { Ventura-Math csVenturaMath }
11280 { Microsoft-Publishing csMicrosoftPublishing }
11281 { Windows-31J csWindows31J }
11282 { GB2312 csGB2312 }
11283 { Big5 csBig5 }
11284 }
11286 proc tcl_encoding {enc} {
11287 global encoding_aliases tcl_encoding_cache
11290 }
11291 set names [encoding names]
11296 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11299 }
11300 }
11305 # look through the aliases for one that tcl knows about
11311 }
11312 }
11314 }
11315 break
11316 }
11317 }
11318 set tclenc {}
11321 }
11324 }
11326 proc gitattr {path attr default} {
11327 global path_attr_cache
11330 } else {
11331 set r "unspecified"
11334 }
11336 }
11339 }
11341 }
11343 proc cache_gitattr {attr pathlist} {
11344 global path_attr_cache
11345 set newlist {}
11349 }
11350 }
11351 set lim 1000
11352 if {[tk windowingsystem] == "win32"} {
11353 # windows has a 32k limit on the arguments to a command...
11354 set lim 30
11355 }
11364 }
11366 }
11367 }
11368 }
11369 }
11370 }
11372 proc get_path_encoding {path} {
11373 global gui_encoding perfile_attrs
11379 }
11380 }
11382 }
11384 # First check that Tcl/Tk is recent enough
11385 if {[catch {package require Tk 8.4} err]} {
11386 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11387 Gitk requires at least Tcl/Tk 8.4." list
11388 exit 1
11389 }
11391 # defaults...
11392 set wrcomcmd "git diff-tree --stdin -p --pretty"
11394 set gitencoding {}
11395 catch {
11396 set gitencoding [exec git config --get i18n.commitencoding]
11397 }
11398 catch {
11399 set gitencoding [exec git config --get i18n.logoutputencoding]
11400 }
11402 set gitencoding "utf-8"
11403 }
11407 }
11409 set gui_encoding [encoding system]
11410 catch {
11411 set enc [exec git config --get gui.encoding]
11416 } else {
11418 }
11419 }
11420 }
11422 if {[tk windowingsystem] eq "aqua"} {
11423 set mainfont {{Lucida Grande} 9}
11424 set textfont {Monaco 9}
11425 set uifont {{Lucida Grande} 9 bold}
11426 } else {
11427 set mainfont {Helvetica 9}
11428 set textfont {Courier 9}
11429 set uifont {Helvetica 9 bold}
11430 }
11431 set tabstop 8
11432 set findmergefiles 0
11433 set maxgraphpct 50
11434 set maxwidth 16
11435 set revlistorder 0
11436 set fastdate 0
11437 set uparrowlen 5
11438 set downarrowlen 5
11439 set mingaplen 100
11440 set cmitmode "patch"
11441 set wrapcomment "none"
11442 set showneartags 1
11443 set hideremotes 0
11444 set maxrefs 20
11445 set maxlinelen 200
11446 set showlocalchanges 1
11447 set limitdiffs 1
11448 set datetimeformat "%Y-%m-%d %H:%M:%S"
11449 set autoselect 1
11450 set autosellen 40
11451 set perfile_attrs 0
11452 set want_ttk 1
11454 if {[tk windowingsystem] eq "aqua"} {
11455 set extdifftool "opendiff"
11456 } else {
11457 set extdifftool "meld"
11458 }
11460 set colors {green red blue magenta darkgrey brown orange}
11461 if {[tk windowingsystem] eq "win32"} {
11462 set uicolor SystemButtonFace
11463 set bgcolor SystemWindow
11464 set fgcolor SystemButtonText
11465 set selectbgcolor SystemHighlight
11466 } else {
11467 set uicolor grey85
11468 set bgcolor white
11469 set fgcolor black
11470 set selectbgcolor gray85
11471 }
11472 set diffcolors {red "#00a000" blue}
11473 set diffcontext 3
11474 set ignorespace 0
11475 set worddiff ""
11476 set markbgcolor "#e0e0ff"
11478 set circlecolors {white blue gray blue blue}
11480 # button for popping up context menus
11481 if {[tk windowingsystem] eq "aqua"} {
11482 set ctxbut <Button-2>
11483 } else {
11484 set ctxbut <Button-3>
11485 }
11487 ## For msgcat loading, first locate the installation location.
11488 if { [info exists ::env(GITK_MSGSDIR)] } {
11489 ## Msgsdir was manually set in the environment.
11490 set gitk_msgsdir $::env(GITK_MSGSDIR)
11491 } else {
11492 ## Let's guess the prefix from argv0.
11496 unset gitk_prefix
11497 }
11499 ## Internationalization (i18n) through msgcat and gettext. See
11500 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11501 package require msgcat
11502 namespace import ::msgcat::mc
11503 ## And eventually load the actual message catalog
11506 catch {source ~/.gitk}
11509 eval font create mainfont [fontflags mainfont]
11510 eval font create mainfontbold [fontflags mainfont 1]
11513 eval font create textfont [fontflags textfont]
11514 eval font create textfontbold [fontflags textfont 1]
11517 eval font create uifont [fontflags uifont]
11521 setoptions
11523 # check that we can find a .git directory somewhere...
11524 if {[catch {set gitdir [gitdir]}]} {
11525 show_error {} . [mc "Cannot find a git repository here."]
11526 exit 1
11527 }
11530 exit 1
11531 }
11533 set selecthead {}
11534 set selectheadid {}
11536 set revtreeargs {}
11537 set cmdline_files {}
11538 set i 0
11539 set revtreeargscmd {}
11542 "" { }
11543 "--" {
11545 break
11546 }
11547 "--select-commit=*" {
11549 }
11550 "--argscmd=*" {
11552 }
11553 default {
11555 }
11556 }
11557 incr i
11558 }
11561 set selecthead {}
11562 }
11565 # no -- on command line, but some arguments (other than --argscmd)
11566 if {[catch {
11571 # Unfortunately git rev-parse doesn't produce an error when
11572 # something is both a revision and a filename. To be consistent
11573 # with git log and git rev-list, check revtreeargs for filenames.
11576 show_error {} . [mc "Ambiguous argument '%s': both revision\
11578 exit 1
11579 }
11580 }
11581 } err]} {
11583 # so look for "fatal:".
11587 }
11589 exit 1
11590 }
11591 }
11593 set nullid "0000000000000000000000000000000000000000"
11594 set nullid2 "0000000000000000000000000000000000000001"
11595 set nullfile "/dev/null"
11598 if {![info exists have_ttk]} {
11599 set have_ttk [llength [info commands ::ttk::style]]
11600 }
11604 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
11606 set show_notes {}
11608 set show_notes "--show-notes"
11609 }
11611 set runq {}
11612 set history {}
11613 set historyindex 0
11614 set fh_serial 0
11615 set nhl_names {}
11616 set highlight_paths {}
11617 set findpattern {}
11618 set searchdirn -forwards
11619 set boldids {}
11620 set boldnameids {}
11621 set diffelide {0 0}
11622 set markingmatches 0
11623 set linkentercount 0
11624 set need_redisplay 0
11625 set nrows_drawn 0
11626 set firsttabstop 0
11628 set nextviewnum 1
11629 set curview 0
11630 set selectedview 0
11631 set selectedhlview [mc "None"]
11632 set highlight_related [mc "None"]
11633 set highlight_files {}
11634 set viewfiles(0) {}
11635 set viewperm(0) 0
11636 set viewargs(0) {}
11637 set viewargscmd(0) {}
11639 set selectedline {}
11640 set numcommits 0
11641 set loginstance 0
11642 set cmdlineok 0
11643 set stopped 0
11644 set stuffsaved 0
11645 set patchnum 0
11646 set lserial 0
11647 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11648 set cdup {}
11650 set cdup [exec git rev-parse --show-cdup]
11651 }
11652 set worktree [exec git rev-parse --show-toplevel]
11653 setcoords
11654 makewindow
11655 catch {
11656 image create photo gitlogo -width 16 -height 16
11658 image create photo gitlogominus -width 4 -height 2
11659 gitlogominus put #C00000 -to 0 0 4 2
11660 gitlogo copy gitlogominus -to 1 5
11661 gitlogo copy gitlogominus -to 6 5
11662 gitlogo copy gitlogominus -to 11 5
11663 image delete gitlogominus
11665 image create photo gitlogoplus -width 4 -height 4
11666 gitlogoplus put #008000 -to 1 0 3 4
11667 gitlogoplus put #008000 -to 0 1 4 3
11668 gitlogo copy gitlogoplus -to 1 9
11669 gitlogo copy gitlogoplus -to 6 9
11670 gitlogo copy gitlogoplus -to 11 9
11671 image delete gitlogoplus
11673 image create photo gitlogo32 -width 32 -height 32
11674 gitlogo32 copy gitlogo -zoom 2 2
11676 wm iconphoto . -default gitlogo gitlogo32
11677 }
11678 # wait for the window to become visible
11679 tkwait visibility .
11681 update
11682 readrefs
11685 # create a view for the files/dirs specified on the command line
11686 set curview 1
11687 set selectedview 1
11688 set nextviewnum 2
11689 set viewname(1) [mc "Command line"]
11693 set viewperm(1) 0
11694 set vdatemode(1) 0
11695 addviewmenu 1
11696 .bar.view entryconf [mca "Edit view..."] -state normal
11697 .bar.view entryconf [mca "Delete view"] -state normal
11698 }
11700 if {[info exists permviews]} {
11703 incr nextviewnum
11710 }
11711 }
11713 if {[tk windowingsystem] eq "win32"} {
11714 focus -force .
11715 }
11717 getcommits {}
11719 # Local variables:
11720 # mode: tcl
11721 # indent-tabs-mode: t
11722 # tab-width: 8
11723 # End: