| blob | 1b0e09a561e01c51bdc6dbced052e0c753924618 |
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 # A simple scheduler for compute-intensive stuff.
22 # The aim is to make sure that event handlers for GUI actions can
23 # run at least every 50-100 ms. Unfortunately fileevent handlers are
24 # run before X event handlers, so reading from a fast source can
25 # make the GUI completely unresponsive.
26 proc run args {
27 global isonrunq runq currunq
32 after idle dorunq
33 }
36 }
40 }
43 global runq currunq
47 after idle dorunq
48 }
50 }
53 global runq
59 incr i
60 }
61 }
62 }
64 proc dorunq {} {
65 global isonrunq runq currunq
75 unset currunq
80 # script returns 1 if it wants to be readded
81 # file readers return 2 if they could do more straight away
85 }
88 }
91 }
93 after idle dorunq
94 }
95 }
98 global commfd leftover loginstance
104 }
107 global nr_unmerged
109 # find the list of unmerged files
116 exit 1
117 }
123 incr nr_unmerged
126 }
127 }
130 }
132 proc parseviewargs {n arglist} {
133 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
137 set glflags {}
138 set diffargs {}
139 set nextisval 0
140 set revargs {}
142 set allknown 1
143 set filtered 0
144 set i -1
146 incr i
149 set nextisval 0
150 continue
151 }
153 "-d" -
154 "--date-order" {
156 # remove from origargs in case we hit an unknown option
158 incr i -1
159 }
160 "-[puabwcrRBMC]" -
161 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
162 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
163 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
164 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
165 "--ignore-space-change" - "-U*" - "--unified=*" {
166 # These request or affect diff output, which we don't want.
167 # Some could be used to set our defaults for diff display.
168 lappend diffargs $arg
169 }
177 # These cause our parsing of git log's output to fail, or else
178 # they're options we want to set ourselves, so ignore them.
179 }
184 # These are harmless, and some are even useful
185 lappend glflags $arg
186 }
194 # These mean that we get a subset of the commits
196 lappend glflags $arg
197 }
199 # This appears to be the only one that has a value as a
200 # separate word following it
203 lappend glflags $arg
204 }
206 lappend revargs $arg
207 }
210 # git rev-parse doesn't understand --merge
211 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
212 }
215 }
217 # Other flag arguments including -<n>
221 # a flag argument that we don't recognize;
222 # that means we can't optimize
224 }
225 lappend glflags $arg
226 }
227 default {
228 # Non-flag arguments specify commits or ranges of commits
230 lappend revargs --gitk-symmetric-diff-marker
231 }
232 lappend revargs $arg
233 }
234 }
235 }
242 }
245 global vposids vnegids
248 set revs HEAD
249 }
251 # we get stdout followed by stderr in $err
252 # for an unknown rev, git rev-parse echoes it and then errors out
265 }
268 }
269 break
270 }
271 lappend badrev $line
272 }
273 }
276 }
286 lappend ret $id
289 }
290 }
294 lappend ret $id
297 }
298 lappend pos $id
299 }
300 incr sdm -1
301 }
305 }
307 # Start off a git log process and arrange to read its output
309 global startmsecs commitidx viewcomplete curview
310 global tclencoding
311 global viewargs viewargscmd viewfiles vfilelimit
312 global showlocalchanges
313 global viewactive viewinstances vmergeonly
314 global mainheadid viewmainheadid viewmainheadid_orig
315 global vcanopt vflags vrevs vorigargs
319 # these are set this way for the error exits
322 varcinit $view
331 }
333 }
340 global nr_unmerged
347 }
349 }
350 }
357 }
361 }
369 }
375 get_viewmainhead $view
376 }
379 }
383 }
389 }
392 global commfd leftover
395 catch {
402 }
403 }
405 nukefile $fd
408 }
410 proc stop_backends {} {
411 global commfd
414 stop_instance $inst
415 }
416 }
419 global viewinstances
422 stop_instance $inst
423 }
425 }
428 global pending_select mainheadid selectheadid
436 }
437 }
440 global canv curview need_redisplay viewactive
442 initlayout
444 reset_pending_select $selid
449 }
450 }
452 proc updatecommits {} {
453 global curview vcanopt vorigargs vfilelimit viewinstances
454 global viewactive viewcomplete tclencoding
455 global startmsecs showneartags showlocalchanges
456 global mainheadid viewmainheadid viewmainheadid_orig pending_select
457 global isworktree
458 global varcid vposids vnegids vflags vrevs
461 rereadrefs
465 dohidelocalchanges
466 }
470 get_viewmainhead $view
471 }
472 }
474 doshowlocalchanges
475 }
481 return
482 }
483 # note: getting the delta when negative refs change is hard,
484 # and could require multiple git log invocations, so in that
485 # case we ask git log for all the commits (not just the delta)
489 # take out positive refs that we asked for before or
490 # that we have already seen
495 lappend newrevs $rev
496 incr npos
497 }
499 lappend $newrevs $rev
500 }
501 }
505 }
509 }
515 return
516 }
519 }
525 }
529 reset_pending_select {}
532 getallcommits
533 }
534 }
536 proc reloadcommits {} {
537 global curview viewcomplete selectedline currentid thickerline
538 global showneartags treediffs commitinterest cached_commitrow
539 global targetid
544 }
547 stop_rev_list $curview
548 }
549 resetvarcs $curview
554 readrefs
555 changedrefs
557 getallcommits
558 }
559 clear_display
563 setcanvscroll
564 getcommits $selid
566 }
568 # This makes a string representation of a positive integer which
569 # sorts as a string in numerical order
577 }
579 }
581 # Procedures used in reordering commits from git log (without
582 # --topo-order) into the order for display.
585 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
586 global vtokmod varcmod vrowmod varcix vlastins
600 }
603 global varcid varccommits parents children vseedcount ordertok
609 }
610 # some commits might have children but haven't been seen yet
613 }
616 }
619 }
621 }
623 # returns a list of the commits with no children
625 global vdownptr vleftptr varcstart
632 }
634 }
637 global varcid varctok parents children vdatemode
638 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
639 global commitdata commitinfo vseedcount varccommits vlastins
646 }
650 }
653 }
659 }
668 }
669 }
674 }
681 }
685 }
692 }
698 }
707 }
710 global varcid varcstart varccommits varctok vtokmod
711 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
719 # "%" sorts before "0"...
729 }
739 }
741 modify_arc $v $oa
742 }
743 }
746 global parents children varctok varcstart varccommits
747 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
756 lappend todo $a
761 }
762 }
763 }
764 incr ntot
771 }
772 }
774 }
781 }
787 }
796 }
797 }
802 }
804 continue
805 }
812 }
813 }
818 modify_arc $v $ka
819 }
821 modify_arc $v $b
822 }
829 }
832 }
835 }
844 }
849 }
856 }
860 }
862 }
863 }
868 }
869 }
871 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
872 }
874 # Fix up the graph after we have found out that in view $v,
875 # $p (a commit that we have already seen) is actually the parent
876 # of the last commit in arc $a.
878 global varcid varcstart varctok vupptr
882 splitvarc $p $v
884 }
885 # seeds always need to be renumbered
889 renumbervarc $pa $v
890 }
891 }
894 global cmitlisted children parents varcid varctok vtokmod
895 global varccommits ordertok commitidx numcommits curview
896 global targetid targetrow
898 readcommit $id
906 modify_arc $v $a
907 }
913 }
914 fix_reversal $p $a $v
918 setcanvscroll
921 incr targetrow
922 }
923 }
924 }
925 }
928 global varcid varccommits parents children cmitlisted
929 global commitidx varctok vtokmod targetid targetrow curview numcommits
936 return
937 }
944 # note we deliberately don't update varcstart($v) even if $i == 0
946 modify_arc $v $a $i
949 incr targetrow
950 }
951 }
952 setcanvscroll
953 drawvisible
954 }
957 global varcid varccommits parents children commitidx
958 global varctok vtokmod cmitlisted currentid selectedline
959 global targetid curview numcommits
964 return
965 }
971 return
972 }
982 }
983 modify_arc $v $a $i
985 unset currentid
987 }
990 }
991 setcanvscroll
992 drawvisible
993 }
996 global children nullid nullid2
1001 lappend kids $id
1002 }
1003 }
1005 }
1008 global children nullid nullid2
1013 }
1014 }
1016 }
1019 global children nullid nullid2
1026 }
1027 }
1029 }
1032 global varctok varcid
1036 }
1038 # This assumes that if lim is not given, the caller has checked that
1039 # arc a's token is less than $vtokmod($v)
1041 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1049 }
1050 }
1057 }
1062 }
1064 }
1066 undolayout $r
1067 }
1068 }
1071 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1072 global varcid vrownum varcorder varcix varccommits
1073 global vupptr vdownptr vleftptr varctok
1074 global displayorder parentlist curview cached_commitrow
1081 }
1083 }
1087 # go up the tree until we find something that has a row number,
1088 # or we get to a seed
1090 }
1105 }
1107 }
1111 # go down if possible
1114 # if not, go left, or go up until we can go left
1119 }
1121 }
1123 incr arcn
1128 }
1134 }
1135 }
1137 # Test whether view $v contains commit $id
1139 global varcid
1142 }
1144 # Return the row number for commit $id in the current view
1146 global varcid varccommits varcrow curview cached_commitrow
1147 global varctok vtokmod
1153 }
1156 update_arcrows $v
1157 }
1160 }
1165 }
1169 }
1171 # Returns 1 if a is on an earlier row than b, otherwise 0
1173 global varcid varctok curview
1179 }
1183 }
1185 }
1190 }
1202 }
1203 }
1205 }
1207 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1209 global vrownum curview commitidx displayorder parentlist
1210 global varccommits varcorder parents vrowmod varcrow
1211 global d_valid_start d_valid_end
1214 update_arcrows $curview
1215 }
1231 }
1233 lappend displayorder $id
1235 }
1239 lset displayorder $i $id
1241 incr i
1242 }
1243 }
1244 incr r $al
1245 }
1246 }
1249 global displayorder
1255 }
1257 }
1260 global varctok varccommits varcid parents children
1261 global cmitlisted commitidx vtokmod
1270 # add p as a new commit
1271 incr missing_parents
1279 }
1282 modify_arc $v $b
1283 }
1287 }
1288 }
1292 }
1293 }
1294 }
1296 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1297 # Assumes we already have an arc for $rwid.
1299 global children parents varcid varctok vtokmod varccommits
1302 # make $rwid be $ch's parent in place of $id
1306 }
1308 # add $ch to $rwid's children and sort the list if necessary
1312 }
1313 # fix the graph after joining $id to $rwid
1315 fix_reversal $rwid $a $v
1316 # parentlist is wrong for the last element of arc $a
1317 # even if displayorder is right, hence the 3rd arg here
1319 }
1320 }
1322 # Mechanism for registering a command to be executed when we come
1323 # across a particular commit. To handle the case when only the
1324 # prefix of the commit is known, the commitinterest array is now
1325 # indexed by the first 4 characters of the ID. Each element is a
1326 # list of id, cmd pairs.
1328 global commitinterest
1331 }
1334 global commitinterest
1343 lappend newlist $i $script
1344 }
1345 }
1350 }
1351 }
1353 }
1356 global cmitlisted leftover
1357 global commitidx commitdata vdatemode
1358 global parents children curview hlview
1359 global idpending ordertok
1360 global varccommits varcid varctok vtokmod vfilelimit
1363 # git log doesn't terminate the last commit with a null...
1366 }
1370 }
1371 global commfd viewcomplete viewactive viewname
1372 global viewinstances
1377 }
1378 # set it blocking so we wait for the process to terminate
1384 }
1387 bad arguments to git log."
1389 append err \
1390 " (Note: arguments to gitk are passed to git log\
1391 to allow selection of commits to be displayed.)"
1392 }
1395 }
1396 error_popup $err
1397 }
1400 # Check if we have seen any ids listed as parents that haven't
1401 # appeared in the list
1402 closevarcs $view
1403 notbusy $view
1404 }
1406 run chewcommits
1407 }
1409 }
1417 break
1418 }
1425 }
1438 }
1440 }
1445 break
1446 }
1447 }
1448 }
1453 }
1455 exit 1
1456 }
1463 # when doing path limiting, so work around that here
1464 # by working out the rewritten parent with git rev-list
1465 # and if we already know about it, using the rewritten
1466 # parent as a substitute parent for $id's children.
1470 }]} {
1472 # use $rwid in place of $id
1473 rewrite_commit $view $id $rwid
1474 continue
1475 }
1476 }
1477 }
1483 }
1488 }
1500 }
1501 }
1503 # new arc
1505 }
1507 modify_arc $view $a
1508 }
1513 }
1524 }
1526 fix_reversal $p $a $view
1527 }
1528 }
1529 incr i
1530 }
1534 }
1536 global numcommits hlview
1540 run chewcommits
1541 }
1543 # we never actually get here...
1544 run vhighlightmore
1545 }
1548 }
1549 }
1551 }
1553 proc chewcommits {} {
1554 global curview hlview viewcomplete
1555 global pending_select
1557 layoutmore
1559 global commitidx varctok
1560 global numcommits startmsecs
1563 update
1564 reset_pending_select {}
1571 }
1572 }
1574 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1575 #puts "overall $ms ms for $numcommits commits"
1576 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1579 }
1580 notbusy layout
1581 }
1583 }
1586 global tclencoding
1588 # Invoke git-log to handle automatic encoding conversion
1590 # Read the results using i18n.logoutputencoding
1594 }
1596 close $fd
1597 # Remove the heading line
1601 }
1606 }
1609 global commitinfo cdate
1620 # should never happen...
1622 }
1634 }
1635 }
1637 # take the first non-blank line of the comment as the headline
1642 }
1647 }
1649 # git log indents the comment by 4 spaces;
1650 # if we got this via git cat-file, add the indentation
1653 append newcomment " "
1654 append newcomment $line
1656 }
1658 }
1661 }
1664 }
1667 global commitdata commitinfo
1672 readcommit $id
1675 }
1676 }
1678 }
1680 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1681 # and are present in the current view.
1682 # This is fairly slow...
1684 global varcid curview
1689 }
1691 }
1693 proc readrefs {} {
1694 global tagids idtags headids idheads tagobjid
1695 global otherrefids idotherrefs mainhead mainheadid
1696 global selecthead selectheadid
1697 global hideremotes
1701 }
1713 }
1719 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1720 # which is what we want since the former is the commit ID
1726 }
1732 }
1733 }
1737 catch {
1742 }
1743 }
1746 catch {
1748 }
1749 }
1750 }
1752 # skip over fake commits
1753 proc first_real_row {} {
1754 global nullid nullid2 numcommits
1759 break
1760 }
1761 }
1763 }
1765 # update things for a head moved to a child of its previous location
1767 global headids idheads
1772 }
1774 # update things when a head has been removed
1776 global headids idheads
1784 }
1785 }
1787 }
1790 global use_ttk
1794 }
1796 }
1799 global have_tk85
1801 # In MacOS Tk 8.4 transient appears to work by setting
1802 # overrideredirect, which is utterly useless, since the
1803 # windows get no border, and are not even kept above
1804 # the parent.
1807 wm transient $window $origin
1809 # Windows fails to place transient windows normally, so
1810 # schedule a callback to center them on the parent.
1813 }
1814 }
1817 global NS
1828 tkwait window $top
1829 }
1836 set w .error
1837 ttk_toplevel $w
1838 make_transient $w $owner
1839 show_error $w $w $msg
1840 }
1841 }
1844 global confirm_ok NS
1846 set w .confirm
1847 ttk_toplevel $w
1848 make_transient $w $owner
1860 tkwait window $w
1862 }
1864 proc setoptions {} {
1867 option add *Panedwindow.sashRelief raised startupFile
1869 option add *Menu.font uifont startupFile
1870 }
1873 }
1874 option add *Button.font uifont startupFile
1875 option add *Checkbutton.font uifont startupFile
1876 option add *Radiobutton.font uifont startupFile
1877 option add *Menubutton.font uifont startupFile
1878 option add *Label.font uifont startupFile
1879 option add *Message.font uifont startupFile
1880 option add *Entry.font textfont startupFile
1881 option add *Text.font textfont startupFile
1882 option add *Labelframe.font uifont startupFile
1883 option add *Spinbox.font textfont startupFile
1884 option add *Listbox.font mainfont startupFile
1885 }
1887 # Make a menu and submenus.
1888 # m is the window name for the menu, items is the list of menu items to add.
1889 # Each item is a list {mc label type description options...}
1890 # mc is ignored; it's so we can put mc there to alert xgettext
1891 # label is the string that appears in the menu
1892 # type is cascade, command or radiobutton (should add checkbutton)
1893 # description depends on type; it's the sublist for cascade, the
1894 # command to invoke for command, or {variable value} for radiobutton
1896 menu $m
1898 set Meta1 Cmd
1900 set Meta1 Ctrl
1901 }
1912 }
1913 }
1918 }
1921 }
1925 }
1926 }
1932 }
1933 }
1934 }
1936 # translate string and remove ampersands
1939 }
1942 global use_ttk
1948 }
1953 }
1955 }
1957 proc makewindow {} {
1958 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1959 global tabstop
1960 global findtype findtypemenu findloc findstring fstring geometry
1961 global entries sha1entry sha1string sha1but
1962 global diffcontextstring diffcontext
1963 global ignorespace
1964 global maincursor textcursor curtextcursor
1965 global rowctxmenu fakerowmenu mergemax wrapcomment
1966 global highlight_files gdttype
1967 global searchstring sstring
1968 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1969 global headctxmenu progresscanv progressitem progresscoords statusw
1970 global fprogitem fprogcoord lastprogupdate progupdatepending
1971 global rprogitem rprogcoord rownumsel numcommits
1972 global have_tk85 use_ttk NS
1974 # The "mc" arguments here are purely so that xgettext
1975 # sees the following string as needing to be translated
1986 }}
1990 }}
1998 }}
2004 }}
2014 }}
2018 }}
2020 }
2021 makemenu .bar $bar
2022 . configure -menu .bar
2025 # cover the non-themed toplevel with a themed frame.
2027 }
2029 # the gui has upper and lower half, parts of a paned window.
2032 # possibly use assumed geometry
2040 }
2042 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2048 }
2050 # create three canvases
2051 set cscroll .tf.histframe.csb
2052 set canv .tf.histframe.pwclist.canv
2053 canvas $canv \
2057 .tf.histframe.pwclist add $canv
2058 set canv2 .tf.histframe.pwclist.canv2
2059 canvas $canv2 \
2062 .tf.histframe.pwclist add $canv2
2063 set canv3 .tf.histframe.pwclist.canv3
2064 canvas $canv3 \
2067 .tf.histframe.pwclist add $canv3
2073 }
2077 }
2079 # a scroll bar to rule them
2084 lappend bglist $canv $canv2 $canv3
2087 # we have two button bars at bottom of top frame. Bar 1
2091 set sha1entry .tf.bar.sha1
2093 set sha1but .tf.bar.sha1label
2097 pack .tf.bar.sha1label -side left
2099 trace add variable sha1string write sha1change
2103 #define left_width 16
2104 #define left_height 16
2105 static unsigned char left_bits[] = {
2109 }
2111 #define right_width 16
2112 #define right_height 16
2113 static unsigned char right_bits[] = {
2117 }
2132 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2133 -side left
2136 }
2137 global selectedline
2138 trace add variable selectedline write selectedline_change
2140 # Status label and progress bar
2141 set statusw .tf.bar.status
2148 set progresscanv .tf.bar.progress
2153 }
2162 # build up the bottom bar of upper window
2167 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2174 trace add variable gdttype write gdttype_change
2178 set fstring .tf.lbar.findstring
2179 lappend entries $fstring
2181 trace add variable findstring write find_change
2185 trace add variable findtype write findcom_change
2189 trace add variable findloc write find_change
2190 pack .tf.lbar.findloc -side right
2191 pack .tf.lbar.findtype -side right
2194 # Finish putting the upper half of the viewer together
2198 .ctop add .tf
2202 }
2204 # now build up the bottom
2207 # lower left, a text box over search bar, scroll bar to the right
2208 # if we know window height, then that will set the lower text height, otherwise
2209 # we set lower text height which will drive window height
2214 }
2221 set sstring .bleft.top.sstring
2224 lappend entries $sstring
2225 trace add variable searchstring write incrsearch
2238 -textvariable diffcontextstring
2240 trace add variable diffcontextstring write diffcontextchange
2241 lappend entries .bleft.mid.diffcontext
2242 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2246 set ctext .bleft.bottom.ctext
2253 }
2259 grid .bleft.bottom.sbhorizontal -sticky ew
2264 lappend bglist $ctext
2265 lappend fglist $ctext
2294 .pwbottom add .bleft
2297 }
2299 # lower right
2308 set cflist .bright.cfiles
2310 text $cflist \
2313 -font mainfont \
2318 lappend bglist $cflist
2319 lappend fglist $cflist
2323 $cflist tag configure highlight \
2327 .pwbottom add .bright
2328 .ctop add .pwbottom
2330 # restore window width & height if known
2335 }
2338 }
2340 }
2341 }
2345 }
2348 set M1B M1
2351 set M1B Control
2353 }
2359 }
2363 }
2364 }
2369 #bindall <B1-Motion> {selcanvline %W %x %y}
2379 allcanvs yview scroll $delta units
2380 }
2384 }
2385 }
2386 }
2410 bindkey p "selnextline -1"
2411 bindkey n "selnextline 1"
2412 bindkey z "goback"
2413 bindkey x "goforw"
2414 bindkey i "selnextline -1"
2415 bindkey k "selnextline 1"
2416 bindkey j "goback"
2417 bindkey l "goforw"
2418 bindkey b prevfile
2425 bindkey f nextfile
2442 wm protocol . WM_DELETE_WINDOW doquit
2451 global ctxbut
2455 set maincursor [. cget -cursor]
2459 set rowctxmenu .rowctxmenu
2461 {mc "Diff this -> selected" command {diffvssel 0}}
2462 {mc "Diff selected -> this" command {diffvssel 1}}
2463 {mc "Make patch" command mkpatch}
2464 {mc "Create tag" command mktag}
2465 {mc "Write commit to file" command writecommit}
2466 {mc "Create new branch" command mkbranch}
2467 {mc "Cherry-pick this commit" command cherrypick}
2468 {mc "Reset HEAD branch to here" command resethead}
2469 {mc "Mark this commit" command markhere}
2470 {mc "Return to mark" command gotomark}
2471 {mc "Find descendant of this and mark" command find_common_desc}
2472 {mc "Compare with marked commit" command compare_commits}
2473 }
2476 set fakerowmenu .fakerowmenu
2478 {mc "Diff this -> selected" command {diffvssel 0}}
2479 {mc "Diff selected -> this" command {diffvssel 1}}
2480 {mc "Make patch" command mkpatch}
2481 }
2484 set headctxmenu .headctxmenu
2486 {mc "Check out this branch" command cobranch}
2487 {mc "Remove this branch" command rmbranch}
2488 }
2491 global flist_menu
2492 set flist_menu .flistctxmenu
2494 {mc "Highlight this too" command {flist_hl 0}}
2495 {mc "Highlight this only" command {flist_hl 1}}
2496 {mc "External diff" command {external_diff}}
2497 {mc "Blame parent commit" command {external_blame 1}}
2498 }
2501 global diff_menu
2502 set diff_menu .diffctxmenu
2504 {mc "Show origin of this line" command show_line_source}
2505 {mc "Run git gui blame on this line" command {external_blame_diff}}
2506 }
2508 }
2510 # Windows sends all mouse wheel events to the current focused window, not
2511 # the one where the mouse hovers, so bind those events here and redirect
2512 # to the correct window
2513 proc windows_mousewheel_redirector {W X Y D} {
2514 global canv canv2 canv3
2520 } else {
2521 catch {
2523 }
2524 }
2525 }
2526 }
2528 # Update row number label when selectedline changes
2529 proc selectedline_change {n1 n2 op} {
2530 global selectedline rownumsel
2533 set rownumsel {}
2534 } else {
2536 }
2537 }
2539 # mouse-2 makes all windows scan vertically, but only the one
2540 # the cursor is in scans horizontally
2541 proc canvscan {op w x y} {
2542 global canv canv2 canv3
2546 } else {
2548 }
2549 }
2550 }
2552 proc scrollcanv {cscroll f0 f1} {
2554 drawvisible
2555 flushhighlights
2556 }
2558 # when we make a key binding for the toplevel, make sure
2559 # it doesn't get triggered when that key is pressed in the
2560 # find string entry widget.
2561 proc bindkey {ev script} {
2562 global entries
2566 set escript [bind Entry <Key>]
2567 }
2570 }
2571 }
2573 # set the focus back to the toplevel for any click outside
2574 # the entry widgets
2575 proc click {w} {
2576 global ctext entries
2579 }
2580 focus .
2581 }
2583 # Adjust the progress bar for a change in requested extent or canvas size
2584 proc adjustprogress {} {
2585 global progresscanv progressitem progresscoords
2586 global fprogitem fprogcoord lastprogupdate progupdatepending
2587 global rprogitem rprogcoord use_ttk
2591 return
2592 }
2601 set now [clock clicks -milliseconds]
2603 set progupdatepending 0
2604 update
2606 set progupdatepending 1
2608 }
2609 }
2611 proc doprogupdate {} {
2612 global lastprogupdate progupdatepending
2615 set progupdatepending 0
2616 set lastprogupdate [clock clicks -milliseconds]
2617 update
2618 }
2619 }
2621 proc savestuff {w} {
2622 global canv canv2 canv3 mainfont textfont uifont tabstop
2623 global stuffsaved findmergefiles maxgraphpct
2624 global maxwidth showneartags showlocalchanges
2625 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2626 global cmitmode wrapcomment datetimeformat limitdiffs
2627 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2628 global autoselect extdifftool perfile_attrs markbgcolor use_ttk
2629 global hideremotes want_ttk
2632 if {![winfo viewable .]} return
2633 catch {
2634 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2635 set f [open "~/.gitk-new" w]
2636 if {$::tcl_platform(platform) eq {windows}} {
2637 file attributes "~/.gitk-new" -hidden true
2638 }
2673 } else {
2676 }
2684 }
2685 }
2688 file rename -force "~/.gitk-new" "~/.gitk"
2689 }
2690 set stuffsaved 1
2691 }
2693 proc resizeclistpanes {win w} {
2694 global oldwidth use_ttk
2699 } else {
2702 }
2706 } else {
2711 set sash0 30
2712 }
2715 }
2720 }
2721 }
2722 }
2726 } else {
2729 }
2730 }
2732 }
2734 proc resizecdetpanes {win w} {
2735 global oldwidth use_ttk
2739 } else {
2741 }
2744 } else {
2748 set sash0 45
2749 }
2752 }
2753 }
2756 } else {
2758 }
2759 }
2761 }
2763 proc allcanvs args {
2764 global canv canv2 canv3
2768 }
2770 proc bindall {event action} {
2771 global canv canv2 canv3
2775 }
2777 proc about {} {
2778 global uifont NS
2779 set w .about
2782 return
2783 }
2788 Gitk - a commit viewer for git
2790 Copyright \u00a9 2005-2010 Paul Mackerras
2792 Use and redistribute under the terms of the GNU General Public License"] \
2793 -justify center -aspect 400 -border 2 -bg white -relief groove
2801 }
2803 proc keys {} {
2804 global NS
2805 set w .keys
2808 return
2809 }
2810 if {[tk windowingsystem] eq {aqua}} {
2811 set M1T Cmd
2812 } else {
2813 set M1T Ctrl
2814 }
2819 [mc "Gitk key bindings:"]
2823 [mc "<Home> Move to first commit"]
2824 [mc "<End> Move to last commit"]
2825 [mc "<Up>, p, i Move up one commit"]
2826 [mc "<Down>, n, k Move down one commit"]
2827 [mc "<Left>, z, j Go back in history list"]
2828 [mc "<Right>, x, l Go forward in history list"]
2829 [mc "<PageUp> Move up one page in commit list"]
2830 [mc "<PageDown> Move down one page in commit list"]
2837 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2838 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2839 [mc "<Delete>, b Scroll diff view up one page"]
2840 [mc "<Backspace> Scroll diff view up one page"]
2841 [mc "<Space> Scroll diff view down one page"]
2842 [mc "u Scroll diff view up 18 lines"]
2843 [mc "d Scroll diff view down 18 lines"]
2846 [mc "<Return> Move to next find hit"]
2847 [mc "/ Focus the search box"]
2848 [mc "? Move to previous find hit"]
2849 [mc "f Scroll diff view to next file"]
2856 [mc "<F5> Update"]
2857 " \
2858 -justify left -bg white -border 2 -relief groove
2866 }
2868 # Procedures for manipulating the file list window at the
2869 # bottom right of the overall window.
2871 proc treeview {w l openlevs} {
2872 global treecontents treediropen treeheight treeparent treeindex
2874 set ix 0
2875 set treeindex() 0
2876 set lev 0
2877 set prefix {}
2878 set prefixend -1
2879 set prefendstack {}
2880 set htstack {}
2881 set ht 0
2882 set treecontents() {}
2889 }
2896 incr lev -1
2897 }
2901 set ht 0
2913 set ht 1
2918 set str "\n"
2926 }
2927 incr lev
2928 }
2931 incr ht
2932 set str "\n"
2936 }
2938 }
2939 }
2947 }
2949 }
2951 proc linetoelt {l} {
2952 global treeheight treecontents
2954 set y 2
2955 set prefix {}
2956 while {1} {
2960 }
2961 set n 1
2966 incr y
2967 break
2968 }
2969 }
2971 }
2972 }
2973 }
2975 proc highlight_tree {y prefix} {
2976 global treeheight treecontents cflist
2982 }
2983 incr y
2986 }
2987 }
2989 }
2991 proc treeclosedir {w dir} {
2992 global treediropen treeheight treeparent treeindex
3004 }
3005 }
3007 proc treeopendir {w dir} {
3008 global treediropen treeheight treeparent treecontents treeindex
3015 set lev 0
3016 set str "\n"
3019 incr lev
3020 append str "\t"
3022 }
3037 } else {
3040 }
3041 }
3054 }
3056 }
3057 }
3059 proc treeclick {w x y} {
3060 global treediropen cmitmode ctext cflist cflist_top
3063 if {![info exists cflist_top]} return
3070 return
3071 }
3077 } else {
3079 }
3080 }
3082 proc setfilelist {id} {
3083 global treefilelist cflist jump_to_here
3090 }
3091 }
3092 }
3094 image create bitmap tri-rt -background black -foreground blue -data {
3095 #define tri-rt_width 13
3096 #define tri-rt_height 13
3097 static unsigned char tri-rt_bits[] = {
3098 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3099 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3100 0x00, 0x00};
3101 } -maskdata {
3102 #define tri-rt-mask_width 13
3103 #define tri-rt-mask_height 13
3104 static unsigned char tri-rt-mask_bits[] = {
3105 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3106 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3107 0x08, 0x00};
3108 }
3109 image create bitmap tri-dn -background black -foreground blue -data {
3110 #define tri-dn_width 13
3111 #define tri-dn_height 13
3112 static unsigned char tri-dn_bits[] = {
3113 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3114 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3115 0x00, 0x00};
3116 } -maskdata {
3117 #define tri-dn-mask_width 13
3118 #define tri-dn-mask_height 13
3119 static unsigned char tri-dn-mask_bits[] = {
3120 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3121 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3122 0x00, 0x00};
3123 }
3125 image create bitmap reficon-T -background black -foreground yellow -data {
3126 #define tagicon_width 13
3127 #define tagicon_height 9
3128 static unsigned char tagicon_bits[] = {
3129 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3130 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3131 } -maskdata {
3132 #define tagicon-mask_width 13
3133 #define tagicon-mask_height 9
3134 static unsigned char tagicon-mask_bits[] = {
3135 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3136 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3137 }
3138 set rectdata {
3139 #define headicon_width 13
3140 #define headicon_height 9
3141 static unsigned char headicon_bits[] = {
3142 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3143 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3144 }
3145 set rectmask {
3146 #define headicon-mask_width 13
3147 #define headicon-mask_height 9
3148 static unsigned char headicon-mask_bits[] = {
3149 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3150 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3151 }
3152 image create bitmap reficon-H -background black -foreground green \
3154 image create bitmap reficon-o -background black -foreground "#ddddff" \
3157 proc init_flist {first} {
3158 global cflist cflist_top difffilestart
3164 set cflist_top 1
3166 } else {
3167 catch {unset cflist_top}
3168 }
3170 set difffilestart {}
3171 }
3173 proc highlight_tag {f} {
3174 global highlight_paths
3178 return "bold"
3179 }
3180 }
3181 return {}
3182 }
3184 proc highlight_filelist {} {
3185 global cmitmode cflist
3194 }
3195 }
3196 } else {
3197 highlight_tree 2 {}
3198 }
3200 }
3202 proc unhighlight_filelist {} {
3203 global cflist
3208 }
3210 proc add_flist {fl} {
3211 global cflist
3217 }
3219 }
3221 proc sel_flist {w x y} {
3222 global ctext difffilestart cflist cflist_top cmitmode
3225 if {![info exists cflist_top]} return
3232 } else {
3234 }
3235 }
3237 proc pop_flist_menu {w X Y x y} {
3238 global ctext cflist cmitmode flist_menu flist_menu_file
3239 global treediffs diffids
3241 stopfinding
3247 } else {
3249 }
3251 set xdiffstate "normal"
3253 set xdiffstate "disabled"
3254 }
3255 # Disable "External diff" item in tree mode
3258 }
3260 proc find_ctext_fileinfo {line} {
3261 global ctext_file_names ctext_file_lines
3267 return {}
3268 } else {
3270 }
3271 }
3273 proc pop_diff_menu {w X Y x y} {
3274 global ctext diff_menu flist_menu_file
3275 global diff_menu_txtpos diff_menu_line
3276 global diff_menu_filebase
3280 # don't pop up the menu on hunk-separator or file-separator lines
3282 return
3283 }
3284 stopfinding
3290 }
3292 proc flist_hl {only} {
3293 global flist_menu_file findstring gdttype
3298 } else {
3300 }
3301 set gdttype [mc "touching paths:"]
3302 }
3304 proc gitknewtmpdir {} {
3305 global diffnum gitktmpdir gitdir
3307 if {![info exists gitktmpdir]} {
3309 [format ".gitk-tmp.%s" [pid]]]
3312 unset gitktmpdir
3313 return {}
3314 }
3315 set diffnum 0
3316 }
3317 incr diffnum
3321 return {}
3322 }
3324 }
3326 proc save_file_from_commit {filename output what} {
3327 global nullfile
3332 }
3334 return {}
3335 }
3337 }
3339 proc external_diff_get_one_file {diffid filename diffdir} {
3340 global nullid nullid2 nullfile
3341 global gitdir
3347 }
3349 }
3353 }
3357 }
3359 proc external_diff {} {
3360 global nullid nullid2
3361 global flist_menu_file
3362 global diffids
3363 global extdifftool
3366 # no reference commit given
3369 # diffing working copy with index
3372 # diffing index with HEAD
3373 set diffidfrom "HEAD"
3374 } else {
3375 # use first parent commit
3376 global parentlist selectedline
3378 }
3379 } else {
3382 }
3384 # make sure that several diffs wont collide
3385 set diffdir [gitknewtmpdir]
3388 # gather files to diff
3397 } else {
3400 }
3401 }
3402 }
3404 proc find_hunk_blamespec {base line} {
3405 global ctext
3407 # Find and parse the hunk header
3413 s_line old_specs osz osz1 new_line nsz]} {
3414 return
3415 }
3417 # base lines for the parents
3421 old_spec old_line osz]} {
3422 return
3423 }
3425 }
3427 # Now scan the lines to determine offset within the hunk
3429 set dline 0
3432 # Determine if the line is removed
3436 # Choose a parent index
3439 } else {
3443 } else {
3444 # blame the current commit
3445 set parent -1
3446 }
3447 }
3448 # then count other lines that belong to it
3451 # Determine if the line is removed
3456 incr dline
3457 }
3458 } else {
3460 incr dline
3461 }
3462 }
3463 }
3464 incr parent
3465 } else {
3466 set parent 0
3467 }
3471 }
3473 proc external_blame_diff {} {
3474 global currentid cmitmode
3475 global diff_menu_txtpos diff_menu_line
3476 global diff_menu_filebase flist_menu_file
3479 set parent_idx 0
3481 } else {
3486 } else {
3487 set parent_idx 0
3488 set line 0
3489 }
3490 }
3493 }
3496 # at stage 0 or 2
3497 proc index_sha1 {fname} {
3505 }
3506 }
3508 return {}
3509 }
3511 # Turn an absolute path into one relative to the current directory
3512 proc make_relative {f} {
3515 }
3517 set here [file split [pwd]]
3518 set ei 0
3519 set hi 0
3520 set res {}
3523 lappend res ".."
3524 } else {
3525 incr ei
3526 }
3527 incr hi
3528 }
3531 }
3533 proc external_blame {parent_idx {line {}}} {
3534 global flist_menu_file gitdir
3535 global nullid nullid2
3536 global parentlist selectedline currentid
3540 } else {
3542 }
3545 error_popup [mc "No such commit"]
3546 return
3547 }
3549 set cmdline [list git gui blame]
3552 }
3554 # Unfortunately it seems git gui blame doesn't like
3555 # being given an absolute path...
3560 }
3561 }
3563 proc show_line_source {} {
3564 global cmitmode currentid parents curview blamestuff blameinst
3565 global diff_menu_line diff_menu_filebase flist_menu_file
3566 global nullid nullid2 gitdir
3568 set from_index {}
3572 } else {
3578 return
3579 }
3580 incr pi -1
3583 # must be a merge in progress...
3584 if {[catch {
3585 # get the last line from .git/MERGE_HEAD
3589 } err]} {
3591 return
3592 }
3594 # need to do the blame from the index
3595 if {[catch {
3597 } err]} {
3599 return
3600 }
3601 } else {
3603 }
3604 } else {
3606 }
3608 }
3609 set blameargs {}
3612 }
3615 lappend blameargs --contents -
3616 } else {
3618 }
3620 if {[catch {
3622 } err]} {
3624 return
3625 }
3626 nowbusy blaming [mc "Searching"]
3632 }
3634 proc stopblaming {} {
3635 global blameinst
3637 if {[info exists blameinst]} {
3639 unset blameinst
3640 notbusy blaming
3641 }
3642 }
3644 proc read_line_source {fd inst} {
3645 global blamestuff curview commfd blameinst nullid nullid2
3649 }
3651 return 1
3652 }
3654 unset blameinst
3655 notbusy blaming
3659 return 0
3660 }
3662 set fname {}
3668 # look for "filename" line
3672 break
3673 }
3674 }
3675 }
3677 # all looks good, select it
3679 # blame uses all-zeroes to mean not committed,
3680 # which would mean a change in the index
3682 }
3685 } else {
3686 error_popup [mc "That line comes from commit %s, \
3688 }
3689 } else {
3690 puts "oops couldn't parse git blame output"
3691 }
3692 return 0
3693 }
3696 proc delete_at_eof {f dir} {
3701 }
3703 return 0
3704 }
3705 return 1
3706 }
3708 # Functions for adding and removing shell-type quoting
3710 proc shellquote {str} {
3713 }
3716 }
3719 }
3721 }
3723 proc shellarglist {l} {
3724 set str {}
3727 append str " "
3728 }
3730 }
3732 }
3734 proc shelldequote {str} {
3735 set ret {}
3736 set used -1
3737 while {1} {
3738 incr used
3742 break
3743 }
3749 }
3751 incr used
3755 error "unmatched single-quote"
3756 }
3759 continue
3760 }
3763 error "trailing backslash"
3764 }
3766 continue
3767 }
3768 # here ch == "\""
3769 while {1} {
3771 error "unmatched double-quote"
3772 }
3778 }
3780 incr used
3782 incr used
3783 }
3784 }
3786 }
3788 proc shellsplit {str} {
3789 set l {}
3790 while {1} {
3798 }
3800 }
3802 # Code to implement multiple views
3804 proc newview {ishighlight} {
3805 global nextviewnum newviewname newishighlight
3806 global revtreeargs viewargscmd newviewopts curview
3809 set top .gitkview
3812 return
3813 }
3819 }
3821 set known_view_options {
3822 {perm b . {} {mc "Remember this view"}}
3823 {reflabel l + {} {mc "References (space separated list):"}}
3824 {refs t15 .. {} {mc "Branches & tags:"}}
3825 {allrefs b *. "--all" {mc "All refs"}}
3826 {branches b . "--branches" {mc "All (local) branches"}}
3827 {tags b . "--tags" {mc "All tags"}}
3828 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3829 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3830 {author t15 .. "--author=*" {mc "Author:"}}
3831 {committer t15 . "--committer=*" {mc "Committer:"}}
3832 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3833 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3834 {changes_l l + {} {mc "Changes to Files:"}}
3835 {pickaxe_s r0 . {} {mc "Fixed String"}}
3836 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3837 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3838 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3839 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3840 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3841 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3842 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3843 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3844 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3845 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3846 {lright b . "--left-right" {mc "Mark branch sides"}}
3847 {first b . "--first-parent" {mc "Limit to first parent"}}
3848 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3849 {args t50 *. {} {mc "Additional arguments to git log:"}}
3850 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3851 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3852 }
3855 proc encode_view_opts {n} {
3856 global known_view_options newviewopts
3858 set rargs [list]
3868 }
3874 }
3875 } else {
3881 }
3882 }
3883 }
3886 }
3889 proc decode_view_opts {n view_args} {
3890 global known_view_options newviewopts
3895 # Checkboxes
3896 set val 0
3898 # Radiobuttons
3900 set val 0
3901 } else {
3902 # Text fields
3903 set val {}
3904 }
3906 }
3907 set oargs [list]
3908 set refargs [list]
3911 && ![info exists found(limit)]} {
3913 set found(limit) 1
3914 continue
3915 }
3916 catch { unset val }
3923 # Check buttons
3924 set val 1
3926 # Radio buttons
3929 } else {
3930 # Text input fields
3933 }
3936 break
3937 }
3938 if {[info exists val]} break
3939 }
3940 if {[info exists val]} continue
3943 } else {
3945 }
3946 }
3949 }
3951 proc edit_or_newview {} {
3952 global curview
3955 editview
3956 } else {
3957 newview 0
3958 }
3959 }
3961 proc editview {} {
3962 global curview
3963 global viewname viewperm newviewname newviewopts
3964 global viewargs viewargscmd
3969 return
3970 }
3976 }
3978 proc vieweditor {top n title} {
3979 global newviewname newviewopts viewfiles bgcolor
3980 global known_view_options NS
3986 # View name
3994 # View options
3996 set cexpand 0
3997 set cnt 0
4003 set lxpad 0
4007 incr cnt
4013 incr cnt
4017 } else {
4018 set lxpad 5
4019 }
4053 }
4056 }
4058 }
4059 }
4074 }
4076 proc doviewmenu {m first cmd op argv} {
4081 break
4082 }
4083 }
4084 }
4086 proc allviewmenus {n op args} {
4087 # global viewhlmenu
4091 }
4093 proc newviewok {top n {apply 0}} {
4094 global nextviewnum newviewperm newviewname newishighlight
4095 global viewname viewfiles viewperm selectedview curview
4096 global viewargs viewargscmd newviewopts viewhlmenu
4098 if {[catch {
4100 } err]} {
4102 return
4103 }
4104 set files {}
4109 }
4110 }
4112 # creating a new view
4113 incr nextviewnum
4122 } else {
4124 }
4125 } else {
4126 # editing an existing view
4134 }
4141 run reloadcommits
4142 }
4143 }
4144 }
4147 }
4149 proc delview {} {
4150 global curview viewperm hlview selectedhlview
4154 set selectedhlview [mc "None"]
4155 unset hlview
4156 }
4159 showview 0
4160 }
4162 proc addviewmenu {n} {
4163 global viewname viewhlmenu
4169 }
4171 proc showview {n} {
4172 global curview cached_commitrow ordertok
4173 global displayorder parentlist rowidlist rowisopt rowfinal
4174 global colormap rowtextx nextcolor canvxmax
4175 global numcommits viewcomplete
4176 global selectedline currentid canv canvy0
4177 global treediffs
4178 global pending_select mainheadid
4179 global commitidx
4180 global selectedview
4181 global hlview selectedhlview commitinterest
4184 set selid {}
4195 }
4196 } elseif {[info exists pending_select]} {
4198 unset pending_select
4199 }
4200 unselectline
4201 normalline
4202 catch {unset treediffs}
4203 clear_display
4205 unset hlview
4206 set selectedhlview [mc "None"]
4207 }
4208 catch {unset commitinterest}
4209 catch {unset cached_commitrow}
4210 catch {unset ordertok}
4217 run refill_reflist
4220 return
4221 }
4223 set displayorder {}
4224 set parentlist {}
4225 set rowidlist {}
4226 set rowisopt {}
4227 set rowfinal {}
4230 catch {unset colormap}
4231 catch {unset rowtextx}
4232 set nextcolor 0
4235 set row 0
4236 setcanvscroll
4237 set yf 0
4238 set row {}
4241 # try to get the selected row in the same position on the screen
4245 set ytop 0
4246 }
4248 }
4250 drawvisible
4255 } else {
4256 reset_pending_select {}
4260 } else {
4261 set row [first_real_row]
4264 }
4265 }
4266 }
4269 show_status [mc "Reading commits..."]
4270 }
4272 show_status [mc "No commits selected"]
4273 }
4274 }
4276 # Stuff relating to the highlighting facility
4278 proc ishighlighted {id} {
4279 global vhighlights fhighlights nhighlights rhighlights
4283 }
4286 }
4289 }
4292 }
4293 return 0
4294 }
4296 proc bolden {id font} {
4297 global canv linehtag currentid boldids need_redisplay markedid
4299 # need_redisplay = 1 means the display is stale and about to be redrawn
4306 -outline {{}} -tags secsel \
4309 }
4312 }
4313 }
4315 proc bolden_name {id font} {
4316 global canv2 linentag currentid boldnameids need_redisplay
4324 -outline {{}} -tags secsel \
4327 }
4328 }
4330 proc unbolden {} {
4331 global boldids
4333 set stillbold {}
4337 } else {
4339 }
4340 }
4342 }
4344 proc addvhighlight {n} {
4345 global hlview viewcomplete curview vhl_done commitidx
4347 if {[info exists hlview]} {
4348 delvhighlight
4349 }
4353 }
4356 drawvisible
4357 }
4358 }
4360 proc delvhighlight {} {
4361 global hlview vhighlights
4363 if {![info exists hlview]} return
4364 unset hlview
4365 catch {unset vhighlights}
4366 unbolden
4367 }
4369 proc vhighlightmore {} {
4370 global hlview vhl_done commitidx vhighlights curview
4373 set vr [visiblerows]
4383 }
4385 }
4386 }
4387 }
4389 return 0
4390 }
4392 proc askvhighlight {row id} {
4393 global hlview vhighlights iddrawn
4398 }
4400 } else {
4402 }
4403 }
4405 proc hfiles_change {} {
4406 global highlight_files filehighlight fhighlights fh_serial
4407 global highlight_paths
4409 if {[info exists filehighlight]} {
4410 # delete previous highlights
4412 unset filehighlight
4413 catch {unset fhighlights}
4414 unbolden
4415 unhighlight_filelist
4416 }
4417 set highlight_paths {}
4419 incr fh_serial
4422 }
4423 }
4425 proc gdttype_change {name ix op} {
4426 global gdttype highlight_files findstring findpattern
4428 stopfinding
4432 set highlight_files {}
4433 hfiles_change
4434 }
4435 findcom_change
4436 } else {
4438 set findpattern {}
4439 findcom_change
4440 }
4442 hfiles_change
4443 }
4444 drawvisible
4445 }
4446 # enable/disable findtype/findloc menus too
4447 }
4449 proc find_change {name ix op} {
4450 global gdttype findstring highlight_files
4452 stopfinding
4454 findcom_change
4455 } else {
4458 hfiles_change
4459 }
4460 }
4461 drawvisible
4462 }
4464 proc findcom_change args {
4465 global nhighlights boldnameids
4466 global findpattern findtype findstring gdttype
4468 stopfinding
4469 # delete previous highlights, if any
4472 }
4473 set boldnameids {}
4474 catch {unset nhighlights}
4475 unbolden
4476 unmarkmatches
4478 set findpattern {}
4481 } else {
4482 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4485 }
4486 }
4488 proc makepatterns {l} {
4489 set ret {}
4494 } else {
4497 }
4498 }
4500 }
4502 proc do_file_hl {serial} {
4503 global highlight_files filehighlight highlight_paths gdttype fhl_list
4508 highlight_filelist
4512 } else {
4513 # must be "containing:", i.e. we're searching commit info
4514 return
4515 }
4520 set fhl_list {}
4521 drawvisible
4522 flushhighlights
4523 }
4525 proc flushhighlights {} {
4526 global filehighlight fhl_list
4528 if {[info exists filehighlight]} {
4529 lappend fhl_list {}
4532 }
4533 }
4535 proc askfilehighlight {row id} {
4536 global filehighlight fhighlights fhl_list
4541 }
4543 proc readfhighlight {} {
4544 global filehighlight fhighlights curview iddrawn
4545 global fhl_list find_dirn
4547 if {![info exists filehighlight]} {
4548 return 0
4549 }
4550 set nr 0
4558 }
4564 }
4566 }
4568 # strange...
4569 puts "oops, git diff-tree died"
4571 unset filehighlight
4572 return 0
4573 }
4574 if {[info exists find_dirn]} {
4575 run findmore
4576 }
4577 return 1
4578 }
4580 proc doesmatch {f} {
4581 global findtype findpattern
4587 } else {
4589 }
4590 }
4592 proc askfindhighlight {row id} {
4593 global nhighlights commitinfo iddrawn
4594 global findloc
4595 global markingmatches
4599 }
4601 set isbold 0
4602 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4607 set isbold 2
4608 break
4609 }
4610 set isbold 1
4611 }
4612 }
4618 }
4619 }
4622 }
4623 }
4625 }
4627 proc markrowmatches {row id} {
4628 global canv canv2 linehtag linentag commitinfo findloc
4639 }
4640 }
4646 }
4647 }
4648 }
4650 proc vrel_change {name ix op} {
4651 global highlight_related
4653 rhighlight_none
4655 run drawvisible
4656 }
4657 }
4659 # prepare for testing whether commits are descendents or ancestors of a
4660 proc rhighlight_sel {a} {
4661 global descendent desc_todo ancestor anc_todo
4662 global highlight_related
4664 catch {unset descendent}
4666 catch {unset ancestor}
4669 rhighlight_none
4670 run drawvisible
4671 }
4672 }
4674 proc rhighlight_none {} {
4675 global rhighlights
4677 catch {unset rhighlights}
4678 unbolden
4679 }
4681 proc is_descendent {a} {
4682 global curview children descendent desc_todo
4687 set leftover {}
4688 set done 0
4693 continue
4694 }
4700 set done 1
4701 }
4702 }
4703 }
4706 return
4707 }
4708 }
4711 }
4713 proc is_ancestor {a} {
4714 global curview parents ancestor anc_todo
4719 set leftover {}
4720 set done 0
4725 continue
4726 }
4732 set done 1
4733 }
4734 }
4735 }
4738 return
4739 }
4740 }
4743 }
4745 proc askrelhighlight {row id} {
4746 global descendent highlight_related iddrawn rhighlights
4747 global selectedline ancestor
4750 set isbold 0
4755 }
4757 set isbold 1
4758 }
4763 }
4765 set isbold 1
4766 }
4767 }
4771 }
4772 }
4774 }
4776 # Graph layout functions
4778 proc shortids {ids} {
4779 set res {}
4785 } else {
4787 }
4788 }
4790 }
4792 proc ntimes {n o} {
4793 set ret {}
4798 }
4800 }
4802 }
4804 proc ordertoken {id} {
4805 global ordertok curview varcid varcstart varctok curview parents children
4806 global nullid nullid2
4810 }
4812 set todo {}
4813 while {1} {
4817 } else {
4819 }
4822 break
4823 }
4826 # it's a root
4828 break
4829 }
4832 } else {
4836 }
4838 }
4839 }
4844 }
4847 }
4849 # Work out where id should go in idlist so that order-token
4850 # values increase from left to right
4851 proc idcol {idlist id {i 0}} {
4854 set i 0
4855 }
4859 }
4861 incr i
4862 } else {
4866 }
4867 }
4869 }
4871 proc initlayout {} {
4872 global rowidlist rowisopt rowfinal displayorder parentlist
4873 global numcommits canvxmax canv
4874 global nextcolor
4875 global colormap rowtextx
4877 set numcommits 0
4878 set displayorder {}
4879 set parentlist {}
4880 set nextcolor 0
4881 set rowidlist {}
4882 set rowisopt {}
4883 set rowfinal {}
4885 catch {unset colormap}
4886 catch {unset rowtextx}
4887 setcanvscroll
4888 }
4890 proc setcanvscroll {} {
4891 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4892 global lastscrollset lastscrollrows
4898 set lastscrollset [clock clicks -milliseconds]
4900 }
4902 proc visiblerows {} {
4903 global canv numcommits linespc
4911 set r0 0
4912 }
4917 }
4919 }
4921 proc layoutmore {} {
4922 global commitidx viewcomplete curview
4923 global numcommits pending_select curview
4924 global lastscrollset lastscrollrows
4928 setcanvscroll
4929 }
4930 if {[info exists pending_select] &&
4932 update
4934 }
4935 drawvisible
4936 }
4938 # With path limiting, we mightn't get the actual HEAD commit,
4939 # so ask git rev-list what is the first ancestor of HEAD that
4940 # touches a file in the path limit.
4941 proc get_viewmainhead {view} {
4942 global viewmainheadid vfilelimit viewinstances mainheadid
4944 catch {
4952 }
4953 }
4956 proc getviewhead {fd inst view} {
4957 global viewmainheadid commfd curview viewinstances showlocalchanges
4959 set id {}
4962 return 1
4963 }
4966 }
4973 }
4975 doshowlocalchanges
4976 }
4977 return 0
4978 }
4980 proc doshowlocalchanges {} {
4981 global curview viewmainheadid
4985 dodiffindex
4986 } else {
4988 }
4989 }
4991 proc dohidelocalchanges {} {
4992 global nullid nullid2 lserial curview
4996 }
4999 }
5000 incr lserial
5001 }
5003 # spawn off a process to do git diff-index --cached HEAD
5004 proc dodiffindex {} {
5005 global lserial showlocalchanges vfilelimit curview
5006 global isworktree
5009 incr lserial
5010 set cmd "|git diff-index --cached HEAD"
5013 }
5018 }
5020 proc readdiffindex {fd serial inst} {
5021 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5022 global vfilelimit
5024 set isdiff 1
5027 return 1
5028 }
5029 set isdiff 0
5030 }
5031 # we only need to see one line and we don't really care what it says...
5035 return 0
5036 }
5038 # now see if there are any local changes not checked in to the index
5039 set cmd "|git diff-files"
5042 }
5049 # add the line for the changes in the index to the graph
5050 set hl [mc "Local changes checked in to index but not committed"]
5055 }
5060 }
5062 }
5063 return 0
5064 }
5066 proc readdifffiles {fd serial inst} {
5067 global viewmainheadid nullid nullid2 curview
5068 global commitinfo commitdata lserial
5070 set isdiff 1
5073 return 1
5074 }
5075 set isdiff 0
5076 }
5077 # we only need to see one line and we don't really care what it says...
5081 return 0
5082 }
5085 # add the line for the local diff to the graph
5086 set hl [mc "Local uncommitted changes, not checked in to index"]
5091 } else {
5093 }
5097 }
5098 return 0
5099 }
5101 proc nextuse {id row} {
5102 global curview children
5107 return -1
5108 }
5111 }
5112 }
5113 }
5116 }
5117 return -1
5118 }
5120 proc prevuse {id row} {
5121 global curview children
5123 set ret -1
5129 }
5130 }
5131 }
5133 }
5135 proc make_idlist {row} {
5136 global displayorder parentlist uparrowlen downarrowlen mingaplen
5137 global commitidx curview children
5141 set r 0
5142 }
5145 set ra 0
5146 }
5150 }
5152 set ids {}
5161 }
5162 }
5163 }
5171 }
5172 }
5173 }
5181 }
5182 }
5183 incr r
5189 }
5190 }
5191 }
5192 set idlist {}
5195 }
5197 }
5199 proc rowsequal {a b} {
5202 }
5205 }
5207 }
5209 proc makeupline {id row rend col} {
5210 global rowidlist uparrowlen downarrowlen mingaplen
5216 }
5219 }
5226 }
5227 }
5228 }
5230 proc layoutrows {row endrow} {
5231 global rowidlist rowisopt rowfinal displayorder
5232 global uparrowlen downarrowlen maxwidth mingaplen
5233 global children parentlist
5234 global commitidx viewcomplete curview
5237 set idlist {}
5243 }
5244 }
5246 }
5251 set final 1
5252 } else {
5260 # if not the first child, we have to insert a line going up
5263 }
5264 }
5265 }
5275 }
5276 }
5277 }
5284 }
5285 }
5295 }
5296 }
5304 }
5305 }
5306 }
5307 }
5308 }
5312 set final 0
5313 }
5317 lappend rowisopt 0
5323 }
5325 } else {
5332 }
5333 }
5335 }
5337 proc changedrow {row} {
5338 global displayorder iddrawn rowisopt need_redisplay
5347 }
5348 }
5349 }
5352 set need_redisplay 1
5353 }
5354 }
5356 proc insert_pad {row col npad} {
5357 global rowidlist
5366 }
5369 }
5371 proc optimize_rows {row col endrow} {
5372 global rowidlist rowisopt displayorder curview children
5375 set row 1
5376 }
5379 set haspad 0
5388 } else {
5389 set pprevidlist {}
5390 }
5391 set x0 -1
5392 set xm -1
5397 set haspad 1
5398 continue
5399 }
5403 set isarrow 0
5404 set z0 {}
5409 }
5410 }
5415 set isarrow 1
5416 }
5417 }
5420 set isarrow 1
5421 }
5422 # Looking at lines from this row to the previous row,
5423 # make them go straight up if they end in an arrow on
5424 # the previous row; otherwise make them go straight up
5425 # or at 45 degrees.
5427 # Line currently goes left too much;
5428 # insert pads in the previous row, then optimize it
5433 }
5441 }
5443 # Line currently goes right too much;
5444 # insert pads in this line
5450 set haspad 1
5451 }
5458 }
5459 }
5460 # avoid lines jigging left then immediately right
5463 incr x0
5466 }
5467 }
5469 # Find the first column that doesn't have a line going right
5475 # check if this is the link to the first child
5478 # it is, work out offset to child
5480 }
5481 }
5483 }
5484 # Insert a pad at that column as long as it has a line and
5485 # isn't the last column
5490 }
5491 }
5492 }
5493 }
5495 proc xc {row col} {
5496 global canvx0 linespc
5498 }
5500 proc yc {row} {
5501 global canvy0 linespc
5503 }
5505 proc linewidth {id} {
5506 global thickerline lthickness
5511 }
5513 }
5515 proc rowranges {id} {
5516 global curview children uparrowlen downarrowlen
5517 global rowidlist
5521 return {}
5522 }
5523 set ret {}
5528 if {![info exists prev]} {
5530 } else {
5532 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5533 }
5534 # see if the line extends the whole way from prevrow to row
5538 # it doesn't, see where it ends
5543 } else {
5546 incr r -1
5547 }
5549 # see where it starts up again
5554 } else {
5557 incr r
5558 }
5560 }
5561 }
5564 }
5567 }
5569 }
5571 proc drawlineseg {id row endrow arrowlow} {
5572 global rowidlist displayorder iddrawn linesegs
5573 global canv colormap linespc curview maxlinelen parentlist
5577 set arrowhigh 1
5578 while {1} {
5581 incr le -1
5582 break
5583 }
5587 set arrowhigh 0
5588 break
5589 }
5594 set arrowhigh 0
5595 }
5596 break
5597 }
5598 incr le
5599 }
5602 }
5604 set lines {}
5605 set i 0
5606 set joinhigh 0
5613 set joinhigh 1
5614 }
5615 break
5616 }
5617 incr i
5618 }
5619 }
5620 set joinlow 0
5625 set joinlow 1
5626 }
5627 }
5640 }
5641 } else {
5643 }
5651 set arrowlow 0
5652 }
5653 }
5661 }
5663 }
5666 # join parent line to first child
5677 } else {
5679 }
5687 }
5689 }
5691 } else {
5695 }
5703 } else {
5707 }
5709 }
5710 } else {
5716 }
5720 } else {
5721 # coalesce two pieces
5726 }
5730 }
5731 }
5735 }
5737 proc drawparentlinks {id row} {
5738 global rowidlist canv colormap curview parentlist
5739 global idpos linespc
5752 # rmx = right-most X coord used
5753 set rmx 0
5758 continue
5759 }
5763 }
5766 # drawlineseg will do this one for us
5767 continue
5768 }
5770 # should handle duplicated parents here...
5773 # if attaching to a vertical segment, draw a smaller
5774 # slant for visual distinctness
5778 } else {
5780 }
5782 # segment slants towards us already
5784 } else {
5789 }
5791 }
5792 } else {
5794 }
5799 }
5803 }
5804 }
5806 proc drawlines {id} {
5807 global canv
5810 }
5812 proc drawcmittext {id row col} {
5813 global linespc canv canv2 canv3 fgcolor curview
5814 global cmitlisted commitinfo rowidlist parentlist
5815 global rowtextx idpos idtags idheads idotherrefs
5816 global linehtag linentag linedtag selectedline
5817 global canvxmax boldids boldnameids fgcolor markedid
5818 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5820 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5823 set ofill red
5825 set ofill green
5827 set ofill yellow
5828 } else {
5830 }
5839 # triangle pointing left for left-side commits
5845 } else {
5846 # triangle pointing right for right-side commits
5852 }
5864 }
5865 }
5866 }
5873 }
5878 set font mainfont
5879 set nfont mainfont
5883 set font mainfontbold
5886 set nfont mainfontbold
5887 }
5888 }
5898 }
5901 }
5905 setcanvscroll
5906 }
5907 }
5909 proc drawcmitrow {row} {
5910 global displayorder rowidlist nrows_drawn
5911 global iddrawn markingmatches
5912 global commitinfo numcommits
5913 global filehighlight fhighlights findpattern nhighlights
5914 global hlview vhighlights
5915 global highlight_related rhighlights
5922 }
5925 }
5928 }
5931 }
5936 return
5937 }
5940 }
5944 incr nrows_drawn
5945 }
5948 }
5949 }
5951 proc drawcommits {row {endrow {}}} {
5952 global numcommits iddrawn displayorder curview need_redisplay
5953 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5956 set row 0
5957 }
5960 }
5963 }
5967 set rl1 0
5968 }
5971 set ro1 0
5972 }
5976 }
5981 }
5983 }
5984 }
5987 }
5990 clear_display
5991 }
5993 # make the lines join to already-drawn rows either side
5997 }
6002 }
6017 # see if this is the first child of any of its parents
6020 # make this line extend up to the child
6022 }
6023 }
6024 } else {
6026 }
6027 }
6028 }
6029 }
6031 proc undolayout {row} {
6032 global uparrowlen mingaplen downarrowlen
6033 global rowidlist rowisopt rowfinal need_redisplay
6037 set r 0
6038 }
6040 incr r -1
6044 set need_redisplay 1
6045 run drawvisible
6046 }
6047 }
6049 proc drawvisible {} {
6050 global canv linespc curview vrowmod selectedline targetrow targetid
6051 global need_redisplay cscroll numcommits
6061 if {[info exists targetid]} {
6065 # Fix up the scrollregion and change the scrolling position
6066 # now that our target row has moved.
6069 setcanvscroll
6077 set need_redisplay 1
6078 }
6079 } else {
6080 unset targetid
6081 }
6082 }
6088 }
6092 } elseif {[info exists targetid]} {
6094 }
6095 if {[info exists targetrow]} {
6098 }
6100 }
6102 }
6104 proc clear_display {} {
6105 global iddrawn linesegs need_redisplay nrows_drawn
6106 global vhighlights fhighlights nhighlights rhighlights
6107 global linehtag linentag linedtag boldids boldnameids
6109 allcanvs delete all
6110 catch {unset iddrawn}
6111 catch {unset linesegs}
6112 catch {unset linehtag}
6113 catch {unset linentag}
6114 catch {unset linedtag}
6115 set boldids {}
6116 set boldnameids {}
6117 catch {unset vhighlights}
6118 catch {unset fhighlights}
6119 catch {unset nhighlights}
6120 catch {unset rhighlights}
6121 set need_redisplay 0
6122 set nrows_drawn 0
6123 }
6125 proc findcrossings {id} {
6126 global rowidlist parentlist numcommits displayorder
6128 set cross {}
6129 set ccross {}
6133 }
6152 }
6153 }
6154 }
6155 }
6156 }
6158 }
6160 proc assigncolor {id} {
6161 global colormap colors nextcolor
6162 global parents children children curview
6168 } else {
6169 set kids {}
6170 }
6176 return
6177 }
6178 }
6179 set badcolors {}
6180 set origbad {}
6183 # delimiter between corner crossings and other crossings
6186 }
6190 }
6191 }
6194 }
6201 }
6206 }
6207 }
6208 }
6211 }
6212 }
6216 set nextcolor 0
6217 }
6219 }
6221 }
6223 proc bindline {t id} {
6224 global canv
6230 }
6232 proc drawtags {id x xt y1} {
6233 global idtags idheads idotherrefs mainhead
6234 global linespc lthickness
6235 global canv rowtextx curview fgcolor bgcolor ctxbut
6237 set marks {}
6238 set ntags 0
6239 set nheads 0
6243 }
6247 }
6250 }
6253 }
6258 set xvals {}
6259 set wvals {}
6260 set i -1
6262 incr i
6265 } else {
6267 }
6271 }
6278 set font mainfont
6279 if {[incr ntags -1] >= 0} {
6280 # draw a tag
6286 } else {
6287 # draw a head or other ref
6288 if {[incr nheads -1] >= 0} {
6289 set col green
6291 set font mainfontbold
6292 }
6293 } else {
6294 set col "#ddddff"
6295 }
6306 }
6307 }
6314 }
6315 }
6317 }
6319 proc xcoord {i level ln} {
6320 global canvx0 xspc1 xspc2
6327 }
6329 }
6331 proc show_status {msg} {
6332 global canv fgcolor
6334 clear_display
6337 }
6339 # Don't change the text pane cursor if it is currently the hand cursor,
6340 # showing that we are over a sha1 ID link.
6341 proc settextcursor {c} {
6342 global ctext curtextcursor
6346 }
6348 }
6350 proc nowbusy {what {name {}}} {
6351 global isbusy busyname statusw
6353 if {[array names isbusy] eq {}} {
6354 . config -cursor watch
6355 settextcursor watch
6356 }
6361 }
6362 }
6364 proc notbusy {what} {
6365 global isbusy maincursor textcursor busyname statusw
6367 catch {
6372 }
6373 }
6374 if {[array names isbusy] eq {}} {
6377 }
6378 }
6380 proc findmatches {f} {
6381 global findtype findstring
6384 } else {
6389 }
6390 set matches {}
6391 set i 0
6396 }
6397 }
6399 }
6401 proc dofind {{dirn 1} {wrap 1}} {
6402 global findstring findstartline findcurline selectedline numcommits
6403 global gdttype filehighlight fh_serial find_dirn findallowwrap
6405 if {[info exists find_dirn]} {
6407 stopfinding
6408 }
6409 focus .
6413 } else {
6415 }
6417 nowbusy finding [mc "Searching"]
6421 }
6424 run findmore
6425 }
6427 proc stopfinding {} {
6428 global find_dirn findcurline fprogcoord
6430 if {[info exists find_dirn]} {
6431 unset find_dirn
6432 unset findcurline
6433 notbusy finding
6434 set fprogcoord 0
6435 adjustprogress
6436 }
6437 stopblaming
6438 }
6440 proc findmore {} {
6441 global commitdata commitinfo numcommits findpattern findloc
6442 global findstartline findcurline findallowwrap
6443 global find_dirn gdttype fhighlights fprogcoord
6444 global curview varcorder vrownum varccommits vrowmod
6446 if {![info exists find_dirn]} {
6447 return 0
6448 }
6449 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6451 set moretodo 0
6453 incr l
6455 set l 0
6456 }
6459 } else {
6462 }
6463 } else {
6466 }
6467 incr l -1
6470 } else {
6471 set lim -1
6473 }
6474 }
6477 set n 500
6478 set moretodo 1
6479 }
6482 }
6483 set found 0
6484 set domore 1
6498 }
6500 # shouldn't happen unless git log doesn't give all the commits...
6503 continue
6504 }
6507 }
6512 set found 1
6513 break
6514 }
6515 }
6517 }
6518 } else {
6526 }
6531 }
6534 break
6535 }
6538 set domore 0
6540 }
6541 }
6542 }
6543 }
6545 unset findcurline
6546 unset find_dirn
6547 notbusy finding
6548 set fprogcoord 0
6549 adjustprogress
6552 } else {
6553 bell
6554 }
6555 return 0
6556 }
6558 flushhighlights
6559 } else {
6561 }
6565 }
6567 adjustprogress
6569 }
6571 proc findselectline {l} {
6572 global findloc commentend ctext findcurline markingmatches gdttype
6579 # highlight the matches in the comments
6586 }
6587 }
6588 drawvisible
6589 }
6591 # mark the bits of a headline or author that match a find string
6592 proc markmatches {canv l str tag matches font row} {
6593 global selectedline
6611 }
6612 }
6613 }
6615 proc unmarkmatches {} {
6616 global markingmatches
6618 allcanvs delete matches
6619 set markingmatches 0
6620 stopfinding
6621 }
6623 proc selcanvline {w x y} {
6624 global canv canvy0 ctext linespc
6625 global rowtextx
6632 set l 0
6633 }
6638 }
6639 unmarkmatches
6641 }
6643 proc commit_descriptor {p} {
6644 global commitinfo
6647 }
6648 set l "..."
6651 }
6653 }
6655 # append some text to the ctext widget, and make any SHA1 ID
6656 # that we know about be a clickable link.
6657 proc appendwithlinks {text tags} {
6658 global ctext linknum curview
6667 incr e
6671 incr linknum
6672 }
6673 }
6675 proc setlink {id lk} {
6676 global curview ctext pendinglinks
6678 set known 0
6683 set known 1
6685 }
6686 } else {
6688 }
6694 } else {
6697 }
6698 }
6700 proc appendshortlink {id {pre {}} {post {}}} {
6701 global ctext linknum
6708 incr linknum
6709 }
6711 proc makelink {id} {
6712 global pendinglinks
6717 }
6719 }
6721 proc linkcursor {w inc} {
6722 global linkentercount curtextcursor
6726 } else {
6729 set linkentercount 0
6730 }
6731 }
6732 }
6734 proc viewnextline {dir} {
6735 global canv linespc
6743 set newtop 0
6746 }
6748 }
6750 # add a list of tag or branch names at position pos
6751 # returns the number of names inserted
6752 proc appendrefs {pos ids var} {
6756 return 0
6757 }
6760 set tags {}
6764 }
6765 }
6768 } else {
6770 set sep {}
6774 incr linknum
6779 set sep ", "
6780 }
6781 }
6784 }
6786 # called when we have finished computing the nearby tags
6787 proc dispneartags {delay} {
6788 global selectedline currentid showneartags tagphase
6791 after cancel dispnexttag
6793 after 200 dispnexttag
6794 set tagphase -1
6795 } else {
6796 after idle dispnexttag
6797 set tagphase 0
6798 }
6799 }
6801 proc dispnexttag {} {
6802 global selectedline currentid showneartags tagphase ctext
6806 0 {
6810 }
6811 }
6812 1 {
6816 }
6817 }
6818 2 {
6823 # turn "Branch" into "Branches"
6827 }
6828 }
6829 }
6830 }
6831 if {[incr tagphase] <= 2} {
6832 after idle dispnexttag
6833 }
6834 }
6836 proc make_secsel {id} {
6837 global linehtag linentag linedtag canv canv2 canv3
6852 }
6854 proc make_idmark {id} {
6855 global linehtag canv fgcolor
6862 }
6864 proc selectline {l isnew {desired_loc {}}} {
6865 global canv ctext commitinfo selectedline
6866 global canvy0 linespc parents children curview
6867 global currentid sha1entry
6868 global commentend idtags linknum
6869 global mergemax numcommits pending_select
6870 global cmitmode showneartags allcommits
6871 global targetrow targetid lastscrollrows
6872 global autoselect jump_to_here
6874 catch {unset pending_select}
6876 normalline
6877 unsel_reflist
6878 stopfinding
6886 setcanvscroll
6887 }
6901 } else {
6905 }
6906 }
6910 } else {
6914 }
6915 }
6916 }
6919 set newtop 0
6920 }
6922 drawvisible
6923 }
6929 }
6935 }
6939 clear_ctext
6940 set linknum 0
6943 }
6953 }
6955 }
6957 set headers {}
6960 set np 0
6963 set tag mmax
6964 } else {
6966 }
6969 incr np
6970 }
6971 } else {
6974 }
6975 }
6979 }
6981 # make anything that looks like a SHA1 ID be a clickable link
6984 if {![info exists allcommits]} {
6985 getallcommits
6986 }
6997 dispneartags 1
6998 }
7003 }
7011 init_flist [mc "Comments"]
7016 } else {
7018 }
7019 }
7021 proc selfirstline {} {
7022 unmarkmatches
7023 selectline 0 1
7024 }
7026 proc sellastline {} {
7027 global numcommits
7028 unmarkmatches
7031 }
7033 proc selnextline {dir} {
7034 global selectedline
7035 focus .
7038 unmarkmatches
7040 }
7042 proc selnextpage {dir} {
7043 global canv linespc selectedline numcommits
7047 set lpp 1
7048 }
7050 drawvisible
7054 set l 0
7057 }
7058 unmarkmatches
7060 }
7062 proc unselectline {} {
7063 global selectedline currentid
7065 set selectedline {}
7066 catch {unset currentid}
7067 allcanvs delete secsel
7068 rhighlight_none
7069 }
7071 proc reselectline {} {
7072 global selectedline
7076 }
7077 }
7079 proc addtohistory {cmd {saveproc {}}} {
7080 global history historyindex curview
7082 unset_posvars
7083 save_position
7087 return
7088 }
7092 } else {
7094 }
7095 incr historyindex
7097 .tf.bar.leftbut conf -state normal
7098 } else {
7099 .tf.bar.leftbut conf -state disabled
7100 }
7101 .tf.bar.rightbut conf -state disabled
7102 }
7104 # save the scrolling position of the diff display pane
7105 proc save_position {} {
7106 global historyindex history
7113 }
7114 }
7116 proc unset_posvars {} {
7117 global last_posvars
7119 if {[info exists last_posvars]} {
7123 }
7124 unset last_posvars
7125 }
7126 }
7128 proc godo {elt} {
7129 global curview last_posvars
7136 }
7137 unset_posvars
7141 }
7144 }
7146 proc goback {} {
7147 global history historyindex
7148 focus .
7151 save_position
7152 incr historyindex -1
7154 .tf.bar.rightbut conf -state normal
7155 }
7157 .tf.bar.leftbut conf -state disabled
7158 }
7159 }
7161 proc goforw {} {
7162 global history historyindex
7163 focus .
7166 save_position
7168 incr historyindex
7170 .tf.bar.leftbut conf -state normal
7171 }
7173 .tf.bar.rightbut conf -state disabled
7174 }
7175 }
7177 proc gettree {id} {
7178 global treefilelist treeidlist diffids diffmergeid treepending
7179 global nullid nullid2
7182 catch {unset diffmergeid}
7184 if {![info exists treepending]} {
7186 set cmd [list | git ls-files]
7188 set cmd [list | git ls-files --stage -t]
7189 } else {
7191 }
7193 return
7194 }
7200 }
7201 } else {
7203 }
7204 }
7206 proc gettreeline {gtf id} {
7207 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7209 set nl 0
7213 } else {
7221 }
7224 }
7227 }
7230 }
7232 unset treepending
7234 if {![info exists diffmergeid]} {
7236 }
7239 } else {
7241 }
7242 return 0
7243 }
7245 proc showfile {f} {
7246 global treefilelist treeidlist diffids nullid nullid2
7247 global ctext_file_names ctext_file_lines
7248 global ctext commentend
7253 return
7254 }
7258 return
7259 }
7260 } else {
7264 return
7265 }
7266 }
7277 settabs 0
7278 }
7280 proc getblobline {bf id} {
7281 global diffids cmitmode ctext
7285 return 0
7286 }
7288 set nl 0
7291 }
7293 global jump_to_here ctext_file_names commentend
7295 # delete last newline
7303 }
7304 return 0
7305 }
7308 }
7310 proc mark_ctext_line {lnum} {
7311 global ctext markbgcolor
7317 }
7319 proc mergediff {id} {
7320 global diffmergeid
7321 global diffids treediffs
7322 global parents curview
7330 }
7332 proc startdiff {ids} {
7333 global treediffs diffids treepending diffmergeid nullid nullid2
7335 settabs 1
7337 catch {unset diffmergeid}
7341 if {![info exists treepending]} {
7343 }
7344 } else {
7346 }
7347 }
7349 proc path_filter {filter name} {
7354 return 1
7355 }
7356 } else {
7360 return 1
7361 }
7362 }
7363 }
7364 return 0
7365 }
7367 proc addtocflist {ids} {
7368 global treediffs
7372 }
7374 proc diffcmd {ids flags} {
7375 global nullid nullid2
7381 # comparing working directory with some specific revision
7385 } else {
7387 }
7388 } else {
7389 # comparing working directory with index
7392 lappend cmd -R
7393 }
7394 }
7398 # comparing index with specific revision
7401 } else {
7403 }
7404 } else {
7405 # comparing index with HEAD
7406 lappend cmd HEAD
7407 }
7408 } else {
7410 }
7412 }
7414 proc gettreediffs {ids} {
7415 global treediff treepending
7420 set treediff {}
7423 }
7425 proc gettreediffline {gdtf ids} {
7426 global treediff treediffs treepending diffids diffmergeid
7427 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7429 set nr 0
7430 set sublist {}
7431 set max 1000
7433 # cache_gitattr is slow, and even slower on win32 where we
7434 # have to invoke it for only about 30 paths at a time
7435 set max 500
7436 if {[tk windowingsystem] == "win32"} {
7437 set max 120
7438 }
7439 }
7446 }
7451 }
7452 }
7453 }
7456 }
7459 }
7462 set flist {}
7466 }
7467 }
7469 } else {
7471 }
7472 unset treepending
7476 if {![info exists diffmergeid]} {
7478 }
7479 } else {
7481 }
7482 return 0
7483 }
7485 # empty string or positive integer
7486 proc diffcontextvalidate {v} {
7488 }
7490 proc diffcontextchange {n1 n2 op} {
7491 global diffcontextstring diffcontext
7496 reselectline
7497 }
7498 }
7499 }
7501 proc changeignorespace {} {
7502 reselectline
7503 }
7505 proc getblobdiffs {ids} {
7506 global blobdifffd diffids env
7507 global diffinhdr treediffs
7508 global diffcontext
7509 global ignorespace
7510 global limitdiffs vfilelimit curview
7511 global diffencoding targetline diffnparents
7512 global git_version currdiffsubmod
7514 set textconv {}
7516 set textconv "--textconv"
7517 }
7518 set submodule {}
7520 set submodule "--submodule"
7521 }
7524 append cmd " -w"
7525 }
7528 }
7531 return
7532 }
7533 set targetline {}
7534 set diffnparents 0
7535 set diffinhdr 0
7536 set diffencoding [get_path_encoding {}]
7539 set currdiffsubmod ""
7541 }
7543 proc savecmitpos {} {
7544 global ctext cmitmode
7547 return {}
7548 }
7550 }
7552 proc savectextpos {} {
7553 global ctext
7556 }
7558 proc maybe_scroll_ctext {ateof} {
7559 global ctext target_scrollpos
7561 if {![info exists target_scrollpos]} return
7564 / [font metrics textfont -linespace]}]
7566 }
7568 unset target_scrollpos
7569 }
7571 proc setinlist {var i val} {
7576 }
7579 } else {
7581 }
7582 }
7584 proc makediffhdr {fname ids} {
7585 global ctext curdiffstart treediffs diffencoding
7586 global ctext_file_names jump_to_here targetline diffline
7593 }
7598 set targetline {}
7601 }
7602 set diffline 0
7603 }
7605 proc getblobdiffline {bdf ids} {
7606 global diffids blobdifffd ctext curdiffstart
7607 global diffnexthead diffnextnote difffilestart
7608 global ctext_file_names ctext_file_lines
7609 global diffinhdr treediffs mergemax diffnparents
7610 global diffencoding jump_to_here targetline diffline currdiffsubmod
7612 set nr 0
7617 return 0
7618 }
7623 continue
7624 }
7625 # start of a new file
7626 set diffinhdr 1
7629 lappend ctext_file_names ""
7634 # start of a new file in a merge diff
7639 }
7641 } else {
7643 # If the name hasn't changed the length will be odd,
7644 # the middle char will be a space, and the two bits either
7645 # side will be a/name and b/name, or "a/name" and "b/name".
7646 # If the name has changed we'll get "rename from" and
7647 # "rename to" or "copy from" and "copy to" lines following
7648 # this, and we'll use them to get the filenames.
7649 # This complexity is necessary because spaces in the
7650 # filename(s) don't get escaped.
7656 continue
7657 }
7658 # unescape if quoted and chop off the a/ from the front
7661 } else {
7663 }
7664 }
7677 }
7685 }
7687 set diffinhdr 0
7690 # start of a new submodule
7693 } else {
7695 }
7698 }
7700 lappend ctext_file_names ""
7706 } else {
7708 }
7722 }
7727 }
7733 }
7736 # do nothing
7737 continue
7739 set diffinhdr 0
7740 continue
7741 }
7744 } else {
7745 set line [string map {\x1A ^Z} \
7747 # parse the prefix - one ' ', '-' or '+' for each parent
7751 # prefix only has " ", "-" and "+" in it: normal diff line
7756 set num "max"
7757 }
7759 } else {
7760 set tags {}
7762 # added line
7768 set num "max"
7769 }
7771 }
7772 }
7773 }
7777 set targetline {}
7778 } else {
7779 incr diffline
7780 }
7781 }
7783 }
7784 } else {
7785 # "\ No newline at end of file",
7786 # or something else we don't recognize
7788 }
7789 }
7790 }
7791 if {[info exists seehere]} {
7793 }
7798 return 0
7799 }
7801 }
7803 proc changediffdisp {} {
7804 global ctext diffelide
7808 }
7810 proc highlightfile {loc cline} {
7811 global ctext cflist cflist_top
7818 }
7820 proc prevfile {} {
7821 global difffilestart ctext cmitmode
7824 set prev 0.0
7825 set prevline 1
7830 return
7831 }
7833 incr prevline
7834 }
7836 }
7838 proc nextfile {} {
7839 global difffilestart ctext cmitmode
7843 set line 1
7845 incr line
7848 return
7849 }
7850 }
7851 }
7853 proc clear_ctext {{first 1.0}} {
7854 global ctext smarktop smarkbot
7855 global ctext_file_names ctext_file_lines
7856 global pendinglinks
7861 }
7864 }
7867 catch {unset pendinglinks}
7868 }
7869 set ctext_file_names {}
7870 set ctext_file_lines {}
7871 }
7873 proc settabs {{firstab {}}} {
7874 global firsttabstop tabstop ctext have_tk85
7878 }
7879 set w [font measure textfont "0"]
7885 } else {
7887 }
7888 }
7890 proc incrsearch {name ix op} {
7891 global ctext searchstring searchdirn
7895 # no anchor set, use start of selection, or of visible area
7901 } else {
7903 }
7904 }
7909 }
7910 searchmarkvisible 1
7911 }
7912 }
7914 proc dosearch {} {
7915 global sstring ctext searchstring searchdirn
7919 set searchdirn -forwards
7925 set start "@0,0"
7926 }
7930 bell
7931 return
7932 }
7937 }
7938 }
7940 proc dosearchback {} {
7941 global sstring ctext searchstring searchdirn
7945 set searchdirn -backwards
7952 }
7956 bell
7957 return
7958 }
7963 }
7964 }
7966 proc searchmark {first last} {
7967 global ctext searchstring
7970 while {1} {
7975 }
7976 }
7978 proc searchmarkvisible {doall} {
7979 global ctext smarktop smarkbot
7984 # no overlap with previous
7988 } else {
7992 }
7996 }
7997 }
7998 }
8000 proc scrolltext {f0 f1} {
8001 global searchstring
8005 searchmarkvisible 0
8006 }
8007 }
8009 proc setcoords {} {
8010 global linespc charspc canvx0 canvy0
8011 global xspc1 xspc2 lthickness
8013 set linespc [font metrics mainfont -linespace]
8014 set charspc [font measure mainfont "m"]
8020 }
8022 proc redisplay {} {
8023 global canv
8024 global selectedline
8029 clear_display
8030 setcanvscroll
8032 drawvisible
8036 }
8037 }
8039 proc parsefont {f n} {
8040 global fontattr
8045 set s 10
8048 }
8054 "normal" -
8056 "roman" -
8058 }
8059 }
8060 }
8062 proc fontflags {f {isbold 0}} {
8063 global fontattr
8068 }
8070 proc fontname {f} {
8071 global fontattr
8075 lappend n "bold"
8076 }
8078 lappend n "italic"
8079 }
8081 }
8083 proc incrfont {inc} {
8084 global mainfont textfont ctext canv cflist showrefstop
8085 global stopped entries fontattr
8087 unmarkmatches
8091 set s 1
8092 }
8096 set mainfont [fontname mainfont]
8100 set s 1
8101 }
8105 set textfont [fontname textfont]
8106 setcoords
8107 settabs
8108 redisplay
8109 }
8111 proc clearsha1 {} {
8112 global sha1entry sha1string
8115 }
8116 }
8118 proc sha1change {n1 n2 op} {
8119 global sha1string currentid sha1but
8122 set state disabled
8123 } else {
8124 set state normal
8125 }
8129 } else {
8131 }
8132 }
8134 proc gotocommit {} {
8135 global sha1string tagids headids curview varcid
8143 } else {
8150 return
8151 }
8153 }
8154 } else {
8157 return
8158 }
8159 }
8160 }
8163 return
8164 }
8167 } else {
8169 }
8171 }
8173 proc lineenter {x y id} {
8174 global hoverx hovery hoverid hovertimer
8175 global commitinfo canv
8181 if {[info exists hovertimer]} {
8183 }
8184 set hovertimer [after 500 linehover]
8186 }
8188 proc linemotion {x y id} {
8189 global hoverx hovery hoverid hovertimer
8194 if {[info exists hovertimer]} {
8196 }
8197 set hovertimer [after 500 linehover]
8198 }
8199 }
8201 proc lineleave {id} {
8202 global hoverid hovertimer canv
8206 if {[info exists hovertimer]} {
8208 unset hovertimer
8209 }
8210 unset hoverid
8211 }
8212 }
8214 proc linehover {} {
8215 global hoverx hovery hoverid hovertimer
8216 global canv linespc lthickness
8217 global commitinfo
8230 -fill \#ffff80 -outline black -width 1 -tags hover]
8233 -font mainfont]
8235 }
8237 proc clickisonarrow {id y} {
8238 global lthickness
8247 }
8248 }
8249 return {}
8250 }
8252 proc arrowjump {id n y} {
8253 global canv
8255 # 1 <-> 2, 3 <-> 4, etc...
8265 set yfrac 0
8266 }
8268 }
8270 proc lineclick {x y id isnew} {
8271 global ctext commitinfo children canv thickerline curview
8274 unmarkmatches
8275 unselectline
8276 normalline
8278 # draw this line thicker than normal
8286 }
8290 return
8291 }
8295 }
8296 # fill the details pane with info about this line
8298 clear_ctext
8299 settabs 0
8311 set i 0
8313 incr i
8323 }
8324 }
8325 maybe_scroll_ctext 1
8327 init_flist {}
8328 }
8330 proc normalline {} {
8331 global thickerline
8332 if {[info exists thickerline]} {
8334 unset thickerline
8336 }
8337 }
8339 proc selbyid {id {isnew 1}} {
8340 global curview
8343 }
8344 }
8346 proc mstime {} {
8347 global startmstime
8348 if {![info exists startmstime]} {
8349 set startmstime [clock clicks -milliseconds]
8350 }
8352 }
8354 proc rowmenu {x y id} {
8355 global rowctxmenu selectedline rowmenuid curview
8356 global nullid nullid2 fakerowmenu mainhead markedid
8358 stopfinding
8361 set state disabled
8362 } else {
8363 set state normal
8364 }
8369 } else {
8371 }
8376 } else {
8380 }
8381 } else {
8383 }
8388 }
8390 proc markhere {} {
8391 global rowmenuid markedid canv
8395 }
8397 proc gotomark {} {
8398 global markedid
8400 if {[info exists markedid]} {
8402 }
8403 }
8405 proc replace_by_kids {l r} {
8406 global curview children
8412 }
8414 }
8416 proc find_common_desc {} {
8417 global markedid rowmenuid curview children
8419 if {![info exists markedid]} return
8422 #set t1 [clock clicks -milliseconds]
8425 while 1 {
8431 break
8432 }
8435 } else {
8437 }
8438 }
8439 #set t2 [clock clicks -milliseconds]
8441 }
8443 proc compare_commits {} {
8444 global markedid rowmenuid curview children
8446 if {![info exists markedid]} return
8450 }
8452 proc getpatchid {id} {
8453 global patchids
8457 # trim off the initial "|"
8459 if {[catch {
8462 }]} {
8464 }
8465 }
8467 }
8469 proc do_cmp_commits {a b} {
8470 global ctext curview parents children patchids commitinfo
8473 clear_ctext
8474 init_flist {}
8476 set skipa 0
8477 set skipb 0
8480 set skipa 1
8481 } else {
8483 }
8486 set skipb 1
8487 } else {
8489 }
8495 [mc " - stopping\n"]
8496 break
8497 }
8500 [mc " - stopping\n"]
8501 break
8502 }
8507 } else {
8511 }
8512 set skipa 1
8513 set skipb 1
8514 } else {
8521 update
8523 return
8524 }
8525 }
8532 break
8533 }
8535 }
8541 break
8542 }
8544 }
8545 }
8547 }
8549 proc diffcommits {a b} {
8550 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8552 set tmpdir [gitknewtmpdir]
8555 if {[catch {
8558 } err]} {
8560 return
8561 }
8562 if {[catch {
8564 } err]} {
8566 return
8567 }
8570 set diffinhdr 0
8571 set currdiffsubmod ""
8573 }
8575 proc diffvssel {dirn} {
8576 global rowmenuid selectedline
8582 } else {
8585 }
8588 }
8590 proc doseldiff {oldid newid} {
8591 global ctext
8592 global commitinfo
8595 clear_ctext
8596 init_flist [mc "Top"]
8611 }
8613 proc mkpatch {} {
8614 global rowmenuid currentid commitinfo patchtop patchnum NS
8616 if {![info exists currentid]} return
8621 set top .patch
8651 incr patchnum
8663 }
8665 proc mkpatchrev {} {
8666 global patchtop
8672 foreach e [list fromsha1 fromhead tosha1 tohead] \
8678 }
8679 }
8681 proc mkpatchgo {} {
8682 global patchtop nullid nullid2
8688 # trim off the initial "|"
8693 }
8695 unset patchtop
8696 }
8698 proc mkpatchcan {} {
8699 global patchtop
8702 unset patchtop
8703 }
8705 proc mktag {} {
8706 global rowmenuid mktagtop commitinfo NS
8708 set top .maketag
8742 }
8744 proc domktag {} {
8745 global mktagtop env tagids idtags
8752 return 0
8753 }
8756 return 0
8757 }
8758 if {[catch {
8761 } else {
8763 }
8764 } err]} {
8766 return 0
8767 }
8773 dispneartags 0
8774 run refill_reflist
8775 return 1
8776 }
8778 proc redrawtags {id} {
8779 global canv linehtag idpos currentid curview cmitlisted markedid
8780 global canvxmax iddrawn circleitem mainheadid circlecolors
8786 set ofill yellow
8787 } else {
8789 }
8799 setcanvscroll
8800 }
8803 }
8806 }
8807 }
8809 proc mktagcan {} {
8810 global mktagtop
8813 unset mktagtop
8814 }
8816 proc mktaggo {} {
8817 if {![domktag]} return
8818 mktagcan
8819 }
8821 proc writecommit {} {
8822 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8824 set top .writecommit
8857 }
8859 proc wrcomgo {} {
8860 global wrcomtop
8867 }
8869 unset wrcomtop
8870 }
8872 proc wrcomcan {} {
8873 global wrcomtop
8876 unset wrcomtop
8877 }
8879 proc mkbranch {} {
8880 global rowmenuid mkbrtop NS
8882 set top .makebranch
8906 }
8908 proc mkbrgo {top} {
8909 global headids idheads
8913 set cmdargs {}
8914 set old_id {}
8917 return
8918 }
8920 if {![confirm_popup [mc \
8922 return
8923 }
8925 lappend cmdargs -f
8926 }
8929 nowbusy newbranch
8930 update
8931 if {[catch {
8933 } err]} {
8934 notbusy newbranch
8936 } else {
8937 notbusy newbranch
8943 } else {
8948 }
8949 dispneartags 0
8950 run refill_reflist
8951 }
8952 }
8954 proc exec_citool {tool_args {baseid {}}} {
8955 global commitinfo env
8957 set save_env [array get env GIT_AUTHOR_*]
8962 }
8965 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8971 }
8972 }
8976 array unset env GIT_AUTHOR_*
8978 }
8980 proc cherrypick {} {
8981 global rowmenuid curview
8982 global mainhead mainheadid
8984 set oldhead [exec git rev-parse HEAD]
8987 set ok [confirm_popup [mc "Commit %s is already\
8988 included in branch %s -- really re-apply it?" \
8991 }
8992 nowbusy cherrypick [mc "Cherry-picking"]
8993 update
8994 # Unfortunately git-cherry-pick writes stuff to stderr even when
8995 # no error occurs, and exec takes that as an indication of error...
8997 notbusy cherrypick
8998 if {[regexp -line \
8999 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9001 error_popup [mc "Cherry-pick failed because of local changes\
9002 to file '%s'.\nPlease commit, reset or stash\
9004 } elseif {[regexp -line \
9005 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
9007 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9008 conflict.\nDo you wish to run git citool to\
9009 resolve it?"]]} {
9010 # Force citool to read MERGE_MSG
9011 file delete [file join [gitdir] "GITGUI_MSG"]
9013 }
9014 } else {
9016 }
9017 run updatecommits
9018 return
9019 }
9020 set newhead [exec git rev-parse HEAD]
9022 notbusy cherrypick
9023 error_popup [mc "No changes committed"]
9024 return
9025 }
9028 # XXX this isn't right if we have a path limit...
9033 }
9038 }
9039 notbusy cherrypick
9040 }
9042 proc resethead {} {
9043 global mainhead rowmenuid confirm_ok resettype NS
9045 set confirm_ok 0
9046 set w ".confirmreset"
9054 set resettype mixed
9056 -text [mc "Soft: Leave working tree and index untouched"]
9059 -text [mc "Mixed: Leave working tree untouched, reset index"]
9062 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9073 if {[catch {set fd [open \
9076 } else {
9077 dohidelocalchanges
9079 nowbusy reset [mc "Resetting"]
9081 }
9082 }
9084 proc readresetstat {fd} {
9085 global mainhead mainheadid showlocalchanges rprogcoord
9090 adjustprogress
9091 }
9092 return 1
9093 }
9094 set rprogcoord 0
9095 adjustprogress
9096 notbusy reset
9099 }
9101 set newhead [exec git rev-parse HEAD]
9108 }
9110 doshowlocalchanges
9111 }
9112 return 0
9113 }
9115 # context menu for a head
9116 proc headmenu {x y id head} {
9117 global headmenuid headmenuhead headctxmenu mainhead
9119 stopfinding
9122 set state normal
9124 set state disabled
9125 }
9127 set state disabled
9128 }
9132 }
9134 proc cobranch {} {
9135 global headmenuid headmenuhead headids
9136 global showlocalchanges
9138 # check the tree is clean first??
9139 nowbusy checkout [mc "Checking out"]
9140 update
9141 dohidelocalchanges
9142 if {[catch {
9144 } err]} {
9145 notbusy checkout
9148 dodiffindex
9149 }
9150 } else {
9152 }
9153 }
9155 proc readcheckoutstat {fd newhead newheadid} {
9156 global mainhead mainheadid headids showlocalchanges progresscoords
9157 global viewmainheadid curview
9162 adjustprogress
9163 }
9164 return 1
9165 }
9166 set progresscoords {0 0}
9167 adjustprogress
9168 notbusy checkout
9171 }
9180 dodiffindex
9181 }
9182 }
9184 proc rmbranch {} {
9185 global headmenuid headmenuhead mainhead
9186 global idheads
9190 # this check shouldn't be needed any more...
9192 error_popup [mc "Cannot delete the currently checked-out branch"]
9193 return
9194 }
9197 # the stuff on this branch isn't on any other branch
9198 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9200 }
9201 nowbusy rmbranch
9202 update
9204 notbusy rmbranch
9206 return
9207 }
9211 notbusy rmbranch
9212 dispneartags 0
9213 run refill_reflist
9214 }
9216 # Display a list of tags and heads
9217 proc showrefs {} {
9218 global showrefstop bgcolor fgcolor selectbgcolor NS
9219 global bglist fglist reflistfilter reflist maincursor
9221 set top .showrefs
9225 refill_reflist
9226 return
9227 }
9235 -spacing1 1 -spacing3 1 -state disabled
9246 set reflistfilter "*"
9247 trace add variable reflistfilter write reflistfilter_change
9259 set reflist {}
9260 refill_reflist
9261 }
9263 proc sel_reflist {w x y} {
9264 global showrefstop reflist headids tagids otherrefids
9274 }
9276 }
9278 proc unsel_reflist {} {
9279 global showrefstop
9283 }
9285 proc reflistfilter_change {n1 n2 op} {
9286 global reflistfilter
9288 after cancel refill_reflist
9289 after 200 refill_reflist
9290 }
9292 proc refill_reflist {} {
9293 global reflist reflistfilter showrefstop headids tagids otherrefids
9294 global curview
9297 set refs {}
9298 foreach n [array names headids] {
9302 } else {
9304 }
9305 }
9306 }
9307 foreach n [array names tagids] {
9311 } else {
9313 }
9314 }
9315 }
9316 foreach n [array names otherrefids] {
9320 } else {
9322 }
9323 }
9324 }
9332 set i 0
9333 set j 0
9342 }
9343 } else {
9344 set cmp -1
9345 }
9346 } else {
9347 set cmp 1
9348 }
9350 -1 {
9352 incr i
9353 }
9354 0 {
9355 incr i
9356 incr j
9357 }
9358 1 {
9363 incr j
9364 }
9365 }
9366 }
9368 # delete last newline
9371 }
9373 # Stuff for finding nearby tags
9374 proc getallcommits {} {
9375 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9376 global idheads idtags idotherrefs allparents tagobjid
9378 if {![info exists allcommits]} {
9379 set nextarc 0
9380 set allcommits 0
9381 set seeds {}
9382 set allcwait 0
9383 set cachedarcs 0
9384 set allccache [file join [gitdir] "gitk.cache"]
9385 if {![catch {
9387 set allcwait 1
9389 }]} return
9390 }
9393 return
9394 }
9395 set cmd [list | git rev-list --parents]
9398 set ids "--all"
9399 } else {
9400 set refs [concat [array names idheads] [array names idtags] \
9401 [array names idotherrefs]]
9402 set ids {}
9403 set tagobjs {}
9404 foreach name [array names tagobjid] {
9406 }
9411 }
9412 }
9416 }
9417 }
9418 }
9422 incr allcommits
9423 nowbusy allcommits
9425 } else {
9426 dispneartags 0
9427 }
9428 }
9430 # Since most commits have 1 parent and 1 child, we group strings of
9431 # such commits into "arcs" joining branch/merge points (BMPs), which
9432 # are commits that either don't have 1 parent or don't have 1 child.
9433 #
9434 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9435 # arcout(id) - outgoing arcs for BMP
9436 # arcids(a) - list of IDs on arc including end but not start
9437 # arcstart(a) - BMP ID at start of arc
9438 # arcend(a) - BMP ID at end of arc
9439 # growing(a) - arc a is still growing
9440 # arctags(a) - IDs out of arcids (excluding end) that have tags
9441 # archeads(a) - IDs out of arcids (excluding end) that have heads
9442 # The start of an arc is at the descendent end, so "incoming" means
9443 # coming from descendents, and "outgoing" means going towards ancestors.
9445 proc getallclines {fd} {
9446 global allparents allchildren idtags idheads nextarc
9447 global arcnos arcids arctags arcout arcend arcstart archeads growing
9448 global seeds allcommits cachedarcs allcupdate
9450 set nid 0
9454 # seen it already
9455 continue
9456 }
9457 set cachedarcs 0
9464 } else {
9470 }
9473 }
9475 # seen parent already
9478 }
9482 }
9485 continue
9486 }
9487 }
9492 }
9494 set ao {}
9497 set a [incr nextarc]
9506 # seen it already, may need to make a new branch
9509 }
9513 }
9515 }
9517 }
9519 global cached_dheads cached_dtags cached_atags
9520 catch {unset cached_dheads}
9521 catch {unset cached_dtags}
9522 catch {unset cached_atags}
9523 }
9526 }
9527 set cacheok 1
9528 if {[catch {
9531 } err]} {
9532 # got an error reading the list of commits
9533 # if we were updating, try rereading the whole thing again
9535 incr allcommits -1
9537 return
9538 }
9539 error_popup "[mc "Error reading commit topology information;\
9540 branch and preceding/following tag information\
9542 set cacheok 0
9543 }
9544 if {[incr allcommits -1] == 0} {
9545 notbusy allcommits
9547 run savecache
9548 }
9549 }
9550 dispneartags 0
9551 return 0
9552 }
9554 proc recalcarc {a} {
9555 global arctags archeads arcids idtags idheads
9557 set at {}
9558 set ah {}
9562 }
9565 }
9566 }
9569 }
9571 proc splitarc {p} {
9572 global arcnos arcids nextarc arctags archeads idtags idheads
9573 global arcstart arcend arcout allparents growing
9578 return
9579 }
9584 return
9585 }
9586 set na [incr nextarc]
9589 } else {
9593 }
9603 }
9608 } else {
9611 }
9612 }
9614 # reconstruct tags and heads lists
9618 } else {
9621 }
9622 }
9624 # Update things for a new commit added that is a child of one
9625 # existing commit. Used when cherry-picking.
9626 proc addnewchild {id p} {
9627 global allparents allchildren idtags nextarc
9628 global arcnos arcids arctags arcout arcend arcstart archeads growing
9629 global seeds allcommits
9637 set a [incr nextarc]
9645 }
9648 }
9650 # This implements a cache for the topology information.
9651 # The cache saves, for each arc, the start and end of the arc,
9652 # the ids on the arc, and the outgoing arcs from the end.
9653 proc readcache {f} {
9654 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9655 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9656 global allcwait
9662 }
9663 if {[catch {
9665 # finish reading the cache and setting up arctags, etc.
9669 foreach id [array names idtags] {
9675 }
9676 }
9677 }
9678 foreach id [array names idheads] {
9684 }
9685 }
9686 }
9690 }
9691 }
9692 set allcwait 0
9693 } else {
9703 }
9707 } else {
9711 }
9712 }
9718 }
9721 }
9724 }
9726 }
9727 } err]} {
9729 return 0
9730 }
9732 getallcommits
9733 }
9735 }
9737 proc getcache {f} {
9738 global nextarc cachedarcs possible_seeds
9740 if {[catch {
9743 # make sure it's an integer
9746 set nextarc 0
9747 set possible_seeds {}
9749 } err]} {
9751 }
9752 return 0
9753 }
9755 proc dropcache {err} {
9756 global allcwait nextarc cachedarcs seeds
9759 foreach v {arcnos arcout arcids arcstart arcend growing \
9760 arctags archeads allparents allchildren} {
9763 }
9764 set allcwait 0
9765 set nextarc 0
9766 set cachedarcs 0
9767 set seeds {}
9768 getallcommits
9769 }
9771 proc writecache {f} {
9772 global cachearc cachedarcs allccache
9773 global arcstart arcend arcnos arcids arcout
9779 }
9780 if {[catch {
9784 } else {
9786 }
9787 }
9788 } err]} {
9792 return 0
9793 }
9798 return 0
9799 }
9800 return 1
9801 }
9803 proc savecache {} {
9804 global nextarc cachedarcs cachearc allccache
9807 set cachearc 0
9809 catch {
9813 }
9814 }
9816 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9817 # or 0 if neither is true.
9818 proc anc_or_desc {a b} {
9819 global arcout arcstart arcend arcnos cached_isanc
9822 # Both are on the same arc(s); either both are the same BMP,
9823 # or if one is not a BMP, the other is also not a BMP or is
9824 # the BMP at end of the arc (and it only has 1 incoming arc).
9825 # Or both can be BMPs with no incoming arcs.
9827 return 0
9828 }
9834 return 1
9835 } else {
9836 return -1
9837 }
9838 }
9844 } else {
9845 set aend {}
9846 }
9848 } else {
9850 }
9855 } else {
9856 set bend {}
9857 }
9859 } else {
9861 }
9863 return 1
9864 }
9866 return -1
9867 }
9870 return 1
9871 }
9872 }
9875 return -1
9876 }
9878 return 0
9879 }
9880 }
9888 continue
9889 }
9895 return 1
9899 return -1
9900 }
9906 }
9907 }
9908 }
9911 return 0
9912 }
9916 # and returns 0 if so and 1 if not.
9917 # If we subsequently discover a tag on such a growing tip, and that
9920 # isn't a good choice to display as a descendent tag of
9924 #
9925 proc is_certain {desc anc} {
9926 global arcnos arcout arcstart arcend growing problems
9928 set certain {}
9930 # tags on the same arc are certain
9932 return 1
9933 }
9938 }
9939 }
9942 } else {
9945 }
9947 return 1
9948 }
9951 set nnh 1
9952 set ngrowanc 0
9956 incr nnh -1
9957 }
9963 incr ngrowanc
9964 }
9965 } else {
9972 incr nnh -1
9973 }
9975 incr ngrowanc -1
9976 }
9986 incr nnh -1
9987 }
9989 incr ngrowanc -1
9990 }
9992 }
9993 }
9994 }
9995 }
9996 }
9997 }
10001 } else {
10004 incr nnh
10005 }
10006 }
10007 }
10008 }
10009 foreach x [array names growanc] {
10011 return 0
10012 }
10013 return 0
10014 }
10015 return 1
10016 }
10018 proc validate_arctags {a} {
10019 global arctags idtags
10021 set i -1
10024 incr i
10027 incr i -1
10028 }
10029 }
10031 }
10033 proc validate_archeads {a} {
10034 global archeads idheads
10036 set i -1
10039 incr i
10042 incr i -1
10043 }
10044 }
10046 }
10048 # Return the list of IDs that have tags that are descendents of id,
10049 # ignoring IDs that are descendents of IDs already reported.
10050 proc desctags {id} {
10051 global arcnos arcstart arcids arctags idtags allparents
10052 global growing cached_dtags
10055 return {}
10056 }
10057 set t1 [clock clicks -milliseconds]
10060 # part-way along an arc; check that arc first
10065 set tid {}
10070 }
10073 }
10074 }
10078 }
10079 }
10082 }
10087 set nc 1
10093 incr nc -1
10094 }
10095 # ignore tags on starting node
10099 set ta 1
10102 set ta 1
10103 }
10104 }
10111 }
10112 }
10121 }
10124 }
10126 incr nc -1
10127 }
10129 }
10130 }
10131 }
10136 incr nc
10137 }
10138 }
10139 }
10140 }
10141 set tags {}
10142 foreach id [array names tagloc] {
10147 }
10148 }
10149 }
10150 }
10151 set t2 [clock clicks -milliseconds]
10154 # remove tags that are descendents of other tags
10162 incr j -1
10163 incr i -1
10166 incr i -1
10167 break
10168 }
10169 }
10170 }
10172 if {[array names growing] ne {}} {
10173 # graph isn't finished, need to check if any tag could get
10174 # eclipsed by another tag coming later. Simply ignore any
10175 # tags that could later get eclipsed.
10176 set ctags {}
10180 }
10181 }
10184 } else {
10186 }
10187 } else {
10189 }
10190 set t3 [clock clicks -milliseconds]
10194 }
10196 }
10198 proc anctags {id} {
10199 global arcnos arcids arcout arcend arctags idtags allparents
10200 global growing cached_atags
10203 return {}
10204 }
10205 set t1 [clock clicks -milliseconds]
10208 # part-way along an arc; check that arc first
10217 }
10218 }
10219 }
10221 return {}
10222 }
10226 }
10227 }
10230 }
10235 set taglist {}
10236 set nc 1
10242 incr nc -1
10243 }
10244 # ignore tags on starting node
10248 set td 1
10251 set td 1
10252 }
10253 }
10259 }
10260 }
10272 }
10273 }
10276 }
10278 incr nc -1
10279 }
10281 }
10282 }
10283 }
10288 incr nc
10289 }
10290 }
10291 }
10292 }
10293 set t2 [clock clicks -milliseconds]
10295 set tags {}
10296 foreach id [array names tagloc] {
10301 }
10302 }
10303 }
10304 }
10306 # remove tags that are ancestors of other tags
10314 incr j -1
10315 incr i -1
10318 incr i -1
10319 break
10320 }
10321 }
10322 }
10324 if {[array names growing] ne {}} {
10325 # graph isn't finished, need to check if any tag could get
10326 # eclipsed by another tag coming later. Simply ignore any
10327 # tags that could later get eclipsed.
10328 set ctags {}
10332 }
10333 }
10336 } else {
10338 }
10339 } else {
10341 }
10342 set t3 [clock clicks -milliseconds]
10346 }
10348 }
10350 # Return the list of IDs that have heads that are descendents of id,
10351 # including id itself if it has a head.
10352 proc descheads {id} {
10353 global arcnos arcstart arcids archeads idheads cached_dheads
10354 global allparents
10357 return {}
10358 }
10359 set aret {}
10361 # part-way along an arc; check it first
10370 }
10371 }
10373 }
10377 set ret {}
10382 } else {
10385 }
10391 }
10392 }
10397 }
10398 }
10399 }
10400 }
10404 }
10406 proc addedtag {id} {
10407 global arcnos arcout cached_dtags cached_atags
10412 }
10413 catch {unset cached_dtags}
10414 catch {unset cached_atags}
10415 }
10417 proc addedhead {hid head} {
10418 global arcnos arcout cached_dheads
10423 }
10424 catch {unset cached_dheads}
10425 }
10427 proc removedhead {hid head} {
10428 global cached_dheads
10430 catch {unset cached_dheads}
10431 }
10433 proc movedhead {hid head} {
10434 global arcnos arcout cached_dheads
10439 }
10440 catch {unset cached_dheads}
10441 }
10443 proc changedrefs {} {
10444 global cached_dheads cached_dtags cached_atags
10445 global arctags archeads arcnos arcout idheads idtags
10447 foreach id [concat [array names idheads] [array names idtags]] {
10453 }
10454 }
10455 }
10456 catch {unset cached_dtags}
10457 catch {unset cached_atags}
10458 catch {unset cached_dheads}
10459 }
10461 proc rereadrefs {} {
10462 global idtags idheads idotherrefs mainheadid
10464 set refids [concat [array names idtags] \
10465 [array names idheads] [array names idotherrefs]]
10469 }
10470 }
10472 readrefs
10473 changedrefs
10475 [array names idheads] [array names idotherrefs]]]
10480 }
10481 }
10485 }
10486 run refill_reflist
10487 }
10489 proc listrefs {id} {
10490 global idtags idheads idotherrefs
10492 set x {}
10495 }
10496 set y {}
10499 }
10500 set z {}
10503 }
10505 }
10507 proc showtag {tag isnew} {
10508 global ctext tagcontents tagids linknum tagobjid
10512 }
10514 clear_ctext
10515 settabs 0
10516 set linknum 0
10518 catch {
10520 }
10521 }
10524 } else {
10526 }
10528 maybe_scroll_ctext 1
10530 init_flist {}
10531 }
10533 proc doquit {} {
10534 global stopped
10535 global gitktmpdir
10537 set stopped 100
10538 savestuff .
10539 destroy .
10541 if {[info exists gitktmpdir]} {
10543 }
10544 }
10546 proc mkfontdisp {font top which} {
10555 }
10557 proc choosefont {font which} {
10558 global fontparam fontlist fonttop fontattr
10559 global prefstop NS
10567 set top .gitkfont
10570 font create sample
10577 set fontlist [lsort [font families]]
10588 -textvariable fontparam(size) \
10589 -validatecommand {string is integer -strict %s}
10591 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10592 -variable fontparam(weight) -onvalue bold -offvalue normal
10594 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10595 -variable fontparam(slant) -onvalue italic -offvalue roman
10599 -background white
10601 -fill black -tags text
10613 trace add variable fontparam write chg_fontparam
10614 } else {
10617 }
10622 }
10623 }
10625 proc centertext {w} {
10627 }
10629 proc fontok {} {
10630 global fontparam fontpref prefstop
10636 }
10639 }
10643 fontcan
10644 }
10646 proc fontcan {} {
10647 global fonttop fontparam
10649 if {[info exists fonttop]} {
10651 catch {font delete sample}
10652 unset fonttop
10653 unset fontparam
10654 }
10655 }
10657 if {[package vsatisfies [package provide Tk] 8.6]} {
10658 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10659 # function to make use of it.
10660 proc choosefont {font which} {
10663 tk fontchooser show
10664 }
10665 proc on_choosefont {font which newfont} {
10666 global fontparam
10675 fontok
10676 }
10677 }
10679 proc selfontfam {} {
10680 global fonttop fontparam
10685 }
10686 }
10688 proc chg_fontparam {v sub op} {
10689 global fontparam
10692 }
10694 proc doprefs {} {
10695 global maxwidth maxgraphpct use_ttk NS
10696 global oldprefs prefstop showneartags showlocalchanges
10697 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10698 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10699 global hideremotes want_ttk have_ttk
10701 set top .gitkprefs
10705 return
10706 }
10707 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10708 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10710 }
10724 -variable showlocalchanges
10727 -variable autoselect
10730 -variable hideremotes
10739 -variable showneartags
10742 -variable limitdiffs
10745 -variable perfile_attrs
10759 -text [mc "Use themed widgets"]
10762 } else {
10764 }
10794 [mc "diff hunk header"] \
10800 [mc "marked line background"] \
10825 }
10827 proc choose_extdiff {} {
10828 global extdifftool
10830 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10833 }
10834 }
10836 proc choosecolor {v vi w x cmd} {
10845 }
10847 proc setselbg {c} {
10848 global bglist cflist
10851 }
10855 }
10857 # This sets the background color and the color scheme for the whole UI.
10858 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10859 # if we don't specify one ourselves, which makes the checkbuttons and
10860 # radiobuttons look bad. This chooses white for selectColor if the
10861 # background color is light, or black if it is dark.
10862 proc setui {c} {
10863 if {[tk windowingsystem] eq "win32"} { return }
10865 set selc black
10867 set selc white
10868 }
10870 }
10872 proc setbg {c} {
10873 global bglist
10877 }
10878 }
10880 proc setfg {c} {
10881 global fglist canv
10885 }
10889 }
10891 proc prefscan {} {
10892 global oldprefs prefstop
10894 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10895 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10898 }
10900 unset prefstop
10901 fontcan
10902 }
10904 proc prefsok {} {
10905 global maxwidth maxgraphpct
10906 global oldprefs prefstop showneartags showlocalchanges
10907 global fontpref mainfont textfont uifont
10908 global limitdiffs treediffs perfile_attrs
10909 global hideremotes
10912 unset prefstop
10913 fontcan
10914 set fontchanged 0
10918 eval font configure mainfont [fontflags mainfont]
10919 eval font configure mainfontbold [fontflags mainfont 1]
10920 setcoords
10921 set fontchanged 1
10922 }
10926 eval font configure textfont [fontflags textfont]
10927 eval font configure textfontbold [fontflags textfont 1]
10928 }
10932 eval font configure uifont [fontflags uifont]
10933 }
10934 settabs
10937 doshowlocalchanges
10938 } else {
10939 dohidelocalchanges
10940 }
10941 }
10944 # treediffs elements are limited by path;
10945 # won't have encodings cached if perfile_attrs was just turned on
10946 catch {unset treediffs}
10947 }
10950 redisplay
10953 reselectline
10954 }
10956 rereadrefs
10957 }
10958 }
10960 proc formatdate {d} {
10961 global datetimeformat
10964 }
10966 }
10968 # This list of encoding names and aliases is distilled from
10969 # http://www.iana.org/assignments/character-sets.
10970 # Not all of them are supported by Tcl.
10971 set encoding_aliases {
10972 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10973 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10974 { ISO-10646-UTF-1 csISO10646UTF1 }
10975 { ISO_646.basic:1983 ref csISO646basic1983 }
10976 { INVARIANT csINVARIANT }
10977 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10978 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10979 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10980 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10981 { NATS-DANO iso-ir-9-1 csNATSDANO }
10982 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10983 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10984 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10985 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10986 { ISO-2022-KR csISO2022KR }
10987 { EUC-KR csEUCKR }
10988 { ISO-2022-JP csISO2022JP }
10989 { ISO-2022-JP-2 csISO2022JP2 }
10990 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10991 csISO13JISC6220jp }
10992 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10993 { IT iso-ir-15 ISO646-IT csISO15Italian }
10994 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10995 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10996 { greek7-old iso-ir-18 csISO18Greek7Old }
10997 { latin-greek iso-ir-19 csISO19LatinGreek }
10998 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10999 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11000 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11001 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11002 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11003 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11004 { INIS iso-ir-49 csISO49INIS }
11005 { INIS-8 iso-ir-50 csISO50INIS8 }
11006 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11007 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11008 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11009 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11010 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11011 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11012 csISO60Norwegian1 }
11013 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11014 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11015 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11016 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11017 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11018 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11019 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11020 { greek7 iso-ir-88 csISO88Greek7 }
11021 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11022 { iso-ir-90 csISO90 }
11023 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11024 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11025 csISO92JISC62991984b }
11026 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11027 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11028 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11029 csISO95JIS62291984handadd }
11030 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11031 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11032 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11033 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11034 CP819 csISOLatin1 }
11035 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11036 { T.61-7bit iso-ir-102 csISO102T617bit }
11037 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11038 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11039 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11040 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11041 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11042 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11043 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11044 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11045 arabic csISOLatinArabic }
11046 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11047 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11048 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11049 greek greek8 csISOLatinGreek }
11050 { T.101-G2 iso-ir-128 csISO128T101G2 }
11051 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11052 csISOLatinHebrew }
11053 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11054 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11055 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11056 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11057 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11058 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11059 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11060 csISOLatinCyrillic }
11061 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11062 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11063 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11064 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11065 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11066 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11067 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11068 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11069 { ISO_10367-box iso-ir-155 csISO10367Box }
11070 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11071 { latin-lap lap iso-ir-158 csISO158Lap }
11072 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11073 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11074 { us-dk csUSDK }
11075 { dk-us csDKUS }
11076 { JIS_X0201 X0201 csHalfWidthKatakana }
11077 { KSC5636 ISO646-KR csKSC5636 }
11078 { ISO-10646-UCS-2 csUnicode }
11079 { ISO-10646-UCS-4 csUCS4 }
11080 { DEC-MCS dec csDECMCS }
11081 { hp-roman8 roman8 r8 csHPRoman8 }
11082 { macintosh mac csMacintosh }
11083 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11084 csIBM037 }
11085 { IBM038 EBCDIC-INT cp038 csIBM038 }
11086 { IBM273 CP273 csIBM273 }
11087 { IBM274 EBCDIC-BE CP274 csIBM274 }
11088 { IBM275 EBCDIC-BR cp275 csIBM275 }
11089 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11090 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11091 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11092 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11093 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11094 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11095 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11096 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11097 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11098 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11099 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11100 { IBM437 cp437 437 csPC8CodePage437 }
11101 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11102 { IBM775 cp775 csPC775Baltic }
11103 { IBM850 cp850 850 csPC850Multilingual }
11104 { IBM851 cp851 851 csIBM851 }
11105 { IBM852 cp852 852 csPCp852 }
11106 { IBM855 cp855 855 csIBM855 }
11107 { IBM857 cp857 857 csIBM857 }
11108 { IBM860 cp860 860 csIBM860 }
11109 { IBM861 cp861 861 cp-is csIBM861 }
11110 { IBM862 cp862 862 csPC862LatinHebrew }
11111 { IBM863 cp863 863 csIBM863 }
11112 { IBM864 cp864 csIBM864 }
11113 { IBM865 cp865 865 csIBM865 }
11114 { IBM866 cp866 866 csIBM866 }
11115 { IBM868 CP868 cp-ar csIBM868 }
11116 { IBM869 cp869 869 cp-gr csIBM869 }
11117 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11118 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11119 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11120 { IBM891 cp891 csIBM891 }
11121 { IBM903 cp903 csIBM903 }
11122 { IBM904 cp904 904 csIBBM904 }
11123 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11124 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11125 { IBM1026 CP1026 csIBM1026 }
11126 { EBCDIC-AT-DE csIBMEBCDICATDE }
11127 { EBCDIC-AT-DE-A csEBCDICATDEA }
11128 { EBCDIC-CA-FR csEBCDICCAFR }
11129 { EBCDIC-DK-NO csEBCDICDKNO }
11130 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11131 { EBCDIC-FI-SE csEBCDICFISE }
11132 { EBCDIC-FI-SE-A csEBCDICFISEA }
11133 { EBCDIC-FR csEBCDICFR }
11134 { EBCDIC-IT csEBCDICIT }
11135 { EBCDIC-PT csEBCDICPT }
11136 { EBCDIC-ES csEBCDICES }
11137 { EBCDIC-ES-A csEBCDICESA }
11138 { EBCDIC-ES-S csEBCDICESS }
11139 { EBCDIC-UK csEBCDICUK }
11140 { EBCDIC-US csEBCDICUS }
11141 { UNKNOWN-8BIT csUnknown8BiT }
11142 { MNEMONIC csMnemonic }
11143 { MNEM csMnem }
11144 { VISCII csVISCII }
11145 { VIQR csVIQR }
11146 { KOI8-R csKOI8R }
11147 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11148 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11149 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11150 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11151 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11152 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11153 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11154 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11155 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11156 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11157 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11158 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11159 { IBM1047 IBM-1047 }
11160 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11161 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11162 { UNICODE-1-1 csUnicode11 }
11163 { CESU-8 csCESU-8 }
11164 { BOCU-1 csBOCU-1 }
11165 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11166 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11167 l8 }
11168 { ISO-8859-15 ISO_8859-15 Latin-9 }
11169 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11170 { GBK CP936 MS936 windows-936 }
11171 { JIS_Encoding csJISEncoding }
11172 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11173 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11174 EUC-JP }
11175 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11176 { ISO-10646-UCS-Basic csUnicodeASCII }
11177 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11178 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11179 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11180 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11181 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11182 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11183 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11184 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11185 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11186 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11187 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11188 { Ventura-US csVenturaUS }
11189 { Ventura-International csVenturaInternational }
11190 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11191 { PC8-Turkish csPC8Turkish }
11192 { IBM-Symbols csIBMSymbols }
11193 { IBM-Thai csIBMThai }
11194 { HP-Legal csHPLegal }
11195 { HP-Pi-font csHPPiFont }
11196 { HP-Math8 csHPMath8 }
11197 { Adobe-Symbol-Encoding csHPPSMath }
11198 { HP-DeskTop csHPDesktop }
11199 { Ventura-Math csVenturaMath }
11200 { Microsoft-Publishing csMicrosoftPublishing }
11201 { Windows-31J csWindows31J }
11202 { GB2312 csGB2312 }
11203 { Big5 csBig5 }
11204 }
11206 proc tcl_encoding {enc} {
11207 global encoding_aliases tcl_encoding_cache
11210 }
11211 set names [encoding names]
11216 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11219 }
11220 }
11225 # look through the aliases for one that tcl knows about
11231 }
11232 }
11234 }
11235 break
11236 }
11237 }
11238 set tclenc {}
11241 }
11244 }
11246 proc gitattr {path attr default} {
11247 global path_attr_cache
11250 } else {
11251 set r "unspecified"
11254 }
11256 }
11259 }
11261 }
11263 proc cache_gitattr {attr pathlist} {
11264 global path_attr_cache
11265 set newlist {}
11269 }
11270 }
11271 set lim 1000
11272 if {[tk windowingsystem] == "win32"} {
11273 # windows has a 32k limit on the arguments to a command...
11274 set lim 30
11275 }
11284 }
11286 }
11287 }
11288 }
11289 }
11290 }
11292 proc get_path_encoding {path} {
11293 global gui_encoding perfile_attrs
11299 }
11300 }
11302 }
11304 # First check that Tcl/Tk is recent enough
11305 if {[catch {package require Tk 8.4} err]} {
11306 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11307 Gitk requires at least Tcl/Tk 8.4." list
11308 exit 1
11309 }
11311 # defaults...
11312 set wrcomcmd "git diff-tree --stdin -p --pretty"
11314 set gitencoding {}
11315 catch {
11316 set gitencoding [exec git config --get i18n.commitencoding]
11317 }
11318 catch {
11319 set gitencoding [exec git config --get i18n.logoutputencoding]
11320 }
11322 set gitencoding "utf-8"
11323 }
11327 }
11329 set gui_encoding [encoding system]
11330 catch {
11331 set enc [exec git config --get gui.encoding]
11336 } else {
11338 }
11339 }
11340 }
11342 if {[tk windowingsystem] eq "aqua"} {
11343 set mainfont {{Lucida Grande} 9}
11344 set textfont {Monaco 9}
11345 set uifont {{Lucida Grande} 9 bold}
11346 } else {
11347 set mainfont {Helvetica 9}
11348 set textfont {Courier 9}
11349 set uifont {Helvetica 9 bold}
11350 }
11351 set tabstop 8
11352 set findmergefiles 0
11353 set maxgraphpct 50
11354 set maxwidth 16
11355 set revlistorder 0
11356 set fastdate 0
11357 set uparrowlen 5
11358 set downarrowlen 5
11359 set mingaplen 100
11360 set cmitmode "patch"
11361 set wrapcomment "none"
11362 set showneartags 1
11363 set hideremotes 0
11364 set maxrefs 20
11365 set maxlinelen 200
11366 set showlocalchanges 1
11367 set limitdiffs 1
11368 set datetimeformat "%Y-%m-%d %H:%M:%S"
11369 set autoselect 1
11370 set perfile_attrs 0
11371 set want_ttk 1
11373 if {[tk windowingsystem] eq "aqua"} {
11374 set extdifftool "opendiff"
11375 } else {
11376 set extdifftool "meld"
11377 }
11379 set colors {green red blue magenta darkgrey brown orange}
11380 if {[tk windowingsystem] eq "win32"} {
11381 set uicolor SystemButtonFace
11382 set bgcolor SystemWindow
11383 set fgcolor SystemButtonText
11384 set selectbgcolor SystemHighlight
11385 } else {
11386 set uicolor grey85
11387 set bgcolor white
11388 set fgcolor black
11389 set selectbgcolor gray85
11390 }
11391 set diffcolors {red "#00a000" blue}
11392 set diffcontext 3
11393 set ignorespace 0
11394 set markbgcolor "#e0e0ff"
11396 set circlecolors {white blue gray blue blue}
11398 # button for popping up context menus
11399 if {[tk windowingsystem] eq "aqua"} {
11400 set ctxbut <Button-2>
11401 } else {
11402 set ctxbut <Button-3>
11403 }
11405 ## For msgcat loading, first locate the installation location.
11406 if { [info exists ::env(GITK_MSGSDIR)] } {
11407 ## Msgsdir was manually set in the environment.
11408 set gitk_msgsdir $::env(GITK_MSGSDIR)
11409 } else {
11410 ## Let's guess the prefix from argv0.
11414 unset gitk_prefix
11415 }
11417 ## Internationalization (i18n) through msgcat and gettext. See
11418 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11419 package require msgcat
11420 namespace import ::msgcat::mc
11421 ## And eventually load the actual message catalog
11424 catch {source ~/.gitk}
11427 eval font create mainfont [fontflags mainfont]
11428 eval font create mainfontbold [fontflags mainfont 1]
11431 eval font create textfont [fontflags textfont]
11432 eval font create textfontbold [fontflags textfont 1]
11435 eval font create uifont [fontflags uifont]
11439 setoptions
11441 # check that we can find a .git directory somewhere...
11442 if {[catch {set gitdir [gitdir]}]} {
11443 show_error {} . [mc "Cannot find a git repository here."]
11444 exit 1
11445 }
11448 exit 1
11449 }
11451 set selecthead {}
11452 set selectheadid {}
11454 set revtreeargs {}
11455 set cmdline_files {}
11456 set i 0
11457 set revtreeargscmd {}
11460 "" { }
11461 "--" {
11463 break
11464 }
11465 "--select-commit=*" {
11467 }
11468 "--argscmd=*" {
11470 }
11471 default {
11473 }
11474 }
11475 incr i
11476 }
11479 set selecthead {}
11480 }
11483 # no -- on command line, but some arguments (other than --argscmd)
11484 if {[catch {
11489 # Unfortunately git rev-parse doesn't produce an error when
11490 # something is both a revision and a filename. To be consistent
11491 # with git log and git rev-list, check revtreeargs for filenames.
11494 show_error {} . [mc "Ambiguous argument '%s': both revision\
11496 exit 1
11497 }
11498 }
11499 } err]} {
11501 # so look for "fatal:".
11505 }
11507 exit 1
11508 }
11509 }
11511 set nullid "0000000000000000000000000000000000000000"
11512 set nullid2 "0000000000000000000000000000000000000001"
11513 set nullfile "/dev/null"
11516 if {![info exists have_ttk]} {
11517 set have_ttk [llength [info commands ::ttk::style]]
11518 }
11522 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11524 set runq {}
11525 set history {}
11526 set historyindex 0
11527 set fh_serial 0
11528 set nhl_names {}
11529 set highlight_paths {}
11530 set findpattern {}
11531 set searchdirn -forwards
11532 set boldids {}
11533 set boldnameids {}
11534 set diffelide {0 0}
11535 set markingmatches 0
11536 set linkentercount 0
11537 set need_redisplay 0
11538 set nrows_drawn 0
11539 set firsttabstop 0
11541 set nextviewnum 1
11542 set curview 0
11543 set selectedview 0
11544 set selectedhlview [mc "None"]
11545 set highlight_related [mc "None"]
11546 set highlight_files {}
11547 set viewfiles(0) {}
11548 set viewperm(0) 0
11549 set viewargs(0) {}
11550 set viewargscmd(0) {}
11552 set selectedline {}
11553 set numcommits 0
11554 set loginstance 0
11555 set cmdlineok 0
11556 set stopped 0
11557 set stuffsaved 0
11558 set patchnum 0
11559 set lserial 0
11560 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11561 setcoords
11562 makewindow
11563 catch {
11564 image create photo gitlogo -width 16 -height 16
11566 image create photo gitlogominus -width 4 -height 2
11567 gitlogominus put #C00000 -to 0 0 4 2
11568 gitlogo copy gitlogominus -to 1 5
11569 gitlogo copy gitlogominus -to 6 5
11570 gitlogo copy gitlogominus -to 11 5
11571 image delete gitlogominus
11573 image create photo gitlogoplus -width 4 -height 4
11574 gitlogoplus put #008000 -to 1 0 3 4
11575 gitlogoplus put #008000 -to 0 1 4 3
11576 gitlogo copy gitlogoplus -to 1 9
11577 gitlogo copy gitlogoplus -to 6 9
11578 gitlogo copy gitlogoplus -to 11 9
11579 image delete gitlogoplus
11581 image create photo gitlogo32 -width 32 -height 32
11582 gitlogo32 copy gitlogo -zoom 2 2
11584 wm iconphoto . -default gitlogo gitlogo32
11585 }
11586 # wait for the window to become visible
11587 tkwait visibility .
11589 update
11590 readrefs
11593 # create a view for the files/dirs specified on the command line
11594 set curview 1
11595 set selectedview 1
11596 set nextviewnum 2
11597 set viewname(1) [mc "Command line"]
11601 set viewperm(1) 0
11602 set vdatemode(1) 0
11603 addviewmenu 1
11604 .bar.view entryconf [mca "Edit view..."] -state normal
11605 .bar.view entryconf [mca "Delete view"] -state normal
11606 }
11608 if {[info exists permviews]} {
11611 incr nextviewnum
11618 }
11619 }
11621 if {[tk windowingsystem] eq "win32"} {
11622 focus -force .
11623 }
11625 getcommits {}
11627 # Local variables:
11628 # mode: tcl
11629 # indent-tabs-mode: t
11630 # tab-width: 8
11631 # End: