| blob | d5f0a88d78784accc3c45bea4fd02f98428b09b7 |
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 uicolor 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 }
2573 }
2574 }
2577 file rename -force "~/.gitk-new" "~/.gitk"
2578 }
2579 set stuffsaved 1
2580 }
2582 proc resizeclistpanes {win w} {
2583 global oldwidth
2590 } else {
2595 set sash0 30
2596 }
2599 }
2604 }
2605 }
2606 }
2609 }
2611 }
2613 proc resizecdetpanes {win w} {
2614 global oldwidth
2619 } else {
2623 set sash0 45
2624 }
2627 }
2628 }
2630 }
2632 }
2634 proc allcanvs args {
2635 global canv canv2 canv3
2639 }
2641 proc bindall {event action} {
2642 global canv canv2 canv3
2646 }
2648 proc about {} {
2649 global uifont
2650 set w .about
2653 return
2654 }
2659 Gitk - a commit viewer for git
2661 Copyright © 2005-2008 Paul Mackerras
2663 Use and redistribute under the terms of the GNU General Public License"] \
2664 -justify center -aspect 400 -border 2 -bg white -relief groove
2671 }
2673 proc keys {} {
2674 set w .keys
2677 return
2678 }
2679 if {[tk windowingsystem] eq {aqua}} {
2680 set M1T Cmd
2681 } else {
2682 set M1T Ctrl
2683 }
2688 [mc "Gitk key bindings:"]
2691 [mc "<Home> Move to first commit"]
2692 [mc "<End> Move to last commit"]
2693 [mc "<Up>, p, i Move up one commit"]
2694 [mc "<Down>, n, k Move down one commit"]
2695 [mc "<Left>, z, j Go back in history list"]
2696 [mc "<Right>, x, l Go forward in history list"]
2697 [mc "<PageUp> Move up one page in commit list"]
2698 [mc "<PageDown> Move down one page in commit list"]
2705 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2706 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2707 [mc "<Delete>, b Scroll diff view up one page"]
2708 [mc "<Backspace> Scroll diff view up one page"]
2709 [mc "<Space> Scroll diff view down one page"]
2710 [mc "u Scroll diff view up 18 lines"]
2711 [mc "d Scroll diff view down 18 lines"]
2714 [mc "<Return> Move to next find hit"]
2715 [mc "/ Focus the search box"]
2716 [mc "? Move to previous find hit"]
2717 [mc "f Scroll diff view to next file"]
2724 [mc "<F5> Update"]
2725 " \
2726 -justify left -bg white -border 2 -relief groove
2734 }
2736 # Procedures for manipulating the file list window at the
2737 # bottom right of the overall window.
2739 proc treeview {w l openlevs} {
2740 global treecontents treediropen treeheight treeparent treeindex
2742 set ix 0
2743 set treeindex() 0
2744 set lev 0
2745 set prefix {}
2746 set prefixend -1
2747 set prefendstack {}
2748 set htstack {}
2749 set ht 0
2750 set treecontents() {}
2757 }
2764 incr lev -1
2765 }
2769 set ht 0
2781 set ht 1
2786 set str "\n"
2794 }
2795 incr lev
2796 }
2799 incr ht
2800 set str "\n"
2804 }
2806 }
2807 }
2815 }
2817 }
2819 proc linetoelt {l} {
2820 global treeheight treecontents
2822 set y 2
2823 set prefix {}
2824 while {1} {
2828 }
2829 set n 1
2834 incr y
2835 break
2836 }
2837 }
2839 }
2840 }
2841 }
2843 proc highlight_tree {y prefix} {
2844 global treeheight treecontents cflist
2850 }
2851 incr y
2854 }
2855 }
2857 }
2859 proc treeclosedir {w dir} {
2860 global treediropen treeheight treeparent treeindex
2872 }
2873 }
2875 proc treeopendir {w dir} {
2876 global treediropen treeheight treeparent treecontents treeindex
2883 set lev 0
2884 set str "\n"
2887 incr lev
2888 append str "\t"
2890 }
2905 } else {
2908 }
2909 }
2922 }
2924 }
2925 }
2927 proc treeclick {w x y} {
2928 global treediropen cmitmode ctext cflist cflist_top
2931 if {![info exists cflist_top]} return
2938 return
2939 }
2945 } else {
2947 }
2948 }
2950 proc setfilelist {id} {
2951 global treefilelist cflist jump_to_here
2958 }
2959 }
2960 }
2962 image create bitmap tri-rt -background black -foreground blue -data {
2963 #define tri-rt_width 13
2964 #define tri-rt_height 13
2965 static unsigned char tri-rt_bits[] = {
2966 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2967 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2968 0x00, 0x00};
2969 } -maskdata {
2970 #define tri-rt-mask_width 13
2971 #define tri-rt-mask_height 13
2972 static unsigned char tri-rt-mask_bits[] = {
2973 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2974 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2975 0x08, 0x00};
2976 }
2977 image create bitmap tri-dn -background black -foreground blue -data {
2978 #define tri-dn_width 13
2979 #define tri-dn_height 13
2980 static unsigned char tri-dn_bits[] = {
2981 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2982 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2983 0x00, 0x00};
2984 } -maskdata {
2985 #define tri-dn-mask_width 13
2986 #define tri-dn-mask_height 13
2987 static unsigned char tri-dn-mask_bits[] = {
2988 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2989 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2990 0x00, 0x00};
2991 }
2993 image create bitmap reficon-T -background black -foreground yellow -data {
2994 #define tagicon_width 13
2995 #define tagicon_height 9
2996 static unsigned char tagicon_bits[] = {
2997 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2998 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2999 } -maskdata {
3000 #define tagicon-mask_width 13
3001 #define tagicon-mask_height 9
3002 static unsigned char tagicon-mask_bits[] = {
3003 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3004 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3005 }
3006 set rectdata {
3007 #define headicon_width 13
3008 #define headicon_height 9
3009 static unsigned char headicon_bits[] = {
3010 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3011 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3012 }
3013 set rectmask {
3014 #define headicon-mask_width 13
3015 #define headicon-mask_height 9
3016 static unsigned char headicon-mask_bits[] = {
3017 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3018 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3019 }
3020 image create bitmap reficon-H -background black -foreground green \
3022 image create bitmap reficon-o -background black -foreground "#ddddff" \
3025 proc init_flist {first} {
3026 global cflist cflist_top difffilestart
3032 set cflist_top 1
3034 } else {
3035 catch {unset cflist_top}
3036 }
3038 set difffilestart {}
3039 }
3041 proc highlight_tag {f} {
3042 global highlight_paths
3046 return "bold"
3047 }
3048 }
3049 return {}
3050 }
3052 proc highlight_filelist {} {
3053 global cmitmode cflist
3062 }
3063 }
3064 } else {
3065 highlight_tree 2 {}
3066 }
3068 }
3070 proc unhighlight_filelist {} {
3071 global cflist
3076 }
3078 proc add_flist {fl} {
3079 global cflist
3085 }
3087 }
3089 proc sel_flist {w x y} {
3090 global ctext difffilestart cflist cflist_top cmitmode
3093 if {![info exists cflist_top]} return
3100 } else {
3102 }
3103 }
3105 proc pop_flist_menu {w X Y x y} {
3106 global ctext cflist cmitmode flist_menu flist_menu_file
3107 global treediffs diffids
3109 stopfinding
3115 } else {
3117 }
3119 set xdiffstate "normal"
3121 set xdiffstate "disabled"
3122 }
3123 # Disable "External diff" item in tree mode
3126 }
3128 proc find_ctext_fileinfo {line} {
3129 global ctext_file_names ctext_file_lines
3135 return {}
3136 } else {
3138 }
3139 }
3141 proc pop_diff_menu {w X Y x y} {
3142 global ctext diff_menu flist_menu_file
3143 global diff_menu_txtpos diff_menu_line
3144 global diff_menu_filebase
3148 # don't pop up the menu on hunk-separator or file-separator lines
3150 return
3151 }
3152 stopfinding
3158 }
3160 proc flist_hl {only} {
3161 global flist_menu_file findstring gdttype
3166 } else {
3168 }
3169 set gdttype [mc "touching paths:"]
3170 }
3172 proc gitknewtmpdir {} {
3173 global diffnum gitktmpdir gitdir
3175 if {![info exists gitktmpdir]} {
3177 [format ".gitk-tmp.%s" [pid]]]
3180 unset gitktmpdir
3181 return {}
3182 }
3183 set diffnum 0
3184 }
3185 incr diffnum
3189 return {}
3190 }
3192 }
3194 proc save_file_from_commit {filename output what} {
3195 global nullfile
3200 }
3202 return {}
3203 }
3205 }
3207 proc external_diff_get_one_file {diffid filename diffdir} {
3208 global nullid nullid2 nullfile
3209 global gitdir
3215 }
3217 }
3221 }
3225 }
3227 proc external_diff {} {
3228 global nullid nullid2
3229 global flist_menu_file
3230 global diffids
3231 global extdifftool
3234 # no reference commit given
3237 # diffing working copy with index
3240 # diffing index with HEAD
3241 set diffidfrom "HEAD"
3242 } else {
3243 # use first parent commit
3244 global parentlist selectedline
3246 }
3247 } else {
3250 }
3252 # make sure that several diffs wont collide
3253 set diffdir [gitknewtmpdir]
3256 # gather files to diff
3265 } else {
3268 }
3269 }
3270 }
3272 proc find_hunk_blamespec {base line} {
3273 global ctext
3275 # Find and parse the hunk header
3281 s_line old_specs osz osz1 new_line nsz]} {
3282 return
3283 }
3285 # base lines for the parents
3289 old_spec old_line osz]} {
3290 return
3291 }
3293 }
3295 # Now scan the lines to determine offset within the hunk
3297 set dline 0
3300 # Determine if the line is removed
3304 # Choose a parent index
3307 } else {
3311 } else {
3312 # blame the current commit
3313 set parent -1
3314 }
3315 }
3316 # then count other lines that belong to it
3319 # Determine if the line is removed
3324 incr dline
3325 }
3326 } else {
3328 incr dline
3329 }
3330 }
3331 }
3332 incr parent
3333 } else {
3334 set parent 0
3335 }
3339 }
3341 proc external_blame_diff {} {
3342 global currentid cmitmode
3343 global diff_menu_txtpos diff_menu_line
3344 global diff_menu_filebase flist_menu_file
3347 set parent_idx 0
3349 } else {
3354 } else {
3355 set parent_idx 0
3356 set line 0
3357 }
3358 }
3361 }
3364 # at stage 0 or 2
3365 proc index_sha1 {fname} {
3373 }
3374 }
3376 return {}
3377 }
3379 # Turn an absolute path into one relative to the current directory
3380 proc make_relative {f} {
3383 }
3385 set here [file split [pwd]]
3386 set ei 0
3387 set hi 0
3388 set res {}
3391 lappend res ".."
3392 } else {
3393 incr ei
3394 }
3395 incr hi
3396 }
3399 }
3401 proc external_blame {parent_idx {line {}}} {
3402 global flist_menu_file gitdir
3403 global nullid nullid2
3404 global parentlist selectedline currentid
3408 } else {
3410 }
3413 error_popup [mc "No such commit"]
3414 return
3415 }
3417 set cmdline [list git gui blame]
3420 }
3422 # Unfortunately it seems git gui blame doesn't like
3423 # being given an absolute path...
3428 }
3429 }
3431 proc show_line_source {} {
3432 global cmitmode currentid parents curview blamestuff blameinst
3433 global diff_menu_line diff_menu_filebase flist_menu_file
3434 global nullid nullid2 gitdir
3436 set from_index {}
3440 } else {
3446 return
3447 }
3448 incr pi -1
3451 # must be a merge in progress...
3452 if {[catch {
3453 # get the last line from .git/MERGE_HEAD
3457 } err]} {
3459 return
3460 }
3462 # need to do the blame from the index
3463 if {[catch {
3465 } err]} {
3467 return
3468 }
3469 } else {
3471 }
3472 } else {
3474 }
3476 }
3477 set blameargs {}
3480 }
3483 lappend blameargs --contents -
3484 } else {
3486 }
3488 if {[catch {
3490 } err]} {
3492 return
3493 }
3494 nowbusy blaming [mc "Searching"]
3500 }
3502 proc stopblaming {} {
3503 global blameinst
3505 if {[info exists blameinst]} {
3507 unset blameinst
3508 notbusy blaming
3509 }
3510 }
3512 proc read_line_source {fd inst} {
3513 global blamestuff curview commfd blameinst nullid nullid2
3517 }
3519 return 1
3520 }
3522 unset blameinst
3523 notbusy blaming
3527 return 0
3528 }
3530 set fname {}
3536 # look for "filename" line
3540 break
3541 }
3542 }
3543 }
3545 # all looks good, select it
3547 # blame uses all-zeroes to mean not committed,
3548 # which would mean a change in the index
3550 }
3553 } else {
3554 error_popup [mc "That line comes from commit %s, \
3556 }
3557 } else {
3558 puts "oops couldn't parse git blame output"
3559 }
3560 return 0
3561 }
3564 proc delete_at_eof {f dir} {
3569 }
3571 return 0
3572 }
3573 return 1
3574 }
3576 # Functions for adding and removing shell-type quoting
3578 proc shellquote {str} {
3581 }
3584 }
3587 }
3589 }
3591 proc shellarglist {l} {
3592 set str {}
3595 append str " "
3596 }
3598 }
3600 }
3602 proc shelldequote {str} {
3603 set ret {}
3604 set used -1
3605 while {1} {
3606 incr used
3610 break
3611 }
3617 }
3619 incr used
3623 error "unmatched single-quote"
3624 }
3627 continue
3628 }
3631 error "trailing backslash"
3632 }
3634 continue
3635 }
3636 # here ch == "\""
3637 while {1} {
3639 error "unmatched double-quote"
3640 }
3646 }
3648 incr used
3650 incr used
3651 }
3652 }
3654 }
3656 proc shellsplit {str} {
3657 set l {}
3658 while {1} {
3666 }
3668 }
3670 # Code to implement multiple views
3672 proc newview {ishighlight} {
3673 global nextviewnum newviewname newishighlight
3674 global revtreeargs viewargscmd newviewopts curview
3677 set top .gitkview
3680 return
3681 }
3687 }
3689 set known_view_options {
3690 {perm b . {} {mc "Remember this view"}}
3691 {reflabel l + {} {mc "References (space separated list):"}}
3692 {refs t15 .. {} {mc "Branches & tags:"}}
3693 {allrefs b *. "--all" {mc "All refs"}}
3694 {branches b . "--branches" {mc "All (local) branches"}}
3695 {tags b . "--tags" {mc "All tags"}}
3696 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3697 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3698 {author t15 .. "--author=*" {mc "Author:"}}
3699 {committer t15 . "--committer=*" {mc "Committer:"}}
3700 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3701 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3702 {changes_l l + {} {mc "Changes to Files:"}}
3703 {pickaxe_s r0 . {} {mc "Fixed String"}}
3704 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3705 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3706 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3707 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3708 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3709 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3710 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3711 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3712 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3713 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3714 {lright b . "--left-right" {mc "Mark branch sides"}}
3715 {first b . "--first-parent" {mc "Limit to first parent"}}
3716 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3717 {args t50 *. {} {mc "Additional arguments to git log:"}}
3718 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3719 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3720 }
3722 proc encode_view_opts {n} {
3723 global known_view_options newviewopts
3725 set rargs [list]
3735 }
3741 }
3742 } else {
3748 }
3749 }
3750 }
3753 }
3755 proc decode_view_opts {n view_args} {
3756 global known_view_options newviewopts
3761 # Checkboxes
3762 set val 0
3764 # Radiobuttons
3766 set val 0
3767 } else {
3768 # Text fields
3769 set val {}
3770 }
3772 }
3773 set oargs [list]
3774 set refargs [list]
3777 && ![info exists found(limit)]} {
3779 set found(limit) 1
3780 continue
3781 }
3782 catch { unset val }
3789 # Check buttons
3790 set val 1
3792 # Radio buttons
3795 } else {
3796 # Text input fields
3799 }
3802 break
3803 }
3804 if {[info exists val]} break
3805 }
3806 if {[info exists val]} continue
3809 } else {
3811 }
3812 }
3815 }
3817 proc edit_or_newview {} {
3818 global curview
3821 editview
3822 } else {
3823 newview 0
3824 }
3825 }
3827 proc editview {} {
3828 global curview
3829 global viewname viewperm newviewname newviewopts
3830 global viewargs viewargscmd
3835 return
3836 }
3842 }
3844 proc vieweditor {top n title} {
3845 global newviewname newviewopts viewfiles bgcolor
3846 global known_view_options
3852 # View name
3860 # View options
3862 set cexpand 0
3863 set cnt 0
3869 set lxpad 0
3873 incr cnt
3879 incr cnt
3883 } else {
3884 set lxpad 5
3885 }
3919 }
3922 }
3924 }
3925 }
3940 }
3942 proc doviewmenu {m first cmd op argv} {
3947 break
3948 }
3949 }
3950 }
3952 proc allviewmenus {n op args} {
3953 # global viewhlmenu
3957 }
3959 proc newviewok {top n {apply 0}} {
3960 global nextviewnum newviewperm newviewname newishighlight
3961 global viewname viewfiles viewperm selectedview curview
3962 global viewargs viewargscmd newviewopts viewhlmenu
3964 if {[catch {
3966 } err]} {
3968 return
3969 }
3970 set files {}
3975 }
3976 }
3978 # creating a new view
3979 incr nextviewnum
3988 } else {
3990 }
3991 } else {
3992 # editing an existing view
4000 }
4007 run reloadcommits
4008 }
4009 }
4010 }
4013 }
4015 proc delview {} {
4016 global curview viewperm hlview selectedhlview
4020 set selectedhlview [mc "None"]
4021 unset hlview
4022 }
4025 showview 0
4026 }
4028 proc addviewmenu {n} {
4029 global viewname viewhlmenu
4035 }
4037 proc showview {n} {
4038 global curview cached_commitrow ordertok
4039 global displayorder parentlist rowidlist rowisopt rowfinal
4040 global colormap rowtextx nextcolor canvxmax
4041 global numcommits viewcomplete
4042 global selectedline currentid canv canvy0
4043 global treediffs
4044 global pending_select mainheadid
4045 global commitidx
4046 global selectedview
4047 global hlview selectedhlview commitinterest
4050 set selid {}
4061 }
4062 } elseif {[info exists pending_select]} {
4064 unset pending_select
4065 }
4066 unselectline
4067 normalline
4068 catch {unset treediffs}
4069 clear_display
4071 unset hlview
4072 set selectedhlview [mc "None"]
4073 }
4074 catch {unset commitinterest}
4075 catch {unset cached_commitrow}
4076 catch {unset ordertok}
4083 run refill_reflist
4086 return
4087 }
4089 set displayorder {}
4090 set parentlist {}
4091 set rowidlist {}
4092 set rowisopt {}
4093 set rowfinal {}
4096 catch {unset colormap}
4097 catch {unset rowtextx}
4098 set nextcolor 0
4101 set row 0
4102 setcanvscroll
4103 set yf 0
4104 set row {}
4107 # try to get the selected row in the same position on the screen
4111 set ytop 0
4112 }
4114 }
4116 drawvisible
4121 } else {
4122 reset_pending_select {}
4126 } else {
4127 set row [first_real_row]
4130 }
4131 }
4132 }
4135 show_status [mc "Reading commits..."]
4136 }
4138 show_status [mc "No commits selected"]
4139 }
4140 }
4142 # Stuff relating to the highlighting facility
4144 proc ishighlighted {id} {
4145 global vhighlights fhighlights nhighlights rhighlights
4149 }
4152 }
4155 }
4158 }
4159 return 0
4160 }
4162 proc bolden {id font} {
4163 global canv linehtag currentid boldids need_redisplay markedid
4165 # need_redisplay = 1 means the display is stale and about to be redrawn
4172 -outline {{}} -tags secsel \
4175 }
4178 }
4179 }
4181 proc bolden_name {id font} {
4182 global canv2 linentag currentid boldnameids need_redisplay
4190 -outline {{}} -tags secsel \
4193 }
4194 }
4196 proc unbolden {} {
4197 global boldids
4199 set stillbold {}
4203 } else {
4205 }
4206 }
4208 }
4210 proc addvhighlight {n} {
4211 global hlview viewcomplete curview vhl_done commitidx
4213 if {[info exists hlview]} {
4214 delvhighlight
4215 }
4219 }
4222 drawvisible
4223 }
4224 }
4226 proc delvhighlight {} {
4227 global hlview vhighlights
4229 if {![info exists hlview]} return
4230 unset hlview
4231 catch {unset vhighlights}
4232 unbolden
4233 }
4235 proc vhighlightmore {} {
4236 global hlview vhl_done commitidx vhighlights curview
4239 set vr [visiblerows]
4249 }
4251 }
4252 }
4253 }
4255 return 0
4256 }
4258 proc askvhighlight {row id} {
4259 global hlview vhighlights iddrawn
4264 }
4266 } else {
4268 }
4269 }
4271 proc hfiles_change {} {
4272 global highlight_files filehighlight fhighlights fh_serial
4273 global highlight_paths
4275 if {[info exists filehighlight]} {
4276 # delete previous highlights
4278 unset filehighlight
4279 catch {unset fhighlights}
4280 unbolden
4281 unhighlight_filelist
4282 }
4283 set highlight_paths {}
4285 incr fh_serial
4288 }
4289 }
4291 proc gdttype_change {name ix op} {
4292 global gdttype highlight_files findstring findpattern
4294 stopfinding
4298 set highlight_files {}
4299 hfiles_change
4300 }
4301 findcom_change
4302 } else {
4304 set findpattern {}
4305 findcom_change
4306 }
4308 hfiles_change
4309 }
4310 drawvisible
4311 }
4312 # enable/disable findtype/findloc menus too
4313 }
4315 proc find_change {name ix op} {
4316 global gdttype findstring highlight_files
4318 stopfinding
4320 findcom_change
4321 } else {
4324 hfiles_change
4325 }
4326 }
4327 drawvisible
4328 }
4330 proc findcom_change args {
4331 global nhighlights boldnameids
4332 global findpattern findtype findstring gdttype
4334 stopfinding
4335 # delete previous highlights, if any
4338 }
4339 set boldnameids {}
4340 catch {unset nhighlights}
4341 unbolden
4342 unmarkmatches
4344 set findpattern {}
4347 } else {
4348 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4351 }
4352 }
4354 proc makepatterns {l} {
4355 set ret {}
4360 } else {
4363 }
4364 }
4366 }
4368 proc do_file_hl {serial} {
4369 global highlight_files filehighlight highlight_paths gdttype fhl_list
4374 highlight_filelist
4378 } else {
4379 # must be "containing:", i.e. we're searching commit info
4380 return
4381 }
4386 set fhl_list {}
4387 drawvisible
4388 flushhighlights
4389 }
4391 proc flushhighlights {} {
4392 global filehighlight fhl_list
4394 if {[info exists filehighlight]} {
4395 lappend fhl_list {}
4398 }
4399 }
4401 proc askfilehighlight {row id} {
4402 global filehighlight fhighlights fhl_list
4407 }
4409 proc readfhighlight {} {
4410 global filehighlight fhighlights curview iddrawn
4411 global fhl_list find_dirn
4413 if {![info exists filehighlight]} {
4414 return 0
4415 }
4416 set nr 0
4424 }
4430 }
4432 }
4434 # strange...
4435 puts "oops, git diff-tree died"
4437 unset filehighlight
4438 return 0
4439 }
4440 if {[info exists find_dirn]} {
4441 run findmore
4442 }
4443 return 1
4444 }
4446 proc doesmatch {f} {
4447 global findtype findpattern
4453 } else {
4455 }
4456 }
4458 proc askfindhighlight {row id} {
4459 global nhighlights commitinfo iddrawn
4460 global findloc
4461 global markingmatches
4465 }
4467 set isbold 0
4468 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4473 set isbold 2
4474 break
4475 }
4476 set isbold 1
4477 }
4478 }
4484 }
4485 }
4488 }
4489 }
4491 }
4493 proc markrowmatches {row id} {
4494 global canv canv2 linehtag linentag commitinfo findloc
4505 }
4506 }
4512 }
4513 }
4514 }
4516 proc vrel_change {name ix op} {
4517 global highlight_related
4519 rhighlight_none
4521 run drawvisible
4522 }
4523 }
4525 # prepare for testing whether commits are descendents or ancestors of a
4526 proc rhighlight_sel {a} {
4527 global descendent desc_todo ancestor anc_todo
4528 global highlight_related
4530 catch {unset descendent}
4532 catch {unset ancestor}
4535 rhighlight_none
4536 run drawvisible
4537 }
4538 }
4540 proc rhighlight_none {} {
4541 global rhighlights
4543 catch {unset rhighlights}
4544 unbolden
4545 }
4547 proc is_descendent {a} {
4548 global curview children descendent desc_todo
4553 set leftover {}
4554 set done 0
4559 continue
4560 }
4566 set done 1
4567 }
4568 }
4569 }
4572 return
4573 }
4574 }
4577 }
4579 proc is_ancestor {a} {
4580 global curview parents ancestor anc_todo
4585 set leftover {}
4586 set done 0
4591 continue
4592 }
4598 set done 1
4599 }
4600 }
4601 }
4604 return
4605 }
4606 }
4609 }
4611 proc askrelhighlight {row id} {
4612 global descendent highlight_related iddrawn rhighlights
4613 global selectedline ancestor
4616 set isbold 0
4621 }
4623 set isbold 1
4624 }
4629 }
4631 set isbold 1
4632 }
4633 }
4637 }
4638 }
4640 }
4642 # Graph layout functions
4644 proc shortids {ids} {
4645 set res {}
4651 } else {
4653 }
4654 }
4656 }
4658 proc ntimes {n o} {
4659 set ret {}
4664 }
4666 }
4668 }
4670 proc ordertoken {id} {
4671 global ordertok curview varcid varcstart varctok curview parents children
4672 global nullid nullid2
4676 }
4678 set todo {}
4679 while {1} {
4683 } else {
4685 }
4688 break
4689 }
4692 # it's a root
4694 break
4695 }
4698 } else {
4702 }
4704 }
4705 }
4710 }
4713 }
4715 # Work out where id should go in idlist so that order-token
4716 # values increase from left to right
4717 proc idcol {idlist id {i 0}} {
4720 set i 0
4721 }
4725 }
4727 incr i
4728 } else {
4732 }
4733 }
4735 }
4737 proc initlayout {} {
4738 global rowidlist rowisopt rowfinal displayorder parentlist
4739 global numcommits canvxmax canv
4740 global nextcolor
4741 global colormap rowtextx
4743 set numcommits 0
4744 set displayorder {}
4745 set parentlist {}
4746 set nextcolor 0
4747 set rowidlist {}
4748 set rowisopt {}
4749 set rowfinal {}
4751 catch {unset colormap}
4752 catch {unset rowtextx}
4753 setcanvscroll
4754 }
4756 proc setcanvscroll {} {
4757 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4758 global lastscrollset lastscrollrows
4764 set lastscrollset [clock clicks -milliseconds]
4766 }
4768 proc visiblerows {} {
4769 global canv numcommits linespc
4777 set r0 0
4778 }
4783 }
4785 }
4787 proc layoutmore {} {
4788 global commitidx viewcomplete curview
4789 global numcommits pending_select curview
4790 global lastscrollset lastscrollrows
4794 setcanvscroll
4795 }
4796 if {[info exists pending_select] &&
4798 update
4800 }
4801 drawvisible
4802 }
4804 # With path limiting, we mightn't get the actual HEAD commit,
4805 # so ask git rev-list what is the first ancestor of HEAD that
4806 # touches a file in the path limit.
4807 proc get_viewmainhead {view} {
4808 global viewmainheadid vfilelimit viewinstances mainheadid
4810 catch {
4818 }
4819 }
4822 proc getviewhead {fd inst view} {
4823 global viewmainheadid commfd curview viewinstances showlocalchanges
4825 set id {}
4828 return 1
4829 }
4832 }
4839 }
4841 doshowlocalchanges
4842 }
4843 return 0
4844 }
4846 proc doshowlocalchanges {} {
4847 global curview viewmainheadid
4851 dodiffindex
4852 } else {
4854 }
4855 }
4857 proc dohidelocalchanges {} {
4858 global nullid nullid2 lserial curview
4862 }
4865 }
4866 incr lserial
4867 }
4869 # spawn off a process to do git diff-index --cached HEAD
4870 proc dodiffindex {} {
4871 global lserial showlocalchanges vfilelimit curview
4872 global isworktree
4875 incr lserial
4876 set cmd "|git diff-index --cached HEAD"
4879 }
4884 }
4886 proc readdiffindex {fd serial inst} {
4887 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4888 global vfilelimit
4890 set isdiff 1
4893 return 1
4894 }
4895 set isdiff 0
4896 }
4897 # we only need to see one line and we don't really care what it says...
4901 return 0
4902 }
4904 # now see if there are any local changes not checked in to the index
4905 set cmd "|git diff-files"
4908 }
4915 # add the line for the changes in the index to the graph
4916 set hl [mc "Local changes checked in to index but not committed"]
4921 }
4926 }
4928 }
4929 return 0
4930 }
4932 proc readdifffiles {fd serial inst} {
4933 global viewmainheadid nullid nullid2 curview
4934 global commitinfo commitdata lserial
4936 set isdiff 1
4939 return 1
4940 }
4941 set isdiff 0
4942 }
4943 # we only need to see one line and we don't really care what it says...
4947 return 0
4948 }
4951 # add the line for the local diff to the graph
4952 set hl [mc "Local uncommitted changes, not checked in to index"]
4957 } else {
4959 }
4963 }
4964 return 0
4965 }
4967 proc nextuse {id row} {
4968 global curview children
4973 return -1
4974 }
4977 }
4978 }
4979 }
4982 }
4983 return -1
4984 }
4986 proc prevuse {id row} {
4987 global curview children
4989 set ret -1
4995 }
4996 }
4997 }
4999 }
5001 proc make_idlist {row} {
5002 global displayorder parentlist uparrowlen downarrowlen mingaplen
5003 global commitidx curview children
5007 set r 0
5008 }
5011 set ra 0
5012 }
5016 }
5018 set ids {}
5027 }
5028 }
5029 }
5037 }
5038 }
5039 }
5047 }
5048 }
5049 incr r
5055 }
5056 }
5057 }
5058 set idlist {}
5061 }
5063 }
5065 proc rowsequal {a b} {
5068 }
5071 }
5073 }
5075 proc makeupline {id row rend col} {
5076 global rowidlist uparrowlen downarrowlen mingaplen
5082 }
5085 }
5092 }
5093 }
5094 }
5096 proc layoutrows {row endrow} {
5097 global rowidlist rowisopt rowfinal displayorder
5098 global uparrowlen downarrowlen maxwidth mingaplen
5099 global children parentlist
5100 global commitidx viewcomplete curview
5103 set idlist {}
5109 }
5110 }
5112 }
5117 set final 1
5118 } else {
5126 # if not the first child, we have to insert a line going up
5129 }
5130 }
5131 }
5141 }
5142 }
5143 }
5150 }
5151 }
5161 }
5162 }
5170 }
5171 }
5172 }
5173 }
5174 }
5178 set final 0
5179 }
5183 lappend rowisopt 0
5189 }
5191 } else {
5198 }
5199 }
5201 }
5203 proc changedrow {row} {
5204 global displayorder iddrawn rowisopt need_redisplay
5213 }
5214 }
5215 }
5218 set need_redisplay 1
5219 }
5220 }
5222 proc insert_pad {row col npad} {
5223 global rowidlist
5232 }
5235 }
5237 proc optimize_rows {row col endrow} {
5238 global rowidlist rowisopt displayorder curview children
5241 set row 1
5242 }
5245 set haspad 0
5254 } else {
5255 set pprevidlist {}
5256 }
5257 set x0 -1
5258 set xm -1
5263 set haspad 1
5264 continue
5265 }
5269 set isarrow 0
5270 set z0 {}
5275 }
5276 }
5281 set isarrow 1
5282 }
5283 }
5286 set isarrow 1
5287 }
5288 # Looking at lines from this row to the previous row,
5289 # make them go straight up if they end in an arrow on
5290 # the previous row; otherwise make them go straight up
5291 # or at 45 degrees.
5293 # Line currently goes left too much;
5294 # insert pads in the previous row, then optimize it
5299 }
5307 }
5309 # Line currently goes right too much;
5310 # insert pads in this line
5316 set haspad 1
5317 }
5324 }
5325 }
5326 # avoid lines jigging left then immediately right
5329 incr x0
5332 }
5333 }
5335 # Find the first column that doesn't have a line going right
5341 # check if this is the link to the first child
5344 # it is, work out offset to child
5346 }
5347 }
5349 }
5350 # Insert a pad at that column as long as it has a line and
5351 # isn't the last column
5356 }
5357 }
5358 }
5359 }
5361 proc xc {row col} {
5362 global canvx0 linespc
5364 }
5366 proc yc {row} {
5367 global canvy0 linespc
5369 }
5371 proc linewidth {id} {
5372 global thickerline lthickness
5377 }
5379 }
5381 proc rowranges {id} {
5382 global curview children uparrowlen downarrowlen
5383 global rowidlist
5387 return {}
5388 }
5389 set ret {}
5394 if {![info exists prev]} {
5396 } else {
5398 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5399 }
5400 # see if the line extends the whole way from prevrow to row
5404 # it doesn't, see where it ends
5409 } else {
5412 incr r -1
5413 }
5415 # see where it starts up again
5420 } else {
5423 incr r
5424 }
5426 }
5427 }
5430 }
5433 }
5435 }
5437 proc drawlineseg {id row endrow arrowlow} {
5438 global rowidlist displayorder iddrawn linesegs
5439 global canv colormap linespc curview maxlinelen parentlist
5443 set arrowhigh 1
5444 while {1} {
5447 incr le -1
5448 break
5449 }
5453 set arrowhigh 0
5454 break
5455 }
5460 set arrowhigh 0
5461 }
5462 break
5463 }
5464 incr le
5465 }
5468 }
5470 set lines {}
5471 set i 0
5472 set joinhigh 0
5479 set joinhigh 1
5480 }
5481 break
5482 }
5483 incr i
5484 }
5485 }
5486 set joinlow 0
5491 set joinlow 1
5492 }
5493 }
5506 }
5507 } else {
5509 }
5517 set arrowlow 0
5518 }
5519 }
5527 }
5529 }
5532 # join parent line to first child
5543 } else {
5545 }
5553 }
5555 }
5557 } else {
5561 }
5569 } else {
5573 }
5575 }
5576 } else {
5582 }
5586 } else {
5587 # coalesce two pieces
5592 }
5596 }
5597 }
5601 }
5603 proc drawparentlinks {id row} {
5604 global rowidlist canv colormap curview parentlist
5605 global idpos linespc
5618 # rmx = right-most X coord used
5619 set rmx 0
5624 continue
5625 }
5629 }
5632 # drawlineseg will do this one for us
5633 continue
5634 }
5636 # should handle duplicated parents here...
5639 # if attaching to a vertical segment, draw a smaller
5640 # slant for visual distinctness
5644 } else {
5646 }
5648 # segment slants towards us already
5650 } else {
5655 }
5657 }
5658 } else {
5660 }
5665 }
5669 }
5670 }
5672 proc drawlines {id} {
5673 global canv
5676 }
5678 proc drawcmittext {id row col} {
5679 global linespc canv canv2 canv3 fgcolor curview
5680 global cmitlisted commitinfo rowidlist parentlist
5681 global rowtextx idpos idtags idheads idotherrefs
5682 global linehtag linentag linedtag selectedline
5683 global canvxmax boldids boldnameids fgcolor markedid
5684 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5686 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5689 set ofill red
5691 set ofill green
5693 set ofill yellow
5694 } else {
5696 }
5705 # triangle pointing left for left-side commits
5711 } else {
5712 # triangle pointing right for right-side commits
5718 }
5730 }
5731 }
5732 }
5739 }
5744 set font mainfont
5745 set nfont mainfont
5749 set font mainfontbold
5752 set nfont mainfontbold
5753 }
5754 }
5764 }
5767 }
5771 setcanvscroll
5772 }
5773 }
5775 proc drawcmitrow {row} {
5776 global displayorder rowidlist nrows_drawn
5777 global iddrawn markingmatches
5778 global commitinfo numcommits
5779 global filehighlight fhighlights findpattern nhighlights
5780 global hlview vhighlights
5781 global highlight_related rhighlights
5788 }
5791 }
5794 }
5797 }
5802 return
5803 }
5806 }
5810 incr nrows_drawn
5811 }
5814 }
5815 }
5817 proc drawcommits {row {endrow {}}} {
5818 global numcommits iddrawn displayorder curview need_redisplay
5819 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5822 set row 0
5823 }
5826 }
5829 }
5833 set rl1 0
5834 }
5837 set ro1 0
5838 }
5842 }
5847 }
5849 }
5850 }
5853 }
5856 clear_display
5857 }
5859 # make the lines join to already-drawn rows either side
5863 }
5868 }
5883 # see if this is the first child of any of its parents
5886 # make this line extend up to the child
5888 }
5889 }
5890 } else {
5892 }
5893 }
5894 }
5895 }
5897 proc undolayout {row} {
5898 global uparrowlen mingaplen downarrowlen
5899 global rowidlist rowisopt rowfinal need_redisplay
5903 set r 0
5904 }
5906 incr r -1
5910 set need_redisplay 1
5911 run drawvisible
5912 }
5913 }
5915 proc drawvisible {} {
5916 global canv linespc curview vrowmod selectedline targetrow targetid
5917 global need_redisplay cscroll numcommits
5927 if {[info exists targetid]} {
5931 # Fix up the scrollregion and change the scrolling position
5932 # now that our target row has moved.
5935 setcanvscroll
5943 set need_redisplay 1
5944 }
5945 } else {
5946 unset targetid
5947 }
5948 }
5954 }
5958 } elseif {[info exists targetid]} {
5960 }
5961 if {[info exists targetrow]} {
5964 }
5966 }
5968 }
5970 proc clear_display {} {
5971 global iddrawn linesegs need_redisplay nrows_drawn
5972 global vhighlights fhighlights nhighlights rhighlights
5973 global linehtag linentag linedtag boldids boldnameids
5975 allcanvs delete all
5976 catch {unset iddrawn}
5977 catch {unset linesegs}
5978 catch {unset linehtag}
5979 catch {unset linentag}
5980 catch {unset linedtag}
5981 set boldids {}
5982 set boldnameids {}
5983 catch {unset vhighlights}
5984 catch {unset fhighlights}
5985 catch {unset nhighlights}
5986 catch {unset rhighlights}
5987 set need_redisplay 0
5988 set nrows_drawn 0
5989 }
5991 proc findcrossings {id} {
5992 global rowidlist parentlist numcommits displayorder
5994 set cross {}
5995 set ccross {}
5999 }
6018 }
6019 }
6020 }
6021 }
6022 }
6024 }
6026 proc assigncolor {id} {
6027 global colormap colors nextcolor
6028 global parents children children curview
6034 } else {
6035 set kids {}
6036 }
6042 return
6043 }
6044 }
6045 set badcolors {}
6046 set origbad {}
6049 # delimiter between corner crossings and other crossings
6052 }
6056 }
6057 }
6060 }
6067 }
6072 }
6073 }
6074 }
6077 }
6078 }
6082 set nextcolor 0
6083 }
6085 }
6087 }
6089 proc bindline {t id} {
6090 global canv
6096 }
6098 proc drawtags {id x xt y1} {
6099 global idtags idheads idotherrefs mainhead
6100 global linespc lthickness
6101 global canv rowtextx curview fgcolor bgcolor ctxbut
6103 set marks {}
6104 set ntags 0
6105 set nheads 0
6109 }
6113 }
6116 }
6119 }
6124 set xvals {}
6125 set wvals {}
6126 set i -1
6128 incr i
6131 } else {
6133 }
6137 }
6144 set font mainfont
6145 if {[incr ntags -1] >= 0} {
6146 # draw a tag
6152 } else {
6153 # draw a head or other ref
6154 if {[incr nheads -1] >= 0} {
6155 set col green
6157 set font mainfontbold
6158 }
6159 } else {
6160 set col "#ddddff"
6161 }
6172 }
6173 }
6180 }
6181 }
6183 }
6185 proc xcoord {i level ln} {
6186 global canvx0 xspc1 xspc2
6193 }
6195 }
6197 proc show_status {msg} {
6198 global canv fgcolor
6200 clear_display
6203 }
6205 # Don't change the text pane cursor if it is currently the hand cursor,
6206 # showing that we are over a sha1 ID link.
6207 proc settextcursor {c} {
6208 global ctext curtextcursor
6212 }
6214 }
6216 proc nowbusy {what {name {}}} {
6217 global isbusy busyname statusw
6219 if {[array names isbusy] eq {}} {
6220 . config -cursor watch
6221 settextcursor watch
6222 }
6227 }
6228 }
6230 proc notbusy {what} {
6231 global isbusy maincursor textcursor busyname statusw
6233 catch {
6238 }
6239 }
6240 if {[array names isbusy] eq {}} {
6243 }
6244 }
6246 proc findmatches {f} {
6247 global findtype findstring
6250 } else {
6255 }
6256 set matches {}
6257 set i 0
6262 }
6263 }
6265 }
6267 proc dofind {{dirn 1} {wrap 1}} {
6268 global findstring findstartline findcurline selectedline numcommits
6269 global gdttype filehighlight fh_serial find_dirn findallowwrap
6271 if {[info exists find_dirn]} {
6273 stopfinding
6274 }
6275 focus .
6279 } else {
6281 }
6283 nowbusy finding [mc "Searching"]
6287 }
6290 run findmore
6291 }
6293 proc stopfinding {} {
6294 global find_dirn findcurline fprogcoord
6296 if {[info exists find_dirn]} {
6297 unset find_dirn
6298 unset findcurline
6299 notbusy finding
6300 set fprogcoord 0
6301 adjustprogress
6302 }
6303 stopblaming
6304 }
6306 proc findmore {} {
6307 global commitdata commitinfo numcommits findpattern findloc
6308 global findstartline findcurline findallowwrap
6309 global find_dirn gdttype fhighlights fprogcoord
6310 global curview varcorder vrownum varccommits vrowmod
6312 if {![info exists find_dirn]} {
6313 return 0
6314 }
6315 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6317 set moretodo 0
6319 incr l
6321 set l 0
6322 }
6325 } else {
6328 }
6329 } else {
6332 }
6333 incr l -1
6336 } else {
6337 set lim -1
6339 }
6340 }
6343 set n 500
6344 set moretodo 1
6345 }
6348 }
6349 set found 0
6350 set domore 1
6364 }
6366 # shouldn't happen unless git log doesn't give all the commits...
6369 continue
6370 }
6373 }
6378 set found 1
6379 break
6380 }
6381 }
6383 }
6384 } else {
6392 }
6397 }
6400 break
6401 }
6404 set domore 0
6406 }
6407 }
6408 }
6409 }
6411 unset findcurline
6412 unset find_dirn
6413 notbusy finding
6414 set fprogcoord 0
6415 adjustprogress
6418 } else {
6419 bell
6420 }
6421 return 0
6422 }
6424 flushhighlights
6425 } else {
6427 }
6431 }
6433 adjustprogress
6435 }
6437 proc findselectline {l} {
6438 global findloc commentend ctext findcurline markingmatches gdttype
6445 # highlight the matches in the comments
6452 }
6453 }
6454 drawvisible
6455 }
6457 # mark the bits of a headline or author that match a find string
6458 proc markmatches {canv l str tag matches font row} {
6459 global selectedline
6477 }
6478 }
6479 }
6481 proc unmarkmatches {} {
6482 global markingmatches
6484 allcanvs delete matches
6485 set markingmatches 0
6486 stopfinding
6487 }
6489 proc selcanvline {w x y} {
6490 global canv canvy0 ctext linespc
6491 global rowtextx
6498 set l 0
6499 }
6504 }
6505 unmarkmatches
6507 }
6509 proc commit_descriptor {p} {
6510 global commitinfo
6513 }
6514 set l "..."
6517 }
6519 }
6521 # append some text to the ctext widget, and make any SHA1 ID
6522 # that we know about be a clickable link.
6523 proc appendwithlinks {text tags} {
6524 global ctext linknum curview
6533 incr e
6537 incr linknum
6538 }
6539 }
6541 proc setlink {id lk} {
6542 global curview ctext pendinglinks
6544 set known 0
6549 set known 1
6551 }
6552 } else {
6554 }
6560 } else {
6563 }
6564 }
6566 proc appendshortlink {id {pre {}} {post {}}} {
6567 global ctext linknum
6574 incr linknum
6575 }
6577 proc makelink {id} {
6578 global pendinglinks
6583 }
6585 }
6587 proc linkcursor {w inc} {
6588 global linkentercount curtextcursor
6592 } else {
6595 set linkentercount 0
6596 }
6597 }
6598 }
6600 proc viewnextline {dir} {
6601 global canv linespc
6609 set newtop 0
6612 }
6614 }
6616 # add a list of tag or branch names at position pos
6617 # returns the number of names inserted
6618 proc appendrefs {pos ids var} {
6622 return 0
6623 }
6626 set tags {}
6630 }
6631 }
6634 } else {
6636 set sep {}
6640 incr linknum
6645 set sep ", "
6646 }
6647 }
6650 }
6652 # called when we have finished computing the nearby tags
6653 proc dispneartags {delay} {
6654 global selectedline currentid showneartags tagphase
6657 after cancel dispnexttag
6659 after 200 dispnexttag
6660 set tagphase -1
6661 } else {
6662 after idle dispnexttag
6663 set tagphase 0
6664 }
6665 }
6667 proc dispnexttag {} {
6668 global selectedline currentid showneartags tagphase ctext
6672 0 {
6676 }
6677 }
6678 1 {
6682 }
6683 }
6684 2 {
6689 # turn "Branch" into "Branches"
6693 }
6694 }
6695 }
6696 }
6697 if {[incr tagphase] <= 2} {
6698 after idle dispnexttag
6699 }
6700 }
6702 proc make_secsel {id} {
6703 global linehtag linentag linedtag canv canv2 canv3
6718 }
6720 proc make_idmark {id} {
6721 global linehtag canv fgcolor
6728 }
6730 proc selectline {l isnew {desired_loc {}}} {
6731 global canv ctext commitinfo selectedline
6732 global canvy0 linespc parents children curview
6733 global currentid sha1entry
6734 global commentend idtags linknum
6735 global mergemax numcommits pending_select
6736 global cmitmode showneartags allcommits
6737 global targetrow targetid lastscrollrows
6738 global autoselect jump_to_here
6740 catch {unset pending_select}
6742 normalline
6743 unsel_reflist
6744 stopfinding
6752 setcanvscroll
6753 }
6767 } else {
6771 }
6772 }
6776 } else {
6780 }
6781 }
6782 }
6785 set newtop 0
6786 }
6788 drawvisible
6789 }
6795 }
6802 }
6806 clear_ctext
6807 set linknum 0
6810 }
6820 }
6822 }
6824 set headers {}
6827 set np 0
6830 set tag mmax
6831 } else {
6833 }
6836 incr np
6837 }
6838 } else {
6841 }
6842 }
6846 }
6848 # make anything that looks like a SHA1 ID be a clickable link
6851 if {![info exists allcommits]} {
6852 getallcommits
6853 }
6864 dispneartags 1
6865 }
6870 }
6878 init_flist [mc "Comments"]
6883 } else {
6885 }
6886 }
6888 proc selfirstline {} {
6889 unmarkmatches
6890 selectline 0 1
6891 }
6893 proc sellastline {} {
6894 global numcommits
6895 unmarkmatches
6898 }
6900 proc selnextline {dir} {
6901 global selectedline
6902 focus .
6905 unmarkmatches
6907 }
6909 proc selnextpage {dir} {
6910 global canv linespc selectedline numcommits
6914 set lpp 1
6915 }
6917 drawvisible
6921 set l 0
6924 }
6925 unmarkmatches
6927 }
6929 proc unselectline {} {
6930 global selectedline currentid
6932 set selectedline {}
6933 catch {unset currentid}
6934 allcanvs delete secsel
6935 rhighlight_none
6936 }
6938 proc reselectline {} {
6939 global selectedline
6943 }
6944 }
6946 proc addtohistory {cmd} {
6947 global history historyindex curview
6952 return
6953 }
6957 } else {
6959 }
6960 incr historyindex
6962 .tf.bar.leftbut conf -state normal
6963 } else {
6964 .tf.bar.leftbut conf -state disabled
6965 }
6966 .tf.bar.rightbut conf -state disabled
6967 }
6969 proc godo {elt} {
6970 global curview
6976 }
6978 }
6980 proc goback {} {
6981 global history historyindex
6982 focus .
6985 incr historyindex -1
6987 .tf.bar.rightbut conf -state normal
6988 }
6990 .tf.bar.leftbut conf -state disabled
6991 }
6992 }
6994 proc goforw {} {
6995 global history historyindex
6996 focus .
7000 incr historyindex
7002 .tf.bar.leftbut conf -state normal
7003 }
7005 .tf.bar.rightbut conf -state disabled
7006 }
7007 }
7009 proc gettree {id} {
7010 global treefilelist treeidlist diffids diffmergeid treepending
7011 global nullid nullid2
7014 catch {unset diffmergeid}
7016 if {![info exists treepending]} {
7018 set cmd [list | git ls-files]
7020 set cmd [list | git ls-files --stage -t]
7021 } else {
7023 }
7025 return
7026 }
7032 }
7033 } else {
7035 }
7036 }
7038 proc gettreeline {gtf id} {
7039 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7041 set nl 0
7045 } else {
7053 }
7056 }
7059 }
7062 }
7064 unset treepending
7066 if {![info exists diffmergeid]} {
7068 }
7071 } else {
7073 }
7074 return 0
7075 }
7077 proc showfile {f} {
7078 global treefilelist treeidlist diffids nullid nullid2
7079 global ctext_file_names ctext_file_lines
7080 global ctext commentend
7085 return
7086 }
7090 return
7091 }
7092 } else {
7096 return
7097 }
7098 }
7109 settabs 0
7110 }
7112 proc getblobline {bf id} {
7113 global diffids cmitmode ctext
7117 return 0
7118 }
7120 set nl 0
7123 }
7125 global jump_to_here ctext_file_names commentend
7127 # delete last newline
7135 }
7136 return 0
7137 }
7140 }
7142 proc mark_ctext_line {lnum} {
7143 global ctext markbgcolor
7149 }
7151 proc mergediff {id} {
7152 global diffmergeid
7153 global diffids treediffs
7154 global parents curview
7162 }
7164 proc startdiff {ids} {
7165 global treediffs diffids treepending diffmergeid nullid nullid2
7167 settabs 1
7169 catch {unset diffmergeid}
7173 if {![info exists treepending]} {
7175 }
7176 } else {
7178 }
7179 }
7181 proc path_filter {filter name} {
7186 return 1
7187 }
7188 } else {
7192 return 1
7193 }
7194 }
7195 }
7196 return 0
7197 }
7199 proc addtocflist {ids} {
7200 global treediffs
7204 }
7206 proc diffcmd {ids flags} {
7207 global nullid nullid2
7213 # comparing working directory with some specific revision
7217 } else {
7219 }
7220 } else {
7221 # comparing working directory with index
7224 lappend cmd -R
7225 }
7226 }
7230 # comparing index with specific revision
7233 } else {
7235 }
7236 } else {
7237 # comparing index with HEAD
7238 lappend cmd HEAD
7239 }
7240 } else {
7242 }
7244 }
7246 proc gettreediffs {ids} {
7247 global treediff treepending
7252 set treediff {}
7255 }
7257 proc gettreediffline {gdtf ids} {
7258 global treediff treediffs treepending diffids diffmergeid
7259 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7261 set nr 0
7262 set sublist {}
7263 set max 1000
7265 # cache_gitattr is slow, and even slower on win32 where we
7266 # have to invoke it for only about 30 paths at a time
7267 set max 500
7268 if {[tk windowingsystem] == "win32"} {
7269 set max 120
7270 }
7271 }
7278 }
7283 }
7284 }
7285 }
7288 }
7291 }
7294 set flist {}
7298 }
7299 }
7301 } else {
7303 }
7304 unset treepending
7308 if {![info exists diffmergeid]} {
7310 }
7311 } else {
7313 }
7314 return 0
7315 }
7317 # empty string or positive integer
7318 proc diffcontextvalidate {v} {
7320 }
7322 proc diffcontextchange {n1 n2 op} {
7323 global diffcontextstring diffcontext
7328 reselectline
7329 }
7330 }
7331 }
7333 proc changeignorespace {} {
7334 reselectline
7335 }
7337 proc getblobdiffs {ids} {
7338 global blobdifffd diffids env
7339 global diffinhdr treediffs
7340 global diffcontext
7341 global ignorespace
7342 global limitdiffs vfilelimit curview
7343 global diffencoding targetline diffnparents
7344 global git_version
7346 set textconv {}
7348 set textconv "--textconv"
7349 }
7350 set submodule {}
7352 set submodule "--submodule"
7353 }
7356 append cmd " -w"
7357 }
7360 }
7363 return
7364 }
7365 set targetline {}
7366 set diffnparents 0
7367 set diffinhdr 0
7368 set diffencoding [get_path_encoding {}]
7372 }
7374 proc setinlist {var i val} {
7379 }
7382 } else {
7384 }
7385 }
7387 proc makediffhdr {fname ids} {
7388 global ctext curdiffstart treediffs diffencoding
7389 global ctext_file_names jump_to_here targetline diffline
7396 }
7401 set targetline {}
7404 }
7405 set diffline 0
7406 }
7408 proc getblobdiffline {bdf ids} {
7409 global diffids blobdifffd ctext curdiffstart
7410 global diffnexthead diffnextnote difffilestart
7411 global ctext_file_names ctext_file_lines
7412 global diffinhdr treediffs mergemax diffnparents
7413 global diffencoding jump_to_here targetline diffline
7415 set nr 0
7420 return 0
7421 }
7426 continue
7427 }
7428 # start of a new file
7429 set diffinhdr 1
7432 lappend ctext_file_names ""
7437 # start of a new file in a merge diff
7442 }
7444 } else {
7446 # If the name hasn't changed the length will be odd,
7447 # the middle char will be a space, and the two bits either
7448 # side will be a/name and b/name, or "a/name" and "b/name".
7449 # If the name has changed we'll get "rename from" and
7450 # "rename to" or "copy from" and "copy to" lines following
7451 # this, and we'll use them to get the filenames.
7452 # This complexity is necessary because spaces in the
7453 # filename(s) don't get escaped.
7459 continue
7460 }
7461 # unescape if quoted and chop off the a/ from the front
7464 } else {
7466 }
7467 }
7480 }
7488 }
7490 set diffinhdr 0
7493 # start of a new submodule
7496 }
7498 lappend ctext_file_names ""
7512 }
7517 }
7523 }
7526 # do nothing
7527 continue
7529 set diffinhdr 0
7530 continue
7531 }
7534 } else {
7535 set line [string map {\x1A ^Z} \
7537 # parse the prefix - one ' ', '-' or '+' for each parent
7541 # prefix only has " ", "-" and "+" in it: normal diff line
7546 set num "max"
7547 }
7549 } else {
7550 set tags {}
7552 # added line
7558 set num "max"
7559 }
7561 }
7562 }
7563 }
7567 set targetline {}
7568 } else {
7569 incr diffline
7570 }
7571 }
7573 }
7574 } else {
7575 # "\ No newline at end of file",
7576 # or something else we don't recognize
7578 }
7579 }
7580 }
7581 if {[info exists seehere]} {
7583 }
7587 return 0
7588 }
7590 }
7592 proc changediffdisp {} {
7593 global ctext diffelide
7597 }
7599 proc highlightfile {loc cline} {
7600 global ctext cflist cflist_top
7607 }
7609 proc prevfile {} {
7610 global difffilestart ctext cmitmode
7613 set prev 0.0
7614 set prevline 1
7619 return
7620 }
7622 incr prevline
7623 }
7625 }
7627 proc nextfile {} {
7628 global difffilestart ctext cmitmode
7632 set line 1
7634 incr line
7637 return
7638 }
7639 }
7640 }
7642 proc clear_ctext {{first 1.0}} {
7643 global ctext smarktop smarkbot
7644 global ctext_file_names ctext_file_lines
7645 global pendinglinks
7650 }
7653 }
7656 catch {unset pendinglinks}
7657 }
7658 set ctext_file_names {}
7659 set ctext_file_lines {}
7660 }
7662 proc settabs {{firstab {}}} {
7663 global firsttabstop tabstop ctext have_tk85
7667 }
7668 set w [font measure textfont "0"]
7674 } else {
7676 }
7677 }
7679 proc incrsearch {name ix op} {
7680 global ctext searchstring searchdirn
7684 # no anchor set, use start of selection, or of visible area
7690 } else {
7692 }
7693 }
7698 }
7699 searchmarkvisible 1
7700 }
7701 }
7703 proc dosearch {} {
7704 global sstring ctext searchstring searchdirn
7708 set searchdirn -forwards
7714 set start "@0,0"
7715 }
7719 bell
7720 return
7721 }
7726 }
7727 }
7729 proc dosearchback {} {
7730 global sstring ctext searchstring searchdirn
7734 set searchdirn -backwards
7741 }
7745 bell
7746 return
7747 }
7752 }
7753 }
7755 proc searchmark {first last} {
7756 global ctext searchstring
7759 while {1} {
7764 }
7765 }
7767 proc searchmarkvisible {doall} {
7768 global ctext smarktop smarkbot
7773 # no overlap with previous
7777 } else {
7781 }
7785 }
7786 }
7787 }
7789 proc scrolltext {f0 f1} {
7790 global searchstring
7794 searchmarkvisible 0
7795 }
7796 }
7798 proc setcoords {} {
7799 global linespc charspc canvx0 canvy0
7800 global xspc1 xspc2 lthickness
7802 set linespc [font metrics mainfont -linespace]
7803 set charspc [font measure mainfont "m"]
7809 }
7811 proc redisplay {} {
7812 global canv
7813 global selectedline
7818 clear_display
7819 setcanvscroll
7821 drawvisible
7825 }
7826 }
7828 proc parsefont {f n} {
7829 global fontattr
7834 set s 10
7837 }
7843 "normal" -
7845 "roman" -
7847 }
7848 }
7849 }
7851 proc fontflags {f {isbold 0}} {
7852 global fontattr
7857 }
7859 proc fontname {f} {
7860 global fontattr
7864 lappend n "bold"
7865 }
7867 lappend n "italic"
7868 }
7870 }
7872 proc incrfont {inc} {
7873 global mainfont textfont ctext canv cflist showrefstop
7874 global stopped entries fontattr
7876 unmarkmatches
7880 set s 1
7881 }
7885 set mainfont [fontname mainfont]
7889 set s 1
7890 }
7894 set textfont [fontname textfont]
7895 setcoords
7896 settabs
7897 redisplay
7898 }
7900 proc clearsha1 {} {
7901 global sha1entry sha1string
7904 }
7905 }
7907 proc sha1change {n1 n2 op} {
7908 global sha1string currentid sha1but
7911 set state disabled
7912 } else {
7913 set state normal
7914 }
7918 } else {
7920 }
7921 }
7923 proc gotocommit {} {
7924 global sha1string tagids headids curview varcid
7932 } else {
7939 return
7940 }
7942 }
7943 } else {
7946 return
7947 }
7948 }
7949 }
7952 return
7953 }
7956 } else {
7958 }
7960 }
7962 proc lineenter {x y id} {
7963 global hoverx hovery hoverid hovertimer
7964 global commitinfo canv
7970 if {[info exists hovertimer]} {
7972 }
7973 set hovertimer [after 500 linehover]
7975 }
7977 proc linemotion {x y id} {
7978 global hoverx hovery hoverid hovertimer
7983 if {[info exists hovertimer]} {
7985 }
7986 set hovertimer [after 500 linehover]
7987 }
7988 }
7990 proc lineleave {id} {
7991 global hoverid hovertimer canv
7995 if {[info exists hovertimer]} {
7997 unset hovertimer
7998 }
7999 unset hoverid
8000 }
8001 }
8003 proc linehover {} {
8004 global hoverx hovery hoverid hovertimer
8005 global canv linespc lthickness
8006 global commitinfo
8019 -fill \#ffff80 -outline black -width 1 -tags hover]
8022 -font mainfont]
8024 }
8026 proc clickisonarrow {id y} {
8027 global lthickness
8036 }
8037 }
8038 return {}
8039 }
8041 proc arrowjump {id n y} {
8042 global canv
8044 # 1 <-> 2, 3 <-> 4, etc...
8054 set yfrac 0
8055 }
8057 }
8059 proc lineclick {x y id isnew} {
8060 global ctext commitinfo children canv thickerline curview
8063 unmarkmatches
8064 unselectline
8065 normalline
8067 # draw this line thicker than normal
8075 }
8079 return
8080 }
8084 }
8085 # fill the details pane with info about this line
8087 clear_ctext
8088 settabs 0
8100 set i 0
8102 incr i
8112 }
8113 }
8115 init_flist {}
8116 }
8118 proc normalline {} {
8119 global thickerline
8120 if {[info exists thickerline]} {
8122 unset thickerline
8124 }
8125 }
8127 proc selbyid {id} {
8128 global curview
8131 }
8132 }
8134 proc mstime {} {
8135 global startmstime
8136 if {![info exists startmstime]} {
8137 set startmstime [clock clicks -milliseconds]
8138 }
8140 }
8142 proc rowmenu {x y id} {
8143 global rowctxmenu selectedline rowmenuid curview
8144 global nullid nullid2 fakerowmenu mainhead markedid
8146 stopfinding
8149 set state disabled
8150 } else {
8151 set state normal
8152 }
8157 } else {
8159 }
8164 } else {
8168 }
8169 } else {
8171 }
8176 }
8178 proc markhere {} {
8179 global rowmenuid markedid canv
8183 }
8185 proc gotomark {} {
8186 global markedid
8188 if {[info exists markedid]} {
8190 }
8191 }
8193 proc replace_by_kids {l r} {
8194 global curview children
8200 }
8202 }
8204 proc find_common_desc {} {
8205 global markedid rowmenuid curview children
8207 if {![info exists markedid]} return
8210 #set t1 [clock clicks -milliseconds]
8213 while 1 {
8219 break
8220 }
8223 } else {
8225 }
8226 }
8227 #set t2 [clock clicks -milliseconds]
8229 }
8231 proc compare_commits {} {
8232 global markedid rowmenuid curview children
8234 if {![info exists markedid]} return
8238 }
8240 proc getpatchid {id} {
8241 global patchids
8245 # trim off the initial "|"
8247 if {[catch {
8250 }]} {
8252 }
8253 }
8255 }
8257 proc do_cmp_commits {a b} {
8258 global ctext curview parents children patchids commitinfo
8261 clear_ctext
8262 init_flist {}
8264 set skipa 0
8265 set skipb 0
8268 set skipa 1
8269 } else {
8271 }
8274 set skipb 1
8275 } else {
8277 }
8283 [mc " - stopping\n"]
8284 break
8285 }
8288 [mc " - stopping\n"]
8289 break
8290 }
8295 } else {
8299 }
8300 set skipa 1
8301 set skipb 1
8302 } else {
8309 update
8311 return
8312 }
8313 }
8318 [mc " has %s children - stopping\n" \
8320 break
8321 }
8323 }
8327 [mc " has %s children - stopping\n" \
8329 break
8330 }
8332 }
8333 }
8335 }
8337 proc diffcommits {a b} {
8338 global diffcontext diffids blobdifffd diffinhdr
8340 set tmpdir [gitknewtmpdir]
8343 if {[catch {
8346 } err]} {
8348 return
8349 }
8350 if {[catch {
8352 } err]} {
8354 return
8355 }
8358 set diffinhdr 0
8360 }
8362 proc diffvssel {dirn} {
8363 global rowmenuid selectedline
8369 } else {
8372 }
8375 }
8377 proc doseldiff {oldid newid} {
8378 global ctext
8379 global commitinfo
8382 clear_ctext
8383 init_flist [mc "Top"]
8398 }
8400 proc mkpatch {} {
8401 global rowmenuid currentid commitinfo patchtop patchnum
8403 if {![info exists currentid]} return
8408 set top .patch
8438 incr patchnum
8450 }
8452 proc mkpatchrev {} {
8453 global patchtop
8459 foreach e [list fromsha1 fromhead tosha1 tohead] \
8465 }
8466 }
8468 proc mkpatchgo {} {
8469 global patchtop nullid nullid2
8475 # trim off the initial "|"
8480 }
8482 unset patchtop
8483 }
8485 proc mkpatchcan {} {
8486 global patchtop
8489 unset patchtop
8490 }
8492 proc mktag {} {
8493 global rowmenuid mktagtop commitinfo
8495 set top .maketag
8524 }
8526 proc domktag {} {
8527 global mktagtop env tagids idtags
8533 return 0
8534 }
8537 return 0
8538 }
8539 if {[catch {
8541 } err]} {
8543 return 0
8544 }
8550 dispneartags 0
8551 run refill_reflist
8552 return 1
8553 }
8555 proc redrawtags {id} {
8556 global canv linehtag idpos currentid curview cmitlisted markedid
8557 global canvxmax iddrawn circleitem mainheadid circlecolors
8563 set ofill yellow
8564 } else {
8566 }
8576 setcanvscroll
8577 }
8580 }
8583 }
8584 }
8586 proc mktagcan {} {
8587 global mktagtop
8590 unset mktagtop
8591 }
8593 proc mktaggo {} {
8594 if {![domktag]} return
8595 mktagcan
8596 }
8598 proc writecommit {} {
8599 global rowmenuid wrcomtop commitinfo wrcomcmd
8601 set top .writecommit
8634 }
8636 proc wrcomgo {} {
8637 global wrcomtop
8644 }
8646 unset wrcomtop
8647 }
8649 proc wrcomcan {} {
8650 global wrcomtop
8653 unset wrcomtop
8654 }
8656 proc mkbranch {} {
8657 global rowmenuid mkbrtop
8659 set top .makebranch
8683 }
8685 proc mkbrgo {top} {
8686 global headids idheads
8690 set cmdargs {}
8691 set old_id {}
8694 return
8695 }
8697 if {![confirm_popup [mc \
8699 return
8700 }
8702 lappend cmdargs -f
8703 }
8706 nowbusy newbranch
8707 update
8708 if {[catch {
8710 } err]} {
8711 notbusy newbranch
8713 } else {
8714 notbusy newbranch
8720 } else {
8725 }
8726 dispneartags 0
8727 run refill_reflist
8728 }
8729 }
8731 proc exec_citool {tool_args {baseid {}}} {
8732 global commitinfo env
8734 set save_env [array get env GIT_AUTHOR_*]
8739 }
8742 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8748 }
8749 }
8753 array unset env GIT_AUTHOR_*
8755 }
8757 proc cherrypick {} {
8758 global rowmenuid curview
8759 global mainhead mainheadid
8761 set oldhead [exec git rev-parse HEAD]
8764 set ok [confirm_popup [mc "Commit %s is already\
8765 included in branch %s -- really re-apply it?" \
8768 }
8769 nowbusy cherrypick [mc "Cherry-picking"]
8770 update
8771 # Unfortunately git-cherry-pick writes stuff to stderr even when
8772 # no error occurs, and exec takes that as an indication of error...
8774 notbusy cherrypick
8775 if {[regexp -line \
8776 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8778 error_popup [mc "Cherry-pick failed because of local changes\
8779 to file '%s'.\nPlease commit, reset or stash\
8781 } elseif {[regexp -line \
8782 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8784 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8785 conflict.\nDo you wish to run git citool to\
8786 resolve it?"]]} {
8787 # Force citool to read MERGE_MSG
8788 file delete [file join [gitdir] "GITGUI_MSG"]
8790 }
8791 } else {
8793 }
8794 run updatecommits
8795 return
8796 }
8797 set newhead [exec git rev-parse HEAD]
8799 notbusy cherrypick
8800 error_popup [mc "No changes committed"]
8801 return
8802 }
8805 # XXX this isn't right if we have a path limit...
8810 }
8815 }
8816 notbusy cherrypick
8817 }
8819 proc resethead {} {
8820 global mainhead rowmenuid confirm_ok resettype
8822 set confirm_ok 0
8823 set w ".confirmreset"
8829 -justify center -aspect 1000
8834 set resettype mixed
8836 -text [mc "Soft: Leave working tree and index untouched"]
8839 -text [mc "Mixed: Leave working tree untouched, reset index"]
8842 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8853 if {[catch {set fd [open \
8856 } else {
8857 dohidelocalchanges
8859 nowbusy reset [mc "Resetting"]
8861 }
8862 }
8864 proc readresetstat {fd} {
8865 global mainhead mainheadid showlocalchanges rprogcoord
8870 adjustprogress
8871 }
8872 return 1
8873 }
8874 set rprogcoord 0
8875 adjustprogress
8876 notbusy reset
8879 }
8881 set newhead [exec git rev-parse HEAD]
8888 }
8890 doshowlocalchanges
8891 }
8892 return 0
8893 }
8895 # context menu for a head
8896 proc headmenu {x y id head} {
8897 global headmenuid headmenuhead headctxmenu mainhead
8899 stopfinding
8902 set state normal
8904 set state disabled
8905 }
8907 set state disabled
8908 }
8912 }
8914 proc cobranch {} {
8915 global headmenuid headmenuhead headids
8916 global showlocalchanges
8918 # check the tree is clean first??
8919 nowbusy checkout [mc "Checking out"]
8920 update
8921 dohidelocalchanges
8922 if {[catch {
8924 } err]} {
8925 notbusy checkout
8928 dodiffindex
8929 }
8930 } else {
8932 }
8933 }
8935 proc readcheckoutstat {fd newhead newheadid} {
8936 global mainhead mainheadid headids showlocalchanges progresscoords
8937 global viewmainheadid curview
8942 adjustprogress
8943 }
8944 return 1
8945 }
8946 set progresscoords {0 0}
8947 adjustprogress
8948 notbusy checkout
8951 }
8960 dodiffindex
8961 }
8962 }
8964 proc rmbranch {} {
8965 global headmenuid headmenuhead mainhead
8966 global idheads
8970 # this check shouldn't be needed any more...
8972 error_popup [mc "Cannot delete the currently checked-out branch"]
8973 return
8974 }
8977 # the stuff on this branch isn't on any other branch
8978 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8980 }
8981 nowbusy rmbranch
8982 update
8984 notbusy rmbranch
8986 return
8987 }
8991 notbusy rmbranch
8992 dispneartags 0
8993 run refill_reflist
8994 }
8996 # Display a list of tags and heads
8997 proc showrefs {} {
8998 global showrefstop bgcolor fgcolor selectbgcolor
8999 global bglist fglist reflistfilter reflist maincursor
9001 set top .showrefs
9005 refill_reflist
9006 return
9007 }
9015 -spacing1 1 -spacing3 1 -state disabled
9026 set reflistfilter "*"
9027 trace add variable reflistfilter write reflistfilter_change
9039 set reflist {}
9040 refill_reflist
9041 }
9043 proc sel_reflist {w x y} {
9044 global showrefstop reflist headids tagids otherrefids
9054 }
9056 }
9058 proc unsel_reflist {} {
9059 global showrefstop
9063 }
9065 proc reflistfilter_change {n1 n2 op} {
9066 global reflistfilter
9068 after cancel refill_reflist
9069 after 200 refill_reflist
9070 }
9072 proc refill_reflist {} {
9073 global reflist reflistfilter showrefstop headids tagids otherrefids
9074 global curview
9077 set refs {}
9078 foreach n [array names headids] {
9082 } else {
9084 }
9085 }
9086 }
9087 foreach n [array names tagids] {
9091 } else {
9093 }
9094 }
9095 }
9096 foreach n [array names otherrefids] {
9100 } else {
9102 }
9103 }
9104 }
9112 set i 0
9113 set j 0
9122 }
9123 } else {
9124 set cmp -1
9125 }
9126 } else {
9127 set cmp 1
9128 }
9130 -1 {
9132 incr i
9133 }
9134 0 {
9135 incr i
9136 incr j
9137 }
9138 1 {
9143 incr j
9144 }
9145 }
9146 }
9148 # delete last newline
9151 }
9153 # Stuff for finding nearby tags
9154 proc getallcommits {} {
9155 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9156 global idheads idtags idotherrefs allparents tagobjid
9158 if {![info exists allcommits]} {
9159 set nextarc 0
9160 set allcommits 0
9161 set seeds {}
9162 set allcwait 0
9163 set cachedarcs 0
9164 set allccache [file join [gitdir] "gitk.cache"]
9165 if {![catch {
9167 set allcwait 1
9169 }]} return
9170 }
9173 return
9174 }
9175 set cmd [list | git rev-list --parents]
9178 set ids "--all"
9179 } else {
9180 set refs [concat [array names idheads] [array names idtags] \
9181 [array names idotherrefs]]
9182 set ids {}
9183 set tagobjs {}
9184 foreach name [array names tagobjid] {
9186 }
9191 }
9192 }
9196 }
9197 }
9198 }
9202 incr allcommits
9203 nowbusy allcommits
9205 } else {
9206 dispneartags 0
9207 }
9208 }
9210 # Since most commits have 1 parent and 1 child, we group strings of
9211 # such commits into "arcs" joining branch/merge points (BMPs), which
9212 # are commits that either don't have 1 parent or don't have 1 child.
9213 #
9214 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9215 # arcout(id) - outgoing arcs for BMP
9216 # arcids(a) - list of IDs on arc including end but not start
9217 # arcstart(a) - BMP ID at start of arc
9218 # arcend(a) - BMP ID at end of arc
9219 # growing(a) - arc a is still growing
9220 # arctags(a) - IDs out of arcids (excluding end) that have tags
9221 # archeads(a) - IDs out of arcids (excluding end) that have heads
9222 # The start of an arc is at the descendent end, so "incoming" means
9223 # coming from descendents, and "outgoing" means going towards ancestors.
9225 proc getallclines {fd} {
9226 global allparents allchildren idtags idheads nextarc
9227 global arcnos arcids arctags arcout arcend arcstart archeads growing
9228 global seeds allcommits cachedarcs allcupdate
9230 set nid 0
9234 # seen it already
9235 continue
9236 }
9237 set cachedarcs 0
9244 } else {
9250 }
9253 }
9255 # seen parent already
9258 }
9262 }
9265 continue
9266 }
9267 }
9272 }
9274 set ao {}
9277 set a [incr nextarc]
9286 # seen it already, may need to make a new branch
9289 }
9293 }
9295 }
9297 }
9299 global cached_dheads cached_dtags cached_atags
9300 catch {unset cached_dheads}
9301 catch {unset cached_dtags}
9302 catch {unset cached_atags}
9303 }
9306 }
9307 set cacheok 1
9308 if {[catch {
9311 } err]} {
9312 # got an error reading the list of commits
9313 # if we were updating, try rereading the whole thing again
9315 incr allcommits -1
9317 return
9318 }
9319 error_popup "[mc "Error reading commit topology information;\
9320 branch and preceding/following tag information\
9322 set cacheok 0
9323 }
9324 if {[incr allcommits -1] == 0} {
9325 notbusy allcommits
9327 run savecache
9328 }
9329 }
9330 dispneartags 0
9331 return 0
9332 }
9334 proc recalcarc {a} {
9335 global arctags archeads arcids idtags idheads
9337 set at {}
9338 set ah {}
9342 }
9345 }
9346 }
9349 }
9351 proc splitarc {p} {
9352 global arcnos arcids nextarc arctags archeads idtags idheads
9353 global arcstart arcend arcout allparents growing
9358 return
9359 }
9364 return
9365 }
9366 set na [incr nextarc]
9369 } else {
9373 }
9383 }
9388 } else {
9391 }
9392 }
9394 # reconstruct tags and heads lists
9398 } else {
9401 }
9402 }
9404 # Update things for a new commit added that is a child of one
9405 # existing commit. Used when cherry-picking.
9406 proc addnewchild {id p} {
9407 global allparents allchildren idtags nextarc
9408 global arcnos arcids arctags arcout arcend arcstart archeads growing
9409 global seeds allcommits
9417 set a [incr nextarc]
9425 }
9428 }
9430 # This implements a cache for the topology information.
9431 # The cache saves, for each arc, the start and end of the arc,
9432 # the ids on the arc, and the outgoing arcs from the end.
9433 proc readcache {f} {
9434 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9435 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9436 global allcwait
9442 }
9443 if {[catch {
9445 # finish reading the cache and setting up arctags, etc.
9449 foreach id [array names idtags] {
9455 }
9456 }
9457 }
9458 foreach id [array names idheads] {
9464 }
9465 }
9466 }
9470 }
9471 }
9472 set allcwait 0
9473 } else {
9483 }
9487 } else {
9491 }
9492 }
9498 }
9501 }
9504 }
9506 }
9507 } err]} {
9509 return 0
9510 }
9512 getallcommits
9513 }
9515 }
9517 proc getcache {f} {
9518 global nextarc cachedarcs possible_seeds
9520 if {[catch {
9523 # make sure it's an integer
9526 set nextarc 0
9527 set possible_seeds {}
9529 } err]} {
9531 }
9532 return 0
9533 }
9535 proc dropcache {err} {
9536 global allcwait nextarc cachedarcs seeds
9539 foreach v {arcnos arcout arcids arcstart arcend growing \
9540 arctags archeads allparents allchildren} {
9543 }
9544 set allcwait 0
9545 set nextarc 0
9546 set cachedarcs 0
9547 set seeds {}
9548 getallcommits
9549 }
9551 proc writecache {f} {
9552 global cachearc cachedarcs allccache
9553 global arcstart arcend arcnos arcids arcout
9559 }
9560 if {[catch {
9564 } else {
9566 }
9567 }
9568 } err]} {
9572 return 0
9573 }
9578 return 0
9579 }
9580 return 1
9581 }
9583 proc savecache {} {
9584 global nextarc cachedarcs cachearc allccache
9587 set cachearc 0
9589 catch {
9593 }
9594 }
9596 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9597 # or 0 if neither is true.
9598 proc anc_or_desc {a b} {
9599 global arcout arcstart arcend arcnos cached_isanc
9602 # Both are on the same arc(s); either both are the same BMP,
9603 # or if one is not a BMP, the other is also not a BMP or is
9604 # the BMP at end of the arc (and it only has 1 incoming arc).
9605 # Or both can be BMPs with no incoming arcs.
9607 return 0
9608 }
9614 return 1
9615 } else {
9616 return -1
9617 }
9618 }
9624 } else {
9625 set aend {}
9626 }
9628 } else {
9630 }
9635 } else {
9636 set bend {}
9637 }
9639 } else {
9641 }
9643 return 1
9644 }
9646 return -1
9647 }
9650 return 1
9651 }
9652 }
9655 return -1
9656 }
9658 return 0
9659 }
9660 }
9668 continue
9669 }
9675 return 1
9679 return -1
9680 }
9686 }
9687 }
9688 }
9691 return 0
9692 }
9696 # and returns 0 if so and 1 if not.
9697 # If we subsequently discover a tag on such a growing tip, and that
9700 # isn't a good choice to display as a descendent tag of
9704 #
9705 proc is_certain {desc anc} {
9706 global arcnos arcout arcstart arcend growing problems
9708 set certain {}
9710 # tags on the same arc are certain
9712 return 1
9713 }
9718 }
9719 }
9722 } else {
9725 }
9727 return 1
9728 }
9731 set nnh 1
9732 set ngrowanc 0
9736 incr nnh -1
9737 }
9743 incr ngrowanc
9744 }
9745 } else {
9752 incr nnh -1
9753 }
9755 incr ngrowanc -1
9756 }
9766 incr nnh -1
9767 }
9769 incr ngrowanc -1
9770 }
9772 }
9773 }
9774 }
9775 }
9776 }
9777 }
9781 } else {
9784 incr nnh
9785 }
9786 }
9787 }
9788 }
9789 foreach x [array names growanc] {
9791 return 0
9792 }
9793 return 0
9794 }
9795 return 1
9796 }
9798 proc validate_arctags {a} {
9799 global arctags idtags
9801 set i -1
9804 incr i
9807 incr i -1
9808 }
9809 }
9811 }
9813 proc validate_archeads {a} {
9814 global archeads idheads
9816 set i -1
9819 incr i
9822 incr i -1
9823 }
9824 }
9826 }
9828 # Return the list of IDs that have tags that are descendents of id,
9829 # ignoring IDs that are descendents of IDs already reported.
9830 proc desctags {id} {
9831 global arcnos arcstart arcids arctags idtags allparents
9832 global growing cached_dtags
9835 return {}
9836 }
9837 set t1 [clock clicks -milliseconds]
9840 # part-way along an arc; check that arc first
9845 set tid {}
9850 }
9853 }
9854 }
9858 }
9859 }
9862 }
9867 set nc 1
9873 incr nc -1
9874 }
9875 # ignore tags on starting node
9879 set ta 1
9882 set ta 1
9883 }
9884 }
9891 }
9892 }
9901 }
9904 }
9906 incr nc -1
9907 }
9909 }
9910 }
9911 }
9916 incr nc
9917 }
9918 }
9919 }
9920 }
9921 set tags {}
9922 foreach id [array names tagloc] {
9927 }
9928 }
9929 }
9930 }
9931 set t2 [clock clicks -milliseconds]
9934 # remove tags that are descendents of other tags
9942 incr j -1
9943 incr i -1
9946 incr i -1
9947 break
9948 }
9949 }
9950 }
9952 if {[array names growing] ne {}} {
9953 # graph isn't finished, need to check if any tag could get
9954 # eclipsed by another tag coming later. Simply ignore any
9955 # tags that could later get eclipsed.
9956 set ctags {}
9960 }
9961 }
9964 } else {
9966 }
9967 } else {
9969 }
9970 set t3 [clock clicks -milliseconds]
9974 }
9976 }
9978 proc anctags {id} {
9979 global arcnos arcids arcout arcend arctags idtags allparents
9980 global growing cached_atags
9983 return {}
9984 }
9985 set t1 [clock clicks -milliseconds]
9988 # part-way along an arc; check that arc first
9997 }
9998 }
9999 }
10001 return {}
10002 }
10006 }
10007 }
10010 }
10015 set taglist {}
10016 set nc 1
10022 incr nc -1
10023 }
10024 # ignore tags on starting node
10028 set td 1
10031 set td 1
10032 }
10033 }
10039 }
10040 }
10052 }
10053 }
10056 }
10058 incr nc -1
10059 }
10061 }
10062 }
10063 }
10068 incr nc
10069 }
10070 }
10071 }
10072 }
10073 set t2 [clock clicks -milliseconds]
10075 set tags {}
10076 foreach id [array names tagloc] {
10081 }
10082 }
10083 }
10084 }
10086 # remove tags that are ancestors of other tags
10094 incr j -1
10095 incr i -1
10098 incr i -1
10099 break
10100 }
10101 }
10102 }
10104 if {[array names growing] ne {}} {
10105 # graph isn't finished, need to check if any tag could get
10106 # eclipsed by another tag coming later. Simply ignore any
10107 # tags that could later get eclipsed.
10108 set ctags {}
10112 }
10113 }
10116 } else {
10118 }
10119 } else {
10121 }
10122 set t3 [clock clicks -milliseconds]
10126 }
10128 }
10130 # Return the list of IDs that have heads that are descendents of id,
10131 # including id itself if it has a head.
10132 proc descheads {id} {
10133 global arcnos arcstart arcids archeads idheads cached_dheads
10134 global allparents
10137 return {}
10138 }
10139 set aret {}
10141 # part-way along an arc; check it first
10150 }
10151 }
10153 }
10157 set ret {}
10162 } else {
10165 }
10171 }
10172 }
10177 }
10178 }
10179 }
10180 }
10184 }
10186 proc addedtag {id} {
10187 global arcnos arcout cached_dtags cached_atags
10192 }
10193 catch {unset cached_dtags}
10194 catch {unset cached_atags}
10195 }
10197 proc addedhead {hid head} {
10198 global arcnos arcout cached_dheads
10203 }
10204 catch {unset cached_dheads}
10205 }
10207 proc removedhead {hid head} {
10208 global cached_dheads
10210 catch {unset cached_dheads}
10211 }
10213 proc movedhead {hid head} {
10214 global arcnos arcout cached_dheads
10219 }
10220 catch {unset cached_dheads}
10221 }
10223 proc changedrefs {} {
10224 global cached_dheads cached_dtags cached_atags
10225 global arctags archeads arcnos arcout idheads idtags
10227 foreach id [concat [array names idheads] [array names idtags]] {
10233 }
10234 }
10235 }
10236 catch {unset cached_dtags}
10237 catch {unset cached_atags}
10238 catch {unset cached_dheads}
10239 }
10241 proc rereadrefs {} {
10242 global idtags idheads idotherrefs mainheadid
10244 set refids [concat [array names idtags] \
10245 [array names idheads] [array names idotherrefs]]
10249 }
10250 }
10252 readrefs
10253 changedrefs
10255 [array names idheads] [array names idotherrefs]]]
10260 }
10261 }
10265 }
10266 run refill_reflist
10267 }
10269 proc listrefs {id} {
10270 global idtags idheads idotherrefs
10272 set x {}
10275 }
10276 set y {}
10279 }
10280 set z {}
10283 }
10285 }
10287 proc showtag {tag isnew} {
10288 global ctext tagcontents tagids linknum tagobjid
10292 }
10294 clear_ctext
10295 settabs 0
10296 set linknum 0
10298 catch {
10300 }
10301 }
10304 } else {
10306 }
10309 init_flist {}
10310 }
10312 proc doquit {} {
10313 global stopped
10314 global gitktmpdir
10316 set stopped 100
10317 savestuff .
10318 destroy .
10320 if {[info exists gitktmpdir]} {
10322 }
10323 }
10325 proc mkfontdisp {font top which} {
10334 }
10336 proc choosefont {font which} {
10337 global fontparam fontlist fonttop fontattr
10338 global prefstop
10346 set top .gitkfont
10349 font create sample
10356 set fontlist [lsort [font families]]
10367 -textvariable fontparam(size) \
10368 -validatecommand {string is integer -strict %s}
10370 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10371 -variable fontparam(weight) -onvalue bold -offvalue normal
10373 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10374 -variable fontparam(slant) -onvalue italic -offvalue roman
10378 -background white
10380 -fill black -tags text
10392 trace add variable fontparam write chg_fontparam
10393 } else {
10396 }
10401 }
10402 }
10404 proc centertext {w} {
10406 }
10408 proc fontok {} {
10409 global fontparam fontpref prefstop
10415 }
10418 }
10422 fontcan
10423 }
10425 proc fontcan {} {
10426 global fonttop fontparam
10428 if {[info exists fonttop]} {
10430 catch {font delete sample}
10431 unset fonttop
10432 unset fontparam
10433 }
10434 }
10436 proc selfontfam {} {
10437 global fonttop fontparam
10442 }
10443 }
10445 proc chg_fontparam {v sub op} {
10446 global fontparam
10449 }
10451 proc doprefs {} {
10452 global maxwidth maxgraphpct
10453 global oldprefs prefstop showneartags showlocalchanges
10454 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10455 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10456 global hideremotes
10458 set top .gitkprefs
10462 return
10463 }
10464 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10465 limitdiffs tabstop perfile_attrs hideremotes} {
10467 }
10475 -font optionfont
10479 -font optionfont
10483 -font optionfont -variable showlocalchanges
10486 -font optionfont -variable autoselect
10495 -font optionfont -variable showneartags
10498 -font optionfont -variable hideremotes
10501 -font optionfont -variable limitdiffs
10504 -font optionfont -variable perfile_attrs
10510 -padx 10
10512 -command choose_extdiff
10543 [mc "diff hunk header"] \
10549 [mc "marked line background"] \
10573 }
10575 proc choose_extdiff {} {
10576 global extdifftool
10578 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10581 }
10582 }
10584 proc choosecolor {v vi w x cmd} {
10593 }
10595 proc setselbg {c} {
10596 global bglist cflist
10599 }
10603 }
10605 # This sets the background color and the color scheme for the whole UI.
10606 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10607 # if we don't specify one ourselves, which makes the checkbuttons and
10608 # radiobuttons look bad. This chooses white for selectColor if the
10609 # background color is light, or black if it is dark.
10610 proc setui {c} {
10612 set selc black
10614 set selc white
10615 }
10617 }
10619 proc setbg {c} {
10620 global bglist
10624 }
10625 }
10627 proc setfg {c} {
10628 global fglist canv
10632 }
10636 }
10638 proc prefscan {} {
10639 global oldprefs prefstop
10641 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10642 limitdiffs tabstop perfile_attrs hideremotes} {
10645 }
10647 unset prefstop
10648 fontcan
10649 }
10651 proc prefsok {} {
10652 global maxwidth maxgraphpct
10653 global oldprefs prefstop showneartags showlocalchanges
10654 global fontpref mainfont textfont uifont
10655 global limitdiffs treediffs perfile_attrs
10656 global hideremotes
10659 unset prefstop
10660 fontcan
10661 set fontchanged 0
10665 eval font configure mainfont [fontflags mainfont]
10666 eval font configure mainfontbold [fontflags mainfont 1]
10667 setcoords
10668 set fontchanged 1
10669 }
10673 eval font configure textfont [fontflags textfont]
10674 eval font configure textfontbold [fontflags textfont 1]
10675 }
10679 eval font configure uifont [fontflags uifont]
10680 }
10681 settabs
10684 doshowlocalchanges
10685 } else {
10686 dohidelocalchanges
10687 }
10688 }
10691 # treediffs elements are limited by path;
10692 # won't have encodings cached if perfile_attrs was just turned on
10693 catch {unset treediffs}
10694 }
10697 redisplay
10700 reselectline
10701 }
10703 rereadrefs
10704 }
10705 }
10707 proc formatdate {d} {
10708 global datetimeformat
10711 }
10713 }
10715 # This list of encoding names and aliases is distilled from
10716 # http://www.iana.org/assignments/character-sets.
10717 # Not all of them are supported by Tcl.
10718 set encoding_aliases {
10719 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10720 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10721 { ISO-10646-UTF-1 csISO10646UTF1 }
10722 { ISO_646.basic:1983 ref csISO646basic1983 }
10723 { INVARIANT csINVARIANT }
10724 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10725 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10726 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10727 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10728 { NATS-DANO iso-ir-9-1 csNATSDANO }
10729 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10730 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10731 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10732 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10733 { ISO-2022-KR csISO2022KR }
10734 { EUC-KR csEUCKR }
10735 { ISO-2022-JP csISO2022JP }
10736 { ISO-2022-JP-2 csISO2022JP2 }
10737 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10738 csISO13JISC6220jp }
10739 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10740 { IT iso-ir-15 ISO646-IT csISO15Italian }
10741 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10742 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10743 { greek7-old iso-ir-18 csISO18Greek7Old }
10744 { latin-greek iso-ir-19 csISO19LatinGreek }
10745 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10746 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10747 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10748 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10749 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10750 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10751 { INIS iso-ir-49 csISO49INIS }
10752 { INIS-8 iso-ir-50 csISO50INIS8 }
10753 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10754 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10755 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10756 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10757 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10758 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10759 csISO60Norwegian1 }
10760 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10761 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10762 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10763 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10764 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10765 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10766 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10767 { greek7 iso-ir-88 csISO88Greek7 }
10768 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10769 { iso-ir-90 csISO90 }
10770 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10771 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10772 csISO92JISC62991984b }
10773 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10774 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10775 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10776 csISO95JIS62291984handadd }
10777 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10778 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10779 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10780 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10781 CP819 csISOLatin1 }
10782 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10783 { T.61-7bit iso-ir-102 csISO102T617bit }
10784 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10785 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10786 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10787 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10788 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10789 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10790 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10791 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10792 arabic csISOLatinArabic }
10793 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10794 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10795 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10796 greek greek8 csISOLatinGreek }
10797 { T.101-G2 iso-ir-128 csISO128T101G2 }
10798 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10799 csISOLatinHebrew }
10800 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10801 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10802 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10803 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10804 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10805 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10806 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10807 csISOLatinCyrillic }
10808 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10809 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10810 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10811 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10812 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10813 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10814 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10815 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10816 { ISO_10367-box iso-ir-155 csISO10367Box }
10817 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10818 { latin-lap lap iso-ir-158 csISO158Lap }
10819 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10820 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10821 { us-dk csUSDK }
10822 { dk-us csDKUS }
10823 { JIS_X0201 X0201 csHalfWidthKatakana }
10824 { KSC5636 ISO646-KR csKSC5636 }
10825 { ISO-10646-UCS-2 csUnicode }
10826 { ISO-10646-UCS-4 csUCS4 }
10827 { DEC-MCS dec csDECMCS }
10828 { hp-roman8 roman8 r8 csHPRoman8 }
10829 { macintosh mac csMacintosh }
10830 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10831 csIBM037 }
10832 { IBM038 EBCDIC-INT cp038 csIBM038 }
10833 { IBM273 CP273 csIBM273 }
10834 { IBM274 EBCDIC-BE CP274 csIBM274 }
10835 { IBM275 EBCDIC-BR cp275 csIBM275 }
10836 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10837 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10838 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10839 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10840 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10841 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10842 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10843 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10844 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10845 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10846 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10847 { IBM437 cp437 437 csPC8CodePage437 }
10848 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10849 { IBM775 cp775 csPC775Baltic }
10850 { IBM850 cp850 850 csPC850Multilingual }
10851 { IBM851 cp851 851 csIBM851 }
10852 { IBM852 cp852 852 csPCp852 }
10853 { IBM855 cp855 855 csIBM855 }
10854 { IBM857 cp857 857 csIBM857 }
10855 { IBM860 cp860 860 csIBM860 }
10856 { IBM861 cp861 861 cp-is csIBM861 }
10857 { IBM862 cp862 862 csPC862LatinHebrew }
10858 { IBM863 cp863 863 csIBM863 }
10859 { IBM864 cp864 csIBM864 }
10860 { IBM865 cp865 865 csIBM865 }
10861 { IBM866 cp866 866 csIBM866 }
10862 { IBM868 CP868 cp-ar csIBM868 }
10863 { IBM869 cp869 869 cp-gr csIBM869 }
10864 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10865 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10866 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10867 { IBM891 cp891 csIBM891 }
10868 { IBM903 cp903 csIBM903 }
10869 { IBM904 cp904 904 csIBBM904 }
10870 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10871 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10872 { IBM1026 CP1026 csIBM1026 }
10873 { EBCDIC-AT-DE csIBMEBCDICATDE }
10874 { EBCDIC-AT-DE-A csEBCDICATDEA }
10875 { EBCDIC-CA-FR csEBCDICCAFR }
10876 { EBCDIC-DK-NO csEBCDICDKNO }
10877 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10878 { EBCDIC-FI-SE csEBCDICFISE }
10879 { EBCDIC-FI-SE-A csEBCDICFISEA }
10880 { EBCDIC-FR csEBCDICFR }
10881 { EBCDIC-IT csEBCDICIT }
10882 { EBCDIC-PT csEBCDICPT }
10883 { EBCDIC-ES csEBCDICES }
10884 { EBCDIC-ES-A csEBCDICESA }
10885 { EBCDIC-ES-S csEBCDICESS }
10886 { EBCDIC-UK csEBCDICUK }
10887 { EBCDIC-US csEBCDICUS }
10888 { UNKNOWN-8BIT csUnknown8BiT }
10889 { MNEMONIC csMnemonic }
10890 { MNEM csMnem }
10891 { VISCII csVISCII }
10892 { VIQR csVIQR }
10893 { KOI8-R csKOI8R }
10894 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10895 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10896 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10897 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10898 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10899 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10900 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10901 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10902 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10903 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10904 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10905 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10906 { IBM1047 IBM-1047 }
10907 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10908 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10909 { UNICODE-1-1 csUnicode11 }
10910 { CESU-8 csCESU-8 }
10911 { BOCU-1 csBOCU-1 }
10912 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10913 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10914 l8 }
10915 { ISO-8859-15 ISO_8859-15 Latin-9 }
10916 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10917 { GBK CP936 MS936 windows-936 }
10918 { JIS_Encoding csJISEncoding }
10919 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10920 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10921 EUC-JP }
10922 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10923 { ISO-10646-UCS-Basic csUnicodeASCII }
10924 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10925 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10926 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10927 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10928 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10929 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10930 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10931 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10932 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10933 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10934 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10935 { Ventura-US csVenturaUS }
10936 { Ventura-International csVenturaInternational }
10937 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10938 { PC8-Turkish csPC8Turkish }
10939 { IBM-Symbols csIBMSymbols }
10940 { IBM-Thai csIBMThai }
10941 { HP-Legal csHPLegal }
10942 { HP-Pi-font csHPPiFont }
10943 { HP-Math8 csHPMath8 }
10944 { Adobe-Symbol-Encoding csHPPSMath }
10945 { HP-DeskTop csHPDesktop }
10946 { Ventura-Math csVenturaMath }
10947 { Microsoft-Publishing csMicrosoftPublishing }
10948 { Windows-31J csWindows31J }
10949 { GB2312 csGB2312 }
10950 { Big5 csBig5 }
10951 }
10953 proc tcl_encoding {enc} {
10954 global encoding_aliases tcl_encoding_cache
10957 }
10958 set names [encoding names]
10963 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10966 }
10967 }
10972 # look through the aliases for one that tcl knows about
10978 }
10979 }
10981 }
10982 break
10983 }
10984 }
10985 set tclenc {}
10988 }
10991 }
10993 proc gitattr {path attr default} {
10994 global path_attr_cache
10997 } else {
10998 set r "unspecified"
11001 }
11003 }
11006 }
11008 }
11010 proc cache_gitattr {attr pathlist} {
11011 global path_attr_cache
11012 set newlist {}
11016 }
11017 }
11018 set lim 1000
11019 if {[tk windowingsystem] == "win32"} {
11020 # windows has a 32k limit on the arguments to a command...
11021 set lim 30
11022 }
11031 }
11033 }
11034 }
11035 }
11036 }
11037 }
11039 proc get_path_encoding {path} {
11040 global gui_encoding perfile_attrs
11046 }
11047 }
11049 }
11051 # First check that Tcl/Tk is recent enough
11052 if {[catch {package require Tk 8.4} err]} {
11053 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11054 Gitk requires at least Tcl/Tk 8.4." list
11055 exit 1
11056 }
11058 # defaults...
11059 set wrcomcmd "git diff-tree --stdin -p --pretty"
11061 set gitencoding {}
11062 catch {
11063 set gitencoding [exec git config --get i18n.commitencoding]
11064 }
11065 catch {
11066 set gitencoding [exec git config --get i18n.logoutputencoding]
11067 }
11069 set gitencoding "utf-8"
11070 }
11074 }
11076 set gui_encoding [encoding system]
11077 catch {
11078 set enc [exec git config --get gui.encoding]
11083 } else {
11085 }
11086 }
11087 }
11089 if {[tk windowingsystem] eq "aqua"} {
11090 set mainfont {{Lucida Grande} 9}
11091 set textfont {Monaco 9}
11092 set uifont {{Lucida Grande} 9 bold}
11093 } else {
11094 set mainfont {Helvetica 9}
11095 set textfont {Courier 9}
11096 set uifont {Helvetica 9 bold}
11097 }
11098 set tabstop 8
11099 set findmergefiles 0
11100 set maxgraphpct 50
11101 set maxwidth 16
11102 set revlistorder 0
11103 set fastdate 0
11104 set uparrowlen 5
11105 set downarrowlen 5
11106 set mingaplen 100
11107 set cmitmode "patch"
11108 set wrapcomment "none"
11109 set showneartags 1
11110 set hideremotes 0
11111 set maxrefs 20
11112 set maxlinelen 200
11113 set showlocalchanges 1
11114 set limitdiffs 1
11115 set datetimeformat "%Y-%m-%d %H:%M:%S"
11116 set autoselect 1
11117 set perfile_attrs 0
11119 if {[tk windowingsystem] eq "aqua"} {
11120 set extdifftool "opendiff"
11121 } else {
11122 set extdifftool "meld"
11123 }
11125 set colors {green red blue magenta darkgrey brown orange}
11126 set uicolor grey85
11127 set bgcolor white
11128 set fgcolor black
11129 set diffcolors {red "#00a000" blue}
11130 set diffcontext 3
11131 set ignorespace 0
11132 set selectbgcolor gray85
11133 set markbgcolor "#e0e0ff"
11135 set circlecolors {white blue gray blue blue}
11137 # button for popping up context menus
11138 if {[tk windowingsystem] eq "aqua"} {
11139 set ctxbut <Button-2>
11140 } else {
11141 set ctxbut <Button-3>
11142 }
11144 ## For msgcat loading, first locate the installation location.
11145 if { [info exists ::env(GITK_MSGSDIR)] } {
11146 ## Msgsdir was manually set in the environment.
11147 set gitk_msgsdir $::env(GITK_MSGSDIR)
11148 } else {
11149 ## Let's guess the prefix from argv0.
11153 unset gitk_prefix
11154 }
11156 ## Internationalization (i18n) through msgcat and gettext. See
11157 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11158 package require msgcat
11159 namespace import ::msgcat::mc
11160 ## And eventually load the actual message catalog
11163 catch {source ~/.gitk}
11165 font create optionfont -family sans-serif -size -12
11168 eval font create mainfont [fontflags mainfont]
11169 eval font create mainfontbold [fontflags mainfont 1]
11172 eval font create textfont [fontflags textfont]
11173 eval font create textfontbold [fontflags textfont 1]
11176 eval font create uifont [fontflags uifont]
11180 setoptions
11182 # check that we can find a .git directory somewhere...
11183 if {[catch {set gitdir [gitdir]}]} {
11184 show_error {} . [mc "Cannot find a git repository here."]
11185 exit 1
11186 }
11189 exit 1
11190 }
11192 set selecthead {}
11193 set selectheadid {}
11195 set revtreeargs {}
11196 set cmdline_files {}
11197 set i 0
11198 set revtreeargscmd {}
11201 "" { }
11202 "--" {
11204 break
11205 }
11206 "--select-commit=*" {
11208 }
11209 "--argscmd=*" {
11211 }
11212 default {
11214 }
11215 }
11216 incr i
11217 }
11220 set selecthead {}
11221 }
11224 # no -- on command line, but some arguments (other than --argscmd)
11225 if {[catch {
11230 # Unfortunately git rev-parse doesn't produce an error when
11231 # something is both a revision and a filename. To be consistent
11232 # with git log and git rev-list, check revtreeargs for filenames.
11235 show_error {} . [mc "Ambiguous argument '%s': both revision\
11237 exit 1
11238 }
11239 }
11240 } err]} {
11242 # so look for "fatal:".
11246 }
11248 exit 1
11249 }
11250 }
11252 set nullid "0000000000000000000000000000000000000000"
11253 set nullid2 "0000000000000000000000000000000000000001"
11254 set nullfile "/dev/null"
11257 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11259 set runq {}
11260 set history {}
11261 set historyindex 0
11262 set fh_serial 0
11263 set nhl_names {}
11264 set highlight_paths {}
11265 set findpattern {}
11266 set searchdirn -forwards
11267 set boldids {}
11268 set boldnameids {}
11269 set diffelide {0 0}
11270 set markingmatches 0
11271 set linkentercount 0
11272 set need_redisplay 0
11273 set nrows_drawn 0
11274 set firsttabstop 0
11276 set nextviewnum 1
11277 set curview 0
11278 set selectedview 0
11279 set selectedhlview [mc "None"]
11280 set highlight_related [mc "None"]
11281 set highlight_files {}
11282 set viewfiles(0) {}
11283 set viewperm(0) 0
11284 set viewargs(0) {}
11285 set viewargscmd(0) {}
11287 set selectedline {}
11288 set numcommits 0
11289 set loginstance 0
11290 set cmdlineok 0
11291 set stopped 0
11292 set stuffsaved 0
11293 set patchnum 0
11294 set lserial 0
11295 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11296 setcoords
11297 makewindow
11298 catch {
11299 image create photo gitlogo -width 16 -height 16
11301 image create photo gitlogominus -width 4 -height 2
11302 gitlogominus put #C00000 -to 0 0 4 2
11303 gitlogo copy gitlogominus -to 1 5
11304 gitlogo copy gitlogominus -to 6 5
11305 gitlogo copy gitlogominus -to 11 5
11306 image delete gitlogominus
11308 image create photo gitlogoplus -width 4 -height 4
11309 gitlogoplus put #008000 -to 1 0 3 4
11310 gitlogoplus put #008000 -to 0 1 4 3
11311 gitlogo copy gitlogoplus -to 1 9
11312 gitlogo copy gitlogoplus -to 6 9
11313 gitlogo copy gitlogoplus -to 11 9
11314 image delete gitlogoplus
11316 image create photo gitlogo32 -width 32 -height 32
11317 gitlogo32 copy gitlogo -zoom 2 2
11319 wm iconphoto . -default gitlogo gitlogo32
11320 }
11321 # wait for the window to become visible
11322 tkwait visibility .
11324 update
11325 readrefs
11328 # create a view for the files/dirs specified on the command line
11329 set curview 1
11330 set selectedview 1
11331 set nextviewnum 2
11332 set viewname(1) [mc "Command line"]
11336 set viewperm(1) 0
11337 set vdatemode(1) 0
11338 addviewmenu 1
11339 .bar.view entryconf [mca "Edit view..."] -state normal
11340 .bar.view entryconf [mca "Delete view"] -state normal
11341 }
11343 if {[info exists permviews]} {
11346 incr nextviewnum
11353 }
11354 }
11356 if {[tk windowingsystem] eq "win32"} {
11357 focus -force .
11358 }
11360 getcommits {}