| blob | 5f065457633b592ab83df192ad4bcdb27c006111 |
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} {
3382 set here [file split [pwd]]
3383 set ei 0
3384 set hi 0
3385 set res {}
3388 lappend res ".."
3389 } else {
3390 incr ei
3391 }
3392 incr hi
3393 }
3396 }
3398 proc external_blame {parent_idx {line {}}} {
3399 global flist_menu_file gitdir
3400 global nullid nullid2
3401 global parentlist selectedline currentid
3405 } else {
3407 }
3410 error_popup [mc "No such commit"]
3411 return
3412 }
3414 set cmdline [list git gui blame]
3417 }
3419 # Unfortunately it seems git gui blame doesn't like
3420 # being given an absolute path...
3425 }
3426 }
3428 proc show_line_source {} {
3429 global cmitmode currentid parents curview blamestuff blameinst
3430 global diff_menu_line diff_menu_filebase flist_menu_file
3431 global nullid nullid2 gitdir
3433 set from_index {}
3437 } else {
3443 return
3444 }
3445 incr pi -1
3448 # must be a merge in progress...
3449 if {[catch {
3450 # get the last line from .git/MERGE_HEAD
3454 } err]} {
3456 return
3457 }
3459 # need to do the blame from the index
3460 if {[catch {
3462 } err]} {
3464 return
3465 }
3466 } else {
3468 }
3469 } else {
3471 }
3473 }
3474 set blameargs {}
3477 }
3480 lappend blameargs --contents -
3481 } else {
3483 }
3485 if {[catch {
3487 } err]} {
3489 return
3490 }
3491 nowbusy blaming [mc "Searching"]
3497 }
3499 proc stopblaming {} {
3500 global blameinst
3502 if {[info exists blameinst]} {
3504 unset blameinst
3505 notbusy blaming
3506 }
3507 }
3509 proc read_line_source {fd inst} {
3510 global blamestuff curview commfd blameinst nullid nullid2
3514 }
3516 return 1
3517 }
3519 unset blameinst
3520 notbusy blaming
3524 return 0
3525 }
3527 set fname {}
3533 # look for "filename" line
3537 break
3538 }
3539 }
3540 }
3542 # all looks good, select it
3544 # blame uses all-zeroes to mean not committed,
3545 # which would mean a change in the index
3547 }
3550 } else {
3551 error_popup [mc "That line comes from commit %s, \
3553 }
3554 } else {
3555 puts "oops couldn't parse git blame output"
3556 }
3557 return 0
3558 }
3561 proc delete_at_eof {f dir} {
3566 }
3568 return 0
3569 }
3570 return 1
3571 }
3573 # Functions for adding and removing shell-type quoting
3575 proc shellquote {str} {
3578 }
3581 }
3584 }
3586 }
3588 proc shellarglist {l} {
3589 set str {}
3592 append str " "
3593 }
3595 }
3597 }
3599 proc shelldequote {str} {
3600 set ret {}
3601 set used -1
3602 while {1} {
3603 incr used
3607 break
3608 }
3614 }
3616 incr used
3620 error "unmatched single-quote"
3621 }
3624 continue
3625 }
3628 error "trailing backslash"
3629 }
3631 continue
3632 }
3633 # here ch == "\""
3634 while {1} {
3636 error "unmatched double-quote"
3637 }
3643 }
3645 incr used
3647 incr used
3648 }
3649 }
3651 }
3653 proc shellsplit {str} {
3654 set l {}
3655 while {1} {
3663 }
3665 }
3667 # Code to implement multiple views
3669 proc newview {ishighlight} {
3670 global nextviewnum newviewname newishighlight
3671 global revtreeargs viewargscmd newviewopts curview
3674 set top .gitkview
3677 return
3678 }
3684 }
3686 set known_view_options {
3687 {perm b . {} {mc "Remember this view"}}
3688 {reflabel l + {} {mc "References (space separated list):"}}
3689 {refs t15 .. {} {mc "Branches & tags:"}}
3690 {allrefs b *. "--all" {mc "All refs"}}
3691 {branches b . "--branches" {mc "All (local) branches"}}
3692 {tags b . "--tags" {mc "All tags"}}
3693 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3694 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3695 {author t15 .. "--author=*" {mc "Author:"}}
3696 {committer t15 . "--committer=*" {mc "Committer:"}}
3697 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3698 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3699 {changes_l l + {} {mc "Changes to Files:"}}
3700 {pickaxe_s r0 . {} {mc "Fixed String"}}
3701 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3702 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3703 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3704 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3705 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3706 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3707 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3708 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3709 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3710 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3711 {lright b . "--left-right" {mc "Mark branch sides"}}
3712 {first b . "--first-parent" {mc "Limit to first parent"}}
3713 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3714 {args t50 *. {} {mc "Additional arguments to git log:"}}
3715 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3716 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3717 }
3719 proc encode_view_opts {n} {
3720 global known_view_options newviewopts
3722 set rargs [list]
3732 }
3738 }
3739 } else {
3745 }
3746 }
3747 }
3750 }
3752 proc decode_view_opts {n view_args} {
3753 global known_view_options newviewopts
3758 # Checkboxes
3759 set val 0
3761 # Radiobuttons
3763 set val 0
3764 } else {
3765 # Text fields
3766 set val {}
3767 }
3769 }
3770 set oargs [list]
3771 set refargs [list]
3774 && ![info exists found(limit)]} {
3776 set found(limit) 1
3777 continue
3778 }
3779 catch { unset val }
3786 # Check buttons
3787 set val 1
3789 # Radio buttons
3792 } else {
3793 # Text input fields
3796 }
3799 break
3800 }
3801 if {[info exists val]} break
3802 }
3803 if {[info exists val]} continue
3806 } else {
3808 }
3809 }
3812 }
3814 proc edit_or_newview {} {
3815 global curview
3818 editview
3819 } else {
3820 newview 0
3821 }
3822 }
3824 proc editview {} {
3825 global curview
3826 global viewname viewperm newviewname newviewopts
3827 global viewargs viewargscmd
3832 return
3833 }
3839 }
3841 proc vieweditor {top n title} {
3842 global newviewname newviewopts viewfiles bgcolor
3843 global known_view_options
3849 # View name
3857 # View options
3859 set cexpand 0
3860 set cnt 0
3866 set lxpad 0
3870 incr cnt
3876 incr cnt
3880 } else {
3881 set lxpad 5
3882 }
3916 }
3919 }
3921 }
3922 }
3937 }
3939 proc doviewmenu {m first cmd op argv} {
3944 break
3945 }
3946 }
3947 }
3949 proc allviewmenus {n op args} {
3950 # global viewhlmenu
3954 }
3956 proc newviewok {top n {apply 0}} {
3957 global nextviewnum newviewperm newviewname newishighlight
3958 global viewname viewfiles viewperm selectedview curview
3959 global viewargs viewargscmd newviewopts viewhlmenu
3961 if {[catch {
3963 } err]} {
3965 return
3966 }
3967 set files {}
3972 }
3973 }
3975 # creating a new view
3976 incr nextviewnum
3985 } else {
3987 }
3988 } else {
3989 # editing an existing view
3997 }
4004 run reloadcommits
4005 }
4006 }
4007 }
4010 }
4012 proc delview {} {
4013 global curview viewperm hlview selectedhlview
4017 set selectedhlview [mc "None"]
4018 unset hlview
4019 }
4022 showview 0
4023 }
4025 proc addviewmenu {n} {
4026 global viewname viewhlmenu
4032 }
4034 proc showview {n} {
4035 global curview cached_commitrow ordertok
4036 global displayorder parentlist rowidlist rowisopt rowfinal
4037 global colormap rowtextx nextcolor canvxmax
4038 global numcommits viewcomplete
4039 global selectedline currentid canv canvy0
4040 global treediffs
4041 global pending_select mainheadid
4042 global commitidx
4043 global selectedview
4044 global hlview selectedhlview commitinterest
4047 set selid {}
4058 }
4059 } elseif {[info exists pending_select]} {
4061 unset pending_select
4062 }
4063 unselectline
4064 normalline
4065 catch {unset treediffs}
4066 clear_display
4068 unset hlview
4069 set selectedhlview [mc "None"]
4070 }
4071 catch {unset commitinterest}
4072 catch {unset cached_commitrow}
4073 catch {unset ordertok}
4080 run refill_reflist
4083 return
4084 }
4086 set displayorder {}
4087 set parentlist {}
4088 set rowidlist {}
4089 set rowisopt {}
4090 set rowfinal {}
4093 catch {unset colormap}
4094 catch {unset rowtextx}
4095 set nextcolor 0
4098 set row 0
4099 setcanvscroll
4100 set yf 0
4101 set row {}
4104 # try to get the selected row in the same position on the screen
4108 set ytop 0
4109 }
4111 }
4113 drawvisible
4118 } else {
4119 reset_pending_select {}
4123 } else {
4124 set row [first_real_row]
4127 }
4128 }
4129 }
4132 show_status [mc "Reading commits..."]
4133 }
4135 show_status [mc "No commits selected"]
4136 }
4137 }
4139 # Stuff relating to the highlighting facility
4141 proc ishighlighted {id} {
4142 global vhighlights fhighlights nhighlights rhighlights
4146 }
4149 }
4152 }
4155 }
4156 return 0
4157 }
4159 proc bolden {id font} {
4160 global canv linehtag currentid boldids need_redisplay markedid
4162 # need_redisplay = 1 means the display is stale and about to be redrawn
4169 -outline {{}} -tags secsel \
4172 }
4175 }
4176 }
4178 proc bolden_name {id font} {
4179 global canv2 linentag currentid boldnameids need_redisplay
4187 -outline {{}} -tags secsel \
4190 }
4191 }
4193 proc unbolden {} {
4194 global boldids
4196 set stillbold {}
4200 } else {
4202 }
4203 }
4205 }
4207 proc addvhighlight {n} {
4208 global hlview viewcomplete curview vhl_done commitidx
4210 if {[info exists hlview]} {
4211 delvhighlight
4212 }
4216 }
4219 drawvisible
4220 }
4221 }
4223 proc delvhighlight {} {
4224 global hlview vhighlights
4226 if {![info exists hlview]} return
4227 unset hlview
4228 catch {unset vhighlights}
4229 unbolden
4230 }
4232 proc vhighlightmore {} {
4233 global hlview vhl_done commitidx vhighlights curview
4236 set vr [visiblerows]
4246 }
4248 }
4249 }
4250 }
4252 return 0
4253 }
4255 proc askvhighlight {row id} {
4256 global hlview vhighlights iddrawn
4261 }
4263 } else {
4265 }
4266 }
4268 proc hfiles_change {} {
4269 global highlight_files filehighlight fhighlights fh_serial
4270 global highlight_paths
4272 if {[info exists filehighlight]} {
4273 # delete previous highlights
4275 unset filehighlight
4276 catch {unset fhighlights}
4277 unbolden
4278 unhighlight_filelist
4279 }
4280 set highlight_paths {}
4282 incr fh_serial
4285 }
4286 }
4288 proc gdttype_change {name ix op} {
4289 global gdttype highlight_files findstring findpattern
4291 stopfinding
4295 set highlight_files {}
4296 hfiles_change
4297 }
4298 findcom_change
4299 } else {
4301 set findpattern {}
4302 findcom_change
4303 }
4305 hfiles_change
4306 }
4307 drawvisible
4308 }
4309 # enable/disable findtype/findloc menus too
4310 }
4312 proc find_change {name ix op} {
4313 global gdttype findstring highlight_files
4315 stopfinding
4317 findcom_change
4318 } else {
4321 hfiles_change
4322 }
4323 }
4324 drawvisible
4325 }
4327 proc findcom_change args {
4328 global nhighlights boldnameids
4329 global findpattern findtype findstring gdttype
4331 stopfinding
4332 # delete previous highlights, if any
4335 }
4336 set boldnameids {}
4337 catch {unset nhighlights}
4338 unbolden
4339 unmarkmatches
4341 set findpattern {}
4344 } else {
4345 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4348 }
4349 }
4351 proc makepatterns {l} {
4352 set ret {}
4357 } else {
4360 }
4361 }
4363 }
4365 proc do_file_hl {serial} {
4366 global highlight_files filehighlight highlight_paths gdttype fhl_list
4371 highlight_filelist
4375 } else {
4376 # must be "containing:", i.e. we're searching commit info
4377 return
4378 }
4383 set fhl_list {}
4384 drawvisible
4385 flushhighlights
4386 }
4388 proc flushhighlights {} {
4389 global filehighlight fhl_list
4391 if {[info exists filehighlight]} {
4392 lappend fhl_list {}
4395 }
4396 }
4398 proc askfilehighlight {row id} {
4399 global filehighlight fhighlights fhl_list
4404 }
4406 proc readfhighlight {} {
4407 global filehighlight fhighlights curview iddrawn
4408 global fhl_list find_dirn
4410 if {![info exists filehighlight]} {
4411 return 0
4412 }
4413 set nr 0
4421 }
4427 }
4429 }
4431 # strange...
4432 puts "oops, git diff-tree died"
4434 unset filehighlight
4435 return 0
4436 }
4437 if {[info exists find_dirn]} {
4438 run findmore
4439 }
4440 return 1
4441 }
4443 proc doesmatch {f} {
4444 global findtype findpattern
4450 } else {
4452 }
4453 }
4455 proc askfindhighlight {row id} {
4456 global nhighlights commitinfo iddrawn
4457 global findloc
4458 global markingmatches
4462 }
4464 set isbold 0
4465 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4470 set isbold 2
4471 break
4472 }
4473 set isbold 1
4474 }
4475 }
4481 }
4482 }
4485 }
4486 }
4488 }
4490 proc markrowmatches {row id} {
4491 global canv canv2 linehtag linentag commitinfo findloc
4502 }
4503 }
4509 }
4510 }
4511 }
4513 proc vrel_change {name ix op} {
4514 global highlight_related
4516 rhighlight_none
4518 run drawvisible
4519 }
4520 }
4522 # prepare for testing whether commits are descendents or ancestors of a
4523 proc rhighlight_sel {a} {
4524 global descendent desc_todo ancestor anc_todo
4525 global highlight_related
4527 catch {unset descendent}
4529 catch {unset ancestor}
4532 rhighlight_none
4533 run drawvisible
4534 }
4535 }
4537 proc rhighlight_none {} {
4538 global rhighlights
4540 catch {unset rhighlights}
4541 unbolden
4542 }
4544 proc is_descendent {a} {
4545 global curview children descendent desc_todo
4550 set leftover {}
4551 set done 0
4556 continue
4557 }
4563 set done 1
4564 }
4565 }
4566 }
4569 return
4570 }
4571 }
4574 }
4576 proc is_ancestor {a} {
4577 global curview parents ancestor anc_todo
4582 set leftover {}
4583 set done 0
4588 continue
4589 }
4595 set done 1
4596 }
4597 }
4598 }
4601 return
4602 }
4603 }
4606 }
4608 proc askrelhighlight {row id} {
4609 global descendent highlight_related iddrawn rhighlights
4610 global selectedline ancestor
4613 set isbold 0
4618 }
4620 set isbold 1
4621 }
4626 }
4628 set isbold 1
4629 }
4630 }
4634 }
4635 }
4637 }
4639 # Graph layout functions
4641 proc shortids {ids} {
4642 set res {}
4648 } else {
4650 }
4651 }
4653 }
4655 proc ntimes {n o} {
4656 set ret {}
4661 }
4663 }
4665 }
4667 proc ordertoken {id} {
4668 global ordertok curview varcid varcstart varctok curview parents children
4669 global nullid nullid2
4673 }
4675 set todo {}
4676 while {1} {
4680 } else {
4682 }
4685 break
4686 }
4689 # it's a root
4691 break
4692 }
4695 } else {
4699 }
4701 }
4702 }
4707 }
4710 }
4712 # Work out where id should go in idlist so that order-token
4713 # values increase from left to right
4714 proc idcol {idlist id {i 0}} {
4717 set i 0
4718 }
4722 }
4724 incr i
4725 } else {
4729 }
4730 }
4732 }
4734 proc initlayout {} {
4735 global rowidlist rowisopt rowfinal displayorder parentlist
4736 global numcommits canvxmax canv
4737 global nextcolor
4738 global colormap rowtextx
4740 set numcommits 0
4741 set displayorder {}
4742 set parentlist {}
4743 set nextcolor 0
4744 set rowidlist {}
4745 set rowisopt {}
4746 set rowfinal {}
4748 catch {unset colormap}
4749 catch {unset rowtextx}
4750 setcanvscroll
4751 }
4753 proc setcanvscroll {} {
4754 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4755 global lastscrollset lastscrollrows
4761 set lastscrollset [clock clicks -milliseconds]
4763 }
4765 proc visiblerows {} {
4766 global canv numcommits linespc
4774 set r0 0
4775 }
4780 }
4782 }
4784 proc layoutmore {} {
4785 global commitidx viewcomplete curview
4786 global numcommits pending_select curview
4787 global lastscrollset lastscrollrows
4791 setcanvscroll
4792 }
4793 if {[info exists pending_select] &&
4795 update
4797 }
4798 drawvisible
4799 }
4801 # With path limiting, we mightn't get the actual HEAD commit,
4802 # so ask git rev-list what is the first ancestor of HEAD that
4803 # touches a file in the path limit.
4804 proc get_viewmainhead {view} {
4805 global viewmainheadid vfilelimit viewinstances mainheadid
4807 catch {
4815 }
4816 }
4819 proc getviewhead {fd inst view} {
4820 global viewmainheadid commfd curview viewinstances showlocalchanges
4822 set id {}
4825 return 1
4826 }
4829 }
4836 }
4838 doshowlocalchanges
4839 }
4840 return 0
4841 }
4843 proc doshowlocalchanges {} {
4844 global curview viewmainheadid
4848 dodiffindex
4849 } else {
4851 }
4852 }
4854 proc dohidelocalchanges {} {
4855 global nullid nullid2 lserial curview
4859 }
4862 }
4863 incr lserial
4864 }
4866 # spawn off a process to do git diff-index --cached HEAD
4867 proc dodiffindex {} {
4868 global lserial showlocalchanges vfilelimit curview
4869 global isworktree
4872 incr lserial
4873 set cmd "|git diff-index --cached HEAD"
4876 }
4881 }
4883 proc readdiffindex {fd serial inst} {
4884 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4885 global vfilelimit
4887 set isdiff 1
4890 return 1
4891 }
4892 set isdiff 0
4893 }
4894 # we only need to see one line and we don't really care what it says...
4898 return 0
4899 }
4901 # now see if there are any local changes not checked in to the index
4902 set cmd "|git diff-files"
4905 }
4912 # add the line for the changes in the index to the graph
4913 set hl [mc "Local changes checked in to index but not committed"]
4918 }
4923 }
4925 }
4926 return 0
4927 }
4929 proc readdifffiles {fd serial inst} {
4930 global viewmainheadid nullid nullid2 curview
4931 global commitinfo commitdata lserial
4933 set isdiff 1
4936 return 1
4937 }
4938 set isdiff 0
4939 }
4940 # we only need to see one line and we don't really care what it says...
4944 return 0
4945 }
4948 # add the line for the local diff to the graph
4949 set hl [mc "Local uncommitted changes, not checked in to index"]
4954 } else {
4956 }
4960 }
4961 return 0
4962 }
4964 proc nextuse {id row} {
4965 global curview children
4970 return -1
4971 }
4974 }
4975 }
4976 }
4979 }
4980 return -1
4981 }
4983 proc prevuse {id row} {
4984 global curview children
4986 set ret -1
4992 }
4993 }
4994 }
4996 }
4998 proc make_idlist {row} {
4999 global displayorder parentlist uparrowlen downarrowlen mingaplen
5000 global commitidx curview children
5004 set r 0
5005 }
5008 set ra 0
5009 }
5013 }
5015 set ids {}
5024 }
5025 }
5026 }
5034 }
5035 }
5036 }
5044 }
5045 }
5046 incr r
5052 }
5053 }
5054 }
5055 set idlist {}
5058 }
5060 }
5062 proc rowsequal {a b} {
5065 }
5068 }
5070 }
5072 proc makeupline {id row rend col} {
5073 global rowidlist uparrowlen downarrowlen mingaplen
5079 }
5082 }
5089 }
5090 }
5091 }
5093 proc layoutrows {row endrow} {
5094 global rowidlist rowisopt rowfinal displayorder
5095 global uparrowlen downarrowlen maxwidth mingaplen
5096 global children parentlist
5097 global commitidx viewcomplete curview
5100 set idlist {}
5106 }
5107 }
5109 }
5114 set final 1
5115 } else {
5123 # if not the first child, we have to insert a line going up
5126 }
5127 }
5128 }
5138 }
5139 }
5140 }
5147 }
5148 }
5158 }
5159 }
5167 }
5168 }
5169 }
5170 }
5171 }
5175 set final 0
5176 }
5180 lappend rowisopt 0
5186 }
5188 } else {
5195 }
5196 }
5198 }
5200 proc changedrow {row} {
5201 global displayorder iddrawn rowisopt need_redisplay
5210 }
5211 }
5212 }
5215 set need_redisplay 1
5216 }
5217 }
5219 proc insert_pad {row col npad} {
5220 global rowidlist
5229 }
5232 }
5234 proc optimize_rows {row col endrow} {
5235 global rowidlist rowisopt displayorder curview children
5238 set row 1
5239 }
5242 set haspad 0
5251 } else {
5252 set pprevidlist {}
5253 }
5254 set x0 -1
5255 set xm -1
5260 set haspad 1
5261 continue
5262 }
5266 set isarrow 0
5267 set z0 {}
5272 }
5273 }
5278 set isarrow 1
5279 }
5280 }
5283 set isarrow 1
5284 }
5285 # Looking at lines from this row to the previous row,
5286 # make them go straight up if they end in an arrow on
5287 # the previous row; otherwise make them go straight up
5288 # or at 45 degrees.
5290 # Line currently goes left too much;
5291 # insert pads in the previous row, then optimize it
5296 }
5304 }
5306 # Line currently goes right too much;
5307 # insert pads in this line
5313 set haspad 1
5314 }
5321 }
5322 }
5323 # avoid lines jigging left then immediately right
5326 incr x0
5329 }
5330 }
5332 # Find the first column that doesn't have a line going right
5338 # check if this is the link to the first child
5341 # it is, work out offset to child
5343 }
5344 }
5346 }
5347 # Insert a pad at that column as long as it has a line and
5348 # isn't the last column
5353 }
5354 }
5355 }
5356 }
5358 proc xc {row col} {
5359 global canvx0 linespc
5361 }
5363 proc yc {row} {
5364 global canvy0 linespc
5366 }
5368 proc linewidth {id} {
5369 global thickerline lthickness
5374 }
5376 }
5378 proc rowranges {id} {
5379 global curview children uparrowlen downarrowlen
5380 global rowidlist
5384 return {}
5385 }
5386 set ret {}
5391 if {![info exists prev]} {
5393 } else {
5395 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5396 }
5397 # see if the line extends the whole way from prevrow to row
5401 # it doesn't, see where it ends
5406 } else {
5409 incr r -1
5410 }
5412 # see where it starts up again
5417 } else {
5420 incr r
5421 }
5423 }
5424 }
5427 }
5430 }
5432 }
5434 proc drawlineseg {id row endrow arrowlow} {
5435 global rowidlist displayorder iddrawn linesegs
5436 global canv colormap linespc curview maxlinelen parentlist
5440 set arrowhigh 1
5441 while {1} {
5444 incr le -1
5445 break
5446 }
5450 set arrowhigh 0
5451 break
5452 }
5457 set arrowhigh 0
5458 }
5459 break
5460 }
5461 incr le
5462 }
5465 }
5467 set lines {}
5468 set i 0
5469 set joinhigh 0
5476 set joinhigh 1
5477 }
5478 break
5479 }
5480 incr i
5481 }
5482 }
5483 set joinlow 0
5488 set joinlow 1
5489 }
5490 }
5503 }
5504 } else {
5506 }
5514 set arrowlow 0
5515 }
5516 }
5524 }
5526 }
5529 # join parent line to first child
5540 } else {
5542 }
5550 }
5552 }
5554 } else {
5558 }
5566 } else {
5570 }
5572 }
5573 } else {
5579 }
5583 } else {
5584 # coalesce two pieces
5589 }
5593 }
5594 }
5598 }
5600 proc drawparentlinks {id row} {
5601 global rowidlist canv colormap curview parentlist
5602 global idpos linespc
5615 # rmx = right-most X coord used
5616 set rmx 0
5621 continue
5622 }
5626 }
5629 # drawlineseg will do this one for us
5630 continue
5631 }
5633 # should handle duplicated parents here...
5636 # if attaching to a vertical segment, draw a smaller
5637 # slant for visual distinctness
5641 } else {
5643 }
5645 # segment slants towards us already
5647 } else {
5652 }
5654 }
5655 } else {
5657 }
5662 }
5666 }
5667 }
5669 proc drawlines {id} {
5670 global canv
5673 }
5675 proc drawcmittext {id row col} {
5676 global linespc canv canv2 canv3 fgcolor curview
5677 global cmitlisted commitinfo rowidlist parentlist
5678 global rowtextx idpos idtags idheads idotherrefs
5679 global linehtag linentag linedtag selectedline
5680 global canvxmax boldids boldnameids fgcolor markedid
5681 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5683 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5686 set ofill red
5688 set ofill green
5690 set ofill yellow
5691 } else {
5693 }
5702 # triangle pointing left for left-side commits
5708 } else {
5709 # triangle pointing right for right-side commits
5715 }
5727 }
5728 }
5729 }
5736 }
5741 set font mainfont
5742 set nfont mainfont
5746 set font mainfontbold
5749 set nfont mainfontbold
5750 }
5751 }
5761 }
5764 }
5768 setcanvscroll
5769 }
5770 }
5772 proc drawcmitrow {row} {
5773 global displayorder rowidlist nrows_drawn
5774 global iddrawn markingmatches
5775 global commitinfo numcommits
5776 global filehighlight fhighlights findpattern nhighlights
5777 global hlview vhighlights
5778 global highlight_related rhighlights
5785 }
5788 }
5791 }
5794 }
5799 return
5800 }
5803 }
5807 incr nrows_drawn
5808 }
5811 }
5812 }
5814 proc drawcommits {row {endrow {}}} {
5815 global numcommits iddrawn displayorder curview need_redisplay
5816 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5819 set row 0
5820 }
5823 }
5826 }
5830 set rl1 0
5831 }
5834 set ro1 0
5835 }
5839 }
5844 }
5846 }
5847 }
5850 }
5853 clear_display
5854 }
5856 # make the lines join to already-drawn rows either side
5860 }
5865 }
5880 # see if this is the first child of any of its parents
5883 # make this line extend up to the child
5885 }
5886 }
5887 } else {
5889 }
5890 }
5891 }
5892 }
5894 proc undolayout {row} {
5895 global uparrowlen mingaplen downarrowlen
5896 global rowidlist rowisopt rowfinal need_redisplay
5900 set r 0
5901 }
5903 incr r -1
5907 set need_redisplay 1
5908 run drawvisible
5909 }
5910 }
5912 proc drawvisible {} {
5913 global canv linespc curview vrowmod selectedline targetrow targetid
5914 global need_redisplay cscroll numcommits
5924 if {[info exists targetid]} {
5928 # Fix up the scrollregion and change the scrolling position
5929 # now that our target row has moved.
5932 setcanvscroll
5940 set need_redisplay 1
5941 }
5942 } else {
5943 unset targetid
5944 }
5945 }
5951 }
5955 } elseif {[info exists targetid]} {
5957 }
5958 if {[info exists targetrow]} {
5961 }
5963 }
5965 }
5967 proc clear_display {} {
5968 global iddrawn linesegs need_redisplay nrows_drawn
5969 global vhighlights fhighlights nhighlights rhighlights
5970 global linehtag linentag linedtag boldids boldnameids
5972 allcanvs delete all
5973 catch {unset iddrawn}
5974 catch {unset linesegs}
5975 catch {unset linehtag}
5976 catch {unset linentag}
5977 catch {unset linedtag}
5978 set boldids {}
5979 set boldnameids {}
5980 catch {unset vhighlights}
5981 catch {unset fhighlights}
5982 catch {unset nhighlights}
5983 catch {unset rhighlights}
5984 set need_redisplay 0
5985 set nrows_drawn 0
5986 }
5988 proc findcrossings {id} {
5989 global rowidlist parentlist numcommits displayorder
5991 set cross {}
5992 set ccross {}
5996 }
6015 }
6016 }
6017 }
6018 }
6019 }
6021 }
6023 proc assigncolor {id} {
6024 global colormap colors nextcolor
6025 global parents children children curview
6031 } else {
6032 set kids {}
6033 }
6039 return
6040 }
6041 }
6042 set badcolors {}
6043 set origbad {}
6046 # delimiter between corner crossings and other crossings
6049 }
6053 }
6054 }
6057 }
6064 }
6069 }
6070 }
6071 }
6074 }
6075 }
6079 set nextcolor 0
6080 }
6082 }
6084 }
6086 proc bindline {t id} {
6087 global canv
6093 }
6095 proc drawtags {id x xt y1} {
6096 global idtags idheads idotherrefs mainhead
6097 global linespc lthickness
6098 global canv rowtextx curview fgcolor bgcolor ctxbut
6100 set marks {}
6101 set ntags 0
6102 set nheads 0
6106 }
6110 }
6113 }
6116 }
6121 set xvals {}
6122 set wvals {}
6123 set i -1
6125 incr i
6128 } else {
6130 }
6134 }
6141 set font mainfont
6142 if {[incr ntags -1] >= 0} {
6143 # draw a tag
6149 } else {
6150 # draw a head or other ref
6151 if {[incr nheads -1] >= 0} {
6152 set col green
6154 set font mainfontbold
6155 }
6156 } else {
6157 set col "#ddddff"
6158 }
6169 }
6170 }
6177 }
6178 }
6180 }
6182 proc xcoord {i level ln} {
6183 global canvx0 xspc1 xspc2
6190 }
6192 }
6194 proc show_status {msg} {
6195 global canv fgcolor
6197 clear_display
6200 }
6202 # Don't change the text pane cursor if it is currently the hand cursor,
6203 # showing that we are over a sha1 ID link.
6204 proc settextcursor {c} {
6205 global ctext curtextcursor
6209 }
6211 }
6213 proc nowbusy {what {name {}}} {
6214 global isbusy busyname statusw
6216 if {[array names isbusy] eq {}} {
6217 . config -cursor watch
6218 settextcursor watch
6219 }
6224 }
6225 }
6227 proc notbusy {what} {
6228 global isbusy maincursor textcursor busyname statusw
6230 catch {
6235 }
6236 }
6237 if {[array names isbusy] eq {}} {
6240 }
6241 }
6243 proc findmatches {f} {
6244 global findtype findstring
6247 } else {
6252 }
6253 set matches {}
6254 set i 0
6259 }
6260 }
6262 }
6264 proc dofind {{dirn 1} {wrap 1}} {
6265 global findstring findstartline findcurline selectedline numcommits
6266 global gdttype filehighlight fh_serial find_dirn findallowwrap
6268 if {[info exists find_dirn]} {
6270 stopfinding
6271 }
6272 focus .
6276 } else {
6278 }
6280 nowbusy finding [mc "Searching"]
6284 }
6287 run findmore
6288 }
6290 proc stopfinding {} {
6291 global find_dirn findcurline fprogcoord
6293 if {[info exists find_dirn]} {
6294 unset find_dirn
6295 unset findcurline
6296 notbusy finding
6297 set fprogcoord 0
6298 adjustprogress
6299 }
6300 stopblaming
6301 }
6303 proc findmore {} {
6304 global commitdata commitinfo numcommits findpattern findloc
6305 global findstartline findcurline findallowwrap
6306 global find_dirn gdttype fhighlights fprogcoord
6307 global curview varcorder vrownum varccommits vrowmod
6309 if {![info exists find_dirn]} {
6310 return 0
6311 }
6312 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6314 set moretodo 0
6316 incr l
6318 set l 0
6319 }
6322 } else {
6325 }
6326 } else {
6329 }
6330 incr l -1
6333 } else {
6334 set lim -1
6336 }
6337 }
6340 set n 500
6341 set moretodo 1
6342 }
6345 }
6346 set found 0
6347 set domore 1
6361 }
6363 # shouldn't happen unless git log doesn't give all the commits...
6366 continue
6367 }
6370 }
6375 set found 1
6376 break
6377 }
6378 }
6380 }
6381 } else {
6389 }
6394 }
6397 break
6398 }
6401 set domore 0
6403 }
6404 }
6405 }
6406 }
6408 unset findcurline
6409 unset find_dirn
6410 notbusy finding
6411 set fprogcoord 0
6412 adjustprogress
6415 } else {
6416 bell
6417 }
6418 return 0
6419 }
6421 flushhighlights
6422 } else {
6424 }
6428 }
6430 adjustprogress
6432 }
6434 proc findselectline {l} {
6435 global findloc commentend ctext findcurline markingmatches gdttype
6442 # highlight the matches in the comments
6449 }
6450 }
6451 drawvisible
6452 }
6454 # mark the bits of a headline or author that match a find string
6455 proc markmatches {canv l str tag matches font row} {
6456 global selectedline
6474 }
6475 }
6476 }
6478 proc unmarkmatches {} {
6479 global markingmatches
6481 allcanvs delete matches
6482 set markingmatches 0
6483 stopfinding
6484 }
6486 proc selcanvline {w x y} {
6487 global canv canvy0 ctext linespc
6488 global rowtextx
6495 set l 0
6496 }
6501 }
6502 unmarkmatches
6504 }
6506 proc commit_descriptor {p} {
6507 global commitinfo
6510 }
6511 set l "..."
6514 }
6516 }
6518 # append some text to the ctext widget, and make any SHA1 ID
6519 # that we know about be a clickable link.
6520 proc appendwithlinks {text tags} {
6521 global ctext linknum curview
6530 incr e
6534 incr linknum
6535 }
6536 }
6538 proc setlink {id lk} {
6539 global curview ctext pendinglinks
6541 set known 0
6546 set known 1
6548 }
6549 } else {
6551 }
6557 } else {
6560 }
6561 }
6563 proc appendshortlink {id {pre {}} {post {}}} {
6564 global ctext linknum
6571 incr linknum
6572 }
6574 proc makelink {id} {
6575 global pendinglinks
6580 }
6582 }
6584 proc linkcursor {w inc} {
6585 global linkentercount curtextcursor
6589 } else {
6592 set linkentercount 0
6593 }
6594 }
6595 }
6597 proc viewnextline {dir} {
6598 global canv linespc
6606 set newtop 0
6609 }
6611 }
6613 # add a list of tag or branch names at position pos
6614 # returns the number of names inserted
6615 proc appendrefs {pos ids var} {
6619 return 0
6620 }
6623 set tags {}
6627 }
6628 }
6631 } else {
6633 set sep {}
6637 incr linknum
6642 set sep ", "
6643 }
6644 }
6647 }
6649 # called when we have finished computing the nearby tags
6650 proc dispneartags {delay} {
6651 global selectedline currentid showneartags tagphase
6654 after cancel dispnexttag
6656 after 200 dispnexttag
6657 set tagphase -1
6658 } else {
6659 after idle dispnexttag
6660 set tagphase 0
6661 }
6662 }
6664 proc dispnexttag {} {
6665 global selectedline currentid showneartags tagphase ctext
6669 0 {
6673 }
6674 }
6675 1 {
6679 }
6680 }
6681 2 {
6686 # turn "Branch" into "Branches"
6690 }
6691 }
6692 }
6693 }
6694 if {[incr tagphase] <= 2} {
6695 after idle dispnexttag
6696 }
6697 }
6699 proc make_secsel {id} {
6700 global linehtag linentag linedtag canv canv2 canv3
6715 }
6717 proc make_idmark {id} {
6718 global linehtag canv fgcolor
6725 }
6727 proc selectline {l isnew {desired_loc {}}} {
6728 global canv ctext commitinfo selectedline
6729 global canvy0 linespc parents children curview
6730 global currentid sha1entry
6731 global commentend idtags linknum
6732 global mergemax numcommits pending_select
6733 global cmitmode showneartags allcommits
6734 global targetrow targetid lastscrollrows
6735 global autoselect jump_to_here
6737 catch {unset pending_select}
6739 normalline
6740 unsel_reflist
6741 stopfinding
6749 setcanvscroll
6750 }
6764 } else {
6768 }
6769 }
6773 } else {
6777 }
6778 }
6779 }
6782 set newtop 0
6783 }
6785 drawvisible
6786 }
6792 }
6799 }
6803 clear_ctext
6804 set linknum 0
6807 }
6817 }
6819 }
6821 set headers {}
6824 set np 0
6827 set tag mmax
6828 } else {
6830 }
6833 incr np
6834 }
6835 } else {
6838 }
6839 }
6843 }
6845 # make anything that looks like a SHA1 ID be a clickable link
6848 if {![info exists allcommits]} {
6849 getallcommits
6850 }
6861 dispneartags 1
6862 }
6867 }
6875 init_flist [mc "Comments"]
6880 } else {
6882 }
6883 }
6885 proc selfirstline {} {
6886 unmarkmatches
6887 selectline 0 1
6888 }
6890 proc sellastline {} {
6891 global numcommits
6892 unmarkmatches
6895 }
6897 proc selnextline {dir} {
6898 global selectedline
6899 focus .
6902 unmarkmatches
6904 }
6906 proc selnextpage {dir} {
6907 global canv linespc selectedline numcommits
6911 set lpp 1
6912 }
6914 drawvisible
6918 set l 0
6921 }
6922 unmarkmatches
6924 }
6926 proc unselectline {} {
6927 global selectedline currentid
6929 set selectedline {}
6930 catch {unset currentid}
6931 allcanvs delete secsel
6932 rhighlight_none
6933 }
6935 proc reselectline {} {
6936 global selectedline
6940 }
6941 }
6943 proc addtohistory {cmd} {
6944 global history historyindex curview
6949 return
6950 }
6954 } else {
6956 }
6957 incr historyindex
6959 .tf.bar.leftbut conf -state normal
6960 } else {
6961 .tf.bar.leftbut conf -state disabled
6962 }
6963 .tf.bar.rightbut conf -state disabled
6964 }
6966 proc godo {elt} {
6967 global curview
6973 }
6975 }
6977 proc goback {} {
6978 global history historyindex
6979 focus .
6982 incr historyindex -1
6984 .tf.bar.rightbut conf -state normal
6985 }
6987 .tf.bar.leftbut conf -state disabled
6988 }
6989 }
6991 proc goforw {} {
6992 global history historyindex
6993 focus .
6997 incr historyindex
6999 .tf.bar.leftbut conf -state normal
7000 }
7002 .tf.bar.rightbut conf -state disabled
7003 }
7004 }
7006 proc gettree {id} {
7007 global treefilelist treeidlist diffids diffmergeid treepending
7008 global nullid nullid2
7011 catch {unset diffmergeid}
7013 if {![info exists treepending]} {
7015 set cmd [list | git ls-files]
7017 set cmd [list | git ls-files --stage -t]
7018 } else {
7020 }
7022 return
7023 }
7029 }
7030 } else {
7032 }
7033 }
7035 proc gettreeline {gtf id} {
7036 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7038 set nl 0
7042 } else {
7050 }
7053 }
7056 }
7059 }
7061 unset treepending
7063 if {![info exists diffmergeid]} {
7065 }
7068 } else {
7070 }
7071 return 0
7072 }
7074 proc showfile {f} {
7075 global treefilelist treeidlist diffids nullid nullid2
7076 global ctext_file_names ctext_file_lines
7077 global ctext commentend
7082 return
7083 }
7087 return
7088 }
7089 } else {
7093 return
7094 }
7095 }
7106 settabs 0
7107 }
7109 proc getblobline {bf id} {
7110 global diffids cmitmode ctext
7114 return 0
7115 }
7117 set nl 0
7120 }
7122 global jump_to_here ctext_file_names commentend
7124 # delete last newline
7132 }
7133 return 0
7134 }
7137 }
7139 proc mark_ctext_line {lnum} {
7140 global ctext markbgcolor
7146 }
7148 proc mergediff {id} {
7149 global diffmergeid
7150 global diffids treediffs
7151 global parents curview
7159 }
7161 proc startdiff {ids} {
7162 global treediffs diffids treepending diffmergeid nullid nullid2
7164 settabs 1
7166 catch {unset diffmergeid}
7170 if {![info exists treepending]} {
7172 }
7173 } else {
7175 }
7176 }
7178 proc path_filter {filter name} {
7183 return 1
7184 }
7185 } else {
7189 return 1
7190 }
7191 }
7192 }
7193 return 0
7194 }
7196 proc addtocflist {ids} {
7197 global treediffs
7201 }
7203 proc diffcmd {ids flags} {
7204 global nullid nullid2
7210 # comparing working directory with some specific revision
7214 } else {
7216 }
7217 } else {
7218 # comparing working directory with index
7221 lappend cmd -R
7222 }
7223 }
7227 # comparing index with specific revision
7230 } else {
7232 }
7233 } else {
7234 # comparing index with HEAD
7235 lappend cmd HEAD
7236 }
7237 } else {
7239 }
7241 }
7243 proc gettreediffs {ids} {
7244 global treediff treepending
7249 set treediff {}
7252 }
7254 proc gettreediffline {gdtf ids} {
7255 global treediff treediffs treepending diffids diffmergeid
7256 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7258 set nr 0
7259 set sublist {}
7260 set max 1000
7262 # cache_gitattr is slow, and even slower on win32 where we
7263 # have to invoke it for only about 30 paths at a time
7264 set max 500
7265 if {[tk windowingsystem] == "win32"} {
7266 set max 120
7267 }
7268 }
7275 }
7280 }
7281 }
7282 }
7285 }
7288 }
7291 set flist {}
7295 }
7296 }
7298 } else {
7300 }
7301 unset treepending
7305 if {![info exists diffmergeid]} {
7307 }
7308 } else {
7310 }
7311 return 0
7312 }
7314 # empty string or positive integer
7315 proc diffcontextvalidate {v} {
7317 }
7319 proc diffcontextchange {n1 n2 op} {
7320 global diffcontextstring diffcontext
7325 reselectline
7326 }
7327 }
7328 }
7330 proc changeignorespace {} {
7331 reselectline
7332 }
7334 proc getblobdiffs {ids} {
7335 global blobdifffd diffids env
7336 global diffinhdr treediffs
7337 global diffcontext
7338 global ignorespace
7339 global limitdiffs vfilelimit curview
7340 global diffencoding targetline diffnparents
7341 global git_version
7343 set textconv {}
7345 set textconv "--textconv"
7346 }
7347 set submodule {}
7349 set submodule "--submodule"
7350 }
7353 append cmd " -w"
7354 }
7357 }
7360 return
7361 }
7362 set targetline {}
7363 set diffnparents 0
7364 set diffinhdr 0
7365 set diffencoding [get_path_encoding {}]
7369 }
7371 proc setinlist {var i val} {
7376 }
7379 } else {
7381 }
7382 }
7384 proc makediffhdr {fname ids} {
7385 global ctext curdiffstart treediffs diffencoding
7386 global ctext_file_names jump_to_here targetline diffline
7393 }
7398 set targetline {}
7401 }
7402 set diffline 0
7403 }
7405 proc getblobdiffline {bdf ids} {
7406 global diffids blobdifffd ctext curdiffstart
7407 global diffnexthead diffnextnote difffilestart
7408 global ctext_file_names ctext_file_lines
7409 global diffinhdr treediffs mergemax diffnparents
7410 global diffencoding jump_to_here targetline diffline
7412 set nr 0
7417 return 0
7418 }
7423 continue
7424 }
7425 # start of a new file
7426 set diffinhdr 1
7429 lappend ctext_file_names ""
7434 # start of a new file in a merge diff
7439 }
7441 } else {
7443 # If the name hasn't changed the length will be odd,
7444 # the middle char will be a space, and the two bits either
7445 # side will be a/name and b/name, or "a/name" and "b/name".
7446 # If the name has changed we'll get "rename from" and
7447 # "rename to" or "copy from" and "copy to" lines following
7448 # this, and we'll use them to get the filenames.
7449 # This complexity is necessary because spaces in the
7450 # filename(s) don't get escaped.
7456 continue
7457 }
7458 # unescape if quoted and chop off the a/ from the front
7461 } else {
7463 }
7464 }
7477 }
7485 }
7487 set diffinhdr 0
7490 # start of a new submodule
7493 }
7495 lappend ctext_file_names ""
7509 }
7514 }
7520 }
7523 # do nothing
7524 continue
7526 set diffinhdr 0
7527 continue
7528 }
7531 } else {
7532 set line [string map {\x1A ^Z} \
7534 # parse the prefix - one ' ', '-' or '+' for each parent
7538 # prefix only has " ", "-" and "+" in it: normal diff line
7543 set num "max"
7544 }
7546 } else {
7547 set tags {}
7549 # added line
7555 set num "max"
7556 }
7558 }
7559 }
7560 }
7564 set targetline {}
7565 } else {
7566 incr diffline
7567 }
7568 }
7570 }
7571 } else {
7572 # "\ No newline at end of file",
7573 # or something else we don't recognize
7575 }
7576 }
7577 }
7578 if {[info exists seehere]} {
7580 }
7584 return 0
7585 }
7587 }
7589 proc changediffdisp {} {
7590 global ctext diffelide
7594 }
7596 proc highlightfile {loc cline} {
7597 global ctext cflist cflist_top
7604 }
7606 proc prevfile {} {
7607 global difffilestart ctext cmitmode
7610 set prev 0.0
7611 set prevline 1
7616 return
7617 }
7619 incr prevline
7620 }
7622 }
7624 proc nextfile {} {
7625 global difffilestart ctext cmitmode
7629 set line 1
7631 incr line
7634 return
7635 }
7636 }
7637 }
7639 proc clear_ctext {{first 1.0}} {
7640 global ctext smarktop smarkbot
7641 global ctext_file_names ctext_file_lines
7642 global pendinglinks
7647 }
7650 }
7653 catch {unset pendinglinks}
7654 }
7655 set ctext_file_names {}
7656 set ctext_file_lines {}
7657 }
7659 proc settabs {{firstab {}}} {
7660 global firsttabstop tabstop ctext have_tk85
7664 }
7665 set w [font measure textfont "0"]
7671 } else {
7673 }
7674 }
7676 proc incrsearch {name ix op} {
7677 global ctext searchstring searchdirn
7681 # no anchor set, use start of selection, or of visible area
7687 } else {
7689 }
7690 }
7695 }
7696 searchmarkvisible 1
7697 }
7698 }
7700 proc dosearch {} {
7701 global sstring ctext searchstring searchdirn
7705 set searchdirn -forwards
7711 set start "@0,0"
7712 }
7716 bell
7717 return
7718 }
7723 }
7724 }
7726 proc dosearchback {} {
7727 global sstring ctext searchstring searchdirn
7731 set searchdirn -backwards
7738 }
7742 bell
7743 return
7744 }
7749 }
7750 }
7752 proc searchmark {first last} {
7753 global ctext searchstring
7756 while {1} {
7761 }
7762 }
7764 proc searchmarkvisible {doall} {
7765 global ctext smarktop smarkbot
7770 # no overlap with previous
7774 } else {
7778 }
7782 }
7783 }
7784 }
7786 proc scrolltext {f0 f1} {
7787 global searchstring
7791 searchmarkvisible 0
7792 }
7793 }
7795 proc setcoords {} {
7796 global linespc charspc canvx0 canvy0
7797 global xspc1 xspc2 lthickness
7799 set linespc [font metrics mainfont -linespace]
7800 set charspc [font measure mainfont "m"]
7806 }
7808 proc redisplay {} {
7809 global canv
7810 global selectedline
7815 clear_display
7816 setcanvscroll
7818 drawvisible
7822 }
7823 }
7825 proc parsefont {f n} {
7826 global fontattr
7831 set s 10
7834 }
7840 "normal" -
7842 "roman" -
7844 }
7845 }
7846 }
7848 proc fontflags {f {isbold 0}} {
7849 global fontattr
7854 }
7856 proc fontname {f} {
7857 global fontattr
7861 lappend n "bold"
7862 }
7864 lappend n "italic"
7865 }
7867 }
7869 proc incrfont {inc} {
7870 global mainfont textfont ctext canv cflist showrefstop
7871 global stopped entries fontattr
7873 unmarkmatches
7877 set s 1
7878 }
7882 set mainfont [fontname mainfont]
7886 set s 1
7887 }
7891 set textfont [fontname textfont]
7892 setcoords
7893 settabs
7894 redisplay
7895 }
7897 proc clearsha1 {} {
7898 global sha1entry sha1string
7901 }
7902 }
7904 proc sha1change {n1 n2 op} {
7905 global sha1string currentid sha1but
7908 set state disabled
7909 } else {
7910 set state normal
7911 }
7915 } else {
7917 }
7918 }
7920 proc gotocommit {} {
7921 global sha1string tagids headids curview varcid
7929 } else {
7936 return
7937 }
7939 }
7940 } else {
7943 return
7944 }
7945 }
7946 }
7949 return
7950 }
7953 } else {
7955 }
7957 }
7959 proc lineenter {x y id} {
7960 global hoverx hovery hoverid hovertimer
7961 global commitinfo canv
7967 if {[info exists hovertimer]} {
7969 }
7970 set hovertimer [after 500 linehover]
7972 }
7974 proc linemotion {x y id} {
7975 global hoverx hovery hoverid hovertimer
7980 if {[info exists hovertimer]} {
7982 }
7983 set hovertimer [after 500 linehover]
7984 }
7985 }
7987 proc lineleave {id} {
7988 global hoverid hovertimer canv
7992 if {[info exists hovertimer]} {
7994 unset hovertimer
7995 }
7996 unset hoverid
7997 }
7998 }
8000 proc linehover {} {
8001 global hoverx hovery hoverid hovertimer
8002 global canv linespc lthickness
8003 global commitinfo
8016 -fill \#ffff80 -outline black -width 1 -tags hover]
8019 -font mainfont]
8021 }
8023 proc clickisonarrow {id y} {
8024 global lthickness
8033 }
8034 }
8035 return {}
8036 }
8038 proc arrowjump {id n y} {
8039 global canv
8041 # 1 <-> 2, 3 <-> 4, etc...
8051 set yfrac 0
8052 }
8054 }
8056 proc lineclick {x y id isnew} {
8057 global ctext commitinfo children canv thickerline curview
8060 unmarkmatches
8061 unselectline
8062 normalline
8064 # draw this line thicker than normal
8072 }
8076 return
8077 }
8081 }
8082 # fill the details pane with info about this line
8084 clear_ctext
8085 settabs 0
8097 set i 0
8099 incr i
8109 }
8110 }
8112 init_flist {}
8113 }
8115 proc normalline {} {
8116 global thickerline
8117 if {[info exists thickerline]} {
8119 unset thickerline
8121 }
8122 }
8124 proc selbyid {id} {
8125 global curview
8128 }
8129 }
8131 proc mstime {} {
8132 global startmstime
8133 if {![info exists startmstime]} {
8134 set startmstime [clock clicks -milliseconds]
8135 }
8137 }
8139 proc rowmenu {x y id} {
8140 global rowctxmenu selectedline rowmenuid curview
8141 global nullid nullid2 fakerowmenu mainhead markedid
8143 stopfinding
8146 set state disabled
8147 } else {
8148 set state normal
8149 }
8154 } else {
8156 }
8161 } else {
8165 }
8166 } else {
8168 }
8173 }
8175 proc markhere {} {
8176 global rowmenuid markedid canv
8180 }
8182 proc gotomark {} {
8183 global markedid
8185 if {[info exists markedid]} {
8187 }
8188 }
8190 proc replace_by_kids {l r} {
8191 global curview children
8197 }
8199 }
8201 proc find_common_desc {} {
8202 global markedid rowmenuid curview children
8204 if {![info exists markedid]} return
8207 #set t1 [clock clicks -milliseconds]
8210 while 1 {
8216 break
8217 }
8220 } else {
8222 }
8223 }
8224 #set t2 [clock clicks -milliseconds]
8226 }
8228 proc compare_commits {} {
8229 global markedid rowmenuid curview children
8231 if {![info exists markedid]} return
8235 }
8237 proc getpatchid {id} {
8238 global patchids
8242 # trim off the initial "|"
8244 if {[catch {
8247 }]} {
8249 }
8250 }
8252 }
8254 proc do_cmp_commits {a b} {
8255 global ctext curview parents children patchids commitinfo
8258 clear_ctext
8259 init_flist {}
8261 set skipa 0
8262 set skipb 0
8265 set skipa 1
8266 } else {
8268 }
8271 set skipb 1
8272 } else {
8274 }
8280 [mc " - stopping\n"]
8281 break
8282 }
8285 [mc " - stopping\n"]
8286 break
8287 }
8292 } else {
8296 }
8297 set skipa 1
8298 set skipb 1
8299 } else {
8306 update
8308 return
8309 }
8310 }
8315 [mc " has %s children - stopping\n" \
8317 break
8318 }
8320 }
8324 [mc " has %s children - stopping\n" \
8326 break
8327 }
8329 }
8330 }
8332 }
8334 proc diffcommits {a b} {
8335 global diffcontext diffids blobdifffd diffinhdr
8337 set tmpdir [gitknewtmpdir]
8340 if {[catch {
8343 } err]} {
8345 return
8346 }
8347 if {[catch {
8349 } err]} {
8351 return
8352 }
8355 set diffinhdr 0
8357 }
8359 proc diffvssel {dirn} {
8360 global rowmenuid selectedline
8366 } else {
8369 }
8372 }
8374 proc doseldiff {oldid newid} {
8375 global ctext
8376 global commitinfo
8379 clear_ctext
8380 init_flist [mc "Top"]
8395 }
8397 proc mkpatch {} {
8398 global rowmenuid currentid commitinfo patchtop patchnum
8400 if {![info exists currentid]} return
8405 set top .patch
8435 incr patchnum
8447 }
8449 proc mkpatchrev {} {
8450 global patchtop
8456 foreach e [list fromsha1 fromhead tosha1 tohead] \
8462 }
8463 }
8465 proc mkpatchgo {} {
8466 global patchtop nullid nullid2
8472 # trim off the initial "|"
8477 }
8479 unset patchtop
8480 }
8482 proc mkpatchcan {} {
8483 global patchtop
8486 unset patchtop
8487 }
8489 proc mktag {} {
8490 global rowmenuid mktagtop commitinfo
8492 set top .maketag
8521 }
8523 proc domktag {} {
8524 global mktagtop env tagids idtags
8530 return 0
8531 }
8534 return 0
8535 }
8536 if {[catch {
8538 } err]} {
8540 return 0
8541 }
8547 dispneartags 0
8548 run refill_reflist
8549 return 1
8550 }
8552 proc redrawtags {id} {
8553 global canv linehtag idpos currentid curview cmitlisted markedid
8554 global canvxmax iddrawn circleitem mainheadid circlecolors
8560 set ofill yellow
8561 } else {
8563 }
8573 setcanvscroll
8574 }
8577 }
8580 }
8581 }
8583 proc mktagcan {} {
8584 global mktagtop
8587 unset mktagtop
8588 }
8590 proc mktaggo {} {
8591 if {![domktag]} return
8592 mktagcan
8593 }
8595 proc writecommit {} {
8596 global rowmenuid wrcomtop commitinfo wrcomcmd
8598 set top .writecommit
8631 }
8633 proc wrcomgo {} {
8634 global wrcomtop
8641 }
8643 unset wrcomtop
8644 }
8646 proc wrcomcan {} {
8647 global wrcomtop
8650 unset wrcomtop
8651 }
8653 proc mkbranch {} {
8654 global rowmenuid mkbrtop
8656 set top .makebranch
8680 }
8682 proc mkbrgo {top} {
8683 global headids idheads
8687 set cmdargs {}
8688 set old_id {}
8691 return
8692 }
8694 if {![confirm_popup [mc \
8696 return
8697 }
8699 lappend cmdargs -f
8700 }
8703 nowbusy newbranch
8704 update
8705 if {[catch {
8707 } err]} {
8708 notbusy newbranch
8710 } else {
8711 notbusy newbranch
8717 } else {
8722 }
8723 dispneartags 0
8724 run refill_reflist
8725 }
8726 }
8728 proc exec_citool {tool_args {baseid {}}} {
8729 global commitinfo env
8731 set save_env [array get env GIT_AUTHOR_*]
8736 }
8739 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8745 }
8746 }
8750 array unset env GIT_AUTHOR_*
8752 }
8754 proc cherrypick {} {
8755 global rowmenuid curview
8756 global mainhead mainheadid
8758 set oldhead [exec git rev-parse HEAD]
8761 set ok [confirm_popup [mc "Commit %s is already\
8762 included in branch %s -- really re-apply it?" \
8765 }
8766 nowbusy cherrypick [mc "Cherry-picking"]
8767 update
8768 # Unfortunately git-cherry-pick writes stuff to stderr even when
8769 # no error occurs, and exec takes that as an indication of error...
8771 notbusy cherrypick
8772 if {[regexp -line \
8773 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8775 error_popup [mc "Cherry-pick failed because of local changes\
8776 to file '%s'.\nPlease commit, reset or stash\
8778 } elseif {[regexp -line \
8779 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8781 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8782 conflict.\nDo you wish to run git citool to\
8783 resolve it?"]]} {
8784 # Force citool to read MERGE_MSG
8785 file delete [file join [gitdir] "GITGUI_MSG"]
8787 }
8788 } else {
8790 }
8791 run updatecommits
8792 return
8793 }
8794 set newhead [exec git rev-parse HEAD]
8796 notbusy cherrypick
8797 error_popup [mc "No changes committed"]
8798 return
8799 }
8802 # XXX this isn't right if we have a path limit...
8807 }
8812 }
8813 notbusy cherrypick
8814 }
8816 proc resethead {} {
8817 global mainhead rowmenuid confirm_ok resettype
8819 set confirm_ok 0
8820 set w ".confirmreset"
8826 -justify center -aspect 1000
8831 set resettype mixed
8833 -text [mc "Soft: Leave working tree and index untouched"]
8836 -text [mc "Mixed: Leave working tree untouched, reset index"]
8839 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8850 if {[catch {set fd [open \
8853 } else {
8854 dohidelocalchanges
8856 nowbusy reset [mc "Resetting"]
8858 }
8859 }
8861 proc readresetstat {fd} {
8862 global mainhead mainheadid showlocalchanges rprogcoord
8867 adjustprogress
8868 }
8869 return 1
8870 }
8871 set rprogcoord 0
8872 adjustprogress
8873 notbusy reset
8876 }
8878 set newhead [exec git rev-parse HEAD]
8885 }
8887 doshowlocalchanges
8888 }
8889 return 0
8890 }
8892 # context menu for a head
8893 proc headmenu {x y id head} {
8894 global headmenuid headmenuhead headctxmenu mainhead
8896 stopfinding
8899 set state normal
8901 set state disabled
8902 }
8904 set state disabled
8905 }
8909 }
8911 proc cobranch {} {
8912 global headmenuid headmenuhead headids
8913 global showlocalchanges
8915 # check the tree is clean first??
8916 nowbusy checkout [mc "Checking out"]
8917 update
8918 dohidelocalchanges
8919 if {[catch {
8921 } err]} {
8922 notbusy checkout
8925 dodiffindex
8926 }
8927 } else {
8929 }
8930 }
8932 proc readcheckoutstat {fd newhead newheadid} {
8933 global mainhead mainheadid headids showlocalchanges progresscoords
8934 global viewmainheadid curview
8939 adjustprogress
8940 }
8941 return 1
8942 }
8943 set progresscoords {0 0}
8944 adjustprogress
8945 notbusy checkout
8948 }
8957 dodiffindex
8958 }
8959 }
8961 proc rmbranch {} {
8962 global headmenuid headmenuhead mainhead
8963 global idheads
8967 # this check shouldn't be needed any more...
8969 error_popup [mc "Cannot delete the currently checked-out branch"]
8970 return
8971 }
8974 # the stuff on this branch isn't on any other branch
8975 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8977 }
8978 nowbusy rmbranch
8979 update
8981 notbusy rmbranch
8983 return
8984 }
8988 notbusy rmbranch
8989 dispneartags 0
8990 run refill_reflist
8991 }
8993 # Display a list of tags and heads
8994 proc showrefs {} {
8995 global showrefstop bgcolor fgcolor selectbgcolor
8996 global bglist fglist reflistfilter reflist maincursor
8998 set top .showrefs
9002 refill_reflist
9003 return
9004 }
9012 -spacing1 1 -spacing3 1 -state disabled
9023 set reflistfilter "*"
9024 trace add variable reflistfilter write reflistfilter_change
9036 set reflist {}
9037 refill_reflist
9038 }
9040 proc sel_reflist {w x y} {
9041 global showrefstop reflist headids tagids otherrefids
9051 }
9053 }
9055 proc unsel_reflist {} {
9056 global showrefstop
9060 }
9062 proc reflistfilter_change {n1 n2 op} {
9063 global reflistfilter
9065 after cancel refill_reflist
9066 after 200 refill_reflist
9067 }
9069 proc refill_reflist {} {
9070 global reflist reflistfilter showrefstop headids tagids otherrefids
9071 global curview
9074 set refs {}
9075 foreach n [array names headids] {
9079 } else {
9081 }
9082 }
9083 }
9084 foreach n [array names tagids] {
9088 } else {
9090 }
9091 }
9092 }
9093 foreach n [array names otherrefids] {
9097 } else {
9099 }
9100 }
9101 }
9109 set i 0
9110 set j 0
9119 }
9120 } else {
9121 set cmp -1
9122 }
9123 } else {
9124 set cmp 1
9125 }
9127 -1 {
9129 incr i
9130 }
9131 0 {
9132 incr i
9133 incr j
9134 }
9135 1 {
9140 incr j
9141 }
9142 }
9143 }
9145 # delete last newline
9148 }
9150 # Stuff for finding nearby tags
9151 proc getallcommits {} {
9152 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9153 global idheads idtags idotherrefs allparents tagobjid
9155 if {![info exists allcommits]} {
9156 set nextarc 0
9157 set allcommits 0
9158 set seeds {}
9159 set allcwait 0
9160 set cachedarcs 0
9161 set allccache [file join [gitdir] "gitk.cache"]
9162 if {![catch {
9164 set allcwait 1
9166 }]} return
9167 }
9170 return
9171 }
9172 set cmd [list | git rev-list --parents]
9175 set ids "--all"
9176 } else {
9177 set refs [concat [array names idheads] [array names idtags] \
9178 [array names idotherrefs]]
9179 set ids {}
9180 set tagobjs {}
9181 foreach name [array names tagobjid] {
9183 }
9188 }
9189 }
9193 }
9194 }
9195 }
9199 incr allcommits
9200 nowbusy allcommits
9202 } else {
9203 dispneartags 0
9204 }
9205 }
9207 # Since most commits have 1 parent and 1 child, we group strings of
9208 # such commits into "arcs" joining branch/merge points (BMPs), which
9209 # are commits that either don't have 1 parent or don't have 1 child.
9210 #
9211 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9212 # arcout(id) - outgoing arcs for BMP
9213 # arcids(a) - list of IDs on arc including end but not start
9214 # arcstart(a) - BMP ID at start of arc
9215 # arcend(a) - BMP ID at end of arc
9216 # growing(a) - arc a is still growing
9217 # arctags(a) - IDs out of arcids (excluding end) that have tags
9218 # archeads(a) - IDs out of arcids (excluding end) that have heads
9219 # The start of an arc is at the descendent end, so "incoming" means
9220 # coming from descendents, and "outgoing" means going towards ancestors.
9222 proc getallclines {fd} {
9223 global allparents allchildren idtags idheads nextarc
9224 global arcnos arcids arctags arcout arcend arcstart archeads growing
9225 global seeds allcommits cachedarcs allcupdate
9227 set nid 0
9231 # seen it already
9232 continue
9233 }
9234 set cachedarcs 0
9241 } else {
9247 }
9250 }
9252 # seen parent already
9255 }
9259 }
9262 continue
9263 }
9264 }
9269 }
9271 set ao {}
9274 set a [incr nextarc]
9283 # seen it already, may need to make a new branch
9286 }
9290 }
9292 }
9294 }
9296 global cached_dheads cached_dtags cached_atags
9297 catch {unset cached_dheads}
9298 catch {unset cached_dtags}
9299 catch {unset cached_atags}
9300 }
9303 }
9304 set cacheok 1
9305 if {[catch {
9308 } err]} {
9309 # got an error reading the list of commits
9310 # if we were updating, try rereading the whole thing again
9312 incr allcommits -1
9314 return
9315 }
9316 error_popup "[mc "Error reading commit topology information;\
9317 branch and preceding/following tag information\
9319 set cacheok 0
9320 }
9321 if {[incr allcommits -1] == 0} {
9322 notbusy allcommits
9324 run savecache
9325 }
9326 }
9327 dispneartags 0
9328 return 0
9329 }
9331 proc recalcarc {a} {
9332 global arctags archeads arcids idtags idheads
9334 set at {}
9335 set ah {}
9339 }
9342 }
9343 }
9346 }
9348 proc splitarc {p} {
9349 global arcnos arcids nextarc arctags archeads idtags idheads
9350 global arcstart arcend arcout allparents growing
9355 return
9356 }
9361 return
9362 }
9363 set na [incr nextarc]
9366 } else {
9370 }
9380 }
9385 } else {
9388 }
9389 }
9391 # reconstruct tags and heads lists
9395 } else {
9398 }
9399 }
9401 # Update things for a new commit added that is a child of one
9402 # existing commit. Used when cherry-picking.
9403 proc addnewchild {id p} {
9404 global allparents allchildren idtags nextarc
9405 global arcnos arcids arctags arcout arcend arcstart archeads growing
9406 global seeds allcommits
9414 set a [incr nextarc]
9422 }
9425 }
9427 # This implements a cache for the topology information.
9428 # The cache saves, for each arc, the start and end of the arc,
9429 # the ids on the arc, and the outgoing arcs from the end.
9430 proc readcache {f} {
9431 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9432 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9433 global allcwait
9439 }
9440 if {[catch {
9442 # finish reading the cache and setting up arctags, etc.
9446 foreach id [array names idtags] {
9452 }
9453 }
9454 }
9455 foreach id [array names idheads] {
9461 }
9462 }
9463 }
9467 }
9468 }
9469 set allcwait 0
9470 } else {
9480 }
9484 } else {
9488 }
9489 }
9495 }
9498 }
9501 }
9503 }
9504 } err]} {
9506 return 0
9507 }
9509 getallcommits
9510 }
9512 }
9514 proc getcache {f} {
9515 global nextarc cachedarcs possible_seeds
9517 if {[catch {
9520 # make sure it's an integer
9523 set nextarc 0
9524 set possible_seeds {}
9526 } err]} {
9528 }
9529 return 0
9530 }
9532 proc dropcache {err} {
9533 global allcwait nextarc cachedarcs seeds
9536 foreach v {arcnos arcout arcids arcstart arcend growing \
9537 arctags archeads allparents allchildren} {
9540 }
9541 set allcwait 0
9542 set nextarc 0
9543 set cachedarcs 0
9544 set seeds {}
9545 getallcommits
9546 }
9548 proc writecache {f} {
9549 global cachearc cachedarcs allccache
9550 global arcstart arcend arcnos arcids arcout
9556 }
9557 if {[catch {
9561 } else {
9563 }
9564 }
9565 } err]} {
9569 return 0
9570 }
9575 return 0
9576 }
9577 return 1
9578 }
9580 proc savecache {} {
9581 global nextarc cachedarcs cachearc allccache
9584 set cachearc 0
9586 catch {
9590 }
9591 }
9593 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9594 # or 0 if neither is true.
9595 proc anc_or_desc {a b} {
9596 global arcout arcstart arcend arcnos cached_isanc
9599 # Both are on the same arc(s); either both are the same BMP,
9600 # or if one is not a BMP, the other is also not a BMP or is
9601 # the BMP at end of the arc (and it only has 1 incoming arc).
9602 # Or both can be BMPs with no incoming arcs.
9604 return 0
9605 }
9611 return 1
9612 } else {
9613 return -1
9614 }
9615 }
9621 } else {
9622 set aend {}
9623 }
9625 } else {
9627 }
9632 } else {
9633 set bend {}
9634 }
9636 } else {
9638 }
9640 return 1
9641 }
9643 return -1
9644 }
9647 return 1
9648 }
9649 }
9652 return -1
9653 }
9655 return 0
9656 }
9657 }
9665 continue
9666 }
9672 return 1
9676 return -1
9677 }
9683 }
9684 }
9685 }
9688 return 0
9689 }
9693 # and returns 0 if so and 1 if not.
9694 # If we subsequently discover a tag on such a growing tip, and that
9697 # isn't a good choice to display as a descendent tag of
9701 #
9702 proc is_certain {desc anc} {
9703 global arcnos arcout arcstart arcend growing problems
9705 set certain {}
9707 # tags on the same arc are certain
9709 return 1
9710 }
9715 }
9716 }
9719 } else {
9722 }
9724 return 1
9725 }
9728 set nnh 1
9729 set ngrowanc 0
9733 incr nnh -1
9734 }
9740 incr ngrowanc
9741 }
9742 } else {
9749 incr nnh -1
9750 }
9752 incr ngrowanc -1
9753 }
9763 incr nnh -1
9764 }
9766 incr ngrowanc -1
9767 }
9769 }
9770 }
9771 }
9772 }
9773 }
9774 }
9778 } else {
9781 incr nnh
9782 }
9783 }
9784 }
9785 }
9786 foreach x [array names growanc] {
9788 return 0
9789 }
9790 return 0
9791 }
9792 return 1
9793 }
9795 proc validate_arctags {a} {
9796 global arctags idtags
9798 set i -1
9801 incr i
9804 incr i -1
9805 }
9806 }
9808 }
9810 proc validate_archeads {a} {
9811 global archeads idheads
9813 set i -1
9816 incr i
9819 incr i -1
9820 }
9821 }
9823 }
9825 # Return the list of IDs that have tags that are descendents of id,
9826 # ignoring IDs that are descendents of IDs already reported.
9827 proc desctags {id} {
9828 global arcnos arcstart arcids arctags idtags allparents
9829 global growing cached_dtags
9832 return {}
9833 }
9834 set t1 [clock clicks -milliseconds]
9837 # part-way along an arc; check that arc first
9842 set tid {}
9847 }
9850 }
9851 }
9855 }
9856 }
9859 }
9864 set nc 1
9870 incr nc -1
9871 }
9872 # ignore tags on starting node
9876 set ta 1
9879 set ta 1
9880 }
9881 }
9888 }
9889 }
9898 }
9901 }
9903 incr nc -1
9904 }
9906 }
9907 }
9908 }
9913 incr nc
9914 }
9915 }
9916 }
9917 }
9918 set tags {}
9919 foreach id [array names tagloc] {
9924 }
9925 }
9926 }
9927 }
9928 set t2 [clock clicks -milliseconds]
9931 # remove tags that are descendents of other tags
9939 incr j -1
9940 incr i -1
9943 incr i -1
9944 break
9945 }
9946 }
9947 }
9949 if {[array names growing] ne {}} {
9950 # graph isn't finished, need to check if any tag could get
9951 # eclipsed by another tag coming later. Simply ignore any
9952 # tags that could later get eclipsed.
9953 set ctags {}
9957 }
9958 }
9961 } else {
9963 }
9964 } else {
9966 }
9967 set t3 [clock clicks -milliseconds]
9971 }
9973 }
9975 proc anctags {id} {
9976 global arcnos arcids arcout arcend arctags idtags allparents
9977 global growing cached_atags
9980 return {}
9981 }
9982 set t1 [clock clicks -milliseconds]
9985 # part-way along an arc; check that arc first
9994 }
9995 }
9996 }
9998 return {}
9999 }
10003 }
10004 }
10007 }
10012 set taglist {}
10013 set nc 1
10019 incr nc -1
10020 }
10021 # ignore tags on starting node
10025 set td 1
10028 set td 1
10029 }
10030 }
10036 }
10037 }
10049 }
10050 }
10053 }
10055 incr nc -1
10056 }
10058 }
10059 }
10060 }
10065 incr nc
10066 }
10067 }
10068 }
10069 }
10070 set t2 [clock clicks -milliseconds]
10072 set tags {}
10073 foreach id [array names tagloc] {
10078 }
10079 }
10080 }
10081 }
10083 # remove tags that are ancestors of other tags
10091 incr j -1
10092 incr i -1
10095 incr i -1
10096 break
10097 }
10098 }
10099 }
10101 if {[array names growing] ne {}} {
10102 # graph isn't finished, need to check if any tag could get
10103 # eclipsed by another tag coming later. Simply ignore any
10104 # tags that could later get eclipsed.
10105 set ctags {}
10109 }
10110 }
10113 } else {
10115 }
10116 } else {
10118 }
10119 set t3 [clock clicks -milliseconds]
10123 }
10125 }
10127 # Return the list of IDs that have heads that are descendents of id,
10128 # including id itself if it has a head.
10129 proc descheads {id} {
10130 global arcnos arcstart arcids archeads idheads cached_dheads
10131 global allparents
10134 return {}
10135 }
10136 set aret {}
10138 # part-way along an arc; check it first
10147 }
10148 }
10150 }
10154 set ret {}
10159 } else {
10162 }
10168 }
10169 }
10174 }
10175 }
10176 }
10177 }
10181 }
10183 proc addedtag {id} {
10184 global arcnos arcout cached_dtags cached_atags
10189 }
10190 catch {unset cached_dtags}
10191 catch {unset cached_atags}
10192 }
10194 proc addedhead {hid head} {
10195 global arcnos arcout cached_dheads
10200 }
10201 catch {unset cached_dheads}
10202 }
10204 proc removedhead {hid head} {
10205 global cached_dheads
10207 catch {unset cached_dheads}
10208 }
10210 proc movedhead {hid head} {
10211 global arcnos arcout cached_dheads
10216 }
10217 catch {unset cached_dheads}
10218 }
10220 proc changedrefs {} {
10221 global cached_dheads cached_dtags cached_atags
10222 global arctags archeads arcnos arcout idheads idtags
10224 foreach id [concat [array names idheads] [array names idtags]] {
10230 }
10231 }
10232 }
10233 catch {unset cached_dtags}
10234 catch {unset cached_atags}
10235 catch {unset cached_dheads}
10236 }
10238 proc rereadrefs {} {
10239 global idtags idheads idotherrefs mainheadid
10241 set refids [concat [array names idtags] \
10242 [array names idheads] [array names idotherrefs]]
10246 }
10247 }
10249 readrefs
10250 changedrefs
10252 [array names idheads] [array names idotherrefs]]]
10257 }
10258 }
10262 }
10263 run refill_reflist
10264 }
10266 proc listrefs {id} {
10267 global idtags idheads idotherrefs
10269 set x {}
10272 }
10273 set y {}
10276 }
10277 set z {}
10280 }
10282 }
10284 proc showtag {tag isnew} {
10285 global ctext tagcontents tagids linknum tagobjid
10289 }
10291 clear_ctext
10292 settabs 0
10293 set linknum 0
10295 catch {
10297 }
10298 }
10301 } else {
10303 }
10306 init_flist {}
10307 }
10309 proc doquit {} {
10310 global stopped
10311 global gitktmpdir
10313 set stopped 100
10314 savestuff .
10315 destroy .
10317 if {[info exists gitktmpdir]} {
10319 }
10320 }
10322 proc mkfontdisp {font top which} {
10331 }
10333 proc choosefont {font which} {
10334 global fontparam fontlist fonttop fontattr
10335 global prefstop
10343 set top .gitkfont
10346 font create sample
10353 set fontlist [lsort [font families]]
10364 -textvariable fontparam(size) \
10365 -validatecommand {string is integer -strict %s}
10367 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10368 -variable fontparam(weight) -onvalue bold -offvalue normal
10370 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10371 -variable fontparam(slant) -onvalue italic -offvalue roman
10375 -background white
10377 -fill black -tags text
10389 trace add variable fontparam write chg_fontparam
10390 } else {
10393 }
10398 }
10399 }
10401 proc centertext {w} {
10403 }
10405 proc fontok {} {
10406 global fontparam fontpref prefstop
10412 }
10415 }
10419 fontcan
10420 }
10422 proc fontcan {} {
10423 global fonttop fontparam
10425 if {[info exists fonttop]} {
10427 catch {font delete sample}
10428 unset fonttop
10429 unset fontparam
10430 }
10431 }
10433 proc selfontfam {} {
10434 global fonttop fontparam
10439 }
10440 }
10442 proc chg_fontparam {v sub op} {
10443 global fontparam
10446 }
10448 proc doprefs {} {
10449 global maxwidth maxgraphpct
10450 global oldprefs prefstop showneartags showlocalchanges
10451 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10452 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10453 global hideremotes
10455 set top .gitkprefs
10459 return
10460 }
10461 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10462 limitdiffs tabstop perfile_attrs hideremotes} {
10464 }
10472 -font optionfont
10476 -font optionfont
10480 -font optionfont -variable showlocalchanges
10483 -font optionfont -variable autoselect
10492 -font optionfont -variable showneartags
10495 -font optionfont -variable hideremotes
10498 -font optionfont -variable limitdiffs
10501 -font optionfont -variable perfile_attrs
10507 -padx 10
10509 -command choose_extdiff
10540 [mc "diff hunk header"] \
10546 [mc "marked line background"] \
10570 }
10572 proc choose_extdiff {} {
10573 global extdifftool
10575 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10578 }
10579 }
10581 proc choosecolor {v vi w x cmd} {
10590 }
10592 proc setselbg {c} {
10593 global bglist cflist
10596 }
10600 }
10602 # This sets the background color and the color scheme for the whole UI.
10603 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
10604 # if we don't specify one ourselves, which makes the checkbuttons and
10605 # radiobuttons look bad. This chooses white for selectColor if the
10606 # background color is light, or black if it is dark.
10607 proc setui {c} {
10609 set selc black
10611 set selc white
10612 }
10614 }
10616 proc setbg {c} {
10617 global bglist
10621 }
10622 }
10624 proc setfg {c} {
10625 global fglist canv
10629 }
10633 }
10635 proc prefscan {} {
10636 global oldprefs prefstop
10638 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10639 limitdiffs tabstop perfile_attrs hideremotes} {
10642 }
10644 unset prefstop
10645 fontcan
10646 }
10648 proc prefsok {} {
10649 global maxwidth maxgraphpct
10650 global oldprefs prefstop showneartags showlocalchanges
10651 global fontpref mainfont textfont uifont
10652 global limitdiffs treediffs perfile_attrs
10653 global hideremotes
10656 unset prefstop
10657 fontcan
10658 set fontchanged 0
10662 eval font configure mainfont [fontflags mainfont]
10663 eval font configure mainfontbold [fontflags mainfont 1]
10664 setcoords
10665 set fontchanged 1
10666 }
10670 eval font configure textfont [fontflags textfont]
10671 eval font configure textfontbold [fontflags textfont 1]
10672 }
10676 eval font configure uifont [fontflags uifont]
10677 }
10678 settabs
10681 doshowlocalchanges
10682 } else {
10683 dohidelocalchanges
10684 }
10685 }
10688 # treediffs elements are limited by path;
10689 # won't have encodings cached if perfile_attrs was just turned on
10690 catch {unset treediffs}
10691 }
10694 redisplay
10697 reselectline
10698 }
10700 rereadrefs
10701 }
10702 }
10704 proc formatdate {d} {
10705 global datetimeformat
10708 }
10710 }
10712 # This list of encoding names and aliases is distilled from
10713 # http://www.iana.org/assignments/character-sets.
10714 # Not all of them are supported by Tcl.
10715 set encoding_aliases {
10716 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10717 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10718 { ISO-10646-UTF-1 csISO10646UTF1 }
10719 { ISO_646.basic:1983 ref csISO646basic1983 }
10720 { INVARIANT csINVARIANT }
10721 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10722 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10723 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10724 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10725 { NATS-DANO iso-ir-9-1 csNATSDANO }
10726 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10727 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10728 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10729 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10730 { ISO-2022-KR csISO2022KR }
10731 { EUC-KR csEUCKR }
10732 { ISO-2022-JP csISO2022JP }
10733 { ISO-2022-JP-2 csISO2022JP2 }
10734 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10735 csISO13JISC6220jp }
10736 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10737 { IT iso-ir-15 ISO646-IT csISO15Italian }
10738 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10739 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10740 { greek7-old iso-ir-18 csISO18Greek7Old }
10741 { latin-greek iso-ir-19 csISO19LatinGreek }
10742 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10743 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10744 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10745 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10746 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10747 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10748 { INIS iso-ir-49 csISO49INIS }
10749 { INIS-8 iso-ir-50 csISO50INIS8 }
10750 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10751 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10752 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10753 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10754 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10755 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10756 csISO60Norwegian1 }
10757 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10758 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10759 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10760 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10761 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10762 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10763 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10764 { greek7 iso-ir-88 csISO88Greek7 }
10765 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10766 { iso-ir-90 csISO90 }
10767 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10768 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10769 csISO92JISC62991984b }
10770 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10771 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10772 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10773 csISO95JIS62291984handadd }
10774 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10775 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10776 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10777 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10778 CP819 csISOLatin1 }
10779 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10780 { T.61-7bit iso-ir-102 csISO102T617bit }
10781 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10782 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10783 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10784 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10785 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10786 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10787 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10788 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10789 arabic csISOLatinArabic }
10790 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10791 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10792 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10793 greek greek8 csISOLatinGreek }
10794 { T.101-G2 iso-ir-128 csISO128T101G2 }
10795 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10796 csISOLatinHebrew }
10797 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10798 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10799 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10800 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10801 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10802 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10803 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10804 csISOLatinCyrillic }
10805 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10806 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10807 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10808 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10809 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10810 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10811 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10812 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10813 { ISO_10367-box iso-ir-155 csISO10367Box }
10814 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10815 { latin-lap lap iso-ir-158 csISO158Lap }
10816 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10817 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10818 { us-dk csUSDK }
10819 { dk-us csDKUS }
10820 { JIS_X0201 X0201 csHalfWidthKatakana }
10821 { KSC5636 ISO646-KR csKSC5636 }
10822 { ISO-10646-UCS-2 csUnicode }
10823 { ISO-10646-UCS-4 csUCS4 }
10824 { DEC-MCS dec csDECMCS }
10825 { hp-roman8 roman8 r8 csHPRoman8 }
10826 { macintosh mac csMacintosh }
10827 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10828 csIBM037 }
10829 { IBM038 EBCDIC-INT cp038 csIBM038 }
10830 { IBM273 CP273 csIBM273 }
10831 { IBM274 EBCDIC-BE CP274 csIBM274 }
10832 { IBM275 EBCDIC-BR cp275 csIBM275 }
10833 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10834 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10835 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10836 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10837 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10838 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10839 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10840 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10841 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10842 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10843 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10844 { IBM437 cp437 437 csPC8CodePage437 }
10845 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10846 { IBM775 cp775 csPC775Baltic }
10847 { IBM850 cp850 850 csPC850Multilingual }
10848 { IBM851 cp851 851 csIBM851 }
10849 { IBM852 cp852 852 csPCp852 }
10850 { IBM855 cp855 855 csIBM855 }
10851 { IBM857 cp857 857 csIBM857 }
10852 { IBM860 cp860 860 csIBM860 }
10853 { IBM861 cp861 861 cp-is csIBM861 }
10854 { IBM862 cp862 862 csPC862LatinHebrew }
10855 { IBM863 cp863 863 csIBM863 }
10856 { IBM864 cp864 csIBM864 }
10857 { IBM865 cp865 865 csIBM865 }
10858 { IBM866 cp866 866 csIBM866 }
10859 { IBM868 CP868 cp-ar csIBM868 }
10860 { IBM869 cp869 869 cp-gr csIBM869 }
10861 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10862 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10863 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10864 { IBM891 cp891 csIBM891 }
10865 { IBM903 cp903 csIBM903 }
10866 { IBM904 cp904 904 csIBBM904 }
10867 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10868 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10869 { IBM1026 CP1026 csIBM1026 }
10870 { EBCDIC-AT-DE csIBMEBCDICATDE }
10871 { EBCDIC-AT-DE-A csEBCDICATDEA }
10872 { EBCDIC-CA-FR csEBCDICCAFR }
10873 { EBCDIC-DK-NO csEBCDICDKNO }
10874 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10875 { EBCDIC-FI-SE csEBCDICFISE }
10876 { EBCDIC-FI-SE-A csEBCDICFISEA }
10877 { EBCDIC-FR csEBCDICFR }
10878 { EBCDIC-IT csEBCDICIT }
10879 { EBCDIC-PT csEBCDICPT }
10880 { EBCDIC-ES csEBCDICES }
10881 { EBCDIC-ES-A csEBCDICESA }
10882 { EBCDIC-ES-S csEBCDICESS }
10883 { EBCDIC-UK csEBCDICUK }
10884 { EBCDIC-US csEBCDICUS }
10885 { UNKNOWN-8BIT csUnknown8BiT }
10886 { MNEMONIC csMnemonic }
10887 { MNEM csMnem }
10888 { VISCII csVISCII }
10889 { VIQR csVIQR }
10890 { KOI8-R csKOI8R }
10891 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10892 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10893 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10894 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10895 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10896 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10897 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10898 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10899 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10900 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10901 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10902 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10903 { IBM1047 IBM-1047 }
10904 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10905 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10906 { UNICODE-1-1 csUnicode11 }
10907 { CESU-8 csCESU-8 }
10908 { BOCU-1 csBOCU-1 }
10909 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10910 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10911 l8 }
10912 { ISO-8859-15 ISO_8859-15 Latin-9 }
10913 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10914 { GBK CP936 MS936 windows-936 }
10915 { JIS_Encoding csJISEncoding }
10916 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10917 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10918 EUC-JP }
10919 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10920 { ISO-10646-UCS-Basic csUnicodeASCII }
10921 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10922 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10923 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10924 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10925 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10926 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10927 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10928 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10929 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10930 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10931 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10932 { Ventura-US csVenturaUS }
10933 { Ventura-International csVenturaInternational }
10934 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10935 { PC8-Turkish csPC8Turkish }
10936 { IBM-Symbols csIBMSymbols }
10937 { IBM-Thai csIBMThai }
10938 { HP-Legal csHPLegal }
10939 { HP-Pi-font csHPPiFont }
10940 { HP-Math8 csHPMath8 }
10941 { Adobe-Symbol-Encoding csHPPSMath }
10942 { HP-DeskTop csHPDesktop }
10943 { Ventura-Math csVenturaMath }
10944 { Microsoft-Publishing csMicrosoftPublishing }
10945 { Windows-31J csWindows31J }
10946 { GB2312 csGB2312 }
10947 { Big5 csBig5 }
10948 }
10950 proc tcl_encoding {enc} {
10951 global encoding_aliases tcl_encoding_cache
10954 }
10955 set names [encoding names]
10960 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10963 }
10964 }
10969 # look through the aliases for one that tcl knows about
10975 }
10976 }
10978 }
10979 break
10980 }
10981 }
10982 set tclenc {}
10985 }
10988 }
10990 proc gitattr {path attr default} {
10991 global path_attr_cache
10994 } else {
10995 set r "unspecified"
10998 }
11000 }
11003 }
11005 }
11007 proc cache_gitattr {attr pathlist} {
11008 global path_attr_cache
11009 set newlist {}
11013 }
11014 }
11015 set lim 1000
11016 if {[tk windowingsystem] == "win32"} {
11017 # windows has a 32k limit on the arguments to a command...
11018 set lim 30
11019 }
11028 }
11030 }
11031 }
11032 }
11033 }
11034 }
11036 proc get_path_encoding {path} {
11037 global gui_encoding perfile_attrs
11043 }
11044 }
11046 }
11048 # First check that Tcl/Tk is recent enough
11049 if {[catch {package require Tk 8.4} err]} {
11050 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11051 Gitk requires at least Tcl/Tk 8.4." list
11052 exit 1
11053 }
11055 # defaults...
11056 set wrcomcmd "git diff-tree --stdin -p --pretty"
11058 set gitencoding {}
11059 catch {
11060 set gitencoding [exec git config --get i18n.commitencoding]
11061 }
11062 catch {
11063 set gitencoding [exec git config --get i18n.logoutputencoding]
11064 }
11066 set gitencoding "utf-8"
11067 }
11071 }
11073 set gui_encoding [encoding system]
11074 catch {
11075 set enc [exec git config --get gui.encoding]
11080 } else {
11082 }
11083 }
11084 }
11086 if {[tk windowingsystem] eq "aqua"} {
11087 set mainfont {{Lucida Grande} 9}
11088 set textfont {Monaco 9}
11089 set uifont {{Lucida Grande} 9 bold}
11090 } else {
11091 set mainfont {Helvetica 9}
11092 set textfont {Courier 9}
11093 set uifont {Helvetica 9 bold}
11094 }
11095 set tabstop 8
11096 set findmergefiles 0
11097 set maxgraphpct 50
11098 set maxwidth 16
11099 set revlistorder 0
11100 set fastdate 0
11101 set uparrowlen 5
11102 set downarrowlen 5
11103 set mingaplen 100
11104 set cmitmode "patch"
11105 set wrapcomment "none"
11106 set showneartags 1
11107 set hideremotes 0
11108 set maxrefs 20
11109 set maxlinelen 200
11110 set showlocalchanges 1
11111 set limitdiffs 1
11112 set datetimeformat "%Y-%m-%d %H:%M:%S"
11113 set autoselect 1
11114 set perfile_attrs 0
11116 if {[tk windowingsystem] eq "aqua"} {
11117 set extdifftool "opendiff"
11118 } else {
11119 set extdifftool "meld"
11120 }
11122 set colors {green red blue magenta darkgrey brown orange}
11123 set uicolor grey85
11124 set bgcolor white
11125 set fgcolor black
11126 set diffcolors {red "#00a000" blue}
11127 set diffcontext 3
11128 set ignorespace 0
11129 set selectbgcolor gray85
11130 set markbgcolor "#e0e0ff"
11132 set circlecolors {white blue gray blue blue}
11134 # button for popping up context menus
11135 if {[tk windowingsystem] eq "aqua"} {
11136 set ctxbut <Button-2>
11137 } else {
11138 set ctxbut <Button-3>
11139 }
11141 ## For msgcat loading, first locate the installation location.
11142 if { [info exists ::env(GITK_MSGSDIR)] } {
11143 ## Msgsdir was manually set in the environment.
11144 set gitk_msgsdir $::env(GITK_MSGSDIR)
11145 } else {
11146 ## Let's guess the prefix from argv0.
11150 unset gitk_prefix
11151 }
11153 ## Internationalization (i18n) through msgcat and gettext. See
11154 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11155 package require msgcat
11156 namespace import ::msgcat::mc
11157 ## And eventually load the actual message catalog
11160 catch {source ~/.gitk}
11162 font create optionfont -family sans-serif -size -12
11165 eval font create mainfont [fontflags mainfont]
11166 eval font create mainfontbold [fontflags mainfont 1]
11169 eval font create textfont [fontflags textfont]
11170 eval font create textfontbold [fontflags textfont 1]
11173 eval font create uifont [fontflags uifont]
11177 setoptions
11179 # check that we can find a .git directory somewhere...
11180 if {[catch {set gitdir [gitdir]}]} {
11181 show_error {} . [mc "Cannot find a git repository here."]
11182 exit 1
11183 }
11186 exit 1
11187 }
11189 set selecthead {}
11190 set selectheadid {}
11192 set revtreeargs {}
11193 set cmdline_files {}
11194 set i 0
11195 set revtreeargscmd {}
11198 "" { }
11199 "--" {
11201 break
11202 }
11203 "--select-commit=*" {
11205 }
11206 "--argscmd=*" {
11208 }
11209 default {
11211 }
11212 }
11213 incr i
11214 }
11217 set selecthead {}
11218 }
11221 # no -- on command line, but some arguments (other than --argscmd)
11222 if {[catch {
11227 # Unfortunately git rev-parse doesn't produce an error when
11228 # something is both a revision and a filename. To be consistent
11229 # with git log and git rev-list, check revtreeargs for filenames.
11232 show_error {} . [mc "Ambiguous argument '%s': both revision\
11234 exit 1
11235 }
11236 }
11237 } err]} {
11239 # so look for "fatal:".
11243 }
11245 exit 1
11246 }
11247 }
11249 set nullid "0000000000000000000000000000000000000000"
11250 set nullid2 "0000000000000000000000000000000000000001"
11251 set nullfile "/dev/null"
11254 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11256 set runq {}
11257 set history {}
11258 set historyindex 0
11259 set fh_serial 0
11260 set nhl_names {}
11261 set highlight_paths {}
11262 set findpattern {}
11263 set searchdirn -forwards
11264 set boldids {}
11265 set boldnameids {}
11266 set diffelide {0 0}
11267 set markingmatches 0
11268 set linkentercount 0
11269 set need_redisplay 0
11270 set nrows_drawn 0
11271 set firsttabstop 0
11273 set nextviewnum 1
11274 set curview 0
11275 set selectedview 0
11276 set selectedhlview [mc "None"]
11277 set highlight_related [mc "None"]
11278 set highlight_files {}
11279 set viewfiles(0) {}
11280 set viewperm(0) 0
11281 set viewargs(0) {}
11282 set viewargscmd(0) {}
11284 set selectedline {}
11285 set numcommits 0
11286 set loginstance 0
11287 set cmdlineok 0
11288 set stopped 0
11289 set stuffsaved 0
11290 set patchnum 0
11291 set lserial 0
11292 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11293 setcoords
11294 makewindow
11295 catch {
11296 image create photo gitlogo -width 16 -height 16
11298 image create photo gitlogominus -width 4 -height 2
11299 gitlogominus put #C00000 -to 0 0 4 2
11300 gitlogo copy gitlogominus -to 1 5
11301 gitlogo copy gitlogominus -to 6 5
11302 gitlogo copy gitlogominus -to 11 5
11303 image delete gitlogominus
11305 image create photo gitlogoplus -width 4 -height 4
11306 gitlogoplus put #008000 -to 1 0 3 4
11307 gitlogoplus put #008000 -to 0 1 4 3
11308 gitlogo copy gitlogoplus -to 1 9
11309 gitlogo copy gitlogoplus -to 6 9
11310 gitlogo copy gitlogoplus -to 11 9
11311 image delete gitlogoplus
11313 image create photo gitlogo32 -width 32 -height 32
11314 gitlogo32 copy gitlogo -zoom 2 2
11316 wm iconphoto . -default gitlogo gitlogo32
11317 }
11318 # wait for the window to become visible
11319 tkwait visibility .
11321 update
11322 readrefs
11325 # create a view for the files/dirs specified on the command line
11326 set curview 1
11327 set selectedview 1
11328 set nextviewnum 2
11329 set viewname(1) [mc "Command line"]
11333 set viewperm(1) 0
11334 set vdatemode(1) 0
11335 addviewmenu 1
11336 .bar.view entryconf [mca "Edit view..."] -state normal
11337 .bar.view entryconf [mca "Delete view"] -state normal
11338 }
11340 if {[info exists permviews]} {
11343 incr nextviewnum
11350 }
11351 }
11353 if {[tk windowingsystem] eq "win32"} {
11354 focus -force .
11355 }
11357 getcommits {}