| blob | c0f38adb9b3774f00cc1f0810589b5906cea8d77 |
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
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 }
214 # Other flag arguments including -<n>
218 # a flag argument that we don't recognize;
219 # that means we can't optimize
221 }
222 lappend glflags $arg
223 }
224 default {
225 # Non-flag arguments specify commits or ranges of commits
227 lappend revargs --gitk-symmetric-diff-marker
228 }
229 lappend revargs $arg
230 }
231 }
232 }
239 }
242 global vposids vnegids
245 set revs HEAD
246 }
248 # we get stdout followed by stderr in $err
249 # for an unknown rev, git rev-parse echoes it and then errors out
262 }
265 }
266 break
267 }
268 lappend badrev $line
269 }
270 }
273 }
283 lappend ret $id
286 }
287 }
291 lappend ret $id
294 }
295 lappend pos $id
296 }
297 incr sdm -1
298 }
302 }
304 # Start off a git log process and arrange to read its output
306 global startmsecs commitidx viewcomplete curview
307 global tclencoding
308 global viewargs viewargscmd viewfiles vfilelimit
309 global showlocalchanges
310 global viewactive viewinstances vmergeonly
311 global mainheadid viewmainheadid viewmainheadid_orig
312 global vcanopt vflags vrevs vorigargs
316 # these are set this way for the error exits
319 varcinit $view
328 }
330 }
337 global nr_unmerged
344 }
346 }
347 }
354 }
358 }
366 }
372 get_viewmainhead $view
373 }
376 }
380 }
386 }
389 global commfd leftover
392 catch {
399 }
400 }
402 nukefile $fd
405 }
407 proc stop_backends {} {
408 global commfd
411 stop_instance $inst
412 }
413 }
416 global viewinstances
419 stop_instance $inst
420 }
422 }
425 global pending_select mainheadid selectheadid
433 }
434 }
437 global canv curview need_redisplay viewactive
439 initlayout
441 reset_pending_select $selid
446 }
447 }
449 proc updatecommits {} {
450 global curview vcanopt vorigargs vfilelimit viewinstances
451 global viewactive viewcomplete tclencoding
452 global startmsecs showneartags showlocalchanges
453 global mainheadid viewmainheadid viewmainheadid_orig pending_select
454 global isworktree
455 global varcid vposids vnegids vflags vrevs
458 rereadrefs
462 dohidelocalchanges
463 }
467 get_viewmainhead $view
468 }
469 }
471 doshowlocalchanges
472 }
478 return
479 }
480 # note: getting the delta when negative refs change is hard,
481 # and could require multiple git log invocations, so in that
482 # case we ask git log for all the commits (not just the delta)
486 # take out positive refs that we asked for before or
487 # that we have already seen
492 lappend newrevs $rev
493 incr npos
494 }
496 lappend $newrevs $rev
497 }
498 }
502 }
506 }
512 return
513 }
516 }
522 }
526 reset_pending_select {}
529 getallcommits
530 }
531 }
533 proc reloadcommits {} {
534 global curview viewcomplete selectedline currentid thickerline
535 global showneartags treediffs commitinterest cached_commitrow
536 global targetid
541 }
544 stop_rev_list $curview
545 }
546 resetvarcs $curview
551 readrefs
552 changedrefs
554 getallcommits
555 }
556 clear_display
560 setcanvscroll
561 getcommits $selid
563 }
565 # This makes a string representation of a positive integer which
566 # sorts as a string in numerical order
574 }
576 }
578 # Procedures used in reordering commits from git log (without
579 # --topo-order) into the order for display.
582 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
583 global vtokmod varcmod vrowmod varcix vlastins
597 }
600 global varcid varccommits parents children vseedcount ordertok
606 }
607 # some commits might have children but haven't been seen yet
610 }
613 }
616 }
618 }
620 # returns a list of the commits with no children
622 global vdownptr vleftptr varcstart
629 }
631 }
634 global varcid varctok parents children vdatemode
635 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
636 global commitdata commitinfo vseedcount varccommits vlastins
643 }
647 }
650 }
656 }
665 }
666 }
671 }
678 }
682 }
689 }
695 }
704 }
707 global varcid varcstart varccommits varctok vtokmod
708 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
716 # "%" sorts before "0"...
726 }
736 }
738 modify_arc $v $oa
739 }
740 }
743 global parents children varctok varcstart varccommits
744 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
753 lappend todo $a
758 }
759 }
760 }
761 incr ntot
768 }
769 }
771 }
778 }
784 }
793 }
794 }
799 }
801 continue
802 }
809 }
810 }
815 modify_arc $v $ka
816 }
818 modify_arc $v $b
819 }
826 }
829 }
832 }
841 }
846 }
853 }
857 }
859 }
860 }
865 }
866 }
868 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
869 }
871 # Fix up the graph after we have found out that in view $v,
872 # $p (a commit that we have already seen) is actually the parent
873 # of the last commit in arc $a.
875 global varcid varcstart varctok vupptr
879 splitvarc $p $v
881 }
882 # seeds always need to be renumbered
886 renumbervarc $pa $v
887 }
888 }
891 global cmitlisted children parents varcid varctok vtokmod
892 global varccommits ordertok commitidx numcommits curview
893 global targetid targetrow
895 readcommit $id
903 modify_arc $v $a
904 }
910 }
911 fix_reversal $p $a $v
915 setcanvscroll
918 incr targetrow
919 }
920 }
921 }
922 }
925 global varcid varccommits parents children cmitlisted
926 global commitidx varctok vtokmod targetid targetrow curview numcommits
933 return
934 }
941 # note we deliberately don't update varcstart($v) even if $i == 0
943 modify_arc $v $a $i
946 incr targetrow
947 }
948 }
949 setcanvscroll
950 drawvisible
951 }
954 global varcid varccommits parents children commitidx
955 global varctok vtokmod cmitlisted currentid selectedline
956 global targetid curview numcommits
961 return
962 }
968 return
969 }
979 }
980 modify_arc $v $a $i
982 unset currentid
984 }
987 }
988 setcanvscroll
989 drawvisible
990 }
993 global children nullid nullid2
998 lappend kids $id
999 }
1000 }
1002 }
1005 global children nullid nullid2
1010 }
1011 }
1013 }
1016 global children nullid nullid2
1023 }
1024 }
1026 }
1029 global varctok varcid
1033 }
1035 # This assumes that if lim is not given, the caller has checked that
1036 # arc a's token is less than $vtokmod($v)
1038 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1046 }
1047 }
1054 }
1059 }
1061 }
1063 undolayout $r
1064 }
1065 }
1068 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1069 global varcid vrownum varcorder varcix varccommits
1070 global vupptr vdownptr vleftptr varctok
1071 global displayorder parentlist curview cached_commitrow
1078 }
1080 }
1084 # go up the tree until we find something that has a row number,
1085 # or we get to a seed
1087 }
1102 }
1104 }
1108 # go down if possible
1111 # if not, go left, or go up until we can go left
1116 }
1118 }
1120 incr arcn
1125 }
1131 }
1132 }
1134 # Test whether view $v contains commit $id
1136 global varcid
1139 }
1141 # Return the row number for commit $id in the current view
1143 global varcid varccommits varcrow curview cached_commitrow
1144 global varctok vtokmod
1150 }
1153 update_arcrows $v
1154 }
1157 }
1162 }
1166 }
1168 # Returns 1 if a is on an earlier row than b, otherwise 0
1170 global varcid varctok curview
1176 }
1180 }
1182 }
1187 }
1199 }
1200 }
1202 }
1204 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1206 global vrownum curview commitidx displayorder parentlist
1207 global varccommits varcorder parents vrowmod varcrow
1208 global d_valid_start d_valid_end
1211 update_arcrows $curview
1212 }
1228 }
1230 lappend displayorder $id
1232 }
1236 lset displayorder $i $id
1238 incr i
1239 }
1240 }
1241 incr r $al
1242 }
1243 }
1246 global displayorder
1252 }
1254 }
1257 global varctok varccommits varcid parents children
1258 global cmitlisted commitidx vtokmod
1267 # add p as a new commit
1268 incr missing_parents
1276 }
1279 modify_arc $v $b
1280 }
1284 }
1285 }
1289 }
1290 }
1291 }
1293 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1294 # Assumes we already have an arc for $rwid.
1296 global children parents varcid varctok vtokmod varccommits
1299 # make $rwid be $ch's parent in place of $id
1303 }
1305 # add $ch to $rwid's children and sort the list if necessary
1309 }
1310 # fix the graph after joining $id to $rwid
1312 fix_reversal $rwid $a $v
1313 # parentlist is wrong for the last element of arc $a
1314 # even if displayorder is right, hence the 3rd arg here
1316 }
1317 }
1319 # Mechanism for registering a command to be executed when we come
1320 # across a particular commit. To handle the case when only the
1321 # prefix of the commit is known, the commitinterest array is now
1322 # indexed by the first 4 characters of the ID. Each element is a
1323 # list of id, cmd pairs.
1325 global commitinterest
1328 }
1331 global commitinterest
1340 lappend newlist $i $script
1341 }
1342 }
1347 }
1348 }
1350 }
1353 global cmitlisted leftover
1354 global commitidx commitdata vdatemode
1355 global parents children curview hlview
1356 global idpending ordertok
1357 global varccommits varcid varctok vtokmod vfilelimit
1360 # git log doesn't terminate the last commit with a null...
1363 }
1367 }
1368 global commfd viewcomplete viewactive viewname
1369 global viewinstances
1374 }
1375 # set it blocking so we wait for the process to terminate
1381 }
1384 bad arguments to git log."
1386 append err \
1387 " (Note: arguments to gitk are passed to git log\
1388 to allow selection of commits to be displayed.)"
1389 }
1392 }
1393 error_popup $err
1394 }
1397 # Check if we have seen any ids listed as parents that haven't
1398 # appeared in the list
1399 closevarcs $view
1400 notbusy $view
1401 }
1403 run chewcommits
1404 }
1406 }
1414 break
1415 }
1422 }
1435 }
1437 }
1442 break
1443 }
1444 }
1445 }
1450 }
1452 exit 1
1453 }
1460 # when doing path limiting, so work around that here
1461 # by working out the rewritten parent with git rev-list
1462 # and if we already know about it, using the rewritten
1463 # parent as a substitute parent for $id's children.
1467 }]} {
1469 # use $rwid in place of $id
1470 rewrite_commit $view $id $rwid
1471 continue
1472 }
1473 }
1474 }
1480 }
1485 }
1497 }
1498 }
1500 # new arc
1502 }
1504 modify_arc $view $a
1505 }
1510 }
1521 }
1523 fix_reversal $p $a $view
1524 }
1525 }
1526 incr i
1527 }
1531 }
1533 global numcommits hlview
1537 run chewcommits
1538 }
1540 # we never actually get here...
1541 run vhighlightmore
1542 }
1545 }
1546 }
1548 }
1550 proc chewcommits {} {
1551 global curview hlview viewcomplete
1552 global pending_select
1554 layoutmore
1556 global commitidx varctok
1557 global numcommits startmsecs
1560 update
1561 reset_pending_select {}
1568 }
1569 }
1571 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1572 #puts "overall $ms ms for $numcommits commits"
1573 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1576 }
1577 notbusy layout
1578 }
1580 }
1583 global tclencoding
1585 # Invoke git-log to handle automatic encoding conversion
1587 # Read the results using i18n.logoutputencoding
1591 }
1593 close $fd
1594 # Remove the heading line
1598 }
1603 }
1606 global commitinfo cdate
1617 # should never happen...
1619 }
1631 }
1632 }
1634 # take the first non-blank line of the comment as the headline
1639 }
1644 }
1646 # git log indents the comment by 4 spaces;
1647 # if we got this via git cat-file, add the indentation
1650 append newcomment " "
1651 append newcomment $line
1653 }
1655 }
1658 }
1661 }
1664 global commitdata commitinfo
1669 readcommit $id
1672 }
1673 }
1675 }
1677 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1678 # and are present in the current view.
1679 # This is fairly slow...
1681 global varcid curview
1686 }
1688 }
1690 proc readrefs {} {
1691 global tagids idtags headids idheads tagobjid
1692 global otherrefids idotherrefs mainhead mainheadid
1693 global selecthead selectheadid
1694 global hideremotes
1698 }
1710 }
1716 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1717 # which is what we want since the former is the commit ID
1723 }
1729 }
1730 }
1734 catch {
1739 }
1740 }
1743 catch {
1745 }
1746 }
1747 }
1749 # skip over fake commits
1750 proc first_real_row {} {
1751 global nullid nullid2 numcommits
1756 break
1757 }
1758 }
1760 }
1762 # update things for a head moved to a child of its previous location
1764 global headids idheads
1769 }
1771 # update things when a head has been removed
1773 global headids idheads
1781 }
1782 }
1784 }
1787 global use_ttk
1791 }
1793 }
1796 global have_tk85
1798 # In MacOS Tk 8.4 transient appears to work by setting
1799 # overrideredirect, which is utterly useless, since the
1800 # windows get no border, and are not even kept above
1801 # the parent.
1804 wm transient $window $origin
1806 # Windows fails to place transient windows normally, so
1807 # schedule a callback to center them on the parent.
1810 }
1811 }
1814 global NS
1825 tkwait window $top
1826 }
1833 set w .error
1834 ttk_toplevel $w
1835 make_transient $w $owner
1836 show_error $w $w $msg
1837 }
1838 }
1841 global confirm_ok NS
1843 set w .confirm
1844 ttk_toplevel $w
1845 make_transient $w $owner
1857 tkwait window $w
1859 }
1861 proc setoptions {} {
1864 option add *Panedwindow.sashRelief raised startupFile
1866 option add *Menu.font uifont startupFile
1867 }
1870 }
1871 option add *Button.font uifont startupFile
1872 option add *Checkbutton.font uifont startupFile
1873 option add *Radiobutton.font uifont startupFile
1874 option add *Menubutton.font uifont startupFile
1875 option add *Label.font uifont startupFile
1876 option add *Message.font uifont startupFile
1877 option add *Entry.font uifont startupFile
1878 option add *Labelframe.font uifont startupFile
1879 }
1881 # Make a menu and submenus.
1882 # m is the window name for the menu, items is the list of menu items to add.
1883 # Each item is a list {mc label type description options...}
1884 # mc is ignored; it's so we can put mc there to alert xgettext
1885 # label is the string that appears in the menu
1886 # type is cascade, command or radiobutton (should add checkbutton)
1887 # description depends on type; it's the sublist for cascade, the
1888 # command to invoke for command, or {variable value} for radiobutton
1890 menu $m
1892 set Meta1 Cmd
1894 set Meta1 Ctrl
1895 }
1906 }
1907 }
1912 }
1915 }
1919 }
1920 }
1926 }
1927 }
1928 }
1930 # translate string and remove ampersands
1933 }
1936 global use_ttk
1942 }
1947 }
1949 }
1951 proc makewindow {} {
1952 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1953 global tabstop
1954 global findtype findtypemenu findloc findstring fstring geometry
1955 global entries sha1entry sha1string sha1but
1956 global diffcontextstring diffcontext
1957 global ignorespace
1958 global maincursor textcursor curtextcursor
1959 global rowctxmenu fakerowmenu mergemax wrapcomment
1960 global highlight_files gdttype
1961 global searchstring sstring
1962 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1963 global headctxmenu progresscanv progressitem progresscoords statusw
1964 global fprogitem fprogcoord lastprogupdate progupdatepending
1965 global rprogitem rprogcoord rownumsel numcommits
1966 global have_tk85 use_ttk NS
1968 # The "mc" arguments here are purely so that xgettext
1969 # sees the following string as needing to be translated
1980 }}
1984 }}
1992 }}
1998 }}
2008 }}
2012 }}
2014 }
2015 makemenu .bar $bar
2016 . configure -menu .bar
2019 # cover the non-themed toplevel with a themed frame.
2021 }
2023 # the gui has upper and lower half, parts of a paned window.
2026 # possibly use assumed geometry
2034 }
2036 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2042 }
2044 # create three canvases
2045 set cscroll .tf.histframe.csb
2046 set canv .tf.histframe.pwclist.canv
2047 canvas $canv \
2051 .tf.histframe.pwclist add $canv
2052 set canv2 .tf.histframe.pwclist.canv2
2053 canvas $canv2 \
2056 .tf.histframe.pwclist add $canv2
2057 set canv3 .tf.histframe.pwclist.canv3
2058 canvas $canv3 \
2061 .tf.histframe.pwclist add $canv3
2067 }
2071 }
2073 # a scroll bar to rule them
2078 lappend bglist $canv $canv2 $canv3
2081 # we have two button bars at bottom of top frame. Bar 1
2085 set sha1entry .tf.bar.sha1
2087 set sha1but .tf.bar.sha1label
2091 pack .tf.bar.sha1label -side left
2093 trace add variable sha1string write sha1change
2097 #define left_width 16
2098 #define left_height 16
2099 static unsigned char left_bits[] = {
2103 }
2105 #define right_width 16
2106 #define right_height 16
2107 static unsigned char right_bits[] = {
2111 }
2126 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2127 -side left
2130 }
2131 global selectedline
2132 trace add variable selectedline write selectedline_change
2134 # Status label and progress bar
2135 set statusw .tf.bar.status
2142 set progresscanv .tf.bar.progress
2147 }
2156 # build up the bottom bar of upper window
2161 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2168 trace add variable gdttype write gdttype_change
2172 set fstring .tf.lbar.findstring
2173 lappend entries $fstring
2175 trace add variable findstring write find_change
2179 trace add variable findtype write findcom_change
2183 trace add variable findloc write find_change
2184 pack .tf.lbar.findloc -side right
2185 pack .tf.lbar.findtype -side right
2188 # Finish putting the upper half of the viewer together
2192 .ctop add .tf
2196 }
2198 # now build up the bottom
2201 # lower left, a text box over search bar, scroll bar to the right
2202 # if we know window height, then that will set the lower text height, otherwise
2203 # we set lower text height which will drive window height
2208 }
2215 set sstring .bleft.top.sstring
2218 lappend entries $sstring
2219 trace add variable searchstring write incrsearch
2232 -textvariable diffcontextstring
2234 trace add variable diffcontextstring write diffcontextchange
2235 lappend entries .bleft.mid.diffcontext
2236 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2240 set ctext .bleft.bottom.ctext
2247 }
2253 grid .bleft.bottom.sbhorizontal -sticky ew
2258 lappend bglist $ctext
2259 lappend fglist $ctext
2288 .pwbottom add .bleft
2291 }
2293 # lower right
2302 set cflist .bright.cfiles
2304 text $cflist \
2307 -font mainfont \
2312 lappend bglist $cflist
2313 lappend fglist $cflist
2317 $cflist tag configure highlight \
2321 .pwbottom add .bright
2322 .ctop add .pwbottom
2324 # restore window width & height if known
2329 }
2332 }
2334 }
2335 }
2339 }
2342 set M1B M1
2345 set M1B Control
2347 }
2353 }
2357 }
2358 }
2363 #bindall <B1-Motion> {selcanvline %W %x %y}
2373 allcanvs yview scroll $delta units
2374 }
2378 }
2379 }
2380 }
2402 bindkey p "selnextline -1"
2403 bindkey n "selnextline 1"
2404 bindkey z "goback"
2405 bindkey x "goforw"
2406 bindkey i "selnextline -1"
2407 bindkey k "selnextline 1"
2408 bindkey j "goback"
2409 bindkey l "goforw"
2410 bindkey b prevfile
2417 bindkey f nextfile
2434 wm protocol . WM_DELETE_WINDOW doquit
2443 global ctxbut
2447 set maincursor [. cget -cursor]
2451 set rowctxmenu .rowctxmenu
2453 {mc "Diff this -> selected" command {diffvssel 0}}
2454 {mc "Diff selected -> this" command {diffvssel 1}}
2455 {mc "Make patch" command mkpatch}
2456 {mc "Create tag" command mktag}
2457 {mc "Write commit to file" command writecommit}
2458 {mc "Create new branch" command mkbranch}
2459 {mc "Cherry-pick this commit" command cherrypick}
2460 {mc "Reset HEAD branch to here" command resethead}
2461 {mc "Mark this commit" command markhere}
2462 {mc "Return to mark" command gotomark}
2463 {mc "Find descendant of this and mark" command find_common_desc}
2464 {mc "Compare with marked commit" command compare_commits}
2465 }
2468 set fakerowmenu .fakerowmenu
2470 {mc "Diff this -> selected" command {diffvssel 0}}
2471 {mc "Diff selected -> this" command {diffvssel 1}}
2472 {mc "Make patch" command mkpatch}
2473 }
2476 set headctxmenu .headctxmenu
2478 {mc "Check out this branch" command cobranch}
2479 {mc "Remove this branch" command rmbranch}
2480 }
2483 global flist_menu
2484 set flist_menu .flistctxmenu
2486 {mc "Highlight this too" command {flist_hl 0}}
2487 {mc "Highlight this only" command {flist_hl 1}}
2488 {mc "External diff" command {external_diff}}
2489 {mc "Blame parent commit" command {external_blame 1}}
2490 }
2493 global diff_menu
2494 set diff_menu .diffctxmenu
2496 {mc "Show origin of this line" command show_line_source}
2497 {mc "Run git gui blame on this line" command {external_blame_diff}}
2498 }
2500 }
2502 # Windows sends all mouse wheel events to the current focused window, not
2503 # the one where the mouse hovers, so bind those events here and redirect
2504 # to the correct window
2505 proc windows_mousewheel_redirector {W X Y D} {
2506 global canv canv2 canv3
2512 } else {
2513 catch {
2515 }
2516 }
2517 }
2518 }
2520 # Update row number label when selectedline changes
2521 proc selectedline_change {n1 n2 op} {
2522 global selectedline rownumsel
2525 set rownumsel {}
2526 } else {
2528 }
2529 }
2531 # mouse-2 makes all windows scan vertically, but only the one
2532 # the cursor is in scans horizontally
2533 proc canvscan {op w x y} {
2534 global canv canv2 canv3
2538 } else {
2540 }
2541 }
2542 }
2544 proc scrollcanv {cscroll f0 f1} {
2546 drawvisible
2547 flushhighlights
2548 }
2550 # when we make a key binding for the toplevel, make sure
2551 # it doesn't get triggered when that key is pressed in the
2552 # find string entry widget.
2553 proc bindkey {ev script} {
2554 global entries
2558 set escript [bind Entry <Key>]
2559 }
2562 }
2563 }
2565 # set the focus back to the toplevel for any click outside
2566 # the entry widgets
2567 proc click {w} {
2568 global ctext entries
2571 }
2572 focus .
2573 }
2575 # Adjust the progress bar for a change in requested extent or canvas size
2576 proc adjustprogress {} {
2577 global progresscanv progressitem progresscoords
2578 global fprogitem fprogcoord lastprogupdate progupdatepending
2579 global rprogitem rprogcoord use_ttk
2583 return
2584 }
2593 set now [clock clicks -milliseconds]
2595 set progupdatepending 0
2596 update
2598 set progupdatepending 1
2600 }
2601 }
2603 proc doprogupdate {} {
2604 global lastprogupdate progupdatepending
2607 set progupdatepending 0
2608 set lastprogupdate [clock clicks -milliseconds]
2609 update
2610 }
2611 }
2613 proc savestuff {w} {
2614 global canv canv2 canv3 mainfont textfont uifont tabstop
2615 global stuffsaved findmergefiles maxgraphpct
2616 global maxwidth showneartags showlocalchanges
2617 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2618 global cmitmode wrapcomment datetimeformat limitdiffs
2619 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2620 global autoselect extdifftool perfile_attrs markbgcolor use_ttk
2621 global hideremotes want_ttk
2624 if {![winfo viewable .]} return
2625 catch {
2626 set f [open "~/.gitk-new" w]
2627 if {$::tcl_platform(platform) eq {windows}} {
2628 file attributes "~/.gitk-new" -hidden true
2629 }
2663 } else {
2666 }
2674 }
2675 }
2678 file rename -force "~/.gitk-new" "~/.gitk"
2679 }
2680 set stuffsaved 1
2681 }
2683 proc resizeclistpanes {win w} {
2684 global oldwidth use_ttk
2689 } else {
2692 }
2696 } else {
2701 set sash0 30
2702 }
2705 }
2710 }
2711 }
2712 }
2716 } else {
2719 }
2720 }
2722 }
2724 proc resizecdetpanes {win w} {
2725 global oldwidth use_ttk
2729 } else {
2731 }
2734 } else {
2738 set sash0 45
2739 }
2742 }
2743 }
2746 } else {
2748 }
2749 }
2751 }
2753 proc allcanvs args {
2754 global canv canv2 canv3
2758 }
2760 proc bindall {event action} {
2761 global canv canv2 canv3
2765 }
2767 proc about {} {
2768 global uifont NS
2769 set w .about
2772 return
2773 }
2778 Gitk - a commit viewer for git
2780 Copyright \u00a9 2005-2009 Paul Mackerras
2782 Use and redistribute under the terms of the GNU General Public License"] \
2783 -justify center -aspect 400 -border 2 -bg white -relief groove
2791 }
2793 proc keys {} {
2794 global NS
2795 set w .keys
2798 return
2799 }
2800 if {[tk windowingsystem] eq {aqua}} {
2801 set M1T Cmd
2802 } else {
2803 set M1T Ctrl
2804 }
2809 [mc "Gitk key bindings:"]
2812 [mc "<Home> Move to first commit"]
2813 [mc "<End> Move to last commit"]
2814 [mc "<Up>, p, i Move up one commit"]
2815 [mc "<Down>, n, k Move down one commit"]
2816 [mc "<Left>, z, j Go back in history list"]
2817 [mc "<Right>, x, l Go forward in history list"]
2818 [mc "<PageUp> Move up one page in commit list"]
2819 [mc "<PageDown> Move down one page in commit list"]
2826 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2827 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2828 [mc "<Delete>, b Scroll diff view up one page"]
2829 [mc "<Backspace> Scroll diff view up one page"]
2830 [mc "<Space> Scroll diff view down one page"]
2831 [mc "u Scroll diff view up 18 lines"]
2832 [mc "d Scroll diff view down 18 lines"]
2835 [mc "<Return> Move to next find hit"]
2836 [mc "/ Focus the search box"]
2837 [mc "? Move to previous find hit"]
2838 [mc "f Scroll diff view to next file"]
2845 [mc "<F5> Update"]
2846 " \
2847 -justify left -bg white -border 2 -relief groove
2855 }
2857 # Procedures for manipulating the file list window at the
2858 # bottom right of the overall window.
2860 proc treeview {w l openlevs} {
2861 global treecontents treediropen treeheight treeparent treeindex
2863 set ix 0
2864 set treeindex() 0
2865 set lev 0
2866 set prefix {}
2867 set prefixend -1
2868 set prefendstack {}
2869 set htstack {}
2870 set ht 0
2871 set treecontents() {}
2878 }
2885 incr lev -1
2886 }
2890 set ht 0
2902 set ht 1
2907 set str "\n"
2915 }
2916 incr lev
2917 }
2920 incr ht
2921 set str "\n"
2925 }
2927 }
2928 }
2936 }
2938 }
2940 proc linetoelt {l} {
2941 global treeheight treecontents
2943 set y 2
2944 set prefix {}
2945 while {1} {
2949 }
2950 set n 1
2955 incr y
2956 break
2957 }
2958 }
2960 }
2961 }
2962 }
2964 proc highlight_tree {y prefix} {
2965 global treeheight treecontents cflist
2971 }
2972 incr y
2975 }
2976 }
2978 }
2980 proc treeclosedir {w dir} {
2981 global treediropen treeheight treeparent treeindex
2993 }
2994 }
2996 proc treeopendir {w dir} {
2997 global treediropen treeheight treeparent treecontents treeindex
3004 set lev 0
3005 set str "\n"
3008 incr lev
3009 append str "\t"
3011 }
3026 } else {
3029 }
3030 }
3043 }
3045 }
3046 }
3048 proc treeclick {w x y} {
3049 global treediropen cmitmode ctext cflist cflist_top
3052 if {![info exists cflist_top]} return
3059 return
3060 }
3066 } else {
3068 }
3069 }
3071 proc setfilelist {id} {
3072 global treefilelist cflist jump_to_here
3079 }
3080 }
3081 }
3083 image create bitmap tri-rt -background black -foreground blue -data {
3084 #define tri-rt_width 13
3085 #define tri-rt_height 13
3086 static unsigned char tri-rt_bits[] = {
3087 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3088 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3089 0x00, 0x00};
3090 } -maskdata {
3091 #define tri-rt-mask_width 13
3092 #define tri-rt-mask_height 13
3093 static unsigned char tri-rt-mask_bits[] = {
3094 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3095 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3096 0x08, 0x00};
3097 }
3098 image create bitmap tri-dn -background black -foreground blue -data {
3099 #define tri-dn_width 13
3100 #define tri-dn_height 13
3101 static unsigned char tri-dn_bits[] = {
3102 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3103 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3104 0x00, 0x00};
3105 } -maskdata {
3106 #define tri-dn-mask_width 13
3107 #define tri-dn-mask_height 13
3108 static unsigned char tri-dn-mask_bits[] = {
3109 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3110 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3111 0x00, 0x00};
3112 }
3114 image create bitmap reficon-T -background black -foreground yellow -data {
3115 #define tagicon_width 13
3116 #define tagicon_height 9
3117 static unsigned char tagicon_bits[] = {
3118 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3119 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3120 } -maskdata {
3121 #define tagicon-mask_width 13
3122 #define tagicon-mask_height 9
3123 static unsigned char tagicon-mask_bits[] = {
3124 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3125 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3126 }
3127 set rectdata {
3128 #define headicon_width 13
3129 #define headicon_height 9
3130 static unsigned char headicon_bits[] = {
3131 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3132 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3133 }
3134 set rectmask {
3135 #define headicon-mask_width 13
3136 #define headicon-mask_height 9
3137 static unsigned char headicon-mask_bits[] = {
3138 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3139 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3140 }
3141 image create bitmap reficon-H -background black -foreground green \
3143 image create bitmap reficon-o -background black -foreground "#ddddff" \
3146 proc init_flist {first} {
3147 global cflist cflist_top difffilestart
3153 set cflist_top 1
3155 } else {
3156 catch {unset cflist_top}
3157 }
3159 set difffilestart {}
3160 }
3162 proc highlight_tag {f} {
3163 global highlight_paths
3167 return "bold"
3168 }
3169 }
3170 return {}
3171 }
3173 proc highlight_filelist {} {
3174 global cmitmode cflist
3183 }
3184 }
3185 } else {
3186 highlight_tree 2 {}
3187 }
3189 }
3191 proc unhighlight_filelist {} {
3192 global cflist
3197 }
3199 proc add_flist {fl} {
3200 global cflist
3206 }
3208 }
3210 proc sel_flist {w x y} {
3211 global ctext difffilestart cflist cflist_top cmitmode
3214 if {![info exists cflist_top]} return
3221 } else {
3223 }
3224 }
3226 proc pop_flist_menu {w X Y x y} {
3227 global ctext cflist cmitmode flist_menu flist_menu_file
3228 global treediffs diffids
3230 stopfinding
3236 } else {
3238 }
3240 set xdiffstate "normal"
3242 set xdiffstate "disabled"
3243 }
3244 # Disable "External diff" item in tree mode
3247 }
3249 proc find_ctext_fileinfo {line} {
3250 global ctext_file_names ctext_file_lines
3256 return {}
3257 } else {
3259 }
3260 }
3262 proc pop_diff_menu {w X Y x y} {
3263 global ctext diff_menu flist_menu_file
3264 global diff_menu_txtpos diff_menu_line
3265 global diff_menu_filebase
3269 # don't pop up the menu on hunk-separator or file-separator lines
3271 return
3272 }
3273 stopfinding
3279 }
3281 proc flist_hl {only} {
3282 global flist_menu_file findstring gdttype
3287 } else {
3289 }
3290 set gdttype [mc "touching paths:"]
3291 }
3293 proc gitknewtmpdir {} {
3294 global diffnum gitktmpdir gitdir
3296 if {![info exists gitktmpdir]} {
3298 [format ".gitk-tmp.%s" [pid]]]
3301 unset gitktmpdir
3302 return {}
3303 }
3304 set diffnum 0
3305 }
3306 incr diffnum
3310 return {}
3311 }
3313 }
3315 proc save_file_from_commit {filename output what} {
3316 global nullfile
3321 }
3323 return {}
3324 }
3326 }
3328 proc external_diff_get_one_file {diffid filename diffdir} {
3329 global nullid nullid2 nullfile
3330 global gitdir
3336 }
3338 }
3342 }
3346 }
3348 proc external_diff {} {
3349 global nullid nullid2
3350 global flist_menu_file
3351 global diffids
3352 global extdifftool
3355 # no reference commit given
3358 # diffing working copy with index
3361 # diffing index with HEAD
3362 set diffidfrom "HEAD"
3363 } else {
3364 # use first parent commit
3365 global parentlist selectedline
3367 }
3368 } else {
3371 }
3373 # make sure that several diffs wont collide
3374 set diffdir [gitknewtmpdir]
3377 # gather files to diff
3386 } else {
3389 }
3390 }
3391 }
3393 proc find_hunk_blamespec {base line} {
3394 global ctext
3396 # Find and parse the hunk header
3402 s_line old_specs osz osz1 new_line nsz]} {
3403 return
3404 }
3406 # base lines for the parents
3410 old_spec old_line osz]} {
3411 return
3412 }
3414 }
3416 # Now scan the lines to determine offset within the hunk
3418 set dline 0
3421 # Determine if the line is removed
3425 # Choose a parent index
3428 } else {
3432 } else {
3433 # blame the current commit
3434 set parent -1
3435 }
3436 }
3437 # then count other lines that belong to it
3440 # Determine if the line is removed
3445 incr dline
3446 }
3447 } else {
3449 incr dline
3450 }
3451 }
3452 }
3453 incr parent
3454 } else {
3455 set parent 0
3456 }
3460 }
3462 proc external_blame_diff {} {
3463 global currentid cmitmode
3464 global diff_menu_txtpos diff_menu_line
3465 global diff_menu_filebase flist_menu_file
3468 set parent_idx 0
3470 } else {
3475 } else {
3476 set parent_idx 0
3477 set line 0
3478 }
3479 }
3482 }
3485 # at stage 0 or 2
3486 proc index_sha1 {fname} {
3494 }
3495 }
3497 return {}
3498 }
3500 # Turn an absolute path into one relative to the current directory
3501 proc make_relative {f} {
3503 set here [file split [pwd]]
3504 set ei 0
3505 set hi 0
3506 set res {}
3509 lappend res ".."
3510 } else {
3511 incr ei
3512 }
3513 incr hi
3514 }
3517 }
3519 proc external_blame {parent_idx {line {}}} {
3520 global flist_menu_file gitdir
3521 global nullid nullid2
3522 global parentlist selectedline currentid
3526 } else {
3528 }
3531 error_popup [mc "No such commit"]
3532 return
3533 }
3535 set cmdline [list git gui blame]
3538 }
3540 # Unfortunately it seems git gui blame doesn't like
3541 # being given an absolute path...
3546 }
3547 }
3549 proc show_line_source {} {
3550 global cmitmode currentid parents curview blamestuff blameinst
3551 global diff_menu_line diff_menu_filebase flist_menu_file
3552 global nullid nullid2 gitdir
3554 set from_index {}
3558 } else {
3564 return
3565 }
3566 incr pi -1
3569 # must be a merge in progress...
3570 if {[catch {
3571 # get the last line from .git/MERGE_HEAD
3575 } err]} {
3577 return
3578 }
3580 # need to do the blame from the index
3581 if {[catch {
3583 } err]} {
3585 return
3586 }
3587 } else {
3589 }
3590 } else {
3592 }
3594 }
3595 set blameargs {}
3598 }
3601 lappend blameargs --contents -
3602 } else {
3604 }
3606 if {[catch {
3608 } err]} {
3610 return
3611 }
3612 nowbusy blaming [mc "Searching"]
3618 }
3620 proc stopblaming {} {
3621 global blameinst
3623 if {[info exists blameinst]} {
3625 unset blameinst
3626 notbusy blaming
3627 }
3628 }
3630 proc read_line_source {fd inst} {
3631 global blamestuff curview commfd blameinst nullid nullid2
3635 }
3637 return 1
3638 }
3640 unset blameinst
3641 notbusy blaming
3645 return 0
3646 }
3648 set fname {}
3654 # look for "filename" line
3658 break
3659 }
3660 }
3661 }
3663 # all looks good, select it
3665 # blame uses all-zeroes to mean not committed,
3666 # which would mean a change in the index
3668 }
3671 } else {
3672 error_popup [mc "That line comes from commit %s, \
3674 }
3675 } else {
3676 puts "oops couldn't parse git blame output"
3677 }
3678 return 0
3679 }
3682 proc delete_at_eof {f dir} {
3687 }
3689 return 0
3690 }
3691 return 1
3692 }
3694 # Functions for adding and removing shell-type quoting
3696 proc shellquote {str} {
3699 }
3702 }
3705 }
3707 }
3709 proc shellarglist {l} {
3710 set str {}
3713 append str " "
3714 }
3716 }
3718 }
3720 proc shelldequote {str} {
3721 set ret {}
3722 set used -1
3723 while {1} {
3724 incr used
3728 break
3729 }
3735 }
3737 incr used
3741 error "unmatched single-quote"
3742 }
3745 continue
3746 }
3749 error "trailing backslash"
3750 }
3752 continue
3753 }
3754 # here ch == "\""
3755 while {1} {
3757 error "unmatched double-quote"
3758 }
3764 }
3766 incr used
3768 incr used
3769 }
3770 }
3772 }
3774 proc shellsplit {str} {
3775 set l {}
3776 while {1} {
3784 }
3786 }
3788 # Code to implement multiple views
3790 proc newview {ishighlight} {
3791 global nextviewnum newviewname newishighlight
3792 global revtreeargs viewargscmd newviewopts curview
3795 set top .gitkview
3798 return
3799 }
3805 }
3807 set known_view_options {
3808 {perm b . {} {mc "Remember this view"}}
3809 {reflabel l + {} {mc "References (space separated list):"}}
3810 {refs t15 .. {} {mc "Branches & tags:"}}
3811 {allrefs b *. "--all" {mc "All refs"}}
3812 {branches b . "--branches" {mc "All (local) branches"}}
3813 {tags b . "--tags" {mc "All tags"}}
3814 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3815 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3816 {author t15 .. "--author=*" {mc "Author:"}}
3817 {committer t15 . "--committer=*" {mc "Committer:"}}
3818 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3819 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3820 {changes_l l + {} {mc "Changes to Files:"}}
3821 {pickaxe_s r0 . {} {mc "Fixed String"}}
3822 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3823 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3824 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3825 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3826 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3827 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3828 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3829 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3830 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3831 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3832 {lright b . "--left-right" {mc "Mark branch sides"}}
3833 {first b . "--first-parent" {mc "Limit to first parent"}}
3834 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3835 {args t50 *. {} {mc "Additional arguments to git log:"}}
3836 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3837 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3838 }
3840 proc encode_view_opts {n} {
3841 global known_view_options newviewopts
3843 set rargs [list]
3853 }
3859 }
3860 } else {
3866 }
3867 }
3868 }
3871 }
3873 proc decode_view_opts {n view_args} {
3874 global known_view_options newviewopts
3879 # Checkboxes
3880 set val 0
3882 # Radiobuttons
3884 set val 0
3885 } else {
3886 # Text fields
3887 set val {}
3888 }
3890 }
3891 set oargs [list]
3892 set refargs [list]
3895 && ![info exists found(limit)]} {
3897 set found(limit) 1
3898 continue
3899 }
3900 catch { unset val }
3907 # Check buttons
3908 set val 1
3910 # Radio buttons
3913 } else {
3914 # Text input fields
3917 }
3920 break
3921 }
3922 if {[info exists val]} break
3923 }
3924 if {[info exists val]} continue
3927 } else {
3929 }
3930 }
3933 }
3935 proc edit_or_newview {} {
3936 global curview
3939 editview
3940 } else {
3941 newview 0
3942 }
3943 }
3945 proc editview {} {
3946 global curview
3947 global viewname viewperm newviewname newviewopts
3948 global viewargs viewargscmd
3953 return
3954 }
3960 }
3962 proc vieweditor {top n title} {
3963 global newviewname newviewopts viewfiles bgcolor
3964 global known_view_options NS
3970 # View name
3978 # View options
3980 set cexpand 0
3981 set cnt 0
3987 set lxpad 0
3991 incr cnt
3997 incr cnt
4001 } else {
4002 set lxpad 5
4003 }
4037 }
4040 }
4042 }
4043 }
4058 }
4060 proc doviewmenu {m first cmd op argv} {
4065 break
4066 }
4067 }
4068 }
4070 proc allviewmenus {n op args} {
4071 # global viewhlmenu
4075 }
4077 proc newviewok {top n {apply 0}} {
4078 global nextviewnum newviewperm newviewname newishighlight
4079 global viewname viewfiles viewperm selectedview curview
4080 global viewargs viewargscmd newviewopts viewhlmenu
4082 if {[catch {
4084 } err]} {
4086 return
4087 }
4088 set files {}
4093 }
4094 }
4096 # creating a new view
4097 incr nextviewnum
4106 } else {
4108 }
4109 } else {
4110 # editing an existing view
4118 }
4125 run reloadcommits
4126 }
4127 }
4128 }
4131 }
4133 proc delview {} {
4134 global curview viewperm hlview selectedhlview
4138 set selectedhlview [mc "None"]
4139 unset hlview
4140 }
4143 showview 0
4144 }
4146 proc addviewmenu {n} {
4147 global viewname viewhlmenu
4153 }
4155 proc showview {n} {
4156 global curview cached_commitrow ordertok
4157 global displayorder parentlist rowidlist rowisopt rowfinal
4158 global colormap rowtextx nextcolor canvxmax
4159 global numcommits viewcomplete
4160 global selectedline currentid canv canvy0
4161 global treediffs
4162 global pending_select mainheadid
4163 global commitidx
4164 global selectedview
4165 global hlview selectedhlview commitinterest
4168 set selid {}
4179 }
4180 } elseif {[info exists pending_select]} {
4182 unset pending_select
4183 }
4184 unselectline
4185 normalline
4186 catch {unset treediffs}
4187 clear_display
4189 unset hlview
4190 set selectedhlview [mc "None"]
4191 }
4192 catch {unset commitinterest}
4193 catch {unset cached_commitrow}
4194 catch {unset ordertok}
4201 run refill_reflist
4204 return
4205 }
4207 set displayorder {}
4208 set parentlist {}
4209 set rowidlist {}
4210 set rowisopt {}
4211 set rowfinal {}
4214 catch {unset colormap}
4215 catch {unset rowtextx}
4216 set nextcolor 0
4219 set row 0
4220 setcanvscroll
4221 set yf 0
4222 set row {}
4225 # try to get the selected row in the same position on the screen
4229 set ytop 0
4230 }
4232 }
4234 drawvisible
4239 } else {
4240 reset_pending_select {}
4244 } else {
4245 set row [first_real_row]
4248 }
4249 }
4250 }
4253 show_status [mc "Reading commits..."]
4254 }
4256 show_status [mc "No commits selected"]
4257 }
4258 }
4260 # Stuff relating to the highlighting facility
4262 proc ishighlighted {id} {
4263 global vhighlights fhighlights nhighlights rhighlights
4267 }
4270 }
4273 }
4276 }
4277 return 0
4278 }
4280 proc bolden {id font} {
4281 global canv linehtag currentid boldids need_redisplay markedid
4283 # need_redisplay = 1 means the display is stale and about to be redrawn
4290 -outline {{}} -tags secsel \
4293 }
4296 }
4297 }
4299 proc bolden_name {id font} {
4300 global canv2 linentag currentid boldnameids need_redisplay
4308 -outline {{}} -tags secsel \
4311 }
4312 }
4314 proc unbolden {} {
4315 global boldids
4317 set stillbold {}
4321 } else {
4323 }
4324 }
4326 }
4328 proc addvhighlight {n} {
4329 global hlview viewcomplete curview vhl_done commitidx
4331 if {[info exists hlview]} {
4332 delvhighlight
4333 }
4337 }
4340 drawvisible
4341 }
4342 }
4344 proc delvhighlight {} {
4345 global hlview vhighlights
4347 if {![info exists hlview]} return
4348 unset hlview
4349 catch {unset vhighlights}
4350 unbolden
4351 }
4353 proc vhighlightmore {} {
4354 global hlview vhl_done commitidx vhighlights curview
4357 set vr [visiblerows]
4367 }
4369 }
4370 }
4371 }
4373 return 0
4374 }
4376 proc askvhighlight {row id} {
4377 global hlview vhighlights iddrawn
4382 }
4384 } else {
4386 }
4387 }
4389 proc hfiles_change {} {
4390 global highlight_files filehighlight fhighlights fh_serial
4391 global highlight_paths
4393 if {[info exists filehighlight]} {
4394 # delete previous highlights
4396 unset filehighlight
4397 catch {unset fhighlights}
4398 unbolden
4399 unhighlight_filelist
4400 }
4401 set highlight_paths {}
4403 incr fh_serial
4406 }
4407 }
4409 proc gdttype_change {name ix op} {
4410 global gdttype highlight_files findstring findpattern
4412 stopfinding
4416 set highlight_files {}
4417 hfiles_change
4418 }
4419 findcom_change
4420 } else {
4422 set findpattern {}
4423 findcom_change
4424 }
4426 hfiles_change
4427 }
4428 drawvisible
4429 }
4430 # enable/disable findtype/findloc menus too
4431 }
4433 proc find_change {name ix op} {
4434 global gdttype findstring highlight_files
4436 stopfinding
4438 findcom_change
4439 } else {
4442 hfiles_change
4443 }
4444 }
4445 drawvisible
4446 }
4448 proc findcom_change args {
4449 global nhighlights boldnameids
4450 global findpattern findtype findstring gdttype
4452 stopfinding
4453 # delete previous highlights, if any
4456 }
4457 set boldnameids {}
4458 catch {unset nhighlights}
4459 unbolden
4460 unmarkmatches
4462 set findpattern {}
4465 } else {
4466 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4469 }
4470 }
4472 proc makepatterns {l} {
4473 set ret {}
4478 } else {
4481 }
4482 }
4484 }
4486 proc do_file_hl {serial} {
4487 global highlight_files filehighlight highlight_paths gdttype fhl_list
4492 highlight_filelist
4496 } else {
4497 # must be "containing:", i.e. we're searching commit info
4498 return
4499 }
4504 set fhl_list {}
4505 drawvisible
4506 flushhighlights
4507 }
4509 proc flushhighlights {} {
4510 global filehighlight fhl_list
4512 if {[info exists filehighlight]} {
4513 lappend fhl_list {}
4516 }
4517 }
4519 proc askfilehighlight {row id} {
4520 global filehighlight fhighlights fhl_list
4525 }
4527 proc readfhighlight {} {
4528 global filehighlight fhighlights curview iddrawn
4529 global fhl_list find_dirn
4531 if {![info exists filehighlight]} {
4532 return 0
4533 }
4534 set nr 0
4542 }
4548 }
4550 }
4552 # strange...
4553 puts "oops, git diff-tree died"
4555 unset filehighlight
4556 return 0
4557 }
4558 if {[info exists find_dirn]} {
4559 run findmore
4560 }
4561 return 1
4562 }
4564 proc doesmatch {f} {
4565 global findtype findpattern
4571 } else {
4573 }
4574 }
4576 proc askfindhighlight {row id} {
4577 global nhighlights commitinfo iddrawn
4578 global findloc
4579 global markingmatches
4583 }
4585 set isbold 0
4586 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4591 set isbold 2
4592 break
4593 }
4594 set isbold 1
4595 }
4596 }
4602 }
4603 }
4606 }
4607 }
4609 }
4611 proc markrowmatches {row id} {
4612 global canv canv2 linehtag linentag commitinfo findloc
4623 }
4624 }
4630 }
4631 }
4632 }
4634 proc vrel_change {name ix op} {
4635 global highlight_related
4637 rhighlight_none
4639 run drawvisible
4640 }
4641 }
4643 # prepare for testing whether commits are descendents or ancestors of a
4644 proc rhighlight_sel {a} {
4645 global descendent desc_todo ancestor anc_todo
4646 global highlight_related
4648 catch {unset descendent}
4650 catch {unset ancestor}
4653 rhighlight_none
4654 run drawvisible
4655 }
4656 }
4658 proc rhighlight_none {} {
4659 global rhighlights
4661 catch {unset rhighlights}
4662 unbolden
4663 }
4665 proc is_descendent {a} {
4666 global curview children descendent desc_todo
4671 set leftover {}
4672 set done 0
4677 continue
4678 }
4684 set done 1
4685 }
4686 }
4687 }
4690 return
4691 }
4692 }
4695 }
4697 proc is_ancestor {a} {
4698 global curview parents ancestor anc_todo
4703 set leftover {}
4704 set done 0
4709 continue
4710 }
4716 set done 1
4717 }
4718 }
4719 }
4722 return
4723 }
4724 }
4727 }
4729 proc askrelhighlight {row id} {
4730 global descendent highlight_related iddrawn rhighlights
4731 global selectedline ancestor
4734 set isbold 0
4739 }
4741 set isbold 1
4742 }
4747 }
4749 set isbold 1
4750 }
4751 }
4755 }
4756 }
4758 }
4760 # Graph layout functions
4762 proc shortids {ids} {
4763 set res {}
4769 } else {
4771 }
4772 }
4774 }
4776 proc ntimes {n o} {
4777 set ret {}
4782 }
4784 }
4786 }
4788 proc ordertoken {id} {
4789 global ordertok curview varcid varcstart varctok curview parents children
4790 global nullid nullid2
4794 }
4796 set todo {}
4797 while {1} {
4801 } else {
4803 }
4806 break
4807 }
4810 # it's a root
4812 break
4813 }
4816 } else {
4820 }
4822 }
4823 }
4828 }
4831 }
4833 # Work out where id should go in idlist so that order-token
4834 # values increase from left to right
4835 proc idcol {idlist id {i 0}} {
4838 set i 0
4839 }
4843 }
4845 incr i
4846 } else {
4850 }
4851 }
4853 }
4855 proc initlayout {} {
4856 global rowidlist rowisopt rowfinal displayorder parentlist
4857 global numcommits canvxmax canv
4858 global nextcolor
4859 global colormap rowtextx
4861 set numcommits 0
4862 set displayorder {}
4863 set parentlist {}
4864 set nextcolor 0
4865 set rowidlist {}
4866 set rowisopt {}
4867 set rowfinal {}
4869 catch {unset colormap}
4870 catch {unset rowtextx}
4871 setcanvscroll
4872 }
4874 proc setcanvscroll {} {
4875 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4876 global lastscrollset lastscrollrows
4882 set lastscrollset [clock clicks -milliseconds]
4884 }
4886 proc visiblerows {} {
4887 global canv numcommits linespc
4895 set r0 0
4896 }
4901 }
4903 }
4905 proc layoutmore {} {
4906 global commitidx viewcomplete curview
4907 global numcommits pending_select curview
4908 global lastscrollset lastscrollrows
4912 setcanvscroll
4913 }
4914 if {[info exists pending_select] &&
4916 update
4918 }
4919 drawvisible
4920 }
4922 # With path limiting, we mightn't get the actual HEAD commit,
4923 # so ask git rev-list what is the first ancestor of HEAD that
4924 # touches a file in the path limit.
4925 proc get_viewmainhead {view} {
4926 global viewmainheadid vfilelimit viewinstances mainheadid
4928 catch {
4936 }
4937 }
4940 proc getviewhead {fd inst view} {
4941 global viewmainheadid commfd curview viewinstances showlocalchanges
4943 set id {}
4946 return 1
4947 }
4950 }
4957 }
4959 doshowlocalchanges
4960 }
4961 return 0
4962 }
4964 proc doshowlocalchanges {} {
4965 global curview viewmainheadid
4969 dodiffindex
4970 } else {
4972 }
4973 }
4975 proc dohidelocalchanges {} {
4976 global nullid nullid2 lserial curview
4980 }
4983 }
4984 incr lserial
4985 }
4987 # spawn off a process to do git diff-index --cached HEAD
4988 proc dodiffindex {} {
4989 global lserial showlocalchanges vfilelimit curview
4990 global isworktree
4993 incr lserial
4994 set cmd "|git diff-index --cached HEAD"
4997 }
5002 }
5004 proc readdiffindex {fd serial inst} {
5005 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5006 global vfilelimit
5008 set isdiff 1
5011 return 1
5012 }
5013 set isdiff 0
5014 }
5015 # we only need to see one line and we don't really care what it says...
5019 return 0
5020 }
5022 # now see if there are any local changes not checked in to the index
5023 set cmd "|git diff-files"
5026 }
5033 # add the line for the changes in the index to the graph
5034 set hl [mc "Local changes checked in to index but not committed"]
5039 }
5044 }
5046 }
5047 return 0
5048 }
5050 proc readdifffiles {fd serial inst} {
5051 global viewmainheadid nullid nullid2 curview
5052 global commitinfo commitdata lserial
5054 set isdiff 1
5057 return 1
5058 }
5059 set isdiff 0
5060 }
5061 # we only need to see one line and we don't really care what it says...
5065 return 0
5066 }
5069 # add the line for the local diff to the graph
5070 set hl [mc "Local uncommitted changes, not checked in to index"]
5075 } else {
5077 }
5081 }
5082 return 0
5083 }
5085 proc nextuse {id row} {
5086 global curview children
5091 return -1
5092 }
5095 }
5096 }
5097 }
5100 }
5101 return -1
5102 }
5104 proc prevuse {id row} {
5105 global curview children
5107 set ret -1
5113 }
5114 }
5115 }
5117 }
5119 proc make_idlist {row} {
5120 global displayorder parentlist uparrowlen downarrowlen mingaplen
5121 global commitidx curview children
5125 set r 0
5126 }
5129 set ra 0
5130 }
5134 }
5136 set ids {}
5145 }
5146 }
5147 }
5155 }
5156 }
5157 }
5165 }
5166 }
5167 incr r
5173 }
5174 }
5175 }
5176 set idlist {}
5179 }
5181 }
5183 proc rowsequal {a b} {
5186 }
5189 }
5191 }
5193 proc makeupline {id row rend col} {
5194 global rowidlist uparrowlen downarrowlen mingaplen
5200 }
5203 }
5210 }
5211 }
5212 }
5214 proc layoutrows {row endrow} {
5215 global rowidlist rowisopt rowfinal displayorder
5216 global uparrowlen downarrowlen maxwidth mingaplen
5217 global children parentlist
5218 global commitidx viewcomplete curview
5221 set idlist {}
5227 }
5228 }
5230 }
5235 set final 1
5236 } else {
5244 # if not the first child, we have to insert a line going up
5247 }
5248 }
5249 }
5259 }
5260 }
5261 }
5268 }
5269 }
5279 }
5280 }
5288 }
5289 }
5290 }
5291 }
5292 }
5296 set final 0
5297 }
5301 lappend rowisopt 0
5307 }
5309 } else {
5316 }
5317 }
5319 }
5321 proc changedrow {row} {
5322 global displayorder iddrawn rowisopt need_redisplay
5331 }
5332 }
5333 }
5336 set need_redisplay 1
5337 }
5338 }
5340 proc insert_pad {row col npad} {
5341 global rowidlist
5350 }
5353 }
5355 proc optimize_rows {row col endrow} {
5356 global rowidlist rowisopt displayorder curview children
5359 set row 1
5360 }
5363 set haspad 0
5372 } else {
5373 set pprevidlist {}
5374 }
5375 set x0 -1
5376 set xm -1
5381 set haspad 1
5382 continue
5383 }
5387 set isarrow 0
5388 set z0 {}
5393 }
5394 }
5399 set isarrow 1
5400 }
5401 }
5404 set isarrow 1
5405 }
5406 # Looking at lines from this row to the previous row,
5407 # make them go straight up if they end in an arrow on
5408 # the previous row; otherwise make them go straight up
5409 # or at 45 degrees.
5411 # Line currently goes left too much;
5412 # insert pads in the previous row, then optimize it
5417 }
5425 }
5427 # Line currently goes right too much;
5428 # insert pads in this line
5434 set haspad 1
5435 }
5442 }
5443 }
5444 # avoid lines jigging left then immediately right
5447 incr x0
5450 }
5451 }
5453 # Find the first column that doesn't have a line going right
5459 # check if this is the link to the first child
5462 # it is, work out offset to child
5464 }
5465 }
5467 }
5468 # Insert a pad at that column as long as it has a line and
5469 # isn't the last column
5474 }
5475 }
5476 }
5477 }
5479 proc xc {row col} {
5480 global canvx0 linespc
5482 }
5484 proc yc {row} {
5485 global canvy0 linespc
5487 }
5489 proc linewidth {id} {
5490 global thickerline lthickness
5495 }
5497 }
5499 proc rowranges {id} {
5500 global curview children uparrowlen downarrowlen
5501 global rowidlist
5505 return {}
5506 }
5507 set ret {}
5512 if {![info exists prev]} {
5514 } else {
5516 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5517 }
5518 # see if the line extends the whole way from prevrow to row
5522 # it doesn't, see where it ends
5527 } else {
5530 incr r -1
5531 }
5533 # see where it starts up again
5538 } else {
5541 incr r
5542 }
5544 }
5545 }
5548 }
5551 }
5553 }
5555 proc drawlineseg {id row endrow arrowlow} {
5556 global rowidlist displayorder iddrawn linesegs
5557 global canv colormap linespc curview maxlinelen parentlist
5561 set arrowhigh 1
5562 while {1} {
5565 incr le -1
5566 break
5567 }
5571 set arrowhigh 0
5572 break
5573 }
5578 set arrowhigh 0
5579 }
5580 break
5581 }
5582 incr le
5583 }
5586 }
5588 set lines {}
5589 set i 0
5590 set joinhigh 0
5597 set joinhigh 1
5598 }
5599 break
5600 }
5601 incr i
5602 }
5603 }
5604 set joinlow 0
5609 set joinlow 1
5610 }
5611 }
5624 }
5625 } else {
5627 }
5635 set arrowlow 0
5636 }
5637 }
5645 }
5647 }
5650 # join parent line to first child
5661 } else {
5663 }
5671 }
5673 }
5675 } else {
5679 }
5687 } else {
5691 }
5693 }
5694 } else {
5700 }
5704 } else {
5705 # coalesce two pieces
5710 }
5714 }
5715 }
5719 }
5721 proc drawparentlinks {id row} {
5722 global rowidlist canv colormap curview parentlist
5723 global idpos linespc
5736 # rmx = right-most X coord used
5737 set rmx 0
5742 continue
5743 }
5747 }
5750 # drawlineseg will do this one for us
5751 continue
5752 }
5754 # should handle duplicated parents here...
5757 # if attaching to a vertical segment, draw a smaller
5758 # slant for visual distinctness
5762 } else {
5764 }
5766 # segment slants towards us already
5768 } else {
5773 }
5775 }
5776 } else {
5778 }
5783 }
5787 }
5788 }
5790 proc drawlines {id} {
5791 global canv
5794 }
5796 proc drawcmittext {id row col} {
5797 global linespc canv canv2 canv3 fgcolor curview
5798 global cmitlisted commitinfo rowidlist parentlist
5799 global rowtextx idpos idtags idheads idotherrefs
5800 global linehtag linentag linedtag selectedline
5801 global canvxmax boldids boldnameids fgcolor markedid
5802 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5804 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5807 set ofill red
5809 set ofill green
5811 set ofill yellow
5812 } else {
5814 }
5823 # triangle pointing left for left-side commits
5829 } else {
5830 # triangle pointing right for right-side commits
5836 }
5848 }
5849 }
5850 }
5857 }
5862 set font mainfont
5863 set nfont mainfont
5867 set font mainfontbold
5870 set nfont mainfontbold
5871 }
5872 }
5882 }
5885 }
5889 setcanvscroll
5890 }
5891 }
5893 proc drawcmitrow {row} {
5894 global displayorder rowidlist nrows_drawn
5895 global iddrawn markingmatches
5896 global commitinfo numcommits
5897 global filehighlight fhighlights findpattern nhighlights
5898 global hlview vhighlights
5899 global highlight_related rhighlights
5906 }
5909 }
5912 }
5915 }
5920 return
5921 }
5924 }
5928 incr nrows_drawn
5929 }
5932 }
5933 }
5935 proc drawcommits {row {endrow {}}} {
5936 global numcommits iddrawn displayorder curview need_redisplay
5937 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5940 set row 0
5941 }
5944 }
5947 }
5951 set rl1 0
5952 }
5955 set ro1 0
5956 }
5960 }
5965 }
5967 }
5968 }
5971 }
5974 clear_display
5975 }
5977 # make the lines join to already-drawn rows either side
5981 }
5986 }
6001 # see if this is the first child of any of its parents
6004 # make this line extend up to the child
6006 }
6007 }
6008 } else {
6010 }
6011 }
6012 }
6013 }
6015 proc undolayout {row} {
6016 global uparrowlen mingaplen downarrowlen
6017 global rowidlist rowisopt rowfinal need_redisplay
6021 set r 0
6022 }
6024 incr r -1
6028 set need_redisplay 1
6029 run drawvisible
6030 }
6031 }
6033 proc drawvisible {} {
6034 global canv linespc curview vrowmod selectedline targetrow targetid
6035 global need_redisplay cscroll numcommits
6045 if {[info exists targetid]} {
6049 # Fix up the scrollregion and change the scrolling position
6050 # now that our target row has moved.
6053 setcanvscroll
6061 set need_redisplay 1
6062 }
6063 } else {
6064 unset targetid
6065 }
6066 }
6072 }
6076 } elseif {[info exists targetid]} {
6078 }
6079 if {[info exists targetrow]} {
6082 }
6084 }
6086 }
6088 proc clear_display {} {
6089 global iddrawn linesegs need_redisplay nrows_drawn
6090 global vhighlights fhighlights nhighlights rhighlights
6091 global linehtag linentag linedtag boldids boldnameids
6093 allcanvs delete all
6094 catch {unset iddrawn}
6095 catch {unset linesegs}
6096 catch {unset linehtag}
6097 catch {unset linentag}
6098 catch {unset linedtag}
6099 set boldids {}
6100 set boldnameids {}
6101 catch {unset vhighlights}
6102 catch {unset fhighlights}
6103 catch {unset nhighlights}
6104 catch {unset rhighlights}
6105 set need_redisplay 0
6106 set nrows_drawn 0
6107 }
6109 proc findcrossings {id} {
6110 global rowidlist parentlist numcommits displayorder
6112 set cross {}
6113 set ccross {}
6117 }
6136 }
6137 }
6138 }
6139 }
6140 }
6142 }
6144 proc assigncolor {id} {
6145 global colormap colors nextcolor
6146 global parents children children curview
6152 } else {
6153 set kids {}
6154 }
6160 return
6161 }
6162 }
6163 set badcolors {}
6164 set origbad {}
6167 # delimiter between corner crossings and other crossings
6170 }
6174 }
6175 }
6178 }
6185 }
6190 }
6191 }
6192 }
6195 }
6196 }
6200 set nextcolor 0
6201 }
6203 }
6205 }
6207 proc bindline {t id} {
6208 global canv
6214 }
6216 proc drawtags {id x xt y1} {
6217 global idtags idheads idotherrefs mainhead
6218 global linespc lthickness
6219 global canv rowtextx curview fgcolor bgcolor ctxbut
6221 set marks {}
6222 set ntags 0
6223 set nheads 0
6227 }
6231 }
6234 }
6237 }
6242 set xvals {}
6243 set wvals {}
6244 set i -1
6246 incr i
6249 } else {
6251 }
6255 }
6262 set font mainfont
6263 if {[incr ntags -1] >= 0} {
6264 # draw a tag
6270 } else {
6271 # draw a head or other ref
6272 if {[incr nheads -1] >= 0} {
6273 set col green
6275 set font mainfontbold
6276 }
6277 } else {
6278 set col "#ddddff"
6279 }
6290 }
6291 }
6298 }
6299 }
6301 }
6303 proc xcoord {i level ln} {
6304 global canvx0 xspc1 xspc2
6311 }
6313 }
6315 proc show_status {msg} {
6316 global canv fgcolor
6318 clear_display
6321 }
6323 # Don't change the text pane cursor if it is currently the hand cursor,
6324 # showing that we are over a sha1 ID link.
6325 proc settextcursor {c} {
6326 global ctext curtextcursor
6330 }
6332 }
6334 proc nowbusy {what {name {}}} {
6335 global isbusy busyname statusw
6337 if {[array names isbusy] eq {}} {
6338 . config -cursor watch
6339 settextcursor watch
6340 }
6345 }
6346 }
6348 proc notbusy {what} {
6349 global isbusy maincursor textcursor busyname statusw
6351 catch {
6356 }
6357 }
6358 if {[array names isbusy] eq {}} {
6361 }
6362 }
6364 proc findmatches {f} {
6365 global findtype findstring
6368 } else {
6373 }
6374 set matches {}
6375 set i 0
6380 }
6381 }
6383 }
6385 proc dofind {{dirn 1} {wrap 1}} {
6386 global findstring findstartline findcurline selectedline numcommits
6387 global gdttype filehighlight fh_serial find_dirn findallowwrap
6389 if {[info exists find_dirn]} {
6391 stopfinding
6392 }
6393 focus .
6397 } else {
6399 }
6401 nowbusy finding [mc "Searching"]
6405 }
6408 run findmore
6409 }
6411 proc stopfinding {} {
6412 global find_dirn findcurline fprogcoord
6414 if {[info exists find_dirn]} {
6415 unset find_dirn
6416 unset findcurline
6417 notbusy finding
6418 set fprogcoord 0
6419 adjustprogress
6420 }
6421 stopblaming
6422 }
6424 proc findmore {} {
6425 global commitdata commitinfo numcommits findpattern findloc
6426 global findstartline findcurline findallowwrap
6427 global find_dirn gdttype fhighlights fprogcoord
6428 global curview varcorder vrownum varccommits vrowmod
6430 if {![info exists find_dirn]} {
6431 return 0
6432 }
6433 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6435 set moretodo 0
6437 incr l
6439 set l 0
6440 }
6443 } else {
6446 }
6447 } else {
6450 }
6451 incr l -1
6454 } else {
6455 set lim -1
6457 }
6458 }
6461 set n 500
6462 set moretodo 1
6463 }
6466 }
6467 set found 0
6468 set domore 1
6482 }
6484 # shouldn't happen unless git log doesn't give all the commits...
6487 continue
6488 }
6491 }
6496 set found 1
6497 break
6498 }
6499 }
6501 }
6502 } else {
6510 }
6515 }
6518 break
6519 }
6522 set domore 0
6524 }
6525 }
6526 }
6527 }
6529 unset findcurline
6530 unset find_dirn
6531 notbusy finding
6532 set fprogcoord 0
6533 adjustprogress
6536 } else {
6537 bell
6538 }
6539 return 0
6540 }
6542 flushhighlights
6543 } else {
6545 }
6549 }
6551 adjustprogress
6553 }
6555 proc findselectline {l} {
6556 global findloc commentend ctext findcurline markingmatches gdttype
6563 # highlight the matches in the comments
6570 }
6571 }
6572 drawvisible
6573 }
6575 # mark the bits of a headline or author that match a find string
6576 proc markmatches {canv l str tag matches font row} {
6577 global selectedline
6595 }
6596 }
6597 }
6599 proc unmarkmatches {} {
6600 global markingmatches
6602 allcanvs delete matches
6603 set markingmatches 0
6604 stopfinding
6605 }
6607 proc selcanvline {w x y} {
6608 global canv canvy0 ctext linespc
6609 global rowtextx
6616 set l 0
6617 }
6622 }
6623 unmarkmatches
6625 }
6627 proc commit_descriptor {p} {
6628 global commitinfo
6631 }
6632 set l "..."
6635 }
6637 }
6639 # append some text to the ctext widget, and make any SHA1 ID
6640 # that we know about be a clickable link.
6641 proc appendwithlinks {text tags} {
6642 global ctext linknum curview
6651 incr e
6655 incr linknum
6656 }
6657 }
6659 proc setlink {id lk} {
6660 global curview ctext pendinglinks
6662 set known 0
6667 set known 1
6669 }
6670 } else {
6672 }
6678 } else {
6681 }
6682 }
6684 proc appendshortlink {id {pre {}} {post {}}} {
6685 global ctext linknum
6692 incr linknum
6693 }
6695 proc makelink {id} {
6696 global pendinglinks
6701 }
6703 }
6705 proc linkcursor {w inc} {
6706 global linkentercount curtextcursor
6710 } else {
6713 set linkentercount 0
6714 }
6715 }
6716 }
6718 proc viewnextline {dir} {
6719 global canv linespc
6727 set newtop 0
6730 }
6732 }
6734 # add a list of tag or branch names at position pos
6735 # returns the number of names inserted
6736 proc appendrefs {pos ids var} {
6740 return 0
6741 }
6744 set tags {}
6748 }
6749 }
6752 } else {
6754 set sep {}
6758 incr linknum
6763 set sep ", "
6764 }
6765 }
6768 }
6770 # called when we have finished computing the nearby tags
6771 proc dispneartags {delay} {
6772 global selectedline currentid showneartags tagphase
6775 after cancel dispnexttag
6777 after 200 dispnexttag
6778 set tagphase -1
6779 } else {
6780 after idle dispnexttag
6781 set tagphase 0
6782 }
6783 }
6785 proc dispnexttag {} {
6786 global selectedline currentid showneartags tagphase ctext
6790 0 {
6794 }
6795 }
6796 1 {
6800 }
6801 }
6802 2 {
6807 # turn "Branch" into "Branches"
6811 }
6812 }
6813 }
6814 }
6815 if {[incr tagphase] <= 2} {
6816 after idle dispnexttag
6817 }
6818 }
6820 proc make_secsel {id} {
6821 global linehtag linentag linedtag canv canv2 canv3
6836 }
6838 proc make_idmark {id} {
6839 global linehtag canv fgcolor
6846 }
6848 proc selectline {l isnew {desired_loc {}}} {
6849 global canv ctext commitinfo selectedline
6850 global canvy0 linespc parents children curview
6851 global currentid sha1entry
6852 global commentend idtags linknum
6853 global mergemax numcommits pending_select
6854 global cmitmode showneartags allcommits
6855 global targetrow targetid lastscrollrows
6856 global autoselect jump_to_here
6858 catch {unset pending_select}
6860 normalline
6861 unsel_reflist
6862 stopfinding
6870 setcanvscroll
6871 }
6885 } else {
6889 }
6890 }
6894 } else {
6898 }
6899 }
6900 }
6903 set newtop 0
6904 }
6906 drawvisible
6907 }
6913 }
6919 }
6923 clear_ctext
6924 set linknum 0
6927 }
6937 }
6939 }
6941 set headers {}
6944 set np 0
6947 set tag mmax
6948 } else {
6950 }
6953 incr np
6954 }
6955 } else {
6958 }
6959 }
6963 }
6965 # make anything that looks like a SHA1 ID be a clickable link
6968 if {![info exists allcommits]} {
6969 getallcommits
6970 }
6981 dispneartags 1
6982 }
6987 }
6995 init_flist [mc "Comments"]
7000 } else {
7002 }
7003 }
7005 proc selfirstline {} {
7006 unmarkmatches
7007 selectline 0 1
7008 }
7010 proc sellastline {} {
7011 global numcommits
7012 unmarkmatches
7015 }
7017 proc selnextline {dir} {
7018 global selectedline
7019 focus .
7022 unmarkmatches
7024 }
7026 proc selnextpage {dir} {
7027 global canv linespc selectedline numcommits
7031 set lpp 1
7032 }
7034 drawvisible
7038 set l 0
7041 }
7042 unmarkmatches
7044 }
7046 proc unselectline {} {
7047 global selectedline currentid
7049 set selectedline {}
7050 catch {unset currentid}
7051 allcanvs delete secsel
7052 rhighlight_none
7053 }
7055 proc reselectline {} {
7056 global selectedline
7060 }
7061 }
7063 proc addtohistory {cmd {saveproc {}}} {
7064 global history historyindex curview
7066 unset_posvars
7067 save_position
7071 return
7072 }
7076 } else {
7078 }
7079 incr historyindex
7081 .tf.bar.leftbut conf -state normal
7082 } else {
7083 .tf.bar.leftbut conf -state disabled
7084 }
7085 .tf.bar.rightbut conf -state disabled
7086 }
7088 # save the scrolling position of the diff display pane
7089 proc save_position {} {
7090 global historyindex history
7097 }
7098 }
7100 proc unset_posvars {} {
7101 global last_posvars
7103 if {[info exists last_posvars]} {
7107 }
7108 unset last_posvars
7109 }
7110 }
7112 proc godo {elt} {
7113 global curview last_posvars
7120 }
7121 unset_posvars
7125 }
7128 }
7130 proc goback {} {
7131 global history historyindex
7132 focus .
7135 save_position
7136 incr historyindex -1
7138 .tf.bar.rightbut conf -state normal
7139 }
7141 .tf.bar.leftbut conf -state disabled
7142 }
7143 }
7145 proc goforw {} {
7146 global history historyindex
7147 focus .
7150 save_position
7152 incr historyindex
7154 .tf.bar.leftbut conf -state normal
7155 }
7157 .tf.bar.rightbut conf -state disabled
7158 }
7159 }
7161 proc gettree {id} {
7162 global treefilelist treeidlist diffids diffmergeid treepending
7163 global nullid nullid2
7166 catch {unset diffmergeid}
7168 if {![info exists treepending]} {
7170 set cmd [list | git ls-files]
7172 set cmd [list | git ls-files --stage -t]
7173 } else {
7175 }
7177 return
7178 }
7184 }
7185 } else {
7187 }
7188 }
7190 proc gettreeline {gtf id} {
7191 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7193 set nl 0
7197 } else {
7205 }
7208 }
7211 }
7214 }
7216 unset treepending
7218 if {![info exists diffmergeid]} {
7220 }
7223 } else {
7225 }
7226 return 0
7227 }
7229 proc showfile {f} {
7230 global treefilelist treeidlist diffids nullid nullid2
7231 global ctext_file_names ctext_file_lines
7232 global ctext commentend
7237 return
7238 }
7242 return
7243 }
7244 } else {
7248 return
7249 }
7250 }
7261 settabs 0
7262 }
7264 proc getblobline {bf id} {
7265 global diffids cmitmode ctext
7269 return 0
7270 }
7272 set nl 0
7275 }
7277 global jump_to_here ctext_file_names commentend
7279 # delete last newline
7287 }
7288 return 0
7289 }
7292 }
7294 proc mark_ctext_line {lnum} {
7295 global ctext markbgcolor
7301 }
7303 proc mergediff {id} {
7304 global diffmergeid
7305 global diffids treediffs
7306 global parents curview
7314 }
7316 proc startdiff {ids} {
7317 global treediffs diffids treepending diffmergeid nullid nullid2
7319 settabs 1
7321 catch {unset diffmergeid}
7325 if {![info exists treepending]} {
7327 }
7328 } else {
7330 }
7331 }
7333 proc path_filter {filter name} {
7338 return 1
7339 }
7340 } else {
7344 return 1
7345 }
7346 }
7347 }
7348 return 0
7349 }
7351 proc addtocflist {ids} {
7352 global treediffs
7356 }
7358 proc diffcmd {ids flags} {
7359 global nullid nullid2
7365 # comparing working directory with some specific revision
7369 } else {
7371 }
7372 } else {
7373 # comparing working directory with index
7376 lappend cmd -R
7377 }
7378 }
7382 # comparing index with specific revision
7385 } else {
7387 }
7388 } else {
7389 # comparing index with HEAD
7390 lappend cmd HEAD
7391 }
7392 } else {
7394 }
7396 }
7398 proc gettreediffs {ids} {
7399 global treediff treepending
7404 set treediff {}
7407 }
7409 proc gettreediffline {gdtf ids} {
7410 global treediff treediffs treepending diffids diffmergeid
7411 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7413 set nr 0
7414 set sublist {}
7415 set max 1000
7417 # cache_gitattr is slow, and even slower on win32 where we
7418 # have to invoke it for only about 30 paths at a time
7419 set max 500
7420 if {[tk windowingsystem] == "win32"} {
7421 set max 120
7422 }
7423 }
7430 }
7435 }
7436 }
7437 }
7440 }
7443 }
7446 set flist {}
7450 }
7451 }
7453 } else {
7455 }
7456 unset treepending
7460 if {![info exists diffmergeid]} {
7462 }
7463 } else {
7465 }
7466 return 0
7467 }
7469 # empty string or positive integer
7470 proc diffcontextvalidate {v} {
7472 }
7474 proc diffcontextchange {n1 n2 op} {
7475 global diffcontextstring diffcontext
7480 reselectline
7481 }
7482 }
7483 }
7485 proc changeignorespace {} {
7486 reselectline
7487 }
7489 proc getblobdiffs {ids} {
7490 global blobdifffd diffids env
7491 global diffinhdr treediffs
7492 global diffcontext
7493 global ignorespace
7494 global limitdiffs vfilelimit curview
7495 global diffencoding targetline diffnparents
7496 global git_version
7498 set textconv {}
7500 set textconv "--textconv"
7501 }
7504 append cmd " -w"
7505 }
7508 }
7511 return
7512 }
7513 set targetline {}
7514 set diffnparents 0
7515 set diffinhdr 0
7516 set diffencoding [get_path_encoding {}]
7520 }
7522 proc savecmitpos {} {
7523 global ctext cmitmode
7526 return {}
7527 }
7529 }
7531 proc savectextpos {} {
7532 global ctext
7535 }
7537 proc maybe_scroll_ctext {ateof} {
7538 global ctext target_scrollpos
7540 if {![info exists target_scrollpos]} return
7543 / [font metrics textfont -linespace]}]
7545 }
7547 unset target_scrollpos
7548 }
7550 proc setinlist {var i val} {
7555 }
7558 } else {
7560 }
7561 }
7563 proc makediffhdr {fname ids} {
7564 global ctext curdiffstart treediffs diffencoding
7565 global ctext_file_names jump_to_here targetline diffline
7572 }
7577 set targetline {}
7580 }
7581 set diffline 0
7582 }
7584 proc getblobdiffline {bdf ids} {
7585 global diffids blobdifffd ctext curdiffstart
7586 global diffnexthead diffnextnote difffilestart
7587 global ctext_file_names ctext_file_lines
7588 global diffinhdr treediffs mergemax diffnparents
7589 global diffencoding jump_to_here targetline diffline
7591 set nr 0
7596 return 0
7597 }
7602 continue
7603 }
7604 # start of a new file
7605 set diffinhdr 1
7608 lappend ctext_file_names ""
7613 # start of a new file in a merge diff
7618 }
7620 } else {
7622 # If the name hasn't changed the length will be odd,
7623 # the middle char will be a space, and the two bits either
7624 # side will be a/name and b/name, or "a/name" and "b/name".
7625 # If the name has changed we'll get "rename from" and
7626 # "rename to" or "copy from" and "copy to" lines following
7627 # this, and we'll use them to get the filenames.
7628 # This complexity is necessary because spaces in the
7629 # filename(s) don't get escaped.
7635 continue
7636 }
7637 # unescape if quoted and chop off the a/ from the front
7640 } else {
7642 }
7643 }
7656 }
7664 }
7666 set diffinhdr 0
7673 }
7678 }
7684 }
7687 # do nothing
7688 continue
7690 set diffinhdr 0
7691 continue
7692 }
7695 } else {
7696 set line [string map {\x1A ^Z} \
7698 # parse the prefix - one ' ', '-' or '+' for each parent
7702 # prefix only has " ", "-" and "+" in it: normal diff line
7707 set num "max"
7708 }
7710 } else {
7711 set tags {}
7713 # added line
7719 set num "max"
7720 }
7722 }
7723 }
7724 }
7728 set targetline {}
7729 } else {
7730 incr diffline
7731 }
7732 }
7734 }
7735 } else {
7736 # "\ No newline at end of file",
7737 # or something else we don't recognize
7739 }
7740 }
7741 }
7742 if {[info exists seehere]} {
7744 }
7749 return 0
7750 }
7752 }
7754 proc changediffdisp {} {
7755 global ctext diffelide
7759 }
7761 proc highlightfile {loc cline} {
7762 global ctext cflist cflist_top
7769 }
7771 proc prevfile {} {
7772 global difffilestart ctext cmitmode
7775 set prev 0.0
7776 set prevline 1
7781 return
7782 }
7784 incr prevline
7785 }
7787 }
7789 proc nextfile {} {
7790 global difffilestart ctext cmitmode
7794 set line 1
7796 incr line
7799 return
7800 }
7801 }
7802 }
7804 proc clear_ctext {{first 1.0}} {
7805 global ctext smarktop smarkbot
7806 global ctext_file_names ctext_file_lines
7807 global pendinglinks
7812 }
7815 }
7818 catch {unset pendinglinks}
7819 }
7820 set ctext_file_names {}
7821 set ctext_file_lines {}
7822 }
7824 proc settabs {{firstab {}}} {
7825 global firsttabstop tabstop ctext have_tk85
7829 }
7830 set w [font measure textfont "0"]
7836 } else {
7838 }
7839 }
7841 proc incrsearch {name ix op} {
7842 global ctext searchstring searchdirn
7846 # no anchor set, use start of selection, or of visible area
7852 } else {
7854 }
7855 }
7860 }
7861 searchmarkvisible 1
7862 }
7863 }
7865 proc dosearch {} {
7866 global sstring ctext searchstring searchdirn
7870 set searchdirn -forwards
7876 set start "@0,0"
7877 }
7881 bell
7882 return
7883 }
7888 }
7889 }
7891 proc dosearchback {} {
7892 global sstring ctext searchstring searchdirn
7896 set searchdirn -backwards
7903 }
7907 bell
7908 return
7909 }
7914 }
7915 }
7917 proc searchmark {first last} {
7918 global ctext searchstring
7921 while {1} {
7926 }
7927 }
7929 proc searchmarkvisible {doall} {
7930 global ctext smarktop smarkbot
7935 # no overlap with previous
7939 } else {
7943 }
7947 }
7948 }
7949 }
7951 proc scrolltext {f0 f1} {
7952 global searchstring
7956 searchmarkvisible 0
7957 }
7958 }
7960 proc setcoords {} {
7961 global linespc charspc canvx0 canvy0
7962 global xspc1 xspc2 lthickness
7964 set linespc [font metrics mainfont -linespace]
7965 set charspc [font measure mainfont "m"]
7971 }
7973 proc redisplay {} {
7974 global canv
7975 global selectedline
7980 clear_display
7981 setcanvscroll
7983 drawvisible
7987 }
7988 }
7990 proc parsefont {f n} {
7991 global fontattr
7996 set s 10
7999 }
8005 "normal" -
8007 "roman" -
8009 }
8010 }
8011 }
8013 proc fontflags {f {isbold 0}} {
8014 global fontattr
8019 }
8021 proc fontname {f} {
8022 global fontattr
8026 lappend n "bold"
8027 }
8029 lappend n "italic"
8030 }
8032 }
8034 proc incrfont {inc} {
8035 global mainfont textfont ctext canv cflist showrefstop
8036 global stopped entries fontattr
8038 unmarkmatches
8042 set s 1
8043 }
8047 set mainfont [fontname mainfont]
8051 set s 1
8052 }
8056 set textfont [fontname textfont]
8057 setcoords
8058 settabs
8059 redisplay
8060 }
8062 proc clearsha1 {} {
8063 global sha1entry sha1string
8066 }
8067 }
8069 proc sha1change {n1 n2 op} {
8070 global sha1string currentid sha1but
8073 set state disabled
8074 } else {
8075 set state normal
8076 }
8080 } else {
8082 }
8083 }
8085 proc gotocommit {} {
8086 global sha1string tagids headids curview varcid
8094 } else {
8101 return
8102 }
8104 }
8105 } else {
8108 return
8109 }
8110 }
8111 }
8114 return
8115 }
8118 } else {
8120 }
8122 }
8124 proc lineenter {x y id} {
8125 global hoverx hovery hoverid hovertimer
8126 global commitinfo canv
8132 if {[info exists hovertimer]} {
8134 }
8135 set hovertimer [after 500 linehover]
8137 }
8139 proc linemotion {x y id} {
8140 global hoverx hovery hoverid hovertimer
8145 if {[info exists hovertimer]} {
8147 }
8148 set hovertimer [after 500 linehover]
8149 }
8150 }
8152 proc lineleave {id} {
8153 global hoverid hovertimer canv
8157 if {[info exists hovertimer]} {
8159 unset hovertimer
8160 }
8161 unset hoverid
8162 }
8163 }
8165 proc linehover {} {
8166 global hoverx hovery hoverid hovertimer
8167 global canv linespc lthickness
8168 global commitinfo
8181 -fill \#ffff80 -outline black -width 1 -tags hover]
8184 -font mainfont]
8186 }
8188 proc clickisonarrow {id y} {
8189 global lthickness
8198 }
8199 }
8200 return {}
8201 }
8203 proc arrowjump {id n y} {
8204 global canv
8206 # 1 <-> 2, 3 <-> 4, etc...
8216 set yfrac 0
8217 }
8219 }
8221 proc lineclick {x y id isnew} {
8222 global ctext commitinfo children canv thickerline curview
8225 unmarkmatches
8226 unselectline
8227 normalline
8229 # draw this line thicker than normal
8237 }
8241 return
8242 }
8246 }
8247 # fill the details pane with info about this line
8249 clear_ctext
8250 settabs 0
8262 set i 0
8264 incr i
8274 }
8275 }
8276 maybe_scroll_ctext 1
8278 init_flist {}
8279 }
8281 proc normalline {} {
8282 global thickerline
8283 if {[info exists thickerline]} {
8285 unset thickerline
8287 }
8288 }
8290 proc selbyid {id {isnew 1}} {
8291 global curview
8294 }
8295 }
8297 proc mstime {} {
8298 global startmstime
8299 if {![info exists startmstime]} {
8300 set startmstime [clock clicks -milliseconds]
8301 }
8303 }
8305 proc rowmenu {x y id} {
8306 global rowctxmenu selectedline rowmenuid curview
8307 global nullid nullid2 fakerowmenu mainhead markedid
8309 stopfinding
8312 set state disabled
8313 } else {
8314 set state normal
8315 }
8320 } else {
8322 }
8327 } else {
8331 }
8332 } else {
8334 }
8339 }
8341 proc markhere {} {
8342 global rowmenuid markedid canv
8346 }
8348 proc gotomark {} {
8349 global markedid
8351 if {[info exists markedid]} {
8353 }
8354 }
8356 proc replace_by_kids {l r} {
8357 global curview children
8363 }
8365 }
8367 proc find_common_desc {} {
8368 global markedid rowmenuid curview children
8370 if {![info exists markedid]} return
8373 #set t1 [clock clicks -milliseconds]
8376 while 1 {
8382 break
8383 }
8386 } else {
8388 }
8389 }
8390 #set t2 [clock clicks -milliseconds]
8392 }
8394 proc compare_commits {} {
8395 global markedid rowmenuid curview children
8397 if {![info exists markedid]} return
8401 }
8403 proc getpatchid {id} {
8404 global patchids
8408 # trim off the initial "|"
8410 if {[catch {
8413 }]} {
8415 }
8416 }
8418 }
8420 proc do_cmp_commits {a b} {
8421 global ctext curview parents children patchids commitinfo
8424 clear_ctext
8425 init_flist {}
8427 set skipa 0
8428 set skipb 0
8431 set skipa 1
8432 } else {
8434 }
8437 set skipb 1
8438 } else {
8440 }
8446 [mc " - stopping\n"]
8447 break
8448 }
8451 [mc " - stopping\n"]
8452 break
8453 }
8458 } else {
8462 }
8463 set skipa 1
8464 set skipb 1
8465 } else {
8472 update
8474 return
8475 }
8476 }
8483 break
8484 }
8486 }
8492 break
8493 }
8495 }
8496 }
8498 }
8500 proc diffcommits {a b} {
8501 global diffcontext diffids blobdifffd diffinhdr
8503 set tmpdir [gitknewtmpdir]
8506 if {[catch {
8509 } err]} {
8511 return
8512 }
8513 if {[catch {
8515 } err]} {
8517 return
8518 }
8521 set diffinhdr 0
8523 }
8525 proc diffvssel {dirn} {
8526 global rowmenuid selectedline
8532 } else {
8535 }
8538 }
8540 proc doseldiff {oldid newid} {
8541 global ctext
8542 global commitinfo
8545 clear_ctext
8546 init_flist [mc "Top"]
8561 }
8563 proc mkpatch {} {
8564 global rowmenuid currentid commitinfo patchtop patchnum NS
8566 if {![info exists currentid]} return
8571 set top .patch
8601 incr patchnum
8613 }
8615 proc mkpatchrev {} {
8616 global patchtop
8622 foreach e [list fromsha1 fromhead tosha1 tohead] \
8628 }
8629 }
8631 proc mkpatchgo {} {
8632 global patchtop nullid nullid2
8638 # trim off the initial "|"
8643 }
8645 unset patchtop
8646 }
8648 proc mkpatchcan {} {
8649 global patchtop
8652 unset patchtop
8653 }
8655 proc mktag {} {
8656 global rowmenuid mktagtop commitinfo NS
8658 set top .maketag
8687 }
8689 proc domktag {} {
8690 global mktagtop env tagids idtags
8696 return 0
8697 }
8700 return 0
8701 }
8702 if {[catch {
8704 } err]} {
8706 return 0
8707 }
8713 dispneartags 0
8714 run refill_reflist
8715 return 1
8716 }
8718 proc redrawtags {id} {
8719 global canv linehtag idpos currentid curview cmitlisted markedid
8720 global canvxmax iddrawn circleitem mainheadid circlecolors
8726 set ofill yellow
8727 } else {
8729 }
8739 setcanvscroll
8740 }
8743 }
8746 }
8747 }
8749 proc mktagcan {} {
8750 global mktagtop
8753 unset mktagtop
8754 }
8756 proc mktaggo {} {
8757 if {![domktag]} return
8758 mktagcan
8759 }
8761 proc writecommit {} {
8762 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8764 set top .writecommit
8797 }
8799 proc wrcomgo {} {
8800 global wrcomtop
8807 }
8809 unset wrcomtop
8810 }
8812 proc wrcomcan {} {
8813 global wrcomtop
8816 unset wrcomtop
8817 }
8819 proc mkbranch {} {
8820 global rowmenuid mkbrtop NS
8822 set top .makebranch
8846 }
8848 proc mkbrgo {top} {
8849 global headids idheads
8853 set cmdargs {}
8854 set old_id {}
8857 return
8858 }
8860 if {![confirm_popup [mc \
8862 return
8863 }
8865 lappend cmdargs -f
8866 }
8869 nowbusy newbranch
8870 update
8871 if {[catch {
8873 } err]} {
8874 notbusy newbranch
8876 } else {
8877 notbusy newbranch
8883 } else {
8888 }
8889 dispneartags 0
8890 run refill_reflist
8891 }
8892 }
8894 proc exec_citool {tool_args {baseid {}}} {
8895 global commitinfo env
8897 set save_env [array get env GIT_AUTHOR_*]
8902 }
8905 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8911 }
8912 }
8916 array unset env GIT_AUTHOR_*
8918 }
8920 proc cherrypick {} {
8921 global rowmenuid curview
8922 global mainhead mainheadid
8924 set oldhead [exec git rev-parse HEAD]
8927 set ok [confirm_popup [mc "Commit %s is already\
8928 included in branch %s -- really re-apply it?" \
8931 }
8932 nowbusy cherrypick [mc "Cherry-picking"]
8933 update
8934 # Unfortunately git-cherry-pick writes stuff to stderr even when
8935 # no error occurs, and exec takes that as an indication of error...
8937 notbusy cherrypick
8938 if {[regexp -line \
8939 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8941 error_popup [mc "Cherry-pick failed because of local changes\
8942 to file '%s'.\nPlease commit, reset or stash\
8944 } elseif {[regexp -line \
8945 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8947 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8948 conflict.\nDo you wish to run git citool to\
8949 resolve it?"]]} {
8950 # Force citool to read MERGE_MSG
8951 file delete [file join [gitdir] "GITGUI_MSG"]
8953 }
8954 } else {
8956 }
8957 run updatecommits
8958 return
8959 }
8960 set newhead [exec git rev-parse HEAD]
8962 notbusy cherrypick
8963 error_popup [mc "No changes committed"]
8964 return
8965 }
8968 # XXX this isn't right if we have a path limit...
8973 }
8978 }
8979 notbusy cherrypick
8980 }
8982 proc resethead {} {
8983 global mainhead rowmenuid confirm_ok resettype NS
8985 set confirm_ok 0
8986 set w ".confirmreset"
8994 set resettype mixed
8996 -text [mc "Soft: Leave working tree and index untouched"]
8999 -text [mc "Mixed: Leave working tree untouched, reset index"]
9002 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9013 if {[catch {set fd [open \
9016 } else {
9017 dohidelocalchanges
9019 nowbusy reset [mc "Resetting"]
9021 }
9022 }
9024 proc readresetstat {fd} {
9025 global mainhead mainheadid showlocalchanges rprogcoord
9030 adjustprogress
9031 }
9032 return 1
9033 }
9034 set rprogcoord 0
9035 adjustprogress
9036 notbusy reset
9039 }
9041 set newhead [exec git rev-parse HEAD]
9048 }
9050 doshowlocalchanges
9051 }
9052 return 0
9053 }
9055 # context menu for a head
9056 proc headmenu {x y id head} {
9057 global headmenuid headmenuhead headctxmenu mainhead
9059 stopfinding
9062 set state normal
9064 set state disabled
9065 }
9069 }
9071 proc cobranch {} {
9072 global headmenuid headmenuhead headids
9073 global showlocalchanges
9075 # check the tree is clean first??
9076 nowbusy checkout [mc "Checking out"]
9077 update
9078 dohidelocalchanges
9079 if {[catch {
9081 } err]} {
9082 notbusy checkout
9085 dodiffindex
9086 }
9087 } else {
9089 }
9090 }
9092 proc readcheckoutstat {fd newhead newheadid} {
9093 global mainhead mainheadid headids showlocalchanges progresscoords
9094 global viewmainheadid curview
9099 adjustprogress
9100 }
9101 return 1
9102 }
9103 set progresscoords {0 0}
9104 adjustprogress
9105 notbusy checkout
9108 }
9117 dodiffindex
9118 }
9119 }
9121 proc rmbranch {} {
9122 global headmenuid headmenuhead mainhead
9123 global idheads
9127 # this check shouldn't be needed any more...
9129 error_popup [mc "Cannot delete the currently checked-out branch"]
9130 return
9131 }
9134 # the stuff on this branch isn't on any other branch
9135 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9137 }
9138 nowbusy rmbranch
9139 update
9141 notbusy rmbranch
9143 return
9144 }
9148 notbusy rmbranch
9149 dispneartags 0
9150 run refill_reflist
9151 }
9153 # Display a list of tags and heads
9154 proc showrefs {} {
9155 global showrefstop bgcolor fgcolor selectbgcolor NS
9156 global bglist fglist reflistfilter reflist maincursor
9158 set top .showrefs
9162 refill_reflist
9163 return
9164 }
9172 -spacing1 1 -spacing3 1 -state disabled
9183 set reflistfilter "*"
9184 trace add variable reflistfilter write reflistfilter_change
9196 set reflist {}
9197 refill_reflist
9198 }
9200 proc sel_reflist {w x y} {
9201 global showrefstop reflist headids tagids otherrefids
9211 }
9213 }
9215 proc unsel_reflist {} {
9216 global showrefstop
9220 }
9222 proc reflistfilter_change {n1 n2 op} {
9223 global reflistfilter
9225 after cancel refill_reflist
9226 after 200 refill_reflist
9227 }
9229 proc refill_reflist {} {
9230 global reflist reflistfilter showrefstop headids tagids otherrefids
9231 global curview
9234 set refs {}
9235 foreach n [array names headids] {
9239 } else {
9241 }
9242 }
9243 }
9244 foreach n [array names tagids] {
9248 } else {
9250 }
9251 }
9252 }
9253 foreach n [array names otherrefids] {
9257 } else {
9259 }
9260 }
9261 }
9269 set i 0
9270 set j 0
9279 }
9280 } else {
9281 set cmp -1
9282 }
9283 } else {
9284 set cmp 1
9285 }
9287 -1 {
9289 incr i
9290 }
9291 0 {
9292 incr i
9293 incr j
9294 }
9295 1 {
9300 incr j
9301 }
9302 }
9303 }
9305 # delete last newline
9308 }
9310 # Stuff for finding nearby tags
9311 proc getallcommits {} {
9312 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9313 global idheads idtags idotherrefs allparents tagobjid
9315 if {![info exists allcommits]} {
9316 set nextarc 0
9317 set allcommits 0
9318 set seeds {}
9319 set allcwait 0
9320 set cachedarcs 0
9321 set allccache [file join [gitdir] "gitk.cache"]
9322 if {![catch {
9324 set allcwait 1
9326 }]} return
9327 }
9330 return
9331 }
9332 set cmd [list | git rev-list --parents]
9335 set ids "--all"
9336 } else {
9337 set refs [concat [array names idheads] [array names idtags] \
9338 [array names idotherrefs]]
9339 set ids {}
9340 set tagobjs {}
9341 foreach name [array names tagobjid] {
9343 }
9348 }
9349 }
9353 }
9354 }
9355 }
9359 incr allcommits
9360 nowbusy allcommits
9362 } else {
9363 dispneartags 0
9364 }
9365 }
9367 # Since most commits have 1 parent and 1 child, we group strings of
9368 # such commits into "arcs" joining branch/merge points (BMPs), which
9369 # are commits that either don't have 1 parent or don't have 1 child.
9370 #
9371 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9372 # arcout(id) - outgoing arcs for BMP
9373 # arcids(a) - list of IDs on arc including end but not start
9374 # arcstart(a) - BMP ID at start of arc
9375 # arcend(a) - BMP ID at end of arc
9376 # growing(a) - arc a is still growing
9377 # arctags(a) - IDs out of arcids (excluding end) that have tags
9378 # archeads(a) - IDs out of arcids (excluding end) that have heads
9379 # The start of an arc is at the descendent end, so "incoming" means
9380 # coming from descendents, and "outgoing" means going towards ancestors.
9382 proc getallclines {fd} {
9383 global allparents allchildren idtags idheads nextarc
9384 global arcnos arcids arctags arcout arcend arcstart archeads growing
9385 global seeds allcommits cachedarcs allcupdate
9387 set nid 0
9391 # seen it already
9392 continue
9393 }
9394 set cachedarcs 0
9401 } else {
9407 }
9410 }
9412 # seen parent already
9415 }
9419 }
9422 continue
9423 }
9424 }
9429 }
9431 set ao {}
9434 set a [incr nextarc]
9443 # seen it already, may need to make a new branch
9446 }
9450 }
9452 }
9454 }
9456 global cached_dheads cached_dtags cached_atags
9457 catch {unset cached_dheads}
9458 catch {unset cached_dtags}
9459 catch {unset cached_atags}
9460 }
9463 }
9464 set cacheok 1
9465 if {[catch {
9468 } err]} {
9469 # got an error reading the list of commits
9470 # if we were updating, try rereading the whole thing again
9472 incr allcommits -1
9474 return
9475 }
9476 error_popup "[mc "Error reading commit topology information;\
9477 branch and preceding/following tag information\
9479 set cacheok 0
9480 }
9481 if {[incr allcommits -1] == 0} {
9482 notbusy allcommits
9484 run savecache
9485 }
9486 }
9487 dispneartags 0
9488 return 0
9489 }
9491 proc recalcarc {a} {
9492 global arctags archeads arcids idtags idheads
9494 set at {}
9495 set ah {}
9499 }
9502 }
9503 }
9506 }
9508 proc splitarc {p} {
9509 global arcnos arcids nextarc arctags archeads idtags idheads
9510 global arcstart arcend arcout allparents growing
9515 return
9516 }
9521 return
9522 }
9523 set na [incr nextarc]
9526 } else {
9530 }
9540 }
9545 } else {
9548 }
9549 }
9551 # reconstruct tags and heads lists
9555 } else {
9558 }
9559 }
9561 # Update things for a new commit added that is a child of one
9562 # existing commit. Used when cherry-picking.
9563 proc addnewchild {id p} {
9564 global allparents allchildren idtags nextarc
9565 global arcnos arcids arctags arcout arcend arcstart archeads growing
9566 global seeds allcommits
9574 set a [incr nextarc]
9582 }
9585 }
9587 # This implements a cache for the topology information.
9588 # The cache saves, for each arc, the start and end of the arc,
9589 # the ids on the arc, and the outgoing arcs from the end.
9590 proc readcache {f} {
9591 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9592 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9593 global allcwait
9599 }
9600 if {[catch {
9602 # finish reading the cache and setting up arctags, etc.
9606 foreach id [array names idtags] {
9612 }
9613 }
9614 }
9615 foreach id [array names idheads] {
9621 }
9622 }
9623 }
9627 }
9628 }
9629 set allcwait 0
9630 } else {
9640 }
9644 } else {
9648 }
9649 }
9655 }
9658 }
9661 }
9663 }
9664 } err]} {
9666 return 0
9667 }
9669 getallcommits
9670 }
9672 }
9674 proc getcache {f} {
9675 global nextarc cachedarcs possible_seeds
9677 if {[catch {
9680 # make sure it's an integer
9683 set nextarc 0
9684 set possible_seeds {}
9686 } err]} {
9688 }
9689 return 0
9690 }
9692 proc dropcache {err} {
9693 global allcwait nextarc cachedarcs seeds
9696 foreach v {arcnos arcout arcids arcstart arcend growing \
9697 arctags archeads allparents allchildren} {
9700 }
9701 set allcwait 0
9702 set nextarc 0
9703 set cachedarcs 0
9704 set seeds {}
9705 getallcommits
9706 }
9708 proc writecache {f} {
9709 global cachearc cachedarcs allccache
9710 global arcstart arcend arcnos arcids arcout
9716 }
9717 if {[catch {
9721 } else {
9723 }
9724 }
9725 } err]} {
9729 return 0
9730 }
9735 return 0
9736 }
9737 return 1
9738 }
9740 proc savecache {} {
9741 global nextarc cachedarcs cachearc allccache
9744 set cachearc 0
9746 catch {
9750 }
9751 }
9753 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9754 # or 0 if neither is true.
9755 proc anc_or_desc {a b} {
9756 global arcout arcstart arcend arcnos cached_isanc
9759 # Both are on the same arc(s); either both are the same BMP,
9760 # or if one is not a BMP, the other is also not a BMP or is
9761 # the BMP at end of the arc (and it only has 1 incoming arc).
9762 # Or both can be BMPs with no incoming arcs.
9764 return 0
9765 }
9771 return 1
9772 } else {
9773 return -1
9774 }
9775 }
9781 } else {
9782 set aend {}
9783 }
9785 } else {
9787 }
9792 } else {
9793 set bend {}
9794 }
9796 } else {
9798 }
9800 return 1
9801 }
9803 return -1
9804 }
9807 return 1
9808 }
9809 }
9812 return -1
9813 }
9815 return 0
9816 }
9817 }
9825 continue
9826 }
9832 return 1
9836 return -1
9837 }
9843 }
9844 }
9845 }
9848 return 0
9849 }
9853 # and returns 0 if so and 1 if not.
9854 # If we subsequently discover a tag on such a growing tip, and that
9857 # isn't a good choice to display as a descendent tag of
9861 #
9862 proc is_certain {desc anc} {
9863 global arcnos arcout arcstart arcend growing problems
9865 set certain {}
9867 # tags on the same arc are certain
9869 return 1
9870 }
9875 }
9876 }
9879 } else {
9882 }
9884 return 1
9885 }
9888 set nnh 1
9889 set ngrowanc 0
9893 incr nnh -1
9894 }
9900 incr ngrowanc
9901 }
9902 } else {
9909 incr nnh -1
9910 }
9912 incr ngrowanc -1
9913 }
9923 incr nnh -1
9924 }
9926 incr ngrowanc -1
9927 }
9929 }
9930 }
9931 }
9932 }
9933 }
9934 }
9938 } else {
9941 incr nnh
9942 }
9943 }
9944 }
9945 }
9946 foreach x [array names growanc] {
9948 return 0
9949 }
9950 return 0
9951 }
9952 return 1
9953 }
9955 proc validate_arctags {a} {
9956 global arctags idtags
9958 set i -1
9961 incr i
9964 incr i -1
9965 }
9966 }
9968 }
9970 proc validate_archeads {a} {
9971 global archeads idheads
9973 set i -1
9976 incr i
9979 incr i -1
9980 }
9981 }
9983 }
9985 # Return the list of IDs that have tags that are descendents of id,
9986 # ignoring IDs that are descendents of IDs already reported.
9987 proc desctags {id} {
9988 global arcnos arcstart arcids arctags idtags allparents
9989 global growing cached_dtags
9992 return {}
9993 }
9994 set t1 [clock clicks -milliseconds]
9997 # part-way along an arc; check that arc first
10002 set tid {}
10007 }
10010 }
10011 }
10015 }
10016 }
10019 }
10024 set nc 1
10030 incr nc -1
10031 }
10032 # ignore tags on starting node
10036 set ta 1
10039 set ta 1
10040 }
10041 }
10048 }
10049 }
10058 }
10061 }
10063 incr nc -1
10064 }
10066 }
10067 }
10068 }
10073 incr nc
10074 }
10075 }
10076 }
10077 }
10078 set tags {}
10079 foreach id [array names tagloc] {
10084 }
10085 }
10086 }
10087 }
10088 set t2 [clock clicks -milliseconds]
10091 # remove tags that are descendents of other tags
10099 incr j -1
10100 incr i -1
10103 incr i -1
10104 break
10105 }
10106 }
10107 }
10109 if {[array names growing] ne {}} {
10110 # graph isn't finished, need to check if any tag could get
10111 # eclipsed by another tag coming later. Simply ignore any
10112 # tags that could later get eclipsed.
10113 set ctags {}
10117 }
10118 }
10121 } else {
10123 }
10124 } else {
10126 }
10127 set t3 [clock clicks -milliseconds]
10131 }
10133 }
10135 proc anctags {id} {
10136 global arcnos arcids arcout arcend arctags idtags allparents
10137 global growing cached_atags
10140 return {}
10141 }
10142 set t1 [clock clicks -milliseconds]
10145 # part-way along an arc; check that arc first
10154 }
10155 }
10156 }
10158 return {}
10159 }
10163 }
10164 }
10167 }
10172 set taglist {}
10173 set nc 1
10179 incr nc -1
10180 }
10181 # ignore tags on starting node
10185 set td 1
10188 set td 1
10189 }
10190 }
10196 }
10197 }
10209 }
10210 }
10213 }
10215 incr nc -1
10216 }
10218 }
10219 }
10220 }
10225 incr nc
10226 }
10227 }
10228 }
10229 }
10230 set t2 [clock clicks -milliseconds]
10232 set tags {}
10233 foreach id [array names tagloc] {
10238 }
10239 }
10240 }
10241 }
10243 # remove tags that are ancestors of other tags
10251 incr j -1
10252 incr i -1
10255 incr i -1
10256 break
10257 }
10258 }
10259 }
10261 if {[array names growing] ne {}} {
10262 # graph isn't finished, need to check if any tag could get
10263 # eclipsed by another tag coming later. Simply ignore any
10264 # tags that could later get eclipsed.
10265 set ctags {}
10269 }
10270 }
10273 } else {
10275 }
10276 } else {
10278 }
10279 set t3 [clock clicks -milliseconds]
10283 }
10285 }
10287 # Return the list of IDs that have heads that are descendents of id,
10288 # including id itself if it has a head.
10289 proc descheads {id} {
10290 global arcnos arcstart arcids archeads idheads cached_dheads
10291 global allparents
10294 return {}
10295 }
10296 set aret {}
10298 # part-way along an arc; check it first
10307 }
10308 }
10310 }
10314 set ret {}
10319 } else {
10322 }
10328 }
10329 }
10334 }
10335 }
10336 }
10337 }
10341 }
10343 proc addedtag {id} {
10344 global arcnos arcout cached_dtags cached_atags
10349 }
10350 catch {unset cached_dtags}
10351 catch {unset cached_atags}
10352 }
10354 proc addedhead {hid head} {
10355 global arcnos arcout cached_dheads
10360 }
10361 catch {unset cached_dheads}
10362 }
10364 proc removedhead {hid head} {
10365 global cached_dheads
10367 catch {unset cached_dheads}
10368 }
10370 proc movedhead {hid head} {
10371 global arcnos arcout cached_dheads
10376 }
10377 catch {unset cached_dheads}
10378 }
10380 proc changedrefs {} {
10381 global cached_dheads cached_dtags cached_atags
10382 global arctags archeads arcnos arcout idheads idtags
10384 foreach id [concat [array names idheads] [array names idtags]] {
10390 }
10391 }
10392 }
10393 catch {unset cached_dtags}
10394 catch {unset cached_atags}
10395 catch {unset cached_dheads}
10396 }
10398 proc rereadrefs {} {
10399 global idtags idheads idotherrefs mainheadid
10401 set refids [concat [array names idtags] \
10402 [array names idheads] [array names idotherrefs]]
10406 }
10407 }
10409 readrefs
10410 changedrefs
10412 [array names idheads] [array names idotherrefs]]]
10417 }
10418 }
10422 }
10423 run refill_reflist
10424 }
10426 proc listrefs {id} {
10427 global idtags idheads idotherrefs
10429 set x {}
10432 }
10433 set y {}
10436 }
10437 set z {}
10440 }
10442 }
10444 proc showtag {tag isnew} {
10445 global ctext tagcontents tagids linknum tagobjid
10449 }
10451 clear_ctext
10452 settabs 0
10453 set linknum 0
10455 catch {
10457 }
10458 }
10461 } else {
10463 }
10465 maybe_scroll_ctext
10467 init_flist {}
10468 }
10470 proc doquit {} {
10471 global stopped
10472 global gitktmpdir
10474 set stopped 100
10475 savestuff .
10476 destroy .
10478 if {[info exists gitktmpdir]} {
10480 }
10481 }
10483 proc mkfontdisp {font top which} {
10493 }
10495 proc choosefont {font which} {
10496 global fontparam fontlist fonttop fontattr
10497 global prefstop NS
10505 set top .gitkfont
10508 font create sample
10515 set fontlist [lsort [font families]]
10526 -textvariable fontparam(size) \
10527 -validatecommand {string is integer -strict %s}
10529 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10530 -variable fontparam(weight) -onvalue bold -offvalue normal
10532 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10533 -variable fontparam(slant) -onvalue italic -offvalue roman
10537 -background white
10539 -fill black -tags text
10551 trace add variable fontparam write chg_fontparam
10552 } else {
10555 }
10560 }
10561 }
10563 proc centertext {w} {
10565 }
10567 proc fontok {} {
10568 global fontparam fontpref prefstop
10574 }
10577 }
10581 fontcan
10582 }
10584 proc fontcan {} {
10585 global fonttop fontparam
10587 if {[info exists fonttop]} {
10589 catch {font delete sample}
10590 unset fonttop
10591 unset fontparam
10592 }
10593 }
10595 if {[package vsatisfies [package provide Tk] 8.6]} {
10596 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10597 # function to make use of it.
10598 proc choosefont {font which} {
10601 tk fontchooser show
10602 }
10603 proc on_choosefont {font which newfont} {
10604 global fontparam
10613 fontok
10614 }
10615 }
10617 proc selfontfam {} {
10618 global fonttop fontparam
10623 }
10624 }
10626 proc chg_fontparam {v sub op} {
10627 global fontparam
10630 }
10632 proc doprefs {} {
10633 global maxwidth maxgraphpct use_ttk NS
10634 global oldprefs prefstop showneartags showlocalchanges
10635 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10636 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10637 global hideremotes want_ttk have_ttk
10639 set top .gitkprefs
10643 return
10644 }
10645 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10646 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10648 }
10662 -variable showlocalchanges
10665 -variable autoselect
10668 -variable hideremotes
10677 -variable showneartags
10680 -variable limitdiffs
10683 -variable perfile_attrs
10697 -text [mc "Use themed widgets"]
10700 } else {
10702 }
10728 [mc "diff hunk header"] \
10734 [mc "marked line background"] \
10749 foreach w {maxpctl maxwidthl showlocal autoselect tabstopl ntag
10750 ldiff lattr extdifff.l extdifff.b bgbut fgbut
10751 diffoldbut diffnewbut hunksepbut markbgbut selbgbut
10752 want_ttk ttk_note} {
10754 }
10755 }
10768 }
10770 proc choose_extdiff {} {
10771 global extdifftool
10773 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10776 }
10777 }
10779 proc choosecolor {v vi w x cmd} {
10788 }
10790 proc setselbg {c} {
10791 global bglist cflist
10794 }
10798 }
10800 proc setbg {c} {
10801 global bglist
10805 }
10806 }
10808 proc setfg {c} {
10809 global fglist canv
10813 }
10817 }
10819 proc prefscan {} {
10820 global oldprefs prefstop
10822 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10823 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
10826 }
10828 unset prefstop
10829 fontcan
10830 }
10832 proc prefsok {} {
10833 global maxwidth maxgraphpct
10834 global oldprefs prefstop showneartags showlocalchanges
10835 global fontpref mainfont textfont uifont
10836 global limitdiffs treediffs perfile_attrs
10837 global hideremotes
10840 unset prefstop
10841 fontcan
10842 set fontchanged 0
10846 eval font configure mainfont [fontflags mainfont]
10847 eval font configure mainfontbold [fontflags mainfont 1]
10848 setcoords
10849 set fontchanged 1
10850 }
10854 eval font configure textfont [fontflags textfont]
10855 eval font configure textfontbold [fontflags textfont 1]
10856 }
10860 eval font configure uifont [fontflags uifont]
10861 }
10862 settabs
10865 doshowlocalchanges
10866 } else {
10867 dohidelocalchanges
10868 }
10869 }
10872 # treediffs elements are limited by path;
10873 # won't have encodings cached if perfile_attrs was just turned on
10874 catch {unset treediffs}
10875 }
10878 redisplay
10881 reselectline
10882 }
10884 rereadrefs
10885 }
10886 }
10888 proc formatdate {d} {
10889 global datetimeformat
10892 }
10894 }
10896 # This list of encoding names and aliases is distilled from
10897 # http://www.iana.org/assignments/character-sets.
10898 # Not all of them are supported by Tcl.
10899 set encoding_aliases {
10900 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10901 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10902 { ISO-10646-UTF-1 csISO10646UTF1 }
10903 { ISO_646.basic:1983 ref csISO646basic1983 }
10904 { INVARIANT csINVARIANT }
10905 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10906 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10907 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10908 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10909 { NATS-DANO iso-ir-9-1 csNATSDANO }
10910 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10911 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10912 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10913 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10914 { ISO-2022-KR csISO2022KR }
10915 { EUC-KR csEUCKR }
10916 { ISO-2022-JP csISO2022JP }
10917 { ISO-2022-JP-2 csISO2022JP2 }
10918 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10919 csISO13JISC6220jp }
10920 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10921 { IT iso-ir-15 ISO646-IT csISO15Italian }
10922 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10923 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10924 { greek7-old iso-ir-18 csISO18Greek7Old }
10925 { latin-greek iso-ir-19 csISO19LatinGreek }
10926 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10927 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10928 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10929 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10930 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10931 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10932 { INIS iso-ir-49 csISO49INIS }
10933 { INIS-8 iso-ir-50 csISO50INIS8 }
10934 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10935 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10936 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10937 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10938 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10939 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10940 csISO60Norwegian1 }
10941 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10942 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10943 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10944 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10945 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10946 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10947 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10948 { greek7 iso-ir-88 csISO88Greek7 }
10949 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10950 { iso-ir-90 csISO90 }
10951 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10952 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10953 csISO92JISC62991984b }
10954 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10955 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10956 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10957 csISO95JIS62291984handadd }
10958 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10959 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10960 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10961 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10962 CP819 csISOLatin1 }
10963 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10964 { T.61-7bit iso-ir-102 csISO102T617bit }
10965 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10966 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10967 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10968 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10969 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10970 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10971 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10972 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10973 arabic csISOLatinArabic }
10974 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10975 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10976 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10977 greek greek8 csISOLatinGreek }
10978 { T.101-G2 iso-ir-128 csISO128T101G2 }
10979 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10980 csISOLatinHebrew }
10981 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10982 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10983 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10984 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10985 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10986 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10987 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10988 csISOLatinCyrillic }
10989 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10990 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10991 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10992 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10993 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10994 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10995 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10996 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10997 { ISO_10367-box iso-ir-155 csISO10367Box }
10998 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10999 { latin-lap lap iso-ir-158 csISO158Lap }
11000 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11001 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11002 { us-dk csUSDK }
11003 { dk-us csDKUS }
11004 { JIS_X0201 X0201 csHalfWidthKatakana }
11005 { KSC5636 ISO646-KR csKSC5636 }
11006 { ISO-10646-UCS-2 csUnicode }
11007 { ISO-10646-UCS-4 csUCS4 }
11008 { DEC-MCS dec csDECMCS }
11009 { hp-roman8 roman8 r8 csHPRoman8 }
11010 { macintosh mac csMacintosh }
11011 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11012 csIBM037 }
11013 { IBM038 EBCDIC-INT cp038 csIBM038 }
11014 { IBM273 CP273 csIBM273 }
11015 { IBM274 EBCDIC-BE CP274 csIBM274 }
11016 { IBM275 EBCDIC-BR cp275 csIBM275 }
11017 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11018 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11019 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11020 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11021 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11022 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11023 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11024 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11025 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11026 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11027 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11028 { IBM437 cp437 437 csPC8CodePage437 }
11029 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11030 { IBM775 cp775 csPC775Baltic }
11031 { IBM850 cp850 850 csPC850Multilingual }
11032 { IBM851 cp851 851 csIBM851 }
11033 { IBM852 cp852 852 csPCp852 }
11034 { IBM855 cp855 855 csIBM855 }
11035 { IBM857 cp857 857 csIBM857 }
11036 { IBM860 cp860 860 csIBM860 }
11037 { IBM861 cp861 861 cp-is csIBM861 }
11038 { IBM862 cp862 862 csPC862LatinHebrew }
11039 { IBM863 cp863 863 csIBM863 }
11040 { IBM864 cp864 csIBM864 }
11041 { IBM865 cp865 865 csIBM865 }
11042 { IBM866 cp866 866 csIBM866 }
11043 { IBM868 CP868 cp-ar csIBM868 }
11044 { IBM869 cp869 869 cp-gr csIBM869 }
11045 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11046 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11047 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11048 { IBM891 cp891 csIBM891 }
11049 { IBM903 cp903 csIBM903 }
11050 { IBM904 cp904 904 csIBBM904 }
11051 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11052 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11053 { IBM1026 CP1026 csIBM1026 }
11054 { EBCDIC-AT-DE csIBMEBCDICATDE }
11055 { EBCDIC-AT-DE-A csEBCDICATDEA }
11056 { EBCDIC-CA-FR csEBCDICCAFR }
11057 { EBCDIC-DK-NO csEBCDICDKNO }
11058 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11059 { EBCDIC-FI-SE csEBCDICFISE }
11060 { EBCDIC-FI-SE-A csEBCDICFISEA }
11061 { EBCDIC-FR csEBCDICFR }
11062 { EBCDIC-IT csEBCDICIT }
11063 { EBCDIC-PT csEBCDICPT }
11064 { EBCDIC-ES csEBCDICES }
11065 { EBCDIC-ES-A csEBCDICESA }
11066 { EBCDIC-ES-S csEBCDICESS }
11067 { EBCDIC-UK csEBCDICUK }
11068 { EBCDIC-US csEBCDICUS }
11069 { UNKNOWN-8BIT csUnknown8BiT }
11070 { MNEMONIC csMnemonic }
11071 { MNEM csMnem }
11072 { VISCII csVISCII }
11073 { VIQR csVIQR }
11074 { KOI8-R csKOI8R }
11075 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11076 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11077 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11078 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11079 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11080 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11081 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11082 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11083 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11084 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11085 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11086 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11087 { IBM1047 IBM-1047 }
11088 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11089 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11090 { UNICODE-1-1 csUnicode11 }
11091 { CESU-8 csCESU-8 }
11092 { BOCU-1 csBOCU-1 }
11093 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11094 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11095 l8 }
11096 { ISO-8859-15 ISO_8859-15 Latin-9 }
11097 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11098 { GBK CP936 MS936 windows-936 }
11099 { JIS_Encoding csJISEncoding }
11100 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11101 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11102 EUC-JP }
11103 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11104 { ISO-10646-UCS-Basic csUnicodeASCII }
11105 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11106 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11107 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11108 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11109 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11110 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11111 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11112 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11113 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11114 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11115 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11116 { Ventura-US csVenturaUS }
11117 { Ventura-International csVenturaInternational }
11118 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11119 { PC8-Turkish csPC8Turkish }
11120 { IBM-Symbols csIBMSymbols }
11121 { IBM-Thai csIBMThai }
11122 { HP-Legal csHPLegal }
11123 { HP-Pi-font csHPPiFont }
11124 { HP-Math8 csHPMath8 }
11125 { Adobe-Symbol-Encoding csHPPSMath }
11126 { HP-DeskTop csHPDesktop }
11127 { Ventura-Math csVenturaMath }
11128 { Microsoft-Publishing csMicrosoftPublishing }
11129 { Windows-31J csWindows31J }
11130 { GB2312 csGB2312 }
11131 { Big5 csBig5 }
11132 }
11134 proc tcl_encoding {enc} {
11135 global encoding_aliases tcl_encoding_cache
11138 }
11139 set names [encoding names]
11144 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11147 }
11148 }
11153 # look through the aliases for one that tcl knows about
11159 }
11160 }
11162 }
11163 break
11164 }
11165 }
11166 set tclenc {}
11169 }
11172 }
11174 proc gitattr {path attr default} {
11175 global path_attr_cache
11178 } else {
11179 set r "unspecified"
11182 }
11184 }
11187 }
11189 }
11191 proc cache_gitattr {attr pathlist} {
11192 global path_attr_cache
11193 set newlist {}
11197 }
11198 }
11199 set lim 1000
11200 if {[tk windowingsystem] == "win32"} {
11201 # windows has a 32k limit on the arguments to a command...
11202 set lim 30
11203 }
11212 }
11214 }
11215 }
11216 }
11217 }
11218 }
11220 proc get_path_encoding {path} {
11221 global gui_encoding perfile_attrs
11227 }
11228 }
11230 }
11232 # First check that Tcl/Tk is recent enough
11233 if {[catch {package require Tk 8.4} err]} {
11234 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11235 Gitk requires at least Tcl/Tk 8.4."]
11236 exit 1
11237 }
11239 # defaults...
11240 set wrcomcmd "git diff-tree --stdin -p --pretty"
11242 set gitencoding {}
11243 catch {
11244 set gitencoding [exec git config --get i18n.commitencoding]
11245 }
11246 catch {
11247 set gitencoding [exec git config --get i18n.logoutputencoding]
11248 }
11250 set gitencoding "utf-8"
11251 }
11255 }
11257 set gui_encoding [encoding system]
11258 catch {
11259 set enc [exec git config --get gui.encoding]
11264 } else {
11266 }
11267 }
11268 }
11270 if {[tk windowingsystem] eq "aqua"} {
11271 set mainfont {{Lucida Grande} 9}
11272 set textfont {Monaco 9}
11273 set uifont {{Lucida Grande} 9 bold}
11274 } else {
11275 set mainfont {Helvetica 9}
11276 set textfont {Courier 9}
11277 set uifont {Helvetica 9 bold}
11278 }
11279 set tabstop 8
11280 set findmergefiles 0
11281 set maxgraphpct 50
11282 set maxwidth 16
11283 set revlistorder 0
11284 set fastdate 0
11285 set uparrowlen 5
11286 set downarrowlen 5
11287 set mingaplen 100
11288 set cmitmode "patch"
11289 set wrapcomment "none"
11290 set showneartags 1
11291 set hideremotes 0
11292 set maxrefs 20
11293 set maxlinelen 200
11294 set showlocalchanges 1
11295 set limitdiffs 1
11296 set datetimeformat "%Y-%m-%d %H:%M:%S"
11297 set autoselect 1
11298 set perfile_attrs 0
11299 set want_ttk 1
11301 if {[tk windowingsystem] eq "aqua"} {
11302 set extdifftool "opendiff"
11303 } else {
11304 set extdifftool "meld"
11305 }
11307 set colors {green red blue magenta darkgrey brown orange}
11308 set bgcolor white
11309 set fgcolor black
11310 set diffcolors {red "#00a000" blue}
11311 set diffcontext 3
11312 set ignorespace 0
11313 set selectbgcolor gray85
11314 set markbgcolor "#e0e0ff"
11316 set circlecolors {white blue gray blue blue}
11318 # button for popping up context menus
11319 if {[tk windowingsystem] eq "aqua"} {
11320 set ctxbut <Button-2>
11321 } else {
11322 set ctxbut <Button-3>
11323 }
11325 ## For msgcat loading, first locate the installation location.
11326 if { [info exists ::env(GITK_MSGSDIR)] } {
11327 ## Msgsdir was manually set in the environment.
11328 set gitk_msgsdir $::env(GITK_MSGSDIR)
11329 } else {
11330 ## Let's guess the prefix from argv0.
11334 unset gitk_prefix
11335 }
11337 ## Internationalization (i18n) through msgcat and gettext. See
11338 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11339 package require msgcat
11340 namespace import ::msgcat::mc
11341 ## And eventually load the actual message catalog
11344 catch {source ~/.gitk}
11346 font create optionfont -family sans-serif -size -12
11349 eval font create mainfont [fontflags mainfont]
11350 eval font create mainfontbold [fontflags mainfont 1]
11353 eval font create textfont [fontflags textfont]
11354 eval font create textfontbold [fontflags textfont 1]
11357 eval font create uifont [fontflags uifont]
11359 setoptions
11361 # check that we can find a .git directory somewhere...
11362 if {[catch {set gitdir [gitdir]}]} {
11363 show_error {} . [mc "Cannot find a git repository here."]
11364 exit 1
11365 }
11368 exit 1
11369 }
11371 set selecthead {}
11372 set selectheadid {}
11374 set revtreeargs {}
11375 set cmdline_files {}
11376 set i 0
11377 set revtreeargscmd {}
11380 "" { }
11381 "--" {
11383 break
11384 }
11385 "--select-commit=*" {
11387 }
11388 "--argscmd=*" {
11390 }
11391 default {
11393 }
11394 }
11395 incr i
11396 }
11399 set selecthead {}
11400 }
11403 # no -- on command line, but some arguments (other than --argscmd)
11404 if {[catch {
11409 # Unfortunately git rev-parse doesn't produce an error when
11410 # something is both a revision and a filename. To be consistent
11411 # with git log and git rev-list, check revtreeargs for filenames.
11414 show_error {} . [mc "Ambiguous argument '%s': both revision\
11416 exit 1
11417 }
11418 }
11419 } err]} {
11421 # so look for "fatal:".
11425 }
11427 exit 1
11428 }
11429 }
11431 set nullid "0000000000000000000000000000000000000000"
11432 set nullid2 "0000000000000000000000000000000000000001"
11433 set nullfile "/dev/null"
11436 if {![info exists have_ttk]} {
11437 set have_ttk [llength [info commands ::ttk::style]]
11438 }
11442 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11444 set runq {}
11445 set history {}
11446 set historyindex 0
11447 set fh_serial 0
11448 set nhl_names {}
11449 set highlight_paths {}
11450 set findpattern {}
11451 set searchdirn -forwards
11452 set boldids {}
11453 set boldnameids {}
11454 set diffelide {0 0}
11455 set markingmatches 0
11456 set linkentercount 0
11457 set need_redisplay 0
11458 set nrows_drawn 0
11459 set firsttabstop 0
11461 set nextviewnum 1
11462 set curview 0
11463 set selectedview 0
11464 set selectedhlview [mc "None"]
11465 set highlight_related [mc "None"]
11466 set highlight_files {}
11467 set viewfiles(0) {}
11468 set viewperm(0) 0
11469 set viewargs(0) {}
11470 set viewargscmd(0) {}
11472 set selectedline {}
11473 set numcommits 0
11474 set loginstance 0
11475 set cmdlineok 0
11476 set stopped 0
11477 set stuffsaved 0
11478 set patchnum 0
11479 set lserial 0
11480 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11481 setcoords
11482 makewindow
11483 catch {
11484 image create photo gitlogo -width 16 -height 16
11486 image create photo gitlogominus -width 4 -height 2
11487 gitlogominus put #C00000 -to 0 0 4 2
11488 gitlogo copy gitlogominus -to 1 5
11489 gitlogo copy gitlogominus -to 6 5
11490 gitlogo copy gitlogominus -to 11 5
11491 image delete gitlogominus
11493 image create photo gitlogoplus -width 4 -height 4
11494 gitlogoplus put #008000 -to 1 0 3 4
11495 gitlogoplus put #008000 -to 0 1 4 3
11496 gitlogo copy gitlogoplus -to 1 9
11497 gitlogo copy gitlogoplus -to 6 9
11498 gitlogo copy gitlogoplus -to 11 9
11499 image delete gitlogoplus
11501 image create photo gitlogo32 -width 32 -height 32
11502 gitlogo32 copy gitlogo -zoom 2 2
11504 wm iconphoto . -default gitlogo gitlogo32
11505 }
11506 # wait for the window to become visible
11507 tkwait visibility .
11509 update
11510 readrefs
11513 # create a view for the files/dirs specified on the command line
11514 set curview 1
11515 set selectedview 1
11516 set nextviewnum 2
11517 set viewname(1) [mc "Command line"]
11521 set viewperm(1) 0
11522 set vdatemode(1) 0
11523 addviewmenu 1
11524 .bar.view entryconf [mca "Edit view..."] -state normal
11525 .bar.view entryconf [mca "Delete view"] -state normal
11526 }
11528 if {[info exists permviews]} {
11531 incr nextviewnum
11538 }
11539 }
11541 if {[tk windowingsystem] eq "win32"} {
11542 focus -force .
11543 }
11545 getcommits {}