| blob | a0214b7004f141b7c918a5360d85f8f9e2db285c |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 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 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq currunq
30 after idle dorunq
31 }
34 }
38 }
41 global runq currunq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq currunq
73 unset currunq
78 # script returns 1 if it wants to be readded
79 # file readers return 2 if they could do more straight away
83 }
86 }
89 }
91 after idle dorunq
92 }
93 }
96 global commfd leftover loginstance
102 }
105 global nr_unmerged
107 # find the list of unmerged files
114 exit 1
115 }
121 incr nr_unmerged
124 }
125 }
128 }
130 proc parseviewargs {n arglist} {
131 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
135 set glflags {}
136 set diffargs {}
137 set nextisval 0
138 set revargs {}
140 set allknown 1
141 set filtered 0
142 set i -1
144 incr i
147 set nextisval 0
148 continue
149 }
151 "-d" -
152 "--date-order" {
154 # remove from origargs in case we hit an unknown option
156 incr i -1
157 }
158 "-[puabwcrRBMC]" -
159 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
160 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
161 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
162 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
163 "--ignore-space-change" - "-U*" - "--unified=*" {
164 # These request or affect diff output, which we don't want.
165 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
175 # These cause our parsing of git log's output to fail, or else
176 # they're options we want to set ourselves, so ignore them.
177 }
182 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
192 # These mean that we get a subset of the commits
194 lappend glflags $arg
195 }
197 # This appears to be the only one that has a value as a
198 # separate word following it
201 lappend glflags $arg
202 }
204 lappend revargs $arg
205 }
208 # git rev-parse doesn't understand --merge
209 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
210 }
212 # Other flag arguments including -<n>
216 # a flag argument that we don't recognize;
217 # that means we can't optimize
219 }
220 lappend glflags $arg
221 }
222 default {
223 # Non-flag arguments specify commits or ranges of commits
225 lappend revargs --gitk-symmetric-diff-marker
226 }
227 lappend revargs $arg
228 }
229 }
230 }
237 }
240 global vposids vnegids
243 set revs HEAD
244 }
246 # we get stdout followed by stderr in $err
247 # for an unknown rev, git rev-parse echoes it and then errors out
260 }
263 }
264 break
265 }
266 lappend badrev $line
267 }
268 }
271 }
281 lappend ret $id
284 }
285 }
289 lappend ret $id
292 }
293 lappend pos $id
294 }
295 incr sdm -1
296 }
300 }
302 # Start off a git log process and arrange to read its output
304 global startmsecs commitidx viewcomplete curview
305 global tclencoding
306 global viewargs viewargscmd viewfiles vfilelimit
307 global showlocalchanges
308 global viewactive viewinstances vmergeonly
309 global mainheadid viewmainheadid viewmainheadid_orig
310 global vcanopt vflags vrevs vorigargs
314 # these are set this way for the error exits
317 varcinit $view
326 }
328 }
335 global nr_unmerged
342 }
344 }
345 }
352 }
356 }
364 }
370 get_viewmainhead $view
371 }
374 }
378 }
384 }
387 global commfd leftover
390 catch {
397 }
398 }
400 nukefile $fd
403 }
405 proc stop_backends {} {
406 global commfd
409 stop_instance $inst
410 }
411 }
414 global viewinstances
417 stop_instance $inst
418 }
420 }
423 global pending_select mainheadid selectheadid
431 }
432 }
435 global canv curview need_redisplay viewactive
437 initlayout
439 reset_pending_select $selid
444 }
445 }
447 proc updatecommits {} {
448 global curview vcanopt vorigargs vfilelimit viewinstances
449 global viewactive viewcomplete tclencoding
450 global startmsecs showneartags showlocalchanges
451 global mainheadid viewmainheadid viewmainheadid_orig pending_select
452 global isworktree
453 global varcid vposids vnegids vflags vrevs
456 rereadrefs
460 dohidelocalchanges
461 }
465 get_viewmainhead $view
466 }
467 }
469 doshowlocalchanges
470 }
476 return
477 }
478 # note: getting the delta when negative refs change is hard,
479 # and could require multiple git log invocations, so in that
480 # case we ask git log for all the commits (not just the delta)
484 # take out positive refs that we asked for before or
485 # that we have already seen
490 lappend newrevs $rev
491 incr npos
492 }
494 lappend $newrevs $rev
495 }
496 }
500 }
504 }
510 return
511 }
514 }
520 }
524 reset_pending_select {}
527 getallcommits
528 }
529 }
531 proc reloadcommits {} {
532 global curview viewcomplete selectedline currentid thickerline
533 global showneartags treediffs commitinterest cached_commitrow
534 global targetid
539 }
542 stop_rev_list $curview
543 }
544 resetvarcs $curview
549 readrefs
550 changedrefs
552 getallcommits
553 }
554 clear_display
558 setcanvscroll
559 getcommits $selid
561 }
563 # This makes a string representation of a positive integer which
564 # sorts as a string in numerical order
572 }
574 }
576 # Procedures used in reordering commits from git log (without
577 # --topo-order) into the order for display.
580 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
581 global vtokmod varcmod vrowmod varcix vlastins
595 }
598 global varcid varccommits parents children vseedcount ordertok
604 }
605 # some commits might have children but haven't been seen yet
608 }
611 }
614 }
616 }
618 # returns a list of the commits with no children
620 global vdownptr vleftptr varcstart
627 }
629 }
632 global varcid varctok parents children vdatemode
633 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
634 global commitdata commitinfo vseedcount varccommits vlastins
641 }
645 }
648 }
654 }
663 }
664 }
669 }
676 }
680 }
687 }
693 }
702 }
705 global varcid varcstart varccommits varctok vtokmod
706 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
714 # "%" sorts before "0"...
724 }
734 }
736 modify_arc $v $oa
737 }
738 }
741 global parents children varctok varcstart varccommits
742 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
751 lappend todo $a
756 }
757 }
758 }
759 incr ntot
766 }
767 }
769 }
776 }
782 }
791 }
792 }
797 }
799 continue
800 }
807 }
808 }
813 modify_arc $v $ka
814 }
816 modify_arc $v $b
817 }
824 }
827 }
830 }
839 }
844 }
851 }
855 }
857 }
858 }
863 }
864 }
866 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
867 }
869 # Fix up the graph after we have found out that in view $v,
870 # $p (a commit that we have already seen) is actually the parent
871 # of the last commit in arc $a.
873 global varcid varcstart varctok vupptr
877 splitvarc $p $v
879 }
880 # seeds always need to be renumbered
884 renumbervarc $pa $v
885 }
886 }
889 global cmitlisted children parents varcid varctok vtokmod
890 global varccommits ordertok commitidx numcommits curview
891 global targetid targetrow
893 readcommit $id
901 modify_arc $v $a
902 }
908 }
909 fix_reversal $p $a $v
913 setcanvscroll
916 incr targetrow
917 }
918 }
919 }
920 }
923 global varcid varccommits parents children cmitlisted
924 global commitidx varctok vtokmod targetid targetrow curview numcommits
931 return
932 }
939 # note we deliberately don't update varcstart($v) even if $i == 0
941 modify_arc $v $a $i
944 incr targetrow
945 }
946 }
947 setcanvscroll
948 drawvisible
949 }
952 global varcid varccommits parents children commitidx
953 global varctok vtokmod cmitlisted currentid selectedline
954 global targetid curview numcommits
959 return
960 }
966 return
967 }
977 }
978 modify_arc $v $a $i
980 unset currentid
982 }
985 }
986 setcanvscroll
987 drawvisible
988 }
991 global children nullid nullid2
996 }
997 }
999 }
1002 global children nullid nullid2
1009 }
1010 }
1012 }
1015 global varctok varcid
1019 }
1021 # This assumes that if lim is not given, the caller has checked that
1022 # arc a's token is less than $vtokmod($v)
1024 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1032 }
1033 }
1040 }
1045 }
1047 }
1049 undolayout $r
1050 }
1051 }
1054 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1055 global varcid vrownum varcorder varcix varccommits
1056 global vupptr vdownptr vleftptr varctok
1057 global displayorder parentlist curview cached_commitrow
1064 }
1066 }
1070 # go up the tree until we find something that has a row number,
1071 # or we get to a seed
1073 }
1088 }
1090 }
1094 # go down if possible
1097 # if not, go left, or go up until we can go left
1102 }
1104 }
1106 incr arcn
1111 }
1117 }
1118 }
1120 # Test whether view $v contains commit $id
1122 global varcid
1125 }
1127 # Return the row number for commit $id in the current view
1129 global varcid varccommits varcrow curview cached_commitrow
1130 global varctok vtokmod
1136 }
1139 update_arcrows $v
1140 }
1143 }
1148 }
1152 }
1154 # Returns 1 if a is on an earlier row than b, otherwise 0
1156 global varcid varctok curview
1162 }
1166 }
1168 }
1173 }
1185 }
1186 }
1188 }
1190 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1192 global vrownum curview commitidx displayorder parentlist
1193 global varccommits varcorder parents vrowmod varcrow
1194 global d_valid_start d_valid_end
1197 update_arcrows $curview
1198 }
1214 }
1216 lappend displayorder $id
1218 }
1222 lset displayorder $i $id
1224 incr i
1225 }
1226 }
1227 incr r $al
1228 }
1229 }
1232 global displayorder
1238 }
1240 }
1243 global varctok varccommits varcid parents children
1244 global cmitlisted commitidx vtokmod
1253 # add p as a new commit
1254 incr missing_parents
1262 }
1265 modify_arc $v $b
1266 }
1270 }
1271 }
1275 }
1276 }
1277 }
1279 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1280 # Assumes we already have an arc for $rwid.
1282 global children parents varcid varctok vtokmod varccommits
1285 # make $rwid be $ch's parent in place of $id
1289 }
1291 # add $ch to $rwid's children and sort the list if necessary
1295 }
1296 # fix the graph after joining $id to $rwid
1298 fix_reversal $rwid $a $v
1299 # parentlist is wrong for the last element of arc $a
1300 # even if displayorder is right, hence the 3rd arg here
1302 }
1303 }
1305 # Mechanism for registering a command to be executed when we come
1306 # across a particular commit. To handle the case when only the
1307 # prefix of the commit is known, the commitinterest array is now
1308 # indexed by the first 4 characters of the ID. Each element is a
1309 # list of id, cmd pairs.
1311 global commitinterest
1314 }
1317 global commitinterest
1326 lappend newlist $i $script
1327 }
1328 }
1333 }
1334 }
1336 }
1339 global cmitlisted leftover
1340 global commitidx commitdata vdatemode
1341 global parents children curview hlview
1342 global idpending ordertok
1343 global varccommits varcid varctok vtokmod vfilelimit
1346 # git log doesn't terminate the last commit with a null...
1349 }
1353 }
1354 global commfd viewcomplete viewactive viewname
1355 global viewinstances
1360 }
1361 # set it blocking so we wait for the process to terminate
1367 }
1370 bad arguments to git log."
1372 append err \
1373 " (Note: arguments to gitk are passed to git log\
1374 to allow selection of commits to be displayed.)"
1375 }
1378 }
1379 error_popup $err
1380 }
1383 # Check if we have seen any ids listed as parents that haven't
1384 # appeared in the list
1385 closevarcs $view
1386 notbusy $view
1387 }
1389 run chewcommits
1390 }
1392 }
1400 break
1401 }
1408 }
1421 }
1423 }
1428 break
1429 }
1430 }
1431 }
1436 }
1438 exit 1
1439 }
1446 # when doing path limiting, so work around that here
1447 # by working out the rewritten parent with git rev-list
1448 # and if we already know about it, using the rewritten
1449 # parent as a substitute parent for $id's children.
1453 }]} {
1455 # use $rwid in place of $id
1456 rewrite_commit $view $id $rwid
1457 continue
1458 }
1459 }
1460 }
1466 }
1471 }
1483 }
1484 }
1486 # new arc
1488 }
1490 modify_arc $view $a
1491 }
1496 }
1507 }
1509 fix_reversal $p $a $view
1510 }
1511 }
1512 incr i
1513 }
1517 }
1519 global numcommits hlview
1523 run chewcommits
1524 }
1526 # we never actually get here...
1527 run vhighlightmore
1528 }
1531 }
1532 }
1534 }
1536 proc chewcommits {} {
1537 global curview hlview viewcomplete
1538 global pending_select
1540 layoutmore
1542 global commitidx varctok
1543 global numcommits startmsecs
1546 update
1547 reset_pending_select {}
1554 }
1555 }
1557 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1558 #puts "overall $ms ms for $numcommits commits"
1559 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1562 }
1563 notbusy layout
1564 }
1566 }
1569 global tclencoding
1571 # Invoke git-log to handle automatic encoding conversion
1573 # Read the results using i18n.logoutputencoding
1577 }
1579 close $fd
1580 # Remove the heading line
1584 }
1589 }
1592 global commitinfo cdate
1603 # should never happen...
1605 }
1617 }
1618 }
1620 # take the first non-blank line of the comment as the headline
1625 }
1630 }
1632 # git log indents the comment by 4 spaces;
1633 # if we got this via git cat-file, add the indentation
1636 append newcomment " "
1637 append newcomment $line
1639 }
1641 }
1644 }
1647 }
1650 global commitdata commitinfo
1655 readcommit $id
1658 }
1659 }
1661 }
1663 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1664 # and are present in the current view.
1665 # This is fairly slow...
1667 global varcid curview
1672 }
1674 }
1676 proc readrefs {} {
1677 global tagids idtags headids idheads tagobjid
1678 global otherrefids idotherrefs mainhead mainheadid
1679 global selecthead selectheadid
1680 global hideremotes
1684 }
1696 }
1702 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1703 # which is what we want since the former is the commit ID
1709 }
1715 }
1716 }
1720 catch {
1725 }
1726 }
1729 catch {
1731 }
1732 }
1733 }
1735 # skip over fake commits
1736 proc first_real_row {} {
1737 global nullid nullid2 numcommits
1742 break
1743 }
1744 }
1746 }
1748 # update things for a head moved to a child of its previous location
1750 global headids idheads
1755 }
1757 # update things when a head has been removed
1759 global headids idheads
1767 }
1768 }
1770 }
1773 global have_tk85
1775 # In MacOS Tk 8.4 transient appears to work by setting
1776 # overrideredirect, which is utterly useless, since the
1777 # windows get no border, and are not even kept above
1778 # the parent.
1781 wm transient $window $origin
1783 # Windows fails to place transient windows normally, so
1784 # schedule a callback to center them on the parent.
1787 }
1788 }
1799 tkwait window $top
1800 }
1803 set w .error
1804 toplevel $w
1805 make_transient $w $owner
1806 show_error $w $w $msg
1807 }
1810 global confirm_ok
1812 set w .confirm
1813 toplevel $w
1814 make_transient $w $owner
1825 tkwait window $w
1827 }
1829 proc setoptions {} {
1831 option add *Panedwindow.sashRelief raised startupFile
1832 option add *Button.font uifont startupFile
1833 option add *Checkbutton.font uifont startupFile
1834 option add *Radiobutton.font uifont startupFile
1836 option add *Menu.font uifont startupFile
1837 }
1838 option add *Menubutton.font uifont startupFile
1839 option add *Label.font uifont startupFile
1840 option add *Message.font uifont startupFile
1841 option add *Entry.font uifont startupFile
1842 }
1844 # Make a menu and submenus.
1845 # m is the window name for the menu, items is the list of menu items to add.
1846 # Each item is a list {mc label type description options...}
1847 # mc is ignored; it's so we can put mc there to alert xgettext
1848 # label is the string that appears in the menu
1849 # type is cascade, command or radiobutton (should add checkbutton)
1850 # description depends on type; it's the sublist for cascade, the
1851 # command to invoke for command, or {variable value} for radiobutton
1853 menu $m
1855 set Meta1 Cmd
1857 set Meta1 Ctrl
1858 }
1869 }
1870 }
1875 }
1878 }
1882 }
1883 }
1889 }
1890 }
1891 }
1893 # translate string and remove ampersands
1896 }
1898 proc makewindow {} {
1899 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1900 global tabstop
1901 global findtype findtypemenu findloc findstring fstring geometry
1902 global entries sha1entry sha1string sha1but
1903 global diffcontextstring diffcontext
1904 global ignorespace
1905 global maincursor textcursor curtextcursor
1906 global rowctxmenu fakerowmenu mergemax wrapcomment
1907 global highlight_files gdttype
1908 global searchstring sstring
1909 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1910 global headctxmenu progresscanv progressitem progresscoords statusw
1911 global fprogitem fprogcoord lastprogupdate progupdatepending
1912 global rprogitem rprogcoord rownumsel numcommits
1913 global have_tk85
1915 # The "mc" arguments here are purely so that xgettext
1916 # sees the following string as needing to be translated
1927 }}
1931 }}
1939 }}
1945 }}
1955 }}
1959 }}
1961 }
1962 makemenu .bar $bar
1963 . configure -menu .bar
1965 # the gui has upper and lower half, parts of a paned window.
1966 panedwindow .ctop -orient vertical
1968 # possibly use assumed geometry
1976 }
1978 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1980 frame .tf.histframe
1983 # create three canvases
1984 set cscroll .tf.histframe.csb
1985 set canv .tf.histframe.pwclist.canv
1986 canvas $canv \
1990 .tf.histframe.pwclist add $canv
1991 set canv2 .tf.histframe.pwclist.canv2
1992 canvas $canv2 \
1995 .tf.histframe.pwclist add $canv2
1996 set canv3 .tf.histframe.pwclist.canv3
1997 canvas $canv3 \
2000 .tf.histframe.pwclist add $canv3
2004 # a scroll bar to rule them
2008 lappend bglist $canv $canv2 $canv3
2011 # we have two button bars at bottom of top frame. Bar 1
2012 frame .tf.bar
2015 set sha1entry .tf.bar.sha1
2017 set sha1but .tf.bar.sha1label
2021 pack .tf.bar.sha1label -side left
2023 trace add variable sha1string write sha1change
2027 #define left_width 16
2028 #define left_height 16
2029 static unsigned char left_bits[] = {
2033 }
2035 #define right_width 16
2036 #define right_height 16
2037 static unsigned char right_bits[] = {
2041 }
2056 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2057 -side left
2058 global selectedline
2059 trace add variable selectedline write selectedline_change
2061 # Status label and progress bar
2062 set statusw .tf.bar.status
2066 set progresscanv .tf.bar.progress
2079 # build up the bottom bar of upper window
2084 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2091 trace add variable gdttype write gdttype_change
2095 set fstring .tf.lbar.findstring
2096 lappend entries $fstring
2098 trace add variable findstring write find_change
2102 trace add variable findtype write findcom_change
2106 trace add variable findloc write find_change
2107 pack .tf.lbar.findloc -side right
2108 pack .tf.lbar.findtype -side right
2111 # Finish putting the upper half of the viewer together
2115 .ctop add .tf
2119 # now build up the bottom
2120 panedwindow .pwbottom -orient horizontal
2122 # lower left, a text box over search bar, scroll bar to the right
2123 # if we know window height, then that will set the lower text height, otherwise
2124 # we set lower text height which will drive window height
2129 }
2130 frame .bleft.top
2131 frame .bleft.mid
2132 frame .bleft.bottom
2136 set sstring .bleft.top.sstring
2138 lappend entries $sstring
2139 trace add variable searchstring write incrsearch
2152 -textvariable diffcontextstring
2154 trace add variable diffcontextstring write diffcontextchange
2155 lappend entries .bleft.mid.diffcontext
2156 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2160 set ctext .bleft.bottom.ctext
2167 }
2174 grid .bleft.bottom.sbhorizontal -sticky ew
2179 lappend bglist $ctext
2180 lappend fglist $ctext
2209 .pwbottom add .bleft
2212 # lower right
2213 frame .bright
2214 frame .bright.mode
2221 set cflist .bright.cfiles
2223 text $cflist \
2226 -font mainfont \
2231 lappend bglist $cflist
2232 lappend fglist $cflist
2236 $cflist tag configure highlight \
2240 .pwbottom add .bright
2241 .ctop add .pwbottom
2243 # restore window width & height if known
2248 }
2251 }
2253 }
2254 }
2258 }
2261 set M1B M1
2264 set M1B Control
2266 }
2271 #bindall <B1-Motion> {selcanvline %W %x %y}
2281 allcanvs yview scroll $delta units
2282 }
2286 }
2287 }
2288 }
2310 bindkey p "selnextline -1"
2311 bindkey n "selnextline 1"
2312 bindkey z "goback"
2313 bindkey x "goforw"
2314 bindkey i "selnextline -1"
2315 bindkey k "selnextline 1"
2316 bindkey j "goback"
2317 bindkey l "goforw"
2318 bindkey b prevfile
2325 bindkey f nextfile
2342 wm protocol . WM_DELETE_WINDOW doquit
2351 global ctxbut
2355 set maincursor [. cget -cursor]
2359 set rowctxmenu .rowctxmenu
2361 {mc "Diff this -> selected" command {diffvssel 0}}
2362 {mc "Diff selected -> this" command {diffvssel 1}}
2363 {mc "Make patch" command mkpatch}
2364 {mc "Create tag" command mktag}
2365 {mc "Write commit to file" command writecommit}
2366 {mc "Create new branch" command mkbranch}
2367 {mc "Cherry-pick this commit" command cherrypick}
2368 {mc "Reset HEAD branch to here" command resethead}
2369 {mc "Mark this commit" command markhere}
2370 {mc "Return to mark" command gotomark}
2371 {mc "Find descendant of this and mark" command find_common_desc}
2372 {mc "Compare with marked commit" command compare_commits}
2373 }
2376 set fakerowmenu .fakerowmenu
2378 {mc "Diff this -> selected" command {diffvssel 0}}
2379 {mc "Diff selected -> this" command {diffvssel 1}}
2380 {mc "Make patch" command mkpatch}
2381 }
2384 set headctxmenu .headctxmenu
2386 {mc "Check out this branch" command cobranch}
2387 {mc "Remove this branch" command rmbranch}
2388 }
2391 global flist_menu
2392 set flist_menu .flistctxmenu
2394 {mc "Highlight this too" command {flist_hl 0}}
2395 {mc "Highlight this only" command {flist_hl 1}}
2396 {mc "External diff" command {external_diff}}
2397 {mc "Blame parent commit" command {external_blame 1}}
2398 }
2401 global diff_menu
2402 set diff_menu .diffctxmenu
2404 {mc "Show origin of this line" command show_line_source}
2405 {mc "Run git gui blame on this line" command {external_blame_diff}}
2406 }
2408 }
2410 # Windows sends all mouse wheel events to the current focused window, not
2411 # the one where the mouse hovers, so bind those events here and redirect
2412 # to the correct window
2413 proc windows_mousewheel_redirector {W X Y D} {
2414 global canv canv2 canv3
2420 } else {
2421 catch {
2423 }
2424 }
2425 }
2426 }
2428 # Update row number label when selectedline changes
2429 proc selectedline_change {n1 n2 op} {
2430 global selectedline rownumsel
2433 set rownumsel {}
2434 } else {
2436 }
2437 }
2439 # mouse-2 makes all windows scan vertically, but only the one
2440 # the cursor is in scans horizontally
2441 proc canvscan {op w x y} {
2442 global canv canv2 canv3
2446 } else {
2448 }
2449 }
2450 }
2452 proc scrollcanv {cscroll f0 f1} {
2454 drawvisible
2455 flushhighlights
2456 }
2458 # when we make a key binding for the toplevel, make sure
2459 # it doesn't get triggered when that key is pressed in the
2460 # find string entry widget.
2461 proc bindkey {ev script} {
2462 global entries
2466 set escript [bind Entry <Key>]
2467 }
2470 }
2471 }
2473 # set the focus back to the toplevel for any click outside
2474 # the entry widgets
2475 proc click {w} {
2476 global ctext entries
2479 }
2480 focus .
2481 }
2483 # Adjust the progress bar for a change in requested extent or canvas size
2484 proc adjustprogress {} {
2485 global progresscanv progressitem progresscoords
2486 global fprogitem fprogcoord lastprogupdate progupdatepending
2487 global rprogitem rprogcoord
2496 set now [clock clicks -milliseconds]
2498 set progupdatepending 0
2499 update
2501 set progupdatepending 1
2503 }
2504 }
2506 proc doprogupdate {} {
2507 global lastprogupdate progupdatepending
2510 set progupdatepending 0
2511 set lastprogupdate [clock clicks -milliseconds]
2512 update
2513 }
2514 }
2516 proc savestuff {w} {
2517 global canv canv2 canv3 mainfont textfont uifont tabstop
2518 global stuffsaved findmergefiles maxgraphpct
2519 global maxwidth showneartags showlocalchanges
2520 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2521 global cmitmode wrapcomment datetimeformat limitdiffs
2522 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2523 global autoselect extdifftool perfile_attrs markbgcolor
2524 global hideremotes
2527 if {![winfo viewable .]} return
2528 catch {
2529 if {[file exists ~/.gitk-new]} {file delete -force ~/.gitk-new}
2530 set f [open "~/.gitk-new" w]
2531 if {$::tcl_platform(platform) eq {windows}} {
2532 file attributes "~/.gitk-new" -hidden true
2533 }
2572 }
2573 }
2576 file rename -force "~/.gitk-new" "~/.gitk"
2577 }
2578 set stuffsaved 1
2579 }
2581 proc resizeclistpanes {win w} {
2582 global oldwidth
2589 } else {
2594 set sash0 30
2595 }
2598 }
2603 }
2604 }
2605 }
2608 }
2610 }
2612 proc resizecdetpanes {win w} {
2613 global oldwidth
2618 } else {
2622 set sash0 45
2623 }
2626 }
2627 }
2629 }
2631 }
2633 proc allcanvs args {
2634 global canv canv2 canv3
2638 }
2640 proc bindall {event action} {
2641 global canv canv2 canv3
2645 }
2647 proc about {} {
2648 global uifont
2649 set w .about
2652 return
2653 }
2658 Gitk - a commit viewer for git
2660 Copyright © 2005-2008 Paul Mackerras
2662 Use and redistribute under the terms of the GNU General Public License"] \
2663 -justify center -aspect 400 -border 2 -bg white -relief groove
2670 }
2672 proc keys {} {
2673 set w .keys
2676 return
2677 }
2678 if {[tk windowingsystem] eq {aqua}} {
2679 set M1T Cmd
2680 } else {
2681 set M1T Ctrl
2682 }
2687 [mc "Gitk key bindings:"]
2690 [mc "<Home> Move to first commit"]
2691 [mc "<End> Move to last commit"]
2692 [mc "<Up>, p, i Move up one commit"]
2693 [mc "<Down>, n, k Move down one commit"]
2694 [mc "<Left>, z, j Go back in history list"]
2695 [mc "<Right>, x, l Go forward in history list"]
2696 [mc "<PageUp> Move up one page in commit list"]
2697 [mc "<PageDown> Move down one page in commit list"]
2704 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2705 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2706 [mc "<Delete>, b Scroll diff view up one page"]
2707 [mc "<Backspace> Scroll diff view up one page"]
2708 [mc "<Space> Scroll diff view down one page"]
2709 [mc "u Scroll diff view up 18 lines"]
2710 [mc "d Scroll diff view down 18 lines"]
2713 [mc "<Return> Move to next find hit"]
2714 [mc "/ Focus the search box"]
2715 [mc "? Move to previous find hit"]
2716 [mc "f Scroll diff view to next file"]
2723 [mc "<F5> Update"]
2724 " \
2725 -justify left -bg white -border 2 -relief groove
2733 }
2735 # Procedures for manipulating the file list window at the
2736 # bottom right of the overall window.
2738 proc treeview {w l openlevs} {
2739 global treecontents treediropen treeheight treeparent treeindex
2741 set ix 0
2742 set treeindex() 0
2743 set lev 0
2744 set prefix {}
2745 set prefixend -1
2746 set prefendstack {}
2747 set htstack {}
2748 set ht 0
2749 set treecontents() {}
2756 }
2763 incr lev -1
2764 }
2768 set ht 0
2780 set ht 1
2785 set str "\n"
2793 }
2794 incr lev
2795 }
2798 incr ht
2799 set str "\n"
2803 }
2805 }
2806 }
2814 }
2816 }
2818 proc linetoelt {l} {
2819 global treeheight treecontents
2821 set y 2
2822 set prefix {}
2823 while {1} {
2827 }
2828 set n 1
2833 incr y
2834 break
2835 }
2836 }
2838 }
2839 }
2840 }
2842 proc highlight_tree {y prefix} {
2843 global treeheight treecontents cflist
2849 }
2850 incr y
2853 }
2854 }
2856 }
2858 proc treeclosedir {w dir} {
2859 global treediropen treeheight treeparent treeindex
2871 }
2872 }
2874 proc treeopendir {w dir} {
2875 global treediropen treeheight treeparent treecontents treeindex
2882 set lev 0
2883 set str "\n"
2886 incr lev
2887 append str "\t"
2889 }
2904 } else {
2907 }
2908 }
2921 }
2923 }
2924 }
2926 proc treeclick {w x y} {
2927 global treediropen cmitmode ctext cflist cflist_top
2930 if {![info exists cflist_top]} return
2937 return
2938 }
2944 } else {
2946 }
2947 }
2949 proc setfilelist {id} {
2950 global treefilelist cflist jump_to_here
2957 }
2958 }
2959 }
2961 image create bitmap tri-rt -background black -foreground blue -data {
2962 #define tri-rt_width 13
2963 #define tri-rt_height 13
2964 static unsigned char tri-rt_bits[] = {
2965 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2966 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2967 0x00, 0x00};
2968 } -maskdata {
2969 #define tri-rt-mask_width 13
2970 #define tri-rt-mask_height 13
2971 static unsigned char tri-rt-mask_bits[] = {
2972 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2973 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2974 0x08, 0x00};
2975 }
2976 image create bitmap tri-dn -background black -foreground blue -data {
2977 #define tri-dn_width 13
2978 #define tri-dn_height 13
2979 static unsigned char tri-dn_bits[] = {
2980 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2981 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2982 0x00, 0x00};
2983 } -maskdata {
2984 #define tri-dn-mask_width 13
2985 #define tri-dn-mask_height 13
2986 static unsigned char tri-dn-mask_bits[] = {
2987 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2988 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2989 0x00, 0x00};
2990 }
2992 image create bitmap reficon-T -background black -foreground yellow -data {
2993 #define tagicon_width 13
2994 #define tagicon_height 9
2995 static unsigned char tagicon_bits[] = {
2996 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2997 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2998 } -maskdata {
2999 #define tagicon-mask_width 13
3000 #define tagicon-mask_height 9
3001 static unsigned char tagicon-mask_bits[] = {
3002 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3003 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3004 }
3005 set rectdata {
3006 #define headicon_width 13
3007 #define headicon_height 9
3008 static unsigned char headicon_bits[] = {
3009 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3010 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3011 }
3012 set rectmask {
3013 #define headicon-mask_width 13
3014 #define headicon-mask_height 9
3015 static unsigned char headicon-mask_bits[] = {
3016 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3017 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3018 }
3019 image create bitmap reficon-H -background black -foreground green \
3021 image create bitmap reficon-o -background black -foreground "#ddddff" \
3024 proc init_flist {first} {
3025 global cflist cflist_top difffilestart
3031 set cflist_top 1
3033 } else {
3034 catch {unset cflist_top}
3035 }
3037 set difffilestart {}
3038 }
3040 proc highlight_tag {f} {
3041 global highlight_paths
3045 return "bold"
3046 }
3047 }
3048 return {}
3049 }
3051 proc highlight_filelist {} {
3052 global cmitmode cflist
3061 }
3062 }
3063 } else {
3064 highlight_tree 2 {}
3065 }
3067 }
3069 proc unhighlight_filelist {} {
3070 global cflist
3075 }
3077 proc add_flist {fl} {
3078 global cflist
3084 }
3086 }
3088 proc sel_flist {w x y} {
3089 global ctext difffilestart cflist cflist_top cmitmode
3092 if {![info exists cflist_top]} return
3099 } else {
3101 }
3102 }
3104 proc pop_flist_menu {w X Y x y} {
3105 global ctext cflist cmitmode flist_menu flist_menu_file
3106 global treediffs diffids
3108 stopfinding
3114 } else {
3116 }
3118 set xdiffstate "normal"
3120 set xdiffstate "disabled"
3121 }
3122 # Disable "External diff" item in tree mode
3125 }
3127 proc find_ctext_fileinfo {line} {
3128 global ctext_file_names ctext_file_lines
3134 return {}
3135 } else {
3137 }
3138 }
3140 proc pop_diff_menu {w X Y x y} {
3141 global ctext diff_menu flist_menu_file
3142 global diff_menu_txtpos diff_menu_line
3143 global diff_menu_filebase
3147 # don't pop up the menu on hunk-separator or file-separator lines
3149 return
3150 }
3151 stopfinding
3157 }
3159 proc flist_hl {only} {
3160 global flist_menu_file findstring gdttype
3165 } else {
3167 }
3168 set gdttype [mc "touching paths:"]
3169 }
3171 proc gitknewtmpdir {} {
3172 global diffnum gitktmpdir gitdir
3174 if {![info exists gitktmpdir]} {
3176 [format ".gitk-tmp.%s" [pid]]]
3179 unset gitktmpdir
3180 return {}
3181 }
3182 set diffnum 0
3183 }
3184 incr diffnum
3188 return {}
3189 }
3191 }
3193 proc save_file_from_commit {filename output what} {
3194 global nullfile
3199 }
3201 return {}
3202 }
3204 }
3206 proc external_diff_get_one_file {diffid filename diffdir} {
3207 global nullid nullid2 nullfile
3208 global gitdir
3214 }
3216 }
3220 }
3224 }
3226 proc external_diff {} {
3227 global nullid nullid2
3228 global flist_menu_file
3229 global diffids
3230 global extdifftool
3233 # no reference commit given
3236 # diffing working copy with index
3239 # diffing index with HEAD
3240 set diffidfrom "HEAD"
3241 } else {
3242 # use first parent commit
3243 global parentlist selectedline
3245 }
3246 } else {
3249 }
3251 # make sure that several diffs wont collide
3252 set diffdir [gitknewtmpdir]
3255 # gather files to diff
3264 } else {
3267 }
3268 }
3269 }
3271 proc find_hunk_blamespec {base line} {
3272 global ctext
3274 # Find and parse the hunk header
3280 s_line old_specs osz osz1 new_line nsz]} {
3281 return
3282 }
3284 # base lines for the parents
3288 old_spec old_line osz]} {
3289 return
3290 }
3292 }
3294 # Now scan the lines to determine offset within the hunk
3296 set dline 0
3299 # Determine if the line is removed
3303 # Choose a parent index
3306 } else {
3310 } else {
3311 # blame the current commit
3312 set parent -1
3313 }
3314 }
3315 # then count other lines that belong to it
3318 # Determine if the line is removed
3323 incr dline
3324 }
3325 } else {
3327 incr dline
3328 }
3329 }
3330 }
3331 incr parent
3332 } else {
3333 set parent 0
3334 }
3338 }
3340 proc external_blame_diff {} {
3341 global currentid cmitmode
3342 global diff_menu_txtpos diff_menu_line
3343 global diff_menu_filebase flist_menu_file
3346 set parent_idx 0
3348 } else {
3353 } else {
3354 set parent_idx 0
3355 set line 0
3356 }
3357 }
3360 }
3363 # at stage 0 or 2
3364 proc index_sha1 {fname} {
3372 }
3373 }
3375 return {}
3376 }
3378 # Turn an absolute path into one relative to the current directory
3379 proc make_relative {f} {
3381 set here [file split [pwd]]
3382 set ei 0
3383 set hi 0
3384 set res {}
3387 lappend res ".."
3388 } else {
3389 incr ei
3390 }
3391 incr hi
3392 }
3395 }
3397 proc external_blame {parent_idx {line {}}} {
3398 global flist_menu_file gitdir
3399 global nullid nullid2
3400 global parentlist selectedline currentid
3404 } else {
3406 }
3409 error_popup [mc "No such commit"]
3410 return
3411 }
3413 set cmdline [list git gui blame]
3416 }
3418 # Unfortunately it seems git gui blame doesn't like
3419 # being given an absolute path...
3424 }
3425 }
3427 proc show_line_source {} {
3428 global cmitmode currentid parents curview blamestuff blameinst
3429 global diff_menu_line diff_menu_filebase flist_menu_file
3430 global nullid nullid2 gitdir
3432 set from_index {}
3436 } else {
3442 return
3443 }
3444 incr pi -1
3447 # must be a merge in progress...
3448 if {[catch {
3449 # get the last line from .git/MERGE_HEAD
3453 } err]} {
3455 return
3456 }
3458 # need to do the blame from the index
3459 if {[catch {
3461 } err]} {
3463 return
3464 }
3465 } else {
3467 }
3468 } else {
3470 }
3472 }
3473 set blameargs {}
3476 }
3479 lappend blameargs --contents -
3480 } else {
3482 }
3484 if {[catch {
3486 } err]} {
3488 return
3489 }
3490 nowbusy blaming [mc "Searching"]
3496 }
3498 proc stopblaming {} {
3499 global blameinst
3501 if {[info exists blameinst]} {
3503 unset blameinst
3504 notbusy blaming
3505 }
3506 }
3508 proc read_line_source {fd inst} {
3509 global blamestuff curview commfd blameinst nullid nullid2
3513 }
3515 return 1
3516 }
3518 unset blameinst
3519 notbusy blaming
3523 return 0
3524 }
3526 set fname {}
3532 # look for "filename" line
3536 break
3537 }
3538 }
3539 }
3541 # all looks good, select it
3543 # blame uses all-zeroes to mean not committed,
3544 # which would mean a change in the index
3546 }
3549 } else {
3550 error_popup [mc "That line comes from commit %s, \
3552 }
3553 } else {
3554 puts "oops couldn't parse git blame output"
3555 }
3556 return 0
3557 }
3560 proc delete_at_eof {f dir} {
3565 }
3567 return 0
3568 }
3569 return 1
3570 }
3572 # Functions for adding and removing shell-type quoting
3574 proc shellquote {str} {
3577 }
3580 }
3583 }
3585 }
3587 proc shellarglist {l} {
3588 set str {}
3591 append str " "
3592 }
3594 }
3596 }
3598 proc shelldequote {str} {
3599 set ret {}
3600 set used -1
3601 while {1} {
3602 incr used
3606 break
3607 }
3613 }
3615 incr used
3619 error "unmatched single-quote"
3620 }
3623 continue
3624 }
3627 error "trailing backslash"
3628 }
3630 continue
3631 }
3632 # here ch == "\""
3633 while {1} {
3635 error "unmatched double-quote"
3636 }
3642 }
3644 incr used
3646 incr used
3647 }
3648 }
3650 }
3652 proc shellsplit {str} {
3653 set l {}
3654 while {1} {
3662 }
3664 }
3666 # Code to implement multiple views
3668 proc newview {ishighlight} {
3669 global nextviewnum newviewname newishighlight
3670 global revtreeargs viewargscmd newviewopts curview
3673 set top .gitkview
3676 return
3677 }
3683 }
3685 set known_view_options {
3686 {perm b . {} {mc "Remember this view"}}
3687 {reflabel l + {} {mc "References (space separated list):"}}
3688 {refs t15 .. {} {mc "Branches & tags:"}}
3689 {allrefs b *. "--all" {mc "All refs"}}
3690 {branches b . "--branches" {mc "All (local) branches"}}
3691 {tags b . "--tags" {mc "All tags"}}
3692 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3693 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3694 {author t15 .. "--author=*" {mc "Author:"}}
3695 {committer t15 . "--committer=*" {mc "Committer:"}}
3696 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3697 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3698 {changes_l l + {} {mc "Changes to Files:"}}
3699 {pickaxe_s r0 . {} {mc "Fixed String"}}
3700 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3701 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3702 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3703 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3704 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3705 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3706 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3707 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3708 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3709 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3710 {lright b . "--left-right" {mc "Mark branch sides"}}
3711 {first b . "--first-parent" {mc "Limit to first parent"}}
3712 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3713 {args t50 *. {} {mc "Additional arguments to git log:"}}
3714 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3715 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3716 }
3718 proc encode_view_opts {n} {
3719 global known_view_options newviewopts
3721 set rargs [list]
3731 }
3737 }
3738 } else {
3744 }
3745 }
3746 }
3749 }
3751 proc decode_view_opts {n view_args} {
3752 global known_view_options newviewopts
3757 # Checkboxes
3758 set val 0
3760 # Radiobuttons
3762 set val 0
3763 } else {
3764 # Text fields
3765 set val {}
3766 }
3768 }
3769 set oargs [list]
3770 set refargs [list]
3773 && ![info exists found(limit)]} {
3775 set found(limit) 1
3776 continue
3777 }
3778 catch { unset val }
3785 # Check buttons
3786 set val 1
3788 # Radio buttons
3791 } else {
3792 # Text input fields
3795 }
3798 break
3799 }
3800 if {[info exists val]} break
3801 }
3802 if {[info exists val]} continue
3805 } else {
3807 }
3808 }
3811 }
3813 proc edit_or_newview {} {
3814 global curview
3817 editview
3818 } else {
3819 newview 0
3820 }
3821 }
3823 proc editview {} {
3824 global curview
3825 global viewname viewperm newviewname newviewopts
3826 global viewargs viewargscmd
3831 return
3832 }
3838 }
3840 proc vieweditor {top n title} {
3841 global newviewname newviewopts viewfiles bgcolor
3842 global known_view_options
3848 # View name
3856 # View options
3858 set cexpand 0
3859 set cnt 0
3865 set lxpad 0
3869 incr cnt
3875 incr cnt
3879 } else {
3880 set lxpad 5
3881 }
3915 }
3918 }
3920 }
3921 }
3936 }
3938 proc doviewmenu {m first cmd op argv} {
3943 break
3944 }
3945 }
3946 }
3948 proc allviewmenus {n op args} {
3949 # global viewhlmenu
3953 }
3955 proc newviewok {top n {apply 0}} {
3956 global nextviewnum newviewperm newviewname newishighlight
3957 global viewname viewfiles viewperm selectedview curview
3958 global viewargs viewargscmd newviewopts viewhlmenu
3960 if {[catch {
3962 } err]} {
3964 return
3965 }
3966 set files {}
3971 }
3972 }
3974 # creating a new view
3975 incr nextviewnum
3984 } else {
3986 }
3987 } else {
3988 # editing an existing view
3996 }
4003 run reloadcommits
4004 }
4005 }
4006 }
4009 }
4011 proc delview {} {
4012 global curview viewperm hlview selectedhlview
4016 set selectedhlview [mc "None"]
4017 unset hlview
4018 }
4021 showview 0
4022 }
4024 proc addviewmenu {n} {
4025 global viewname viewhlmenu
4031 }
4033 proc showview {n} {
4034 global curview cached_commitrow ordertok
4035 global displayorder parentlist rowidlist rowisopt rowfinal
4036 global colormap rowtextx nextcolor canvxmax
4037 global numcommits viewcomplete
4038 global selectedline currentid canv canvy0
4039 global treediffs
4040 global pending_select mainheadid
4041 global commitidx
4042 global selectedview
4043 global hlview selectedhlview commitinterest
4046 set selid {}
4057 }
4058 } elseif {[info exists pending_select]} {
4060 unset pending_select
4061 }
4062 unselectline
4063 normalline
4064 catch {unset treediffs}
4065 clear_display
4067 unset hlview
4068 set selectedhlview [mc "None"]
4069 }
4070 catch {unset commitinterest}
4071 catch {unset cached_commitrow}
4072 catch {unset ordertok}
4079 run refill_reflist
4082 return
4083 }
4085 set displayorder {}
4086 set parentlist {}
4087 set rowidlist {}
4088 set rowisopt {}
4089 set rowfinal {}
4092 catch {unset colormap}
4093 catch {unset rowtextx}
4094 set nextcolor 0
4097 set row 0
4098 setcanvscroll
4099 set yf 0
4100 set row {}
4103 # try to get the selected row in the same position on the screen
4107 set ytop 0
4108 }
4110 }
4112 drawvisible
4117 } else {
4118 reset_pending_select {}
4122 } else {
4123 set row [first_real_row]
4126 }
4127 }
4128 }
4131 show_status [mc "Reading commits..."]
4132 }
4134 show_status [mc "No commits selected"]
4135 }
4136 }
4138 # Stuff relating to the highlighting facility
4140 proc ishighlighted {id} {
4141 global vhighlights fhighlights nhighlights rhighlights
4145 }
4148 }
4151 }
4154 }
4155 return 0
4156 }
4158 proc bolden {id font} {
4159 global canv linehtag currentid boldids need_redisplay markedid
4161 # need_redisplay = 1 means the display is stale and about to be redrawn
4168 -outline {{}} -tags secsel \
4171 }
4174 }
4175 }
4177 proc bolden_name {id font} {
4178 global canv2 linentag currentid boldnameids need_redisplay
4186 -outline {{}} -tags secsel \
4189 }
4190 }
4192 proc unbolden {} {
4193 global boldids
4195 set stillbold {}
4199 } else {
4201 }
4202 }
4204 }
4206 proc addvhighlight {n} {
4207 global hlview viewcomplete curview vhl_done commitidx
4209 if {[info exists hlview]} {
4210 delvhighlight
4211 }
4215 }
4218 drawvisible
4219 }
4220 }
4222 proc delvhighlight {} {
4223 global hlview vhighlights
4225 if {![info exists hlview]} return
4226 unset hlview
4227 catch {unset vhighlights}
4228 unbolden
4229 }
4231 proc vhighlightmore {} {
4232 global hlview vhl_done commitidx vhighlights curview
4235 set vr [visiblerows]
4245 }
4247 }
4248 }
4249 }
4251 return 0
4252 }
4254 proc askvhighlight {row id} {
4255 global hlview vhighlights iddrawn
4260 }
4262 } else {
4264 }
4265 }
4267 proc hfiles_change {} {
4268 global highlight_files filehighlight fhighlights fh_serial
4269 global highlight_paths
4271 if {[info exists filehighlight]} {
4272 # delete previous highlights
4274 unset filehighlight
4275 catch {unset fhighlights}
4276 unbolden
4277 unhighlight_filelist
4278 }
4279 set highlight_paths {}
4281 incr fh_serial
4284 }
4285 }
4287 proc gdttype_change {name ix op} {
4288 global gdttype highlight_files findstring findpattern
4290 stopfinding
4294 set highlight_files {}
4295 hfiles_change
4296 }
4297 findcom_change
4298 } else {
4300 set findpattern {}
4301 findcom_change
4302 }
4304 hfiles_change
4305 }
4306 drawvisible
4307 }
4308 # enable/disable findtype/findloc menus too
4309 }
4311 proc find_change {name ix op} {
4312 global gdttype findstring highlight_files
4314 stopfinding
4316 findcom_change
4317 } else {
4320 hfiles_change
4321 }
4322 }
4323 drawvisible
4324 }
4326 proc findcom_change args {
4327 global nhighlights boldnameids
4328 global findpattern findtype findstring gdttype
4330 stopfinding
4331 # delete previous highlights, if any
4334 }
4335 set boldnameids {}
4336 catch {unset nhighlights}
4337 unbolden
4338 unmarkmatches
4340 set findpattern {}
4343 } else {
4344 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4347 }
4348 }
4350 proc makepatterns {l} {
4351 set ret {}
4356 } else {
4359 }
4360 }
4362 }
4364 proc do_file_hl {serial} {
4365 global highlight_files filehighlight highlight_paths gdttype fhl_list
4370 highlight_filelist
4374 } else {
4375 # must be "containing:", i.e. we're searching commit info
4376 return
4377 }
4382 set fhl_list {}
4383 drawvisible
4384 flushhighlights
4385 }
4387 proc flushhighlights {} {
4388 global filehighlight fhl_list
4390 if {[info exists filehighlight]} {
4391 lappend fhl_list {}
4394 }
4395 }
4397 proc askfilehighlight {row id} {
4398 global filehighlight fhighlights fhl_list
4403 }
4405 proc readfhighlight {} {
4406 global filehighlight fhighlights curview iddrawn
4407 global fhl_list find_dirn
4409 if {![info exists filehighlight]} {
4410 return 0
4411 }
4412 set nr 0
4420 }
4426 }
4428 }
4430 # strange...
4431 puts "oops, git diff-tree died"
4433 unset filehighlight
4434 return 0
4435 }
4436 if {[info exists find_dirn]} {
4437 run findmore
4438 }
4439 return 1
4440 }
4442 proc doesmatch {f} {
4443 global findtype findpattern
4449 } else {
4451 }
4452 }
4454 proc askfindhighlight {row id} {
4455 global nhighlights commitinfo iddrawn
4456 global findloc
4457 global markingmatches
4461 }
4463 set isbold 0
4464 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4469 set isbold 2
4470 break
4471 }
4472 set isbold 1
4473 }
4474 }
4480 }
4481 }
4484 }
4485 }
4487 }
4489 proc markrowmatches {row id} {
4490 global canv canv2 linehtag linentag commitinfo findloc
4501 }
4502 }
4508 }
4509 }
4510 }
4512 proc vrel_change {name ix op} {
4513 global highlight_related
4515 rhighlight_none
4517 run drawvisible
4518 }
4519 }
4521 # prepare for testing whether commits are descendents or ancestors of a
4522 proc rhighlight_sel {a} {
4523 global descendent desc_todo ancestor anc_todo
4524 global highlight_related
4526 catch {unset descendent}
4528 catch {unset ancestor}
4531 rhighlight_none
4532 run drawvisible
4533 }
4534 }
4536 proc rhighlight_none {} {
4537 global rhighlights
4539 catch {unset rhighlights}
4540 unbolden
4541 }
4543 proc is_descendent {a} {
4544 global curview children descendent desc_todo
4549 set leftover {}
4550 set done 0
4555 continue
4556 }
4562 set done 1
4563 }
4564 }
4565 }
4568 return
4569 }
4570 }
4573 }
4575 proc is_ancestor {a} {
4576 global curview parents ancestor anc_todo
4581 set leftover {}
4582 set done 0
4587 continue
4588 }
4594 set done 1
4595 }
4596 }
4597 }
4600 return
4601 }
4602 }
4605 }
4607 proc askrelhighlight {row id} {
4608 global descendent highlight_related iddrawn rhighlights
4609 global selectedline ancestor
4612 set isbold 0
4617 }
4619 set isbold 1
4620 }
4625 }
4627 set isbold 1
4628 }
4629 }
4633 }
4634 }
4636 }
4638 # Graph layout functions
4640 proc shortids {ids} {
4641 set res {}
4647 } else {
4649 }
4650 }
4652 }
4654 proc ntimes {n o} {
4655 set ret {}
4660 }
4662 }
4664 }
4666 proc ordertoken {id} {
4667 global ordertok curview varcid varcstart varctok curview parents children
4668 global nullid nullid2
4672 }
4674 set todo {}
4675 while {1} {
4679 } else {
4681 }
4684 break
4685 }
4688 # it's a root
4690 break
4691 }
4694 } else {
4698 }
4700 }
4701 }
4706 }
4709 }
4711 # Work out where id should go in idlist so that order-token
4712 # values increase from left to right
4713 proc idcol {idlist id {i 0}} {
4716 set i 0
4717 }
4721 }
4723 incr i
4724 } else {
4728 }
4729 }
4731 }
4733 proc initlayout {} {
4734 global rowidlist rowisopt rowfinal displayorder parentlist
4735 global numcommits canvxmax canv
4736 global nextcolor
4737 global colormap rowtextx
4739 set numcommits 0
4740 set displayorder {}
4741 set parentlist {}
4742 set nextcolor 0
4743 set rowidlist {}
4744 set rowisopt {}
4745 set rowfinal {}
4747 catch {unset colormap}
4748 catch {unset rowtextx}
4749 setcanvscroll
4750 }
4752 proc setcanvscroll {} {
4753 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4754 global lastscrollset lastscrollrows
4760 set lastscrollset [clock clicks -milliseconds]
4762 }
4764 proc visiblerows {} {
4765 global canv numcommits linespc
4773 set r0 0
4774 }
4779 }
4781 }
4783 proc layoutmore {} {
4784 global commitidx viewcomplete curview
4785 global numcommits pending_select curview
4786 global lastscrollset lastscrollrows
4790 setcanvscroll
4791 }
4792 if {[info exists pending_select] &&
4794 update
4796 }
4797 drawvisible
4798 }
4800 # With path limiting, we mightn't get the actual HEAD commit,
4801 # so ask git rev-list what is the first ancestor of HEAD that
4802 # touches a file in the path limit.
4803 proc get_viewmainhead {view} {
4804 global viewmainheadid vfilelimit viewinstances mainheadid
4806 catch {
4814 }
4815 }
4818 proc getviewhead {fd inst view} {
4819 global viewmainheadid commfd curview viewinstances showlocalchanges
4821 set id {}
4824 return 1
4825 }
4828 }
4835 }
4837 doshowlocalchanges
4838 }
4839 return 0
4840 }
4842 proc doshowlocalchanges {} {
4843 global curview viewmainheadid
4847 dodiffindex
4848 } else {
4850 }
4851 }
4853 proc dohidelocalchanges {} {
4854 global nullid nullid2 lserial curview
4858 }
4861 }
4862 incr lserial
4863 }
4865 # spawn off a process to do git diff-index --cached HEAD
4866 proc dodiffindex {} {
4867 global lserial showlocalchanges vfilelimit curview
4868 global isworktree
4871 incr lserial
4872 set cmd "|git diff-index --cached HEAD"
4875 }
4880 }
4882 proc readdiffindex {fd serial inst} {
4883 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4884 global vfilelimit
4886 set isdiff 1
4889 return 1
4890 }
4891 set isdiff 0
4892 }
4893 # we only need to see one line and we don't really care what it says...
4897 return 0
4898 }
4900 # now see if there are any local changes not checked in to the index
4901 set cmd "|git diff-files"
4904 }
4911 # add the line for the changes in the index to the graph
4912 set hl [mc "Local changes checked in to index but not committed"]
4917 }
4922 }
4924 }
4925 return 0
4926 }
4928 proc readdifffiles {fd serial inst} {
4929 global viewmainheadid nullid nullid2 curview
4930 global commitinfo commitdata lserial
4932 set isdiff 1
4935 return 1
4936 }
4937 set isdiff 0
4938 }
4939 # we only need to see one line and we don't really care what it says...
4943 return 0
4944 }
4947 # add the line for the local diff to the graph
4948 set hl [mc "Local uncommitted changes, not checked in to index"]
4953 } else {
4955 }
4959 }
4960 return 0
4961 }
4963 proc nextuse {id row} {
4964 global curview children
4969 return -1
4970 }
4973 }
4974 }
4975 }
4978 }
4979 return -1
4980 }
4982 proc prevuse {id row} {
4983 global curview children
4985 set ret -1
4991 }
4992 }
4993 }
4995 }
4997 proc make_idlist {row} {
4998 global displayorder parentlist uparrowlen downarrowlen mingaplen
4999 global commitidx curview children
5003 set r 0
5004 }
5007 set ra 0
5008 }
5012 }
5014 set ids {}
5023 }
5024 }
5025 }
5033 }
5034 }
5035 }
5043 }
5044 }
5045 incr r
5051 }
5052 }
5053 }
5054 set idlist {}
5057 }
5059 }
5061 proc rowsequal {a b} {
5064 }
5067 }
5069 }
5071 proc makeupline {id row rend col} {
5072 global rowidlist uparrowlen downarrowlen mingaplen
5078 }
5081 }
5088 }
5089 }
5090 }
5092 proc layoutrows {row endrow} {
5093 global rowidlist rowisopt rowfinal displayorder
5094 global uparrowlen downarrowlen maxwidth mingaplen
5095 global children parentlist
5096 global commitidx viewcomplete curview
5099 set idlist {}
5105 }
5106 }
5108 }
5113 set final 1
5114 } else {
5122 # if not the first child, we have to insert a line going up
5125 }
5126 }
5127 }
5137 }
5138 }
5139 }
5146 }
5147 }
5157 }
5158 }
5166 }
5167 }
5168 }
5169 }
5170 }
5174 set final 0
5175 }
5179 lappend rowisopt 0
5185 }
5187 } else {
5194 }
5195 }
5197 }
5199 proc changedrow {row} {
5200 global displayorder iddrawn rowisopt need_redisplay
5209 }
5210 }
5211 }
5214 set need_redisplay 1
5215 }
5216 }
5218 proc insert_pad {row col npad} {
5219 global rowidlist
5228 }
5231 }
5233 proc optimize_rows {row col endrow} {
5234 global rowidlist rowisopt displayorder curview children
5237 set row 1
5238 }
5241 set haspad 0
5250 } else {
5251 set pprevidlist {}
5252 }
5253 set x0 -1
5254 set xm -1
5259 set haspad 1
5260 continue
5261 }
5265 set isarrow 0
5266 set z0 {}
5271 }
5272 }
5277 set isarrow 1
5278 }
5279 }
5282 set isarrow 1
5283 }
5284 # Looking at lines from this row to the previous row,
5285 # make them go straight up if they end in an arrow on
5286 # the previous row; otherwise make them go straight up
5287 # or at 45 degrees.
5289 # Line currently goes left too much;
5290 # insert pads in the previous row, then optimize it
5295 }
5303 }
5305 # Line currently goes right too much;
5306 # insert pads in this line
5312 set haspad 1
5313 }
5320 }
5321 }
5322 # avoid lines jigging left then immediately right
5325 incr x0
5328 }
5329 }
5331 # Find the first column that doesn't have a line going right
5337 # check if this is the link to the first child
5340 # it is, work out offset to child
5342 }
5343 }
5345 }
5346 # Insert a pad at that column as long as it has a line and
5347 # isn't the last column
5352 }
5353 }
5354 }
5355 }
5357 proc xc {row col} {
5358 global canvx0 linespc
5360 }
5362 proc yc {row} {
5363 global canvy0 linespc
5365 }
5367 proc linewidth {id} {
5368 global thickerline lthickness
5373 }
5375 }
5377 proc rowranges {id} {
5378 global curview children uparrowlen downarrowlen
5379 global rowidlist
5383 return {}
5384 }
5385 set ret {}
5390 if {![info exists prev]} {
5392 } else {
5394 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5395 }
5396 # see if the line extends the whole way from prevrow to row
5400 # it doesn't, see where it ends
5405 } else {
5408 incr r -1
5409 }
5411 # see where it starts up again
5416 } else {
5419 incr r
5420 }
5422 }
5423 }
5426 }
5429 }
5431 }
5433 proc drawlineseg {id row endrow arrowlow} {
5434 global rowidlist displayorder iddrawn linesegs
5435 global canv colormap linespc curview maxlinelen parentlist
5439 set arrowhigh 1
5440 while {1} {
5443 incr le -1
5444 break
5445 }
5449 set arrowhigh 0
5450 break
5451 }
5456 set arrowhigh 0
5457 }
5458 break
5459 }
5460 incr le
5461 }
5464 }
5466 set lines {}
5467 set i 0
5468 set joinhigh 0
5475 set joinhigh 1
5476 }
5477 break
5478 }
5479 incr i
5480 }
5481 }
5482 set joinlow 0
5487 set joinlow 1
5488 }
5489 }
5502 }
5503 } else {
5505 }
5513 set arrowlow 0
5514 }
5515 }
5523 }
5525 }
5528 # join parent line to first child
5539 } else {
5541 }
5549 }
5551 }
5553 } else {
5557 }
5565 } else {
5569 }
5571 }
5572 } else {
5578 }
5582 } else {
5583 # coalesce two pieces
5588 }
5592 }
5593 }
5597 }
5599 proc drawparentlinks {id row} {
5600 global rowidlist canv colormap curview parentlist
5601 global idpos linespc
5614 # rmx = right-most X coord used
5615 set rmx 0
5620 continue
5621 }
5625 }
5628 # drawlineseg will do this one for us
5629 continue
5630 }
5632 # should handle duplicated parents here...
5635 # if attaching to a vertical segment, draw a smaller
5636 # slant for visual distinctness
5640 } else {
5642 }
5644 # segment slants towards us already
5646 } else {
5651 }
5653 }
5654 } else {
5656 }
5661 }
5665 }
5666 }
5668 proc drawlines {id} {
5669 global canv
5672 }
5674 proc drawcmittext {id row col} {
5675 global linespc canv canv2 canv3 fgcolor curview
5676 global cmitlisted commitinfo rowidlist parentlist
5677 global rowtextx idpos idtags idheads idotherrefs
5678 global linehtag linentag linedtag selectedline
5679 global canvxmax boldids boldnameids fgcolor markedid
5680 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5682 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5685 set ofill red
5687 set ofill green
5689 set ofill yellow
5690 } else {
5692 }
5701 # triangle pointing left for left-side commits
5707 } else {
5708 # triangle pointing right for right-side commits
5714 }
5726 }
5727 }
5728 }
5735 }
5740 set font mainfont
5741 set nfont mainfont
5745 set font mainfontbold
5748 set nfont mainfontbold
5749 }
5750 }
5760 }
5763 }
5767 setcanvscroll
5768 }
5769 }
5771 proc drawcmitrow {row} {
5772 global displayorder rowidlist nrows_drawn
5773 global iddrawn markingmatches
5774 global commitinfo numcommits
5775 global filehighlight fhighlights findpattern nhighlights
5776 global hlview vhighlights
5777 global highlight_related rhighlights
5784 }
5787 }
5790 }
5793 }
5798 return
5799 }
5802 }
5806 incr nrows_drawn
5807 }
5810 }
5811 }
5813 proc drawcommits {row {endrow {}}} {
5814 global numcommits iddrawn displayorder curview need_redisplay
5815 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5818 set row 0
5819 }
5822 }
5825 }
5829 set rl1 0
5830 }
5833 set ro1 0
5834 }
5838 }
5843 }
5845 }
5846 }
5849 }
5852 clear_display
5853 }
5855 # make the lines join to already-drawn rows either side
5859 }
5864 }
5879 # see if this is the first child of any of its parents
5882 # make this line extend up to the child
5884 }
5885 }
5886 } else {
5888 }
5889 }
5890 }
5891 }
5893 proc undolayout {row} {
5894 global uparrowlen mingaplen downarrowlen
5895 global rowidlist rowisopt rowfinal need_redisplay
5899 set r 0
5900 }
5902 incr r -1
5906 set need_redisplay 1
5907 run drawvisible
5908 }
5909 }
5911 proc drawvisible {} {
5912 global canv linespc curview vrowmod selectedline targetrow targetid
5913 global need_redisplay cscroll numcommits
5923 if {[info exists targetid]} {
5927 # Fix up the scrollregion and change the scrolling position
5928 # now that our target row has moved.
5931 setcanvscroll
5939 set need_redisplay 1
5940 }
5941 } else {
5942 unset targetid
5943 }
5944 }
5950 }
5954 } elseif {[info exists targetid]} {
5956 }
5957 if {[info exists targetrow]} {
5960 }
5962 }
5964 }
5966 proc clear_display {} {
5967 global iddrawn linesegs need_redisplay nrows_drawn
5968 global vhighlights fhighlights nhighlights rhighlights
5969 global linehtag linentag linedtag boldids boldnameids
5971 allcanvs delete all
5972 catch {unset iddrawn}
5973 catch {unset linesegs}
5974 catch {unset linehtag}
5975 catch {unset linentag}
5976 catch {unset linedtag}
5977 set boldids {}
5978 set boldnameids {}
5979 catch {unset vhighlights}
5980 catch {unset fhighlights}
5981 catch {unset nhighlights}
5982 catch {unset rhighlights}
5983 set need_redisplay 0
5984 set nrows_drawn 0
5985 }
5987 proc findcrossings {id} {
5988 global rowidlist parentlist numcommits displayorder
5990 set cross {}
5991 set ccross {}
5995 }
6014 }
6015 }
6016 }
6017 }
6018 }
6020 }
6022 proc assigncolor {id} {
6023 global colormap colors nextcolor
6024 global parents children children curview
6030 } else {
6031 set kids {}
6032 }
6038 return
6039 }
6040 }
6041 set badcolors {}
6042 set origbad {}
6045 # delimiter between corner crossings and other crossings
6048 }
6052 }
6053 }
6056 }
6063 }
6068 }
6069 }
6070 }
6073 }
6074 }
6078 set nextcolor 0
6079 }
6081 }
6083 }
6085 proc bindline {t id} {
6086 global canv
6092 }
6094 proc drawtags {id x xt y1} {
6095 global idtags idheads idotherrefs mainhead
6096 global linespc lthickness
6097 global canv rowtextx curview fgcolor bgcolor ctxbut
6099 set marks {}
6100 set ntags 0
6101 set nheads 0
6105 }
6109 }
6112 }
6115 }
6120 set xvals {}
6121 set wvals {}
6122 set i -1
6124 incr i
6127 } else {
6129 }
6133 }
6140 set font mainfont
6141 if {[incr ntags -1] >= 0} {
6142 # draw a tag
6148 } else {
6149 # draw a head or other ref
6150 if {[incr nheads -1] >= 0} {
6151 set col green
6153 set font mainfontbold
6154 }
6155 } else {
6156 set col "#ddddff"
6157 }
6168 }
6169 }
6176 }
6177 }
6179 }
6181 proc xcoord {i level ln} {
6182 global canvx0 xspc1 xspc2
6189 }
6191 }
6193 proc show_status {msg} {
6194 global canv fgcolor
6196 clear_display
6199 }
6201 # Don't change the text pane cursor if it is currently the hand cursor,
6202 # showing that we are over a sha1 ID link.
6203 proc settextcursor {c} {
6204 global ctext curtextcursor
6208 }
6210 }
6212 proc nowbusy {what {name {}}} {
6213 global isbusy busyname statusw
6215 if {[array names isbusy] eq {}} {
6216 . config -cursor watch
6217 settextcursor watch
6218 }
6223 }
6224 }
6226 proc notbusy {what} {
6227 global isbusy maincursor textcursor busyname statusw
6229 catch {
6234 }
6235 }
6236 if {[array names isbusy] eq {}} {
6239 }
6240 }
6242 proc findmatches {f} {
6243 global findtype findstring
6246 } else {
6251 }
6252 set matches {}
6253 set i 0
6258 }
6259 }
6261 }
6263 proc dofind {{dirn 1} {wrap 1}} {
6264 global findstring findstartline findcurline selectedline numcommits
6265 global gdttype filehighlight fh_serial find_dirn findallowwrap
6267 if {[info exists find_dirn]} {
6269 stopfinding
6270 }
6271 focus .
6275 } else {
6277 }
6279 nowbusy finding [mc "Searching"]
6283 }
6286 run findmore
6287 }
6289 proc stopfinding {} {
6290 global find_dirn findcurline fprogcoord
6292 if {[info exists find_dirn]} {
6293 unset find_dirn
6294 unset findcurline
6295 notbusy finding
6296 set fprogcoord 0
6297 adjustprogress
6298 }
6299 stopblaming
6300 }
6302 proc findmore {} {
6303 global commitdata commitinfo numcommits findpattern findloc
6304 global findstartline findcurline findallowwrap
6305 global find_dirn gdttype fhighlights fprogcoord
6306 global curview varcorder vrownum varccommits vrowmod
6308 if {![info exists find_dirn]} {
6309 return 0
6310 }
6311 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6313 set moretodo 0
6315 incr l
6317 set l 0
6318 }
6321 } else {
6324 }
6325 } else {
6328 }
6329 incr l -1
6332 } else {
6333 set lim -1
6335 }
6336 }
6339 set n 500
6340 set moretodo 1
6341 }
6344 }
6345 set found 0
6346 set domore 1
6360 }
6362 # shouldn't happen unless git log doesn't give all the commits...
6365 continue
6366 }
6369 }
6374 set found 1
6375 break
6376 }
6377 }
6379 }
6380 } else {
6388 }
6393 }
6396 break
6397 }
6400 set domore 0
6402 }
6403 }
6404 }
6405 }
6407 unset findcurline
6408 unset find_dirn
6409 notbusy finding
6410 set fprogcoord 0
6411 adjustprogress
6414 } else {
6415 bell
6416 }
6417 return 0
6418 }
6420 flushhighlights
6421 } else {
6423 }
6427 }
6429 adjustprogress
6431 }
6433 proc findselectline {l} {
6434 global findloc commentend ctext findcurline markingmatches gdttype
6441 # highlight the matches in the comments
6448 }
6449 }
6450 drawvisible
6451 }
6453 # mark the bits of a headline or author that match a find string
6454 proc markmatches {canv l str tag matches font row} {
6455 global selectedline
6473 }
6474 }
6475 }
6477 proc unmarkmatches {} {
6478 global markingmatches
6480 allcanvs delete matches
6481 set markingmatches 0
6482 stopfinding
6483 }
6485 proc selcanvline {w x y} {
6486 global canv canvy0 ctext linespc
6487 global rowtextx
6494 set l 0
6495 }
6500 }
6501 unmarkmatches
6503 }
6505 proc commit_descriptor {p} {
6506 global commitinfo
6509 }
6510 set l "..."
6513 }
6515 }
6517 # append some text to the ctext widget, and make any SHA1 ID
6518 # that we know about be a clickable link.
6519 proc appendwithlinks {text tags} {
6520 global ctext linknum curview
6529 incr e
6533 incr linknum
6534 }
6535 }
6537 proc setlink {id lk} {
6538 global curview ctext pendinglinks
6540 set known 0
6545 set known 1
6547 }
6548 } else {
6550 }
6556 } else {
6559 }
6560 }
6562 proc appendshortlink {id {pre {}} {post {}}} {
6563 global ctext linknum
6570 incr linknum
6571 }
6573 proc makelink {id} {
6574 global pendinglinks
6579 }
6581 }
6583 proc linkcursor {w inc} {
6584 global linkentercount curtextcursor
6588 } else {
6591 set linkentercount 0
6592 }
6593 }
6594 }
6596 proc viewnextline {dir} {
6597 global canv linespc
6605 set newtop 0
6608 }
6610 }
6612 # add a list of tag or branch names at position pos
6613 # returns the number of names inserted
6614 proc appendrefs {pos ids var} {
6618 return 0
6619 }
6622 set tags {}
6626 }
6627 }
6630 } else {
6632 set sep {}
6636 incr linknum
6641 set sep ", "
6642 }
6643 }
6646 }
6648 # called when we have finished computing the nearby tags
6649 proc dispneartags {delay} {
6650 global selectedline currentid showneartags tagphase
6653 after cancel dispnexttag
6655 after 200 dispnexttag
6656 set tagphase -1
6657 } else {
6658 after idle dispnexttag
6659 set tagphase 0
6660 }
6661 }
6663 proc dispnexttag {} {
6664 global selectedline currentid showneartags tagphase ctext
6668 0 {
6672 }
6673 }
6674 1 {
6678 }
6679 }
6680 2 {
6685 # turn "Branch" into "Branches"
6689 }
6690 }
6691 }
6692 }
6693 if {[incr tagphase] <= 2} {
6694 after idle dispnexttag
6695 }
6696 }
6698 proc make_secsel {id} {
6699 global linehtag linentag linedtag canv canv2 canv3
6714 }
6716 proc make_idmark {id} {
6717 global linehtag canv fgcolor
6724 }
6726 proc selectline {l isnew {desired_loc {}}} {
6727 global canv ctext commitinfo selectedline
6728 global canvy0 linespc parents children curview
6729 global currentid sha1entry
6730 global commentend idtags linknum
6731 global mergemax numcommits pending_select
6732 global cmitmode showneartags allcommits
6733 global targetrow targetid lastscrollrows
6734 global autoselect jump_to_here
6736 catch {unset pending_select}
6738 normalline
6739 unsel_reflist
6740 stopfinding
6748 setcanvscroll
6749 }
6763 } else {
6767 }
6768 }
6772 } else {
6776 }
6777 }
6778 }
6781 set newtop 0
6782 }
6784 drawvisible
6785 }
6791 }
6798 }
6802 clear_ctext
6803 set linknum 0
6806 }
6816 }
6818 }
6820 set headers {}
6823 set np 0
6826 set tag mmax
6827 } else {
6829 }
6832 incr np
6833 }
6834 } else {
6837 }
6838 }
6842 }
6844 # make anything that looks like a SHA1 ID be a clickable link
6847 if {![info exists allcommits]} {
6848 getallcommits
6849 }
6860 dispneartags 1
6861 }
6866 }
6874 init_flist [mc "Comments"]
6879 } else {
6881 }
6882 }
6884 proc selfirstline {} {
6885 unmarkmatches
6886 selectline 0 1
6887 }
6889 proc sellastline {} {
6890 global numcommits
6891 unmarkmatches
6894 }
6896 proc selnextline {dir} {
6897 global selectedline
6898 focus .
6901 unmarkmatches
6903 }
6905 proc selnextpage {dir} {
6906 global canv linespc selectedline numcommits
6910 set lpp 1
6911 }
6913 drawvisible
6917 set l 0
6920 }
6921 unmarkmatches
6923 }
6925 proc unselectline {} {
6926 global selectedline currentid
6928 set selectedline {}
6929 catch {unset currentid}
6930 allcanvs delete secsel
6931 rhighlight_none
6932 }
6934 proc reselectline {} {
6935 global selectedline
6939 }
6940 }
6942 proc addtohistory {cmd} {
6943 global history historyindex curview
6948 return
6949 }
6953 } else {
6955 }
6956 incr historyindex
6958 .tf.bar.leftbut conf -state normal
6959 } else {
6960 .tf.bar.leftbut conf -state disabled
6961 }
6962 .tf.bar.rightbut conf -state disabled
6963 }
6965 proc godo {elt} {
6966 global curview
6972 }
6974 }
6976 proc goback {} {
6977 global history historyindex
6978 focus .
6981 incr historyindex -1
6983 .tf.bar.rightbut conf -state normal
6984 }
6986 .tf.bar.leftbut conf -state disabled
6987 }
6988 }
6990 proc goforw {} {
6991 global history historyindex
6992 focus .
6996 incr historyindex
6998 .tf.bar.leftbut conf -state normal
6999 }
7001 .tf.bar.rightbut conf -state disabled
7002 }
7003 }
7005 proc gettree {id} {
7006 global treefilelist treeidlist diffids diffmergeid treepending
7007 global nullid nullid2
7010 catch {unset diffmergeid}
7012 if {![info exists treepending]} {
7014 set cmd [list | git ls-files]
7016 set cmd [list | git ls-files --stage -t]
7017 } else {
7019 }
7021 return
7022 }
7028 }
7029 } else {
7031 }
7032 }
7034 proc gettreeline {gtf id} {
7035 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7037 set nl 0
7041 } else {
7049 }
7052 }
7055 }
7058 }
7060 unset treepending
7062 if {![info exists diffmergeid]} {
7064 }
7067 } else {
7069 }
7070 return 0
7071 }
7073 proc showfile {f} {
7074 global treefilelist treeidlist diffids nullid nullid2
7075 global ctext_file_names ctext_file_lines
7076 global ctext commentend
7081 return
7082 }
7086 return
7087 }
7088 } else {
7092 return
7093 }
7094 }
7105 settabs 0
7106 }
7108 proc getblobline {bf id} {
7109 global diffids cmitmode ctext
7113 return 0
7114 }
7116 set nl 0
7119 }
7121 global jump_to_here ctext_file_names commentend
7123 # delete last newline
7131 }
7132 return 0
7133 }
7136 }
7138 proc mark_ctext_line {lnum} {
7139 global ctext markbgcolor
7145 }
7147 proc mergediff {id} {
7148 global diffmergeid
7149 global diffids treediffs
7150 global parents curview
7158 }
7160 proc startdiff {ids} {
7161 global treediffs diffids treepending diffmergeid nullid nullid2
7163 settabs 1
7165 catch {unset diffmergeid}
7169 if {![info exists treepending]} {
7171 }
7172 } else {
7174 }
7175 }
7177 proc path_filter {filter name} {
7182 return 1
7183 }
7184 } else {
7188 return 1
7189 }
7190 }
7191 }
7192 return 0
7193 }
7195 proc addtocflist {ids} {
7196 global treediffs
7200 }
7202 proc diffcmd {ids flags} {
7203 global nullid nullid2
7209 # comparing working directory with some specific revision
7213 } else {
7215 }
7216 } else {
7217 # comparing working directory with index
7220 lappend cmd -R
7221 }
7222 }
7226 # comparing index with specific revision
7229 } else {
7231 }
7232 } else {
7233 # comparing index with HEAD
7234 lappend cmd HEAD
7235 }
7236 } else {
7238 }
7240 }
7242 proc gettreediffs {ids} {
7243 global treediff treepending
7248 set treediff {}
7251 }
7253 proc gettreediffline {gdtf ids} {
7254 global treediff treediffs treepending diffids diffmergeid
7255 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7257 set nr 0
7258 set sublist {}
7259 set max 1000
7261 # cache_gitattr is slow, and even slower on win32 where we
7262 # have to invoke it for only about 30 paths at a time
7263 set max 500
7264 if {[tk windowingsystem] == "win32"} {
7265 set max 120
7266 }
7267 }
7274 }
7279 }
7280 }
7281 }
7284 }
7287 }
7290 set flist {}
7294 }
7295 }
7297 } else {
7299 }
7300 unset treepending
7304 if {![info exists diffmergeid]} {
7306 }
7307 } else {
7309 }
7310 return 0
7311 }
7313 # empty string or positive integer
7314 proc diffcontextvalidate {v} {
7316 }
7318 proc diffcontextchange {n1 n2 op} {
7319 global diffcontextstring diffcontext
7324 reselectline
7325 }
7326 }
7327 }
7329 proc changeignorespace {} {
7330 reselectline
7331 }
7333 proc getblobdiffs {ids} {
7334 global blobdifffd diffids env
7335 global diffinhdr treediffs
7336 global diffcontext
7337 global ignorespace
7338 global limitdiffs vfilelimit curview
7339 global diffencoding targetline diffnparents
7340 global git_version
7342 set textconv {}
7344 set textconv "--textconv"
7345 }
7348 append cmd " -w"
7349 }
7352 }
7355 return
7356 }
7357 set targetline {}
7358 set diffnparents 0
7359 set diffinhdr 0
7360 set diffencoding [get_path_encoding {}]
7364 }
7366 proc setinlist {var i val} {
7371 }
7374 } else {
7376 }
7377 }
7379 proc makediffhdr {fname ids} {
7380 global ctext curdiffstart treediffs diffencoding
7381 global ctext_file_names jump_to_here targetline diffline
7388 }
7393 set targetline {}
7396 }
7397 set diffline 0
7398 }
7400 proc getblobdiffline {bdf ids} {
7401 global diffids blobdifffd ctext curdiffstart
7402 global diffnexthead diffnextnote difffilestart
7403 global ctext_file_names ctext_file_lines
7404 global diffinhdr treediffs mergemax diffnparents
7405 global diffencoding jump_to_here targetline diffline
7407 set nr 0
7412 return 0
7413 }
7418 continue
7419 }
7420 # start of a new file
7421 set diffinhdr 1
7424 lappend ctext_file_names ""
7429 # start of a new file in a merge diff
7434 }
7436 } else {
7438 # If the name hasn't changed the length will be odd,
7439 # the middle char will be a space, and the two bits either
7440 # side will be a/name and b/name, or "a/name" and "b/name".
7441 # If the name has changed we'll get "rename from" and
7442 # "rename to" or "copy from" and "copy to" lines following
7443 # this, and we'll use them to get the filenames.
7444 # This complexity is necessary because spaces in the
7445 # filename(s) don't get escaped.
7451 continue
7452 }
7453 # unescape if quoted and chop off the a/ from the front
7456 } else {
7458 }
7459 }
7472 }
7480 }
7482 set diffinhdr 0
7489 }
7494 }
7500 }
7503 # do nothing
7504 continue
7506 set diffinhdr 0
7507 continue
7508 }
7511 } else {
7512 set line [string map {\x1A ^Z} \
7514 # parse the prefix - one ' ', '-' or '+' for each parent
7518 # prefix only has " ", "-" and "+" in it: normal diff line
7523 set num "max"
7524 }
7526 } else {
7527 set tags {}
7529 # added line
7535 set num "max"
7536 }
7538 }
7539 }
7540 }
7544 set targetline {}
7545 } else {
7546 incr diffline
7547 }
7548 }
7550 }
7551 } else {
7552 # "\ No newline at end of file",
7553 # or something else we don't recognize
7555 }
7556 }
7557 }
7558 if {[info exists seehere]} {
7560 }
7564 return 0
7565 }
7567 }
7569 proc changediffdisp {} {
7570 global ctext diffelide
7574 }
7576 proc highlightfile {loc cline} {
7577 global ctext cflist cflist_top
7584 }
7586 proc prevfile {} {
7587 global difffilestart ctext cmitmode
7590 set prev 0.0
7591 set prevline 1
7596 return
7597 }
7599 incr prevline
7600 }
7602 }
7604 proc nextfile {} {
7605 global difffilestart ctext cmitmode
7609 set line 1
7611 incr line
7614 return
7615 }
7616 }
7617 }
7619 proc clear_ctext {{first 1.0}} {
7620 global ctext smarktop smarkbot
7621 global ctext_file_names ctext_file_lines
7622 global pendinglinks
7627 }
7630 }
7633 catch {unset pendinglinks}
7634 }
7635 set ctext_file_names {}
7636 set ctext_file_lines {}
7637 }
7639 proc settabs {{firstab {}}} {
7640 global firsttabstop tabstop ctext have_tk85
7644 }
7645 set w [font measure textfont "0"]
7651 } else {
7653 }
7654 }
7656 proc incrsearch {name ix op} {
7657 global ctext searchstring searchdirn
7661 # no anchor set, use start of selection, or of visible area
7667 } else {
7669 }
7670 }
7675 }
7676 searchmarkvisible 1
7677 }
7678 }
7680 proc dosearch {} {
7681 global sstring ctext searchstring searchdirn
7685 set searchdirn -forwards
7691 set start "@0,0"
7692 }
7696 bell
7697 return
7698 }
7703 }
7704 }
7706 proc dosearchback {} {
7707 global sstring ctext searchstring searchdirn
7711 set searchdirn -backwards
7718 }
7722 bell
7723 return
7724 }
7729 }
7730 }
7732 proc searchmark {first last} {
7733 global ctext searchstring
7736 while {1} {
7741 }
7742 }
7744 proc searchmarkvisible {doall} {
7745 global ctext smarktop smarkbot
7750 # no overlap with previous
7754 } else {
7758 }
7762 }
7763 }
7764 }
7766 proc scrolltext {f0 f1} {
7767 global searchstring
7771 searchmarkvisible 0
7772 }
7773 }
7775 proc setcoords {} {
7776 global linespc charspc canvx0 canvy0
7777 global xspc1 xspc2 lthickness
7779 set linespc [font metrics mainfont -linespace]
7780 set charspc [font measure mainfont "m"]
7786 }
7788 proc redisplay {} {
7789 global canv
7790 global selectedline
7795 clear_display
7796 setcanvscroll
7798 drawvisible
7802 }
7803 }
7805 proc parsefont {f n} {
7806 global fontattr
7811 set s 10
7814 }
7820 "normal" -
7822 "roman" -
7824 }
7825 }
7826 }
7828 proc fontflags {f {isbold 0}} {
7829 global fontattr
7834 }
7836 proc fontname {f} {
7837 global fontattr
7841 lappend n "bold"
7842 }
7844 lappend n "italic"
7845 }
7847 }
7849 proc incrfont {inc} {
7850 global mainfont textfont ctext canv cflist showrefstop
7851 global stopped entries fontattr
7853 unmarkmatches
7857 set s 1
7858 }
7862 set mainfont [fontname mainfont]
7866 set s 1
7867 }
7871 set textfont [fontname textfont]
7872 setcoords
7873 settabs
7874 redisplay
7875 }
7877 proc clearsha1 {} {
7878 global sha1entry sha1string
7881 }
7882 }
7884 proc sha1change {n1 n2 op} {
7885 global sha1string currentid sha1but
7888 set state disabled
7889 } else {
7890 set state normal
7891 }
7895 } else {
7897 }
7898 }
7900 proc gotocommit {} {
7901 global sha1string tagids headids curview varcid
7909 } else {
7916 return
7917 }
7919 }
7920 } else {
7923 return
7924 }
7925 }
7926 }
7929 return
7930 }
7933 } else {
7935 }
7937 }
7939 proc lineenter {x y id} {
7940 global hoverx hovery hoverid hovertimer
7941 global commitinfo canv
7947 if {[info exists hovertimer]} {
7949 }
7950 set hovertimer [after 500 linehover]
7952 }
7954 proc linemotion {x y id} {
7955 global hoverx hovery hoverid hovertimer
7960 if {[info exists hovertimer]} {
7962 }
7963 set hovertimer [after 500 linehover]
7964 }
7965 }
7967 proc lineleave {id} {
7968 global hoverid hovertimer canv
7972 if {[info exists hovertimer]} {
7974 unset hovertimer
7975 }
7976 unset hoverid
7977 }
7978 }
7980 proc linehover {} {
7981 global hoverx hovery hoverid hovertimer
7982 global canv linespc lthickness
7983 global commitinfo
7996 -fill \#ffff80 -outline black -width 1 -tags hover]
7999 -font mainfont]
8001 }
8003 proc clickisonarrow {id y} {
8004 global lthickness
8013 }
8014 }
8015 return {}
8016 }
8018 proc arrowjump {id n y} {
8019 global canv
8021 # 1 <-> 2, 3 <-> 4, etc...
8031 set yfrac 0
8032 }
8034 }
8036 proc lineclick {x y id isnew} {
8037 global ctext commitinfo children canv thickerline curview
8040 unmarkmatches
8041 unselectline
8042 normalline
8044 # draw this line thicker than normal
8052 }
8056 return
8057 }
8061 }
8062 # fill the details pane with info about this line
8064 clear_ctext
8065 settabs 0
8077 set i 0
8079 incr i
8089 }
8090 }
8092 init_flist {}
8093 }
8095 proc normalline {} {
8096 global thickerline
8097 if {[info exists thickerline]} {
8099 unset thickerline
8101 }
8102 }
8104 proc selbyid {id} {
8105 global curview
8108 }
8109 }
8111 proc mstime {} {
8112 global startmstime
8113 if {![info exists startmstime]} {
8114 set startmstime [clock clicks -milliseconds]
8115 }
8117 }
8119 proc rowmenu {x y id} {
8120 global rowctxmenu selectedline rowmenuid curview
8121 global nullid nullid2 fakerowmenu mainhead markedid
8123 stopfinding
8126 set state disabled
8127 } else {
8128 set state normal
8129 }
8134 } else {
8136 }
8141 } else {
8145 }
8146 } else {
8148 }
8153 }
8155 proc markhere {} {
8156 global rowmenuid markedid canv
8160 }
8162 proc gotomark {} {
8163 global markedid
8165 if {[info exists markedid]} {
8167 }
8168 }
8170 proc replace_by_kids {l r} {
8171 global curview children
8177 }
8179 }
8181 proc find_common_desc {} {
8182 global markedid rowmenuid curview children
8184 if {![info exists markedid]} return
8187 #set t1 [clock clicks -milliseconds]
8190 while 1 {
8196 break
8197 }
8200 } else {
8202 }
8203 }
8204 #set t2 [clock clicks -milliseconds]
8206 }
8208 proc compare_commits {} {
8209 global markedid rowmenuid curview children
8211 if {![info exists markedid]} return
8215 }
8217 proc getpatchid {id} {
8218 global patchids
8222 # trim off the initial "|"
8224 if {[catch {
8227 }]} {
8229 }
8230 }
8232 }
8234 proc do_cmp_commits {a b} {
8235 global ctext curview parents children patchids commitinfo
8238 clear_ctext
8239 init_flist {}
8241 set skipa 0
8242 set skipb 0
8245 set skipa 1
8246 } else {
8248 }
8251 set skipb 1
8252 } else {
8254 }
8260 [mc " - stopping\n"]
8261 break
8262 }
8265 [mc " - stopping\n"]
8266 break
8267 }
8272 } else {
8276 }
8277 set skipa 1
8278 set skipb 1
8279 } else {
8286 update
8288 return
8289 }
8290 }
8295 [mc " has %s children - stopping\n" \
8297 break
8298 }
8300 }
8304 [mc " has %s children - stopping\n" \
8306 break
8307 }
8309 }
8310 }
8312 }
8314 proc diffcommits {a b} {
8315 global diffcontext diffids blobdifffd diffinhdr
8317 set tmpdir [gitknewtmpdir]
8320 if {[catch {
8323 } err]} {
8325 return
8326 }
8327 if {[catch {
8329 } err]} {
8331 return
8332 }
8335 set diffinhdr 0
8337 }
8339 proc diffvssel {dirn} {
8340 global rowmenuid selectedline
8346 } else {
8349 }
8352 }
8354 proc doseldiff {oldid newid} {
8355 global ctext
8356 global commitinfo
8359 clear_ctext
8360 init_flist [mc "Top"]
8375 }
8377 proc mkpatch {} {
8378 global rowmenuid currentid commitinfo patchtop patchnum
8380 if {![info exists currentid]} return
8385 set top .patch
8415 incr patchnum
8427 }
8429 proc mkpatchrev {} {
8430 global patchtop
8436 foreach e [list fromsha1 fromhead tosha1 tohead] \
8442 }
8443 }
8445 proc mkpatchgo {} {
8446 global patchtop nullid nullid2
8452 # trim off the initial "|"
8457 }
8459 unset patchtop
8460 }
8462 proc mkpatchcan {} {
8463 global patchtop
8466 unset patchtop
8467 }
8469 proc mktag {} {
8470 global rowmenuid mktagtop commitinfo
8472 set top .maketag
8501 }
8503 proc domktag {} {
8504 global mktagtop env tagids idtags
8510 return 0
8511 }
8514 return 0
8515 }
8516 if {[catch {
8518 } err]} {
8520 return 0
8521 }
8527 dispneartags 0
8528 run refill_reflist
8529 return 1
8530 }
8532 proc redrawtags {id} {
8533 global canv linehtag idpos currentid curview cmitlisted markedid
8534 global canvxmax iddrawn circleitem mainheadid circlecolors
8540 set ofill yellow
8541 } else {
8543 }
8553 setcanvscroll
8554 }
8557 }
8560 }
8561 }
8563 proc mktagcan {} {
8564 global mktagtop
8567 unset mktagtop
8568 }
8570 proc mktaggo {} {
8571 if {![domktag]} return
8572 mktagcan
8573 }
8575 proc writecommit {} {
8576 global rowmenuid wrcomtop commitinfo wrcomcmd
8578 set top .writecommit
8611 }
8613 proc wrcomgo {} {
8614 global wrcomtop
8621 }
8623 unset wrcomtop
8624 }
8626 proc wrcomcan {} {
8627 global wrcomtop
8630 unset wrcomtop
8631 }
8633 proc mkbranch {} {
8634 global rowmenuid mkbrtop
8636 set top .makebranch
8660 }
8662 proc mkbrgo {top} {
8663 global headids idheads
8667 set cmdargs {}
8668 set old_id {}
8671 return
8672 }
8674 if {![confirm_popup [mc \
8676 return
8677 }
8679 lappend cmdargs -f
8680 }
8683 nowbusy newbranch
8684 update
8685 if {[catch {
8687 } err]} {
8688 notbusy newbranch
8690 } else {
8691 notbusy newbranch
8697 } else {
8702 }
8703 dispneartags 0
8704 run refill_reflist
8705 }
8706 }
8708 proc exec_citool {tool_args {baseid {}}} {
8709 global commitinfo env
8711 set save_env [array get env GIT_AUTHOR_*]
8716 }
8719 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8725 }
8726 }
8730 array unset env GIT_AUTHOR_*
8732 }
8734 proc cherrypick {} {
8735 global rowmenuid curview
8736 global mainhead mainheadid
8738 set oldhead [exec git rev-parse HEAD]
8741 set ok [confirm_popup [mc "Commit %s is already\
8742 included in branch %s -- really re-apply it?" \
8745 }
8746 nowbusy cherrypick [mc "Cherry-picking"]
8747 update
8748 # Unfortunately git-cherry-pick writes stuff to stderr even when
8749 # no error occurs, and exec takes that as an indication of error...
8751 notbusy cherrypick
8752 if {[regexp -line \
8753 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8755 error_popup [mc "Cherry-pick failed because of local changes\
8756 to file '%s'.\nPlease commit, reset or stash\
8758 } elseif {[regexp -line \
8759 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8761 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8762 conflict.\nDo you wish to run git citool to\
8763 resolve it?"]]} {
8764 # Force citool to read MERGE_MSG
8765 file delete [file join [gitdir] "GITGUI_MSG"]
8767 }
8768 } else {
8770 }
8771 run updatecommits
8772 return
8773 }
8774 set newhead [exec git rev-parse HEAD]
8776 notbusy cherrypick
8777 error_popup [mc "No changes committed"]
8778 return
8779 }
8782 # XXX this isn't right if we have a path limit...
8787 }
8792 }
8793 notbusy cherrypick
8794 }
8796 proc resethead {} {
8797 global mainhead rowmenuid confirm_ok resettype
8799 set confirm_ok 0
8800 set w ".confirmreset"
8806 -justify center -aspect 1000
8811 set resettype mixed
8813 -text [mc "Soft: Leave working tree and index untouched"]
8816 -text [mc "Mixed: Leave working tree untouched, reset index"]
8819 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8830 if {[catch {set fd [open \
8833 } else {
8834 dohidelocalchanges
8836 nowbusy reset [mc "Resetting"]
8838 }
8839 }
8841 proc readresetstat {fd} {
8842 global mainhead mainheadid showlocalchanges rprogcoord
8847 adjustprogress
8848 }
8849 return 1
8850 }
8851 set rprogcoord 0
8852 adjustprogress
8853 notbusy reset
8856 }
8858 set newhead [exec git rev-parse HEAD]
8865 }
8867 doshowlocalchanges
8868 }
8869 return 0
8870 }
8872 # context menu for a head
8873 proc headmenu {x y id head} {
8874 global headmenuid headmenuhead headctxmenu mainhead
8876 stopfinding
8879 set state normal
8881 set state disabled
8882 }
8886 }
8888 proc cobranch {} {
8889 global headmenuid headmenuhead headids
8890 global showlocalchanges
8892 # check the tree is clean first??
8893 nowbusy checkout [mc "Checking out"]
8894 update
8895 dohidelocalchanges
8896 if {[catch {
8898 } err]} {
8899 notbusy checkout
8902 dodiffindex
8903 }
8904 } else {
8906 }
8907 }
8909 proc readcheckoutstat {fd newhead newheadid} {
8910 global mainhead mainheadid headids showlocalchanges progresscoords
8911 global viewmainheadid curview
8916 adjustprogress
8917 }
8918 return 1
8919 }
8920 set progresscoords {0 0}
8921 adjustprogress
8922 notbusy checkout
8925 }
8934 dodiffindex
8935 }
8936 }
8938 proc rmbranch {} {
8939 global headmenuid headmenuhead mainhead
8940 global idheads
8944 # this check shouldn't be needed any more...
8946 error_popup [mc "Cannot delete the currently checked-out branch"]
8947 return
8948 }
8951 # the stuff on this branch isn't on any other branch
8952 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8954 }
8955 nowbusy rmbranch
8956 update
8958 notbusy rmbranch
8960 return
8961 }
8965 notbusy rmbranch
8966 dispneartags 0
8967 run refill_reflist
8968 }
8970 # Display a list of tags and heads
8971 proc showrefs {} {
8972 global showrefstop bgcolor fgcolor selectbgcolor
8973 global bglist fglist reflistfilter reflist maincursor
8975 set top .showrefs
8979 refill_reflist
8980 return
8981 }
8989 -spacing1 1 -spacing3 1 -state disabled
9000 set reflistfilter "*"
9001 trace add variable reflistfilter write reflistfilter_change
9013 set reflist {}
9014 refill_reflist
9015 }
9017 proc sel_reflist {w x y} {
9018 global showrefstop reflist headids tagids otherrefids
9028 }
9030 }
9032 proc unsel_reflist {} {
9033 global showrefstop
9037 }
9039 proc reflistfilter_change {n1 n2 op} {
9040 global reflistfilter
9042 after cancel refill_reflist
9043 after 200 refill_reflist
9044 }
9046 proc refill_reflist {} {
9047 global reflist reflistfilter showrefstop headids tagids otherrefids
9048 global curview
9051 set refs {}
9052 foreach n [array names headids] {
9056 } else {
9058 }
9059 }
9060 }
9061 foreach n [array names tagids] {
9065 } else {
9067 }
9068 }
9069 }
9070 foreach n [array names otherrefids] {
9074 } else {
9076 }
9077 }
9078 }
9086 set i 0
9087 set j 0
9096 }
9097 } else {
9098 set cmp -1
9099 }
9100 } else {
9101 set cmp 1
9102 }
9104 -1 {
9106 incr i
9107 }
9108 0 {
9109 incr i
9110 incr j
9111 }
9112 1 {
9117 incr j
9118 }
9119 }
9120 }
9122 # delete last newline
9125 }
9127 # Stuff for finding nearby tags
9128 proc getallcommits {} {
9129 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9130 global idheads idtags idotherrefs allparents tagobjid
9132 if {![info exists allcommits]} {
9133 set nextarc 0
9134 set allcommits 0
9135 set seeds {}
9136 set allcwait 0
9137 set cachedarcs 0
9138 set allccache [file join [gitdir] "gitk.cache"]
9139 if {![catch {
9141 set allcwait 1
9143 }]} return
9144 }
9147 return
9148 }
9149 set cmd [list | git rev-list --parents]
9152 set ids "--all"
9153 } else {
9154 set refs [concat [array names idheads] [array names idtags] \
9155 [array names idotherrefs]]
9156 set ids {}
9157 set tagobjs {}
9158 foreach name [array names tagobjid] {
9160 }
9165 }
9166 }
9170 }
9171 }
9172 }
9176 incr allcommits
9177 nowbusy allcommits
9179 } else {
9180 dispneartags 0
9181 }
9182 }
9184 # Since most commits have 1 parent and 1 child, we group strings of
9185 # such commits into "arcs" joining branch/merge points (BMPs), which
9186 # are commits that either don't have 1 parent or don't have 1 child.
9187 #
9188 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9189 # arcout(id) - outgoing arcs for BMP
9190 # arcids(a) - list of IDs on arc including end but not start
9191 # arcstart(a) - BMP ID at start of arc
9192 # arcend(a) - BMP ID at end of arc
9193 # growing(a) - arc a is still growing
9194 # arctags(a) - IDs out of arcids (excluding end) that have tags
9195 # archeads(a) - IDs out of arcids (excluding end) that have heads
9196 # The start of an arc is at the descendent end, so "incoming" means
9197 # coming from descendents, and "outgoing" means going towards ancestors.
9199 proc getallclines {fd} {
9200 global allparents allchildren idtags idheads nextarc
9201 global arcnos arcids arctags arcout arcend arcstart archeads growing
9202 global seeds allcommits cachedarcs allcupdate
9204 set nid 0
9208 # seen it already
9209 continue
9210 }
9211 set cachedarcs 0
9218 } else {
9224 }
9227 }
9229 # seen parent already
9232 }
9236 }
9239 continue
9240 }
9241 }
9246 }
9248 set ao {}
9251 set a [incr nextarc]
9260 # seen it already, may need to make a new branch
9263 }
9267 }
9269 }
9271 }
9273 global cached_dheads cached_dtags cached_atags
9274 catch {unset cached_dheads}
9275 catch {unset cached_dtags}
9276 catch {unset cached_atags}
9277 }
9280 }
9281 set cacheok 1
9282 if {[catch {
9285 } err]} {
9286 # got an error reading the list of commits
9287 # if we were updating, try rereading the whole thing again
9289 incr allcommits -1
9291 return
9292 }
9293 error_popup "[mc "Error reading commit topology information;\
9294 branch and preceding/following tag information\
9296 set cacheok 0
9297 }
9298 if {[incr allcommits -1] == 0} {
9299 notbusy allcommits
9301 run savecache
9302 }
9303 }
9304 dispneartags 0
9305 return 0
9306 }
9308 proc recalcarc {a} {
9309 global arctags archeads arcids idtags idheads
9311 set at {}
9312 set ah {}
9316 }
9319 }
9320 }
9323 }
9325 proc splitarc {p} {
9326 global arcnos arcids nextarc arctags archeads idtags idheads
9327 global arcstart arcend arcout allparents growing
9332 return
9333 }
9338 return
9339 }
9340 set na [incr nextarc]
9343 } else {
9347 }
9357 }
9362 } else {
9365 }
9366 }
9368 # reconstruct tags and heads lists
9372 } else {
9375 }
9376 }
9378 # Update things for a new commit added that is a child of one
9379 # existing commit. Used when cherry-picking.
9380 proc addnewchild {id p} {
9381 global allparents allchildren idtags nextarc
9382 global arcnos arcids arctags arcout arcend arcstart archeads growing
9383 global seeds allcommits
9391 set a [incr nextarc]
9399 }
9402 }
9404 # This implements a cache for the topology information.
9405 # The cache saves, for each arc, the start and end of the arc,
9406 # the ids on the arc, and the outgoing arcs from the end.
9407 proc readcache {f} {
9408 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9409 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9410 global allcwait
9416 }
9417 if {[catch {
9419 # finish reading the cache and setting up arctags, etc.
9423 foreach id [array names idtags] {
9429 }
9430 }
9431 }
9432 foreach id [array names idheads] {
9438 }
9439 }
9440 }
9444 }
9445 }
9446 set allcwait 0
9447 } else {
9457 }
9461 } else {
9465 }
9466 }
9472 }
9475 }
9478 }
9480 }
9481 } err]} {
9483 return 0
9484 }
9486 getallcommits
9487 }
9489 }
9491 proc getcache {f} {
9492 global nextarc cachedarcs possible_seeds
9494 if {[catch {
9497 # make sure it's an integer
9500 set nextarc 0
9501 set possible_seeds {}
9503 } err]} {
9505 }
9506 return 0
9507 }
9509 proc dropcache {err} {
9510 global allcwait nextarc cachedarcs seeds
9513 foreach v {arcnos arcout arcids arcstart arcend growing \
9514 arctags archeads allparents allchildren} {
9517 }
9518 set allcwait 0
9519 set nextarc 0
9520 set cachedarcs 0
9521 set seeds {}
9522 getallcommits
9523 }
9525 proc writecache {f} {
9526 global cachearc cachedarcs allccache
9527 global arcstart arcend arcnos arcids arcout
9533 }
9534 if {[catch {
9538 } else {
9540 }
9541 }
9542 } err]} {
9546 return 0
9547 }
9552 return 0
9553 }
9554 return 1
9555 }
9557 proc savecache {} {
9558 global nextarc cachedarcs cachearc allccache
9561 set cachearc 0
9563 catch {
9567 }
9568 }
9570 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9571 # or 0 if neither is true.
9572 proc anc_or_desc {a b} {
9573 global arcout arcstart arcend arcnos cached_isanc
9576 # Both are on the same arc(s); either both are the same BMP,
9577 # or if one is not a BMP, the other is also not a BMP or is
9578 # the BMP at end of the arc (and it only has 1 incoming arc).
9579 # Or both can be BMPs with no incoming arcs.
9581 return 0
9582 }
9588 return 1
9589 } else {
9590 return -1
9591 }
9592 }
9598 } else {
9599 set aend {}
9600 }
9602 } else {
9604 }
9609 } else {
9610 set bend {}
9611 }
9613 } else {
9615 }
9617 return 1
9618 }
9620 return -1
9621 }
9624 return 1
9625 }
9626 }
9629 return -1
9630 }
9632 return 0
9633 }
9634 }
9642 continue
9643 }
9649 return 1
9653 return -1
9654 }
9660 }
9661 }
9662 }
9665 return 0
9666 }
9670 # and returns 0 if so and 1 if not.
9671 # If we subsequently discover a tag on such a growing tip, and that
9674 # isn't a good choice to display as a descendent tag of
9678 #
9679 proc is_certain {desc anc} {
9680 global arcnos arcout arcstart arcend growing problems
9682 set certain {}
9684 # tags on the same arc are certain
9686 return 1
9687 }
9692 }
9693 }
9696 } else {
9699 }
9701 return 1
9702 }
9705 set nnh 1
9706 set ngrowanc 0
9710 incr nnh -1
9711 }
9717 incr ngrowanc
9718 }
9719 } else {
9726 incr nnh -1
9727 }
9729 incr ngrowanc -1
9730 }
9740 incr nnh -1
9741 }
9743 incr ngrowanc -1
9744 }
9746 }
9747 }
9748 }
9749 }
9750 }
9751 }
9755 } else {
9758 incr nnh
9759 }
9760 }
9761 }
9762 }
9763 foreach x [array names growanc] {
9765 return 0
9766 }
9767 return 0
9768 }
9769 return 1
9770 }
9772 proc validate_arctags {a} {
9773 global arctags idtags
9775 set i -1
9778 incr i
9781 incr i -1
9782 }
9783 }
9785 }
9787 proc validate_archeads {a} {
9788 global archeads idheads
9790 set i -1
9793 incr i
9796 incr i -1
9797 }
9798 }
9800 }
9802 # Return the list of IDs that have tags that are descendents of id,
9803 # ignoring IDs that are descendents of IDs already reported.
9804 proc desctags {id} {
9805 global arcnos arcstart arcids arctags idtags allparents
9806 global growing cached_dtags
9809 return {}
9810 }
9811 set t1 [clock clicks -milliseconds]
9814 # part-way along an arc; check that arc first
9819 set tid {}
9824 }
9827 }
9828 }
9832 }
9833 }
9836 }
9841 set nc 1
9847 incr nc -1
9848 }
9849 # ignore tags on starting node
9853 set ta 1
9856 set ta 1
9857 }
9858 }
9865 }
9866 }
9875 }
9878 }
9880 incr nc -1
9881 }
9883 }
9884 }
9885 }
9890 incr nc
9891 }
9892 }
9893 }
9894 }
9895 set tags {}
9896 foreach id [array names tagloc] {
9901 }
9902 }
9903 }
9904 }
9905 set t2 [clock clicks -milliseconds]
9908 # remove tags that are descendents of other tags
9916 incr j -1
9917 incr i -1
9920 incr i -1
9921 break
9922 }
9923 }
9924 }
9926 if {[array names growing] ne {}} {
9927 # graph isn't finished, need to check if any tag could get
9928 # eclipsed by another tag coming later. Simply ignore any
9929 # tags that could later get eclipsed.
9930 set ctags {}
9934 }
9935 }
9938 } else {
9940 }
9941 } else {
9943 }
9944 set t3 [clock clicks -milliseconds]
9948 }
9950 }
9952 proc anctags {id} {
9953 global arcnos arcids arcout arcend arctags idtags allparents
9954 global growing cached_atags
9957 return {}
9958 }
9959 set t1 [clock clicks -milliseconds]
9962 # part-way along an arc; check that arc first
9971 }
9972 }
9973 }
9975 return {}
9976 }
9980 }
9981 }
9984 }
9989 set taglist {}
9990 set nc 1
9996 incr nc -1
9997 }
9998 # ignore tags on starting node
10002 set td 1
10005 set td 1
10006 }
10007 }
10013 }
10014 }
10026 }
10027 }
10030 }
10032 incr nc -1
10033 }
10035 }
10036 }
10037 }
10042 incr nc
10043 }
10044 }
10045 }
10046 }
10047 set t2 [clock clicks -milliseconds]
10049 set tags {}
10050 foreach id [array names tagloc] {
10055 }
10056 }
10057 }
10058 }
10060 # remove tags that are ancestors of other tags
10068 incr j -1
10069 incr i -1
10072 incr i -1
10073 break
10074 }
10075 }
10076 }
10078 if {[array names growing] ne {}} {
10079 # graph isn't finished, need to check if any tag could get
10080 # eclipsed by another tag coming later. Simply ignore any
10081 # tags that could later get eclipsed.
10082 set ctags {}
10086 }
10087 }
10090 } else {
10092 }
10093 } else {
10095 }
10096 set t3 [clock clicks -milliseconds]
10100 }
10102 }
10104 # Return the list of IDs that have heads that are descendents of id,
10105 # including id itself if it has a head.
10106 proc descheads {id} {
10107 global arcnos arcstart arcids archeads idheads cached_dheads
10108 global allparents
10111 return {}
10112 }
10113 set aret {}
10115 # part-way along an arc; check it first
10124 }
10125 }
10127 }
10131 set ret {}
10136 } else {
10139 }
10145 }
10146 }
10151 }
10152 }
10153 }
10154 }
10158 }
10160 proc addedtag {id} {
10161 global arcnos arcout cached_dtags cached_atags
10166 }
10167 catch {unset cached_dtags}
10168 catch {unset cached_atags}
10169 }
10171 proc addedhead {hid head} {
10172 global arcnos arcout cached_dheads
10177 }
10178 catch {unset cached_dheads}
10179 }
10181 proc removedhead {hid head} {
10182 global cached_dheads
10184 catch {unset cached_dheads}
10185 }
10187 proc movedhead {hid head} {
10188 global arcnos arcout cached_dheads
10193 }
10194 catch {unset cached_dheads}
10195 }
10197 proc changedrefs {} {
10198 global cached_dheads cached_dtags cached_atags
10199 global arctags archeads arcnos arcout idheads idtags
10201 foreach id [concat [array names idheads] [array names idtags]] {
10207 }
10208 }
10209 }
10210 catch {unset cached_dtags}
10211 catch {unset cached_atags}
10212 catch {unset cached_dheads}
10213 }
10215 proc rereadrefs {} {
10216 global idtags idheads idotherrefs mainheadid
10218 set refids [concat [array names idtags] \
10219 [array names idheads] [array names idotherrefs]]
10223 }
10224 }
10226 readrefs
10227 changedrefs
10229 [array names idheads] [array names idotherrefs]]]
10234 }
10235 }
10239 }
10240 run refill_reflist
10241 }
10243 proc listrefs {id} {
10244 global idtags idheads idotherrefs
10246 set x {}
10249 }
10250 set y {}
10253 }
10254 set z {}
10257 }
10259 }
10261 proc showtag {tag isnew} {
10262 global ctext tagcontents tagids linknum tagobjid
10266 }
10268 clear_ctext
10269 settabs 0
10270 set linknum 0
10272 catch {
10274 }
10275 }
10278 } else {
10280 }
10283 init_flist {}
10284 }
10286 proc doquit {} {
10287 global stopped
10288 global gitktmpdir
10290 set stopped 100
10291 savestuff .
10292 destroy .
10294 if {[info exists gitktmpdir]} {
10296 }
10297 }
10299 proc mkfontdisp {font top which} {
10308 }
10310 proc choosefont {font which} {
10311 global fontparam fontlist fonttop fontattr
10312 global prefstop
10320 set top .gitkfont
10323 font create sample
10330 set fontlist [lsort [font families]]
10341 -textvariable fontparam(size) \
10342 -validatecommand {string is integer -strict %s}
10344 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10345 -variable fontparam(weight) -onvalue bold -offvalue normal
10347 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10348 -variable fontparam(slant) -onvalue italic -offvalue roman
10352 -background white
10354 -fill black -tags text
10366 trace add variable fontparam write chg_fontparam
10367 } else {
10370 }
10375 }
10376 }
10378 proc centertext {w} {
10380 }
10382 proc fontok {} {
10383 global fontparam fontpref prefstop
10389 }
10392 }
10396 fontcan
10397 }
10399 proc fontcan {} {
10400 global fonttop fontparam
10402 if {[info exists fonttop]} {
10404 catch {font delete sample}
10405 unset fonttop
10406 unset fontparam
10407 }
10408 }
10410 proc selfontfam {} {
10411 global fonttop fontparam
10416 }
10417 }
10419 proc chg_fontparam {v sub op} {
10420 global fontparam
10423 }
10425 proc doprefs {} {
10426 global maxwidth maxgraphpct
10427 global oldprefs prefstop showneartags showlocalchanges
10428 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10429 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10430 global hideremotes
10432 set top .gitkprefs
10436 return
10437 }
10438 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10439 limitdiffs tabstop perfile_attrs hideremotes} {
10441 }
10449 -font optionfont
10453 -font optionfont
10457 -font optionfont -variable showlocalchanges
10460 -font optionfont -variable autoselect
10469 -font optionfont -variable showneartags
10472 -font optionfont -variable hideremotes
10475 -font optionfont -variable limitdiffs
10478 -font optionfont -variable perfile_attrs
10484 -padx 10
10486 -command choose_extdiff
10513 [mc "diff hunk header"] \
10519 [mc "marked line background"] \
10543 }
10545 proc choose_extdiff {} {
10546 global extdifftool
10548 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10551 }
10552 }
10554 proc choosecolor {v vi w x cmd} {
10563 }
10565 proc setselbg {c} {
10566 global bglist cflist
10569 }
10573 }
10575 proc setbg {c} {
10576 global bglist
10580 }
10581 }
10583 proc setfg {c} {
10584 global fglist canv
10588 }
10592 }
10594 proc prefscan {} {
10595 global oldprefs prefstop
10597 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10598 limitdiffs tabstop perfile_attrs hideremotes} {
10601 }
10603 unset prefstop
10604 fontcan
10605 }
10607 proc prefsok {} {
10608 global maxwidth maxgraphpct
10609 global oldprefs prefstop showneartags showlocalchanges
10610 global fontpref mainfont textfont uifont
10611 global limitdiffs treediffs perfile_attrs
10612 global hideremotes
10615 unset prefstop
10616 fontcan
10617 set fontchanged 0
10621 eval font configure mainfont [fontflags mainfont]
10622 eval font configure mainfontbold [fontflags mainfont 1]
10623 setcoords
10624 set fontchanged 1
10625 }
10629 eval font configure textfont [fontflags textfont]
10630 eval font configure textfontbold [fontflags textfont 1]
10631 }
10635 eval font configure uifont [fontflags uifont]
10636 }
10637 settabs
10640 doshowlocalchanges
10641 } else {
10642 dohidelocalchanges
10643 }
10644 }
10647 # treediffs elements are limited by path;
10648 # won't have encodings cached if perfile_attrs was just turned on
10649 catch {unset treediffs}
10650 }
10653 redisplay
10656 reselectline
10657 }
10659 rereadrefs
10660 }
10661 }
10663 proc formatdate {d} {
10664 global datetimeformat
10667 }
10669 }
10671 # This list of encoding names and aliases is distilled from
10672 # http://www.iana.org/assignments/character-sets.
10673 # Not all of them are supported by Tcl.
10674 set encoding_aliases {
10675 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10676 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10677 { ISO-10646-UTF-1 csISO10646UTF1 }
10678 { ISO_646.basic:1983 ref csISO646basic1983 }
10679 { INVARIANT csINVARIANT }
10680 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10681 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10682 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10683 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10684 { NATS-DANO iso-ir-9-1 csNATSDANO }
10685 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10686 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10687 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10688 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10689 { ISO-2022-KR csISO2022KR }
10690 { EUC-KR csEUCKR }
10691 { ISO-2022-JP csISO2022JP }
10692 { ISO-2022-JP-2 csISO2022JP2 }
10693 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10694 csISO13JISC6220jp }
10695 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10696 { IT iso-ir-15 ISO646-IT csISO15Italian }
10697 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10698 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10699 { greek7-old iso-ir-18 csISO18Greek7Old }
10700 { latin-greek iso-ir-19 csISO19LatinGreek }
10701 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10702 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10703 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10704 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10705 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10706 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10707 { INIS iso-ir-49 csISO49INIS }
10708 { INIS-8 iso-ir-50 csISO50INIS8 }
10709 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10710 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10711 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10712 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10713 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10714 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10715 csISO60Norwegian1 }
10716 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10717 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10718 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10719 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10720 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10721 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10722 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10723 { greek7 iso-ir-88 csISO88Greek7 }
10724 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10725 { iso-ir-90 csISO90 }
10726 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10727 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10728 csISO92JISC62991984b }
10729 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10730 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10731 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10732 csISO95JIS62291984handadd }
10733 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10734 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10735 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10736 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10737 CP819 csISOLatin1 }
10738 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10739 { T.61-7bit iso-ir-102 csISO102T617bit }
10740 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10741 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10742 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10743 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10744 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10745 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10746 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10747 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10748 arabic csISOLatinArabic }
10749 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10750 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10751 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10752 greek greek8 csISOLatinGreek }
10753 { T.101-G2 iso-ir-128 csISO128T101G2 }
10754 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10755 csISOLatinHebrew }
10756 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10757 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10758 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10759 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10760 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10761 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10762 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10763 csISOLatinCyrillic }
10764 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10765 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10766 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10767 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10768 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10769 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10770 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10771 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10772 { ISO_10367-box iso-ir-155 csISO10367Box }
10773 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10774 { latin-lap lap iso-ir-158 csISO158Lap }
10775 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10776 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10777 { us-dk csUSDK }
10778 { dk-us csDKUS }
10779 { JIS_X0201 X0201 csHalfWidthKatakana }
10780 { KSC5636 ISO646-KR csKSC5636 }
10781 { ISO-10646-UCS-2 csUnicode }
10782 { ISO-10646-UCS-4 csUCS4 }
10783 { DEC-MCS dec csDECMCS }
10784 { hp-roman8 roman8 r8 csHPRoman8 }
10785 { macintosh mac csMacintosh }
10786 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10787 csIBM037 }
10788 { IBM038 EBCDIC-INT cp038 csIBM038 }
10789 { IBM273 CP273 csIBM273 }
10790 { IBM274 EBCDIC-BE CP274 csIBM274 }
10791 { IBM275 EBCDIC-BR cp275 csIBM275 }
10792 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10793 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10794 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10795 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10796 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10797 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10798 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10799 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10800 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10801 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10802 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10803 { IBM437 cp437 437 csPC8CodePage437 }
10804 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10805 { IBM775 cp775 csPC775Baltic }
10806 { IBM850 cp850 850 csPC850Multilingual }
10807 { IBM851 cp851 851 csIBM851 }
10808 { IBM852 cp852 852 csPCp852 }
10809 { IBM855 cp855 855 csIBM855 }
10810 { IBM857 cp857 857 csIBM857 }
10811 { IBM860 cp860 860 csIBM860 }
10812 { IBM861 cp861 861 cp-is csIBM861 }
10813 { IBM862 cp862 862 csPC862LatinHebrew }
10814 { IBM863 cp863 863 csIBM863 }
10815 { IBM864 cp864 csIBM864 }
10816 { IBM865 cp865 865 csIBM865 }
10817 { IBM866 cp866 866 csIBM866 }
10818 { IBM868 CP868 cp-ar csIBM868 }
10819 { IBM869 cp869 869 cp-gr csIBM869 }
10820 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10821 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10822 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10823 { IBM891 cp891 csIBM891 }
10824 { IBM903 cp903 csIBM903 }
10825 { IBM904 cp904 904 csIBBM904 }
10826 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10827 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10828 { IBM1026 CP1026 csIBM1026 }
10829 { EBCDIC-AT-DE csIBMEBCDICATDE }
10830 { EBCDIC-AT-DE-A csEBCDICATDEA }
10831 { EBCDIC-CA-FR csEBCDICCAFR }
10832 { EBCDIC-DK-NO csEBCDICDKNO }
10833 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10834 { EBCDIC-FI-SE csEBCDICFISE }
10835 { EBCDIC-FI-SE-A csEBCDICFISEA }
10836 { EBCDIC-FR csEBCDICFR }
10837 { EBCDIC-IT csEBCDICIT }
10838 { EBCDIC-PT csEBCDICPT }
10839 { EBCDIC-ES csEBCDICES }
10840 { EBCDIC-ES-A csEBCDICESA }
10841 { EBCDIC-ES-S csEBCDICESS }
10842 { EBCDIC-UK csEBCDICUK }
10843 { EBCDIC-US csEBCDICUS }
10844 { UNKNOWN-8BIT csUnknown8BiT }
10845 { MNEMONIC csMnemonic }
10846 { MNEM csMnem }
10847 { VISCII csVISCII }
10848 { VIQR csVIQR }
10849 { KOI8-R csKOI8R }
10850 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10851 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10852 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10853 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10854 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10855 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10856 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10857 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10858 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10859 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10860 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10861 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10862 { IBM1047 IBM-1047 }
10863 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10864 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10865 { UNICODE-1-1 csUnicode11 }
10866 { CESU-8 csCESU-8 }
10867 { BOCU-1 csBOCU-1 }
10868 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10869 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10870 l8 }
10871 { ISO-8859-15 ISO_8859-15 Latin-9 }
10872 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10873 { GBK CP936 MS936 windows-936 }
10874 { JIS_Encoding csJISEncoding }
10875 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10876 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10877 EUC-JP }
10878 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10879 { ISO-10646-UCS-Basic csUnicodeASCII }
10880 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10881 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10882 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10883 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10884 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10885 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10886 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10887 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10888 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10889 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10890 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10891 { Ventura-US csVenturaUS }
10892 { Ventura-International csVenturaInternational }
10893 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10894 { PC8-Turkish csPC8Turkish }
10895 { IBM-Symbols csIBMSymbols }
10896 { IBM-Thai csIBMThai }
10897 { HP-Legal csHPLegal }
10898 { HP-Pi-font csHPPiFont }
10899 { HP-Math8 csHPMath8 }
10900 { Adobe-Symbol-Encoding csHPPSMath }
10901 { HP-DeskTop csHPDesktop }
10902 { Ventura-Math csVenturaMath }
10903 { Microsoft-Publishing csMicrosoftPublishing }
10904 { Windows-31J csWindows31J }
10905 { GB2312 csGB2312 }
10906 { Big5 csBig5 }
10907 }
10909 proc tcl_encoding {enc} {
10910 global encoding_aliases tcl_encoding_cache
10913 }
10914 set names [encoding names]
10919 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10922 }
10923 }
10928 # look through the aliases for one that tcl knows about
10934 }
10935 }
10937 }
10938 break
10939 }
10940 }
10941 set tclenc {}
10944 }
10947 }
10949 proc gitattr {path attr default} {
10950 global path_attr_cache
10953 } else {
10954 set r "unspecified"
10957 }
10959 }
10962 }
10964 }
10966 proc cache_gitattr {attr pathlist} {
10967 global path_attr_cache
10968 set newlist {}
10972 }
10973 }
10974 set lim 1000
10975 if {[tk windowingsystem] == "win32"} {
10976 # windows has a 32k limit on the arguments to a command...
10977 set lim 30
10978 }
10987 }
10989 }
10990 }
10991 }
10992 }
10993 }
10995 proc get_path_encoding {path} {
10996 global gui_encoding perfile_attrs
11002 }
11003 }
11005 }
11007 # First check that Tcl/Tk is recent enough
11008 if {[catch {package require Tk 8.4} err]} {
11009 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11010 Gitk requires at least Tcl/Tk 8.4."]
11011 exit 1
11012 }
11014 # defaults...
11015 set wrcomcmd "git diff-tree --stdin -p --pretty"
11017 set gitencoding {}
11018 catch {
11019 set gitencoding [exec git config --get i18n.commitencoding]
11020 }
11021 catch {
11022 set gitencoding [exec git config --get i18n.logoutputencoding]
11023 }
11025 set gitencoding "utf-8"
11026 }
11030 }
11032 set gui_encoding [encoding system]
11033 catch {
11034 set enc [exec git config --get gui.encoding]
11039 } else {
11041 }
11042 }
11043 }
11045 if {[tk windowingsystem] eq "aqua"} {
11046 set mainfont {{Lucida Grande} 9}
11047 set textfont {Monaco 9}
11048 set uifont {{Lucida Grande} 9 bold}
11049 } else {
11050 set mainfont {Helvetica 9}
11051 set textfont {Courier 9}
11052 set uifont {Helvetica 9 bold}
11053 }
11054 set tabstop 8
11055 set findmergefiles 0
11056 set maxgraphpct 50
11057 set maxwidth 16
11058 set revlistorder 0
11059 set fastdate 0
11060 set uparrowlen 5
11061 set downarrowlen 5
11062 set mingaplen 100
11063 set cmitmode "patch"
11064 set wrapcomment "none"
11065 set showneartags 1
11066 set hideremotes 0
11067 set maxrefs 20
11068 set maxlinelen 200
11069 set showlocalchanges 1
11070 set limitdiffs 1
11071 set datetimeformat "%Y-%m-%d %H:%M:%S"
11072 set autoselect 1
11073 set perfile_attrs 0
11075 if {[tk windowingsystem] eq "aqua"} {
11076 set extdifftool "opendiff"
11077 } else {
11078 set extdifftool "meld"
11079 }
11081 set colors {green red blue magenta darkgrey brown orange}
11082 set bgcolor white
11083 set fgcolor black
11084 set diffcolors {red "#00a000" blue}
11085 set diffcontext 3
11086 set ignorespace 0
11087 set selectbgcolor gray85
11088 set markbgcolor "#e0e0ff"
11090 set circlecolors {white blue gray blue blue}
11092 # button for popping up context menus
11093 if {[tk windowingsystem] eq "aqua"} {
11094 set ctxbut <Button-2>
11095 } else {
11096 set ctxbut <Button-3>
11097 }
11099 ## For msgcat loading, first locate the installation location.
11100 if { [info exists ::env(GITK_MSGSDIR)] } {
11101 ## Msgsdir was manually set in the environment.
11102 set gitk_msgsdir $::env(GITK_MSGSDIR)
11103 } else {
11104 ## Let's guess the prefix from argv0.
11108 unset gitk_prefix
11109 }
11111 ## Internationalization (i18n) through msgcat and gettext. See
11112 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11113 package require msgcat
11114 namespace import ::msgcat::mc
11115 ## And eventually load the actual message catalog
11118 catch {source ~/.gitk}
11120 font create optionfont -family sans-serif -size -12
11123 eval font create mainfont [fontflags mainfont]
11124 eval font create mainfontbold [fontflags mainfont 1]
11127 eval font create textfont [fontflags textfont]
11128 eval font create textfontbold [fontflags textfont 1]
11131 eval font create uifont [fontflags uifont]
11133 setoptions
11135 # check that we can find a .git directory somewhere...
11136 if {[catch {set gitdir [gitdir]}]} {
11137 show_error {} . [mc "Cannot find a git repository here."]
11138 exit 1
11139 }
11142 exit 1
11143 }
11145 set selecthead {}
11146 set selectheadid {}
11148 set revtreeargs {}
11149 set cmdline_files {}
11150 set i 0
11151 set revtreeargscmd {}
11154 "" { }
11155 "--" {
11157 break
11158 }
11159 "--select-commit=*" {
11161 }
11162 "--argscmd=*" {
11164 }
11165 default {
11167 }
11168 }
11169 incr i
11170 }
11173 set selecthead {}
11174 }
11177 # no -- on command line, but some arguments (other than --argscmd)
11178 if {[catch {
11183 # Unfortunately git rev-parse doesn't produce an error when
11184 # something is both a revision and a filename. To be consistent
11185 # with git log and git rev-list, check revtreeargs for filenames.
11188 show_error {} . [mc "Ambiguous argument '%s': both revision\
11190 exit 1
11191 }
11192 }
11193 } err]} {
11195 # so look for "fatal:".
11199 }
11201 exit 1
11202 }
11203 }
11205 set nullid "0000000000000000000000000000000000000000"
11206 set nullid2 "0000000000000000000000000000000000000001"
11207 set nullfile "/dev/null"
11210 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11212 set runq {}
11213 set history {}
11214 set historyindex 0
11215 set fh_serial 0
11216 set nhl_names {}
11217 set highlight_paths {}
11218 set findpattern {}
11219 set searchdirn -forwards
11220 set boldids {}
11221 set boldnameids {}
11222 set diffelide {0 0}
11223 set markingmatches 0
11224 set linkentercount 0
11225 set need_redisplay 0
11226 set nrows_drawn 0
11227 set firsttabstop 0
11229 set nextviewnum 1
11230 set curview 0
11231 set selectedview 0
11232 set selectedhlview [mc "None"]
11233 set highlight_related [mc "None"]
11234 set highlight_files {}
11235 set viewfiles(0) {}
11236 set viewperm(0) 0
11237 set viewargs(0) {}
11238 set viewargscmd(0) {}
11240 set selectedline {}
11241 set numcommits 0
11242 set loginstance 0
11243 set cmdlineok 0
11244 set stopped 0
11245 set stuffsaved 0
11246 set patchnum 0
11247 set lserial 0
11248 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11249 setcoords
11250 makewindow
11251 catch {
11252 image create photo gitlogo -width 16 -height 16
11254 image create photo gitlogominus -width 4 -height 2
11255 gitlogominus put #C00000 -to 0 0 4 2
11256 gitlogo copy gitlogominus -to 1 5
11257 gitlogo copy gitlogominus -to 6 5
11258 gitlogo copy gitlogominus -to 11 5
11259 image delete gitlogominus
11261 image create photo gitlogoplus -width 4 -height 4
11262 gitlogoplus put #008000 -to 1 0 3 4
11263 gitlogoplus put #008000 -to 0 1 4 3
11264 gitlogo copy gitlogoplus -to 1 9
11265 gitlogo copy gitlogoplus -to 6 9
11266 gitlogo copy gitlogoplus -to 11 9
11267 image delete gitlogoplus
11269 image create photo gitlogo32 -width 32 -height 32
11270 gitlogo32 copy gitlogo -zoom 2 2
11272 wm iconphoto . -default gitlogo gitlogo32
11273 }
11274 # wait for the window to become visible
11275 tkwait visibility .
11277 update
11278 readrefs
11281 # create a view for the files/dirs specified on the command line
11282 set curview 1
11283 set selectedview 1
11284 set nextviewnum 2
11285 set viewname(1) [mc "Command line"]
11289 set viewperm(1) 0
11290 set vdatemode(1) 0
11291 addviewmenu 1
11292 .bar.view entryconf [mca "Edit view..."] -state normal
11293 .bar.view entryconf [mca "Delete view"] -state normal
11294 }
11296 if {[info exists permviews]} {
11299 incr nextviewnum
11306 }
11307 }
11309 if {[tk windowingsystem] eq "win32"} {
11310 focus -force .
11311 }
11313 getcommits {}