| blob | 48cfce3a0e7cbe0148a4db3776008945e4b064b9 |
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 uifont startupFile
1881 option add *Labelframe.font uifont startupFile
1882 }
1884 # Make a menu and submenus.
1885 # m is the window name for the menu, items is the list of menu items to add.
1886 # Each item is a list {mc label type description options...}
1887 # mc is ignored; it's so we can put mc there to alert xgettext
1888 # label is the string that appears in the menu
1889 # type is cascade, command or radiobutton (should add checkbutton)
1890 # description depends on type; it's the sublist for cascade, the
1891 # command to invoke for command, or {variable value} for radiobutton
1893 menu $m
1895 set Meta1 Cmd
1897 set Meta1 Ctrl
1898 }
1909 }
1910 }
1915 }
1918 }
1922 }
1923 }
1929 }
1930 }
1931 }
1933 # translate string and remove ampersands
1936 }
1939 global use_ttk
1945 }
1950 }
1952 }
1954 proc makewindow {} {
1955 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1956 global tabstop
1957 global findtype findtypemenu findloc findstring fstring geometry
1958 global entries sha1entry sha1string sha1but
1959 global diffcontextstring diffcontext
1960 global ignorespace
1961 global maincursor textcursor curtextcursor
1962 global rowctxmenu fakerowmenu mergemax wrapcomment
1963 global highlight_files gdttype
1964 global searchstring sstring
1965 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1966 global headctxmenu progresscanv progressitem progresscoords statusw
1967 global fprogitem fprogcoord lastprogupdate progupdatepending
1968 global rprogitem rprogcoord rownumsel numcommits
1969 global have_tk85 use_ttk NS
1971 # The "mc" arguments here are purely so that xgettext
1972 # sees the following string as needing to be translated
1983 }}
1987 }}
1995 }}
2001 }}
2011 }}
2015 }}
2017 }
2018 makemenu .bar $bar
2019 . configure -menu .bar
2022 # cover the non-themed toplevel with a themed frame.
2024 }
2026 # the gui has upper and lower half, parts of a paned window.
2029 # possibly use assumed geometry
2037 }
2039 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2045 }
2047 # create three canvases
2048 set cscroll .tf.histframe.csb
2049 set canv .tf.histframe.pwclist.canv
2050 canvas $canv \
2054 .tf.histframe.pwclist add $canv
2055 set canv2 .tf.histframe.pwclist.canv2
2056 canvas $canv2 \
2059 .tf.histframe.pwclist add $canv2
2060 set canv3 .tf.histframe.pwclist.canv3
2061 canvas $canv3 \
2064 .tf.histframe.pwclist add $canv3
2070 }
2074 }
2076 # a scroll bar to rule them
2081 lappend bglist $canv $canv2 $canv3
2084 # we have two button bars at bottom of top frame. Bar 1
2088 set sha1entry .tf.bar.sha1
2090 set sha1but .tf.bar.sha1label
2094 pack .tf.bar.sha1label -side left
2096 trace add variable sha1string write sha1change
2100 #define left_width 16
2101 #define left_height 16
2102 static unsigned char left_bits[] = {
2106 }
2108 #define right_width 16
2109 #define right_height 16
2110 static unsigned char right_bits[] = {
2114 }
2129 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2130 -side left
2133 }
2134 global selectedline
2135 trace add variable selectedline write selectedline_change
2137 # Status label and progress bar
2138 set statusw .tf.bar.status
2145 set progresscanv .tf.bar.progress
2150 }
2159 # build up the bottom bar of upper window
2164 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2171 trace add variable gdttype write gdttype_change
2175 set fstring .tf.lbar.findstring
2176 lappend entries $fstring
2178 trace add variable findstring write find_change
2182 trace add variable findtype write findcom_change
2186 trace add variable findloc write find_change
2187 pack .tf.lbar.findloc -side right
2188 pack .tf.lbar.findtype -side right
2191 # Finish putting the upper half of the viewer together
2195 .ctop add .tf
2199 }
2201 # now build up the bottom
2204 # lower left, a text box over search bar, scroll bar to the right
2205 # if we know window height, then that will set the lower text height, otherwise
2206 # we set lower text height which will drive window height
2211 }
2218 set sstring .bleft.top.sstring
2221 lappend entries $sstring
2222 trace add variable searchstring write incrsearch
2235 -textvariable diffcontextstring
2237 trace add variable diffcontextstring write diffcontextchange
2238 lappend entries .bleft.mid.diffcontext
2239 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2243 set ctext .bleft.bottom.ctext
2250 }
2256 grid .bleft.bottom.sbhorizontal -sticky ew
2261 lappend bglist $ctext
2262 lappend fglist $ctext
2291 .pwbottom add .bleft
2294 }
2296 # lower right
2305 set cflist .bright.cfiles
2307 text $cflist \
2310 -font mainfont \
2315 lappend bglist $cflist
2316 lappend fglist $cflist
2320 $cflist tag configure highlight \
2324 .pwbottom add .bright
2325 .ctop add .pwbottom
2327 # restore window width & height if known
2332 }
2335 }
2337 }
2338 }
2342 }
2345 set M1B M1
2348 set M1B Control
2350 }
2356 }
2360 }
2361 }
2366 #bindall <B1-Motion> {selcanvline %W %x %y}
2376 allcanvs yview scroll $delta units
2377 }
2381 }
2382 }
2383 }
2405 bindkey p "selnextline -1"
2406 bindkey n "selnextline 1"
2407 bindkey z "goback"
2408 bindkey x "goforw"
2409 bindkey i "selnextline -1"
2410 bindkey k "selnextline 1"
2411 bindkey j "goback"
2412 bindkey l "goforw"
2413 bindkey b prevfile
2420 bindkey f nextfile
2437 wm protocol . WM_DELETE_WINDOW doquit
2446 global ctxbut
2450 set maincursor [. cget -cursor]
2454 set rowctxmenu .rowctxmenu
2456 {mc "Diff this -> selected" command {diffvssel 0}}
2457 {mc "Diff selected -> this" command {diffvssel 1}}
2458 {mc "Make patch" command mkpatch}
2459 {mc "Create tag" command mktag}
2460 {mc "Write commit to file" command writecommit}
2461 {mc "Create new branch" command mkbranch}
2462 {mc "Cherry-pick this commit" command cherrypick}
2463 {mc "Reset HEAD branch to here" command resethead}
2464 {mc "Mark this commit" command markhere}
2465 {mc "Return to mark" command gotomark}
2466 {mc "Find descendant of this and mark" command find_common_desc}
2467 {mc "Compare with marked commit" command compare_commits}
2468 }
2471 set fakerowmenu .fakerowmenu
2473 {mc "Diff this -> selected" command {diffvssel 0}}
2474 {mc "Diff selected -> this" command {diffvssel 1}}
2475 {mc "Make patch" command mkpatch}
2476 }
2479 set headctxmenu .headctxmenu
2481 {mc "Check out this branch" command cobranch}
2482 {mc "Remove this branch" command rmbranch}
2483 }
2486 global flist_menu
2487 set flist_menu .flistctxmenu
2489 {mc "Highlight this too" command {flist_hl 0}}
2490 {mc "Highlight this only" command {flist_hl 1}}
2491 {mc "External diff" command {external_diff}}
2492 {mc "Blame parent commit" command {external_blame 1}}
2493 }
2496 global diff_menu
2497 set diff_menu .diffctxmenu
2499 {mc "Show origin of this line" command show_line_source}
2500 {mc "Run git gui blame on this line" command {external_blame_diff}}
2501 }
2503 }
2505 # Windows sends all mouse wheel events to the current focused window, not
2506 # the one where the mouse hovers, so bind those events here and redirect
2507 # to the correct window
2508 proc windows_mousewheel_redirector {W X Y D} {
2509 global canv canv2 canv3
2515 } else {
2516 catch {
2518 }
2519 }
2520 }
2521 }
2523 # Update row number label when selectedline changes
2524 proc selectedline_change {n1 n2 op} {
2525 global selectedline rownumsel
2528 set rownumsel {}
2529 } else {
2531 }
2532 }
2534 # mouse-2 makes all windows scan vertically, but only the one
2535 # the cursor is in scans horizontally
2536 proc canvscan {op w x y} {
2537 global canv canv2 canv3
2541 } else {
2543 }
2544 }
2545 }
2547 proc scrollcanv {cscroll f0 f1} {
2549 drawvisible
2550 flushhighlights
2551 }
2553 # when we make a key binding for the toplevel, make sure
2554 # it doesn't get triggered when that key is pressed in the
2555 # find string entry widget.
2556 proc bindkey {ev script} {
2557 global entries
2561 set escript [bind Entry <Key>]
2562 }
2565 }
2566 }
2568 # set the focus back to the toplevel for any click outside
2569 # the entry widgets
2570 proc click {w} {
2571 global ctext entries
2574 }
2575 focus .
2576 }
2578 # Adjust the progress bar for a change in requested extent or canvas size
2579 proc adjustprogress {} {
2580 global progresscanv progressitem progresscoords
2581 global fprogitem fprogcoord lastprogupdate progupdatepending
2582 global rprogitem rprogcoord use_ttk
2586 return
2587 }
2596 set now [clock clicks -milliseconds]
2598 set progupdatepending 0
2599 update
2601 set progupdatepending 1
2603 }
2604 }
2606 proc doprogupdate {} {
2607 global lastprogupdate progupdatepending
2610 set progupdatepending 0
2611 set lastprogupdate [clock clicks -milliseconds]
2612 update
2613 }
2614 }
2616 proc savestuff {w} {
2617 global canv canv2 canv3 mainfont textfont uifont tabstop
2618 global stuffsaved findmergefiles maxgraphpct
2619 global maxwidth showneartags showlocalchanges
2620 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2621 global cmitmode wrapcomment datetimeformat limitdiffs
2622 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2623 global autoselect extdifftool perfile_attrs markbgcolor use_ttk
2624 global hideremotes want_ttk
2627 if {![winfo viewable .]} return
2628 catch {
2629 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2630 set f [open "~/.gitk-new" w]
2631 if {$::tcl_platform(platform) eq {windows}} {
2632 file attributes "~/.gitk-new" -hidden true
2633 }
2668 } else {
2671 }
2679 }
2680 }
2683 file rename -force "~/.gitk-new" "~/.gitk"
2684 }
2685 set stuffsaved 1
2686 }
2688 proc resizeclistpanes {win w} {
2689 global oldwidth use_ttk
2694 } else {
2697 }
2701 } else {
2706 set sash0 30
2707 }
2710 }
2715 }
2716 }
2717 }
2721 } else {
2724 }
2725 }
2727 }
2729 proc resizecdetpanes {win w} {
2730 global oldwidth use_ttk
2734 } else {
2736 }
2739 } else {
2743 set sash0 45
2744 }
2747 }
2748 }
2751 } else {
2753 }
2754 }
2756 }
2758 proc allcanvs args {
2759 global canv canv2 canv3
2763 }
2765 proc bindall {event action} {
2766 global canv canv2 canv3
2770 }
2772 proc about {} {
2773 global uifont NS
2774 set w .about
2777 return
2778 }
2783 Gitk - a commit viewer for git
2785 Copyright \u00a9 2005-2009 Paul Mackerras
2787 Use and redistribute under the terms of the GNU General Public License"] \
2788 -justify center -aspect 400 -border 2 -bg white -relief groove
2796 }
2798 proc keys {} {
2799 global NS
2800 set w .keys
2803 return
2804 }
2805 if {[tk windowingsystem] eq {aqua}} {
2806 set M1T Cmd
2807 } else {
2808 set M1T Ctrl
2809 }
2814 [mc "Gitk key bindings:"]
2817 [mc "<Home> Move to first commit"]
2818 [mc "<End> Move to last commit"]
2819 [mc "<Up>, p, i Move up one commit"]
2820 [mc "<Down>, n, k Move down one commit"]
2821 [mc "<Left>, z, j Go back in history list"]
2822 [mc "<Right>, x, l Go forward in history list"]
2823 [mc "<PageUp> Move up one page in commit list"]
2824 [mc "<PageDown> Move down one page in commit list"]
2831 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2832 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2833 [mc "<Delete>, b Scroll diff view up one page"]
2834 [mc "<Backspace> Scroll diff view up one page"]
2835 [mc "<Space> Scroll diff view down one page"]
2836 [mc "u Scroll diff view up 18 lines"]
2837 [mc "d Scroll diff view down 18 lines"]
2840 [mc "<Return> Move to next find hit"]
2841 [mc "/ Focus the search box"]
2842 [mc "? Move to previous find hit"]
2843 [mc "f Scroll diff view to next file"]
2850 [mc "<F5> Update"]
2851 " \
2852 -justify left -bg white -border 2 -relief groove
2860 }
2862 # Procedures for manipulating the file list window at the
2863 # bottom right of the overall window.
2865 proc treeview {w l openlevs} {
2866 global treecontents treediropen treeheight treeparent treeindex
2868 set ix 0
2869 set treeindex() 0
2870 set lev 0
2871 set prefix {}
2872 set prefixend -1
2873 set prefendstack {}
2874 set htstack {}
2875 set ht 0
2876 set treecontents() {}
2883 }
2890 incr lev -1
2891 }
2895 set ht 0
2907 set ht 1
2912 set str "\n"
2920 }
2921 incr lev
2922 }
2925 incr ht
2926 set str "\n"
2930 }
2932 }
2933 }
2941 }
2943 }
2945 proc linetoelt {l} {
2946 global treeheight treecontents
2948 set y 2
2949 set prefix {}
2950 while {1} {
2954 }
2955 set n 1
2960 incr y
2961 break
2962 }
2963 }
2965 }
2966 }
2967 }
2969 proc highlight_tree {y prefix} {
2970 global treeheight treecontents cflist
2976 }
2977 incr y
2980 }
2981 }
2983 }
2985 proc treeclosedir {w dir} {
2986 global treediropen treeheight treeparent treeindex
2998 }
2999 }
3001 proc treeopendir {w dir} {
3002 global treediropen treeheight treeparent treecontents treeindex
3009 set lev 0
3010 set str "\n"
3013 incr lev
3014 append str "\t"
3016 }
3031 } else {
3034 }
3035 }
3048 }
3050 }
3051 }
3053 proc treeclick {w x y} {
3054 global treediropen cmitmode ctext cflist cflist_top
3057 if {![info exists cflist_top]} return
3064 return
3065 }
3071 } else {
3073 }
3074 }
3076 proc setfilelist {id} {
3077 global treefilelist cflist jump_to_here
3084 }
3085 }
3086 }
3088 image create bitmap tri-rt -background black -foreground blue -data {
3089 #define tri-rt_width 13
3090 #define tri-rt_height 13
3091 static unsigned char tri-rt_bits[] = {
3092 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3093 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3094 0x00, 0x00};
3095 } -maskdata {
3096 #define tri-rt-mask_width 13
3097 #define tri-rt-mask_height 13
3098 static unsigned char tri-rt-mask_bits[] = {
3099 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3100 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3101 0x08, 0x00};
3102 }
3103 image create bitmap tri-dn -background black -foreground blue -data {
3104 #define tri-dn_width 13
3105 #define tri-dn_height 13
3106 static unsigned char tri-dn_bits[] = {
3107 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3108 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3109 0x00, 0x00};
3110 } -maskdata {
3111 #define tri-dn-mask_width 13
3112 #define tri-dn-mask_height 13
3113 static unsigned char tri-dn-mask_bits[] = {
3114 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3115 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3116 0x00, 0x00};
3117 }
3119 image create bitmap reficon-T -background black -foreground yellow -data {
3120 #define tagicon_width 13
3121 #define tagicon_height 9
3122 static unsigned char tagicon_bits[] = {
3123 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3124 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3125 } -maskdata {
3126 #define tagicon-mask_width 13
3127 #define tagicon-mask_height 9
3128 static unsigned char tagicon-mask_bits[] = {
3129 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3130 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3131 }
3132 set rectdata {
3133 #define headicon_width 13
3134 #define headicon_height 9
3135 static unsigned char headicon_bits[] = {
3136 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3137 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3138 }
3139 set rectmask {
3140 #define headicon-mask_width 13
3141 #define headicon-mask_height 9
3142 static unsigned char headicon-mask_bits[] = {
3143 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3144 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3145 }
3146 image create bitmap reficon-H -background black -foreground green \
3148 image create bitmap reficon-o -background black -foreground "#ddddff" \
3151 proc init_flist {first} {
3152 global cflist cflist_top difffilestart
3158 set cflist_top 1
3160 } else {
3161 catch {unset cflist_top}
3162 }
3164 set difffilestart {}
3165 }
3167 proc highlight_tag {f} {
3168 global highlight_paths
3172 return "bold"
3173 }
3174 }
3175 return {}
3176 }
3178 proc highlight_filelist {} {
3179 global cmitmode cflist
3188 }
3189 }
3190 } else {
3191 highlight_tree 2 {}
3192 }
3194 }
3196 proc unhighlight_filelist {} {
3197 global cflist
3202 }
3204 proc add_flist {fl} {
3205 global cflist
3211 }
3213 }
3215 proc sel_flist {w x y} {
3216 global ctext difffilestart cflist cflist_top cmitmode
3219 if {![info exists cflist_top]} return
3226 } else {
3228 }
3229 }
3231 proc pop_flist_menu {w X Y x y} {
3232 global ctext cflist cmitmode flist_menu flist_menu_file
3233 global treediffs diffids
3235 stopfinding
3241 } else {
3243 }
3245 set xdiffstate "normal"
3247 set xdiffstate "disabled"
3248 }
3249 # Disable "External diff" item in tree mode
3252 }
3254 proc find_ctext_fileinfo {line} {
3255 global ctext_file_names ctext_file_lines
3261 return {}
3262 } else {
3264 }
3265 }
3267 proc pop_diff_menu {w X Y x y} {
3268 global ctext diff_menu flist_menu_file
3269 global diff_menu_txtpos diff_menu_line
3270 global diff_menu_filebase
3274 # don't pop up the menu on hunk-separator or file-separator lines
3276 return
3277 }
3278 stopfinding
3284 }
3286 proc flist_hl {only} {
3287 global flist_menu_file findstring gdttype
3292 } else {
3294 }
3295 set gdttype [mc "touching paths:"]
3296 }
3298 proc gitknewtmpdir {} {
3299 global diffnum gitktmpdir gitdir
3301 if {![info exists gitktmpdir]} {
3303 [format ".gitk-tmp.%s" [pid]]]
3306 unset gitktmpdir
3307 return {}
3308 }
3309 set diffnum 0
3310 }
3311 incr diffnum
3315 return {}
3316 }
3318 }
3320 proc save_file_from_commit {filename output what} {
3321 global nullfile
3326 }
3328 return {}
3329 }
3331 }
3333 proc external_diff_get_one_file {diffid filename diffdir} {
3334 global nullid nullid2 nullfile
3335 global gitdir
3341 }
3343 }
3347 }
3351 }
3353 proc external_diff {} {
3354 global nullid nullid2
3355 global flist_menu_file
3356 global diffids
3357 global extdifftool
3360 # no reference commit given
3363 # diffing working copy with index
3366 # diffing index with HEAD
3367 set diffidfrom "HEAD"
3368 } else {
3369 # use first parent commit
3370 global parentlist selectedline
3372 }
3373 } else {
3376 }
3378 # make sure that several diffs wont collide
3379 set diffdir [gitknewtmpdir]
3382 # gather files to diff
3391 } else {
3394 }
3395 }
3396 }
3398 proc find_hunk_blamespec {base line} {
3399 global ctext
3401 # Find and parse the hunk header
3407 s_line old_specs osz osz1 new_line nsz]} {
3408 return
3409 }
3411 # base lines for the parents
3415 old_spec old_line osz]} {
3416 return
3417 }
3419 }
3421 # Now scan the lines to determine offset within the hunk
3423 set dline 0
3426 # Determine if the line is removed
3430 # Choose a parent index
3433 } else {
3437 } else {
3438 # blame the current commit
3439 set parent -1
3440 }
3441 }
3442 # then count other lines that belong to it
3445 # Determine if the line is removed
3450 incr dline
3451 }
3452 } else {
3454 incr dline
3455 }
3456 }
3457 }
3458 incr parent
3459 } else {
3460 set parent 0
3461 }
3465 }
3467 proc external_blame_diff {} {
3468 global currentid cmitmode
3469 global diff_menu_txtpos diff_menu_line
3470 global diff_menu_filebase flist_menu_file
3473 set parent_idx 0
3475 } else {
3480 } else {
3481 set parent_idx 0
3482 set line 0
3483 }
3484 }
3487 }
3490 # at stage 0 or 2
3491 proc index_sha1 {fname} {
3499 }
3500 }
3502 return {}
3503 }
3505 # Turn an absolute path into one relative to the current directory
3506 proc make_relative {f} {
3509 }
3511 set here [file split [pwd]]
3512 set ei 0
3513 set hi 0
3514 set res {}
3517 lappend res ".."
3518 } else {
3519 incr ei
3520 }
3521 incr hi
3522 }
3525 }
3527 proc external_blame {parent_idx {line {}}} {
3528 global flist_menu_file gitdir
3529 global nullid nullid2
3530 global parentlist selectedline currentid
3534 } else {
3536 }
3539 error_popup [mc "No such commit"]
3540 return
3541 }
3543 set cmdline [list git gui blame]
3546 }
3548 # Unfortunately it seems git gui blame doesn't like
3549 # being given an absolute path...
3554 }
3555 }
3557 proc show_line_source {} {
3558 global cmitmode currentid parents curview blamestuff blameinst
3559 global diff_menu_line diff_menu_filebase flist_menu_file
3560 global nullid nullid2 gitdir
3562 set from_index {}
3566 } else {
3572 return
3573 }
3574 incr pi -1
3577 # must be a merge in progress...
3578 if {[catch {
3579 # get the last line from .git/MERGE_HEAD
3583 } err]} {
3585 return
3586 }
3588 # need to do the blame from the index
3589 if {[catch {
3591 } err]} {
3593 return
3594 }
3595 } else {
3597 }
3598 } else {
3600 }
3602 }
3603 set blameargs {}
3606 }
3609 lappend blameargs --contents -
3610 } else {
3612 }
3614 if {[catch {
3616 } err]} {
3618 return
3619 }
3620 nowbusy blaming [mc "Searching"]
3626 }
3628 proc stopblaming {} {
3629 global blameinst
3631 if {[info exists blameinst]} {
3633 unset blameinst
3634 notbusy blaming
3635 }
3636 }
3638 proc read_line_source {fd inst} {
3639 global blamestuff curview commfd blameinst nullid nullid2
3643 }
3645 return 1
3646 }
3648 unset blameinst
3649 notbusy blaming
3653 return 0
3654 }
3656 set fname {}
3662 # look for "filename" line
3666 break
3667 }
3668 }
3669 }
3671 # all looks good, select it
3673 # blame uses all-zeroes to mean not committed,
3674 # which would mean a change in the index
3676 }
3679 } else {
3680 error_popup [mc "That line comes from commit %s, \
3682 }
3683 } else {
3684 puts "oops couldn't parse git blame output"
3685 }
3686 return 0
3687 }
3690 proc delete_at_eof {f dir} {
3695 }
3697 return 0
3698 }
3699 return 1
3700 }
3702 # Functions for adding and removing shell-type quoting
3704 proc shellquote {str} {
3707 }
3710 }
3713 }
3715 }
3717 proc shellarglist {l} {
3718 set str {}
3721 append str " "
3722 }
3724 }
3726 }
3728 proc shelldequote {str} {
3729 set ret {}
3730 set used -1
3731 while {1} {
3732 incr used
3736 break
3737 }
3743 }
3745 incr used
3749 error "unmatched single-quote"
3750 }
3753 continue
3754 }
3757 error "trailing backslash"
3758 }
3760 continue
3761 }
3762 # here ch == "\""
3763 while {1} {
3765 error "unmatched double-quote"
3766 }
3772 }
3774 incr used
3776 incr used
3777 }
3778 }
3780 }
3782 proc shellsplit {str} {
3783 set l {}
3784 while {1} {
3792 }
3794 }
3796 # Code to implement multiple views
3798 proc newview {ishighlight} {
3799 global nextviewnum newviewname newishighlight
3800 global revtreeargs viewargscmd newviewopts curview
3803 set top .gitkview
3806 return
3807 }
3813 }
3815 set known_view_options {
3816 {perm b . {} {mc "Remember this view"}}
3817 {reflabel l + {} {mc "References (space separated list):"}}
3818 {refs t15 .. {} {mc "Branches & tags:"}}
3819 {allrefs b *. "--all" {mc "All refs"}}
3820 {branches b . "--branches" {mc "All (local) branches"}}
3821 {tags b . "--tags" {mc "All tags"}}
3822 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3823 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3824 {author t15 .. "--author=*" {mc "Author:"}}
3825 {committer t15 . "--committer=*" {mc "Committer:"}}
3826 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3827 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3828 {changes_l l + {} {mc "Changes to Files:"}}
3829 {pickaxe_s r0 . {} {mc "Fixed String"}}
3830 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3831 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3832 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3833 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3834 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3835 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3836 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3837 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3838 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3839 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3840 {lright b . "--left-right" {mc "Mark branch sides"}}
3841 {first b . "--first-parent" {mc "Limit to first parent"}}
3842 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3843 {args t50 *. {} {mc "Additional arguments to git log:"}}
3844 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3845 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3846 }
3848 proc encode_view_opts {n} {
3849 global known_view_options newviewopts
3851 set rargs [list]
3861 }
3867 }
3868 } else {
3874 }
3875 }
3876 }
3879 }
3881 proc decode_view_opts {n view_args} {
3882 global known_view_options newviewopts
3887 # Checkboxes
3888 set val 0
3890 # Radiobuttons
3892 set val 0
3893 } else {
3894 # Text fields
3895 set val {}
3896 }
3898 }
3899 set oargs [list]
3900 set refargs [list]
3903 && ![info exists found(limit)]} {
3905 set found(limit) 1
3906 continue
3907 }
3908 catch { unset val }
3915 # Check buttons
3916 set val 1
3918 # Radio buttons
3921 } else {
3922 # Text input fields
3925 }
3928 break
3929 }
3930 if {[info exists val]} break
3931 }
3932 if {[info exists val]} continue
3935 } else {
3937 }
3938 }
3941 }
3943 proc edit_or_newview {} {
3944 global curview
3947 editview
3948 } else {
3949 newview 0
3950 }
3951 }
3953 proc editview {} {
3954 global curview
3955 global viewname viewperm newviewname newviewopts
3956 global viewargs viewargscmd
3961 return
3962 }
3968 }
3970 proc vieweditor {top n title} {
3971 global newviewname newviewopts viewfiles bgcolor
3972 global known_view_options NS
3978 # View name
3986 # View options
3988 set cexpand 0
3989 set cnt 0
3995 set lxpad 0
3999 incr cnt
4005 incr cnt
4009 } else {
4010 set lxpad 5
4011 }
4045 }
4048 }
4050 }
4051 }
4066 }
4068 proc doviewmenu {m first cmd op argv} {
4073 break
4074 }
4075 }
4076 }
4078 proc allviewmenus {n op args} {
4079 # global viewhlmenu
4083 }
4085 proc newviewok {top n {apply 0}} {
4086 global nextviewnum newviewperm newviewname newishighlight
4087 global viewname viewfiles viewperm selectedview curview
4088 global viewargs viewargscmd newviewopts viewhlmenu
4090 if {[catch {
4092 } err]} {
4094 return
4095 }
4096 set files {}
4101 }
4102 }
4104 # creating a new view
4105 incr nextviewnum
4114 } else {
4116 }
4117 } else {
4118 # editing an existing view
4126 }
4133 run reloadcommits
4134 }
4135 }
4136 }
4139 }
4141 proc delview {} {
4142 global curview viewperm hlview selectedhlview
4146 set selectedhlview [mc "None"]
4147 unset hlview
4148 }
4151 showview 0
4152 }
4154 proc addviewmenu {n} {
4155 global viewname viewhlmenu
4161 }
4163 proc showview {n} {
4164 global curview cached_commitrow ordertok
4165 global displayorder parentlist rowidlist rowisopt rowfinal
4166 global colormap rowtextx nextcolor canvxmax
4167 global numcommits viewcomplete
4168 global selectedline currentid canv canvy0
4169 global treediffs
4170 global pending_select mainheadid
4171 global commitidx
4172 global selectedview
4173 global hlview selectedhlview commitinterest
4176 set selid {}
4187 }
4188 } elseif {[info exists pending_select]} {
4190 unset pending_select
4191 }
4192 unselectline
4193 normalline
4194 catch {unset treediffs}
4195 clear_display
4197 unset hlview
4198 set selectedhlview [mc "None"]
4199 }
4200 catch {unset commitinterest}
4201 catch {unset cached_commitrow}
4202 catch {unset ordertok}
4209 run refill_reflist
4212 return
4213 }
4215 set displayorder {}
4216 set parentlist {}
4217 set rowidlist {}
4218 set rowisopt {}
4219 set rowfinal {}
4222 catch {unset colormap}
4223 catch {unset rowtextx}
4224 set nextcolor 0
4227 set row 0
4228 setcanvscroll
4229 set yf 0
4230 set row {}
4233 # try to get the selected row in the same position on the screen
4237 set ytop 0
4238 }
4240 }
4242 drawvisible
4247 } else {
4248 reset_pending_select {}
4252 } else {
4253 set row [first_real_row]
4256 }
4257 }
4258 }
4261 show_status [mc "Reading commits..."]
4262 }
4264 show_status [mc "No commits selected"]
4265 }
4266 }
4268 # Stuff relating to the highlighting facility
4270 proc ishighlighted {id} {
4271 global vhighlights fhighlights nhighlights rhighlights
4275 }
4278 }
4281 }
4284 }
4285 return 0
4286 }
4288 proc bolden {id font} {
4289 global canv linehtag currentid boldids need_redisplay markedid
4291 # need_redisplay = 1 means the display is stale and about to be redrawn
4298 -outline {{}} -tags secsel \
4301 }
4304 }
4305 }
4307 proc bolden_name {id font} {
4308 global canv2 linentag currentid boldnameids need_redisplay
4316 -outline {{}} -tags secsel \
4319 }
4320 }
4322 proc unbolden {} {
4323 global boldids
4325 set stillbold {}
4329 } else {
4331 }
4332 }
4334 }
4336 proc addvhighlight {n} {
4337 global hlview viewcomplete curview vhl_done commitidx
4339 if {[info exists hlview]} {
4340 delvhighlight
4341 }
4345 }
4348 drawvisible
4349 }
4350 }
4352 proc delvhighlight {} {
4353 global hlview vhighlights
4355 if {![info exists hlview]} return
4356 unset hlview
4357 catch {unset vhighlights}
4358 unbolden
4359 }
4361 proc vhighlightmore {} {
4362 global hlview vhl_done commitidx vhighlights curview
4365 set vr [visiblerows]
4375 }
4377 }
4378 }
4379 }
4381 return 0
4382 }
4384 proc askvhighlight {row id} {
4385 global hlview vhighlights iddrawn
4390 }
4392 } else {
4394 }
4395 }
4397 proc hfiles_change {} {
4398 global highlight_files filehighlight fhighlights fh_serial
4399 global highlight_paths
4401 if {[info exists filehighlight]} {
4402 # delete previous highlights
4404 unset filehighlight
4405 catch {unset fhighlights}
4406 unbolden
4407 unhighlight_filelist
4408 }
4409 set highlight_paths {}
4411 incr fh_serial
4414 }
4415 }
4417 proc gdttype_change {name ix op} {
4418 global gdttype highlight_files findstring findpattern
4420 stopfinding
4424 set highlight_files {}
4425 hfiles_change
4426 }
4427 findcom_change
4428 } else {
4430 set findpattern {}
4431 findcom_change
4432 }
4434 hfiles_change
4435 }
4436 drawvisible
4437 }
4438 # enable/disable findtype/findloc menus too
4439 }
4441 proc find_change {name ix op} {
4442 global gdttype findstring highlight_files
4444 stopfinding
4446 findcom_change
4447 } else {
4450 hfiles_change
4451 }
4452 }
4453 drawvisible
4454 }
4456 proc findcom_change args {
4457 global nhighlights boldnameids
4458 global findpattern findtype findstring gdttype
4460 stopfinding
4461 # delete previous highlights, if any
4464 }
4465 set boldnameids {}
4466 catch {unset nhighlights}
4467 unbolden
4468 unmarkmatches
4470 set findpattern {}
4473 } else {
4474 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4477 }
4478 }
4480 proc makepatterns {l} {
4481 set ret {}
4486 } else {
4489 }
4490 }
4492 }
4494 proc do_file_hl {serial} {
4495 global highlight_files filehighlight highlight_paths gdttype fhl_list
4500 highlight_filelist
4504 } else {
4505 # must be "containing:", i.e. we're searching commit info
4506 return
4507 }
4512 set fhl_list {}
4513 drawvisible
4514 flushhighlights
4515 }
4517 proc flushhighlights {} {
4518 global filehighlight fhl_list
4520 if {[info exists filehighlight]} {
4521 lappend fhl_list {}
4524 }
4525 }
4527 proc askfilehighlight {row id} {
4528 global filehighlight fhighlights fhl_list
4533 }
4535 proc readfhighlight {} {
4536 global filehighlight fhighlights curview iddrawn
4537 global fhl_list find_dirn
4539 if {![info exists filehighlight]} {
4540 return 0
4541 }
4542 set nr 0
4550 }
4556 }
4558 }
4560 # strange...
4561 puts "oops, git diff-tree died"
4563 unset filehighlight
4564 return 0
4565 }
4566 if {[info exists find_dirn]} {
4567 run findmore
4568 }
4569 return 1
4570 }
4572 proc doesmatch {f} {
4573 global findtype findpattern
4579 } else {
4581 }
4582 }
4584 proc askfindhighlight {row id} {
4585 global nhighlights commitinfo iddrawn
4586 global findloc
4587 global markingmatches
4591 }
4593 set isbold 0
4594 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4599 set isbold 2
4600 break
4601 }
4602 set isbold 1
4603 }
4604 }
4610 }
4611 }
4614 }
4615 }
4617 }
4619 proc markrowmatches {row id} {
4620 global canv canv2 linehtag linentag commitinfo findloc
4631 }
4632 }
4638 }
4639 }
4640 }
4642 proc vrel_change {name ix op} {
4643 global highlight_related
4645 rhighlight_none
4647 run drawvisible
4648 }
4649 }
4651 # prepare for testing whether commits are descendents or ancestors of a
4652 proc rhighlight_sel {a} {
4653 global descendent desc_todo ancestor anc_todo
4654 global highlight_related
4656 catch {unset descendent}
4658 catch {unset ancestor}
4661 rhighlight_none
4662 run drawvisible
4663 }
4664 }
4666 proc rhighlight_none {} {
4667 global rhighlights
4669 catch {unset rhighlights}
4670 unbolden
4671 }
4673 proc is_descendent {a} {
4674 global curview children descendent desc_todo
4679 set leftover {}
4680 set done 0
4685 continue
4686 }
4692 set done 1
4693 }
4694 }
4695 }
4698 return
4699 }
4700 }
4703 }
4705 proc is_ancestor {a} {
4706 global curview parents ancestor anc_todo
4711 set leftover {}
4712 set done 0
4717 continue
4718 }
4724 set done 1
4725 }
4726 }
4727 }
4730 return
4731 }
4732 }
4735 }
4737 proc askrelhighlight {row id} {
4738 global descendent highlight_related iddrawn rhighlights
4739 global selectedline ancestor
4742 set isbold 0
4747 }
4749 set isbold 1
4750 }
4755 }
4757 set isbold 1
4758 }
4759 }
4763 }
4764 }
4766 }
4768 # Graph layout functions
4770 proc shortids {ids} {
4771 set res {}
4777 } else {
4779 }
4780 }
4782 }
4784 proc ntimes {n o} {
4785 set ret {}
4790 }
4792 }
4794 }
4796 proc ordertoken {id} {
4797 global ordertok curview varcid varcstart varctok curview parents children
4798 global nullid nullid2
4802 }
4804 set todo {}
4805 while {1} {
4809 } else {
4811 }
4814 break
4815 }
4818 # it's a root
4820 break
4821 }
4824 } else {
4828 }
4830 }
4831 }
4836 }
4839 }
4841 # Work out where id should go in idlist so that order-token
4842 # values increase from left to right
4843 proc idcol {idlist id {i 0}} {
4846 set i 0
4847 }
4851 }
4853 incr i
4854 } else {
4858 }
4859 }
4861 }
4863 proc initlayout {} {
4864 global rowidlist rowisopt rowfinal displayorder parentlist
4865 global numcommits canvxmax canv
4866 global nextcolor
4867 global colormap rowtextx
4869 set numcommits 0
4870 set displayorder {}
4871 set parentlist {}
4872 set nextcolor 0
4873 set rowidlist {}
4874 set rowisopt {}
4875 set rowfinal {}
4877 catch {unset colormap}
4878 catch {unset rowtextx}
4879 setcanvscroll
4880 }
4882 proc setcanvscroll {} {
4883 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4884 global lastscrollset lastscrollrows
4890 set lastscrollset [clock clicks -milliseconds]
4892 }
4894 proc visiblerows {} {
4895 global canv numcommits linespc
4903 set r0 0
4904 }
4909 }
4911 }
4913 proc layoutmore {} {
4914 global commitidx viewcomplete curview
4915 global numcommits pending_select curview
4916 global lastscrollset lastscrollrows
4920 setcanvscroll
4921 }
4922 if {[info exists pending_select] &&
4924 update
4926 }
4927 drawvisible
4928 }
4930 # With path limiting, we mightn't get the actual HEAD commit,
4931 # so ask git rev-list what is the first ancestor of HEAD that
4932 # touches a file in the path limit.
4933 proc get_viewmainhead {view} {
4934 global viewmainheadid vfilelimit viewinstances mainheadid
4936 catch {
4944 }
4945 }
4948 proc getviewhead {fd inst view} {
4949 global viewmainheadid commfd curview viewinstances showlocalchanges
4951 set id {}
4954 return 1
4955 }
4958 }
4965 }
4967 doshowlocalchanges
4968 }
4969 return 0
4970 }
4972 proc doshowlocalchanges {} {
4973 global curview viewmainheadid
4977 dodiffindex
4978 } else {
4980 }
4981 }
4983 proc dohidelocalchanges {} {
4984 global nullid nullid2 lserial curview
4988 }
4991 }
4992 incr lserial
4993 }
4995 # spawn off a process to do git diff-index --cached HEAD
4996 proc dodiffindex {} {
4997 global lserial showlocalchanges vfilelimit curview
4998 global isworktree
5001 incr lserial
5002 set cmd "|git diff-index --cached HEAD"
5005 }
5010 }
5012 proc readdiffindex {fd serial inst} {
5013 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5014 global vfilelimit
5016 set isdiff 1
5019 return 1
5020 }
5021 set isdiff 0
5022 }
5023 # we only need to see one line and we don't really care what it says...
5027 return 0
5028 }
5030 # now see if there are any local changes not checked in to the index
5031 set cmd "|git diff-files"
5034 }
5041 # add the line for the changes in the index to the graph
5042 set hl [mc "Local changes checked in to index but not committed"]
5047 }
5052 }
5054 }
5055 return 0
5056 }
5058 proc readdifffiles {fd serial inst} {
5059 global viewmainheadid nullid nullid2 curview
5060 global commitinfo commitdata lserial
5062 set isdiff 1
5065 return 1
5066 }
5067 set isdiff 0
5068 }
5069 # we only need to see one line and we don't really care what it says...
5073 return 0
5074 }
5077 # add the line for the local diff to the graph
5078 set hl [mc "Local uncommitted changes, not checked in to index"]
5083 } else {
5085 }
5089 }
5090 return 0
5091 }
5093 proc nextuse {id row} {
5094 global curview children
5099 return -1
5100 }
5103 }
5104 }
5105 }
5108 }
5109 return -1
5110 }
5112 proc prevuse {id row} {
5113 global curview children
5115 set ret -1
5121 }
5122 }
5123 }
5125 }
5127 proc make_idlist {row} {
5128 global displayorder parentlist uparrowlen downarrowlen mingaplen
5129 global commitidx curview children
5133 set r 0
5134 }
5137 set ra 0
5138 }
5142 }
5144 set ids {}
5153 }
5154 }
5155 }
5163 }
5164 }
5165 }
5173 }
5174 }
5175 incr r
5181 }
5182 }
5183 }
5184 set idlist {}
5187 }
5189 }
5191 proc rowsequal {a b} {
5194 }
5197 }
5199 }
5201 proc makeupline {id row rend col} {
5202 global rowidlist uparrowlen downarrowlen mingaplen
5208 }
5211 }
5218 }
5219 }
5220 }
5222 proc layoutrows {row endrow} {
5223 global rowidlist rowisopt rowfinal displayorder
5224 global uparrowlen downarrowlen maxwidth mingaplen
5225 global children parentlist
5226 global commitidx viewcomplete curview
5229 set idlist {}
5235 }
5236 }
5238 }
5243 set final 1
5244 } else {
5252 # if not the first child, we have to insert a line going up
5255 }
5256 }
5257 }
5267 }
5268 }
5269 }
5276 }
5277 }
5287 }
5288 }
5296 }
5297 }
5298 }
5299 }
5300 }
5304 set final 0
5305 }
5309 lappend rowisopt 0
5315 }
5317 } else {
5324 }
5325 }
5327 }
5329 proc changedrow {row} {
5330 global displayorder iddrawn rowisopt need_redisplay
5339 }
5340 }
5341 }
5344 set need_redisplay 1
5345 }
5346 }
5348 proc insert_pad {row col npad} {
5349 global rowidlist
5358 }
5361 }
5363 proc optimize_rows {row col endrow} {
5364 global rowidlist rowisopt displayorder curview children
5367 set row 1
5368 }
5371 set haspad 0
5380 } else {
5381 set pprevidlist {}
5382 }
5383 set x0 -1
5384 set xm -1
5389 set haspad 1
5390 continue
5391 }
5395 set isarrow 0
5396 set z0 {}
5401 }
5402 }
5407 set isarrow 1
5408 }
5409 }
5412 set isarrow 1
5413 }
5414 # Looking at lines from this row to the previous row,
5415 # make them go straight up if they end in an arrow on
5416 # the previous row; otherwise make them go straight up
5417 # or at 45 degrees.
5419 # Line currently goes left too much;
5420 # insert pads in the previous row, then optimize it
5425 }
5433 }
5435 # Line currently goes right too much;
5436 # insert pads in this line
5442 set haspad 1
5443 }
5450 }
5451 }
5452 # avoid lines jigging left then immediately right
5455 incr x0
5458 }
5459 }
5461 # Find the first column that doesn't have a line going right
5467 # check if this is the link to the first child
5470 # it is, work out offset to child
5472 }
5473 }
5475 }
5476 # Insert a pad at that column as long as it has a line and
5477 # isn't the last column
5482 }
5483 }
5484 }
5485 }
5487 proc xc {row col} {
5488 global canvx0 linespc
5490 }
5492 proc yc {row} {
5493 global canvy0 linespc
5495 }
5497 proc linewidth {id} {
5498 global thickerline lthickness
5503 }
5505 }
5507 proc rowranges {id} {
5508 global curview children uparrowlen downarrowlen
5509 global rowidlist
5513 return {}
5514 }
5515 set ret {}
5520 if {![info exists prev]} {
5522 } else {
5524 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5525 }
5526 # see if the line extends the whole way from prevrow to row
5530 # it doesn't, see where it ends
5535 } else {
5538 incr r -1
5539 }
5541 # see where it starts up again
5546 } else {
5549 incr r
5550 }
5552 }
5553 }
5556 }
5559 }
5561 }
5563 proc drawlineseg {id row endrow arrowlow} {
5564 global rowidlist displayorder iddrawn linesegs
5565 global canv colormap linespc curview maxlinelen parentlist
5569 set arrowhigh 1
5570 while {1} {
5573 incr le -1
5574 break
5575 }
5579 set arrowhigh 0
5580 break
5581 }
5586 set arrowhigh 0
5587 }
5588 break
5589 }
5590 incr le
5591 }
5594 }
5596 set lines {}
5597 set i 0
5598 set joinhigh 0
5605 set joinhigh 1
5606 }
5607 break
5608 }
5609 incr i
5610 }
5611 }
5612 set joinlow 0
5617 set joinlow 1
5618 }
5619 }
5632 }
5633 } else {
5635 }
5643 set arrowlow 0
5644 }
5645 }
5653 }
5655 }
5658 # join parent line to first child
5669 } else {
5671 }
5679 }
5681 }
5683 } else {
5687 }
5695 } else {
5699 }
5701 }
5702 } else {
5708 }
5712 } else {
5713 # coalesce two pieces
5718 }
5722 }
5723 }
5727 }
5729 proc drawparentlinks {id row} {
5730 global rowidlist canv colormap curview parentlist
5731 global idpos linespc
5744 # rmx = right-most X coord used
5745 set rmx 0
5750 continue
5751 }
5755 }
5758 # drawlineseg will do this one for us
5759 continue
5760 }
5762 # should handle duplicated parents here...
5765 # if attaching to a vertical segment, draw a smaller
5766 # slant for visual distinctness
5770 } else {
5772 }
5774 # segment slants towards us already
5776 } else {
5781 }
5783 }
5784 } else {
5786 }
5791 }
5795 }
5796 }
5798 proc drawlines {id} {
5799 global canv
5802 }
5804 proc drawcmittext {id row col} {
5805 global linespc canv canv2 canv3 fgcolor curview
5806 global cmitlisted commitinfo rowidlist parentlist
5807 global rowtextx idpos idtags idheads idotherrefs
5808 global linehtag linentag linedtag selectedline
5809 global canvxmax boldids boldnameids fgcolor markedid
5810 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5812 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5815 set ofill red
5817 set ofill green
5819 set ofill yellow
5820 } else {
5822 }
5831 # triangle pointing left for left-side commits
5837 } else {
5838 # triangle pointing right for right-side commits
5844 }
5856 }
5857 }
5858 }
5865 }
5870 set font mainfont
5871 set nfont mainfont
5875 set font mainfontbold
5878 set nfont mainfontbold
5879 }
5880 }
5890 }
5893 }
5897 setcanvscroll
5898 }
5899 }
5901 proc drawcmitrow {row} {
5902 global displayorder rowidlist nrows_drawn
5903 global iddrawn markingmatches
5904 global commitinfo numcommits
5905 global filehighlight fhighlights findpattern nhighlights
5906 global hlview vhighlights
5907 global highlight_related rhighlights
5914 }
5917 }
5920 }
5923 }
5928 return
5929 }
5932 }
5936 incr nrows_drawn
5937 }
5940 }
5941 }
5943 proc drawcommits {row {endrow {}}} {
5944 global numcommits iddrawn displayorder curview need_redisplay
5945 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5948 set row 0
5949 }
5952 }
5955 }
5959 set rl1 0
5960 }
5963 set ro1 0
5964 }
5968 }
5973 }
5975 }
5976 }
5979 }
5982 clear_display
5983 }
5985 # make the lines join to already-drawn rows either side
5989 }
5994 }
6009 # see if this is the first child of any of its parents
6012 # make this line extend up to the child
6014 }
6015 }
6016 } else {
6018 }
6019 }
6020 }
6021 }
6023 proc undolayout {row} {
6024 global uparrowlen mingaplen downarrowlen
6025 global rowidlist rowisopt rowfinal need_redisplay
6029 set r 0
6030 }
6032 incr r -1
6036 set need_redisplay 1
6037 run drawvisible
6038 }
6039 }
6041 proc drawvisible {} {
6042 global canv linespc curview vrowmod selectedline targetrow targetid
6043 global need_redisplay cscroll numcommits
6053 if {[info exists targetid]} {
6057 # Fix up the scrollregion and change the scrolling position
6058 # now that our target row has moved.
6061 setcanvscroll
6069 set need_redisplay 1
6070 }
6071 } else {
6072 unset targetid
6073 }
6074 }
6080 }
6084 } elseif {[info exists targetid]} {
6086 }
6087 if {[info exists targetrow]} {
6090 }
6092 }
6094 }
6096 proc clear_display {} {
6097 global iddrawn linesegs need_redisplay nrows_drawn
6098 global vhighlights fhighlights nhighlights rhighlights
6099 global linehtag linentag linedtag boldids boldnameids
6101 allcanvs delete all
6102 catch {unset iddrawn}
6103 catch {unset linesegs}
6104 catch {unset linehtag}
6105 catch {unset linentag}
6106 catch {unset linedtag}
6107 set boldids {}
6108 set boldnameids {}
6109 catch {unset vhighlights}
6110 catch {unset fhighlights}
6111 catch {unset nhighlights}
6112 catch {unset rhighlights}
6113 set need_redisplay 0
6114 set nrows_drawn 0
6115 }
6117 proc findcrossings {id} {
6118 global rowidlist parentlist numcommits displayorder
6120 set cross {}
6121 set ccross {}
6125 }
6144 }
6145 }
6146 }
6147 }
6148 }
6150 }
6152 proc assigncolor {id} {
6153 global colormap colors nextcolor
6154 global parents children children curview
6160 } else {
6161 set kids {}
6162 }
6168 return
6169 }
6170 }
6171 set badcolors {}
6172 set origbad {}
6175 # delimiter between corner crossings and other crossings
6178 }
6182 }
6183 }
6186 }
6193 }
6198 }
6199 }
6200 }
6203 }
6204 }
6208 set nextcolor 0
6209 }
6211 }
6213 }
6215 proc bindline {t id} {
6216 global canv
6222 }
6224 proc drawtags {id x xt y1} {
6225 global idtags idheads idotherrefs mainhead
6226 global linespc lthickness
6227 global canv rowtextx curview fgcolor bgcolor ctxbut
6229 set marks {}
6230 set ntags 0
6231 set nheads 0
6235 }
6239 }
6242 }
6245 }
6250 set xvals {}
6251 set wvals {}
6252 set i -1
6254 incr i
6257 } else {
6259 }
6263 }
6270 set font mainfont
6271 if {[incr ntags -1] >= 0} {
6272 # draw a tag
6278 } else {
6279 # draw a head or other ref
6280 if {[incr nheads -1] >= 0} {
6281 set col green
6283 set font mainfontbold
6284 }
6285 } else {
6286 set col "#ddddff"
6287 }
6298 }
6299 }
6306 }
6307 }
6309 }
6311 proc xcoord {i level ln} {
6312 global canvx0 xspc1 xspc2
6319 }
6321 }
6323 proc show_status {msg} {
6324 global canv fgcolor
6326 clear_display
6329 }
6331 # Don't change the text pane cursor if it is currently the hand cursor,
6332 # showing that we are over a sha1 ID link.
6333 proc settextcursor {c} {
6334 global ctext curtextcursor
6338 }
6340 }
6342 proc nowbusy {what {name {}}} {
6343 global isbusy busyname statusw
6345 if {[array names isbusy] eq {}} {
6346 . config -cursor watch
6347 settextcursor watch
6348 }
6353 }
6354 }
6356 proc notbusy {what} {
6357 global isbusy maincursor textcursor busyname statusw
6359 catch {
6364 }
6365 }
6366 if {[array names isbusy] eq {}} {
6369 }
6370 }
6372 proc findmatches {f} {
6373 global findtype findstring
6376 } else {
6381 }
6382 set matches {}
6383 set i 0
6388 }
6389 }
6391 }
6393 proc dofind {{dirn 1} {wrap 1}} {
6394 global findstring findstartline findcurline selectedline numcommits
6395 global gdttype filehighlight fh_serial find_dirn findallowwrap
6397 if {[info exists find_dirn]} {
6399 stopfinding
6400 }
6401 focus .
6405 } else {
6407 }
6409 nowbusy finding [mc "Searching"]
6413 }
6416 run findmore
6417 }
6419 proc stopfinding {} {
6420 global find_dirn findcurline fprogcoord
6422 if {[info exists find_dirn]} {
6423 unset find_dirn
6424 unset findcurline
6425 notbusy finding
6426 set fprogcoord 0
6427 adjustprogress
6428 }
6429 stopblaming
6430 }
6432 proc findmore {} {
6433 global commitdata commitinfo numcommits findpattern findloc
6434 global findstartline findcurline findallowwrap
6435 global find_dirn gdttype fhighlights fprogcoord
6436 global curview varcorder vrownum varccommits vrowmod
6438 if {![info exists find_dirn]} {
6439 return 0
6440 }
6441 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6443 set moretodo 0
6445 incr l
6447 set l 0
6448 }
6451 } else {
6454 }
6455 } else {
6458 }
6459 incr l -1
6462 } else {
6463 set lim -1
6465 }
6466 }
6469 set n 500
6470 set moretodo 1
6471 }
6474 }
6475 set found 0
6476 set domore 1
6490 }
6492 # shouldn't happen unless git log doesn't give all the commits...
6495 continue
6496 }
6499 }
6504 set found 1
6505 break
6506 }
6507 }
6509 }
6510 } else {
6518 }
6523 }
6526 break
6527 }
6530 set domore 0
6532 }
6533 }
6534 }
6535 }
6537 unset findcurline
6538 unset find_dirn
6539 notbusy finding
6540 set fprogcoord 0
6541 adjustprogress
6544 } else {
6545 bell
6546 }
6547 return 0
6548 }
6550 flushhighlights
6551 } else {
6553 }
6557 }
6559 adjustprogress
6561 }
6563 proc findselectline {l} {
6564 global findloc commentend ctext findcurline markingmatches gdttype
6571 # highlight the matches in the comments
6578 }
6579 }
6580 drawvisible
6581 }
6583 # mark the bits of a headline or author that match a find string
6584 proc markmatches {canv l str tag matches font row} {
6585 global selectedline
6603 }
6604 }
6605 }
6607 proc unmarkmatches {} {
6608 global markingmatches
6610 allcanvs delete matches
6611 set markingmatches 0
6612 stopfinding
6613 }
6615 proc selcanvline {w x y} {
6616 global canv canvy0 ctext linespc
6617 global rowtextx
6624 set l 0
6625 }
6630 }
6631 unmarkmatches
6633 }
6635 proc commit_descriptor {p} {
6636 global commitinfo
6639 }
6640 set l "..."
6643 }
6645 }
6647 # append some text to the ctext widget, and make any SHA1 ID
6648 # that we know about be a clickable link.
6649 proc appendwithlinks {text tags} {
6650 global ctext linknum curview
6659 incr e
6663 incr linknum
6664 }
6665 }
6667 proc setlink {id lk} {
6668 global curview ctext pendinglinks
6670 set known 0
6675 set known 1
6677 }
6678 } else {
6680 }
6686 } else {
6689 }
6690 }
6692 proc appendshortlink {id {pre {}} {post {}}} {
6693 global ctext linknum
6700 incr linknum
6701 }
6703 proc makelink {id} {
6704 global pendinglinks
6709 }
6711 }
6713 proc linkcursor {w inc} {
6714 global linkentercount curtextcursor
6718 } else {
6721 set linkentercount 0
6722 }
6723 }
6724 }
6726 proc viewnextline {dir} {
6727 global canv linespc
6735 set newtop 0
6738 }
6740 }
6742 # add a list of tag or branch names at position pos
6743 # returns the number of names inserted
6744 proc appendrefs {pos ids var} {
6748 return 0
6749 }
6752 set tags {}
6756 }
6757 }
6760 } else {
6762 set sep {}
6766 incr linknum
6771 set sep ", "
6772 }
6773 }
6776 }
6778 # called when we have finished computing the nearby tags
6779 proc dispneartags {delay} {
6780 global selectedline currentid showneartags tagphase
6783 after cancel dispnexttag
6785 after 200 dispnexttag
6786 set tagphase -1
6787 } else {
6788 after idle dispnexttag
6789 set tagphase 0
6790 }
6791 }
6793 proc dispnexttag {} {
6794 global selectedline currentid showneartags tagphase ctext
6798 0 {
6802 }
6803 }
6804 1 {
6808 }
6809 }
6810 2 {
6815 # turn "Branch" into "Branches"
6819 }
6820 }
6821 }
6822 }
6823 if {[incr tagphase] <= 2} {
6824 after idle dispnexttag
6825 }
6826 }
6828 proc make_secsel {id} {
6829 global linehtag linentag linedtag canv canv2 canv3
6844 }
6846 proc make_idmark {id} {
6847 global linehtag canv fgcolor
6854 }
6856 proc selectline {l isnew {desired_loc {}}} {
6857 global canv ctext commitinfo selectedline
6858 global canvy0 linespc parents children curview
6859 global currentid sha1entry
6860 global commentend idtags linknum
6861 global mergemax numcommits pending_select
6862 global cmitmode showneartags allcommits
6863 global targetrow targetid lastscrollrows
6864 global autoselect jump_to_here
6866 catch {unset pending_select}
6868 normalline
6869 unsel_reflist
6870 stopfinding
6878 setcanvscroll
6879 }
6893 } else {
6897 }
6898 }
6902 } else {
6906 }
6907 }
6908 }
6911 set newtop 0
6912 }
6914 drawvisible
6915 }
6921 }
6927 }
6931 clear_ctext
6932 set linknum 0
6935 }
6945 }
6947 }
6949 set headers {}
6952 set np 0
6955 set tag mmax
6956 } else {
6958 }
6961 incr np
6962 }
6963 } else {
6966 }
6967 }
6971 }
6973 # make anything that looks like a SHA1 ID be a clickable link
6976 if {![info exists allcommits]} {
6977 getallcommits
6978 }
6989 dispneartags 1
6990 }
6995 }
7003 init_flist [mc "Comments"]
7008 } else {
7010 }
7011 }
7013 proc selfirstline {} {
7014 unmarkmatches
7015 selectline 0 1
7016 }
7018 proc sellastline {} {
7019 global numcommits
7020 unmarkmatches
7023 }
7025 proc selnextline {dir} {
7026 global selectedline
7027 focus .
7030 unmarkmatches
7032 }
7034 proc selnextpage {dir} {
7035 global canv linespc selectedline numcommits
7039 set lpp 1
7040 }
7042 drawvisible
7046 set l 0
7049 }
7050 unmarkmatches
7052 }
7054 proc unselectline {} {
7055 global selectedline currentid
7057 set selectedline {}
7058 catch {unset currentid}
7059 allcanvs delete secsel
7060 rhighlight_none
7061 }
7063 proc reselectline {} {
7064 global selectedline
7068 }
7069 }
7071 proc addtohistory {cmd {saveproc {}}} {
7072 global history historyindex curview
7074 unset_posvars
7075 save_position
7079 return
7080 }
7084 } else {
7086 }
7087 incr historyindex
7089 .tf.bar.leftbut conf -state normal
7090 } else {
7091 .tf.bar.leftbut conf -state disabled
7092 }
7093 .tf.bar.rightbut conf -state disabled
7094 }
7096 # save the scrolling position of the diff display pane
7097 proc save_position {} {
7098 global historyindex history
7105 }
7106 }
7108 proc unset_posvars {} {
7109 global last_posvars
7111 if {[info exists last_posvars]} {
7115 }
7116 unset last_posvars
7117 }
7118 }
7120 proc godo {elt} {
7121 global curview last_posvars
7128 }
7129 unset_posvars
7133 }
7136 }
7138 proc goback {} {
7139 global history historyindex
7140 focus .
7143 save_position
7144 incr historyindex -1
7146 .tf.bar.rightbut conf -state normal
7147 }
7149 .tf.bar.leftbut conf -state disabled
7150 }
7151 }
7153 proc goforw {} {
7154 global history historyindex
7155 focus .
7158 save_position
7160 incr historyindex
7162 .tf.bar.leftbut conf -state normal
7163 }
7165 .tf.bar.rightbut conf -state disabled
7166 }
7167 }
7169 proc gettree {id} {
7170 global treefilelist treeidlist diffids diffmergeid treepending
7171 global nullid nullid2
7174 catch {unset diffmergeid}
7176 if {![info exists treepending]} {
7178 set cmd [list | git ls-files]
7180 set cmd [list | git ls-files --stage -t]
7181 } else {
7183 }
7185 return
7186 }
7192 }
7193 } else {
7195 }
7196 }
7198 proc gettreeline {gtf id} {
7199 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7201 set nl 0
7205 } else {
7213 }
7216 }
7219 }
7222 }
7224 unset treepending
7226 if {![info exists diffmergeid]} {
7228 }
7231 } else {
7233 }
7234 return 0
7235 }
7237 proc showfile {f} {
7238 global treefilelist treeidlist diffids nullid nullid2
7239 global ctext_file_names ctext_file_lines
7240 global ctext commentend
7245 return
7246 }
7250 return
7251 }
7252 } else {
7256 return
7257 }
7258 }
7269 settabs 0
7270 }
7272 proc getblobline {bf id} {
7273 global diffids cmitmode ctext
7277 return 0
7278 }
7280 set nl 0
7283 }
7285 global jump_to_here ctext_file_names commentend
7287 # delete last newline
7295 }
7296 return 0
7297 }
7300 }
7302 proc mark_ctext_line {lnum} {
7303 global ctext markbgcolor
7309 }
7311 proc mergediff {id} {
7312 global diffmergeid
7313 global diffids treediffs
7314 global parents curview
7322 }
7324 proc startdiff {ids} {
7325 global treediffs diffids treepending diffmergeid nullid nullid2
7327 settabs 1
7329 catch {unset diffmergeid}
7333 if {![info exists treepending]} {
7335 }
7336 } else {
7338 }
7339 }
7341 proc path_filter {filter name} {
7346 return 1
7347 }
7348 } else {
7352 return 1
7353 }
7354 }
7355 }
7356 return 0
7357 }
7359 proc addtocflist {ids} {
7360 global treediffs
7364 }
7366 proc diffcmd {ids flags} {
7367 global nullid nullid2
7373 # comparing working directory with some specific revision
7377 } else {
7379 }
7380 } else {
7381 # comparing working directory with index
7384 lappend cmd -R
7385 }
7386 }
7390 # comparing index with specific revision
7393 } else {
7395 }
7396 } else {
7397 # comparing index with HEAD
7398 lappend cmd HEAD
7399 }
7400 } else {
7402 }
7404 }
7406 proc gettreediffs {ids} {
7407 global treediff treepending
7412 set treediff {}
7415 }
7417 proc gettreediffline {gdtf ids} {
7418 global treediff treediffs treepending diffids diffmergeid
7419 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7421 set nr 0
7422 set sublist {}
7423 set max 1000
7425 # cache_gitattr is slow, and even slower on win32 where we
7426 # have to invoke it for only about 30 paths at a time
7427 set max 500
7428 if {[tk windowingsystem] == "win32"} {
7429 set max 120
7430 }
7431 }
7438 }
7443 }
7444 }
7445 }
7448 }
7451 }
7454 set flist {}
7458 }
7459 }
7461 } else {
7463 }
7464 unset treepending
7468 if {![info exists diffmergeid]} {
7470 }
7471 } else {
7473 }
7474 return 0
7475 }
7477 # empty string or positive integer
7478 proc diffcontextvalidate {v} {
7480 }
7482 proc diffcontextchange {n1 n2 op} {
7483 global diffcontextstring diffcontext
7488 reselectline
7489 }
7490 }
7491 }
7493 proc changeignorespace {} {
7494 reselectline
7495 }
7497 proc getblobdiffs {ids} {
7498 global blobdifffd diffids env
7499 global diffinhdr treediffs
7500 global diffcontext
7501 global ignorespace
7502 global limitdiffs vfilelimit curview
7503 global diffencoding targetline diffnparents
7504 global git_version
7506 set textconv {}
7508 set textconv "--textconv"
7509 }
7510 set submodule {}
7512 set submodule "--submodule"
7513 }
7516 append cmd " -w"
7517 }
7520 }
7523 return
7524 }
7525 set targetline {}
7526 set diffnparents 0
7527 set diffinhdr 0
7528 set diffencoding [get_path_encoding {}]
7532 }
7534 proc savecmitpos {} {
7535 global ctext cmitmode
7538 return {}
7539 }
7541 }
7543 proc savectextpos {} {
7544 global ctext
7547 }
7549 proc maybe_scroll_ctext {ateof} {
7550 global ctext target_scrollpos
7552 if {![info exists target_scrollpos]} return
7555 / [font metrics textfont -linespace]}]
7557 }
7559 unset target_scrollpos
7560 }
7562 proc setinlist {var i val} {
7567 }
7570 } else {
7572 }
7573 }
7575 proc makediffhdr {fname ids} {
7576 global ctext curdiffstart treediffs diffencoding
7577 global ctext_file_names jump_to_here targetline diffline
7584 }
7589 set targetline {}
7592 }
7593 set diffline 0
7594 }
7596 proc getblobdiffline {bdf ids} {
7597 global diffids blobdifffd ctext curdiffstart
7598 global diffnexthead diffnextnote difffilestart
7599 global ctext_file_names ctext_file_lines
7600 global diffinhdr treediffs mergemax diffnparents
7601 global diffencoding jump_to_here targetline diffline
7603 set nr 0
7608 return 0
7609 }
7614 continue
7615 }
7616 # start of a new file
7617 set diffinhdr 1
7620 lappend ctext_file_names ""
7625 # start of a new file in a merge diff
7630 }
7632 } else {
7634 # If the name hasn't changed the length will be odd,
7635 # the middle char will be a space, and the two bits either
7636 # side will be a/name and b/name, or "a/name" and "b/name".
7637 # If the name has changed we'll get "rename from" and
7638 # "rename to" or "copy from" and "copy to" lines following
7639 # this, and we'll use them to get the filenames.
7640 # This complexity is necessary because spaces in the
7641 # filename(s) don't get escaped.
7647 continue
7648 }
7649 # unescape if quoted and chop off the a/ from the front
7652 } else {
7654 }
7655 }
7668 }
7676 }
7678 set diffinhdr 0
7681 # start of a new submodule
7684 }
7686 lappend ctext_file_names ""
7702 }
7707 }
7713 }
7716 # do nothing
7717 continue
7719 set diffinhdr 0
7720 continue
7721 }
7724 } else {
7725 set line [string map {\x1A ^Z} \
7727 # parse the prefix - one ' ', '-' or '+' for each parent
7731 # prefix only has " ", "-" and "+" in it: normal diff line
7736 set num "max"
7737 }
7739 } else {
7740 set tags {}
7742 # added line
7748 set num "max"
7749 }
7751 }
7752 }
7753 }
7757 set targetline {}
7758 } else {
7759 incr diffline
7760 }
7761 }
7763 }
7764 } else {
7765 # "\ No newline at end of file",
7766 # or something else we don't recognize
7768 }
7769 }
7770 }
7771 if {[info exists seehere]} {
7773 }
7778 return 0
7779 }
7781 }
7783 proc changediffdisp {} {
7784 global ctext diffelide
7788 }
7790 proc highlightfile {loc cline} {
7791 global ctext cflist cflist_top
7798 }
7800 proc prevfile {} {
7801 global difffilestart ctext cmitmode
7804 set prev 0.0
7805 set prevline 1
7810 return
7811 }
7813 incr prevline
7814 }
7816 }
7818 proc nextfile {} {
7819 global difffilestart ctext cmitmode
7823 set line 1
7825 incr line
7828 return
7829 }
7830 }
7831 }
7833 proc clear_ctext {{first 1.0}} {
7834 global ctext smarktop smarkbot
7835 global ctext_file_names ctext_file_lines
7836 global pendinglinks
7841 }
7844 }
7847 catch {unset pendinglinks}
7848 }
7849 set ctext_file_names {}
7850 set ctext_file_lines {}
7851 }
7853 proc settabs {{firstab {}}} {
7854 global firsttabstop tabstop ctext have_tk85
7858 }
7859 set w [font measure textfont "0"]
7865 } else {
7867 }
7868 }
7870 proc incrsearch {name ix op} {
7871 global ctext searchstring searchdirn
7875 # no anchor set, use start of selection, or of visible area
7881 } else {
7883 }
7884 }
7889 }
7890 searchmarkvisible 1
7891 }
7892 }
7894 proc dosearch {} {
7895 global sstring ctext searchstring searchdirn
7899 set searchdirn -forwards
7905 set start "@0,0"
7906 }
7910 bell
7911 return
7912 }
7917 }
7918 }
7920 proc dosearchback {} {
7921 global sstring ctext searchstring searchdirn
7925 set searchdirn -backwards
7932 }
7936 bell
7937 return
7938 }
7943 }
7944 }
7946 proc searchmark {first last} {
7947 global ctext searchstring
7950 while {1} {
7955 }
7956 }
7958 proc searchmarkvisible {doall} {
7959 global ctext smarktop smarkbot
7964 # no overlap with previous
7968 } else {
7972 }
7976 }
7977 }
7978 }
7980 proc scrolltext {f0 f1} {
7981 global searchstring
7985 searchmarkvisible 0
7986 }
7987 }
7989 proc setcoords {} {
7990 global linespc charspc canvx0 canvy0
7991 global xspc1 xspc2 lthickness
7993 set linespc [font metrics mainfont -linespace]
7994 set charspc [font measure mainfont "m"]
8000 }
8002 proc redisplay {} {
8003 global canv
8004 global selectedline
8009 clear_display
8010 setcanvscroll
8012 drawvisible
8016 }
8017 }
8019 proc parsefont {f n} {
8020 global fontattr
8025 set s 10
8028 }
8034 "normal" -
8036 "roman" -
8038 }
8039 }
8040 }
8042 proc fontflags {f {isbold 0}} {
8043 global fontattr
8048 }
8050 proc fontname {f} {
8051 global fontattr
8055 lappend n "bold"
8056 }
8058 lappend n "italic"
8059 }
8061 }
8063 proc incrfont {inc} {
8064 global mainfont textfont ctext canv cflist showrefstop
8065 global stopped entries fontattr
8067 unmarkmatches
8071 set s 1
8072 }
8076 set mainfont [fontname mainfont]
8080 set s 1
8081 }
8085 set textfont [fontname textfont]
8086 setcoords
8087 settabs
8088 redisplay
8089 }
8091 proc clearsha1 {} {
8092 global sha1entry sha1string
8095 }
8096 }
8098 proc sha1change {n1 n2 op} {
8099 global sha1string currentid sha1but
8102 set state disabled
8103 } else {
8104 set state normal
8105 }
8109 } else {
8111 }
8112 }
8114 proc gotocommit {} {
8115 global sha1string tagids headids curview varcid
8123 } else {
8130 return
8131 }
8133 }
8134 } else {
8137 return
8138 }
8139 }
8140 }
8143 return
8144 }
8147 } else {
8149 }
8151 }
8153 proc lineenter {x y id} {
8154 global hoverx hovery hoverid hovertimer
8155 global commitinfo canv
8161 if {[info exists hovertimer]} {
8163 }
8164 set hovertimer [after 500 linehover]
8166 }
8168 proc linemotion {x y id} {
8169 global hoverx hovery hoverid hovertimer
8174 if {[info exists hovertimer]} {
8176 }
8177 set hovertimer [after 500 linehover]
8178 }
8179 }
8181 proc lineleave {id} {
8182 global hoverid hovertimer canv
8186 if {[info exists hovertimer]} {
8188 unset hovertimer
8189 }
8190 unset hoverid
8191 }
8192 }
8194 proc linehover {} {
8195 global hoverx hovery hoverid hovertimer
8196 global canv linespc lthickness
8197 global commitinfo
8210 -fill \#ffff80 -outline black -width 1 -tags hover]
8213 -font mainfont]
8215 }
8217 proc clickisonarrow {id y} {
8218 global lthickness
8227 }
8228 }
8229 return {}
8230 }
8232 proc arrowjump {id n y} {
8233 global canv
8235 # 1 <-> 2, 3 <-> 4, etc...
8245 set yfrac 0
8246 }
8248 }
8250 proc lineclick {x y id isnew} {
8251 global ctext commitinfo children canv thickerline curview
8254 unmarkmatches
8255 unselectline
8256 normalline
8258 # draw this line thicker than normal
8266 }
8270 return
8271 }
8275 }
8276 # fill the details pane with info about this line
8278 clear_ctext
8279 settabs 0
8291 set i 0
8293 incr i
8303 }
8304 }
8305 maybe_scroll_ctext 1
8307 init_flist {}
8308 }
8310 proc normalline {} {
8311 global thickerline
8312 if {[info exists thickerline]} {
8314 unset thickerline
8316 }
8317 }
8319 proc selbyid {id {isnew 1}} {
8320 global curview
8323 }
8324 }
8326 proc mstime {} {
8327 global startmstime
8328 if {![info exists startmstime]} {
8329 set startmstime [clock clicks -milliseconds]
8330 }
8332 }
8334 proc rowmenu {x y id} {
8335 global rowctxmenu selectedline rowmenuid curview
8336 global nullid nullid2 fakerowmenu mainhead markedid
8338 stopfinding
8341 set state disabled
8342 } else {
8343 set state normal
8344 }
8349 } else {
8351 }
8356 } else {
8360 }
8361 } else {
8363 }
8368 }
8370 proc markhere {} {
8371 global rowmenuid markedid canv
8375 }
8377 proc gotomark {} {
8378 global markedid
8380 if {[info exists markedid]} {
8382 }
8383 }
8385 proc replace_by_kids {l r} {
8386 global curview children
8392 }
8394 }
8396 proc find_common_desc {} {
8397 global markedid rowmenuid curview children
8399 if {![info exists markedid]} return
8402 #set t1 [clock clicks -milliseconds]
8405 while 1 {
8411 break
8412 }
8415 } else {
8417 }
8418 }
8419 #set t2 [clock clicks -milliseconds]
8421 }
8423 proc compare_commits {} {
8424 global markedid rowmenuid curview children
8426 if {![info exists markedid]} return
8430 }
8432 proc getpatchid {id} {
8433 global patchids
8437 # trim off the initial "|"
8439 if {[catch {
8442 }]} {
8444 }
8445 }
8447 }
8449 proc do_cmp_commits {a b} {
8450 global ctext curview parents children patchids commitinfo
8453 clear_ctext
8454 init_flist {}
8456 set skipa 0
8457 set skipb 0
8460 set skipa 1
8461 } else {
8463 }
8466 set skipb 1
8467 } else {
8469 }
8475 [mc " - stopping\n"]
8476 break
8477 }
8480 [mc " - stopping\n"]
8481 break
8482 }
8487 } else {
8491 }
8492 set skipa 1
8493 set skipb 1
8494 } else {
8501 update
8503 return
8504 }
8505 }
8512 break
8513 }
8515 }
8521 break
8522 }
8524 }
8525 }
8527 }
8529 proc diffcommits {a b} {
8530 global diffcontext diffids blobdifffd diffinhdr
8532 set tmpdir [gitknewtmpdir]
8535 if {[catch {
8538 } err]} {
8540 return
8541 }
8542 if {[catch {
8544 } err]} {
8546 return
8547 }
8550 set diffinhdr 0
8552 }
8554 proc diffvssel {dirn} {
8555 global rowmenuid selectedline
8561 } else {
8564 }
8567 }
8569 proc doseldiff {oldid newid} {
8570 global ctext
8571 global commitinfo
8574 clear_ctext
8575 init_flist [mc "Top"]
8590 }
8592 proc mkpatch {} {
8593 global rowmenuid currentid commitinfo patchtop patchnum NS
8595 if {![info exists currentid]} return
8600 set top .patch
8630 incr patchnum
8642 }
8644 proc mkpatchrev {} {
8645 global patchtop
8651 foreach e [list fromsha1 fromhead tosha1 tohead] \
8657 }
8658 }
8660 proc mkpatchgo {} {
8661 global patchtop nullid nullid2
8667 # trim off the initial "|"
8672 }
8674 unset patchtop
8675 }
8677 proc mkpatchcan {} {
8678 global patchtop
8681 unset patchtop
8682 }
8684 proc mktag {} {
8685 global rowmenuid mktagtop commitinfo NS
8687 set top .maketag
8721 }
8723 proc domktag {} {
8724 global mktagtop env tagids idtags
8731 return 0
8732 }
8735 return 0
8736 }
8737 if {[catch {
8740 } else {
8742 }
8743 } err]} {
8745 return 0
8746 }
8752 dispneartags 0
8753 run refill_reflist
8754 return 1
8755 }
8757 proc redrawtags {id} {
8758 global canv linehtag idpos currentid curview cmitlisted markedid
8759 global canvxmax iddrawn circleitem mainheadid circlecolors
8765 set ofill yellow
8766 } else {
8768 }
8778 setcanvscroll
8779 }
8782 }
8785 }
8786 }
8788 proc mktagcan {} {
8789 global mktagtop
8792 unset mktagtop
8793 }
8795 proc mktaggo {} {
8796 if {![domktag]} return
8797 mktagcan
8798 }
8800 proc writecommit {} {
8801 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8803 set top .writecommit
8836 }
8838 proc wrcomgo {} {
8839 global wrcomtop
8846 }
8848 unset wrcomtop
8849 }
8851 proc wrcomcan {} {
8852 global wrcomtop
8855 unset wrcomtop
8856 }
8858 proc mkbranch {} {
8859 global rowmenuid mkbrtop NS
8861 set top .makebranch
8885 }
8887 proc mkbrgo {top} {
8888 global headids idheads
8892 set cmdargs {}
8893 set old_id {}
8896 return
8897 }
8899 if {![confirm_popup [mc \
8901 return
8902 }
8904 lappend cmdargs -f
8905 }
8908 nowbusy newbranch
8909 update
8910 if {[catch {
8912 } err]} {
8913 notbusy newbranch
8915 } else {
8916 notbusy newbranch
8922 } else {
8927 }
8928 dispneartags 0
8929 run refill_reflist
8930 }
8931 }
8933 proc exec_citool {tool_args {baseid {}}} {
8934 global commitinfo env
8936 set save_env [array get env GIT_AUTHOR_*]
8941 }
8944 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8950 }
8951 }
8955 array unset env GIT_AUTHOR_*
8957 }
8959 proc cherrypick {} {
8960 global rowmenuid curview
8961 global mainhead mainheadid
8963 set oldhead [exec git rev-parse HEAD]
8966 set ok [confirm_popup [mc "Commit %s is already\
8967 included in branch %s -- really re-apply it?" \
8970 }
8971 nowbusy cherrypick [mc "Cherry-picking"]
8972 update
8973 # Unfortunately git-cherry-pick writes stuff to stderr even when
8974 # no error occurs, and exec takes that as an indication of error...
8976 notbusy cherrypick
8977 if {[regexp -line \
8978 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8980 error_popup [mc "Cherry-pick failed because of local changes\
8981 to file '%s'.\nPlease commit, reset or stash\
8983 } elseif {[regexp -line \
8984 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8986 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8987 conflict.\nDo you wish to run git citool to\
8988 resolve it?"]]} {
8989 # Force citool to read MERGE_MSG
8990 file delete [file join [gitdir] "GITGUI_MSG"]
8992 }
8993 } else {
8995 }
8996 run updatecommits
8997 return
8998 }
8999 set newhead [exec git rev-parse HEAD]
9001 notbusy cherrypick
9002 error_popup [mc "No changes committed"]
9003 return
9004 }
9007 # XXX this isn't right if we have a path limit...
9012 }
9017 }
9018 notbusy cherrypick
9019 }
9021 proc resethead {} {
9022 global mainhead rowmenuid confirm_ok resettype NS
9024 set confirm_ok 0
9025 set w ".confirmreset"
9033 set resettype mixed
9035 -text [mc "Soft: Leave working tree and index untouched"]
9038 -text [mc "Mixed: Leave working tree untouched, reset index"]
9041 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9052 if {[catch {set fd [open \
9055 } else {
9056 dohidelocalchanges
9058 nowbusy reset [mc "Resetting"]
9060 }
9061 }
9063 proc readresetstat {fd} {
9064 global mainhead mainheadid showlocalchanges rprogcoord
9069 adjustprogress
9070 }
9071 return 1
9072 }
9073 set rprogcoord 0
9074 adjustprogress
9075 notbusy reset
9078 }
9080 set newhead [exec git rev-parse HEAD]
9087 }
9089 doshowlocalchanges
9090 }
9091 return 0
9092 }
9094 # context menu for a head
9095 proc headmenu {x y id head} {
9096 global headmenuid headmenuhead headctxmenu mainhead
9098 stopfinding
9101 set state normal
9103 set state disabled
9104 }
9106 set state disabled
9107 }
9111 }
9113 proc cobranch {} {
9114 global headmenuid headmenuhead headids
9115 global showlocalchanges
9117 # check the tree is clean first??
9118 nowbusy checkout [mc "Checking out"]
9119 update
9120 dohidelocalchanges
9121 if {[catch {
9123 } err]} {
9124 notbusy checkout
9127 dodiffindex
9128 }
9129 } else {
9131 }
9132 }
9134 proc readcheckoutstat {fd newhead newheadid} {
9135 global mainhead mainheadid headids showlocalchanges progresscoords
9136 global viewmainheadid curview
9141 adjustprogress
9142 }
9143 return 1
9144 }
9145 set progresscoords {0 0}
9146 adjustprogress
9147 notbusy checkout
9150 }
9159 dodiffindex
9160 }
9161 }
9163 proc rmbranch {} {
9164 global headmenuid headmenuhead mainhead
9165 global idheads
9169 # this check shouldn't be needed any more...
9171 error_popup [mc "Cannot delete the currently checked-out branch"]
9172 return
9173 }
9176 # the stuff on this branch isn't on any other branch
9177 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9179 }
9180 nowbusy rmbranch
9181 update
9183 notbusy rmbranch
9185 return
9186 }
9190 notbusy rmbranch
9191 dispneartags 0
9192 run refill_reflist
9193 }
9195 # Display a list of tags and heads
9196 proc showrefs {} {
9197 global showrefstop bgcolor fgcolor selectbgcolor NS
9198 global bglist fglist reflistfilter reflist maincursor
9200 set top .showrefs
9204 refill_reflist
9205 return
9206 }
9214 -spacing1 1 -spacing3 1 -state disabled
9225 set reflistfilter "*"
9226 trace add variable reflistfilter write reflistfilter_change
9238 set reflist {}
9239 refill_reflist
9240 }
9242 proc sel_reflist {w x y} {
9243 global showrefstop reflist headids tagids otherrefids
9253 }
9255 }
9257 proc unsel_reflist {} {
9258 global showrefstop
9262 }
9264 proc reflistfilter_change {n1 n2 op} {
9265 global reflistfilter
9267 after cancel refill_reflist
9268 after 200 refill_reflist
9269 }
9271 proc refill_reflist {} {
9272 global reflist reflistfilter showrefstop headids tagids otherrefids
9273 global curview
9276 set refs {}
9277 foreach n [array names headids] {
9281 } else {
9283 }
9284 }
9285 }
9286 foreach n [array names tagids] {
9290 } else {
9292 }
9293 }
9294 }
9295 foreach n [array names otherrefids] {
9299 } else {
9301 }
9302 }
9303 }
9311 set i 0
9312 set j 0
9321 }
9322 } else {
9323 set cmp -1
9324 }
9325 } else {
9326 set cmp 1
9327 }
9329 -1 {
9331 incr i
9332 }
9333 0 {
9334 incr i
9335 incr j
9336 }
9337 1 {
9342 incr j
9343 }
9344 }
9345 }
9347 # delete last newline
9350 }
9352 # Stuff for finding nearby tags
9353 proc getallcommits {} {
9354 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9355 global idheads idtags idotherrefs allparents tagobjid
9357 if {![info exists allcommits]} {
9358 set nextarc 0
9359 set allcommits 0
9360 set seeds {}
9361 set allcwait 0
9362 set cachedarcs 0
9363 set allccache [file join [gitdir] "gitk.cache"]
9364 if {![catch {
9366 set allcwait 1
9368 }]} return
9369 }
9372 return
9373 }
9374 set cmd [list | git rev-list --parents]
9377 set ids "--all"
9378 } else {
9379 set refs [concat [array names idheads] [array names idtags] \
9380 [array names idotherrefs]]
9381 set ids {}
9382 set tagobjs {}
9383 foreach name [array names tagobjid] {
9385 }
9390 }
9391 }
9395 }
9396 }
9397 }
9401 incr allcommits
9402 nowbusy allcommits
9404 } else {
9405 dispneartags 0
9406 }
9407 }
9409 # Since most commits have 1 parent and 1 child, we group strings of
9410 # such commits into "arcs" joining branch/merge points (BMPs), which
9411 # are commits that either don't have 1 parent or don't have 1 child.
9412 #
9413 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9414 # arcout(id) - outgoing arcs for BMP
9415 # arcids(a) - list of IDs on arc including end but not start
9416 # arcstart(a) - BMP ID at start of arc
9417 # arcend(a) - BMP ID at end of arc
9418 # growing(a) - arc a is still growing
9419 # arctags(a) - IDs out of arcids (excluding end) that have tags
9420 # archeads(a) - IDs out of arcids (excluding end) that have heads
9421 # The start of an arc is at the descendent end, so "incoming" means
9422 # coming from descendents, and "outgoing" means going towards ancestors.
9424 proc getallclines {fd} {
9425 global allparents allchildren idtags idheads nextarc
9426 global arcnos arcids arctags arcout arcend arcstart archeads growing
9427 global seeds allcommits cachedarcs allcupdate
9429 set nid 0
9433 # seen it already
9434 continue
9435 }
9436 set cachedarcs 0
9443 } else {
9449 }
9452 }
9454 # seen parent already
9457 }
9461 }
9464 continue
9465 }
9466 }
9471 }
9473 set ao {}
9476 set a [incr nextarc]
9485 # seen it already, may need to make a new branch
9488 }
9492 }
9494 }
9496 }
9498 global cached_dheads cached_dtags cached_atags
9499 catch {unset cached_dheads}
9500 catch {unset cached_dtags}
9501 catch {unset cached_atags}
9502 }
9505 }
9506 set cacheok 1
9507 if {[catch {
9510 } err]} {
9511 # got an error reading the list of commits
9512 # if we were updating, try rereading the whole thing again
9514 incr allcommits -1
9516 return
9517 }
9518 error_popup "[mc "Error reading commit topology information;\
9519 branch and preceding/following tag information\
9521 set cacheok 0
9522 }
9523 if {[incr allcommits -1] == 0} {
9524 notbusy allcommits
9526 run savecache
9527 }
9528 }
9529 dispneartags 0
9530 return 0
9531 }
9533 proc recalcarc {a} {
9534 global arctags archeads arcids idtags idheads
9536 set at {}
9537 set ah {}
9541 }
9544 }
9545 }
9548 }
9550 proc splitarc {p} {
9551 global arcnos arcids nextarc arctags archeads idtags idheads
9552 global arcstart arcend arcout allparents growing
9557 return
9558 }
9563 return
9564 }
9565 set na [incr nextarc]
9568 } else {
9572 }
9582 }
9587 } else {
9590 }
9591 }
9593 # reconstruct tags and heads lists
9597 } else {
9600 }
9601 }
9603 # Update things for a new commit added that is a child of one
9604 # existing commit. Used when cherry-picking.
9605 proc addnewchild {id p} {
9606 global allparents allchildren idtags nextarc
9607 global arcnos arcids arctags arcout arcend arcstart archeads growing
9608 global seeds allcommits
9616 set a [incr nextarc]
9624 }
9627 }
9629 # This implements a cache for the topology information.
9630 # The cache saves, for each arc, the start and end of the arc,
9631 # the ids on the arc, and the outgoing arcs from the end.
9632 proc readcache {f} {
9633 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9634 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9635 global allcwait
9641 }
9642 if {[catch {
9644 # finish reading the cache and setting up arctags, etc.
9648 foreach id [array names idtags] {
9654 }
9655 }
9656 }
9657 foreach id [array names idheads] {
9663 }
9664 }
9665 }
9669 }
9670 }
9671 set allcwait 0
9672 } else {
9682 }
9686 } else {
9690 }
9691 }
9697 }
9700 }
9703 }
9705 }
9706 } err]} {
9708 return 0
9709 }
9711 getallcommits
9712 }
9714 }
9716 proc getcache {f} {
9717 global nextarc cachedarcs possible_seeds
9719 if {[catch {
9722 # make sure it's an integer
9725 set nextarc 0
9726 set possible_seeds {}
9728 } err]} {
9730 }
9731 return 0
9732 }
9734 proc dropcache {err} {
9735 global allcwait nextarc cachedarcs seeds
9738 foreach v {arcnos arcout arcids arcstart arcend growing \
9739 arctags archeads allparents allchildren} {
9742 }
9743 set allcwait 0
9744 set nextarc 0
9745 set cachedarcs 0
9746 set seeds {}
9747 getallcommits
9748 }
9750 proc writecache {f} {
9751 global cachearc cachedarcs allccache
9752 global arcstart arcend arcnos arcids arcout
9758 }
9759 if {[catch {
9763 } else {
9765 }
9766 }
9767 } err]} {
9771 return 0
9772 }
9777 return 0
9778 }
9779 return 1
9780 }
9782 proc savecache {} {
9783 global nextarc cachedarcs cachearc allccache
9786 set cachearc 0
9788 catch {
9792 }
9793 }
9795 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9796 # or 0 if neither is true.
9797 proc anc_or_desc {a b} {
9798 global arcout arcstart arcend arcnos cached_isanc
9801 # Both are on the same arc(s); either both are the same BMP,
9802 # or if one is not a BMP, the other is also not a BMP or is
9803 # the BMP at end of the arc (and it only has 1 incoming arc).
9804 # Or both can be BMPs with no incoming arcs.
9806 return 0
9807 }
9813 return 1
9814 } else {
9815 return -1
9816 }
9817 }
9823 } else {
9824 set aend {}
9825 }
9827 } else {
9829 }
9834 } else {
9835 set bend {}
9836 }
9838 } else {
9840 }
9842 return 1
9843 }
9845 return -1
9846 }
9849 return 1
9850 }
9851 }
9854 return -1
9855 }
9857 return 0
9858 }
9859 }
9867 continue
9868 }
9874 return 1
9878 return -1
9879 }
9885 }
9886 }
9887 }
9890 return 0
9891 }
9895 # and returns 0 if so and 1 if not.
9896 # If we subsequently discover a tag on such a growing tip, and that
9899 # isn't a good choice to display as a descendent tag of
9903 #
9904 proc is_certain {desc anc} {
9905 global arcnos arcout arcstart arcend growing problems
9907 set certain {}
9909 # tags on the same arc are certain
9911 return 1
9912 }
9917 }
9918 }
9921 } else {
9924 }
9926 return 1
9927 }
9930 set nnh 1
9931 set ngrowanc 0
9935 incr nnh -1
9936 }
9942 incr ngrowanc
9943 }
9944 } else {
9951 incr nnh -1
9952 }
9954 incr ngrowanc -1
9955 }
9965 incr nnh -1
9966 }
9968 incr ngrowanc -1
9969 }
9971 }
9972 }
9973 }
9974 }
9975 }
9976 }
9980 } else {
9983 incr nnh
9984 }
9985 }
9986 }
9987 }
9988 foreach x [array names growanc] {
9990 return 0
9991 }
9992 return 0
9993 }
9994 return 1
9995 }
9997 proc validate_arctags {a} {
9998 global arctags idtags
10000 set i -1
10003 incr i
10006 incr i -1
10007 }
10008 }
10010 }
10012 proc validate_archeads {a} {
10013 global archeads idheads
10015 set i -1
10018 incr i
10021 incr i -1
10022 }
10023 }
10025 }
10027 # Return the list of IDs that have tags that are descendents of id,
10028 # ignoring IDs that are descendents of IDs already reported.
10029 proc desctags {id} {
10030 global arcnos arcstart arcids arctags idtags allparents
10031 global growing cached_dtags
10034 return {}
10035 }
10036 set t1 [clock clicks -milliseconds]
10039 # part-way along an arc; check that arc first
10044 set tid {}
10049 }
10052 }
10053 }
10057 }
10058 }
10061 }
10066 set nc 1
10072 incr nc -1
10073 }
10074 # ignore tags on starting node
10078 set ta 1
10081 set ta 1
10082 }
10083 }
10090 }
10091 }
10100 }
10103 }
10105 incr nc -1
10106 }
10108 }
10109 }
10110 }
10115 incr nc
10116 }
10117 }
10118 }
10119 }
10120 set tags {}
10121 foreach id [array names tagloc] {
10126 }
10127 }
10128 }
10129 }
10130 set t2 [clock clicks -milliseconds]
10133 # remove tags that are descendents of other tags
10141 incr j -1
10142 incr i -1
10145 incr i -1
10146 break
10147 }
10148 }
10149 }
10151 if {[array names growing] ne {}} {
10152 # graph isn't finished, need to check if any tag could get
10153 # eclipsed by another tag coming later. Simply ignore any
10154 # tags that could later get eclipsed.
10155 set ctags {}
10159 }
10160 }
10163 } else {
10165 }
10166 } else {
10168 }
10169 set t3 [clock clicks -milliseconds]
10173 }
10175 }
10177 proc anctags {id} {
10178 global arcnos arcids arcout arcend arctags idtags allparents
10179 global growing cached_atags
10182 return {}
10183 }
10184 set t1 [clock clicks -milliseconds]
10187 # part-way along an arc; check that arc first
10196 }
10197 }
10198 }
10200 return {}
10201 }
10205 }
10206 }
10209 }
10214 set taglist {}
10215 set nc 1
10221 incr nc -1
10222 }
10223 # ignore tags on starting node
10227 set td 1
10230 set td 1
10231 }
10232 }
10238 }
10239 }
10251 }
10252 }
10255 }
10257 incr nc -1
10258 }
10260 }
10261 }
10262 }
10267 incr nc
10268 }
10269 }
10270 }
10271 }
10272 set t2 [clock clicks -milliseconds]
10274 set tags {}
10275 foreach id [array names tagloc] {
10280 }
10281 }
10282 }
10283 }
10285 # remove tags that are ancestors of other tags
10293 incr j -1
10294 incr i -1
10297 incr i -1
10298 break
10299 }
10300 }
10301 }
10303 if {[array names growing] ne {}} {
10304 # graph isn't finished, need to check if any tag could get
10305 # eclipsed by another tag coming later. Simply ignore any
10306 # tags that could later get eclipsed.
10307 set ctags {}
10311 }
10312 }
10315 } else {
10317 }
10318 } else {
10320 }
10321 set t3 [clock clicks -milliseconds]
10325 }
10327 }
10329 # Return the list of IDs that have heads that are descendents of id,
10330 # including id itself if it has a head.
10331 proc descheads {id} {
10332 global arcnos arcstart arcids archeads idheads cached_dheads
10333 global allparents
10336 return {}
10337 }
10338 set aret {}
10340 # part-way along an arc; check it first
10349 }
10350 }
10352 }
10356 set ret {}
10361 } else {
10364 }
10370 }
10371 }
10376 }
10377 }
10378 }
10379 }
10383 }
10385 proc addedtag {id} {
10386 global arcnos arcout cached_dtags cached_atags
10391 }
10392 catch {unset cached_dtags}
10393 catch {unset cached_atags}
10394 }
10396 proc addedhead {hid head} {
10397 global arcnos arcout cached_dheads
10402 }
10403 catch {unset cached_dheads}
10404 }
10406 proc removedhead {hid head} {
10407 global cached_dheads
10409 catch {unset cached_dheads}
10410 }
10412 proc movedhead {hid head} {
10413 global arcnos arcout cached_dheads
10418 }
10419 catch {unset cached_dheads}
10420 }
10422 proc changedrefs {} {
10423 global cached_dheads cached_dtags cached_atags
10424 global arctags archeads arcnos arcout idheads idtags
10426 foreach id [concat [array names idheads] [array names idtags]] {
10432 }
10433 }
10434 }
10435 catch {unset cached_dtags}
10436 catch {unset cached_atags}
10437 catch {unset cached_dheads}
10438 }
10440 proc rereadrefs {} {
10441 global idtags idheads idotherrefs mainheadid
10443 set refids [concat [array names idtags] \
10444 [array names idheads] [array names idotherrefs]]
10448 }
10449 }
10451 readrefs
10452 changedrefs
10454 [array names idheads] [array names idotherrefs]]]
10459 }
10460 }
10464 }
10465 run refill_reflist
10466 }
10468 proc listrefs {id} {
10469 global idtags idheads idotherrefs
10471 set x {}
10474 }
10475 set y {}
10478 }
10479 set z {}
10482 }
10484 }
10486 proc showtag {tag isnew} {
10487 global ctext tagcontents tagids linknum tagobjid
10491 }
10493 clear_ctext
10494 settabs 0
10495 set linknum 0
10497 catch {
10499 }
10500 }
10503 } else {
10505 }
10507 maybe_scroll_ctext 1
10509 init_flist {}
10510 }
10512 proc doquit {} {
10513 global stopped
10514 global gitktmpdir
10516 set stopped 100
10517 savestuff .
10518 destroy .
10520 if {[info exists gitktmpdir]} {
10522 }
10523 }
10525 proc mkfontdisp {font top which} {
10535 }
10537 proc choosefont {font which} {
10538 global fontparam fontlist fonttop fontattr
10539 global prefstop NS
10547 set top .gitkfont
10550 font create sample
10557 set fontlist [lsort [font families]]
10568 -textvariable fontparam(size) \
10569 -validatecommand {string is integer -strict %s}
10571 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10572 -variable fontparam(weight) -onvalue bold -offvalue normal
10574 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10575 -variable fontparam(slant) -onvalue italic -offvalue roman
10579 -background white
10581 -fill black -tags text
10593 trace add variable fontparam write chg_fontparam
10594 } else {
10597 }
10602 }
10603 }
10605 proc centertext {w} {
10607 }
10609 proc fontok {} {
10610 global fontparam fontpref prefstop
10616 }
10619 }
10623 fontcan
10624 }
10626 proc fontcan {} {
10627 global fonttop fontparam
10629 if {[info exists fonttop]} {
10631 catch {font delete sample}
10632 unset fonttop
10633 unset fontparam
10634 }
10635 }
10637 if {[package vsatisfies [package provide Tk] 8.6]} {
10638 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10639 # function to make use of it.
10640 proc choosefont {font which} {
10643 tk fontchooser show
10644 }
10645 proc on_choosefont {font which newfont} {
10646 global fontparam
10655 fontok
10656 }
10657 }
10659 proc selfontfam {} {
10660 global fonttop fontparam
10665 }
10666 }
10668 proc chg_fontparam {v sub op} {
10669 global fontparam
10672 }
10674 proc doprefs {} {
10675 global maxwidth maxgraphpct use_ttk NS
10676 global oldprefs prefstop showneartags showlocalchanges
10677 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10678 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10679 global hideremotes want_ttk have_ttk
10681 set top .gitkprefs
10685 return
10686 }
10687 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10688 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10690 }
10704 -variable showlocalchanges
10707 -variable autoselect
10710 -variable hideremotes
10719 -variable showneartags
10722 -variable limitdiffs
10725 -variable perfile_attrs
10739 -text [mc "Use themed widgets"]
10742 } else {
10744 }
10774 [mc "diff hunk header"] \
10780 [mc "marked line background"] \
10795 foreach w {maxpctl maxwidthl showlocal autoselect tabstopl ntag
10796 ldiff lattr extdifff.l extdifff.b bgbut fgbut
10797 diffoldbut diffnewbut hunksepbut markbgbut selbgbut
10798 want_ttk ttk_note} {
10800 }
10801 }
10814 }
10816 proc choose_extdiff {} {
10817 global extdifftool
10819 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10822 }
10823 }
10825 proc choosecolor {v vi w x cmd} {
10834 }
10836 proc setselbg {c} {
10837 global bglist cflist
10840 }
10844 }
10846 # This sets the background color and the color scheme for the whole UI.
10847 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10848 # if we don't specify one ourselves, which makes the checkbuttons and
10849 # radiobuttons look bad. This chooses white for selectColor if the
10850 # background color is light, or black if it is dark.
10851 proc setui {c} {
10853 set selc black
10855 set selc white
10856 }
10858 }
10860 proc setbg {c} {
10861 global bglist
10865 }
10866 }
10868 proc setfg {c} {
10869 global fglist canv
10873 }
10877 }
10879 proc prefscan {} {
10880 global oldprefs prefstop
10882 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10883 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10886 }
10888 unset prefstop
10889 fontcan
10890 }
10892 proc prefsok {} {
10893 global maxwidth maxgraphpct
10894 global oldprefs prefstop showneartags showlocalchanges
10895 global fontpref mainfont textfont uifont
10896 global limitdiffs treediffs perfile_attrs
10897 global hideremotes
10900 unset prefstop
10901 fontcan
10902 set fontchanged 0
10906 eval font configure mainfont [fontflags mainfont]
10907 eval font configure mainfontbold [fontflags mainfont 1]
10908 setcoords
10909 set fontchanged 1
10910 }
10914 eval font configure textfont [fontflags textfont]
10915 eval font configure textfontbold [fontflags textfont 1]
10916 }
10920 eval font configure uifont [fontflags uifont]
10921 }
10922 settabs
10925 doshowlocalchanges
10926 } else {
10927 dohidelocalchanges
10928 }
10929 }
10932 # treediffs elements are limited by path;
10933 # won't have encodings cached if perfile_attrs was just turned on
10934 catch {unset treediffs}
10935 }
10938 redisplay
10941 reselectline
10942 }
10944 rereadrefs
10945 }
10946 }
10948 proc formatdate {d} {
10949 global datetimeformat
10952 }
10954 }
10956 # This list of encoding names and aliases is distilled from
10957 # http://www.iana.org/assignments/character-sets.
10958 # Not all of them are supported by Tcl.
10959 set encoding_aliases {
10960 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10961 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10962 { ISO-10646-UTF-1 csISO10646UTF1 }
10963 { ISO_646.basic:1983 ref csISO646basic1983 }
10964 { INVARIANT csINVARIANT }
10965 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10966 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10967 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10968 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10969 { NATS-DANO iso-ir-9-1 csNATSDANO }
10970 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10971 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10972 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10973 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10974 { ISO-2022-KR csISO2022KR }
10975 { EUC-KR csEUCKR }
10976 { ISO-2022-JP csISO2022JP }
10977 { ISO-2022-JP-2 csISO2022JP2 }
10978 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10979 csISO13JISC6220jp }
10980 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10981 { IT iso-ir-15 ISO646-IT csISO15Italian }
10982 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10983 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10984 { greek7-old iso-ir-18 csISO18Greek7Old }
10985 { latin-greek iso-ir-19 csISO19LatinGreek }
10986 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10987 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10988 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10989 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10990 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10991 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10992 { INIS iso-ir-49 csISO49INIS }
10993 { INIS-8 iso-ir-50 csISO50INIS8 }
10994 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10995 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10996 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10997 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10998 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10999 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11000 csISO60Norwegian1 }
11001 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11002 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11003 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11004 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11005 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11006 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11007 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11008 { greek7 iso-ir-88 csISO88Greek7 }
11009 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11010 { iso-ir-90 csISO90 }
11011 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11012 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11013 csISO92JISC62991984b }
11014 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11015 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11016 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11017 csISO95JIS62291984handadd }
11018 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11019 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11020 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11021 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11022 CP819 csISOLatin1 }
11023 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11024 { T.61-7bit iso-ir-102 csISO102T617bit }
11025 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11026 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11027 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11028 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11029 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11030 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11031 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11032 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11033 arabic csISOLatinArabic }
11034 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11035 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11036 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11037 greek greek8 csISOLatinGreek }
11038 { T.101-G2 iso-ir-128 csISO128T101G2 }
11039 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11040 csISOLatinHebrew }
11041 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11042 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11043 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11044 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11045 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11046 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11047 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11048 csISOLatinCyrillic }
11049 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11050 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11051 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11052 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11053 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11054 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11055 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11056 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11057 { ISO_10367-box iso-ir-155 csISO10367Box }
11058 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11059 { latin-lap lap iso-ir-158 csISO158Lap }
11060 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11061 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11062 { us-dk csUSDK }
11063 { dk-us csDKUS }
11064 { JIS_X0201 X0201 csHalfWidthKatakana }
11065 { KSC5636 ISO646-KR csKSC5636 }
11066 { ISO-10646-UCS-2 csUnicode }
11067 { ISO-10646-UCS-4 csUCS4 }
11068 { DEC-MCS dec csDECMCS }
11069 { hp-roman8 roman8 r8 csHPRoman8 }
11070 { macintosh mac csMacintosh }
11071 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11072 csIBM037 }
11073 { IBM038 EBCDIC-INT cp038 csIBM038 }
11074 { IBM273 CP273 csIBM273 }
11075 { IBM274 EBCDIC-BE CP274 csIBM274 }
11076 { IBM275 EBCDIC-BR cp275 csIBM275 }
11077 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11078 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11079 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11080 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11081 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11082 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11083 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11084 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11085 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11086 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11087 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11088 { IBM437 cp437 437 csPC8CodePage437 }
11089 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11090 { IBM775 cp775 csPC775Baltic }
11091 { IBM850 cp850 850 csPC850Multilingual }
11092 { IBM851 cp851 851 csIBM851 }
11093 { IBM852 cp852 852 csPCp852 }
11094 { IBM855 cp855 855 csIBM855 }
11095 { IBM857 cp857 857 csIBM857 }
11096 { IBM860 cp860 860 csIBM860 }
11097 { IBM861 cp861 861 cp-is csIBM861 }
11098 { IBM862 cp862 862 csPC862LatinHebrew }
11099 { IBM863 cp863 863 csIBM863 }
11100 { IBM864 cp864 csIBM864 }
11101 { IBM865 cp865 865 csIBM865 }
11102 { IBM866 cp866 866 csIBM866 }
11103 { IBM868 CP868 cp-ar csIBM868 }
11104 { IBM869 cp869 869 cp-gr csIBM869 }
11105 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11106 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11107 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11108 { IBM891 cp891 csIBM891 }
11109 { IBM903 cp903 csIBM903 }
11110 { IBM904 cp904 904 csIBBM904 }
11111 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11112 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11113 { IBM1026 CP1026 csIBM1026 }
11114 { EBCDIC-AT-DE csIBMEBCDICATDE }
11115 { EBCDIC-AT-DE-A csEBCDICATDEA }
11116 { EBCDIC-CA-FR csEBCDICCAFR }
11117 { EBCDIC-DK-NO csEBCDICDKNO }
11118 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11119 { EBCDIC-FI-SE csEBCDICFISE }
11120 { EBCDIC-FI-SE-A csEBCDICFISEA }
11121 { EBCDIC-FR csEBCDICFR }
11122 { EBCDIC-IT csEBCDICIT }
11123 { EBCDIC-PT csEBCDICPT }
11124 { EBCDIC-ES csEBCDICES }
11125 { EBCDIC-ES-A csEBCDICESA }
11126 { EBCDIC-ES-S csEBCDICESS }
11127 { EBCDIC-UK csEBCDICUK }
11128 { EBCDIC-US csEBCDICUS }
11129 { UNKNOWN-8BIT csUnknown8BiT }
11130 { MNEMONIC csMnemonic }
11131 { MNEM csMnem }
11132 { VISCII csVISCII }
11133 { VIQR csVIQR }
11134 { KOI8-R csKOI8R }
11135 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11136 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11137 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11138 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11139 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11140 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11141 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11142 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11143 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11144 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11145 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11146 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11147 { IBM1047 IBM-1047 }
11148 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11149 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11150 { UNICODE-1-1 csUnicode11 }
11151 { CESU-8 csCESU-8 }
11152 { BOCU-1 csBOCU-1 }
11153 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11154 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11155 l8 }
11156 { ISO-8859-15 ISO_8859-15 Latin-9 }
11157 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11158 { GBK CP936 MS936 windows-936 }
11159 { JIS_Encoding csJISEncoding }
11160 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11161 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11162 EUC-JP }
11163 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11164 { ISO-10646-UCS-Basic csUnicodeASCII }
11165 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11166 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11167 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11168 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11169 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11170 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11171 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11172 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11173 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11174 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11175 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11176 { Ventura-US csVenturaUS }
11177 { Ventura-International csVenturaInternational }
11178 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11179 { PC8-Turkish csPC8Turkish }
11180 { IBM-Symbols csIBMSymbols }
11181 { IBM-Thai csIBMThai }
11182 { HP-Legal csHPLegal }
11183 { HP-Pi-font csHPPiFont }
11184 { HP-Math8 csHPMath8 }
11185 { Adobe-Symbol-Encoding csHPPSMath }
11186 { HP-DeskTop csHPDesktop }
11187 { Ventura-Math csVenturaMath }
11188 { Microsoft-Publishing csMicrosoftPublishing }
11189 { Windows-31J csWindows31J }
11190 { GB2312 csGB2312 }
11191 { Big5 csBig5 }
11192 }
11194 proc tcl_encoding {enc} {
11195 global encoding_aliases tcl_encoding_cache
11198 }
11199 set names [encoding names]
11204 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11207 }
11208 }
11213 # look through the aliases for one that tcl knows about
11219 }
11220 }
11222 }
11223 break
11224 }
11225 }
11226 set tclenc {}
11229 }
11232 }
11234 proc gitattr {path attr default} {
11235 global path_attr_cache
11238 } else {
11239 set r "unspecified"
11242 }
11244 }
11247 }
11249 }
11251 proc cache_gitattr {attr pathlist} {
11252 global path_attr_cache
11253 set newlist {}
11257 }
11258 }
11259 set lim 1000
11260 if {[tk windowingsystem] == "win32"} {
11261 # windows has a 32k limit on the arguments to a command...
11262 set lim 30
11263 }
11272 }
11274 }
11275 }
11276 }
11277 }
11278 }
11280 proc get_path_encoding {path} {
11281 global gui_encoding perfile_attrs
11287 }
11288 }
11290 }
11292 # First check that Tcl/Tk is recent enough
11293 if {[catch {package require Tk 8.4} err]} {
11294 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11295 Gitk requires at least Tcl/Tk 8.4." list
11296 exit 1
11297 }
11299 # defaults...
11300 set wrcomcmd "git diff-tree --stdin -p --pretty"
11302 set gitencoding {}
11303 catch {
11304 set gitencoding [exec git config --get i18n.commitencoding]
11305 }
11306 catch {
11307 set gitencoding [exec git config --get i18n.logoutputencoding]
11308 }
11310 set gitencoding "utf-8"
11311 }
11315 }
11317 set gui_encoding [encoding system]
11318 catch {
11319 set enc [exec git config --get gui.encoding]
11324 } else {
11326 }
11327 }
11328 }
11330 if {[tk windowingsystem] eq "aqua"} {
11331 set mainfont {{Lucida Grande} 9}
11332 set textfont {Monaco 9}
11333 set uifont {{Lucida Grande} 9 bold}
11334 } else {
11335 set mainfont {Helvetica 9}
11336 set textfont {Courier 9}
11337 set uifont {Helvetica 9 bold}
11338 }
11339 set tabstop 8
11340 set findmergefiles 0
11341 set maxgraphpct 50
11342 set maxwidth 16
11343 set revlistorder 0
11344 set fastdate 0
11345 set uparrowlen 5
11346 set downarrowlen 5
11347 set mingaplen 100
11348 set cmitmode "patch"
11349 set wrapcomment "none"
11350 set showneartags 1
11351 set hideremotes 0
11352 set maxrefs 20
11353 set maxlinelen 200
11354 set showlocalchanges 1
11355 set limitdiffs 1
11356 set datetimeformat "%Y-%m-%d %H:%M:%S"
11357 set autoselect 1
11358 set perfile_attrs 0
11359 set want_ttk 1
11361 if {[tk windowingsystem] eq "aqua"} {
11362 set extdifftool "opendiff"
11363 } else {
11364 set extdifftool "meld"
11365 }
11367 set colors {green red blue magenta darkgrey brown orange}
11368 if {[tk windowingsystem] eq "win32"} {
11369 set uicolor SystemButtonFace
11370 set bgcolor SystemWindow
11371 set fgcolor SystemButtonText
11372 set selectbgcolor SystemHighlight
11373 } else {
11374 set uicolor grey85
11375 set bgcolor white
11376 set fgcolor black
11377 set selectbgcolor gray85
11378 }
11379 set diffcolors {red "#00a000" blue}
11380 set diffcontext 3
11381 set ignorespace 0
11382 set markbgcolor "#e0e0ff"
11384 set circlecolors {white blue gray blue blue}
11386 # button for popping up context menus
11387 if {[tk windowingsystem] eq "aqua"} {
11388 set ctxbut <Button-2>
11389 } else {
11390 set ctxbut <Button-3>
11391 }
11393 ## For msgcat loading, first locate the installation location.
11394 if { [info exists ::env(GITK_MSGSDIR)] } {
11395 ## Msgsdir was manually set in the environment.
11396 set gitk_msgsdir $::env(GITK_MSGSDIR)
11397 } else {
11398 ## Let's guess the prefix from argv0.
11402 unset gitk_prefix
11403 }
11405 ## Internationalization (i18n) through msgcat and gettext. See
11406 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11407 package require msgcat
11408 namespace import ::msgcat::mc
11409 ## And eventually load the actual message catalog
11412 catch {source ~/.gitk}
11414 font create optionfont -family sans-serif -size -12
11417 eval font create mainfont [fontflags mainfont]
11418 eval font create mainfontbold [fontflags mainfont 1]
11421 eval font create textfont [fontflags textfont]
11422 eval font create textfontbold [fontflags textfont 1]
11425 eval font create uifont [fontflags uifont]
11429 setoptions
11431 # check that we can find a .git directory somewhere...
11432 if {[catch {set gitdir [gitdir]}]} {
11433 show_error {} . [mc "Cannot find a git repository here."]
11434 exit 1
11435 }
11438 exit 1
11439 }
11441 set selecthead {}
11442 set selectheadid {}
11444 set revtreeargs {}
11445 set cmdline_files {}
11446 set i 0
11447 set revtreeargscmd {}
11450 "" { }
11451 "--" {
11453 break
11454 }
11455 "--select-commit=*" {
11457 }
11458 "--argscmd=*" {
11460 }
11461 default {
11463 }
11464 }
11465 incr i
11466 }
11469 set selecthead {}
11470 }
11473 # no -- on command line, but some arguments (other than --argscmd)
11474 if {[catch {
11479 # Unfortunately git rev-parse doesn't produce an error when
11480 # something is both a revision and a filename. To be consistent
11481 # with git log and git rev-list, check revtreeargs for filenames.
11484 show_error {} . [mc "Ambiguous argument '%s': both revision\
11486 exit 1
11487 }
11488 }
11489 } err]} {
11491 # so look for "fatal:".
11495 }
11497 exit 1
11498 }
11499 }
11501 set nullid "0000000000000000000000000000000000000000"
11502 set nullid2 "0000000000000000000000000000000000000001"
11503 set nullfile "/dev/null"
11506 if {![info exists have_ttk]} {
11507 set have_ttk [llength [info commands ::ttk::style]]
11508 }
11512 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11514 set runq {}
11515 set history {}
11516 set historyindex 0
11517 set fh_serial 0
11518 set nhl_names {}
11519 set highlight_paths {}
11520 set findpattern {}
11521 set searchdirn -forwards
11522 set boldids {}
11523 set boldnameids {}
11524 set diffelide {0 0}
11525 set markingmatches 0
11526 set linkentercount 0
11527 set need_redisplay 0
11528 set nrows_drawn 0
11529 set firsttabstop 0
11531 set nextviewnum 1
11532 set curview 0
11533 set selectedview 0
11534 set selectedhlview [mc "None"]
11535 set highlight_related [mc "None"]
11536 set highlight_files {}
11537 set viewfiles(0) {}
11538 set viewperm(0) 0
11539 set viewargs(0) {}
11540 set viewargscmd(0) {}
11542 set selectedline {}
11543 set numcommits 0
11544 set loginstance 0
11545 set cmdlineok 0
11546 set stopped 0
11547 set stuffsaved 0
11548 set patchnum 0
11549 set lserial 0
11550 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11551 setcoords
11552 makewindow
11553 catch {
11554 image create photo gitlogo -width 16 -height 16
11556 image create photo gitlogominus -width 4 -height 2
11557 gitlogominus put #C00000 -to 0 0 4 2
11558 gitlogo copy gitlogominus -to 1 5
11559 gitlogo copy gitlogominus -to 6 5
11560 gitlogo copy gitlogominus -to 11 5
11561 image delete gitlogominus
11563 image create photo gitlogoplus -width 4 -height 4
11564 gitlogoplus put #008000 -to 1 0 3 4
11565 gitlogoplus put #008000 -to 0 1 4 3
11566 gitlogo copy gitlogoplus -to 1 9
11567 gitlogo copy gitlogoplus -to 6 9
11568 gitlogo copy gitlogoplus -to 11 9
11569 image delete gitlogoplus
11571 image create photo gitlogo32 -width 32 -height 32
11572 gitlogo32 copy gitlogo -zoom 2 2
11574 wm iconphoto . -default gitlogo gitlogo32
11575 }
11576 # wait for the window to become visible
11577 tkwait visibility .
11579 update
11580 readrefs
11583 # create a view for the files/dirs specified on the command line
11584 set curview 1
11585 set selectedview 1
11586 set nextviewnum 2
11587 set viewname(1) [mc "Command line"]
11591 set viewperm(1) 0
11592 set vdatemode(1) 0
11593 addviewmenu 1
11594 .bar.view entryconf [mca "Edit view..."] -state normal
11595 .bar.view entryconf [mca "Delete view"] -state normal
11596 }
11598 if {[info exists permviews]} {
11601 incr nextviewnum
11608 }
11609 }
11611 if {[tk windowingsystem] eq "win32"} {
11612 focus -force .
11613 }
11615 getcommits {}