| blob | 9da052623961c0e70c7b6bc96c1c2aa0b43ac16a |
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 © 2005-2009 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
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 {}]
7540 }
7542 proc savecmitpos {} {
7543 global ctext cmitmode
7546 return {}
7547 }
7549 }
7551 proc savectextpos {} {
7552 global ctext
7555 }
7557 proc maybe_scroll_ctext {ateof} {
7558 global ctext target_scrollpos
7560 if {![info exists target_scrollpos]} return
7563 / [font metrics textfont -linespace]}]
7565 }
7567 unset target_scrollpos
7568 }
7570 proc setinlist {var i val} {
7575 }
7578 } else {
7580 }
7581 }
7583 proc makediffhdr {fname ids} {
7584 global ctext curdiffstart treediffs diffencoding
7585 global ctext_file_names jump_to_here targetline diffline
7592 }
7597 set targetline {}
7600 }
7601 set diffline 0
7602 }
7604 proc getblobdiffline {bdf ids} {
7605 global diffids blobdifffd ctext curdiffstart
7606 global diffnexthead diffnextnote difffilestart
7607 global ctext_file_names ctext_file_lines
7608 global diffinhdr treediffs mergemax diffnparents
7609 global diffencoding jump_to_here targetline diffline
7611 set nr 0
7616 return 0
7617 }
7622 continue
7623 }
7624 # start of a new file
7625 set diffinhdr 1
7628 lappend ctext_file_names ""
7633 # start of a new file in a merge diff
7638 }
7640 } else {
7642 # If the name hasn't changed the length will be odd,
7643 # the middle char will be a space, and the two bits either
7644 # side will be a/name and b/name, or "a/name" and "b/name".
7645 # If the name has changed we'll get "rename from" and
7646 # "rename to" or "copy from" and "copy to" lines following
7647 # this, and we'll use them to get the filenames.
7648 # This complexity is necessary because spaces in the
7649 # filename(s) don't get escaped.
7655 continue
7656 }
7657 # unescape if quoted and chop off the a/ from the front
7660 } else {
7662 }
7663 }
7676 }
7684 }
7686 set diffinhdr 0
7689 # start of a new submodule
7692 }
7694 lappend ctext_file_names ""
7710 }
7715 }
7721 }
7724 # do nothing
7725 continue
7727 set diffinhdr 0
7728 continue
7729 }
7732 } else {
7733 set line [string map {\x1A ^Z} \
7735 # parse the prefix - one ' ', '-' or '+' for each parent
7739 # prefix only has " ", "-" and "+" in it: normal diff line
7744 set num "max"
7745 }
7747 } else {
7748 set tags {}
7750 # added line
7756 set num "max"
7757 }
7759 }
7760 }
7761 }
7765 set targetline {}
7766 } else {
7767 incr diffline
7768 }
7769 }
7771 }
7772 } else {
7773 # "\ No newline at end of file",
7774 # or something else we don't recognize
7776 }
7777 }
7778 }
7779 if {[info exists seehere]} {
7781 }
7786 return 0
7787 }
7789 }
7791 proc changediffdisp {} {
7792 global ctext diffelide
7796 }
7798 proc highlightfile {loc cline} {
7799 global ctext cflist cflist_top
7806 }
7808 proc prevfile {} {
7809 global difffilestart ctext cmitmode
7812 set prev 0.0
7813 set prevline 1
7818 return
7819 }
7821 incr prevline
7822 }
7824 }
7826 proc nextfile {} {
7827 global difffilestart ctext cmitmode
7831 set line 1
7833 incr line
7836 return
7837 }
7838 }
7839 }
7841 proc clear_ctext {{first 1.0}} {
7842 global ctext smarktop smarkbot
7843 global ctext_file_names ctext_file_lines
7844 global pendinglinks
7849 }
7852 }
7855 catch {unset pendinglinks}
7856 }
7857 set ctext_file_names {}
7858 set ctext_file_lines {}
7859 }
7861 proc settabs {{firstab {}}} {
7862 global firsttabstop tabstop ctext have_tk85
7866 }
7867 set w [font measure textfont "0"]
7873 } else {
7875 }
7876 }
7878 proc incrsearch {name ix op} {
7879 global ctext searchstring searchdirn
7883 # no anchor set, use start of selection, or of visible area
7889 } else {
7891 }
7892 }
7897 }
7898 searchmarkvisible 1
7899 }
7900 }
7902 proc dosearch {} {
7903 global sstring ctext searchstring searchdirn
7907 set searchdirn -forwards
7913 set start "@0,0"
7914 }
7918 bell
7919 return
7920 }
7925 }
7926 }
7928 proc dosearchback {} {
7929 global sstring ctext searchstring searchdirn
7933 set searchdirn -backwards
7940 }
7944 bell
7945 return
7946 }
7951 }
7952 }
7954 proc searchmark {first last} {
7955 global ctext searchstring
7958 while {1} {
7963 }
7964 }
7966 proc searchmarkvisible {doall} {
7967 global ctext smarktop smarkbot
7972 # no overlap with previous
7976 } else {
7980 }
7984 }
7985 }
7986 }
7988 proc scrolltext {f0 f1} {
7989 global searchstring
7993 searchmarkvisible 0
7994 }
7995 }
7997 proc setcoords {} {
7998 global linespc charspc canvx0 canvy0
7999 global xspc1 xspc2 lthickness
8001 set linespc [font metrics mainfont -linespace]
8002 set charspc [font measure mainfont "m"]
8008 }
8010 proc redisplay {} {
8011 global canv
8012 global selectedline
8017 clear_display
8018 setcanvscroll
8020 drawvisible
8024 }
8025 }
8027 proc parsefont {f n} {
8028 global fontattr
8033 set s 10
8036 }
8042 "normal" -
8044 "roman" -
8046 }
8047 }
8048 }
8050 proc fontflags {f {isbold 0}} {
8051 global fontattr
8056 }
8058 proc fontname {f} {
8059 global fontattr
8063 lappend n "bold"
8064 }
8066 lappend n "italic"
8067 }
8069 }
8071 proc incrfont {inc} {
8072 global mainfont textfont ctext canv cflist showrefstop
8073 global stopped entries fontattr
8075 unmarkmatches
8079 set s 1
8080 }
8084 set mainfont [fontname mainfont]
8088 set s 1
8089 }
8093 set textfont [fontname textfont]
8094 setcoords
8095 settabs
8096 redisplay
8097 }
8099 proc clearsha1 {} {
8100 global sha1entry sha1string
8103 }
8104 }
8106 proc sha1change {n1 n2 op} {
8107 global sha1string currentid sha1but
8110 set state disabled
8111 } else {
8112 set state normal
8113 }
8117 } else {
8119 }
8120 }
8122 proc gotocommit {} {
8123 global sha1string tagids headids curview varcid
8131 } else {
8138 return
8139 }
8141 }
8142 } else {
8145 return
8146 }
8147 }
8148 }
8151 return
8152 }
8155 } else {
8157 }
8159 }
8161 proc lineenter {x y id} {
8162 global hoverx hovery hoverid hovertimer
8163 global commitinfo canv
8169 if {[info exists hovertimer]} {
8171 }
8172 set hovertimer [after 500 linehover]
8174 }
8176 proc linemotion {x y id} {
8177 global hoverx hovery hoverid hovertimer
8182 if {[info exists hovertimer]} {
8184 }
8185 set hovertimer [after 500 linehover]
8186 }
8187 }
8189 proc lineleave {id} {
8190 global hoverid hovertimer canv
8194 if {[info exists hovertimer]} {
8196 unset hovertimer
8197 }
8198 unset hoverid
8199 }
8200 }
8202 proc linehover {} {
8203 global hoverx hovery hoverid hovertimer
8204 global canv linespc lthickness
8205 global commitinfo
8218 -fill \#ffff80 -outline black -width 1 -tags hover]
8221 -font mainfont]
8223 }
8225 proc clickisonarrow {id y} {
8226 global lthickness
8235 }
8236 }
8237 return {}
8238 }
8240 proc arrowjump {id n y} {
8241 global canv
8243 # 1 <-> 2, 3 <-> 4, etc...
8253 set yfrac 0
8254 }
8256 }
8258 proc lineclick {x y id isnew} {
8259 global ctext commitinfo children canv thickerline curview
8262 unmarkmatches
8263 unselectline
8264 normalline
8266 # draw this line thicker than normal
8274 }
8278 return
8279 }
8283 }
8284 # fill the details pane with info about this line
8286 clear_ctext
8287 settabs 0
8299 set i 0
8301 incr i
8311 }
8312 }
8313 maybe_scroll_ctext 1
8315 init_flist {}
8316 }
8318 proc normalline {} {
8319 global thickerline
8320 if {[info exists thickerline]} {
8322 unset thickerline
8324 }
8325 }
8327 proc selbyid {id {isnew 1}} {
8328 global curview
8331 }
8332 }
8334 proc mstime {} {
8335 global startmstime
8336 if {![info exists startmstime]} {
8337 set startmstime [clock clicks -milliseconds]
8338 }
8340 }
8342 proc rowmenu {x y id} {
8343 global rowctxmenu selectedline rowmenuid curview
8344 global nullid nullid2 fakerowmenu mainhead markedid
8346 stopfinding
8349 set state disabled
8350 } else {
8351 set state normal
8352 }
8357 } else {
8359 }
8364 } else {
8368 }
8369 } else {
8371 }
8376 }
8378 proc markhere {} {
8379 global rowmenuid markedid canv
8383 }
8385 proc gotomark {} {
8386 global markedid
8388 if {[info exists markedid]} {
8390 }
8391 }
8393 proc replace_by_kids {l r} {
8394 global curview children
8400 }
8402 }
8404 proc find_common_desc {} {
8405 global markedid rowmenuid curview children
8407 if {![info exists markedid]} return
8410 #set t1 [clock clicks -milliseconds]
8413 while 1 {
8419 break
8420 }
8423 } else {
8425 }
8426 }
8427 #set t2 [clock clicks -milliseconds]
8429 }
8431 proc compare_commits {} {
8432 global markedid rowmenuid curview children
8434 if {![info exists markedid]} return
8438 }
8440 proc getpatchid {id} {
8441 global patchids
8445 # trim off the initial "|"
8447 if {[catch {
8450 }]} {
8452 }
8453 }
8455 }
8457 proc do_cmp_commits {a b} {
8458 global ctext curview parents children patchids commitinfo
8461 clear_ctext
8462 init_flist {}
8464 set skipa 0
8465 set skipb 0
8468 set skipa 1
8469 } else {
8471 }
8474 set skipb 1
8475 } else {
8477 }
8483 [mc " - stopping\n"]
8484 break
8485 }
8488 [mc " - stopping\n"]
8489 break
8490 }
8495 } else {
8499 }
8500 set skipa 1
8501 set skipb 1
8502 } else {
8509 update
8511 return
8512 }
8513 }
8520 break
8521 }
8523 }
8529 break
8530 }
8532 }
8533 }
8535 }
8537 proc diffcommits {a b} {
8538 global diffcontext diffids blobdifffd diffinhdr
8540 set tmpdir [gitknewtmpdir]
8543 if {[catch {
8546 } err]} {
8548 return
8549 }
8550 if {[catch {
8552 } err]} {
8554 return
8555 }
8558 set diffinhdr 0
8560 }
8562 proc diffvssel {dirn} {
8563 global rowmenuid selectedline
8569 } else {
8572 }
8575 }
8577 proc doseldiff {oldid newid} {
8578 global ctext
8579 global commitinfo
8582 clear_ctext
8583 init_flist [mc "Top"]
8598 }
8600 proc mkpatch {} {
8601 global rowmenuid currentid commitinfo patchtop patchnum NS
8603 if {![info exists currentid]} return
8608 set top .patch
8638 incr patchnum
8650 }
8652 proc mkpatchrev {} {
8653 global patchtop
8659 foreach e [list fromsha1 fromhead tosha1 tohead] \
8665 }
8666 }
8668 proc mkpatchgo {} {
8669 global patchtop nullid nullid2
8675 # trim off the initial "|"
8680 }
8682 unset patchtop
8683 }
8685 proc mkpatchcan {} {
8686 global patchtop
8689 unset patchtop
8690 }
8692 proc mktag {} {
8693 global rowmenuid mktagtop commitinfo NS
8695 set top .maketag
8729 }
8731 proc domktag {} {
8732 global mktagtop env tagids idtags
8739 return 0
8740 }
8743 return 0
8744 }
8745 if {[catch {
8748 } else {
8750 }
8751 } err]} {
8753 return 0
8754 }
8760 dispneartags 0
8761 run refill_reflist
8762 return 1
8763 }
8765 proc redrawtags {id} {
8766 global canv linehtag idpos currentid curview cmitlisted markedid
8767 global canvxmax iddrawn circleitem mainheadid circlecolors
8773 set ofill yellow
8774 } else {
8776 }
8786 setcanvscroll
8787 }
8790 }
8793 }
8794 }
8796 proc mktagcan {} {
8797 global mktagtop
8800 unset mktagtop
8801 }
8803 proc mktaggo {} {
8804 if {![domktag]} return
8805 mktagcan
8806 }
8808 proc writecommit {} {
8809 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8811 set top .writecommit
8844 }
8846 proc wrcomgo {} {
8847 global wrcomtop
8854 }
8856 unset wrcomtop
8857 }
8859 proc wrcomcan {} {
8860 global wrcomtop
8863 unset wrcomtop
8864 }
8866 proc mkbranch {} {
8867 global rowmenuid mkbrtop NS
8869 set top .makebranch
8893 }
8895 proc mkbrgo {top} {
8896 global headids idheads
8900 set cmdargs {}
8901 set old_id {}
8904 return
8905 }
8907 if {![confirm_popup [mc \
8909 return
8910 }
8912 lappend cmdargs -f
8913 }
8916 nowbusy newbranch
8917 update
8918 if {[catch {
8920 } err]} {
8921 notbusy newbranch
8923 } else {
8924 notbusy newbranch
8930 } else {
8935 }
8936 dispneartags 0
8937 run refill_reflist
8938 }
8939 }
8941 proc exec_citool {tool_args {baseid {}}} {
8942 global commitinfo env
8944 set save_env [array get env GIT_AUTHOR_*]
8949 }
8952 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8958 }
8959 }
8963 array unset env GIT_AUTHOR_*
8965 }
8967 proc cherrypick {} {
8968 global rowmenuid curview
8969 global mainhead mainheadid
8971 set oldhead [exec git rev-parse HEAD]
8974 set ok [confirm_popup [mc "Commit %s is already\
8975 included in branch %s -- really re-apply it?" \
8978 }
8979 nowbusy cherrypick [mc "Cherry-picking"]
8980 update
8981 # Unfortunately git-cherry-pick writes stuff to stderr even when
8982 # no error occurs, and exec takes that as an indication of error...
8984 notbusy cherrypick
8985 if {[regexp -line \
8986 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8988 error_popup [mc "Cherry-pick failed because of local changes\
8989 to file '%s'.\nPlease commit, reset or stash\
8991 } elseif {[regexp -line \
8992 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8994 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8995 conflict.\nDo you wish to run git citool to\
8996 resolve it?"]]} {
8997 # Force citool to read MERGE_MSG
8998 file delete [file join [gitdir] "GITGUI_MSG"]
9000 }
9001 } else {
9003 }
9004 run updatecommits
9005 return
9006 }
9007 set newhead [exec git rev-parse HEAD]
9009 notbusy cherrypick
9010 error_popup [mc "No changes committed"]
9011 return
9012 }
9015 # XXX this isn't right if we have a path limit...
9020 }
9025 }
9026 notbusy cherrypick
9027 }
9029 proc resethead {} {
9030 global mainhead rowmenuid confirm_ok resettype NS
9032 set confirm_ok 0
9033 set w ".confirmreset"
9041 set resettype mixed
9043 -text [mc "Soft: Leave working tree and index untouched"]
9046 -text [mc "Mixed: Leave working tree untouched, reset index"]
9049 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9060 if {[catch {set fd [open \
9063 } else {
9064 dohidelocalchanges
9066 nowbusy reset [mc "Resetting"]
9068 }
9069 }
9071 proc readresetstat {fd} {
9072 global mainhead mainheadid showlocalchanges rprogcoord
9077 adjustprogress
9078 }
9079 return 1
9080 }
9081 set rprogcoord 0
9082 adjustprogress
9083 notbusy reset
9086 }
9088 set newhead [exec git rev-parse HEAD]
9095 }
9097 doshowlocalchanges
9098 }
9099 return 0
9100 }
9102 # context menu for a head
9103 proc headmenu {x y id head} {
9104 global headmenuid headmenuhead headctxmenu mainhead
9106 stopfinding
9109 set state normal
9111 set state disabled
9112 }
9114 set state disabled
9115 }
9119 }
9121 proc cobranch {} {
9122 global headmenuid headmenuhead headids
9123 global showlocalchanges
9125 # check the tree is clean first??
9126 nowbusy checkout [mc "Checking out"]
9127 update
9128 dohidelocalchanges
9129 if {[catch {
9131 } err]} {
9132 notbusy checkout
9135 dodiffindex
9136 }
9137 } else {
9139 }
9140 }
9142 proc readcheckoutstat {fd newhead newheadid} {
9143 global mainhead mainheadid headids showlocalchanges progresscoords
9144 global viewmainheadid curview
9149 adjustprogress
9150 }
9151 return 1
9152 }
9153 set progresscoords {0 0}
9154 adjustprogress
9155 notbusy checkout
9158 }
9167 dodiffindex
9168 }
9169 }
9171 proc rmbranch {} {
9172 global headmenuid headmenuhead mainhead
9173 global idheads
9177 # this check shouldn't be needed any more...
9179 error_popup [mc "Cannot delete the currently checked-out branch"]
9180 return
9181 }
9184 # the stuff on this branch isn't on any other branch
9185 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9187 }
9188 nowbusy rmbranch
9189 update
9191 notbusy rmbranch
9193 return
9194 }
9198 notbusy rmbranch
9199 dispneartags 0
9200 run refill_reflist
9201 }
9203 # Display a list of tags and heads
9204 proc showrefs {} {
9205 global showrefstop bgcolor fgcolor selectbgcolor NS
9206 global bglist fglist reflistfilter reflist maincursor
9208 set top .showrefs
9212 refill_reflist
9213 return
9214 }
9222 -spacing1 1 -spacing3 1 -state disabled
9233 set reflistfilter "*"
9234 trace add variable reflistfilter write reflistfilter_change
9246 set reflist {}
9247 refill_reflist
9248 }
9250 proc sel_reflist {w x y} {
9251 global showrefstop reflist headids tagids otherrefids
9261 }
9263 }
9265 proc unsel_reflist {} {
9266 global showrefstop
9270 }
9272 proc reflistfilter_change {n1 n2 op} {
9273 global reflistfilter
9275 after cancel refill_reflist
9276 after 200 refill_reflist
9277 }
9279 proc refill_reflist {} {
9280 global reflist reflistfilter showrefstop headids tagids otherrefids
9281 global curview
9284 set refs {}
9285 foreach n [array names headids] {
9289 } else {
9291 }
9292 }
9293 }
9294 foreach n [array names tagids] {
9298 } else {
9300 }
9301 }
9302 }
9303 foreach n [array names otherrefids] {
9307 } else {
9309 }
9310 }
9311 }
9319 set i 0
9320 set j 0
9329 }
9330 } else {
9331 set cmp -1
9332 }
9333 } else {
9334 set cmp 1
9335 }
9337 -1 {
9339 incr i
9340 }
9341 0 {
9342 incr i
9343 incr j
9344 }
9345 1 {
9350 incr j
9351 }
9352 }
9353 }
9355 # delete last newline
9358 }
9360 # Stuff for finding nearby tags
9361 proc getallcommits {} {
9362 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9363 global idheads idtags idotherrefs allparents tagobjid
9365 if {![info exists allcommits]} {
9366 set nextarc 0
9367 set allcommits 0
9368 set seeds {}
9369 set allcwait 0
9370 set cachedarcs 0
9371 set allccache [file join [gitdir] "gitk.cache"]
9372 if {![catch {
9374 set allcwait 1
9376 }]} return
9377 }
9380 return
9381 }
9382 set cmd [list | git rev-list --parents]
9385 set ids "--all"
9386 } else {
9387 set refs [concat [array names idheads] [array names idtags] \
9388 [array names idotherrefs]]
9389 set ids {}
9390 set tagobjs {}
9391 foreach name [array names tagobjid] {
9393 }
9398 }
9399 }
9403 }
9404 }
9405 }
9409 incr allcommits
9410 nowbusy allcommits
9412 } else {
9413 dispneartags 0
9414 }
9415 }
9417 # Since most commits have 1 parent and 1 child, we group strings of
9418 # such commits into "arcs" joining branch/merge points (BMPs), which
9419 # are commits that either don't have 1 parent or don't have 1 child.
9420 #
9421 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9422 # arcout(id) - outgoing arcs for BMP
9423 # arcids(a) - list of IDs on arc including end but not start
9424 # arcstart(a) - BMP ID at start of arc
9425 # arcend(a) - BMP ID at end of arc
9426 # growing(a) - arc a is still growing
9427 # arctags(a) - IDs out of arcids (excluding end) that have tags
9428 # archeads(a) - IDs out of arcids (excluding end) that have heads
9429 # The start of an arc is at the descendent end, so "incoming" means
9430 # coming from descendents, and "outgoing" means going towards ancestors.
9432 proc getallclines {fd} {
9433 global allparents allchildren idtags idheads nextarc
9434 global arcnos arcids arctags arcout arcend arcstart archeads growing
9435 global seeds allcommits cachedarcs allcupdate
9437 set nid 0
9441 # seen it already
9442 continue
9443 }
9444 set cachedarcs 0
9451 } else {
9457 }
9460 }
9462 # seen parent already
9465 }
9469 }
9472 continue
9473 }
9474 }
9479 }
9481 set ao {}
9484 set a [incr nextarc]
9493 # seen it already, may need to make a new branch
9496 }
9500 }
9502 }
9504 }
9506 global cached_dheads cached_dtags cached_atags
9507 catch {unset cached_dheads}
9508 catch {unset cached_dtags}
9509 catch {unset cached_atags}
9510 }
9513 }
9514 set cacheok 1
9515 if {[catch {
9518 } err]} {
9519 # got an error reading the list of commits
9520 # if we were updating, try rereading the whole thing again
9522 incr allcommits -1
9524 return
9525 }
9526 error_popup "[mc "Error reading commit topology information;\
9527 branch and preceding/following tag information\
9529 set cacheok 0
9530 }
9531 if {[incr allcommits -1] == 0} {
9532 notbusy allcommits
9534 run savecache
9535 }
9536 }
9537 dispneartags 0
9538 return 0
9539 }
9541 proc recalcarc {a} {
9542 global arctags archeads arcids idtags idheads
9544 set at {}
9545 set ah {}
9549 }
9552 }
9553 }
9556 }
9558 proc splitarc {p} {
9559 global arcnos arcids nextarc arctags archeads idtags idheads
9560 global arcstart arcend arcout allparents growing
9565 return
9566 }
9571 return
9572 }
9573 set na [incr nextarc]
9576 } else {
9580 }
9590 }
9595 } else {
9598 }
9599 }
9601 # reconstruct tags and heads lists
9605 } else {
9608 }
9609 }
9611 # Update things for a new commit added that is a child of one
9612 # existing commit. Used when cherry-picking.
9613 proc addnewchild {id p} {
9614 global allparents allchildren idtags nextarc
9615 global arcnos arcids arctags arcout arcend arcstart archeads growing
9616 global seeds allcommits
9624 set a [incr nextarc]
9632 }
9635 }
9637 # This implements a cache for the topology information.
9638 # The cache saves, for each arc, the start and end of the arc,
9639 # the ids on the arc, and the outgoing arcs from the end.
9640 proc readcache {f} {
9641 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9642 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9643 global allcwait
9649 }
9650 if {[catch {
9652 # finish reading the cache and setting up arctags, etc.
9656 foreach id [array names idtags] {
9662 }
9663 }
9664 }
9665 foreach id [array names idheads] {
9671 }
9672 }
9673 }
9677 }
9678 }
9679 set allcwait 0
9680 } else {
9690 }
9694 } else {
9698 }
9699 }
9705 }
9708 }
9711 }
9713 }
9714 } err]} {
9716 return 0
9717 }
9719 getallcommits
9720 }
9722 }
9724 proc getcache {f} {
9725 global nextarc cachedarcs possible_seeds
9727 if {[catch {
9730 # make sure it's an integer
9733 set nextarc 0
9734 set possible_seeds {}
9736 } err]} {
9738 }
9739 return 0
9740 }
9742 proc dropcache {err} {
9743 global allcwait nextarc cachedarcs seeds
9746 foreach v {arcnos arcout arcids arcstart arcend growing \
9747 arctags archeads allparents allchildren} {
9750 }
9751 set allcwait 0
9752 set nextarc 0
9753 set cachedarcs 0
9754 set seeds {}
9755 getallcommits
9756 }
9758 proc writecache {f} {
9759 global cachearc cachedarcs allccache
9760 global arcstart arcend arcnos arcids arcout
9766 }
9767 if {[catch {
9771 } else {
9773 }
9774 }
9775 } err]} {
9779 return 0
9780 }
9785 return 0
9786 }
9787 return 1
9788 }
9790 proc savecache {} {
9791 global nextarc cachedarcs cachearc allccache
9794 set cachearc 0
9796 catch {
9800 }
9801 }
9803 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9804 # or 0 if neither is true.
9805 proc anc_or_desc {a b} {
9806 global arcout arcstart arcend arcnos cached_isanc
9809 # Both are on the same arc(s); either both are the same BMP,
9810 # or if one is not a BMP, the other is also not a BMP or is
9811 # the BMP at end of the arc (and it only has 1 incoming arc).
9812 # Or both can be BMPs with no incoming arcs.
9814 return 0
9815 }
9821 return 1
9822 } else {
9823 return -1
9824 }
9825 }
9831 } else {
9832 set aend {}
9833 }
9835 } else {
9837 }
9842 } else {
9843 set bend {}
9844 }
9846 } else {
9848 }
9850 return 1
9851 }
9853 return -1
9854 }
9857 return 1
9858 }
9859 }
9862 return -1
9863 }
9865 return 0
9866 }
9867 }
9875 continue
9876 }
9882 return 1
9886 return -1
9887 }
9893 }
9894 }
9895 }
9898 return 0
9899 }
9903 # and returns 0 if so and 1 if not.
9904 # If we subsequently discover a tag on such a growing tip, and that
9907 # isn't a good choice to display as a descendent tag of
9911 #
9912 proc is_certain {desc anc} {
9913 global arcnos arcout arcstart arcend growing problems
9915 set certain {}
9917 # tags on the same arc are certain
9919 return 1
9920 }
9925 }
9926 }
9929 } else {
9932 }
9934 return 1
9935 }
9938 set nnh 1
9939 set ngrowanc 0
9943 incr nnh -1
9944 }
9950 incr ngrowanc
9951 }
9952 } else {
9959 incr nnh -1
9960 }
9962 incr ngrowanc -1
9963 }
9973 incr nnh -1
9974 }
9976 incr ngrowanc -1
9977 }
9979 }
9980 }
9981 }
9982 }
9983 }
9984 }
9988 } else {
9991 incr nnh
9992 }
9993 }
9994 }
9995 }
9996 foreach x [array names growanc] {
9998 return 0
9999 }
10000 return 0
10001 }
10002 return 1
10003 }
10005 proc validate_arctags {a} {
10006 global arctags idtags
10008 set i -1
10011 incr i
10014 incr i -1
10015 }
10016 }
10018 }
10020 proc validate_archeads {a} {
10021 global archeads idheads
10023 set i -1
10026 incr i
10029 incr i -1
10030 }
10031 }
10033 }
10035 # Return the list of IDs that have tags that are descendents of id,
10036 # ignoring IDs that are descendents of IDs already reported.
10037 proc desctags {id} {
10038 global arcnos arcstart arcids arctags idtags allparents
10039 global growing cached_dtags
10042 return {}
10043 }
10044 set t1 [clock clicks -milliseconds]
10047 # part-way along an arc; check that arc first
10052 set tid {}
10057 }
10060 }
10061 }
10065 }
10066 }
10069 }
10074 set nc 1
10080 incr nc -1
10081 }
10082 # ignore tags on starting node
10086 set ta 1
10089 set ta 1
10090 }
10091 }
10098 }
10099 }
10108 }
10111 }
10113 incr nc -1
10114 }
10116 }
10117 }
10118 }
10123 incr nc
10124 }
10125 }
10126 }
10127 }
10128 set tags {}
10129 foreach id [array names tagloc] {
10134 }
10135 }
10136 }
10137 }
10138 set t2 [clock clicks -milliseconds]
10141 # remove tags that are descendents of other tags
10149 incr j -1
10150 incr i -1
10153 incr i -1
10154 break
10155 }
10156 }
10157 }
10159 if {[array names growing] ne {}} {
10160 # graph isn't finished, need to check if any tag could get
10161 # eclipsed by another tag coming later. Simply ignore any
10162 # tags that could later get eclipsed.
10163 set ctags {}
10167 }
10168 }
10171 } else {
10173 }
10174 } else {
10176 }
10177 set t3 [clock clicks -milliseconds]
10181 }
10183 }
10185 proc anctags {id} {
10186 global arcnos arcids arcout arcend arctags idtags allparents
10187 global growing cached_atags
10190 return {}
10191 }
10192 set t1 [clock clicks -milliseconds]
10195 # part-way along an arc; check that arc first
10204 }
10205 }
10206 }
10208 return {}
10209 }
10213 }
10214 }
10217 }
10222 set taglist {}
10223 set nc 1
10229 incr nc -1
10230 }
10231 # ignore tags on starting node
10235 set td 1
10238 set td 1
10239 }
10240 }
10246 }
10247 }
10259 }
10260 }
10263 }
10265 incr nc -1
10266 }
10268 }
10269 }
10270 }
10275 incr nc
10276 }
10277 }
10278 }
10279 }
10280 set t2 [clock clicks -milliseconds]
10282 set tags {}
10283 foreach id [array names tagloc] {
10288 }
10289 }
10290 }
10291 }
10293 # remove tags that are ancestors of other tags
10301 incr j -1
10302 incr i -1
10305 incr i -1
10306 break
10307 }
10308 }
10309 }
10311 if {[array names growing] ne {}} {
10312 # graph isn't finished, need to check if any tag could get
10313 # eclipsed by another tag coming later. Simply ignore any
10314 # tags that could later get eclipsed.
10315 set ctags {}
10319 }
10320 }
10323 } else {
10325 }
10326 } else {
10328 }
10329 set t3 [clock clicks -milliseconds]
10333 }
10335 }
10337 # Return the list of IDs that have heads that are descendents of id,
10338 # including id itself if it has a head.
10339 proc descheads {id} {
10340 global arcnos arcstart arcids archeads idheads cached_dheads
10341 global allparents
10344 return {}
10345 }
10346 set aret {}
10348 # part-way along an arc; check it first
10357 }
10358 }
10360 }
10364 set ret {}
10369 } else {
10372 }
10378 }
10379 }
10384 }
10385 }
10386 }
10387 }
10391 }
10393 proc addedtag {id} {
10394 global arcnos arcout cached_dtags cached_atags
10399 }
10400 catch {unset cached_dtags}
10401 catch {unset cached_atags}
10402 }
10404 proc addedhead {hid head} {
10405 global arcnos arcout cached_dheads
10410 }
10411 catch {unset cached_dheads}
10412 }
10414 proc removedhead {hid head} {
10415 global cached_dheads
10417 catch {unset cached_dheads}
10418 }
10420 proc movedhead {hid head} {
10421 global arcnos arcout cached_dheads
10426 }
10427 catch {unset cached_dheads}
10428 }
10430 proc changedrefs {} {
10431 global cached_dheads cached_dtags cached_atags
10432 global arctags archeads arcnos arcout idheads idtags
10434 foreach id [concat [array names idheads] [array names idtags]] {
10440 }
10441 }
10442 }
10443 catch {unset cached_dtags}
10444 catch {unset cached_atags}
10445 catch {unset cached_dheads}
10446 }
10448 proc rereadrefs {} {
10449 global idtags idheads idotherrefs mainheadid
10451 set refids [concat [array names idtags] \
10452 [array names idheads] [array names idotherrefs]]
10456 }
10457 }
10459 readrefs
10460 changedrefs
10462 [array names idheads] [array names idotherrefs]]]
10467 }
10468 }
10472 }
10473 run refill_reflist
10474 }
10476 proc listrefs {id} {
10477 global idtags idheads idotherrefs
10479 set x {}
10482 }
10483 set y {}
10486 }
10487 set z {}
10490 }
10492 }
10494 proc showtag {tag isnew} {
10495 global ctext tagcontents tagids linknum tagobjid
10499 }
10501 clear_ctext
10502 settabs 0
10503 set linknum 0
10505 catch {
10507 }
10508 }
10511 } else {
10513 }
10515 maybe_scroll_ctext 1
10517 init_flist {}
10518 }
10520 proc doquit {} {
10521 global stopped
10522 global gitktmpdir
10524 set stopped 100
10525 savestuff .
10526 destroy .
10528 if {[info exists gitktmpdir]} {
10530 }
10531 }
10533 proc mkfontdisp {font top which} {
10542 }
10544 proc choosefont {font which} {
10545 global fontparam fontlist fonttop fontattr
10546 global prefstop NS
10554 set top .gitkfont
10557 font create sample
10564 set fontlist [lsort [font families]]
10575 -textvariable fontparam(size) \
10576 -validatecommand {string is integer -strict %s}
10578 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10579 -variable fontparam(weight) -onvalue bold -offvalue normal
10581 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10582 -variable fontparam(slant) -onvalue italic -offvalue roman
10586 -background white
10588 -fill black -tags text
10600 trace add variable fontparam write chg_fontparam
10601 } else {
10604 }
10609 }
10610 }
10612 proc centertext {w} {
10614 }
10616 proc fontok {} {
10617 global fontparam fontpref prefstop
10623 }
10626 }
10630 fontcan
10631 }
10633 proc fontcan {} {
10634 global fonttop fontparam
10636 if {[info exists fonttop]} {
10638 catch {font delete sample}
10639 unset fonttop
10640 unset fontparam
10641 }
10642 }
10644 if {[package vsatisfies [package provide Tk] 8.6]} {
10645 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10646 # function to make use of it.
10647 proc choosefont {font which} {
10650 tk fontchooser show
10651 }
10652 proc on_choosefont {font which newfont} {
10653 global fontparam
10662 fontok
10663 }
10664 }
10666 proc selfontfam {} {
10667 global fonttop fontparam
10672 }
10673 }
10675 proc chg_fontparam {v sub op} {
10676 global fontparam
10679 }
10681 proc doprefs {} {
10682 global maxwidth maxgraphpct use_ttk NS
10683 global oldprefs prefstop showneartags showlocalchanges
10684 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10685 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10686 global hideremotes want_ttk have_ttk
10688 set top .gitkprefs
10692 return
10693 }
10694 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10695 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10697 }
10711 -variable showlocalchanges
10714 -variable autoselect
10717 -variable hideremotes
10726 -variable showneartags
10729 -variable limitdiffs
10732 -variable perfile_attrs
10746 -text [mc "Use themed widgets"]
10749 } else {
10751 }
10781 [mc "diff hunk header"] \
10787 [mc "marked line background"] \
10812 }
10814 proc choose_extdiff {} {
10815 global extdifftool
10817 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10820 }
10821 }
10823 proc choosecolor {v vi w x cmd} {
10832 }
10834 proc setselbg {c} {
10835 global bglist cflist
10838 }
10842 }
10844 # This sets the background color and the color scheme for the whole UI.
10845 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10846 # if we don't specify one ourselves, which makes the checkbuttons and
10847 # radiobuttons look bad. This chooses white for selectColor if the
10848 # background color is light, or black if it is dark.
10849 proc setui {c} {
10850 if {[tk windowingsystem] eq "win32"} { return }
10852 set selc black
10854 set selc white
10855 }
10857 }
10859 proc setbg {c} {
10860 global bglist
10864 }
10865 }
10867 proc setfg {c} {
10868 global fglist canv
10872 }
10876 }
10878 proc prefscan {} {
10879 global oldprefs prefstop
10881 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10882 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10885 }
10887 unset prefstop
10888 fontcan
10889 }
10891 proc prefsok {} {
10892 global maxwidth maxgraphpct
10893 global oldprefs prefstop showneartags showlocalchanges
10894 global fontpref mainfont textfont uifont
10895 global limitdiffs treediffs perfile_attrs
10896 global hideremotes
10899 unset prefstop
10900 fontcan
10901 set fontchanged 0
10905 eval font configure mainfont [fontflags mainfont]
10906 eval font configure mainfontbold [fontflags mainfont 1]
10907 setcoords
10908 set fontchanged 1
10909 }
10913 eval font configure textfont [fontflags textfont]
10914 eval font configure textfontbold [fontflags textfont 1]
10915 }
10919 eval font configure uifont [fontflags uifont]
10920 }
10921 settabs
10924 doshowlocalchanges
10925 } else {
10926 dohidelocalchanges
10927 }
10928 }
10931 # treediffs elements are limited by path;
10932 # won't have encodings cached if perfile_attrs was just turned on
10933 catch {unset treediffs}
10934 }
10937 redisplay
10940 reselectline
10941 }
10943 rereadrefs
10944 }
10945 }
10947 proc formatdate {d} {
10948 global datetimeformat
10951 }
10953 }
10955 # This list of encoding names and aliases is distilled from
10956 # http://www.iana.org/assignments/character-sets.
10957 # Not all of them are supported by Tcl.
10958 set encoding_aliases {
10959 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10960 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10961 { ISO-10646-UTF-1 csISO10646UTF1 }
10962 { ISO_646.basic:1983 ref csISO646basic1983 }
10963 { INVARIANT csINVARIANT }
10964 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10965 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10966 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10967 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10968 { NATS-DANO iso-ir-9-1 csNATSDANO }
10969 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10970 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10971 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10972 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10973 { ISO-2022-KR csISO2022KR }
10974 { EUC-KR csEUCKR }
10975 { ISO-2022-JP csISO2022JP }
10976 { ISO-2022-JP-2 csISO2022JP2 }
10977 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10978 csISO13JISC6220jp }
10979 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10980 { IT iso-ir-15 ISO646-IT csISO15Italian }
10981 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10982 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10983 { greek7-old iso-ir-18 csISO18Greek7Old }
10984 { latin-greek iso-ir-19 csISO19LatinGreek }
10985 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10986 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10987 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10988 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10989 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10990 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10991 { INIS iso-ir-49 csISO49INIS }
10992 { INIS-8 iso-ir-50 csISO50INIS8 }
10993 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10994 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10995 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10996 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10997 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10998 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10999 csISO60Norwegian1 }
11000 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11001 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11002 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11003 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11004 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11005 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11006 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11007 { greek7 iso-ir-88 csISO88Greek7 }
11008 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11009 { iso-ir-90 csISO90 }
11010 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11011 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11012 csISO92JISC62991984b }
11013 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11014 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11015 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11016 csISO95JIS62291984handadd }
11017 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11018 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11019 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11020 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11021 CP819 csISOLatin1 }
11022 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11023 { T.61-7bit iso-ir-102 csISO102T617bit }
11024 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11025 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11026 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11027 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11028 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11029 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11030 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11031 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11032 arabic csISOLatinArabic }
11033 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11034 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11035 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11036 greek greek8 csISOLatinGreek }
11037 { T.101-G2 iso-ir-128 csISO128T101G2 }
11038 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11039 csISOLatinHebrew }
11040 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11041 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11042 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11043 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11044 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11045 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11046 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11047 csISOLatinCyrillic }
11048 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11049 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11050 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11051 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11052 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11053 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11054 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11055 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11056 { ISO_10367-box iso-ir-155 csISO10367Box }
11057 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11058 { latin-lap lap iso-ir-158 csISO158Lap }
11059 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11060 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11061 { us-dk csUSDK }
11062 { dk-us csDKUS }
11063 { JIS_X0201 X0201 csHalfWidthKatakana }
11064 { KSC5636 ISO646-KR csKSC5636 }
11065 { ISO-10646-UCS-2 csUnicode }
11066 { ISO-10646-UCS-4 csUCS4 }
11067 { DEC-MCS dec csDECMCS }
11068 { hp-roman8 roman8 r8 csHPRoman8 }
11069 { macintosh mac csMacintosh }
11070 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11071 csIBM037 }
11072 { IBM038 EBCDIC-INT cp038 csIBM038 }
11073 { IBM273 CP273 csIBM273 }
11074 { IBM274 EBCDIC-BE CP274 csIBM274 }
11075 { IBM275 EBCDIC-BR cp275 csIBM275 }
11076 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11077 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11078 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11079 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11080 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11081 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11082 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11083 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11084 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11085 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11086 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11087 { IBM437 cp437 437 csPC8CodePage437 }
11088 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11089 { IBM775 cp775 csPC775Baltic }
11090 { IBM850 cp850 850 csPC850Multilingual }
11091 { IBM851 cp851 851 csIBM851 }
11092 { IBM852 cp852 852 csPCp852 }
11093 { IBM855 cp855 855 csIBM855 }
11094 { IBM857 cp857 857 csIBM857 }
11095 { IBM860 cp860 860 csIBM860 }
11096 { IBM861 cp861 861 cp-is csIBM861 }
11097 { IBM862 cp862 862 csPC862LatinHebrew }
11098 { IBM863 cp863 863 csIBM863 }
11099 { IBM864 cp864 csIBM864 }
11100 { IBM865 cp865 865 csIBM865 }
11101 { IBM866 cp866 866 csIBM866 }
11102 { IBM868 CP868 cp-ar csIBM868 }
11103 { IBM869 cp869 869 cp-gr csIBM869 }
11104 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11105 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11106 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11107 { IBM891 cp891 csIBM891 }
11108 { IBM903 cp903 csIBM903 }
11109 { IBM904 cp904 904 csIBBM904 }
11110 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11111 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11112 { IBM1026 CP1026 csIBM1026 }
11113 { EBCDIC-AT-DE csIBMEBCDICATDE }
11114 { EBCDIC-AT-DE-A csEBCDICATDEA }
11115 { EBCDIC-CA-FR csEBCDICCAFR }
11116 { EBCDIC-DK-NO csEBCDICDKNO }
11117 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11118 { EBCDIC-FI-SE csEBCDICFISE }
11119 { EBCDIC-FI-SE-A csEBCDICFISEA }
11120 { EBCDIC-FR csEBCDICFR }
11121 { EBCDIC-IT csEBCDICIT }
11122 { EBCDIC-PT csEBCDICPT }
11123 { EBCDIC-ES csEBCDICES }
11124 { EBCDIC-ES-A csEBCDICESA }
11125 { EBCDIC-ES-S csEBCDICESS }
11126 { EBCDIC-UK csEBCDICUK }
11127 { EBCDIC-US csEBCDICUS }
11128 { UNKNOWN-8BIT csUnknown8BiT }
11129 { MNEMONIC csMnemonic }
11130 { MNEM csMnem }
11131 { VISCII csVISCII }
11132 { VIQR csVIQR }
11133 { KOI8-R csKOI8R }
11134 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11135 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11136 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11137 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11138 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11139 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11140 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11141 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11142 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11143 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11144 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11145 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11146 { IBM1047 IBM-1047 }
11147 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11148 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11149 { UNICODE-1-1 csUnicode11 }
11150 { CESU-8 csCESU-8 }
11151 { BOCU-1 csBOCU-1 }
11152 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11153 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11154 l8 }
11155 { ISO-8859-15 ISO_8859-15 Latin-9 }
11156 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11157 { GBK CP936 MS936 windows-936 }
11158 { JIS_Encoding csJISEncoding }
11159 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11160 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11161 EUC-JP }
11162 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11163 { ISO-10646-UCS-Basic csUnicodeASCII }
11164 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11165 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11166 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11167 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11168 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11169 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11170 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11171 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11172 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11173 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11174 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11175 { Ventura-US csVenturaUS }
11176 { Ventura-International csVenturaInternational }
11177 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11178 { PC8-Turkish csPC8Turkish }
11179 { IBM-Symbols csIBMSymbols }
11180 { IBM-Thai csIBMThai }
11181 { HP-Legal csHPLegal }
11182 { HP-Pi-font csHPPiFont }
11183 { HP-Math8 csHPMath8 }
11184 { Adobe-Symbol-Encoding csHPPSMath }
11185 { HP-DeskTop csHPDesktop }
11186 { Ventura-Math csVenturaMath }
11187 { Microsoft-Publishing csMicrosoftPublishing }
11188 { Windows-31J csWindows31J }
11189 { GB2312 csGB2312 }
11190 { Big5 csBig5 }
11191 }
11193 proc tcl_encoding {enc} {
11194 global encoding_aliases tcl_encoding_cache
11197 }
11198 set names [encoding names]
11203 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11206 }
11207 }
11212 # look through the aliases for one that tcl knows about
11218 }
11219 }
11221 }
11222 break
11223 }
11224 }
11225 set tclenc {}
11228 }
11231 }
11233 proc gitattr {path attr default} {
11234 global path_attr_cache
11237 } else {
11238 set r "unspecified"
11241 }
11243 }
11246 }
11248 }
11250 proc cache_gitattr {attr pathlist} {
11251 global path_attr_cache
11252 set newlist {}
11256 }
11257 }
11258 set lim 1000
11259 if {[tk windowingsystem] == "win32"} {
11260 # windows has a 32k limit on the arguments to a command...
11261 set lim 30
11262 }
11271 }
11273 }
11274 }
11275 }
11276 }
11277 }
11279 proc get_path_encoding {path} {
11280 global gui_encoding perfile_attrs
11286 }
11287 }
11289 }
11291 # First check that Tcl/Tk is recent enough
11292 if {[catch {package require Tk 8.4} err]} {
11293 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11294 Gitk requires at least Tcl/Tk 8.4." list
11295 exit 1
11296 }
11298 # defaults...
11299 set wrcomcmd "git diff-tree --stdin -p --pretty"
11301 set gitencoding {}
11302 catch {
11303 set gitencoding [exec git config --get i18n.commitencoding]
11304 }
11305 catch {
11306 set gitencoding [exec git config --get i18n.logoutputencoding]
11307 }
11309 set gitencoding "utf-8"
11310 }
11314 }
11316 set gui_encoding [encoding system]
11317 catch {
11318 set enc [exec git config --get gui.encoding]
11323 } else {
11325 }
11326 }
11327 }
11329 if {[tk windowingsystem] eq "aqua"} {
11330 set mainfont {{Lucida Grande} 9}
11331 set textfont {Monaco 9}
11332 set uifont {{Lucida Grande} 9 bold}
11333 } else {
11334 set mainfont {Helvetica 9}
11335 set textfont {Courier 9}
11336 set uifont {Helvetica 9 bold}
11337 }
11338 set tabstop 8
11339 set findmergefiles 0
11340 set maxgraphpct 50
11341 set maxwidth 16
11342 set revlistorder 0
11343 set fastdate 0
11344 set uparrowlen 5
11345 set downarrowlen 5
11346 set mingaplen 100
11347 set cmitmode "patch"
11348 set wrapcomment "none"
11349 set showneartags 1
11350 set hideremotes 0
11351 set maxrefs 20
11352 set maxlinelen 200
11353 set showlocalchanges 1
11354 set limitdiffs 1
11355 set datetimeformat "%Y-%m-%d %H:%M:%S"
11356 set autoselect 1
11357 set perfile_attrs 0
11358 set want_ttk 1
11360 if {[tk windowingsystem] eq "aqua"} {
11361 set extdifftool "opendiff"
11362 } else {
11363 set extdifftool "meld"
11364 }
11366 set colors {green red blue magenta darkgrey brown orange}
11367 if {[tk windowingsystem] eq "win32"} {
11368 set uicolor SystemButtonFace
11369 set bgcolor SystemWindow
11370 set fgcolor SystemButtonText
11371 set selectbgcolor SystemHighlight
11372 } else {
11373 set uicolor grey85
11374 set bgcolor white
11375 set fgcolor black
11376 set selectbgcolor gray85
11377 }
11378 set diffcolors {red "#00a000" blue}
11379 set diffcontext 3
11380 set ignorespace 0
11381 set markbgcolor "#e0e0ff"
11383 set circlecolors {white blue gray blue blue}
11385 # button for popping up context menus
11386 if {[tk windowingsystem] eq "aqua"} {
11387 set ctxbut <Button-2>
11388 } else {
11389 set ctxbut <Button-3>
11390 }
11392 ## For msgcat loading, first locate the installation location.
11393 if { [info exists ::env(GITK_MSGSDIR)] } {
11394 ## Msgsdir was manually set in the environment.
11395 set gitk_msgsdir $::env(GITK_MSGSDIR)
11396 } else {
11397 ## Let's guess the prefix from argv0.
11401 unset gitk_prefix
11402 }
11404 ## Internationalization (i18n) through msgcat and gettext. See
11405 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11406 package require msgcat
11407 namespace import ::msgcat::mc
11408 ## And eventually load the actual message catalog
11411 catch {source ~/.gitk}
11414 eval font create mainfont [fontflags mainfont]
11415 eval font create mainfontbold [fontflags mainfont 1]
11418 eval font create textfont [fontflags textfont]
11419 eval font create textfontbold [fontflags textfont 1]
11422 eval font create uifont [fontflags uifont]
11426 setoptions
11428 # check that we can find a .git directory somewhere...
11429 if {[catch {set gitdir [gitdir]}]} {
11430 show_error {} . [mc "Cannot find a git repository here."]
11431 exit 1
11432 }
11435 exit 1
11436 }
11438 set selecthead {}
11439 set selectheadid {}
11441 set revtreeargs {}
11442 set cmdline_files {}
11443 set i 0
11444 set revtreeargscmd {}
11447 "" { }
11448 "--" {
11450 break
11451 }
11452 "--select-commit=*" {
11454 }
11455 "--argscmd=*" {
11457 }
11458 default {
11460 }
11461 }
11462 incr i
11463 }
11466 set selecthead {}
11467 }
11470 # no -- on command line, but some arguments (other than --argscmd)
11471 if {[catch {
11476 # Unfortunately git rev-parse doesn't produce an error when
11477 # something is both a revision and a filename. To be consistent
11478 # with git log and git rev-list, check revtreeargs for filenames.
11481 show_error {} . [mc "Ambiguous argument '%s': both revision\
11483 exit 1
11484 }
11485 }
11486 } err]} {
11488 # so look for "fatal:".
11492 }
11494 exit 1
11495 }
11496 }
11498 set nullid "0000000000000000000000000000000000000000"
11499 set nullid2 "0000000000000000000000000000000000000001"
11500 set nullfile "/dev/null"
11503 if {![info exists have_ttk]} {
11504 set have_ttk [llength [info commands ::ttk::style]]
11505 }
11509 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11511 set runq {}
11512 set history {}
11513 set historyindex 0
11514 set fh_serial 0
11515 set nhl_names {}
11516 set highlight_paths {}
11517 set findpattern {}
11518 set searchdirn -forwards
11519 set boldids {}
11520 set boldnameids {}
11521 set diffelide {0 0}
11522 set markingmatches 0
11523 set linkentercount 0
11524 set need_redisplay 0
11525 set nrows_drawn 0
11526 set firsttabstop 0
11528 set nextviewnum 1
11529 set curview 0
11530 set selectedview 0
11531 set selectedhlview [mc "None"]
11532 set highlight_related [mc "None"]
11533 set highlight_files {}
11534 set viewfiles(0) {}
11535 set viewperm(0) 0
11536 set viewargs(0) {}
11537 set viewargscmd(0) {}
11539 set selectedline {}
11540 set numcommits 0
11541 set loginstance 0
11542 set cmdlineok 0
11543 set stopped 0
11544 set stuffsaved 0
11545 set patchnum 0
11546 set lserial 0
11547 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11548 setcoords
11549 makewindow
11550 catch {
11551 image create photo gitlogo -width 16 -height 16
11553 image create photo gitlogominus -width 4 -height 2
11554 gitlogominus put #C00000 -to 0 0 4 2
11555 gitlogo copy gitlogominus -to 1 5
11556 gitlogo copy gitlogominus -to 6 5
11557 gitlogo copy gitlogominus -to 11 5
11558 image delete gitlogominus
11560 image create photo gitlogoplus -width 4 -height 4
11561 gitlogoplus put #008000 -to 1 0 3 4
11562 gitlogoplus put #008000 -to 0 1 4 3
11563 gitlogo copy gitlogoplus -to 1 9
11564 gitlogo copy gitlogoplus -to 6 9
11565 gitlogo copy gitlogoplus -to 11 9
11566 image delete gitlogoplus
11568 image create photo gitlogo32 -width 32 -height 32
11569 gitlogo32 copy gitlogo -zoom 2 2
11571 wm iconphoto . -default gitlogo gitlogo32
11572 }
11573 # wait for the window to become visible
11574 tkwait visibility .
11576 update
11577 readrefs
11580 # create a view for the files/dirs specified on the command line
11581 set curview 1
11582 set selectedview 1
11583 set nextviewnum 2
11584 set viewname(1) [mc "Command line"]
11588 set viewperm(1) 0
11589 set vdatemode(1) 0
11590 addviewmenu 1
11591 .bar.view entryconf [mca "Edit view..."] -state normal
11592 .bar.view entryconf [mca "Delete view"] -state normal
11593 }
11595 if {[info exists permviews]} {
11598 incr nextviewnum
11605 }
11606 }
11608 if {[tk windowingsystem] eq "win32"} {
11609 focus -force .
11610 }
11612 getcommits {}
11614 # Local variables:
11615 # mode: tcl
11616 # indent-tabs-mode: t
11617 # tab-width: 8
11618 # End: