| blob | b728345c4c8dbeb5ddcef9767ff775a8f79bfc38 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2009 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 proc gitworktree {} {
22 variable _gitworktree
25 }
26 # v1.7.0 introduced --show-toplevel to return the canonical work-tree
28 # try to set work tree from environment, core.worktree or use
29 # cdup to obtain a relative path to the top of the worktree. If
30 # run from the top, the ./ prefix ensures normalize expands pwd.
35 }
36 }
37 }
39 }
41 # A simple scheduler for compute-intensive stuff.
42 # The aim is to make sure that event handlers for GUI actions can
43 # run at least every 50-100 ms. Unfortunately fileevent handlers are
44 # run before X event handlers, so reading from a fast source can
45 # make the GUI completely unresponsive.
46 proc run args {
47 global isonrunq runq currunq
52 after idle dorunq
53 }
56 }
60 }
63 global runq currunq
67 after idle dorunq
68 }
70 }
73 global runq
79 incr i
80 }
81 }
82 }
84 proc dorunq {} {
85 global isonrunq runq currunq
95 unset currunq
100 # script returns 1 if it wants to be readded
101 # file readers return 2 if they could do more straight away
105 }
108 }
111 }
113 after idle dorunq
114 }
115 }
118 global commfd leftover loginstance
124 }
127 global nr_unmerged
129 # find the list of unmerged files
136 exit 1
137 }
143 incr nr_unmerged
146 }
147 }
150 }
152 proc parseviewargs {n arglist} {
153 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
154 global worddiff git_version
158 set glflags {}
159 set diffargs {}
160 set nextisval 0
161 set revargs {}
163 set allknown 1
164 set filtered 0
165 set i -1
167 incr i
170 set nextisval 0
171 continue
172 }
174 "-d" -
175 "--date-order" {
177 # remove from origargs in case we hit an unknown option
179 incr i -1
180 }
181 "-[puabwcrRBMC]" -
182 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
183 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
184 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
185 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
186 "--ignore-space-change" - "-U*" - "--unified=*" {
187 # These request or affect diff output, which we don't want.
188 # Some could be used to set our defaults for diff display.
189 lappend diffargs $arg
190 }
198 # These cause our parsing of git log's output to fail, or else
199 # they're options we want to set ourselves, so ignore them.
200 }
202 # These trigger a word diff in the console interface,
203 # so help the user by enabling our own support
206 }
207 }
211 }
212 }
217 # These are harmless, and some are even useful
218 lappend glflags $arg
219 }
227 # These mean that we get a subset of the commits
229 lappend glflags $arg
230 }
232 # This appears to be the only one that has a value as a
233 # separate word following it
236 lappend glflags $arg
237 }
239 lappend revargs $arg
240 }
243 # git rev-parse doesn't understand --merge
244 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
245 }
248 }
250 # Other flag arguments including -<n>
254 # a flag argument that we don't recognize;
255 # that means we can't optimize
257 }
258 lappend glflags $arg
259 }
260 default {
261 # Non-flag arguments specify commits or ranges of commits
263 lappend revargs --gitk-symmetric-diff-marker
264 }
265 lappend revargs $arg
266 }
267 }
268 }
275 }
278 global vposids vnegids
281 set revs HEAD
282 }
284 # we get stdout followed by stderr in $err
285 # for an unknown rev, git rev-parse echoes it and then errors out
298 }
301 }
302 break
303 }
304 lappend badrev $line
305 }
306 }
309 }
319 lappend ret $id
322 }
323 }
327 lappend ret $id
330 }
331 lappend pos $id
332 }
333 incr sdm -1
334 }
338 }
340 # Start off a git log process and arrange to read its output
342 global startmsecs commitidx viewcomplete curview
343 global tclencoding
344 global viewargs viewargscmd viewfiles vfilelimit
345 global showlocalchanges
346 global viewactive viewinstances vmergeonly
347 global mainheadid viewmainheadid viewmainheadid_orig
348 global vcanopt vflags vrevs vorigargs
349 global show_notes
353 # these are set this way for the error exits
356 varcinit $view
365 }
367 }
374 global nr_unmerged
381 }
383 }
384 }
391 }
395 }
403 }
409 get_viewmainhead $view
410 }
413 }
417 }
423 }
426 global commfd leftover
429 catch {
436 }
437 }
439 nukefile $fd
442 }
444 proc stop_backends {} {
445 global commfd
448 stop_instance $inst
449 }
450 }
453 global viewinstances
456 stop_instance $inst
457 }
459 }
462 global pending_select mainheadid selectheadid
470 }
471 }
474 global canv curview need_redisplay viewactive
476 initlayout
478 reset_pending_select $selid
483 }
484 }
486 proc updatecommits {} {
487 global curview vcanopt vorigargs vfilelimit viewinstances
488 global viewactive viewcomplete tclencoding
489 global startmsecs showneartags showlocalchanges
490 global mainheadid viewmainheadid viewmainheadid_orig pending_select
491 global isworktree
492 global varcid vposids vnegids vflags vrevs
493 global show_notes
496 rereadrefs
500 dohidelocalchanges
501 }
505 get_viewmainhead $view
506 }
507 }
509 doshowlocalchanges
510 }
516 return
517 }
518 # note: getting the delta when negative refs change is hard,
519 # and could require multiple git log invocations, so in that
520 # case we ask git log for all the commits (not just the delta)
524 # take out positive refs that we asked for before or
525 # that we have already seen
530 lappend newrevs $rev
531 incr npos
532 }
534 lappend $newrevs $rev
535 }
536 }
540 }
544 }
550 return
551 }
554 }
560 }
564 reset_pending_select {}
567 getallcommits
568 }
569 }
571 proc reloadcommits {} {
572 global curview viewcomplete selectedline currentid thickerline
573 global showneartags treediffs commitinterest cached_commitrow
574 global targetid
579 }
582 stop_rev_list $curview
583 }
584 resetvarcs $curview
589 readrefs
590 changedrefs
592 getallcommits
593 }
594 clear_display
598 setcanvscroll
599 getcommits $selid
601 }
603 # This makes a string representation of a positive integer which
604 # sorts as a string in numerical order
612 }
614 }
616 # Procedures used in reordering commits from git log (without
617 # --topo-order) into the order for display.
620 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
621 global vtokmod varcmod vrowmod varcix vlastins
635 }
638 global varcid varccommits parents children vseedcount ordertok
644 }
645 # some commits might have children but haven't been seen yet
648 }
651 }
654 }
656 }
658 # returns a list of the commits with no children
660 global vdownptr vleftptr varcstart
667 }
669 }
672 global varcid varctok parents children vdatemode
673 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
674 global commitdata commitinfo vseedcount varccommits vlastins
681 }
685 }
688 }
694 }
703 }
704 }
709 }
716 }
720 }
727 }
733 }
742 }
745 global varcid varcstart varccommits varctok vtokmod
746 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
754 # "%" sorts before "0"...
764 }
774 }
776 modify_arc $v $oa
777 }
778 }
781 global parents children varctok varcstart varccommits
782 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
791 lappend todo $a
796 }
797 }
798 }
799 incr ntot
806 }
807 }
809 }
816 }
822 }
831 }
832 }
837 }
839 continue
840 }
847 }
848 }
853 modify_arc $v $ka
854 }
856 modify_arc $v $b
857 }
864 }
867 }
870 }
879 }
884 }
891 }
895 }
897 }
898 }
903 }
904 }
906 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
907 }
909 # Fix up the graph after we have found out that in view $v,
910 # $p (a commit that we have already seen) is actually the parent
911 # of the last commit in arc $a.
913 global varcid varcstart varctok vupptr
917 splitvarc $p $v
919 }
920 # seeds always need to be renumbered
924 renumbervarc $pa $v
925 }
926 }
929 global cmitlisted children parents varcid varctok vtokmod
930 global varccommits ordertok commitidx numcommits curview
931 global targetid targetrow
933 readcommit $id
941 modify_arc $v $a
942 }
948 }
949 fix_reversal $p $a $v
953 setcanvscroll
956 incr targetrow
957 }
958 }
959 }
960 }
963 global varcid varccommits parents children cmitlisted
964 global commitidx varctok vtokmod targetid targetrow curview numcommits
971 return
972 }
979 # note we deliberately don't update varcstart($v) even if $i == 0
981 modify_arc $v $a $i
984 incr targetrow
985 }
986 }
987 setcanvscroll
988 drawvisible
989 }
992 global varcid varccommits parents children commitidx
993 global varctok vtokmod cmitlisted currentid selectedline
994 global targetid curview numcommits
999 return
1000 }
1006 return
1007 }
1017 }
1018 modify_arc $v $a $i
1020 unset currentid
1022 }
1025 }
1026 setcanvscroll
1027 drawvisible
1028 }
1031 global children nullid nullid2
1036 lappend kids $id
1037 }
1038 }
1040 }
1043 global children nullid nullid2
1048 }
1049 }
1051 }
1054 global children nullid nullid2
1061 }
1062 }
1064 }
1067 global varctok varcid
1071 }
1073 # This assumes that if lim is not given, the caller has checked that
1074 # arc a's token is less than $vtokmod($v)
1076 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1084 }
1085 }
1092 }
1097 }
1099 }
1101 undolayout $r
1102 }
1103 }
1106 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1107 global varcid vrownum varcorder varcix varccommits
1108 global vupptr vdownptr vleftptr varctok
1109 global displayorder parentlist curview cached_commitrow
1116 }
1118 }
1122 # go up the tree until we find something that has a row number,
1123 # or we get to a seed
1125 }
1140 }
1142 }
1146 # go down if possible
1149 # if not, go left, or go up until we can go left
1154 }
1156 }
1158 incr arcn
1163 }
1169 }
1170 }
1172 # Test whether view $v contains commit $id
1174 global varcid
1177 }
1179 # Return the row number for commit $id in the current view
1181 global varcid varccommits varcrow curview cached_commitrow
1182 global varctok vtokmod
1188 }
1191 update_arcrows $v
1192 }
1195 }
1200 }
1204 }
1206 # Returns 1 if a is on an earlier row than b, otherwise 0
1208 global varcid varctok curview
1214 }
1218 }
1220 }
1225 }
1237 }
1238 }
1240 }
1242 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1244 global vrownum curview commitidx displayorder parentlist
1245 global varccommits varcorder parents vrowmod varcrow
1246 global d_valid_start d_valid_end
1249 update_arcrows $curview
1250 }
1266 }
1268 lappend displayorder $id
1270 }
1274 lset displayorder $i $id
1276 incr i
1277 }
1278 }
1279 incr r $al
1280 }
1281 }
1284 global displayorder
1290 }
1292 }
1295 global varctok varccommits varcid parents children
1296 global cmitlisted commitidx vtokmod
1305 # add p as a new commit
1306 incr missing_parents
1314 }
1317 modify_arc $v $b
1318 }
1322 }
1323 }
1327 }
1328 }
1329 }
1331 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1332 # Assumes we already have an arc for $rwid.
1334 global children parents varcid varctok vtokmod varccommits
1337 # make $rwid be $ch's parent in place of $id
1341 }
1343 # add $ch to $rwid's children and sort the list if necessary
1347 }
1348 # fix the graph after joining $id to $rwid
1350 fix_reversal $rwid $a $v
1351 # parentlist is wrong for the last element of arc $a
1352 # even if displayorder is right, hence the 3rd arg here
1354 }
1355 }
1357 # Mechanism for registering a command to be executed when we come
1358 # across a particular commit. To handle the case when only the
1359 # prefix of the commit is known, the commitinterest array is now
1360 # indexed by the first 4 characters of the ID. Each element is a
1361 # list of id, cmd pairs.
1363 global commitinterest
1366 }
1369 global commitinterest
1378 lappend newlist $i $script
1379 }
1380 }
1385 }
1386 }
1388 }
1391 global cmitlisted leftover
1392 global commitidx commitdata vdatemode
1393 global parents children curview hlview
1394 global idpending ordertok
1395 global varccommits varcid varctok vtokmod vfilelimit
1398 # git log doesn't terminate the last commit with a null...
1401 }
1405 }
1406 global commfd viewcomplete viewactive viewname
1407 global viewinstances
1412 }
1413 # set it blocking so we wait for the process to terminate
1419 }
1422 bad arguments to git log."
1424 append err \
1425 " (Note: arguments to gitk are passed to git log\
1426 to allow selection of commits to be displayed.)"
1427 }
1430 }
1431 error_popup $err
1432 }
1435 # Check if we have seen any ids listed as parents that haven't
1436 # appeared in the list
1437 closevarcs $view
1438 notbusy $view
1439 }
1441 run chewcommits
1442 }
1444 }
1452 break
1453 }
1460 }
1473 }
1475 }
1480 break
1481 }
1482 }
1483 }
1488 }
1490 exit 1
1491 }
1498 # when doing path limiting, so work around that here
1499 # by working out the rewritten parent with git rev-list
1500 # and if we already know about it, using the rewritten
1501 # parent as a substitute parent for $id's children.
1505 }]} {
1507 # use $rwid in place of $id
1508 rewrite_commit $view $id $rwid
1509 continue
1510 }
1511 }
1512 }
1518 }
1523 }
1535 }
1536 }
1538 # new arc
1540 }
1542 modify_arc $view $a
1543 }
1548 }
1559 }
1561 fix_reversal $p $a $view
1562 }
1563 }
1564 incr i
1565 }
1569 }
1571 global numcommits hlview
1575 run chewcommits
1576 }
1578 # we never actually get here...
1579 run vhighlightmore
1580 }
1583 }
1584 }
1586 }
1588 proc chewcommits {} {
1589 global curview hlview viewcomplete
1590 global pending_select
1592 layoutmore
1594 global commitidx varctok
1595 global numcommits startmsecs
1598 update
1599 reset_pending_select {}
1606 }
1607 }
1609 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1610 #puts "overall $ms ms for $numcommits commits"
1611 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1614 }
1615 notbusy layout
1616 }
1618 }
1621 global tclencoding
1623 # Invoke git-log to handle automatic encoding conversion
1625 # Read the results using i18n.logoutputencoding
1629 }
1631 close $fd
1632 # Remove the heading line
1636 }
1641 }
1644 global commitinfo cdate
1655 # should never happen...
1657 }
1669 }
1670 }
1672 # take the first non-blank line of the comment as the headline
1677 }
1682 }
1684 # git log indents the comment by 4 spaces;
1685 # if we got this via git cat-file, add the indentation
1688 append newcomment " "
1689 append newcomment $line
1691 }
1693 }
1696 }
1699 }
1702 global commitdata commitinfo
1707 readcommit $id
1710 }
1711 }
1713 }
1715 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1716 # and are present in the current view.
1717 # This is fairly slow...
1719 global varcid curview
1724 }
1726 }
1728 proc readrefs {} {
1729 global tagids idtags headids idheads tagobjid
1730 global otherrefids idotherrefs mainhead mainheadid
1731 global selecthead selectheadid
1732 global hideremotes
1736 }
1748 }
1754 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1755 # which is what we want since the former is the commit ID
1761 }
1767 }
1768 }
1772 catch {
1777 }
1778 }
1781 catch {
1783 }
1784 }
1785 }
1787 # skip over fake commits
1788 proc first_real_row {} {
1789 global nullid nullid2 numcommits
1794 break
1795 }
1796 }
1798 }
1800 # update things for a head moved to a child of its previous location
1802 global headids idheads
1807 }
1809 # update things when a head has been removed
1811 global headids idheads
1819 }
1820 }
1822 }
1825 global use_ttk
1829 }
1831 }
1834 global have_tk85
1836 # In MacOS Tk 8.4 transient appears to work by setting
1837 # overrideredirect, which is utterly useless, since the
1838 # windows get no border, and are not even kept above
1839 # the parent.
1842 wm transient $window $origin
1844 # Windows fails to place transient windows normally, so
1845 # schedule a callback to center them on the parent.
1848 }
1849 }
1852 global NS
1863 tkwait window $top
1864 }
1871 set w .error
1872 ttk_toplevel $w
1873 make_transient $w $owner
1874 show_error $w $w $msg
1875 }
1876 }
1879 global confirm_ok NS
1881 set w .confirm
1882 ttk_toplevel $w
1883 make_transient $w $owner
1895 tkwait window $w
1897 }
1899 proc setoptions {} {
1902 option add *Panedwindow.sashRelief raised startupFile
1904 option add *Menu.font uifont startupFile
1905 }
1908 }
1909 option add *Button.font uifont startupFile
1910 option add *Checkbutton.font uifont startupFile
1911 option add *Radiobutton.font uifont startupFile
1912 option add *Menubutton.font uifont startupFile
1913 option add *Label.font uifont startupFile
1914 option add *Message.font uifont startupFile
1915 option add *Entry.font textfont startupFile
1916 option add *Text.font textfont startupFile
1917 option add *Labelframe.font uifont startupFile
1918 option add *Spinbox.font textfont startupFile
1919 option add *Listbox.font mainfont startupFile
1920 }
1922 # Make a menu and submenus.
1923 # m is the window name for the menu, items is the list of menu items to add.
1924 # Each item is a list {mc label type description options...}
1925 # mc is ignored; it's so we can put mc there to alert xgettext
1926 # label is the string that appears in the menu
1927 # type is cascade, command or radiobutton (should add checkbutton)
1928 # description depends on type; it's the sublist for cascade, the
1929 # command to invoke for command, or {variable value} for radiobutton
1931 menu $m
1933 set Meta1 Cmd
1935 set Meta1 Ctrl
1936 }
1947 }
1948 }
1953 }
1956 }
1960 }
1961 }
1967 }
1968 }
1969 }
1971 # translate string and remove ampersands
1974 }
1977 global use_ttk
1983 }
1988 }
1990 }
1992 proc makewindow {} {
1993 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1994 global tabstop
1995 global findtype findtypemenu findloc findstring fstring geometry
1996 global entries sha1entry sha1string sha1but
1997 global diffcontextstring diffcontext
1998 global ignorespace
1999 global maincursor textcursor curtextcursor
2000 global rowctxmenu fakerowmenu mergemax wrapcomment
2001 global highlight_files gdttype
2002 global searchstring sstring
2003 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
2004 global headctxmenu progresscanv progressitem progresscoords statusw
2005 global fprogitem fprogcoord lastprogupdate progupdatepending
2006 global rprogitem rprogcoord rownumsel numcommits
2007 global have_tk85 use_ttk NS
2008 global git_version
2009 global worddiff
2011 # The "mc" arguments here are purely so that xgettext
2012 # sees the following string as needing to be translated
2023 }}
2027 }}
2035 }}
2041 }}
2051 }}
2055 }}
2057 }
2058 makemenu .bar $bar
2059 . configure -menu .bar
2062 # cover the non-themed toplevel with a themed frame.
2064 }
2066 # the gui has upper and lower half, parts of a paned window.
2069 # possibly use assumed geometry
2077 }
2079 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2085 }
2087 # create three canvases
2088 set cscroll .tf.histframe.csb
2089 set canv .tf.histframe.pwclist.canv
2090 canvas $canv \
2094 .tf.histframe.pwclist add $canv
2095 set canv2 .tf.histframe.pwclist.canv2
2096 canvas $canv2 \
2099 .tf.histframe.pwclist add $canv2
2100 set canv3 .tf.histframe.pwclist.canv3
2101 canvas $canv3 \
2104 .tf.histframe.pwclist add $canv3
2110 }
2114 }
2116 # a scroll bar to rule them
2121 lappend bglist $canv $canv2 $canv3
2124 # we have two button bars at bottom of top frame. Bar 1
2128 set sha1entry .tf.bar.sha1
2130 set sha1but .tf.bar.sha1label
2134 pack .tf.bar.sha1label -side left
2136 trace add variable sha1string write sha1change
2140 #define left_width 16
2141 #define left_height 16
2142 static unsigned char left_bits[] = {
2146 }
2148 #define right_width 16
2149 #define right_height 16
2150 static unsigned char right_bits[] = {
2154 }
2169 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2170 -side left
2173 }
2174 global selectedline
2175 trace add variable selectedline write selectedline_change
2177 # Status label and progress bar
2178 set statusw .tf.bar.status
2185 set progresscanv .tf.bar.progress
2190 }
2199 # build up the bottom bar of upper window
2204 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2211 trace add variable gdttype write gdttype_change
2215 set fstring .tf.lbar.findstring
2216 lappend entries $fstring
2218 trace add variable findstring write find_change
2222 trace add variable findtype write findcom_change
2226 trace add variable findloc write find_change
2227 pack .tf.lbar.findloc -side right
2228 pack .tf.lbar.findtype -side right
2231 # Finish putting the upper half of the viewer together
2235 .ctop add .tf
2239 }
2241 # now build up the bottom
2244 # lower left, a text box over search bar, scroll bar to the right
2245 # if we know window height, then that will set the lower text height, otherwise
2246 # we set lower text height which will drive window height
2251 }
2258 set sstring .bleft.top.sstring
2261 lappend entries $sstring
2262 trace add variable searchstring write incrsearch
2275 -textvariable diffcontextstring
2277 trace add variable diffcontextstring write diffcontextchange
2278 lappend entries .bleft.mid.diffcontext
2279 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2288 trace add variable worddiff write changeworddiff
2290 }
2292 set ctext .bleft.bottom.ctext
2299 }
2305 grid .bleft.bottom.sbhorizontal -sticky ew
2310 lappend bglist $ctext
2311 lappend fglist $ctext
2340 .pwbottom add .bleft
2343 }
2345 # lower right
2354 set cflist .bright.cfiles
2356 text $cflist \
2359 -font mainfont \
2364 lappend bglist $cflist
2365 lappend fglist $cflist
2369 $cflist tag configure highlight \
2373 .pwbottom add .bright
2374 .ctop add .pwbottom
2376 # restore window width & height if known
2381 }
2384 }
2386 }
2387 }
2391 }
2394 set M1B M1
2397 set M1B Control
2399 }
2405 }
2409 }
2410 }
2415 #bindall <B1-Motion> {selcanvline %W %x %y}
2425 allcanvs yview scroll $delta units
2426 }
2430 }
2431 }
2432 }
2456 bindkey p "selnextline -1"
2457 bindkey n "selnextline 1"
2458 bindkey z "goback"
2459 bindkey x "goforw"
2460 bindkey i "selnextline -1"
2461 bindkey k "selnextline 1"
2462 bindkey j "goback"
2463 bindkey l "goforw"
2464 bindkey b prevfile
2471 bindkey f nextfile
2488 wm protocol . WM_DELETE_WINDOW doquit
2497 global ctxbut
2502 set maincursor [. cget -cursor]
2506 set rowctxmenu .rowctxmenu
2508 {mc "Diff this -> selected" command {diffvssel 0}}
2509 {mc "Diff selected -> this" command {diffvssel 1}}
2510 {mc "Make patch" command mkpatch}
2511 {mc "Create tag" command mktag}
2512 {mc "Write commit to file" command writecommit}
2513 {mc "Create new branch" command mkbranch}
2514 {mc "Cherry-pick this commit" command cherrypick}
2515 {mc "Reset HEAD branch to here" command resethead}
2516 {mc "Mark this commit" command markhere}
2517 {mc "Return to mark" command gotomark}
2518 {mc "Find descendant of this and mark" command find_common_desc}
2519 {mc "Compare with marked commit" command compare_commits}
2520 }
2523 set fakerowmenu .fakerowmenu
2525 {mc "Diff this -> selected" command {diffvssel 0}}
2526 {mc "Diff selected -> this" command {diffvssel 1}}
2527 {mc "Make patch" command mkpatch}
2528 }
2531 set headctxmenu .headctxmenu
2533 {mc "Check out this branch" command cobranch}
2534 {mc "Remove this branch" command rmbranch}
2535 }
2538 global flist_menu
2539 set flist_menu .flistctxmenu
2541 {mc "Highlight this too" command {flist_hl 0}}
2542 {mc "Highlight this only" command {flist_hl 1}}
2543 {mc "External diff" command {external_diff}}
2544 {mc "Blame parent commit" command {external_blame 1}}
2545 }
2548 global diff_menu
2549 set diff_menu .diffctxmenu
2551 {mc "Show origin of this line" command show_line_source}
2552 {mc "Run git gui blame on this line" command {external_blame_diff}}
2553 }
2555 }
2557 # Windows sends all mouse wheel events to the current focused window, not
2558 # the one where the mouse hovers, so bind those events here and redirect
2559 # to the correct window
2560 proc windows_mousewheel_redirector {W X Y D} {
2561 global canv canv2 canv3
2567 } else {
2568 catch {
2570 }
2571 }
2572 }
2573 }
2575 # Update row number label when selectedline changes
2576 proc selectedline_change {n1 n2 op} {
2577 global selectedline rownumsel
2580 set rownumsel {}
2581 } else {
2583 }
2584 }
2586 # mouse-2 makes all windows scan vertically, but only the one
2587 # the cursor is in scans horizontally
2588 proc canvscan {op w x y} {
2589 global canv canv2 canv3
2593 } else {
2595 }
2596 }
2597 }
2599 proc scrollcanv {cscroll f0 f1} {
2601 drawvisible
2602 flushhighlights
2603 }
2605 # when we make a key binding for the toplevel, make sure
2606 # it doesn't get triggered when that key is pressed in the
2607 # find string entry widget.
2608 proc bindkey {ev script} {
2609 global entries
2613 set escript [bind Entry <Key>]
2614 }
2617 }
2618 }
2620 # set the focus back to the toplevel for any click outside
2621 # the entry widgets
2622 proc click {w} {
2623 global ctext entries
2626 }
2627 focus .
2628 }
2630 # Adjust the progress bar for a change in requested extent or canvas size
2631 proc adjustprogress {} {
2632 global progresscanv progressitem progresscoords
2633 global fprogitem fprogcoord lastprogupdate progupdatepending
2634 global rprogitem rprogcoord use_ttk
2638 return
2639 }
2648 set now [clock clicks -milliseconds]
2650 set progupdatepending 0
2651 update
2653 set progupdatepending 1
2655 }
2656 }
2658 proc doprogupdate {} {
2659 global lastprogupdate progupdatepending
2662 set progupdatepending 0
2663 set lastprogupdate [clock clicks -milliseconds]
2664 update
2665 }
2666 }
2668 proc savestuff {w} {
2669 global canv canv2 canv3 mainfont textfont uifont tabstop
2670 global stuffsaved findmergefiles maxgraphpct
2671 global maxwidth showneartags showlocalchanges
2672 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2673 global cmitmode wrapcomment datetimeformat limitdiffs
2674 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2675 global autoselect autosellen extdifftool perfile_attrs markbgcolor use_ttk
2676 global hideremotes want_ttk
2679 if {![winfo viewable .]} return
2680 catch {
2681 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2682 set f [open "~/.gitk-new" w]
2683 if {$::tcl_platform(platform) eq {windows}} {
2684 file attributes "~/.gitk-new" -hidden true
2685 }
2721 } else {
2724 }
2732 }
2733 }
2736 file rename -force "~/.gitk-new" "~/.gitk"
2737 }
2738 set stuffsaved 1
2739 }
2741 proc resizeclistpanes {win w} {
2742 global oldwidth use_ttk
2747 } else {
2750 }
2754 } else {
2759 set sash0 30
2760 }
2763 }
2768 }
2769 }
2770 }
2774 } else {
2777 }
2778 }
2780 }
2782 proc resizecdetpanes {win w} {
2783 global oldwidth use_ttk
2787 } else {
2789 }
2792 } else {
2796 set sash0 45
2797 }
2800 }
2801 }
2804 } else {
2806 }
2807 }
2809 }
2811 proc allcanvs args {
2812 global canv canv2 canv3
2816 }
2818 proc bindall {event action} {
2819 global canv canv2 canv3
2823 }
2825 proc about {} {
2826 global uifont NS
2827 set w .about
2830 return
2831 }
2836 Gitk - a commit viewer for git
2838 Copyright \u00a9 2005-2010 Paul Mackerras
2840 Use and redistribute under the terms of the GNU General Public License"] \
2841 -justify center -aspect 400 -border 2 -bg white -relief groove
2849 }
2851 proc keys {} {
2852 global NS
2853 set w .keys
2856 return
2857 }
2858 if {[tk windowingsystem] eq {aqua}} {
2859 set M1T Cmd
2860 } else {
2861 set M1T Ctrl
2862 }
2867 [mc "Gitk key bindings:"]
2871 [mc "<Home> Move to first commit"]
2872 [mc "<End> Move to last commit"]
2873 [mc "<Up>, p, i Move up one commit"]
2874 [mc "<Down>, n, k Move down one commit"]
2875 [mc "<Left>, z, j Go back in history list"]
2876 [mc "<Right>, x, l Go forward in history list"]
2877 [mc "<PageUp> Move up one page in commit list"]
2878 [mc "<PageDown> Move down one page in commit list"]
2885 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2886 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2887 [mc "<Delete>, b Scroll diff view up one page"]
2888 [mc "<Backspace> Scroll diff view up one page"]
2889 [mc "<Space> Scroll diff view down one page"]
2890 [mc "u Scroll diff view up 18 lines"]
2891 [mc "d Scroll diff view down 18 lines"]
2894 [mc "<Return> Move to next find hit"]
2895 [mc "/ Focus the search box"]
2896 [mc "? Move to previous find hit"]
2897 [mc "f Scroll diff view to next file"]
2904 [mc "<F5> Update"]
2905 " \
2906 -justify left -bg white -border 2 -relief groove
2914 }
2916 # Procedures for manipulating the file list window at the
2917 # bottom right of the overall window.
2919 proc treeview {w l openlevs} {
2920 global treecontents treediropen treeheight treeparent treeindex
2922 set ix 0
2923 set treeindex() 0
2924 set lev 0
2925 set prefix {}
2926 set prefixend -1
2927 set prefendstack {}
2928 set htstack {}
2929 set ht 0
2930 set treecontents() {}
2937 }
2944 incr lev -1
2945 }
2949 set ht 0
2961 set ht 1
2966 set str "\n"
2974 }
2975 incr lev
2976 }
2979 incr ht
2980 set str "\n"
2984 }
2986 }
2987 }
2995 }
2997 }
2999 proc linetoelt {l} {
3000 global treeheight treecontents
3002 set y 2
3003 set prefix {}
3004 while {1} {
3008 }
3009 set n 1
3014 incr y
3015 break
3016 }
3017 }
3019 }
3020 }
3021 }
3023 proc highlight_tree {y prefix} {
3024 global treeheight treecontents cflist
3030 }
3031 incr y
3034 }
3035 }
3037 }
3039 proc treeclosedir {w dir} {
3040 global treediropen treeheight treeparent treeindex
3052 }
3053 }
3055 proc treeopendir {w dir} {
3056 global treediropen treeheight treeparent treecontents treeindex
3063 set lev 0
3064 set str "\n"
3067 incr lev
3068 append str "\t"
3070 }
3085 } else {
3088 }
3089 }
3102 }
3104 }
3105 }
3107 proc treeclick {w x y} {
3108 global treediropen cmitmode ctext cflist cflist_top
3111 if {![info exists cflist_top]} return
3118 return
3119 }
3125 } else {
3127 }
3128 }
3130 proc setfilelist {id} {
3131 global treefilelist cflist jump_to_here
3138 }
3139 }
3140 }
3142 image create bitmap tri-rt -background black -foreground blue -data {
3143 #define tri-rt_width 13
3144 #define tri-rt_height 13
3145 static unsigned char tri-rt_bits[] = {
3146 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3147 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3148 0x00, 0x00};
3149 } -maskdata {
3150 #define tri-rt-mask_width 13
3151 #define tri-rt-mask_height 13
3152 static unsigned char tri-rt-mask_bits[] = {
3153 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3154 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3155 0x08, 0x00};
3156 }
3157 image create bitmap tri-dn -background black -foreground blue -data {
3158 #define tri-dn_width 13
3159 #define tri-dn_height 13
3160 static unsigned char tri-dn_bits[] = {
3161 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3162 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3163 0x00, 0x00};
3164 } -maskdata {
3165 #define tri-dn-mask_width 13
3166 #define tri-dn-mask_height 13
3167 static unsigned char tri-dn-mask_bits[] = {
3168 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3169 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3170 0x00, 0x00};
3171 }
3173 image create bitmap reficon-T -background black -foreground yellow -data {
3174 #define tagicon_width 13
3175 #define tagicon_height 9
3176 static unsigned char tagicon_bits[] = {
3177 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3178 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3179 } -maskdata {
3180 #define tagicon-mask_width 13
3181 #define tagicon-mask_height 9
3182 static unsigned char tagicon-mask_bits[] = {
3183 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3184 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3185 }
3186 set rectdata {
3187 #define headicon_width 13
3188 #define headicon_height 9
3189 static unsigned char headicon_bits[] = {
3190 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3191 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3192 }
3193 set rectmask {
3194 #define headicon-mask_width 13
3195 #define headicon-mask_height 9
3196 static unsigned char headicon-mask_bits[] = {
3197 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3198 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3199 }
3200 image create bitmap reficon-H -background black -foreground green \
3202 image create bitmap reficon-o -background black -foreground "#ddddff" \
3205 proc init_flist {first} {
3206 global cflist cflist_top difffilestart
3212 set cflist_top 1
3214 } else {
3215 catch {unset cflist_top}
3216 }
3218 set difffilestart {}
3219 }
3221 proc highlight_tag {f} {
3222 global highlight_paths
3226 return "bold"
3227 }
3228 }
3229 return {}
3230 }
3232 proc highlight_filelist {} {
3233 global cmitmode cflist
3242 }
3243 }
3244 } else {
3245 highlight_tree 2 {}
3246 }
3248 }
3250 proc unhighlight_filelist {} {
3251 global cflist
3256 }
3258 proc add_flist {fl} {
3259 global cflist
3265 }
3267 }
3269 proc sel_flist {w x y} {
3270 global ctext difffilestart cflist cflist_top cmitmode
3273 if {![info exists cflist_top]} return
3280 } else {
3282 }
3283 }
3285 proc pop_flist_menu {w X Y x y} {
3286 global ctext cflist cmitmode flist_menu flist_menu_file
3287 global treediffs diffids
3289 stopfinding
3295 } else {
3297 }
3299 set xdiffstate "normal"
3301 set xdiffstate "disabled"
3302 }
3303 # Disable "External diff" item in tree mode
3306 }
3308 proc find_ctext_fileinfo {line} {
3309 global ctext_file_names ctext_file_lines
3315 return {}
3316 } else {
3318 }
3319 }
3321 proc pop_diff_menu {w X Y x y} {
3322 global ctext diff_menu flist_menu_file
3323 global diff_menu_txtpos diff_menu_line
3324 global diff_menu_filebase
3328 # don't pop up the menu on hunk-separator or file-separator lines
3330 return
3331 }
3332 stopfinding
3338 }
3340 proc flist_hl {only} {
3341 global flist_menu_file findstring gdttype
3346 } else {
3348 }
3349 set gdttype [mc "touching paths:"]
3350 }
3352 proc gitknewtmpdir {} {
3353 global diffnum gitktmpdir gitdir
3355 if {![info exists gitktmpdir]} {
3357 [format ".gitk-tmp.%s" [pid]]]
3360 unset gitktmpdir
3361 return {}
3362 }
3363 set diffnum 0
3364 }
3365 incr diffnum
3369 return {}
3370 }
3372 }
3374 proc save_file_from_commit {filename output what} {
3375 global nullfile
3380 }
3382 return {}
3383 }
3385 }
3387 proc external_diff_get_one_file {diffid filename diffdir} {
3388 global nullid nullid2 nullfile
3389 global gitdir
3395 }
3397 }
3401 }
3405 }
3407 proc external_diff {} {
3408 global nullid nullid2
3409 global flist_menu_file
3410 global diffids
3411 global extdifftool
3414 # no reference commit given
3417 # diffing working copy with index
3420 # diffing index with HEAD
3421 set diffidfrom "HEAD"
3422 } else {
3423 # use first parent commit
3424 global parentlist selectedline
3426 }
3427 } else {
3430 }
3432 # make sure that several diffs wont collide
3433 set diffdir [gitknewtmpdir]
3436 # gather files to diff
3445 } else {
3448 }
3449 }
3450 }
3452 proc find_hunk_blamespec {base line} {
3453 global ctext
3455 # Find and parse the hunk header
3461 s_line old_specs osz osz1 new_line nsz]} {
3462 return
3463 }
3465 # base lines for the parents
3469 old_spec old_line osz]} {
3470 return
3471 }
3473 }
3475 # Now scan the lines to determine offset within the hunk
3477 set dline 0
3480 # Determine if the line is removed
3484 # Choose a parent index
3487 } else {
3491 } else {
3492 # blame the current commit
3493 set parent -1
3494 }
3495 }
3496 # then count other lines that belong to it
3499 # Determine if the line is removed
3504 incr dline
3505 }
3506 } else {
3508 incr dline
3509 }
3510 }
3511 }
3512 incr parent
3513 } else {
3514 set parent 0
3515 }
3519 }
3521 proc external_blame_diff {} {
3522 global currentid cmitmode
3523 global diff_menu_txtpos diff_menu_line
3524 global diff_menu_filebase flist_menu_file
3527 set parent_idx 0
3529 } else {
3534 } else {
3535 set parent_idx 0
3536 set line 0
3537 }
3538 }
3541 }
3544 # at stage 0 or 2
3545 proc index_sha1 {fname} {
3553 }
3554 }
3556 return {}
3557 }
3559 # Turn an absolute path into one relative to the current directory
3560 proc make_relative {f} {
3563 }
3565 set here [file split [pwd]]
3566 set ei 0
3567 set hi 0
3568 set res {}
3571 lappend res ".."
3572 } else {
3573 incr ei
3574 }
3575 incr hi
3576 }
3579 }
3581 proc external_blame {parent_idx {line {}}} {
3582 global flist_menu_file gitdir
3583 global nullid nullid2
3584 global parentlist selectedline currentid
3588 } else {
3590 }
3593 error_popup [mc "No such commit"]
3594 return
3595 }
3597 set cmdline [list git gui blame]
3600 }
3602 # Unfortunately it seems git gui blame doesn't like
3603 # being given an absolute path...
3608 }
3609 }
3611 proc show_line_source {} {
3612 global cmitmode currentid parents curview blamestuff blameinst
3613 global diff_menu_line diff_menu_filebase flist_menu_file
3614 global nullid nullid2 gitdir
3616 set from_index {}
3620 } else {
3626 return
3627 }
3628 incr pi -1
3631 # must be a merge in progress...
3632 if {[catch {
3633 # get the last line from .git/MERGE_HEAD
3637 } err]} {
3639 return
3640 }
3642 # need to do the blame from the index
3643 if {[catch {
3645 } err]} {
3647 return
3648 }
3649 } else {
3651 }
3652 } else {
3654 }
3656 }
3657 set blameargs {}
3660 }
3663 lappend blameargs --contents -
3664 } else {
3666 }
3668 if {[catch {
3670 } err]} {
3672 return
3673 }
3674 nowbusy blaming [mc "Searching"]
3680 }
3682 proc stopblaming {} {
3683 global blameinst
3685 if {[info exists blameinst]} {
3687 unset blameinst
3688 notbusy blaming
3689 }
3690 }
3692 proc read_line_source {fd inst} {
3693 global blamestuff curview commfd blameinst nullid nullid2
3697 }
3699 return 1
3700 }
3702 unset blameinst
3703 notbusy blaming
3707 return 0
3708 }
3710 set fname {}
3716 # look for "filename" line
3720 break
3721 }
3722 }
3723 }
3725 # all looks good, select it
3727 # blame uses all-zeroes to mean not committed,
3728 # which would mean a change in the index
3730 }
3733 } else {
3734 error_popup [mc "That line comes from commit %s, \
3736 }
3737 } else {
3738 puts "oops couldn't parse git blame output"
3739 }
3740 return 0
3741 }
3744 proc delete_at_eof {f dir} {
3749 }
3751 return 0
3752 }
3753 return 1
3754 }
3756 # Functions for adding and removing shell-type quoting
3758 proc shellquote {str} {
3761 }
3764 }
3767 }
3769 }
3771 proc shellarglist {l} {
3772 set str {}
3775 append str " "
3776 }
3778 }
3780 }
3782 proc shelldequote {str} {
3783 set ret {}
3784 set used -1
3785 while {1} {
3786 incr used
3790 break
3791 }
3797 }
3799 incr used
3803 error "unmatched single-quote"
3804 }
3807 continue
3808 }
3811 error "trailing backslash"
3812 }
3814 continue
3815 }
3816 # here ch == "\""
3817 while {1} {
3819 error "unmatched double-quote"
3820 }
3826 }
3828 incr used
3830 incr used
3831 }
3832 }
3834 }
3836 proc shellsplit {str} {
3837 set l {}
3838 while {1} {
3846 }
3848 }
3850 # Code to implement multiple views
3852 proc newview {ishighlight} {
3853 global nextviewnum newviewname newishighlight
3854 global revtreeargs viewargscmd newviewopts curview
3857 set top .gitkview
3860 return
3861 }
3867 }
3869 set known_view_options {
3870 {perm b . {} {mc "Remember this view"}}
3871 {reflabel l + {} {mc "References (space separated list):"}}
3872 {refs t15 .. {} {mc "Branches & tags:"}}
3873 {allrefs b *. "--all" {mc "All refs"}}
3874 {branches b . "--branches" {mc "All (local) branches"}}
3875 {tags b . "--tags" {mc "All tags"}}
3876 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3877 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3878 {author t15 .. "--author=*" {mc "Author:"}}
3879 {committer t15 . "--committer=*" {mc "Committer:"}}
3880 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3881 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3882 {changes_l l + {} {mc "Changes to Files:"}}
3883 {pickaxe_s r0 . {} {mc "Fixed String"}}
3884 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3885 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3886 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3887 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3888 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3889 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3890 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3891 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3892 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3893 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3894 {lright b . "--left-right" {mc "Mark branch sides"}}
3895 {first b . "--first-parent" {mc "Limit to first parent"}}
3896 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3897 {args t50 *. {} {mc "Additional arguments to git log:"}}
3898 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3899 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3900 }
3903 proc encode_view_opts {n} {
3904 global known_view_options newviewopts
3906 set rargs [list]
3916 }
3922 }
3923 } else {
3929 }
3930 }
3931 }
3934 }
3937 proc decode_view_opts {n view_args} {
3938 global known_view_options newviewopts
3943 # Checkboxes
3944 set val 0
3946 # Radiobuttons
3948 set val 0
3949 } else {
3950 # Text fields
3951 set val {}
3952 }
3954 }
3955 set oargs [list]
3956 set refargs [list]
3959 && ![info exists found(limit)]} {
3961 set found(limit) 1
3962 continue
3963 }
3964 catch { unset val }
3971 # Check buttons
3972 set val 1
3974 # Radio buttons
3977 } else {
3978 # Text input fields
3981 }
3984 break
3985 }
3986 if {[info exists val]} break
3987 }
3988 if {[info exists val]} continue
3991 } else {
3993 }
3994 }
3997 }
3999 proc edit_or_newview {} {
4000 global curview
4003 editview
4004 } else {
4005 newview 0
4006 }
4007 }
4009 proc editview {} {
4010 global curview
4011 global viewname viewperm newviewname newviewopts
4012 global viewargs viewargscmd
4017 return
4018 }
4024 }
4026 proc vieweditor {top n title} {
4027 global newviewname newviewopts viewfiles bgcolor
4028 global known_view_options NS
4034 # View name
4042 # View options
4044 set cexpand 0
4045 set cnt 0
4051 set lxpad 0
4055 incr cnt
4061 incr cnt
4065 } else {
4066 set lxpad 5
4067 }
4101 }
4104 }
4106 }
4107 }
4122 }
4124 proc doviewmenu {m first cmd op argv} {
4129 break
4130 }
4131 }
4132 }
4134 proc allviewmenus {n op args} {
4135 # global viewhlmenu
4139 }
4141 proc newviewok {top n {apply 0}} {
4142 global nextviewnum newviewperm newviewname newishighlight
4143 global viewname viewfiles viewperm selectedview curview
4144 global viewargs viewargscmd newviewopts viewhlmenu
4146 if {[catch {
4148 } err]} {
4150 return
4151 }
4152 set files {}
4157 }
4158 }
4160 # creating a new view
4161 incr nextviewnum
4170 } else {
4172 }
4173 } else {
4174 # editing an existing view
4182 }
4189 run reloadcommits
4190 }
4191 }
4192 }
4195 }
4197 proc delview {} {
4198 global curview viewperm hlview selectedhlview
4202 set selectedhlview [mc "None"]
4203 unset hlview
4204 }
4207 showview 0
4208 }
4210 proc addviewmenu {n} {
4211 global viewname viewhlmenu
4217 }
4219 proc showview {n} {
4220 global curview cached_commitrow ordertok
4221 global displayorder parentlist rowidlist rowisopt rowfinal
4222 global colormap rowtextx nextcolor canvxmax
4223 global numcommits viewcomplete
4224 global selectedline currentid canv canvy0
4225 global treediffs
4226 global pending_select mainheadid
4227 global commitidx
4228 global selectedview
4229 global hlview selectedhlview commitinterest
4232 set selid {}
4243 }
4244 } elseif {[info exists pending_select]} {
4246 unset pending_select
4247 }
4248 unselectline
4249 normalline
4250 catch {unset treediffs}
4251 clear_display
4253 unset hlview
4254 set selectedhlview [mc "None"]
4255 }
4256 catch {unset commitinterest}
4257 catch {unset cached_commitrow}
4258 catch {unset ordertok}
4265 run refill_reflist
4268 return
4269 }
4271 set displayorder {}
4272 set parentlist {}
4273 set rowidlist {}
4274 set rowisopt {}
4275 set rowfinal {}
4278 catch {unset colormap}
4279 catch {unset rowtextx}
4280 set nextcolor 0
4283 set row 0
4284 setcanvscroll
4285 set yf 0
4286 set row {}
4289 # try to get the selected row in the same position on the screen
4293 set ytop 0
4294 }
4296 }
4298 drawvisible
4303 } else {
4304 reset_pending_select {}
4308 } else {
4309 set row [first_real_row]
4312 }
4313 }
4314 }
4317 show_status [mc "Reading commits..."]
4318 }
4320 show_status [mc "No commits selected"]
4321 }
4322 }
4324 # Stuff relating to the highlighting facility
4326 proc ishighlighted {id} {
4327 global vhighlights fhighlights nhighlights rhighlights
4331 }
4334 }
4337 }
4340 }
4341 return 0
4342 }
4344 proc bolden {id font} {
4345 global canv linehtag currentid boldids need_redisplay markedid
4347 # need_redisplay = 1 means the display is stale and about to be redrawn
4354 -outline {{}} -tags secsel \
4357 }
4360 }
4361 }
4363 proc bolden_name {id font} {
4364 global canv2 linentag currentid boldnameids need_redisplay
4372 -outline {{}} -tags secsel \
4375 }
4376 }
4378 proc unbolden {} {
4379 global boldids
4381 set stillbold {}
4385 } else {
4387 }
4388 }
4390 }
4392 proc addvhighlight {n} {
4393 global hlview viewcomplete curview vhl_done commitidx
4395 if {[info exists hlview]} {
4396 delvhighlight
4397 }
4401 }
4404 drawvisible
4405 }
4406 }
4408 proc delvhighlight {} {
4409 global hlview vhighlights
4411 if {![info exists hlview]} return
4412 unset hlview
4413 catch {unset vhighlights}
4414 unbolden
4415 }
4417 proc vhighlightmore {} {
4418 global hlview vhl_done commitidx vhighlights curview
4421 set vr [visiblerows]
4431 }
4433 }
4434 }
4435 }
4437 return 0
4438 }
4440 proc askvhighlight {row id} {
4441 global hlview vhighlights iddrawn
4446 }
4448 } else {
4450 }
4451 }
4453 proc hfiles_change {} {
4454 global highlight_files filehighlight fhighlights fh_serial
4455 global highlight_paths
4457 if {[info exists filehighlight]} {
4458 # delete previous highlights
4460 unset filehighlight
4461 catch {unset fhighlights}
4462 unbolden
4463 unhighlight_filelist
4464 }
4465 set highlight_paths {}
4467 incr fh_serial
4470 }
4471 }
4473 proc gdttype_change {name ix op} {
4474 global gdttype highlight_files findstring findpattern
4476 stopfinding
4480 set highlight_files {}
4481 hfiles_change
4482 }
4483 findcom_change
4484 } else {
4486 set findpattern {}
4487 findcom_change
4488 }
4490 hfiles_change
4491 }
4492 drawvisible
4493 }
4494 # enable/disable findtype/findloc menus too
4495 }
4497 proc find_change {name ix op} {
4498 global gdttype findstring highlight_files
4500 stopfinding
4502 findcom_change
4503 } else {
4506 hfiles_change
4507 }
4508 }
4509 drawvisible
4510 }
4512 proc findcom_change args {
4513 global nhighlights boldnameids
4514 global findpattern findtype findstring gdttype
4516 stopfinding
4517 # delete previous highlights, if any
4520 }
4521 set boldnameids {}
4522 catch {unset nhighlights}
4523 unbolden
4524 unmarkmatches
4526 set findpattern {}
4529 } else {
4530 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4533 }
4534 }
4536 proc makepatterns {l} {
4537 set ret {}
4542 } else {
4545 }
4546 }
4548 }
4550 proc do_file_hl {serial} {
4551 global highlight_files filehighlight highlight_paths gdttype fhl_list
4556 highlight_filelist
4560 } else {
4561 # must be "containing:", i.e. we're searching commit info
4562 return
4563 }
4568 set fhl_list {}
4569 drawvisible
4570 flushhighlights
4571 }
4573 proc flushhighlights {} {
4574 global filehighlight fhl_list
4576 if {[info exists filehighlight]} {
4577 lappend fhl_list {}
4580 }
4581 }
4583 proc askfilehighlight {row id} {
4584 global filehighlight fhighlights fhl_list
4589 }
4591 proc readfhighlight {} {
4592 global filehighlight fhighlights curview iddrawn
4593 global fhl_list find_dirn
4595 if {![info exists filehighlight]} {
4596 return 0
4597 }
4598 set nr 0
4606 }
4612 }
4614 }
4616 # strange...
4617 puts "oops, git diff-tree died"
4619 unset filehighlight
4620 return 0
4621 }
4622 if {[info exists find_dirn]} {
4623 run findmore
4624 }
4625 return 1
4626 }
4628 proc doesmatch {f} {
4629 global findtype findpattern
4635 } else {
4637 }
4638 }
4640 proc askfindhighlight {row id} {
4641 global nhighlights commitinfo iddrawn
4642 global findloc
4643 global markingmatches
4647 }
4649 set isbold 0
4650 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4655 set isbold 2
4656 break
4657 }
4658 set isbold 1
4659 }
4660 }
4666 }
4667 }
4670 }
4671 }
4673 }
4675 proc markrowmatches {row id} {
4676 global canv canv2 linehtag linentag commitinfo findloc
4687 }
4688 }
4694 }
4695 }
4696 }
4698 proc vrel_change {name ix op} {
4699 global highlight_related
4701 rhighlight_none
4703 run drawvisible
4704 }
4705 }
4707 # prepare for testing whether commits are descendents or ancestors of a
4708 proc rhighlight_sel {a} {
4709 global descendent desc_todo ancestor anc_todo
4710 global highlight_related
4712 catch {unset descendent}
4714 catch {unset ancestor}
4717 rhighlight_none
4718 run drawvisible
4719 }
4720 }
4722 proc rhighlight_none {} {
4723 global rhighlights
4725 catch {unset rhighlights}
4726 unbolden
4727 }
4729 proc is_descendent {a} {
4730 global curview children descendent desc_todo
4735 set leftover {}
4736 set done 0
4741 continue
4742 }
4748 set done 1
4749 }
4750 }
4751 }
4754 return
4755 }
4756 }
4759 }
4761 proc is_ancestor {a} {
4762 global curview parents ancestor anc_todo
4767 set leftover {}
4768 set done 0
4773 continue
4774 }
4780 set done 1
4781 }
4782 }
4783 }
4786 return
4787 }
4788 }
4791 }
4793 proc askrelhighlight {row id} {
4794 global descendent highlight_related iddrawn rhighlights
4795 global selectedline ancestor
4798 set isbold 0
4803 }
4805 set isbold 1
4806 }
4811 }
4813 set isbold 1
4814 }
4815 }
4819 }
4820 }
4822 }
4824 # Graph layout functions
4826 proc shortids {ids} {
4827 set res {}
4833 } else {
4835 }
4836 }
4838 }
4840 proc ntimes {n o} {
4841 set ret {}
4846 }
4848 }
4850 }
4852 proc ordertoken {id} {
4853 global ordertok curview varcid varcstart varctok curview parents children
4854 global nullid nullid2
4858 }
4860 set todo {}
4861 while {1} {
4865 } else {
4867 }
4870 break
4871 }
4874 # it's a root
4876 break
4877 }
4880 } else {
4884 }
4886 }
4887 }
4892 }
4895 }
4897 # Work out where id should go in idlist so that order-token
4898 # values increase from left to right
4899 proc idcol {idlist id {i 0}} {
4902 set i 0
4903 }
4907 }
4909 incr i
4910 } else {
4914 }
4915 }
4917 }
4919 proc initlayout {} {
4920 global rowidlist rowisopt rowfinal displayorder parentlist
4921 global numcommits canvxmax canv
4922 global nextcolor
4923 global colormap rowtextx
4925 set numcommits 0
4926 set displayorder {}
4927 set parentlist {}
4928 set nextcolor 0
4929 set rowidlist {}
4930 set rowisopt {}
4931 set rowfinal {}
4933 catch {unset colormap}
4934 catch {unset rowtextx}
4935 setcanvscroll
4936 }
4938 proc setcanvscroll {} {
4939 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4940 global lastscrollset lastscrollrows
4946 set lastscrollset [clock clicks -milliseconds]
4948 }
4950 proc visiblerows {} {
4951 global canv numcommits linespc
4959 set r0 0
4960 }
4965 }
4967 }
4969 proc layoutmore {} {
4970 global commitidx viewcomplete curview
4971 global numcommits pending_select curview
4972 global lastscrollset lastscrollrows
4976 setcanvscroll
4977 }
4978 if {[info exists pending_select] &&
4980 update
4982 }
4983 drawvisible
4984 }
4986 # With path limiting, we mightn't get the actual HEAD commit,
4987 # so ask git rev-list what is the first ancestor of HEAD that
4988 # touches a file in the path limit.
4989 proc get_viewmainhead {view} {
4990 global viewmainheadid vfilelimit viewinstances mainheadid
4992 catch {
5000 }
5001 }
5004 proc getviewhead {fd inst view} {
5005 global viewmainheadid commfd curview viewinstances showlocalchanges
5007 set id {}
5010 return 1
5011 }
5014 }
5021 }
5023 doshowlocalchanges
5024 }
5025 return 0
5026 }
5028 proc doshowlocalchanges {} {
5029 global curview viewmainheadid
5033 dodiffindex
5034 } else {
5036 }
5037 }
5039 proc dohidelocalchanges {} {
5040 global nullid nullid2 lserial curview
5044 }
5047 }
5048 incr lserial
5049 }
5051 # spawn off a process to do git diff-index --cached HEAD
5052 proc dodiffindex {} {
5053 global lserial showlocalchanges vfilelimit curview
5054 global isworktree
5057 incr lserial
5058 set cmd "|git diff-index --cached HEAD"
5061 }
5066 }
5068 proc readdiffindex {fd serial inst} {
5069 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5070 global vfilelimit
5072 set isdiff 1
5075 return 1
5076 }
5077 set isdiff 0
5078 }
5079 # we only need to see one line and we don't really care what it says...
5083 return 0
5084 }
5086 # now see if there are any local changes not checked in to the index
5087 set cmd "|git diff-files"
5090 }
5097 # add the line for the changes in the index to the graph
5098 set hl [mc "Local changes checked in to index but not committed"]
5103 }
5108 }
5110 }
5111 return 0
5112 }
5114 proc readdifffiles {fd serial inst} {
5115 global viewmainheadid nullid nullid2 curview
5116 global commitinfo commitdata lserial
5118 set isdiff 1
5121 return 1
5122 }
5123 set isdiff 0
5124 }
5125 # we only need to see one line and we don't really care what it says...
5129 return 0
5130 }
5133 # add the line for the local diff to the graph
5134 set hl [mc "Local uncommitted changes, not checked in to index"]
5139 } else {
5141 }
5145 }
5146 return 0
5147 }
5149 proc nextuse {id row} {
5150 global curview children
5155 return -1
5156 }
5159 }
5160 }
5161 }
5164 }
5165 return -1
5166 }
5168 proc prevuse {id row} {
5169 global curview children
5171 set ret -1
5177 }
5178 }
5179 }
5181 }
5183 proc make_idlist {row} {
5184 global displayorder parentlist uparrowlen downarrowlen mingaplen
5185 global commitidx curview children
5189 set r 0
5190 }
5193 set ra 0
5194 }
5198 }
5200 set ids {}
5209 }
5210 }
5211 }
5219 }
5220 }
5221 }
5229 }
5230 }
5231 incr r
5237 }
5238 }
5239 }
5240 set idlist {}
5243 }
5245 }
5247 proc rowsequal {a b} {
5250 }
5253 }
5255 }
5257 proc makeupline {id row rend col} {
5258 global rowidlist uparrowlen downarrowlen mingaplen
5264 }
5267 }
5274 }
5275 }
5276 }
5278 proc layoutrows {row endrow} {
5279 global rowidlist rowisopt rowfinal displayorder
5280 global uparrowlen downarrowlen maxwidth mingaplen
5281 global children parentlist
5282 global commitidx viewcomplete curview
5285 set idlist {}
5291 }
5292 }
5294 }
5299 set final 1
5300 } else {
5308 # if not the first child, we have to insert a line going up
5311 }
5312 }
5313 }
5323 }
5324 }
5325 }
5332 }
5333 }
5343 }
5344 }
5352 }
5353 }
5354 }
5355 }
5356 }
5360 set final 0
5361 }
5365 lappend rowisopt 0
5371 }
5373 } else {
5380 }
5381 }
5383 }
5385 proc changedrow {row} {
5386 global displayorder iddrawn rowisopt need_redisplay
5395 }
5396 }
5397 }
5400 set need_redisplay 1
5401 }
5402 }
5404 proc insert_pad {row col npad} {
5405 global rowidlist
5414 }
5417 }
5419 proc optimize_rows {row col endrow} {
5420 global rowidlist rowisopt displayorder curview children
5423 set row 1
5424 }
5427 set haspad 0
5436 } else {
5437 set pprevidlist {}
5438 }
5439 set x0 -1
5440 set xm -1
5445 set haspad 1
5446 continue
5447 }
5451 set isarrow 0
5452 set z0 {}
5457 }
5458 }
5463 set isarrow 1
5464 }
5465 }
5468 set isarrow 1
5469 }
5470 # Looking at lines from this row to the previous row,
5471 # make them go straight up if they end in an arrow on
5472 # the previous row; otherwise make them go straight up
5473 # or at 45 degrees.
5475 # Line currently goes left too much;
5476 # insert pads in the previous row, then optimize it
5481 }
5489 }
5491 # Line currently goes right too much;
5492 # insert pads in this line
5498 set haspad 1
5499 }
5506 }
5507 }
5508 # avoid lines jigging left then immediately right
5511 incr x0
5514 }
5515 }
5517 # Find the first column that doesn't have a line going right
5523 # check if this is the link to the first child
5526 # it is, work out offset to child
5528 }
5529 }
5531 }
5532 # Insert a pad at that column as long as it has a line and
5533 # isn't the last column
5538 }
5539 }
5540 }
5541 }
5543 proc xc {row col} {
5544 global canvx0 linespc
5546 }
5548 proc yc {row} {
5549 global canvy0 linespc
5551 }
5553 proc linewidth {id} {
5554 global thickerline lthickness
5559 }
5561 }
5563 proc rowranges {id} {
5564 global curview children uparrowlen downarrowlen
5565 global rowidlist
5569 return {}
5570 }
5571 set ret {}
5576 if {![info exists prev]} {
5578 } else {
5580 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5581 }
5582 # see if the line extends the whole way from prevrow to row
5586 # it doesn't, see where it ends
5591 } else {
5594 incr r -1
5595 }
5597 # see where it starts up again
5602 } else {
5605 incr r
5606 }
5608 }
5609 }
5612 }
5615 }
5617 }
5619 proc drawlineseg {id row endrow arrowlow} {
5620 global rowidlist displayorder iddrawn linesegs
5621 global canv colormap linespc curview maxlinelen parentlist
5625 set arrowhigh 1
5626 while {1} {
5629 incr le -1
5630 break
5631 }
5635 set arrowhigh 0
5636 break
5637 }
5642 set arrowhigh 0
5643 }
5644 break
5645 }
5646 incr le
5647 }
5650 }
5652 set lines {}
5653 set i 0
5654 set joinhigh 0
5661 set joinhigh 1
5662 }
5663 break
5664 }
5665 incr i
5666 }
5667 }
5668 set joinlow 0
5673 set joinlow 1
5674 }
5675 }
5688 }
5689 } else {
5691 }
5699 set arrowlow 0
5700 }
5701 }
5709 }
5711 }
5714 # join parent line to first child
5725 } else {
5727 }
5735 }
5737 }
5739 } else {
5743 }
5751 } else {
5755 }
5757 }
5758 } else {
5764 }
5768 } else {
5769 # coalesce two pieces
5774 }
5778 }
5779 }
5783 }
5785 proc drawparentlinks {id row} {
5786 global rowidlist canv colormap curview parentlist
5787 global idpos linespc
5800 # rmx = right-most X coord used
5801 set rmx 0
5806 continue
5807 }
5811 }
5814 # drawlineseg will do this one for us
5815 continue
5816 }
5818 # should handle duplicated parents here...
5821 # if attaching to a vertical segment, draw a smaller
5822 # slant for visual distinctness
5826 } else {
5828 }
5830 # segment slants towards us already
5832 } else {
5837 }
5839 }
5840 } else {
5842 }
5847 }
5851 }
5852 }
5854 proc drawlines {id} {
5855 global canv
5858 }
5860 proc drawcmittext {id row col} {
5861 global linespc canv canv2 canv3 fgcolor curview
5862 global cmitlisted commitinfo rowidlist parentlist
5863 global rowtextx idpos idtags idheads idotherrefs
5864 global linehtag linentag linedtag selectedline
5865 global canvxmax boldids boldnameids fgcolor markedid
5866 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5868 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5871 set ofill red
5873 set ofill green
5875 set ofill yellow
5876 } else {
5878 }
5887 # triangle pointing left for left-side commits
5893 } else {
5894 # triangle pointing right for right-side commits
5900 }
5912 }
5913 }
5914 }
5921 }
5926 set font mainfont
5927 set nfont mainfont
5931 set font mainfontbold
5934 set nfont mainfontbold
5935 }
5936 }
5946 }
5949 }
5953 setcanvscroll
5954 }
5955 }
5957 proc drawcmitrow {row} {
5958 global displayorder rowidlist nrows_drawn
5959 global iddrawn markingmatches
5960 global commitinfo numcommits
5961 global filehighlight fhighlights findpattern nhighlights
5962 global hlview vhighlights
5963 global highlight_related rhighlights
5970 }
5973 }
5976 }
5979 }
5984 return
5985 }
5988 }
5992 incr nrows_drawn
5993 }
5996 }
5997 }
5999 proc drawcommits {row {endrow {}}} {
6000 global numcommits iddrawn displayorder curview need_redisplay
6001 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6004 set row 0
6005 }
6008 }
6011 }
6015 set rl1 0
6016 }
6019 set ro1 0
6020 }
6024 }
6029 }
6031 }
6032 }
6035 }
6038 clear_display
6039 }
6041 # make the lines join to already-drawn rows either side
6045 }
6050 }
6065 # see if this is the first child of any of its parents
6068 # make this line extend up to the child
6070 }
6071 }
6072 } else {
6074 }
6075 }
6076 }
6077 }
6079 proc undolayout {row} {
6080 global uparrowlen mingaplen downarrowlen
6081 global rowidlist rowisopt rowfinal need_redisplay
6085 set r 0
6086 }
6088 incr r -1
6092 set need_redisplay 1
6093 run drawvisible
6094 }
6095 }
6097 proc drawvisible {} {
6098 global canv linespc curview vrowmod selectedline targetrow targetid
6099 global need_redisplay cscroll numcommits
6109 if {[info exists targetid]} {
6113 # Fix up the scrollregion and change the scrolling position
6114 # now that our target row has moved.
6117 setcanvscroll
6125 set need_redisplay 1
6126 }
6127 } else {
6128 unset targetid
6129 }
6130 }
6136 }
6140 } elseif {[info exists targetid]} {
6142 }
6143 if {[info exists targetrow]} {
6146 }
6148 }
6150 }
6152 proc clear_display {} {
6153 global iddrawn linesegs need_redisplay nrows_drawn
6154 global vhighlights fhighlights nhighlights rhighlights
6155 global linehtag linentag linedtag boldids boldnameids
6157 allcanvs delete all
6158 catch {unset iddrawn}
6159 catch {unset linesegs}
6160 catch {unset linehtag}
6161 catch {unset linentag}
6162 catch {unset linedtag}
6163 set boldids {}
6164 set boldnameids {}
6165 catch {unset vhighlights}
6166 catch {unset fhighlights}
6167 catch {unset nhighlights}
6168 catch {unset rhighlights}
6169 set need_redisplay 0
6170 set nrows_drawn 0
6171 }
6173 proc findcrossings {id} {
6174 global rowidlist parentlist numcommits displayorder
6176 set cross {}
6177 set ccross {}
6181 }
6200 }
6201 }
6202 }
6203 }
6204 }
6206 }
6208 proc assigncolor {id} {
6209 global colormap colors nextcolor
6210 global parents children children curview
6216 } else {
6217 set kids {}
6218 }
6224 return
6225 }
6226 }
6227 set badcolors {}
6228 set origbad {}
6231 # delimiter between corner crossings and other crossings
6234 }
6238 }
6239 }
6242 }
6249 }
6254 }
6255 }
6256 }
6259 }
6260 }
6264 set nextcolor 0
6265 }
6267 }
6269 }
6271 proc bindline {t id} {
6272 global canv
6278 }
6280 proc drawtags {id x xt y1} {
6281 global idtags idheads idotherrefs mainhead
6282 global linespc lthickness
6283 global canv rowtextx curview fgcolor bgcolor ctxbut
6285 set marks {}
6286 set ntags 0
6287 set nheads 0
6291 }
6295 }
6298 }
6301 }
6306 set xvals {}
6307 set wvals {}
6308 set i -1
6310 incr i
6313 } else {
6315 }
6319 }
6327 set font mainfont
6328 if {[incr ntags -1] >= 0} {
6329 # draw a tag
6335 } else {
6336 # draw a head or other ref
6337 if {[incr nheads -1] >= 0} {
6338 set col green
6340 set font mainfontbold
6341 }
6342 } else {
6343 set col "#ddddff"
6344 }
6355 }
6356 }
6363 }
6364 }
6366 }
6368 proc xcoord {i level ln} {
6369 global canvx0 xspc1 xspc2
6376 }
6378 }
6380 proc show_status {msg} {
6381 global canv fgcolor
6383 clear_display
6386 }
6388 # Don't change the text pane cursor if it is currently the hand cursor,
6389 # showing that we are over a sha1 ID link.
6390 proc settextcursor {c} {
6391 global ctext curtextcursor
6395 }
6397 }
6399 proc nowbusy {what {name {}}} {
6400 global isbusy busyname statusw
6402 if {[array names isbusy] eq {}} {
6403 . config -cursor watch
6404 settextcursor watch
6405 }
6410 }
6411 }
6413 proc notbusy {what} {
6414 global isbusy maincursor textcursor busyname statusw
6416 catch {
6421 }
6422 }
6423 if {[array names isbusy] eq {}} {
6426 }
6427 }
6429 proc findmatches {f} {
6430 global findtype findstring
6433 } else {
6438 }
6439 set matches {}
6440 set i 0
6445 }
6446 }
6448 }
6450 proc dofind {{dirn 1} {wrap 1}} {
6451 global findstring findstartline findcurline selectedline numcommits
6452 global gdttype filehighlight fh_serial find_dirn findallowwrap
6454 if {[info exists find_dirn]} {
6456 stopfinding
6457 }
6458 focus .
6462 } else {
6464 }
6466 nowbusy finding [mc "Searching"]
6470 }
6473 run findmore
6474 }
6476 proc stopfinding {} {
6477 global find_dirn findcurline fprogcoord
6479 if {[info exists find_dirn]} {
6480 unset find_dirn
6481 unset findcurline
6482 notbusy finding
6483 set fprogcoord 0
6484 adjustprogress
6485 }
6486 stopblaming
6487 }
6489 proc findmore {} {
6490 global commitdata commitinfo numcommits findpattern findloc
6491 global findstartline findcurline findallowwrap
6492 global find_dirn gdttype fhighlights fprogcoord
6493 global curview varcorder vrownum varccommits vrowmod
6495 if {![info exists find_dirn]} {
6496 return 0
6497 }
6498 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6500 set moretodo 0
6502 incr l
6504 set l 0
6505 }
6508 } else {
6511 }
6512 } else {
6515 }
6516 incr l -1
6519 } else {
6520 set lim -1
6522 }
6523 }
6526 set n 500
6527 set moretodo 1
6528 }
6531 }
6532 set found 0
6533 set domore 1
6547 }
6549 # shouldn't happen unless git log doesn't give all the commits...
6552 continue
6553 }
6556 }
6561 set found 1
6562 break
6563 }
6564 }
6566 }
6567 } else {
6575 }
6580 }
6583 break
6584 }
6587 set domore 0
6589 }
6590 }
6591 }
6592 }
6594 unset findcurline
6595 unset find_dirn
6596 notbusy finding
6597 set fprogcoord 0
6598 adjustprogress
6601 } else {
6602 bell
6603 }
6604 return 0
6605 }
6607 flushhighlights
6608 } else {
6610 }
6614 }
6616 adjustprogress
6618 }
6620 proc findselectline {l} {
6621 global findloc commentend ctext findcurline markingmatches gdttype
6628 # highlight the matches in the comments
6635 }
6636 }
6637 drawvisible
6638 }
6640 # mark the bits of a headline or author that match a find string
6641 proc markmatches {canv l str tag matches font row} {
6642 global selectedline
6660 }
6661 }
6662 }
6664 proc unmarkmatches {} {
6665 global markingmatches
6667 allcanvs delete matches
6668 set markingmatches 0
6669 stopfinding
6670 }
6672 proc selcanvline {w x y} {
6673 global canv canvy0 ctext linespc
6674 global rowtextx
6681 set l 0
6682 }
6687 }
6688 unmarkmatches
6690 }
6692 proc commit_descriptor {p} {
6693 global commitinfo
6696 }
6697 set l "..."
6700 }
6702 }
6704 # append some text to the ctext widget, and make any SHA1 ID
6705 # that we know about be a clickable link.
6706 proc appendwithlinks {text tags} {
6707 global ctext linknum curview
6716 incr e
6720 incr linknum
6721 }
6722 }
6724 proc setlink {id lk} {
6725 global curview ctext pendinglinks
6727 set known 0
6732 set known 1
6734 }
6735 } else {
6737 }
6743 } else {
6746 }
6747 }
6749 proc appendshortlink {id {pre {}} {post {}}} {
6750 global ctext linknum
6757 incr linknum
6758 }
6760 proc makelink {id} {
6761 global pendinglinks
6766 }
6768 }
6770 proc linkcursor {w inc} {
6771 global linkentercount curtextcursor
6775 } else {
6778 set linkentercount 0
6779 }
6780 }
6781 }
6783 proc viewnextline {dir} {
6784 global canv linespc
6792 set newtop 0
6795 }
6797 }
6799 # add a list of tag or branch names at position pos
6800 # returns the number of names inserted
6801 proc appendrefs {pos ids var} {
6805 return 0
6806 }
6809 set tags {}
6813 }
6814 }
6817 } else {
6819 set sep {}
6823 incr linknum
6828 set sep ", "
6829 }
6830 }
6833 }
6835 # called when we have finished computing the nearby tags
6836 proc dispneartags {delay} {
6837 global selectedline currentid showneartags tagphase
6840 after cancel dispnexttag
6842 after 200 dispnexttag
6843 set tagphase -1
6844 } else {
6845 after idle dispnexttag
6846 set tagphase 0
6847 }
6848 }
6850 proc dispnexttag {} {
6851 global selectedline currentid showneartags tagphase ctext
6855 0 {
6859 }
6860 }
6861 1 {
6865 }
6866 }
6867 2 {
6872 # turn "Branch" into "Branches"
6876 }
6877 }
6878 }
6879 }
6880 if {[incr tagphase] <= 2} {
6881 after idle dispnexttag
6882 }
6883 }
6885 proc make_secsel {id} {
6886 global linehtag linentag linedtag canv canv2 canv3
6901 }
6903 proc make_idmark {id} {
6904 global linehtag canv fgcolor
6911 }
6913 proc selectline {l isnew {desired_loc {}}} {
6914 global canv ctext commitinfo selectedline
6915 global canvy0 linespc parents children curview
6916 global currentid sha1entry
6917 global commentend idtags linknum
6918 global mergemax numcommits pending_select
6919 global cmitmode showneartags allcommits
6920 global targetrow targetid lastscrollrows
6921 global autoselect autosellen jump_to_here
6923 catch {unset pending_select}
6925 normalline
6926 unsel_reflist
6927 stopfinding
6935 setcanvscroll
6936 }
6950 } else {
6954 }
6955 }
6959 } else {
6963 }
6964 }
6965 }
6968 set newtop 0
6969 }
6971 drawvisible
6972 }
6978 }
6984 }
6988 clear_ctext
6989 set linknum 0
6992 }
7002 }
7004 }
7006 set headers {}
7009 set np 0
7012 set tag mmax
7013 } else {
7015 }
7018 incr np
7019 }
7020 } else {
7023 }
7024 }
7028 }
7030 # make anything that looks like a SHA1 ID be a clickable link
7033 if {![info exists allcommits]} {
7034 getallcommits
7035 }
7046 dispneartags 1
7047 }
7052 }
7060 init_flist [mc "Comments"]
7065 } else {
7067 }
7068 }
7070 proc selfirstline {} {
7071 unmarkmatches
7072 selectline 0 1
7073 }
7075 proc sellastline {} {
7076 global numcommits
7077 unmarkmatches
7080 }
7082 proc selnextline {dir} {
7083 global selectedline
7084 focus .
7087 unmarkmatches
7089 }
7091 proc selnextpage {dir} {
7092 global canv linespc selectedline numcommits
7096 set lpp 1
7097 }
7099 drawvisible
7103 set l 0
7106 }
7107 unmarkmatches
7109 }
7111 proc unselectline {} {
7112 global selectedline currentid
7114 set selectedline {}
7115 catch {unset currentid}
7116 allcanvs delete secsel
7117 rhighlight_none
7118 }
7120 proc reselectline {} {
7121 global selectedline
7125 }
7126 }
7128 proc addtohistory {cmd {saveproc {}}} {
7129 global history historyindex curview
7131 unset_posvars
7132 save_position
7136 return
7137 }
7141 } else {
7143 }
7144 incr historyindex
7146 .tf.bar.leftbut conf -state normal
7147 } else {
7148 .tf.bar.leftbut conf -state disabled
7149 }
7150 .tf.bar.rightbut conf -state disabled
7151 }
7153 # save the scrolling position of the diff display pane
7154 proc save_position {} {
7155 global historyindex history
7162 }
7163 }
7165 proc unset_posvars {} {
7166 global last_posvars
7168 if {[info exists last_posvars]} {
7172 }
7173 unset last_posvars
7174 }
7175 }
7177 proc godo {elt} {
7178 global curview last_posvars
7185 }
7186 unset_posvars
7190 }
7193 }
7195 proc goback {} {
7196 global history historyindex
7197 focus .
7200 save_position
7201 incr historyindex -1
7203 .tf.bar.rightbut conf -state normal
7204 }
7206 .tf.bar.leftbut conf -state disabled
7207 }
7208 }
7210 proc goforw {} {
7211 global history historyindex
7212 focus .
7215 save_position
7217 incr historyindex
7219 .tf.bar.leftbut conf -state normal
7220 }
7222 .tf.bar.rightbut conf -state disabled
7223 }
7224 }
7226 proc gettree {id} {
7227 global treefilelist treeidlist diffids diffmergeid treepending
7228 global nullid nullid2
7231 catch {unset diffmergeid}
7233 if {![info exists treepending]} {
7235 set cmd [list | git ls-files]
7237 set cmd [list | git ls-files --stage -t]
7238 } else {
7240 }
7242 return
7243 }
7249 }
7250 } else {
7252 }
7253 }
7255 proc gettreeline {gtf id} {
7256 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7258 set nl 0
7262 } else {
7270 }
7273 }
7276 }
7279 }
7281 unset treepending
7283 if {![info exists diffmergeid]} {
7285 }
7288 } else {
7290 }
7291 return 0
7292 }
7294 proc showfile {f} {
7295 global treefilelist treeidlist diffids nullid nullid2
7296 global ctext_file_names ctext_file_lines
7297 global ctext commentend
7302 return
7303 }
7307 return
7308 }
7309 } else {
7313 return
7314 }
7315 }
7326 settabs 0
7327 }
7329 proc getblobline {bf id} {
7330 global diffids cmitmode ctext
7334 return 0
7335 }
7337 set nl 0
7340 }
7342 global jump_to_here ctext_file_names commentend
7344 # delete last newline
7352 }
7354 return 0
7355 }
7358 }
7360 proc mark_ctext_line {lnum} {
7361 global ctext markbgcolor
7367 }
7369 proc mergediff {id} {
7370 global diffmergeid
7371 global diffids treediffs
7372 global parents curview
7380 }
7382 proc startdiff {ids} {
7383 global treediffs diffids treepending diffmergeid nullid nullid2
7385 settabs 1
7387 catch {unset diffmergeid}
7391 if {![info exists treepending]} {
7393 }
7394 } else {
7396 }
7397 }
7399 # If the filename (name) is under any of the passed filter paths
7400 # then return true to include the file in the listing.
7401 proc path_filter {filter name} {
7402 set worktree [gitworktree]
7407 return 1
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 }
9502 incr allcommits
9503 nowbusy allcommits
9505 } else {
9506 dispneartags 0
9507 }
9508 }
9510 # The maximum command line length for the CreateProcess function is 32767 characters, see
9511 # http://blogs.msdn.com/oldnewthing/archive/2003/12/10/56028.aspx
9512 # Be a little conservative in case Tcl adds some more stuff to the command line we do not
9513 # know about and truncate the command line at a SHA1-boundary below 32000 characters.
9514 proc limit_arg_length {cmd} {
9515 if {[tk windowingsystem] == "win32" &&
9520 }
9521 }
9523 }
9525 # Since most commits have 1 parent and 1 child, we group strings of
9526 # such commits into "arcs" joining branch/merge points (BMPs), which
9527 # are commits that either don't have 1 parent or don't have 1 child.
9528 #
9529 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9530 # arcout(id) - outgoing arcs for BMP
9531 # arcids(a) - list of IDs on arc including end but not start
9532 # arcstart(a) - BMP ID at start of arc
9533 # arcend(a) - BMP ID at end of arc
9534 # growing(a) - arc a is still growing
9535 # arctags(a) - IDs out of arcids (excluding end) that have tags
9536 # archeads(a) - IDs out of arcids (excluding end) that have heads
9537 # The start of an arc is at the descendent end, so "incoming" means
9538 # coming from descendents, and "outgoing" means going towards ancestors.
9540 proc getallclines {fd} {
9541 global allparents allchildren idtags idheads nextarc
9542 global arcnos arcids arctags arcout arcend arcstart archeads growing
9543 global seeds allcommits cachedarcs allcupdate
9545 set nid 0
9549 # seen it already
9550 continue
9551 }
9552 set cachedarcs 0
9559 } else {
9565 }
9568 }
9570 # seen parent already
9573 }
9577 }
9580 continue
9581 }
9582 }
9587 }
9589 set ao {}
9592 set a [incr nextarc]
9601 # seen it already, may need to make a new branch
9604 }
9608 }
9610 }
9612 }
9614 global cached_dheads cached_dtags cached_atags
9615 catch {unset cached_dheads}
9616 catch {unset cached_dtags}
9617 catch {unset cached_atags}
9618 }
9621 }
9622 set cacheok 1
9623 if {[catch {
9626 } err]} {
9627 # got an error reading the list of commits
9628 # if we were updating, try rereading the whole thing again
9630 incr allcommits -1
9632 return
9633 }
9634 error_popup "[mc "Error reading commit topology information;\
9635 branch and preceding/following tag information\
9637 set cacheok 0
9638 }
9639 if {[incr allcommits -1] == 0} {
9640 notbusy allcommits
9642 run savecache
9643 }
9644 }
9645 dispneartags 0
9646 return 0
9647 }
9649 proc recalcarc {a} {
9650 global arctags archeads arcids idtags idheads
9652 set at {}
9653 set ah {}
9657 }
9660 }
9661 }
9664 }
9666 proc splitarc {p} {
9667 global arcnos arcids nextarc arctags archeads idtags idheads
9668 global arcstart arcend arcout allparents growing
9673 return
9674 }
9679 return
9680 }
9681 set na [incr nextarc]
9684 } else {
9688 }
9698 }
9703 } else {
9706 }
9707 }
9709 # reconstruct tags and heads lists
9713 } else {
9716 }
9717 }
9719 # Update things for a new commit added that is a child of one
9720 # existing commit. Used when cherry-picking.
9721 proc addnewchild {id p} {
9722 global allparents allchildren idtags nextarc
9723 global arcnos arcids arctags arcout arcend arcstart archeads growing
9724 global seeds allcommits
9732 set a [incr nextarc]
9740 }
9743 }
9745 # This implements a cache for the topology information.
9746 # The cache saves, for each arc, the start and end of the arc,
9747 # the ids on the arc, and the outgoing arcs from the end.
9748 proc readcache {f} {
9749 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9750 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9751 global allcwait
9757 }
9758 if {[catch {
9760 # finish reading the cache and setting up arctags, etc.
9764 foreach id [array names idtags] {
9770 }
9771 }
9772 }
9773 foreach id [array names idheads] {
9779 }
9780 }
9781 }
9785 }
9786 }
9787 set allcwait 0
9788 } else {
9798 }
9802 } else {
9806 }
9807 }
9813 }
9816 }
9819 }
9821 }
9822 } err]} {
9824 return 0
9825 }
9827 getallcommits
9828 }
9830 }
9832 proc getcache {f} {
9833 global nextarc cachedarcs possible_seeds
9835 if {[catch {
9838 # make sure it's an integer
9841 set nextarc 0
9842 set possible_seeds {}
9844 } err]} {
9846 }
9847 return 0
9848 }
9850 proc dropcache {err} {
9851 global allcwait nextarc cachedarcs seeds
9854 foreach v {arcnos arcout arcids arcstart arcend growing \
9855 arctags archeads allparents allchildren} {
9858 }
9859 set allcwait 0
9860 set nextarc 0
9861 set cachedarcs 0
9862 set seeds {}
9863 getallcommits
9864 }
9866 proc writecache {f} {
9867 global cachearc cachedarcs allccache
9868 global arcstart arcend arcnos arcids arcout
9874 }
9875 if {[catch {
9879 } else {
9881 }
9882 }
9883 } err]} {
9887 return 0
9888 }
9893 return 0
9894 }
9895 return 1
9896 }
9898 proc savecache {} {
9899 global nextarc cachedarcs cachearc allccache
9902 set cachearc 0
9904 catch {
9908 }
9909 }
9911 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9912 # or 0 if neither is true.
9913 proc anc_or_desc {a b} {
9914 global arcout arcstart arcend arcnos cached_isanc
9917 # Both are on the same arc(s); either both are the same BMP,
9918 # or if one is not a BMP, the other is also not a BMP or is
9919 # the BMP at end of the arc (and it only has 1 incoming arc).
9920 # Or both can be BMPs with no incoming arcs.
9922 return 0
9923 }
9929 return 1
9930 } else {
9931 return -1
9932 }
9933 }
9939 } else {
9940 set aend {}
9941 }
9943 } else {
9945 }
9950 } else {
9951 set bend {}
9952 }
9954 } else {
9956 }
9958 return 1
9959 }
9961 return -1
9962 }
9965 return 1
9966 }
9967 }
9970 return -1
9971 }
9973 return 0
9974 }
9975 }
9983 continue
9984 }
9990 return 1
9994 return -1
9995 }
10001 }
10002 }
10003 }
10006 return 0
10007 }
10011 # and returns 0 if so and 1 if not.
10012 # If we subsequently discover a tag on such a growing tip, and that
10015 # isn't a good choice to display as a descendent tag of
10019 #
10020 proc is_certain {desc anc} {
10021 global arcnos arcout arcstart arcend growing problems
10023 set certain {}
10025 # tags on the same arc are certain
10027 return 1
10028 }
10033 }
10034 }
10037 } else {
10040 }
10042 return 1
10043 }
10046 set nnh 1
10047 set ngrowanc 0
10051 incr nnh -1
10052 }
10058 incr ngrowanc
10059 }
10060 } else {
10067 incr nnh -1
10068 }
10070 incr ngrowanc -1
10071 }
10081 incr nnh -1
10082 }
10084 incr ngrowanc -1
10085 }
10087 }
10088 }
10089 }
10090 }
10091 }
10092 }
10096 } else {
10099 incr nnh
10100 }
10101 }
10102 }
10103 }
10104 foreach x [array names growanc] {
10106 return 0
10107 }
10108 return 0
10109 }
10110 return 1
10111 }
10113 proc validate_arctags {a} {
10114 global arctags idtags
10116 set i -1
10119 incr i
10122 incr i -1
10123 }
10124 }
10126 }
10128 proc validate_archeads {a} {
10129 global archeads idheads
10131 set i -1
10134 incr i
10137 incr i -1
10138 }
10139 }
10141 }
10143 # Return the list of IDs that have tags that are descendents of id,
10144 # ignoring IDs that are descendents of IDs already reported.
10145 proc desctags {id} {
10146 global arcnos arcstart arcids arctags idtags allparents
10147 global growing cached_dtags
10150 return {}
10151 }
10152 set t1 [clock clicks -milliseconds]
10155 # part-way along an arc; check that arc first
10160 set tid {}
10165 }
10168 }
10169 }
10173 }
10174 }
10177 }
10182 set nc 1
10188 incr nc -1
10189 }
10190 # ignore tags on starting node
10194 set ta 1
10197 set ta 1
10198 }
10199 }
10206 }
10207 }
10216 }
10219 }
10221 incr nc -1
10222 }
10224 }
10225 }
10226 }
10231 incr nc
10232 }
10233 }
10234 }
10235 }
10236 set tags {}
10237 foreach id [array names tagloc] {
10242 }
10243 }
10244 }
10245 }
10246 set t2 [clock clicks -milliseconds]
10249 # remove tags that are descendents of other tags
10257 incr j -1
10258 incr i -1
10261 incr i -1
10262 break
10263 }
10264 }
10265 }
10267 if {[array names growing] ne {}} {
10268 # graph isn't finished, need to check if any tag could get
10269 # eclipsed by another tag coming later. Simply ignore any
10270 # tags that could later get eclipsed.
10271 set ctags {}
10275 }
10276 }
10279 } else {
10281 }
10282 } else {
10284 }
10285 set t3 [clock clicks -milliseconds]
10289 }
10291 }
10293 proc anctags {id} {
10294 global arcnos arcids arcout arcend arctags idtags allparents
10295 global growing cached_atags
10298 return {}
10299 }
10300 set t1 [clock clicks -milliseconds]
10303 # part-way along an arc; check that arc first
10312 }
10313 }
10314 }
10316 return {}
10317 }
10321 }
10322 }
10325 }
10330 set taglist {}
10331 set nc 1
10337 incr nc -1
10338 }
10339 # ignore tags on starting node
10343 set td 1
10346 set td 1
10347 }
10348 }
10354 }
10355 }
10367 }
10368 }
10371 }
10373 incr nc -1
10374 }
10376 }
10377 }
10378 }
10383 incr nc
10384 }
10385 }
10386 }
10387 }
10388 set t2 [clock clicks -milliseconds]
10390 set tags {}
10391 foreach id [array names tagloc] {
10396 }
10397 }
10398 }
10399 }
10401 # remove tags that are ancestors of other tags
10409 incr j -1
10410 incr i -1
10413 incr i -1
10414 break
10415 }
10416 }
10417 }
10419 if {[array names growing] ne {}} {
10420 # graph isn't finished, need to check if any tag could get
10421 # eclipsed by another tag coming later. Simply ignore any
10422 # tags that could later get eclipsed.
10423 set ctags {}
10427 }
10428 }
10431 } else {
10433 }
10434 } else {
10436 }
10437 set t3 [clock clicks -milliseconds]
10441 }
10443 }
10445 # Return the list of IDs that have heads that are descendents of id,
10446 # including id itself if it has a head.
10447 proc descheads {id} {
10448 global arcnos arcstart arcids archeads idheads cached_dheads
10449 global allparents
10452 return {}
10453 }
10454 set aret {}
10456 # part-way along an arc; check it first
10465 }
10466 }
10468 }
10472 set ret {}
10477 } else {
10480 }
10486 }
10487 }
10492 }
10493 }
10494 }
10495 }
10499 }
10501 proc addedtag {id} {
10502 global arcnos arcout cached_dtags cached_atags
10507 }
10508 catch {unset cached_dtags}
10509 catch {unset cached_atags}
10510 }
10512 proc addedhead {hid head} {
10513 global arcnos arcout cached_dheads
10518 }
10519 catch {unset cached_dheads}
10520 }
10522 proc removedhead {hid head} {
10523 global cached_dheads
10525 catch {unset cached_dheads}
10526 }
10528 proc movedhead {hid head} {
10529 global arcnos arcout cached_dheads
10534 }
10535 catch {unset cached_dheads}
10536 }
10538 proc changedrefs {} {
10539 global cached_dheads cached_dtags cached_atags
10540 global arctags archeads arcnos arcout idheads idtags
10542 foreach id [concat [array names idheads] [array names idtags]] {
10548 }
10549 }
10550 }
10551 catch {unset cached_dtags}
10552 catch {unset cached_atags}
10553 catch {unset cached_dheads}
10554 }
10556 proc rereadrefs {} {
10557 global idtags idheads idotherrefs mainheadid
10559 set refids [concat [array names idtags] \
10560 [array names idheads] [array names idotherrefs]]
10564 }
10565 }
10567 readrefs
10568 changedrefs
10570 [array names idheads] [array names idotherrefs]]]
10575 }
10576 }
10580 }
10581 run refill_reflist
10582 }
10584 proc listrefs {id} {
10585 global idtags idheads idotherrefs
10587 set x {}
10590 }
10591 set y {}
10594 }
10595 set z {}
10598 }
10600 }
10602 proc showtag {tag isnew} {
10603 global ctext tagcontents tagids linknum tagobjid
10607 }
10609 clear_ctext
10610 settabs 0
10611 set linknum 0
10613 catch {
10615 }
10616 }
10619 } else {
10621 }
10623 maybe_scroll_ctext 1
10625 init_flist {}
10626 }
10628 proc doquit {} {
10629 global stopped
10630 global gitktmpdir
10632 set stopped 100
10633 savestuff .
10634 destroy .
10636 if {[info exists gitktmpdir]} {
10638 }
10639 }
10641 proc mkfontdisp {font top which} {
10650 }
10652 proc choosefont {font which} {
10653 global fontparam fontlist fonttop fontattr
10654 global prefstop NS
10662 set top .gitkfont
10665 font create sample
10672 set fontlist [lsort [font families]]
10683 -textvariable fontparam(size) \
10684 -validatecommand {string is integer -strict %s}
10686 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10687 -variable fontparam(weight) -onvalue bold -offvalue normal
10689 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10690 -variable fontparam(slant) -onvalue italic -offvalue roman
10694 -background white
10696 -fill black -tags text
10708 trace add variable fontparam write chg_fontparam
10709 } else {
10712 }
10717 }
10718 }
10720 proc centertext {w} {
10722 }
10724 proc fontok {} {
10725 global fontparam fontpref prefstop
10731 }
10734 }
10738 fontcan
10739 }
10741 proc fontcan {} {
10742 global fonttop fontparam
10744 if {[info exists fonttop]} {
10746 catch {font delete sample}
10747 unset fonttop
10748 unset fontparam
10749 }
10750 }
10752 if {[package vsatisfies [package provide Tk] 8.6]} {
10753 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10754 # function to make use of it.
10755 proc choosefont {font which} {
10758 tk fontchooser show
10759 }
10760 proc on_choosefont {font which newfont} {
10761 global fontparam
10770 fontok
10771 }
10772 }
10774 proc selfontfam {} {
10775 global fonttop fontparam
10780 }
10781 }
10783 proc chg_fontparam {v sub op} {
10784 global fontparam
10787 }
10789 proc doprefs {} {
10790 global maxwidth maxgraphpct use_ttk NS
10791 global oldprefs prefstop showneartags showlocalchanges
10792 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10793 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
10794 global hideremotes want_ttk have_ttk
10796 set top .gitkprefs
10800 return
10801 }
10802 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10803 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10805 }
10819 -variable showlocalchanges
10822 -variable autoselect
10826 -variable hideremotes
10835 -variable showneartags
10838 -variable limitdiffs
10841 -variable perfile_attrs
10855 -text [mc "Use themed widgets"]
10858 } else {
10860 }
10890 [mc "diff hunk header"] \
10896 [mc "marked line background"] \
10921 }
10923 proc choose_extdiff {} {
10924 global extdifftool
10926 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10929 }
10930 }
10932 proc choosecolor {v vi w x cmd} {
10941 }
10943 proc setselbg {c} {
10944 global bglist cflist
10947 }
10951 }
10953 # This sets the background color and the color scheme for the whole UI.
10954 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10955 # if we don't specify one ourselves, which makes the checkbuttons and
10956 # radiobuttons look bad. This chooses white for selectColor if the
10957 # background color is light, or black if it is dark.
10958 proc setui {c} {
10959 if {[tk windowingsystem] eq "win32"} { return }
10961 set selc black
10963 set selc white
10964 }
10966 }
10968 proc setbg {c} {
10969 global bglist
10973 }
10974 }
10976 proc setfg {c} {
10977 global fglist canv
10981 }
10985 }
10987 proc prefscan {} {
10988 global oldprefs prefstop
10990 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10991 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10994 }
10996 unset prefstop
10997 fontcan
10998 }
11000 proc prefsok {} {
11001 global maxwidth maxgraphpct
11002 global oldprefs prefstop showneartags showlocalchanges
11003 global fontpref mainfont textfont uifont
11004 global limitdiffs treediffs perfile_attrs
11005 global hideremotes
11008 unset prefstop
11009 fontcan
11010 set fontchanged 0
11014 eval font configure mainfont [fontflags mainfont]
11015 eval font configure mainfontbold [fontflags mainfont 1]
11016 setcoords
11017 set fontchanged 1
11018 }
11022 eval font configure textfont [fontflags textfont]
11023 eval font configure textfontbold [fontflags textfont 1]
11024 }
11028 eval font configure uifont [fontflags uifont]
11029 }
11030 settabs
11033 doshowlocalchanges
11034 } else {
11035 dohidelocalchanges
11036 }
11037 }
11040 # treediffs elements are limited by path;
11041 # won't have encodings cached if perfile_attrs was just turned on
11042 catch {unset treediffs}
11043 }
11046 redisplay
11049 reselectline
11050 }
11052 rereadrefs
11053 }
11054 }
11056 proc formatdate {d} {
11057 global datetimeformat
11060 }
11062 }
11064 # This list of encoding names and aliases is distilled from
11065 # http://www.iana.org/assignments/character-sets.
11066 # Not all of them are supported by Tcl.
11067 set encoding_aliases {
11068 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11069 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11070 { ISO-10646-UTF-1 csISO10646UTF1 }
11071 { ISO_646.basic:1983 ref csISO646basic1983 }
11072 { INVARIANT csINVARIANT }
11073 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11074 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11075 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11076 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11077 { NATS-DANO iso-ir-9-1 csNATSDANO }
11078 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11079 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11080 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11081 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11082 { ISO-2022-KR csISO2022KR }
11083 { EUC-KR csEUCKR }
11084 { ISO-2022-JP csISO2022JP }
11085 { ISO-2022-JP-2 csISO2022JP2 }
11086 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11087 csISO13JISC6220jp }
11088 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11089 { IT iso-ir-15 ISO646-IT csISO15Italian }
11090 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11091 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11092 { greek7-old iso-ir-18 csISO18Greek7Old }
11093 { latin-greek iso-ir-19 csISO19LatinGreek }
11094 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11095 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11096 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11097 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11098 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11099 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11100 { INIS iso-ir-49 csISO49INIS }
11101 { INIS-8 iso-ir-50 csISO50INIS8 }
11102 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11103 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11104 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11105 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11106 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11107 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11108 csISO60Norwegian1 }
11109 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11110 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11111 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11112 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11113 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11114 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11115 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11116 { greek7 iso-ir-88 csISO88Greek7 }
11117 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11118 { iso-ir-90 csISO90 }
11119 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11120 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11121 csISO92JISC62991984b }
11122 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11123 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11124 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11125 csISO95JIS62291984handadd }
11126 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11127 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11128 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11129 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11130 CP819 csISOLatin1 }
11131 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11132 { T.61-7bit iso-ir-102 csISO102T617bit }
11133 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11134 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11135 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11136 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11137 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11138 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11139 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11140 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11141 arabic csISOLatinArabic }
11142 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11143 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11144 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11145 greek greek8 csISOLatinGreek }
11146 { T.101-G2 iso-ir-128 csISO128T101G2 }
11147 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11148 csISOLatinHebrew }
11149 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11150 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11151 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11152 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11153 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11154 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11155 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11156 csISOLatinCyrillic }
11157 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11158 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11159 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11160 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11161 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11162 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11163 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11164 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11165 { ISO_10367-box iso-ir-155 csISO10367Box }
11166 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11167 { latin-lap lap iso-ir-158 csISO158Lap }
11168 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11169 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11170 { us-dk csUSDK }
11171 { dk-us csDKUS }
11172 { JIS_X0201 X0201 csHalfWidthKatakana }
11173 { KSC5636 ISO646-KR csKSC5636 }
11174 { ISO-10646-UCS-2 csUnicode }
11175 { ISO-10646-UCS-4 csUCS4 }
11176 { DEC-MCS dec csDECMCS }
11177 { hp-roman8 roman8 r8 csHPRoman8 }
11178 { macintosh mac csMacintosh }
11179 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11180 csIBM037 }
11181 { IBM038 EBCDIC-INT cp038 csIBM038 }
11182 { IBM273 CP273 csIBM273 }
11183 { IBM274 EBCDIC-BE CP274 csIBM274 }
11184 { IBM275 EBCDIC-BR cp275 csIBM275 }
11185 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11186 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11187 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11188 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11189 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11190 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11191 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11192 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11193 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11194 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11195 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11196 { IBM437 cp437 437 csPC8CodePage437 }
11197 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11198 { IBM775 cp775 csPC775Baltic }
11199 { IBM850 cp850 850 csPC850Multilingual }
11200 { IBM851 cp851 851 csIBM851 }
11201 { IBM852 cp852 852 csPCp852 }
11202 { IBM855 cp855 855 csIBM855 }
11203 { IBM857 cp857 857 csIBM857 }
11204 { IBM860 cp860 860 csIBM860 }
11205 { IBM861 cp861 861 cp-is csIBM861 }
11206 { IBM862 cp862 862 csPC862LatinHebrew }
11207 { IBM863 cp863 863 csIBM863 }
11208 { IBM864 cp864 csIBM864 }
11209 { IBM865 cp865 865 csIBM865 }
11210 { IBM866 cp866 866 csIBM866 }
11211 { IBM868 CP868 cp-ar csIBM868 }
11212 { IBM869 cp869 869 cp-gr csIBM869 }
11213 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11214 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11215 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11216 { IBM891 cp891 csIBM891 }
11217 { IBM903 cp903 csIBM903 }
11218 { IBM904 cp904 904 csIBBM904 }
11219 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11220 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11221 { IBM1026 CP1026 csIBM1026 }
11222 { EBCDIC-AT-DE csIBMEBCDICATDE }
11223 { EBCDIC-AT-DE-A csEBCDICATDEA }
11224 { EBCDIC-CA-FR csEBCDICCAFR }
11225 { EBCDIC-DK-NO csEBCDICDKNO }
11226 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11227 { EBCDIC-FI-SE csEBCDICFISE }
11228 { EBCDIC-FI-SE-A csEBCDICFISEA }
11229 { EBCDIC-FR csEBCDICFR }
11230 { EBCDIC-IT csEBCDICIT }
11231 { EBCDIC-PT csEBCDICPT }
11232 { EBCDIC-ES csEBCDICES }
11233 { EBCDIC-ES-A csEBCDICESA }
11234 { EBCDIC-ES-S csEBCDICESS }
11235 { EBCDIC-UK csEBCDICUK }
11236 { EBCDIC-US csEBCDICUS }
11237 { UNKNOWN-8BIT csUnknown8BiT }
11238 { MNEMONIC csMnemonic }
11239 { MNEM csMnem }
11240 { VISCII csVISCII }
11241 { VIQR csVIQR }
11242 { KOI8-R csKOI8R }
11243 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11244 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11245 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11246 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11247 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11248 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11249 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11250 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11251 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11252 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11253 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11254 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11255 { IBM1047 IBM-1047 }
11256 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11257 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11258 { UNICODE-1-1 csUnicode11 }
11259 { CESU-8 csCESU-8 }
11260 { BOCU-1 csBOCU-1 }
11261 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11262 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11263 l8 }
11264 { ISO-8859-15 ISO_8859-15 Latin-9 }
11265 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11266 { GBK CP936 MS936 windows-936 }
11267 { JIS_Encoding csJISEncoding }
11268 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11269 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11270 EUC-JP }
11271 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11272 { ISO-10646-UCS-Basic csUnicodeASCII }
11273 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11274 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11275 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11276 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11277 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11278 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11279 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11280 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11281 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11282 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11283 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11284 { Ventura-US csVenturaUS }
11285 { Ventura-International csVenturaInternational }
11286 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11287 { PC8-Turkish csPC8Turkish }
11288 { IBM-Symbols csIBMSymbols }
11289 { IBM-Thai csIBMThai }
11290 { HP-Legal csHPLegal }
11291 { HP-Pi-font csHPPiFont }
11292 { HP-Math8 csHPMath8 }
11293 { Adobe-Symbol-Encoding csHPPSMath }
11294 { HP-DeskTop csHPDesktop }
11295 { Ventura-Math csVenturaMath }
11296 { Microsoft-Publishing csMicrosoftPublishing }
11297 { Windows-31J csWindows31J }
11298 { GB2312 csGB2312 }
11299 { Big5 csBig5 }
11300 }
11302 proc tcl_encoding {enc} {
11303 global encoding_aliases tcl_encoding_cache
11306 }
11307 set names [encoding names]
11312 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11315 }
11316 }
11321 # look through the aliases for one that tcl knows about
11327 }
11328 }
11330 }
11331 break
11332 }
11333 }
11334 set tclenc {}
11337 }
11340 }
11342 proc gitattr {path attr default} {
11343 global path_attr_cache
11346 } else {
11347 set r "unspecified"
11350 }
11352 }
11355 }
11357 }
11359 proc cache_gitattr {attr pathlist} {
11360 global path_attr_cache
11361 set newlist {}
11365 }
11366 }
11367 set lim 1000
11368 if {[tk windowingsystem] == "win32"} {
11369 # windows has a 32k limit on the arguments to a command...
11370 set lim 30
11371 }
11380 }
11382 }
11383 }
11384 }
11385 }
11386 }
11388 proc get_path_encoding {path} {
11389 global gui_encoding perfile_attrs
11395 }
11396 }
11398 }
11400 # First check that Tcl/Tk is recent enough
11401 if {[catch {package require Tk 8.4} err]} {
11402 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11403 Gitk requires at least Tcl/Tk 8.4." list
11404 exit 1
11405 }
11407 # defaults...
11408 set wrcomcmd "git diff-tree --stdin -p --pretty"
11410 set gitencoding {}
11411 catch {
11412 set gitencoding [exec git config --get i18n.commitencoding]
11413 }
11414 catch {
11415 set gitencoding [exec git config --get i18n.logoutputencoding]
11416 }
11418 set gitencoding "utf-8"
11419 }
11423 }
11425 set gui_encoding [encoding system]
11426 catch {
11427 set enc [exec git config --get gui.encoding]
11432 } else {
11434 }
11435 }
11436 }
11438 if {[tk windowingsystem] eq "aqua"} {
11439 set mainfont {{Lucida Grande} 9}
11440 set textfont {Monaco 9}
11441 set uifont {{Lucida Grande} 9 bold}
11442 } else {
11443 set mainfont {Helvetica 9}
11444 set textfont {Courier 9}
11445 set uifont {Helvetica 9 bold}
11446 }
11447 set tabstop 8
11448 set findmergefiles 0
11449 set maxgraphpct 50
11450 set maxwidth 16
11451 set revlistorder 0
11452 set fastdate 0
11453 set uparrowlen 5
11454 set downarrowlen 5
11455 set mingaplen 100
11456 set cmitmode "patch"
11457 set wrapcomment "none"
11458 set showneartags 1
11459 set hideremotes 0
11460 set maxrefs 20
11461 set maxlinelen 200
11462 set showlocalchanges 1
11463 set limitdiffs 1
11464 set datetimeformat "%Y-%m-%d %H:%M:%S"
11465 set autoselect 1
11466 set autosellen 40
11467 set perfile_attrs 0
11468 set want_ttk 1
11470 if {[tk windowingsystem] eq "aqua"} {
11471 set extdifftool "opendiff"
11472 } else {
11473 set extdifftool "meld"
11474 }
11476 set colors {green red blue magenta darkgrey brown orange}
11477 if {[tk windowingsystem] eq "win32"} {
11478 set uicolor SystemButtonFace
11479 set bgcolor SystemWindow
11480 set fgcolor SystemButtonText
11481 set selectbgcolor SystemHighlight
11482 } else {
11483 set uicolor grey85
11484 set bgcolor white
11485 set fgcolor black
11486 set selectbgcolor gray85
11487 }
11488 set diffcolors {red "#00a000" blue}
11489 set diffcontext 3
11490 set ignorespace 0
11491 set worddiff ""
11492 set markbgcolor "#e0e0ff"
11494 set circlecolors {white blue gray blue blue}
11496 # button for popping up context menus
11497 if {[tk windowingsystem] eq "aqua"} {
11498 set ctxbut <Button-2>
11499 } else {
11500 set ctxbut <Button-3>
11501 }
11503 ## For msgcat loading, first locate the installation location.
11504 if { [info exists ::env(GITK_MSGSDIR)] } {
11505 ## Msgsdir was manually set in the environment.
11506 set gitk_msgsdir $::env(GITK_MSGSDIR)
11507 } else {
11508 ## Let's guess the prefix from argv0.
11512 unset gitk_prefix
11513 }
11515 ## Internationalization (i18n) through msgcat and gettext. See
11516 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11517 package require msgcat
11518 namespace import ::msgcat::mc
11519 ## And eventually load the actual message catalog
11522 catch {source ~/.gitk}
11525 eval font create mainfont [fontflags mainfont]
11526 eval font create mainfontbold [fontflags mainfont 1]
11529 eval font create textfont [fontflags textfont]
11530 eval font create textfontbold [fontflags textfont 1]
11533 eval font create uifont [fontflags uifont]
11537 setoptions
11539 # check that we can find a .git directory somewhere...
11540 if {[catch {set gitdir [gitdir]}]} {
11541 show_error {} . [mc "Cannot find a git repository here."]
11542 exit 1
11543 }
11546 exit 1
11547 }
11549 set selecthead {}
11550 set selectheadid {}
11552 set revtreeargs {}
11553 set cmdline_files {}
11554 set i 0
11555 set revtreeargscmd {}
11558 "" { }
11559 "--" {
11561 break
11562 }
11563 "--select-commit=*" {
11565 }
11566 "--argscmd=*" {
11568 }
11569 default {
11571 }
11572 }
11573 incr i
11574 }
11577 set selecthead {}
11578 }
11581 # no -- on command line, but some arguments (other than --argscmd)
11582 if {[catch {
11587 # Unfortunately git rev-parse doesn't produce an error when
11588 # something is both a revision and a filename. To be consistent
11589 # with git log and git rev-list, check revtreeargs for filenames.
11592 show_error {} . [mc "Ambiguous argument '%s': both revision\
11594 exit 1
11595 }
11596 }
11597 } err]} {
11599 # so look for "fatal:".
11603 }
11605 exit 1
11606 }
11607 }
11609 set nullid "0000000000000000000000000000000000000000"
11610 set nullid2 "0000000000000000000000000000000000000001"
11611 set nullfile "/dev/null"
11614 if {![info exists have_ttk]} {
11615 set have_ttk [llength [info commands ::ttk::style]]
11616 }
11620 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
11622 set show_notes {}
11624 set show_notes "--show-notes"
11625 }
11627 set runq {}
11628 set history {}
11629 set historyindex 0
11630 set fh_serial 0
11631 set nhl_names {}
11632 set highlight_paths {}
11633 set findpattern {}
11634 set searchdirn -forwards
11635 set boldids {}
11636 set boldnameids {}
11637 set diffelide {0 0}
11638 set markingmatches 0
11639 set linkentercount 0
11640 set need_redisplay 0
11641 set nrows_drawn 0
11642 set firsttabstop 0
11644 set nextviewnum 1
11645 set curview 0
11646 set selectedview 0
11647 set selectedhlview [mc "None"]
11648 set highlight_related [mc "None"]
11649 set highlight_files {}
11650 set viewfiles(0) {}
11651 set viewperm(0) 0
11652 set viewargs(0) {}
11653 set viewargscmd(0) {}
11655 set selectedline {}
11656 set numcommits 0
11657 set loginstance 0
11658 set cmdlineok 0
11659 set stopped 0
11660 set stuffsaved 0
11661 set patchnum 0
11662 set lserial 0
11663 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11664 setcoords
11665 makewindow
11666 catch {
11667 image create photo gitlogo -width 16 -height 16
11669 image create photo gitlogominus -width 4 -height 2
11670 gitlogominus put #C00000 -to 0 0 4 2
11671 gitlogo copy gitlogominus -to 1 5
11672 gitlogo copy gitlogominus -to 6 5
11673 gitlogo copy gitlogominus -to 11 5
11674 image delete gitlogominus
11676 image create photo gitlogoplus -width 4 -height 4
11677 gitlogoplus put #008000 -to 1 0 3 4
11678 gitlogoplus put #008000 -to 0 1 4 3
11679 gitlogo copy gitlogoplus -to 1 9
11680 gitlogo copy gitlogoplus -to 6 9
11681 gitlogo copy gitlogoplus -to 11 9
11682 image delete gitlogoplus
11684 image create photo gitlogo32 -width 32 -height 32
11685 gitlogo32 copy gitlogo -zoom 2 2
11687 wm iconphoto . -default gitlogo gitlogo32
11688 }
11689 # wait for the window to become visible
11690 tkwait visibility .
11692 update
11693 readrefs
11696 # create a view for the files/dirs specified on the command line
11697 set curview 1
11698 set selectedview 1
11699 set nextviewnum 2
11700 set viewname(1) [mc "Command line"]
11704 set viewperm(1) 0
11705 set vdatemode(1) 0
11706 addviewmenu 1
11707 .bar.view entryconf [mca "Edit view..."] -state normal
11708 .bar.view entryconf [mca "Delete view"] -state normal
11709 }
11711 if {[info exists permviews]} {
11714 incr nextviewnum
11721 }
11722 }
11724 if {[tk windowingsystem] eq "win32"} {
11725 focus -force .
11726 }
11728 getcommits {}
11730 # Local variables:
11731 # mode: tcl
11732 # indent-tabs-mode: t
11733 # tab-width: 8
11734 # End: