| blob | 5f27c6ac4f8e830f10113e6f99342042a016f2c2 |
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
30 after idle dorunq
31 }
34 }
38 }
41 global runq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq
76 # script returns 1 if it wants to be readded
77 # file readers return 2 if they could do more straight away
81 }
84 }
87 }
89 after idle dorunq
90 }
91 }
94 global nr_unmerged
96 # find the list of unmerged files
103 exit 1
104 }
110 incr nr_unmerged
113 }
114 }
117 }
119 proc parseviewargs {n arglist} {
120 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
124 set glflags {}
125 set diffargs {}
126 set nextisval 0
127 set revargs {}
129 set allknown 1
130 set filtered 0
131 set i -1
133 incr i
136 set nextisval 0
137 continue
138 }
140 "-d" -
141 "--date-order" {
143 # remove from origargs in case we hit an unknown option
145 incr i -1
146 }
147 # These request or affect diff output, which we don't want.
148 # Some could be used to set our defaults for diff display.
155 lappend diffargs $arg
156 }
157 # These cause our parsing of git log's output to fail, or else
158 # they're options we want to set ourselves, so ignore them.
166 }
167 # These are harmless, and some are even useful
172 lappend glflags $arg
173 }
174 # These mean that we get a subset of the commits
182 lappend glflags $arg
183 }
184 # This appears to be the only one that has a value as a
185 # separate word following it
189 lappend glflags $arg
190 }
193 lappend revargs $arg
194 }
196 lappend revargs $arg
197 }
200 # git rev-parse doesn't understand --merge
201 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
202 }
203 # Other flag arguments including -<n>
208 # a flag argument that we don't recognize;
209 # that means we can't optimize
211 }
212 lappend glflags $arg
213 }
214 # Non-flag arguments specify commits or ranges of commits
215 default {
217 lappend revargs --gitk-symmetric-diff-marker
218 }
219 lappend revargs $arg
220 }
221 }
222 }
229 }
232 global vposids vnegids
235 set revs HEAD
236 }
238 # we get stdout followed by stderr in $err
239 # for an unknown rev, git rev-parse echoes it and then errors out
252 }
255 }
256 break
257 }
258 lappend badrev $line
259 }
260 }
263 }
273 lappend ret $id
276 }
277 }
281 lappend ret $id
284 }
285 lappend pos $id
286 }
287 incr sdm -1
288 }
292 }
294 # Start off a git log process and arrange to read its output
296 global startmsecs commitidx viewcomplete
297 global commfd leftover tclencoding
298 global viewargs viewargscmd viewfiles vfilelimit
299 global showlocalchanges commitinterest mainheadid
300 global progressdirn progresscoords proglastnc curview
301 global viewactive loginstance viewinstances vmergeonly
302 global pending_select mainheadid
303 global vcanopt vflags vrevs vorigargs
307 # these are set this way for the error exits
310 varcinit $view
319 }
321 }
328 global nr_unmerged
335 }
337 }
338 }
345 }
349 }
357 }
364 }
368 }
376 }
380 }
383 global commfd viewinstances leftover
387 catch {
390 }
392 nukefile $fd
395 }
397 }
399 proc getcommits {} {
400 global canv curview need_redisplay viewactive
402 initlayout
408 }
409 }
411 proc updatecommits {} {
412 global curview vcanopt vorigargs vfilelimit viewinstances
413 global viewactive viewcomplete loginstance tclencoding mainheadid
414 global startmsecs commfd showneartags showlocalchanges leftover
415 global mainheadid pending_select
416 global isworktree
417 global varcid vposids vnegids vflags vrevs
421 rereadrefs
424 dohidelocalchanges
425 }
427 dodiffindex
428 }
429 }
436 return
437 }
438 # note: getting the delta when negative refs change is hard,
439 # and could require multiple git log invocations, so in that
440 # case we ask git log for all the commits (not just the delta)
444 # take out positive refs that we asked for before or
445 # that we have already seen
450 lappend newrevs $rev
451 incr npos
452 }
454 lappend $newrevs $rev
455 }
456 }
460 }
464 }
470 return
471 }
474 }
482 }
489 getallcommits
490 }
491 }
493 proc reloadcommits {} {
494 global curview viewcomplete selectedline currentid thickerline
495 global showneartags treediffs commitinterest cached_commitrow
496 global progresscoords targetid
499 stop_rev_list $curview
501 adjustprogress
502 }
503 resetvarcs $curview
508 readrefs
509 changedrefs
511 getallcommits
512 }
513 clear_display
517 setcanvscroll
518 getcommits
520 }
522 # This makes a string representation of a positive integer which
523 # sorts as a string in numerical order
531 }
533 }
535 # Procedures used in reordering commits from git log (without
536 # --topo-order) into the order for display.
539 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
540 global vtokmod varcmod vrowmod varcix vlastins
554 }
557 global varcid varccommits parents children vseedcount ordertok
563 }
564 # some commits might have children but haven't been seen yet
567 }
570 }
573 }
575 }
577 # returns a list of the commits with no children
579 global vdownptr vleftptr varcstart
586 }
588 }
591 global varcid varctok parents children vdatemode
592 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
593 global commitdata commitinfo vseedcount varccommits vlastins
600 }
604 }
607 }
613 }
622 }
623 }
628 }
635 }
639 }
646 }
652 }
661 }
664 global varcid varcstart varccommits varctok
665 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
672 # "%" sorts before "0"...
682 }
692 }
693 }
696 global parents children varctok varcstart varccommits
697 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
706 lappend todo $a
711 }
712 }
713 }
714 incr ntot
721 }
722 }
724 }
731 }
737 }
746 }
747 }
752 }
754 continue
755 }
762 }
763 }
768 modify_arc $v $ka
769 }
771 modify_arc $v $b
772 }
779 }
782 }
785 }
794 }
799 }
806 }
810 }
812 }
813 }
818 }
819 }
821 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
822 }
824 # Fix up the graph after we have found out that in view $v,
825 # $p (a commit that we have already seen) is actually the parent
826 # of the last commit in arc $a.
828 global varcid varcstart varctok vupptr
832 splitvarc $p $v
834 }
835 # seeds always need to be renumbered
839 renumbervarc $pa $v
840 }
841 }
844 global cmitlisted children parents varcid varctok vtokmod
845 global varccommits ordertok commitidx numcommits curview
846 global targetid targetrow
848 readcommit $id
856 modify_arc $v $a
857 }
863 }
864 fix_reversal $p $a $v
868 setcanvscroll
871 incr targetrow
872 }
873 }
874 }
875 }
878 global varcid varccommits parents children cmitlisted
879 global commitidx varctok vtokmod targetid targetrow curview numcommits
886 return
887 }
894 # note we deliberately don't update varcstart($v) even if $i == 0
896 modify_arc $v $a $i
899 incr targetrow
900 }
901 }
902 setcanvscroll
903 drawvisible
904 }
907 global varcid varccommits parents children commitidx
908 global varctok vtokmod cmitlisted currentid selectedline
909 global targetid curview numcommits
914 return
915 }
921 return
922 }
932 }
933 modify_arc $v $a $i
935 unset currentid
936 unset selectedline
937 }
940 }
941 setcanvscroll
942 drawvisible
943 }
946 global children nullid nullid2
951 }
952 }
954 }
957 global children nullid nullid2
964 }
965 }
967 }
970 global varctok varcid
974 }
976 # This assumes that if lim is not given, the caller has checked that
977 # arc a's token is less than $vtokmod($v)
979 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
987 }
988 }
995 }
1000 }
1002 }
1004 undolayout $r
1005 }
1006 }
1009 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1010 global varcid vrownum varcorder varcix varccommits
1011 global vupptr vdownptr vleftptr varctok
1012 global displayorder parentlist curview cached_commitrow
1019 }
1021 }
1025 # go up the tree until we find something that has a row number,
1026 # or we get to a seed
1028 }
1043 }
1045 }
1049 # go down if possible
1052 # if not, go left, or go up until we can go left
1057 }
1059 }
1061 incr arcn
1066 }
1072 }
1073 }
1075 # Test whether view $v contains commit $id
1077 global varcid
1080 }
1082 # Return the row number for commit $id in the current view
1084 global varcid varccommits varcrow curview cached_commitrow
1085 global varctok vtokmod
1091 }
1094 update_arcrows $v
1095 }
1098 }
1103 }
1107 }
1109 # Returns 1 if a is on an earlier row than b, otherwise 0
1111 global varcid varctok curview
1117 }
1121 }
1123 }
1128 }
1140 }
1141 }
1143 }
1145 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1147 global vrownum curview commitidx displayorder parentlist
1148 global varccommits varcorder parents vrowmod varcrow
1149 global d_valid_start d_valid_end
1152 update_arcrows $curview
1153 }
1169 }
1171 lappend displayorder $id
1173 }
1177 lset displayorder $i $id
1179 incr i
1180 }
1181 }
1182 incr r $al
1183 }
1184 }
1187 global displayorder
1193 }
1195 }
1198 global varctok varccommits varcid parents children
1199 global cmitlisted commitidx commitinterest vtokmod
1208 # add p as a new commit
1209 incr missing_parents
1217 }
1220 modify_arc $v $b
1221 }
1227 }
1229 }
1230 }
1231 }
1235 }
1236 }
1237 }
1239 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1240 # Assumes we already have an arc for $rwid.
1242 global children parents varcid varctok vtokmod varccommits
1245 # make $rwid be $ch's parent in place of $id
1249 }
1251 # add $ch to $rwid's children and sort the list if necessary
1255 }
1256 # fix the graph after joining $id to $rwid
1258 fix_reversal $rwid $a $v
1259 # parentlist is wrong for the last element of arc $a
1260 # even if displayorder is right, hence the 3rd arg here
1262 }
1263 }
1266 global cmitlisted commitinterest leftover
1267 global commitidx commitdata vdatemode
1268 global parents children curview hlview
1269 global idpending ordertok
1270 global varccommits varcid varctok vtokmod vfilelimit
1273 # git log doesn't terminate the last commit with a null...
1276 }
1280 }
1281 global commfd viewcomplete viewactive viewname progresscoords
1282 global viewinstances
1287 }
1288 # set it blocking so we wait for the process to terminate
1294 }
1297 bad arguments to git log."
1299 append err \
1300 " (Note: arguments to gitk are passed to git log\
1301 to allow selection of commits to be displayed.)"
1302 }
1305 }
1306 error_popup $err
1307 }
1310 # Check if we have seen any ids listed as parents that haven't
1311 # appeared in the list
1312 closevarcs $view
1313 notbusy $view
1315 adjustprogress
1316 }
1318 run chewcommits
1319 }
1321 }
1329 break
1330 }
1337 }
1350 }
1352 }
1357 break
1358 }
1359 }
1360 }
1365 }
1367 exit 1
1368 }
1375 # when doing path limiting, so work around that here
1376 # by working out the rewritten parent with git rev-list
1377 # and if we already know about it, using the rewritten
1378 # parent as a substitute parent for $id's children.
1382 }]} {
1384 # use $rwid in place of $id
1385 rewrite_commit $view $id $rwid
1386 continue
1387 }
1388 }
1389 }
1395 }
1400 }
1412 }
1413 }
1415 # new arc
1417 }
1419 modify_arc $view $a
1420 }
1425 }
1436 }
1438 fix_reversal $p $a $view
1439 }
1440 }
1441 incr i
1442 }
1447 }
1449 }
1451 }
1453 global numcommits hlview
1457 run chewcommits
1458 }
1460 # we never actually get here...
1461 run vhighlightmore
1462 }
1465 }
1467 # update progress bar
1468 global progressdirn progresscoords proglastnc
1478 }
1481 }
1487 }
1489 }
1491 adjustprogress
1492 }
1493 }
1495 }
1497 proc chewcommits {} {
1498 global curview hlview viewcomplete
1499 global pending_select
1501 layoutmore
1503 global commitidx varctok
1504 global numcommits startmsecs
1505 global mainheadid nullid
1510 }
1512 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1513 #puts "overall $ms ms for $numcommits commits"
1514 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1517 }
1518 notbusy layout
1519 }
1521 }
1526 }
1529 global commitinfo cdate
1540 # should never happen...
1542 }
1553 }
1554 }
1556 # take the first non-blank line of the comment as the headline
1561 }
1566 }
1568 # git log indents the comment by 4 spaces;
1569 # if we got this via git cat-file, add the indentation
1572 append newcomment " "
1573 append newcomment $line
1575 }
1577 }
1580 }
1583 }
1586 global commitdata commitinfo
1591 readcommit $id
1594 }
1595 }
1597 }
1599 proc readrefs {} {
1600 global tagids idtags headids idheads tagobjid
1601 global otherrefids idotherrefs mainhead mainheadid
1605 }
1617 }
1623 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1624 # which is what we want since the former is the commit ID
1630 }
1636 }
1637 }
1641 catch {
1647 }
1648 }
1649 }
1650 }
1652 # skip over fake commits
1653 proc first_real_row {} {
1654 global nullid nullid2 numcommits
1659 break
1660 }
1661 }
1663 }
1665 # update things for a head moved to a child of its previous location
1667 global headids idheads
1672 }
1674 # update things when a head has been removed
1676 global headids idheads
1684 }
1685 }
1687 }
1696 tkwait window $top
1697 }
1699 proc error_popup msg {
1700 set w .error
1701 toplevel $w
1702 wm transient $w .
1703 show_error $w $w $msg
1704 }
1706 proc confirm_popup msg {
1707 global confirm_ok
1709 set w .confirm
1710 toplevel $w
1711 wm transient $w .
1719 tkwait window $w
1721 }
1723 proc setoptions {} {
1725 option add *Panedwindow.sashRelief raised startupFile
1726 option add *Button.font uifont startupFile
1727 option add *Checkbutton.font uifont startupFile
1728 option add *Radiobutton.font uifont startupFile
1729 option add *Menu.font uifont startupFile
1730 option add *Menubutton.font uifont startupFile
1731 option add *Label.font uifont startupFile
1732 option add *Message.font uifont startupFile
1733 option add *Entry.font uifont startupFile
1734 }
1736 proc makewindow {} {
1737 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1738 global tabstop
1739 global findtype findtypemenu findloc findstring fstring geometry
1740 global entries sha1entry sha1string sha1but
1741 global diffcontextstring diffcontext
1742 global ignorespace
1743 global maincursor textcursor curtextcursor
1744 global rowctxmenu fakerowmenu mergemax wrapcomment
1745 global highlight_files gdttype
1746 global searchstring sstring
1747 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1748 global headctxmenu progresscanv progressitem progresscoords statusw
1749 global fprogitem fprogcoord lastprogupdate progupdatepending
1750 global rprogitem rprogcoord
1751 global have_tk85
1753 menu .bar
1755 menu .bar.file
1761 menu .bar.edit
1765 menu .bar.view
1769 -state disabled
1771 .bar.view add separator
1775 menu .bar.help
1779 .bar.help configure
1780 . configure -menu .bar
1782 # the gui has upper and lower half, parts of a paned window.
1783 panedwindow .ctop -orient vertical
1785 # possibly use assumed geometry
1793 }
1795 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1797 frame .tf.histframe
1800 # create three canvases
1801 set cscroll .tf.histframe.csb
1802 set canv .tf.histframe.pwclist.canv
1803 canvas $canv \
1807 .tf.histframe.pwclist add $canv
1808 set canv2 .tf.histframe.pwclist.canv2
1809 canvas $canv2 \
1812 .tf.histframe.pwclist add $canv2
1813 set canv3 .tf.histframe.pwclist.canv3
1814 canvas $canv3 \
1817 .tf.histframe.pwclist add $canv3
1821 # a scroll bar to rule them
1825 lappend bglist $canv $canv2 $canv3
1828 # we have two button bars at bottom of top frame. Bar 1
1829 frame .tf.bar
1832 set sha1entry .tf.bar.sha1
1834 set sha1but .tf.bar.sha1label
1838 pack .tf.bar.sha1label -side left
1840 trace add variable sha1string write sha1change
1844 #define left_width 16
1845 #define left_height 16
1846 static unsigned char left_bits[] = {
1850 }
1852 #define right_width 16
1853 #define right_height 16
1854 static unsigned char right_bits[] = {
1858 }
1866 # Status label and progress bar
1867 set statusw .tf.bar.status
1871 set progresscanv .tf.bar.progress
1884 # build up the bottom bar of upper window
1889 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
1896 trace add variable gdttype write gdttype_change
1900 set fstring .tf.lbar.findstring
1901 lappend entries $fstring
1903 trace add variable findstring write find_change
1907 trace add variable findtype write findcom_change
1911 trace add variable findloc write find_change
1912 pack .tf.lbar.findloc -side right
1913 pack .tf.lbar.findtype -side right
1916 # Finish putting the upper half of the viewer together
1920 .ctop add .tf
1924 # now build up the bottom
1925 panedwindow .pwbottom -orient horizontal
1927 # lower left, a text box over search bar, scroll bar to the right
1928 # if we know window height, then that will set the lower text height, otherwise
1929 # we set lower text height which will drive window height
1934 }
1935 frame .bleft.top
1936 frame .bleft.mid
1937 frame .bleft.bottom
1941 set sstring .bleft.top.sstring
1943 lappend entries $sstring
1944 trace add variable searchstring write incrsearch
1957 -textvariable diffcontextstring
1959 trace add variable diffcontextstring write diffcontextchange
1960 lappend entries .bleft.mid.diffcontext
1961 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
1965 set ctext .bleft.bottom.ctext
1972 }
1979 grid .bleft.bottom.sbhorizontal -sticky ew
1984 lappend bglist $ctext
1985 lappend fglist $ctext
2014 .pwbottom add .bleft
2017 # lower right
2018 frame .bright
2019 frame .bright.mode
2026 set cflist .bright.cfiles
2028 text $cflist \
2031 -font mainfont \
2036 lappend bglist $cflist
2037 lappend fglist $cflist
2041 $cflist tag configure highlight \
2045 .pwbottom add .bright
2046 .ctop add .pwbottom
2048 # restore window width & height if known
2053 }
2056 }
2058 }
2059 }
2062 set M1B M1
2064 set M1B Control
2065 }
2070 #bindall <B1-Motion> {selcanvline %W %x %y}
2080 allcanvs yview scroll $delta units
2081 }
2082 }
2083 }
2105 bindkey p "selnextline -1"
2106 bindkey n "selnextline 1"
2107 bindkey z "goback"
2108 bindkey x "goforw"
2109 bindkey i "selnextline -1"
2110 bindkey k "selnextline 1"
2111 bindkey j "goback"
2112 bindkey l "goforw"
2119 bindkey f nextfile
2131 wm protocol . WM_DELETE_WINDOW doquit
2141 set maincursor [. cget -cursor]
2145 set rowctxmenu .rowctxmenu
2148 -command {diffvssel 0}
2150 -command {diffvssel 1}
2156 -command cherrypick
2158 -command resethead
2160 set fakerowmenu .fakerowmenu
2163 -command {diffvssel 0}
2165 -command {diffvssel 1}
2171 set headctxmenu .headctxmenu
2174 -command cobranch
2176 -command rmbranch
2178 global flist_menu
2179 set flist_menu .flistctxmenu
2182 -command {flist_hl 0}
2184 -command {flist_hl 1}
2185 }
2187 # Windows sends all mouse wheel events to the current focused window, not
2188 # the one where the mouse hovers, so bind those events here and redirect
2189 # to the correct window
2190 proc windows_mousewheel_redirector {W X Y D} {
2191 global canv canv2 canv3
2197 } else {
2198 catch {
2200 }
2201 }
2202 }
2203 }
2205 # mouse-2 makes all windows scan vertically, but only the one
2206 # the cursor is in scans horizontally
2207 proc canvscan {op w x y} {
2208 global canv canv2 canv3
2212 } else {
2214 }
2215 }
2216 }
2218 proc scrollcanv {cscroll f0 f1} {
2220 drawvisible
2221 flushhighlights
2222 }
2224 # when we make a key binding for the toplevel, make sure
2225 # it doesn't get triggered when that key is pressed in the
2226 # find string entry widget.
2227 proc bindkey {ev script} {
2228 global entries
2232 set escript [bind Entry <Key>]
2233 }
2236 }
2237 }
2239 # set the focus back to the toplevel for any click outside
2240 # the entry widgets
2241 proc click {w} {
2242 global ctext entries
2245 }
2246 focus .
2247 }
2249 # Adjust the progress bar for a change in requested extent or canvas size
2250 proc adjustprogress {} {
2251 global progresscanv progressitem progresscoords
2252 global fprogitem fprogcoord lastprogupdate progupdatepending
2253 global rprogitem rprogcoord
2262 set now [clock clicks -milliseconds]
2264 set progupdatepending 0
2265 update
2267 set progupdatepending 1
2269 }
2270 }
2272 proc doprogupdate {} {
2273 global lastprogupdate progupdatepending
2276 set progupdatepending 0
2277 set lastprogupdate [clock clicks -milliseconds]
2278 update
2279 }
2280 }
2282 proc savestuff {w} {
2283 global canv canv2 canv3 mainfont textfont uifont tabstop
2284 global stuffsaved findmergefiles maxgraphpct
2285 global maxwidth showneartags showlocalchanges
2286 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2287 global cmitmode wrapcomment datetimeformat limitdiffs
2288 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2289 global autoselect
2292 if {![winfo viewable .]} return
2293 catch {
2294 set f [open "~/.gitk-new" w]
2328 }
2329 }
2332 file rename -force "~/.gitk-new" "~/.gitk"
2333 }
2334 set stuffsaved 1
2335 }
2337 proc resizeclistpanes {win w} {
2338 global oldwidth
2345 } else {
2350 set sash0 30
2351 }
2354 }
2359 }
2360 }
2361 }
2364 }
2366 }
2368 proc resizecdetpanes {win w} {
2369 global oldwidth
2374 } else {
2378 set sash0 45
2379 }
2382 }
2383 }
2385 }
2387 }
2389 proc allcanvs args {
2390 global canv canv2 canv3
2394 }
2396 proc bindall {event action} {
2397 global canv canv2 canv3
2401 }
2403 proc about {} {
2404 global uifont
2405 set w .about
2408 return
2409 }
2413 Gitk - a commit viewer for git
2415 Copyright © 2005-2008 Paul Mackerras
2417 Use and redistribute under the terms of the GNU General Public License"] \
2418 -justify center -aspect 400 -border 2 -bg white -relief groove
2425 }
2427 proc keys {} {
2428 set w .keys
2431 return
2432 }
2433 if {[tk windowingsystem] eq {aqua}} {
2434 set M1T Cmd
2435 } else {
2436 set M1T Ctrl
2437 }
2441 [mc "Gitk key bindings:"]
2444 [mc "<Home> Move to first commit"]
2445 [mc "<End> Move to last commit"]
2446 [mc "<Up>, p, i Move up one commit"]
2447 [mc "<Down>, n, k Move down one commit"]
2448 [mc "<Left>, z, j Go back in history list"]
2449 [mc "<Right>, x, l Go forward in history list"]
2450 [mc "<PageUp> Move up one page in commit list"]
2451 [mc "<PageDown> Move down one page in commit list"]
2458 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2459 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2460 [mc "<Delete>, b Scroll diff view up one page"]
2461 [mc "<Backspace> Scroll diff view up one page"]
2462 [mc "<Space> Scroll diff view down one page"]
2463 [mc "u Scroll diff view up 18 lines"]
2464 [mc "d Scroll diff view down 18 lines"]
2467 [mc "<Return> Move to next find hit"]
2468 [mc "/ Move to next find hit, or redo find"]
2469 [mc "? Move to previous find hit"]
2470 [mc "f Scroll diff view to next file"]
2477 [mc "<F5> Update"]
2478 " \
2479 -justify left -bg white -border 2 -relief groove
2486 }
2488 # Procedures for manipulating the file list window at the
2489 # bottom right of the overall window.
2491 proc treeview {w l openlevs} {
2492 global treecontents treediropen treeheight treeparent treeindex
2494 set ix 0
2495 set treeindex() 0
2496 set lev 0
2497 set prefix {}
2498 set prefixend -1
2499 set prefendstack {}
2500 set htstack {}
2501 set ht 0
2502 set treecontents() {}
2509 }
2516 incr lev -1
2517 }
2521 set ht 0
2533 set ht 1
2538 set str "\n"
2546 }
2547 incr lev
2548 }
2551 incr ht
2552 set str "\n"
2556 }
2558 }
2559 }
2567 }
2569 }
2571 proc linetoelt {l} {
2572 global treeheight treecontents
2574 set y 2
2575 set prefix {}
2576 while {1} {
2580 }
2581 set n 1
2586 incr y
2587 break
2588 }
2589 }
2591 }
2592 }
2593 }
2595 proc highlight_tree {y prefix} {
2596 global treeheight treecontents cflist
2602 }
2603 incr y
2606 }
2607 }
2609 }
2611 proc treeclosedir {w dir} {
2612 global treediropen treeheight treeparent treeindex
2624 }
2625 }
2627 proc treeopendir {w dir} {
2628 global treediropen treeheight treeparent treecontents treeindex
2635 set lev 0
2636 set str "\n"
2639 incr lev
2640 append str "\t"
2642 }
2657 } else {
2660 }
2661 }
2674 }
2676 }
2677 }
2679 proc treeclick {w x y} {
2680 global treediropen cmitmode ctext cflist cflist_top
2683 if {![info exists cflist_top]} return
2690 return
2691 }
2697 } else {
2699 }
2700 }
2702 proc setfilelist {id} {
2703 global treefilelist cflist
2706 }
2708 image create bitmap tri-rt -background black -foreground blue -data {
2709 #define tri-rt_width 13
2710 #define tri-rt_height 13
2711 static unsigned char tri-rt_bits[] = {
2712 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2713 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2714 0x00, 0x00};
2715 } -maskdata {
2716 #define tri-rt-mask_width 13
2717 #define tri-rt-mask_height 13
2718 static unsigned char tri-rt-mask_bits[] = {
2719 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2720 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2721 0x08, 0x00};
2722 }
2723 image create bitmap tri-dn -background black -foreground blue -data {
2724 #define tri-dn_width 13
2725 #define tri-dn_height 13
2726 static unsigned char tri-dn_bits[] = {
2727 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2728 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2729 0x00, 0x00};
2730 } -maskdata {
2731 #define tri-dn-mask_width 13
2732 #define tri-dn-mask_height 13
2733 static unsigned char tri-dn-mask_bits[] = {
2734 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2735 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2736 0x00, 0x00};
2737 }
2739 image create bitmap reficon-T -background black -foreground yellow -data {
2740 #define tagicon_width 13
2741 #define tagicon_height 9
2742 static unsigned char tagicon_bits[] = {
2743 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2744 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2745 } -maskdata {
2746 #define tagicon-mask_width 13
2747 #define tagicon-mask_height 9
2748 static unsigned char tagicon-mask_bits[] = {
2749 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2750 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2751 }
2752 set rectdata {
2753 #define headicon_width 13
2754 #define headicon_height 9
2755 static unsigned char headicon_bits[] = {
2756 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
2757 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
2758 }
2759 set rectmask {
2760 #define headicon-mask_width 13
2761 #define headicon-mask_height 9
2762 static unsigned char headicon-mask_bits[] = {
2763 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
2764 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
2765 }
2766 image create bitmap reficon-H -background black -foreground green \
2768 image create bitmap reficon-o -background black -foreground "#ddddff" \
2771 proc init_flist {first} {
2772 global cflist cflist_top difffilestart
2778 set cflist_top 1
2780 } else {
2781 catch {unset cflist_top}
2782 }
2784 set difffilestart {}
2785 }
2787 proc highlight_tag {f} {
2788 global highlight_paths
2792 return "bold"
2793 }
2794 }
2795 return {}
2796 }
2798 proc highlight_filelist {} {
2799 global cmitmode cflist
2808 }
2809 }
2810 } else {
2811 highlight_tree 2 {}
2812 }
2814 }
2816 proc unhighlight_filelist {} {
2817 global cflist
2822 }
2824 proc add_flist {fl} {
2825 global cflist
2831 }
2833 }
2835 proc sel_flist {w x y} {
2836 global ctext difffilestart cflist cflist_top cmitmode
2839 if {![info exists cflist_top]} return
2846 } else {
2848 }
2849 }
2851 proc pop_flist_menu {w X Y x y} {
2852 global ctext cflist cmitmode flist_menu flist_menu_file
2853 global treediffs diffids
2855 stopfinding
2861 } else {
2863 }
2866 }
2868 proc flist_hl {only} {
2869 global flist_menu_file findstring gdttype
2874 } else {
2876 }
2877 set gdttype [mc "touching paths:"]
2878 }
2880 # Functions for adding and removing shell-type quoting
2882 proc shellquote {str} {
2885 }
2888 }
2891 }
2893 }
2895 proc shellarglist {l} {
2896 set str {}
2899 append str " "
2900 }
2902 }
2904 }
2906 proc shelldequote {str} {
2907 set ret {}
2908 set used -1
2909 while {1} {
2910 incr used
2914 break
2915 }
2921 }
2923 incr used
2927 error "unmatched single-quote"
2928 }
2931 continue
2932 }
2935 error "trailing backslash"
2936 }
2938 continue
2939 }
2940 # here ch == "\""
2941 while {1} {
2943 error "unmatched double-quote"
2944 }
2950 }
2952 incr used
2954 incr used
2955 }
2956 }
2958 }
2960 proc shellsplit {str} {
2961 set l {}
2962 while {1} {
2970 }
2972 }
2974 # Code to implement multiple views
2976 proc newview {ishighlight} {
2977 global nextviewnum newviewname newviewperm newishighlight
2978 global newviewargs revtreeargs viewargscmd newviewargscmd curview
2981 set top .gitkview
2984 return
2985 }
2991 }
2993 proc editview {} {
2994 global curview
2995 global viewname viewperm newviewname newviewperm
2996 global viewargs newviewargs viewargscmd newviewargscmd
3001 return
3002 }
3008 }
3010 proc vieweditor {top n title} {
3011 global newviewname newviewperm viewfiles bgcolor
3022 -text [mc "Commits to include (arguments to git log):"]
3029 -text [mc "Command to generate more commits to include:"]
3032 -background white
3036 -text [mc "Enter files and directories to include, one per line:"]
3043 }
3046 }
3056 }
3058 proc doviewmenu {m first cmd op argv} {
3063 break
3064 }
3065 }
3066 }
3068 proc allviewmenus {n op args} {
3069 # global viewhlmenu
3073 }
3075 proc newviewok {top n} {
3076 global nextviewnum newviewperm newviewname newishighlight
3077 global viewname viewfiles viewperm selectedview curview
3078 global viewargs newviewargs viewargscmd newviewargscmd viewhlmenu
3080 if {[catch {
3082 } err]} {
3086 return
3087 }
3088 set files {}
3093 }
3094 }
3096 # creating a new view
3097 incr nextviewnum
3106 } else {
3108 }
3109 } else {
3110 # editing an existing view
3118 }
3125 run reloadcommits
3126 }
3127 }
3128 }
3130 }
3132 proc delview {} {
3133 global curview viewperm hlview selectedhlview
3137 set selectedhlview [mc "None"]
3138 unset hlview
3139 }
3142 showview 0
3143 }
3145 proc addviewmenu {n} {
3146 global viewname viewhlmenu
3152 }
3154 proc showview {n} {
3155 global curview cached_commitrow ordertok
3156 global displayorder parentlist rowidlist rowisopt rowfinal
3157 global colormap rowtextx nextcolor canvxmax
3158 global numcommits viewcomplete
3159 global selectedline currentid canv canvy0
3160 global treediffs
3161 global pending_select mainheadid
3162 global commitidx
3163 global selectedview
3164 global hlview selectedhlview commitinterest
3167 set selid {}
3173 if {[info exists selectedline]} {
3178 }
3179 } elseif {[info exists pending_select]} {
3181 unset pending_select
3182 }
3183 unselectline
3184 normalline
3185 catch {unset treediffs}
3186 clear_display
3188 unset hlview
3189 set selectedhlview [mc "None"]
3190 }
3191 catch {unset commitinterest}
3192 catch {unset cached_commitrow}
3193 catch {unset ordertok}
3200 run refill_reflist
3204 }
3205 getcommits
3206 return
3207 }
3209 set displayorder {}
3210 set parentlist {}
3211 set rowidlist {}
3212 set rowisopt {}
3213 set rowfinal {}
3216 catch {unset colormap}
3217 catch {unset rowtextx}
3218 set nextcolor 0
3221 set row 0
3222 setcanvscroll
3223 set yf 0
3224 set row {}
3227 # try to get the selected row in the same position on the screen
3231 set ytop 0
3232 }
3234 }
3236 drawvisible
3244 } else {
3246 }
3247 } else {
3248 set row [first_real_row]
3251 }
3252 }
3255 show_status [mc "Reading commits..."]
3256 }
3258 show_status [mc "No commits selected"]
3259 }
3260 }
3262 # Stuff relating to the highlighting facility
3264 proc ishighlighted {id} {
3265 global vhighlights fhighlights nhighlights rhighlights
3269 }
3272 }
3275 }
3278 }
3279 return 0
3280 }
3282 proc bolden {row font} {
3283 global canv linehtag selectedline boldrows
3290 -outline {{}} -tags secsel \
3293 }
3294 }
3296 proc bolden_name {row font} {
3297 global canv2 linentag selectedline boldnamerows
3304 -outline {{}} -tags secsel \
3307 }
3308 }
3310 proc unbolden {} {
3311 global boldrows
3313 set stillbold {}
3317 } else {
3319 }
3320 }
3322 }
3324 proc addvhighlight {n} {
3325 global hlview viewcomplete curview vhl_done commitidx
3327 if {[info exists hlview]} {
3328 delvhighlight
3329 }
3333 }
3336 drawvisible
3337 }
3338 }
3340 proc delvhighlight {} {
3341 global hlview vhighlights
3343 if {![info exists hlview]} return
3344 unset hlview
3345 catch {unset vhighlights}
3346 unbolden
3347 }
3349 proc vhighlightmore {} {
3350 global hlview vhl_done commitidx vhighlights curview
3353 set vr [visiblerows]
3363 }
3365 }
3366 }
3367 }
3369 return 0
3370 }
3372 proc askvhighlight {row id} {
3373 global hlview vhighlights iddrawn
3378 }
3380 } else {
3382 }
3383 }
3385 proc hfiles_change {} {
3386 global highlight_files filehighlight fhighlights fh_serial
3387 global highlight_paths gdttype
3389 if {[info exists filehighlight]} {
3390 # delete previous highlights
3392 unset filehighlight
3393 catch {unset fhighlights}
3394 unbolden
3395 unhighlight_filelist
3396 }
3397 set highlight_paths {}
3399 incr fh_serial
3402 }
3403 }
3405 proc gdttype_change {name ix op} {
3406 global gdttype highlight_files findstring findpattern
3408 stopfinding
3412 set highlight_files {}
3413 hfiles_change
3414 }
3415 findcom_change
3416 } else {
3418 set findpattern {}
3419 findcom_change
3420 }
3422 hfiles_change
3423 }
3424 drawvisible
3425 }
3426 # enable/disable findtype/findloc menus too
3427 }
3429 proc find_change {name ix op} {
3430 global gdttype findstring highlight_files
3432 stopfinding
3434 findcom_change
3435 } else {
3438 hfiles_change
3439 }
3440 }
3441 drawvisible
3442 }
3444 proc findcom_change args {
3445 global nhighlights boldnamerows
3446 global findpattern findtype findstring gdttype
3448 stopfinding
3449 # delete previous highlights, if any
3452 }
3453 set boldnamerows {}
3454 catch {unset nhighlights}
3455 unbolden
3456 unmarkmatches
3458 set findpattern {}
3461 } else {
3462 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
3465 }
3466 }
3468 proc makepatterns {l} {
3469 set ret {}
3474 } else {
3477 }
3478 }
3480 }
3482 proc do_file_hl {serial} {
3483 global highlight_files filehighlight highlight_paths gdttype fhl_list
3488 highlight_filelist
3492 } else {
3493 # must be "containing:", i.e. we're searching commit info
3494 return
3495 }
3500 set fhl_list {}
3501 drawvisible
3502 flushhighlights
3503 }
3505 proc flushhighlights {} {
3506 global filehighlight fhl_list
3508 if {[info exists filehighlight]} {
3509 lappend fhl_list {}
3512 }
3513 }
3515 proc askfilehighlight {row id} {
3516 global filehighlight fhighlights fhl_list
3521 }
3523 proc readfhighlight {} {
3524 global filehighlight fhighlights curview iddrawn
3525 global fhl_list find_dirn
3527 if {![info exists filehighlight]} {
3528 return 0
3529 }
3530 set nr 0
3538 }
3545 }
3547 }
3549 # strange...
3550 puts "oops, git diff-tree died"
3552 unset filehighlight
3553 return 0
3554 }
3555 if {[info exists find_dirn]} {
3556 run findmore
3557 }
3558 return 1
3559 }
3561 proc doesmatch {f} {
3562 global findtype findpattern
3568 } else {
3570 }
3571 }
3573 proc askfindhighlight {row id} {
3574 global nhighlights commitinfo iddrawn
3575 global findloc
3576 global markingmatches
3580 }
3582 set isbold 0
3583 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
3588 set isbold 2
3589 break
3590 }
3591 set isbold 1
3592 }
3593 }
3599 }
3600 }
3603 }
3604 }
3606 }
3608 proc markrowmatches {row id} {
3609 global canv canv2 linehtag linentag commitinfo findloc
3620 }
3621 }
3627 }
3628 }
3629 }
3631 proc vrel_change {name ix op} {
3632 global highlight_related
3634 rhighlight_none
3636 run drawvisible
3637 }
3638 }
3640 # prepare for testing whether commits are descendents or ancestors of a
3641 proc rhighlight_sel {a} {
3642 global descendent desc_todo ancestor anc_todo
3643 global highlight_related
3645 catch {unset descendent}
3647 catch {unset ancestor}
3650 rhighlight_none
3651 run drawvisible
3652 }
3653 }
3655 proc rhighlight_none {} {
3656 global rhighlights
3658 catch {unset rhighlights}
3659 unbolden
3660 }
3662 proc is_descendent {a} {
3663 global curview children descendent desc_todo
3668 set leftover {}
3669 set done 0
3674 continue
3675 }
3681 set done 1
3682 }
3683 }
3684 }
3687 return
3688 }
3689 }
3692 }
3694 proc is_ancestor {a} {
3695 global curview parents ancestor anc_todo
3700 set leftover {}
3701 set done 0
3706 continue
3707 }
3713 set done 1
3714 }
3715 }
3716 }
3719 return
3720 }
3721 }
3724 }
3726 proc askrelhighlight {row id} {
3727 global descendent highlight_related iddrawn rhighlights
3728 global selectedline ancestor
3730 if {![info exists selectedline]} return
3731 set isbold 0
3736 }
3738 set isbold 1
3739 }
3744 }
3746 set isbold 1
3747 }
3748 }
3752 }
3753 }
3755 }
3757 # Graph layout functions
3759 proc shortids {ids} {
3760 set res {}
3766 } else {
3768 }
3769 }
3771 }
3773 proc ntimes {n o} {
3774 set ret {}
3779 }
3781 }
3783 }
3785 proc ordertoken {id} {
3786 global ordertok curview varcid varcstart varctok curview parents children
3787 global nullid nullid2
3791 }
3793 set todo {}
3794 while {1} {
3798 } else {
3800 }
3803 break
3804 }
3807 # it's a root
3809 break
3810 }
3813 } else {
3817 }
3819 }
3820 }
3825 }
3828 }
3830 # Work out where id should go in idlist so that order-token
3831 # values increase from left to right
3832 proc idcol {idlist id {i 0}} {
3835 set i 0
3836 }
3840 }
3842 incr i
3843 } else {
3847 }
3848 }
3850 }
3852 proc initlayout {} {
3853 global rowidlist rowisopt rowfinal displayorder parentlist
3854 global numcommits canvxmax canv
3855 global nextcolor
3856 global colormap rowtextx
3858 set numcommits 0
3859 set displayorder {}
3860 set parentlist {}
3861 set nextcolor 0
3862 set rowidlist {}
3863 set rowisopt {}
3864 set rowfinal {}
3866 catch {unset colormap}
3867 catch {unset rowtextx}
3868 setcanvscroll
3869 }
3871 proc setcanvscroll {} {
3872 global canv canv2 canv3 numcommits linespc canvxmax canvy0
3873 global lastscrollset lastscrollrows
3879 set lastscrollset [clock clicks -milliseconds]
3881 }
3883 proc visiblerows {} {
3884 global canv numcommits linespc
3892 set r0 0
3893 }
3898 }
3900 }
3902 proc layoutmore {} {
3903 global commitidx viewcomplete curview
3904 global numcommits pending_select selectedline curview
3905 global lastscrollset lastscrollrows commitinterest
3909 setcanvscroll
3910 }
3911 if {[info exists pending_select] &&
3914 }
3915 drawvisible
3916 }
3918 proc doshowlocalchanges {} {
3919 global curview mainheadid
3922 dodiffindex
3923 } else {
3925 }
3926 }
3928 proc dohidelocalchanges {} {
3929 global nullid nullid2 lserial curview
3933 }
3936 }
3937 incr lserial
3938 }
3940 # spawn off a process to do git diff-index --cached HEAD
3941 proc dodiffindex {} {
3942 global lserial showlocalchanges
3943 global isworktree
3946 incr lserial
3947 set fd [open "|git diff-index --cached HEAD" r]
3950 }
3952 proc readdiffindex {fd serial} {
3953 global mainheadid nullid nullid2 curview commitinfo commitdata lserial
3955 set isdiff 1
3958 return 1
3959 }
3960 set isdiff 0
3961 }
3962 # we only need to see one line and we don't really care what it says...
3966 return 0
3967 }
3969 # now see if there are any local changes not checked in to the index
3970 set fd [open "|git diff-files" r]
3975 # add the line for the changes in the index to the graph
3976 set hl [mc "Local changes checked in to index but not committed"]
3981 }
3985 }
3986 return 0
3987 }
3989 proc readdifffiles {fd serial} {
3990 global mainheadid nullid nullid2 curview
3991 global commitinfo commitdata lserial
3993 set isdiff 1
3996 return 1
3997 }
3998 set isdiff 0
3999 }
4000 # we only need to see one line and we don't really care what it says...
4004 return 0
4005 }
4008 # add the line for the local diff to the graph
4009 set hl [mc "Local uncommitted changes, not checked in to index"]
4014 } else {
4016 }
4020 }
4021 return 0
4022 }
4024 proc nextuse {id row} {
4025 global curview children
4030 return -1
4031 }
4034 }
4035 }
4036 }
4039 }
4040 return -1
4041 }
4043 proc prevuse {id row} {
4044 global curview children
4046 set ret -1
4052 }
4053 }
4054 }
4056 }
4058 proc make_idlist {row} {
4059 global displayorder parentlist uparrowlen downarrowlen mingaplen
4060 global commitidx curview children
4064 set r 0
4065 }
4068 set ra 0
4069 }
4073 }
4075 set ids {}
4084 }
4085 }
4086 }
4094 }
4095 }
4096 }
4104 }
4105 }
4106 incr r
4112 }
4113 }
4114 }
4115 set idlist {}
4118 }
4120 }
4122 proc rowsequal {a b} {
4125 }
4128 }
4130 }
4132 proc makeupline {id row rend col} {
4133 global rowidlist uparrowlen downarrowlen mingaplen
4139 }
4142 }
4149 }
4150 }
4151 }
4153 proc layoutrows {row endrow} {
4154 global rowidlist rowisopt rowfinal displayorder
4155 global uparrowlen downarrowlen maxwidth mingaplen
4156 global children parentlist
4157 global commitidx viewcomplete curview
4160 set idlist {}
4166 }
4167 }
4169 }
4174 set final 1
4175 } else {
4183 # if not the first child, we have to insert a line going up
4186 }
4187 }
4188 }
4198 }
4199 }
4200 }
4207 }
4208 }
4218 }
4219 }
4227 }
4228 }
4229 }
4230 }
4231 }
4235 set final 0
4236 }
4240 lappend rowisopt 0
4246 }
4248 } else {
4255 }
4256 }
4258 }
4260 proc changedrow {row} {
4261 global displayorder iddrawn rowisopt need_redisplay
4270 }
4271 }
4272 }
4275 set need_redisplay 1
4276 }
4277 }
4279 proc insert_pad {row col npad} {
4280 global rowidlist
4289 }
4292 }
4294 proc optimize_rows {row col endrow} {
4295 global rowidlist rowisopt displayorder curview children
4298 set row 1
4299 }
4302 set haspad 0
4311 } else {
4312 set pprevidlist {}
4313 }
4314 set x0 -1
4315 set xm -1
4320 set haspad 1
4321 continue
4322 }
4326 set isarrow 0
4327 set z0 {}
4332 }
4333 }
4338 set isarrow 1
4339 }
4340 }
4343 set isarrow 1
4344 }
4345 # Looking at lines from this row to the previous row,
4346 # make them go straight up if they end in an arrow on
4347 # the previous row; otherwise make them go straight up
4348 # or at 45 degrees.
4350 # Line currently goes left too much;
4351 # insert pads in the previous row, then optimize it
4356 }
4364 }
4366 # Line currently goes right too much;
4367 # insert pads in this line
4373 set haspad 1
4374 }
4381 }
4382 }
4383 # avoid lines jigging left then immediately right
4386 incr x0
4389 }
4390 }
4392 # Find the first column that doesn't have a line going right
4398 # check if this is the link to the first child
4401 # it is, work out offset to child
4403 }
4404 }
4406 }
4407 # Insert a pad at that column as long as it has a line and
4408 # isn't the last column
4413 }
4414 }
4415 }
4416 }
4418 proc xc {row col} {
4419 global canvx0 linespc
4421 }
4423 proc yc {row} {
4424 global canvy0 linespc
4426 }
4428 proc linewidth {id} {
4429 global thickerline lthickness
4434 }
4436 }
4438 proc rowranges {id} {
4439 global curview children uparrowlen downarrowlen
4440 global rowidlist
4444 return {}
4445 }
4446 set ret {}
4451 if {![info exists prev]} {
4453 } else {
4455 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
4456 }
4457 # see if the line extends the whole way from prevrow to row
4461 # it doesn't, see where it ends
4466 } else {
4469 incr r -1
4470 }
4472 # see where it starts up again
4477 } else {
4480 incr r
4481 }
4483 }
4484 }
4487 }
4490 }
4492 }
4494 proc drawlineseg {id row endrow arrowlow} {
4495 global rowidlist displayorder iddrawn linesegs
4496 global canv colormap linespc curview maxlinelen parentlist
4500 set arrowhigh 1
4501 while {1} {
4504 incr le -1
4505 break
4506 }
4510 set arrowhigh 0
4511 break
4512 }
4517 set arrowhigh 0
4518 }
4519 break
4520 }
4521 incr le
4522 }
4525 }
4527 set lines {}
4528 set i 0
4529 set joinhigh 0
4536 set joinhigh 1
4537 }
4538 break
4539 }
4540 incr i
4541 }
4542 }
4543 set joinlow 0
4548 set joinlow 1
4549 }
4550 }
4563 }
4564 } else {
4566 }
4574 set arrowlow 0
4575 }
4576 }
4584 }
4586 }
4589 # join parent line to first child
4600 } else {
4602 }
4610 }
4612 }
4614 } else {
4618 }
4626 } else {
4630 }
4632 }
4633 } else {
4639 }
4643 } else {
4644 # coalesce two pieces
4649 }
4653 }
4654 }
4658 }
4660 proc drawparentlinks {id row} {
4661 global rowidlist canv colormap curview parentlist
4662 global idpos linespc
4675 # rmx = right-most X coord used
4676 set rmx 0
4681 continue
4682 }
4686 }
4689 # drawlineseg will do this one for us
4690 continue
4691 }
4693 # should handle duplicated parents here...
4696 # if attaching to a vertical segment, draw a smaller
4697 # slant for visual distinctness
4701 } else {
4703 }
4705 # segment slants towards us already
4707 } else {
4712 }
4714 }
4715 } else {
4717 }
4722 }
4726 }
4727 }
4729 proc drawlines {id} {
4730 global canv
4733 }
4735 proc drawcmittext {id row col} {
4736 global linespc canv canv2 canv3 fgcolor curview
4737 global cmitlisted commitinfo rowidlist parentlist
4738 global rowtextx idpos idtags idheads idotherrefs
4739 global linehtag linentag linedtag selectedline
4740 global canvxmax boldrows boldnamerows fgcolor nullid nullid2
4742 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
4745 set ofill red
4747 set ofill green
4748 } else {
4750 }
4759 # triangle pointing left for left-side commits
4765 } else {
4766 # triangle pointing right for right-side commits
4772 }
4783 }
4784 }
4785 }
4792 }
4797 set font mainfont
4798 set nfont mainfont
4802 set font mainfontbold
4805 set nfont mainfontbold
4806 }
4807 }
4817 }
4821 setcanvscroll
4822 }
4823 }
4825 proc drawcmitrow {row} {
4826 global displayorder rowidlist nrows_drawn
4827 global iddrawn markingmatches
4828 global commitinfo numcommits
4829 global filehighlight fhighlights findpattern nhighlights
4830 global hlview vhighlights
4831 global highlight_related rhighlights
4838 }
4841 }
4844 }
4847 }
4852 return
4853 }
4856 }
4860 incr nrows_drawn
4861 }
4864 }
4865 }
4867 proc drawcommits {row {endrow {}}} {
4868 global numcommits iddrawn displayorder curview need_redisplay
4869 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
4872 set row 0
4873 }
4876 }
4879 }
4883 set rl1 0
4884 }
4887 set ro1 0
4888 }
4892 }
4897 }
4899 }
4900 }
4903 }
4906 clear_display
4907 drawvisible
4908 }
4910 # make the lines join to already-drawn rows either side
4914 }
4919 }
4934 # see if this is the first child of any of its parents
4937 # make this line extend up to the child
4939 }
4940 }
4941 } else {
4943 }
4944 }
4945 }
4946 }
4948 proc undolayout {row} {
4949 global uparrowlen mingaplen downarrowlen
4950 global rowidlist rowisopt rowfinal need_redisplay
4954 set r 0
4955 }
4957 incr r -1
4961 set need_redisplay 1
4962 run drawvisible
4963 }
4964 }
4966 proc drawvisible {} {
4967 global canv linespc curview vrowmod selectedline targetrow targetid
4968 global need_redisplay cscroll numcommits
4978 if {[info exists targetid]} {
4982 # Fix up the scrollregion and change the scrolling position
4983 # now that our target row has moved.
4986 setcanvscroll
4994 set need_redisplay 1
4995 }
4996 } else {
4997 unset targetid
4998 }
4999 }
5005 }
5006 if {[info exists selectedline] &&
5009 } elseif {[info exists targetid]} {
5011 }
5012 if {[info exists targetrow]} {
5015 }
5017 }
5019 }
5021 proc clear_display {} {
5022 global iddrawn linesegs need_redisplay nrows_drawn
5023 global vhighlights fhighlights nhighlights rhighlights
5025 allcanvs delete all
5026 catch {unset iddrawn}
5027 catch {unset linesegs}
5028 catch {unset vhighlights}
5029 catch {unset fhighlights}
5030 catch {unset nhighlights}
5031 catch {unset rhighlights}
5032 set need_redisplay 0
5033 set nrows_drawn 0
5034 }
5036 proc findcrossings {id} {
5037 global rowidlist parentlist numcommits displayorder
5039 set cross {}
5040 set ccross {}
5044 }
5063 }
5064 }
5065 }
5066 }
5067 }
5069 }
5071 proc assigncolor {id} {
5072 global colormap colors nextcolor
5073 global parents children children curview
5079 } else {
5080 set kids {}
5081 }
5087 return
5088 }
5089 }
5090 set badcolors {}
5091 set origbad {}
5094 # delimiter between corner crossings and other crossings
5097 }
5101 }
5102 }
5105 }
5112 }
5117 }
5118 }
5119 }
5122 }
5123 }
5127 set nextcolor 0
5128 }
5130 }
5132 }
5134 proc bindline {t id} {
5135 global canv
5141 }
5143 proc drawtags {id x xt y1} {
5144 global idtags idheads idotherrefs mainhead
5145 global linespc lthickness
5146 global canv rowtextx curview fgcolor bgcolor
5148 set marks {}
5149 set ntags 0
5150 set nheads 0
5154 }
5158 }
5161 }
5164 }
5169 set xvals {}
5170 set wvals {}
5171 set i -1
5173 incr i
5176 } else {
5178 }
5182 }
5189 set font mainfont
5190 if {[incr ntags -1] >= 0} {
5191 # draw a tag
5197 } else {
5198 # draw a head or other ref
5199 if {[incr nheads -1] >= 0} {
5200 set col green
5202 set font mainfontbold
5203 }
5204 } else {
5205 set col "#ddddff"
5206 }
5217 }
5218 }
5225 }
5226 }
5228 }
5230 proc xcoord {i level ln} {
5231 global canvx0 xspc1 xspc2
5238 }
5240 }
5242 proc show_status {msg} {
5243 global canv fgcolor
5245 clear_display
5248 }
5250 # Don't change the text pane cursor if it is currently the hand cursor,
5251 # showing that we are over a sha1 ID link.
5252 proc settextcursor {c} {
5253 global ctext curtextcursor
5257 }
5259 }
5261 proc nowbusy {what {name {}}} {
5262 global isbusy busyname statusw
5264 if {[array names isbusy] eq {}} {
5265 . config -cursor watch
5266 settextcursor watch
5267 }
5272 }
5273 }
5275 proc notbusy {what} {
5276 global isbusy maincursor textcursor busyname statusw
5278 catch {
5283 }
5284 }
5285 if {[array names isbusy] eq {}} {
5288 }
5289 }
5291 proc findmatches {f} {
5292 global findtype findstring
5295 } else {
5300 }
5301 set matches {}
5302 set i 0
5307 }
5308 }
5310 }
5312 proc dofind {{dirn 1} {wrap 1}} {
5313 global findstring findstartline findcurline selectedline numcommits
5314 global gdttype filehighlight fh_serial find_dirn findallowwrap
5316 if {[info exists find_dirn]} {
5318 stopfinding
5319 }
5320 focus .
5322 if {![info exists selectedline]} {
5324 } else {
5326 }
5328 nowbusy finding [mc "Searching"]
5332 }
5335 run findmore
5336 }
5338 proc stopfinding {} {
5339 global find_dirn findcurline fprogcoord
5341 if {[info exists find_dirn]} {
5342 unset find_dirn
5343 unset findcurline
5344 notbusy finding
5345 set fprogcoord 0
5346 adjustprogress
5347 }
5348 }
5350 proc findmore {} {
5351 global commitdata commitinfo numcommits findpattern findloc
5352 global findstartline findcurline findallowwrap
5353 global find_dirn gdttype fhighlights fprogcoord
5354 global curview varcorder vrownum varccommits vrowmod
5356 if {![info exists find_dirn]} {
5357 return 0
5358 }
5359 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
5361 set moretodo 0
5363 incr l
5365 set l 0
5366 }
5369 } else {
5372 }
5373 } else {
5376 }
5377 incr l -1
5380 } else {
5381 set lim -1
5383 }
5384 }
5387 set n 500
5388 set moretodo 1
5389 }
5392 }
5393 set found 0
5394 set domore 1
5408 }
5410 # shouldn't happen unless git log doesn't give all the commits...
5413 continue
5414 }
5417 }
5422 set found 1
5423 break
5424 }
5425 }
5427 }
5428 } else {
5436 }
5441 }
5444 break
5445 }
5448 set domore 0
5450 }
5451 }
5452 }
5453 }
5455 unset findcurline
5456 unset find_dirn
5457 notbusy finding
5458 set fprogcoord 0
5459 adjustprogress
5462 } else {
5463 bell
5464 }
5465 return 0
5466 }
5468 flushhighlights
5469 } else {
5471 }
5475 }
5477 adjustprogress
5479 }
5481 proc findselectline {l} {
5482 global findloc commentend ctext findcurline markingmatches gdttype
5484 set markingmatches 1
5488 # highlight the matches in the comments
5495 }
5496 }
5497 drawvisible
5498 }
5500 # mark the bits of a headline or author that match a find string
5501 proc markmatches {canv l str tag matches font row} {
5502 global selectedline
5520 }
5521 }
5522 }
5524 proc unmarkmatches {} {
5525 global markingmatches
5527 allcanvs delete matches
5528 set markingmatches 0
5529 stopfinding
5530 }
5532 proc selcanvline {w x y} {
5533 global canv canvy0 ctext linespc
5534 global rowtextx
5541 set l 0
5542 }
5547 }
5548 unmarkmatches
5550 }
5552 proc commit_descriptor {p} {
5553 global commitinfo
5556 }
5557 set l "..."
5560 }
5562 }
5564 # append some text to the ctext widget, and make any SHA1 ID
5565 # that we know about be a clickable link.
5566 proc appendwithlinks {text tags} {
5567 global ctext linknum curview pendinglinks
5576 incr e
5580 incr linknum
5581 }
5582 }
5584 proc setlink {id lk} {
5585 global curview ctext pendinglinks commitinterest
5592 } else {
5595 }
5596 }
5598 proc makelink {id} {
5599 global pendinglinks
5604 }
5606 }
5608 proc linkcursor {w inc} {
5609 global linkentercount curtextcursor
5613 } else {
5616 set linkentercount 0
5617 }
5618 }
5619 }
5621 proc viewnextline {dir} {
5622 global canv linespc
5630 set newtop 0
5633 }
5635 }
5637 # add a list of tag or branch names at position pos
5638 # returns the number of names inserted
5639 proc appendrefs {pos ids var} {
5643 return 0
5644 }
5647 set tags {}
5651 }
5652 }
5655 } else {
5657 set sep {}
5661 incr linknum
5666 set sep ", "
5667 }
5668 }
5671 }
5673 # called when we have finished computing the nearby tags
5674 proc dispneartags {delay} {
5675 global selectedline currentid showneartags tagphase
5678 after cancel dispnexttag
5680 after 200 dispnexttag
5681 set tagphase -1
5682 } else {
5683 after idle dispnexttag
5684 set tagphase 0
5685 }
5686 }
5688 proc dispnexttag {} {
5689 global selectedline currentid showneartags tagphase ctext
5693 0 {
5697 }
5698 }
5699 1 {
5703 }
5704 }
5705 2 {
5710 # turn "Branch" into "Branches"
5714 }
5715 }
5716 }
5717 }
5718 if {[incr tagphase] <= 2} {
5719 after idle dispnexttag
5720 }
5721 }
5723 proc make_secsel {l} {
5724 global linehtag linentag linedtag canv canv2 canv3
5739 }
5741 proc selectline {l isnew} {
5742 global canv ctext commitinfo selectedline
5743 global canvy0 linespc parents children curview
5744 global currentid sha1entry
5745 global commentend idtags linknum
5746 global mergemax numcommits pending_select
5747 global cmitmode showneartags allcommits
5748 global targetrow targetid lastscrollrows
5749 global autoselect
5751 catch {unset pending_select}
5753 normalline
5754 unsel_reflist
5755 stopfinding
5763 setcanvscroll
5764 }
5778 } else {
5782 }
5783 }
5787 } else {
5791 }
5792 }
5793 }
5796 set newtop 0
5797 }
5799 drawvisible
5800 }
5806 }
5813 }
5817 clear_ctext
5818 set linknum 0
5821 }
5831 }
5833 }
5835 set headers {}
5838 set np 0
5841 set tag mmax
5842 } else {
5844 }
5847 incr np
5848 }
5849 } else {
5852 }
5853 }
5857 }
5859 # make anything that looks like a SHA1 ID be a clickable link
5862 if {![info exists allcommits]} {
5863 getallcommits
5864 }
5875 dispneartags 1
5876 }
5881 }
5888 init_flist [mc "Comments"]
5893 } else {
5895 }
5896 }
5898 proc selfirstline {} {
5899 unmarkmatches
5900 selectline 0 1
5901 }
5903 proc sellastline {} {
5904 global numcommits
5905 unmarkmatches
5908 }
5910 proc selnextline {dir} {
5911 global selectedline
5912 focus .
5913 if {![info exists selectedline]} return
5915 unmarkmatches
5917 }
5919 proc selnextpage {dir} {
5920 global canv linespc selectedline numcommits
5924 set lpp 1
5925 }
5927 drawvisible
5928 if {![info exists selectedline]} return
5931 set l 0
5934 }
5935 unmarkmatches
5937 }
5939 proc unselectline {} {
5940 global selectedline currentid
5942 catch {unset selectedline}
5943 catch {unset currentid}
5944 allcanvs delete secsel
5945 rhighlight_none
5946 }
5948 proc reselectline {} {
5949 global selectedline
5951 if {[info exists selectedline]} {
5953 }
5954 }
5956 proc addtohistory {cmd} {
5957 global history historyindex curview
5962 return
5963 }
5967 } else {
5969 }
5970 incr historyindex
5972 .tf.bar.leftbut conf -state normal
5973 } else {
5974 .tf.bar.leftbut conf -state disabled
5975 }
5976 .tf.bar.rightbut conf -state disabled
5977 }
5979 proc godo {elt} {
5980 global curview
5986 }
5988 }
5990 proc goback {} {
5991 global history historyindex
5992 focus .
5995 incr historyindex -1
5997 .tf.bar.rightbut conf -state normal
5998 }
6000 .tf.bar.leftbut conf -state disabled
6001 }
6002 }
6004 proc goforw {} {
6005 global history historyindex
6006 focus .
6010 incr historyindex
6012 .tf.bar.leftbut conf -state normal
6013 }
6015 .tf.bar.rightbut conf -state disabled
6016 }
6017 }
6019 proc gettree {id} {
6020 global treefilelist treeidlist diffids diffmergeid treepending
6021 global nullid nullid2
6024 catch {unset diffmergeid}
6026 if {![info exists treepending]} {
6028 set cmd [list | git ls-files]
6030 set cmd [list | git ls-files --stage -t]
6031 } else {
6033 }
6035 return
6036 }
6042 }
6043 } else {
6045 }
6046 }
6048 proc gettreeline {gtf id} {
6049 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
6051 set nl 0
6055 } else {
6063 }
6065 }
6067 }
6070 }
6072 unset treepending
6074 if {![info exists diffmergeid]} {
6076 }
6079 } else {
6081 }
6082 return 0
6083 }
6085 proc showfile {f} {
6086 global treefilelist treeidlist diffids nullid nullid2
6087 global ctext commentend
6092 return
6093 }
6097 return
6098 }
6099 } else {
6103 return
6104 }
6105 }
6114 settabs 0
6115 }
6117 proc getblobline {bf id} {
6118 global diffids cmitmode ctext
6122 return 0
6123 }
6125 set nl 0
6128 }
6130 # delete last newline
6133 return 0
6134 }
6137 }
6139 proc mergediff {id} {
6140 global diffmergeid mdifffd
6141 global diffids
6142 global parents
6143 global diffcontext
6144 global limitdiffs vfilelimit curview
6148 # this doesn't seem to actually affect anything...
6152 }
6155 return
6156 }
6162 }
6164 proc getmergediffline {mdf id np} {
6165 global diffmergeid ctext cflist mergemax
6166 global difffilestart mdifffd
6169 set nr 0
6174 return 0
6175 }
6177 # start of a new file
6188 # do nothing
6189 } else {
6190 # parse the prefix - one ' ', '-' or '+' for each parent
6191 set spaces {}
6192 set minuses {}
6193 set pluses {}
6194 set isbad 0
6203 } else {
6204 set isbad 1
6205 break
6206 }
6207 }
6208 set tags {}
6209 set num {}
6215 lappend tags mresult
6217 }
6220 set num "max"
6221 }
6223 }
6225 }
6226 }
6230 return 0
6231 }
6233 }
6235 proc startdiff {ids} {
6236 global treediffs diffids treepending diffmergeid nullid nullid2
6238 settabs 1
6240 catch {unset diffmergeid}
6244 if {![info exists treepending]} {
6246 }
6247 } else {
6249 }
6250 }
6252 proc path_filter {filter name} {
6257 return 1
6258 }
6259 } else {
6263 return 1
6264 }
6265 }
6266 }
6267 return 0
6268 }
6270 proc addtocflist {ids} {
6271 global treediffs
6275 }
6277 proc diffcmd {ids flags} {
6278 global nullid nullid2
6284 # comparing working directory with some specific revision
6288 } else {
6290 }
6291 } else {
6292 # comparing working directory with index
6295 lappend cmd -R
6296 }
6297 }
6301 # comparing index with specific revision
6304 } else {
6306 }
6307 } else {
6308 # comparing index with HEAD
6309 lappend cmd HEAD
6310 }
6311 } else {
6313 }
6315 }
6317 proc gettreediffs {ids} {
6318 global treediff treepending
6321 set treediff {}
6325 }
6327 proc gettreediffline {gdtf ids} {
6328 global treediff treediffs treepending diffids diffmergeid
6329 global cmitmode vfilelimit curview limitdiffs
6331 set nr 0
6338 }
6340 }
6341 }
6344 }
6347 set flist {}
6351 }
6352 }
6354 } else {
6356 }
6357 unset treepending
6361 if {![info exists diffmergeid]} {
6363 }
6364 } else {
6366 }
6367 return 0
6368 }
6370 # empty string or positive integer
6371 proc diffcontextvalidate {v} {
6373 }
6375 proc diffcontextchange {n1 n2 op} {
6376 global diffcontextstring diffcontext
6381 reselectline
6382 }
6383 }
6384 }
6386 proc changeignorespace {} {
6387 reselectline
6388 }
6390 proc getblobdiffs {ids} {
6391 global blobdifffd diffids env
6392 global diffinhdr treediffs
6393 global diffcontext
6394 global ignorespace
6395 global limitdiffs vfilelimit curview
6399 append cmd " -w"
6400 }
6403 }
6406 return
6407 }
6408 set diffinhdr 0
6412 }
6414 proc setinlist {var i val} {
6419 }
6422 } else {
6424 }
6425 }
6427 proc makediffhdr {fname ids} {
6428 global ctext curdiffstart treediffs
6433 }
6437 }
6439 proc getblobdiffline {bdf ids} {
6440 global diffids blobdifffd ctext curdiffstart
6441 global diffnexthead diffnextnote difffilestart
6442 global diffinhdr treediffs
6444 set nr 0
6449 return 0
6450 }
6452 # trim off "diff --git "
6454 set diffinhdr 1
6455 # start of a new file
6459 # If the name hasn't changed the length will be odd,
6460 # the middle char will be a space, and the two bits either
6461 # side will be a/name and b/name, or "a/name" and "b/name".
6462 # If the name has changed we'll get "rename from" and
6463 # "rename to" or "copy from" and "copy to" lines following this,
6464 # and we'll use them to get the filenames.
6465 # This complexity is necessary because spaces in the filename(s)
6466 # don't get escaped.
6472 continue
6473 }
6474 # unescape if quoted and chop off the a/ from the front
6477 } else {
6479 }
6482 } elseif {[regexp {^@@ -([0-9]+)(,[0-9]+)? \+([0-9]+)(,[0-9]+)? @@(.*)} \
6485 set diffinhdr 0
6492 }
6496 }
6502 }
6505 # do nothing
6506 continue
6508 set diffinhdr 0
6509 continue
6510 }
6513 } else {
6520 } else {
6521 # "\ No newline at end of file",
6522 # or something else we don't recognize
6524 }
6525 }
6526 }
6530 return 0
6531 }
6533 }
6535 proc changediffdisp {} {
6536 global ctext diffelide
6540 }
6542 proc prevfile {} {
6543 global difffilestart ctext
6549 return
6550 }
6552 }
6554 }
6556 proc nextfile {} {
6557 global difffilestart ctext
6562 return
6563 }
6564 }
6565 }
6567 proc clear_ctext {{first 1.0}} {
6568 global ctext smarktop smarkbot
6569 global pendinglinks
6574 }
6577 }
6580 catch {unset pendinglinks}
6581 }
6582 }
6584 proc settabs {{firstab {}}} {
6585 global firsttabstop tabstop ctext have_tk85
6589 }
6590 set w [font measure textfont "0"]
6596 } else {
6598 }
6599 }
6601 proc incrsearch {name ix op} {
6602 global ctext searchstring searchdirn
6606 # no anchor set, use start of selection, or of visible area
6612 } else {
6614 }
6615 }
6620 }
6621 searchmarkvisible 1
6622 }
6623 }
6625 proc dosearch {} {
6626 global sstring ctext searchstring searchdirn
6630 set searchdirn -forwards
6636 set start "@0,0"
6637 }
6641 bell
6642 return
6643 }
6648 }
6649 }
6651 proc dosearchback {} {
6652 global sstring ctext searchstring searchdirn
6656 set searchdirn -backwards
6663 }
6667 bell
6668 return
6669 }
6674 }
6675 }
6677 proc searchmark {first last} {
6678 global ctext searchstring
6681 while {1} {
6686 }
6687 }
6689 proc searchmarkvisible {doall} {
6690 global ctext smarktop smarkbot
6695 # no overlap with previous
6699 } else {
6703 }
6707 }
6708 }
6709 }
6711 proc scrolltext {f0 f1} {
6712 global searchstring
6716 searchmarkvisible 0
6717 }
6718 }
6720 proc setcoords {} {
6721 global linespc charspc canvx0 canvy0
6722 global xspc1 xspc2 lthickness
6724 set linespc [font metrics mainfont -linespace]
6725 set charspc [font measure mainfont "m"]
6731 }
6733 proc redisplay {} {
6734 global canv
6735 global selectedline
6740 clear_display
6741 setcanvscroll
6743 drawvisible
6744 if {[info exists selectedline]} {
6747 }
6748 }
6750 proc parsefont {f n} {
6751 global fontattr
6756 set s 10
6759 }
6765 "normal" -
6767 "roman" -
6769 }
6770 }
6771 }
6773 proc fontflags {f {isbold 0}} {
6774 global fontattr
6779 }
6781 proc fontname {f} {
6782 global fontattr
6786 lappend n "bold"
6787 }
6789 lappend n "italic"
6790 }
6792 }
6794 proc incrfont {inc} {
6795 global mainfont textfont ctext canv cflist showrefstop
6796 global stopped entries fontattr
6798 unmarkmatches
6802 set s 1
6803 }
6807 set mainfont [fontname mainfont]
6811 set s 1
6812 }
6816 set textfont [fontname textfont]
6817 setcoords
6818 settabs
6819 redisplay
6820 }
6822 proc clearsha1 {} {
6823 global sha1entry sha1string
6826 }
6827 }
6829 proc sha1change {n1 n2 op} {
6830 global sha1string currentid sha1but
6833 set state disabled
6834 } else {
6835 set state normal
6836 }
6840 } else {
6842 }
6843 }
6845 proc gotocommit {} {
6846 global sha1string tagids headids curview varcid
6854 } else {
6861 return
6862 }
6864 }
6865 }
6866 }
6869 return
6870 }
6873 } else {
6875 }
6877 }
6879 proc lineenter {x y id} {
6880 global hoverx hovery hoverid hovertimer
6881 global commitinfo canv
6887 if {[info exists hovertimer]} {
6889 }
6890 set hovertimer [after 500 linehover]
6892 }
6894 proc linemotion {x y id} {
6895 global hoverx hovery hoverid hovertimer
6900 if {[info exists hovertimer]} {
6902 }
6903 set hovertimer [after 500 linehover]
6904 }
6905 }
6907 proc lineleave {id} {
6908 global hoverid hovertimer canv
6912 if {[info exists hovertimer]} {
6914 unset hovertimer
6915 }
6916 unset hoverid
6917 }
6918 }
6920 proc linehover {} {
6921 global hoverx hovery hoverid hovertimer
6922 global canv linespc lthickness
6923 global commitinfo
6936 -fill \#ffff80 -outline black -width 1 -tags hover]
6939 -font mainfont]
6941 }
6943 proc clickisonarrow {id y} {
6944 global lthickness
6953 }
6954 }
6955 return {}
6956 }
6958 proc arrowjump {id n y} {
6959 global canv
6961 # 1 <-> 2, 3 <-> 4, etc...
6971 set yfrac 0
6972 }
6974 }
6976 proc lineclick {x y id isnew} {
6977 global ctext commitinfo children canv thickerline curview
6980 unmarkmatches
6981 unselectline
6982 normalline
6984 # draw this line thicker than normal
6992 }
6996 return
6997 }
7001 }
7002 # fill the details pane with info about this line
7004 clear_ctext
7005 settabs 0
7017 set i 0
7019 incr i
7029 }
7030 }
7032 init_flist {}
7033 }
7035 proc normalline {} {
7036 global thickerline
7037 if {[info exists thickerline]} {
7039 unset thickerline
7041 }
7042 }
7044 proc selbyid {id} {
7045 global curview
7048 }
7049 }
7051 proc mstime {} {
7052 global startmstime
7053 if {![info exists startmstime]} {
7054 set startmstime [clock clicks -milliseconds]
7055 }
7057 }
7059 proc rowmenu {x y id} {
7060 global rowctxmenu selectedline rowmenuid curview
7061 global nullid nullid2 fakerowmenu mainhead
7063 stopfinding
7065 if {![info exists selectedline]
7067 set state disabled
7068 } else {
7069 set state normal
7070 }
7074 } else {
7076 }
7081 }
7083 proc diffvssel {dirn} {
7084 global rowmenuid selectedline
7086 if {![info exists selectedline]} return
7090 } else {
7093 }
7096 }
7098 proc doseldiff {oldid newid} {
7099 global ctext
7100 global commitinfo
7103 clear_ctext
7104 init_flist [mc "Top"]
7119 }
7121 proc mkpatch {} {
7122 global rowmenuid currentid commitinfo patchtop patchnum
7124 if {![info exists currentid]} return
7129 set top .patch
7158 incr patchnum
7168 }
7170 proc mkpatchrev {} {
7171 global patchtop
7177 foreach e [list fromsha1 fromhead tosha1 tohead] \
7183 }
7184 }
7186 proc mkpatchgo {} {
7187 global patchtop nullid nullid2
7193 # trim off the initial "|"
7198 }
7200 unset patchtop
7201 }
7203 proc mkpatchcan {} {
7204 global patchtop
7207 unset patchtop
7208 }
7210 proc mktag {} {
7211 global rowmenuid mktagtop commitinfo
7213 set top .maketag
7239 }
7241 proc domktag {} {
7242 global mktagtop env tagids idtags
7247 error_popup [mc "No tag name specified"]
7248 return
7249 }
7252 return
7253 }
7254 if {[catch {
7256 } err]} {
7258 return
7259 }
7265 dispneartags 0
7266 run refill_reflist
7267 }
7269 proc redrawtags {id} {
7270 global canv linehtag idpos currentid curview
7271 global canvxmax iddrawn
7284 setcanvscroll
7285 }
7288 }
7289 }
7291 proc mktagcan {} {
7292 global mktagtop
7295 unset mktagtop
7296 }
7298 proc mktaggo {} {
7299 domktag
7300 mktagcan
7301 }
7303 proc writecommit {} {
7304 global rowmenuid wrcomtop commitinfo wrcomcmd
7306 set top .writecommit
7336 }
7338 proc wrcomgo {} {
7339 global wrcomtop
7346 }
7348 unset wrcomtop
7349 }
7351 proc wrcomcan {} {
7352 global wrcomtop
7355 unset wrcomtop
7356 }
7358 proc mkbranch {} {
7359 global rowmenuid mkbrtop
7361 set top .makebranch
7382 }
7384 proc mkbrgo {top} {
7385 global headids idheads
7390 error_popup [mc "Please specify a name for the new branch"]
7391 return
7392 }
7394 nowbusy newbranch
7395 update
7396 if {[catch {
7398 } err]} {
7399 notbusy newbranch
7401 } else {
7405 notbusy newbranch
7407 dispneartags 0
7408 run refill_reflist
7409 }
7410 }
7412 proc cherrypick {} {
7413 global rowmenuid curview
7414 global mainhead mainheadid
7416 set oldhead [exec git rev-parse HEAD]
7419 set ok [confirm_popup [mc "Commit %s is already\
7420 included in branch %s -- really re-apply it?" \
7423 }
7424 nowbusy cherrypick [mc "Cherry-picking"]
7425 update
7426 # Unfortunately git-cherry-pick writes stuff to stderr even when
7427 # no error occurs, and exec takes that as an indication of error...
7429 notbusy cherrypick
7431 return
7432 }
7433 set newhead [exec git rev-parse HEAD]
7435 notbusy cherrypick
7436 error_popup [mc "No changes committed"]
7437 return
7438 }
7446 }
7450 }
7451 notbusy cherrypick
7452 }
7454 proc resethead {} {
7455 global mainhead rowmenuid confirm_ok resettype
7457 set confirm_ok 0
7458 set w ".confirmreset"
7464 -justify center -aspect 1000
7469 set resettype mixed
7471 -text [mc "Soft: Leave working tree and index untouched"]
7474 -text [mc "Mixed: Leave working tree untouched, reset index"]
7477 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
7487 if {[catch {set fd [open \
7490 } else {
7491 dohidelocalchanges
7493 nowbusy reset [mc "Resetting"]
7495 }
7496 }
7498 proc readresetstat {fd} {
7499 global mainhead mainheadid showlocalchanges rprogcoord
7504 adjustprogress
7505 }
7506 return 1
7507 }
7508 set rprogcoord 0
7509 adjustprogress
7510 notbusy reset
7513 }
7515 set newhead [exec git rev-parse HEAD]
7522 }
7524 doshowlocalchanges
7525 }
7526 return 0
7527 }
7529 # context menu for a head
7530 proc headmenu {x y id head} {
7531 global headmenuid headmenuhead headctxmenu mainhead
7533 stopfinding
7536 set state normal
7538 set state disabled
7539 }
7543 }
7545 proc cobranch {} {
7546 global headmenuid headmenuhead mainhead headids
7547 global showlocalchanges mainheadid
7549 # check the tree is clean first??
7551 nowbusy checkout [mc "Checking out"]
7552 update
7553 dohidelocalchanges
7554 if {[catch {
7556 } err]} {
7557 notbusy checkout
7559 } else {
7560 notbusy checkout
7565 }
7568 }
7570 dodiffindex
7571 }
7572 }
7574 proc rmbranch {} {
7575 global headmenuid headmenuhead mainhead
7576 global idheads
7580 # this check shouldn't be needed any more...
7582 error_popup [mc "Cannot delete the currently checked-out branch"]
7583 return
7584 }
7587 # the stuff on this branch isn't on any other branch
7588 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
7590 }
7591 nowbusy rmbranch
7592 update
7594 notbusy rmbranch
7596 return
7597 }
7601 notbusy rmbranch
7602 dispneartags 0
7603 run refill_reflist
7604 }
7606 # Display a list of tags and heads
7607 proc showrefs {} {
7608 global showrefstop bgcolor fgcolor selectbgcolor
7609 global bglist fglist reflistfilter reflist maincursor
7611 set top .showrefs
7615 refill_reflist
7616 return
7617 }
7624 -spacing1 1 -spacing3 1 -state disabled
7635 set reflistfilter "*"
7636 trace add variable reflistfilter write reflistfilter_change
7647 set reflist {}
7648 refill_reflist
7649 }
7651 proc sel_reflist {w x y} {
7652 global showrefstop reflist headids tagids otherrefids
7662 }
7664 }
7666 proc unsel_reflist {} {
7667 global showrefstop
7671 }
7673 proc reflistfilter_change {n1 n2 op} {
7674 global reflistfilter
7676 after cancel refill_reflist
7677 after 200 refill_reflist
7678 }
7680 proc refill_reflist {} {
7681 global reflist reflistfilter showrefstop headids tagids otherrefids
7682 global curview commitinterest
7685 set refs {}
7686 foreach n [array names headids] {
7690 } else {
7692 }
7693 }
7694 }
7695 foreach n [array names tagids] {
7699 } else {
7701 }
7702 }
7703 }
7704 foreach n [array names otherrefids] {
7708 } else {
7710 }
7711 }
7712 }
7720 set i 0
7721 set j 0
7730 }
7731 } else {
7732 set cmp -1
7733 }
7734 } else {
7735 set cmp 1
7736 }
7738 -1 {
7740 incr i
7741 }
7742 0 {
7743 incr i
7744 incr j
7745 }
7746 1 {
7751 incr j
7752 }
7753 }
7754 }
7756 # delete last newline
7759 }
7761 # Stuff for finding nearby tags
7762 proc getallcommits {} {
7763 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
7764 global idheads idtags idotherrefs allparents tagobjid
7766 if {![info exists allcommits]} {
7767 set nextarc 0
7768 set allcommits 0
7769 set seeds {}
7770 set allcwait 0
7771 set cachedarcs 0
7772 set allccache [file join [gitdir] "gitk.cache"]
7773 if {![catch {
7775 set allcwait 1
7777 }]} return
7778 }
7781 return
7782 }
7783 set cmd [list | git rev-list --parents]
7786 set ids "--all"
7787 } else {
7788 set refs [concat [array names idheads] [array names idtags] \
7789 [array names idotherrefs]]
7790 set ids {}
7791 set tagobjs {}
7792 foreach name [array names tagobjid] {
7794 }
7799 }
7800 }
7804 }
7805 }
7806 }
7810 incr allcommits
7811 nowbusy allcommits
7813 } else {
7814 dispneartags 0
7815 }
7816 }
7818 # Since most commits have 1 parent and 1 child, we group strings of
7819 # such commits into "arcs" joining branch/merge points (BMPs), which
7820 # are commits that either don't have 1 parent or don't have 1 child.
7821 #
7822 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
7823 # arcout(id) - outgoing arcs for BMP
7824 # arcids(a) - list of IDs on arc including end but not start
7825 # arcstart(a) - BMP ID at start of arc
7826 # arcend(a) - BMP ID at end of arc
7827 # growing(a) - arc a is still growing
7828 # arctags(a) - IDs out of arcids (excluding end) that have tags
7829 # archeads(a) - IDs out of arcids (excluding end) that have heads
7830 # The start of an arc is at the descendent end, so "incoming" means
7831 # coming from descendents, and "outgoing" means going towards ancestors.
7833 proc getallclines {fd} {
7834 global allparents allchildren idtags idheads nextarc
7835 global arcnos arcids arctags arcout arcend arcstart archeads growing
7836 global seeds allcommits cachedarcs allcupdate
7838 set nid 0
7842 # seen it already
7843 continue
7844 }
7845 set cachedarcs 0
7852 } else {
7858 }
7861 }
7863 # seen parent already
7866 }
7870 }
7873 continue
7874 }
7875 }
7880 }
7882 set ao {}
7885 set a [incr nextarc]
7894 # seen it already, may need to make a new branch
7897 }
7901 }
7903 }
7905 }
7907 global cached_dheads cached_dtags cached_atags
7908 catch {unset cached_dheads}
7909 catch {unset cached_dtags}
7910 catch {unset cached_atags}
7911 }
7914 }
7915 set cacheok 1
7916 if {[catch {
7919 } err]} {
7920 # got an error reading the list of commits
7921 # if we were updating, try rereading the whole thing again
7923 incr allcommits -1
7925 return
7926 }
7927 error_popup "[mc "Error reading commit topology information;\
7928 branch and preceding/following tag information\
7930 set cacheok 0
7931 }
7932 if {[incr allcommits -1] == 0} {
7933 notbusy allcommits
7935 run savecache
7936 }
7937 }
7938 dispneartags 0
7939 return 0
7940 }
7942 proc recalcarc {a} {
7943 global arctags archeads arcids idtags idheads
7945 set at {}
7946 set ah {}
7950 }
7953 }
7954 }
7957 }
7959 proc splitarc {p} {
7960 global arcnos arcids nextarc arctags archeads idtags idheads
7961 global arcstart arcend arcout allparents growing
7966 return
7967 }
7972 return
7973 }
7974 set na [incr nextarc]
7977 } else {
7981 }
7991 }
7996 } else {
7999 }
8000 }
8002 # reconstruct tags and heads lists
8006 } else {
8009 }
8010 }
8012 # Update things for a new commit added that is a child of one
8013 # existing commit. Used when cherry-picking.
8014 proc addnewchild {id p} {
8015 global allparents allchildren idtags nextarc
8016 global arcnos arcids arctags arcout arcend arcstart archeads growing
8017 global seeds allcommits
8025 set a [incr nextarc]
8033 }
8036 }
8038 # This implements a cache for the topology information.
8039 # The cache saves, for each arc, the start and end of the arc,
8040 # the ids on the arc, and the outgoing arcs from the end.
8041 proc readcache {f} {
8042 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
8043 global idtags idheads allparents cachedarcs possible_seeds seeds growing
8044 global allcwait
8050 }
8051 if {[catch {
8053 # finish reading the cache and setting up arctags, etc.
8057 foreach id [array names idtags] {
8063 }
8064 }
8065 }
8066 foreach id [array names idheads] {
8072 }
8073 }
8074 }
8078 }
8079 }
8080 set allcwait 0
8081 } else {
8091 }
8095 } else {
8099 }
8100 }
8106 }
8109 }
8112 }
8114 }
8115 } err]} {
8117 return 0
8118 }
8120 getallcommits
8121 }
8123 }
8125 proc getcache {f} {
8126 global nextarc cachedarcs possible_seeds
8128 if {[catch {
8131 # make sure it's an integer
8134 set nextarc 0
8135 set possible_seeds {}
8137 } err]} {
8139 }
8140 return 0
8141 }
8143 proc dropcache {err} {
8144 global allcwait nextarc cachedarcs seeds
8147 foreach v {arcnos arcout arcids arcstart arcend growing \
8148 arctags archeads allparents allchildren} {
8151 }
8152 set allcwait 0
8153 set nextarc 0
8154 set cachedarcs 0
8155 set seeds {}
8156 getallcommits
8157 }
8159 proc writecache {f} {
8160 global cachearc cachedarcs allccache
8161 global arcstart arcend arcnos arcids arcout
8167 }
8168 if {[catch {
8172 } else {
8174 }
8175 }
8176 } err]} {
8180 return 0
8181 }
8186 return 0
8187 }
8188 return 1
8189 }
8191 proc savecache {} {
8192 global nextarc cachedarcs cachearc allccache
8195 set cachearc 0
8197 catch {
8201 }
8202 }
8204 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
8205 # or 0 if neither is true.
8206 proc anc_or_desc {a b} {
8207 global arcout arcstart arcend arcnos cached_isanc
8210 # Both are on the same arc(s); either both are the same BMP,
8211 # or if one is not a BMP, the other is also not a BMP or is
8212 # the BMP at end of the arc (and it only has 1 incoming arc).
8213 # Or both can be BMPs with no incoming arcs.
8215 return 0
8216 }
8222 return 1
8223 } else {
8224 return -1
8225 }
8226 }
8232 } else {
8233 set aend {}
8234 }
8236 } else {
8238 }
8243 } else {
8244 set bend {}
8245 }
8247 } else {
8249 }
8251 return 1
8252 }
8254 return -1
8255 }
8258 return 1
8259 }
8260 }
8263 return -1
8264 }
8266 return 0
8267 }
8268 }
8276 continue
8277 }
8283 return 1
8287 return -1
8288 }
8294 }
8295 }
8296 }
8299 return 0
8300 }
8304 # and returns 0 if so and 1 if not.
8305 # If we subsequently discover a tag on such a growing tip, and that
8308 # isn't a good choice to display as a descendent tag of
8312 #
8313 proc is_certain {desc anc} {
8314 global arcnos arcout arcstart arcend growing problems
8316 set certain {}
8318 # tags on the same arc are certain
8320 return 1
8321 }
8326 }
8327 }
8330 } else {
8333 }
8335 return 1
8336 }
8339 set nnh 1
8340 set ngrowanc 0
8344 incr nnh -1
8345 }
8351 incr ngrowanc
8352 }
8353 } else {
8360 incr nnh -1
8361 }
8363 incr ngrowanc -1
8364 }
8374 incr nnh -1
8375 }
8377 incr ngrowanc -1
8378 }
8380 }
8381 }
8382 }
8383 }
8384 }
8385 }
8389 } else {
8392 incr nnh
8393 }
8394 }
8395 }
8396 }
8397 foreach x [array names growanc] {
8399 return 0
8400 }
8401 return 0
8402 }
8403 return 1
8404 }
8406 proc validate_arctags {a} {
8407 global arctags idtags
8409 set i -1
8412 incr i
8415 incr i -1
8416 }
8417 }
8419 }
8421 proc validate_archeads {a} {
8422 global archeads idheads
8424 set i -1
8427 incr i
8430 incr i -1
8431 }
8432 }
8434 }
8436 # Return the list of IDs that have tags that are descendents of id,
8437 # ignoring IDs that are descendents of IDs already reported.
8438 proc desctags {id} {
8439 global arcnos arcstart arcids arctags idtags allparents
8440 global growing cached_dtags
8443 return {}
8444 }
8445 set t1 [clock clicks -milliseconds]
8448 # part-way along an arc; check that arc first
8453 set tid {}
8458 }
8461 }
8462 }
8466 }
8467 }
8470 }
8475 set nc 1
8481 incr nc -1
8482 }
8483 # ignore tags on starting node
8487 set ta 1
8490 set ta 1
8491 }
8492 }
8499 }
8500 }
8509 }
8512 }
8514 incr nc -1
8515 }
8517 }
8518 }
8519 }
8524 incr nc
8525 }
8526 }
8527 }
8528 }
8529 set tags {}
8530 foreach id [array names tagloc] {
8535 }
8536 }
8537 }
8538 }
8539 set t2 [clock clicks -milliseconds]
8542 # remove tags that are descendents of other tags
8550 incr j -1
8551 incr i -1
8554 incr i -1
8555 break
8556 }
8557 }
8558 }
8560 if {[array names growing] ne {}} {
8561 # graph isn't finished, need to check if any tag could get
8562 # eclipsed by another tag coming later. Simply ignore any
8563 # tags that could later get eclipsed.
8564 set ctags {}
8568 }
8569 }
8572 } else {
8574 }
8575 } else {
8577 }
8578 set t3 [clock clicks -milliseconds]
8582 }
8584 }
8586 proc anctags {id} {
8587 global arcnos arcids arcout arcend arctags idtags allparents
8588 global growing cached_atags
8591 return {}
8592 }
8593 set t1 [clock clicks -milliseconds]
8596 # part-way along an arc; check that arc first
8605 }
8606 }
8607 }
8609 return {}
8610 }
8614 }
8615 }
8618 }
8623 set taglist {}
8624 set nc 1
8630 incr nc -1
8631 }
8632 # ignore tags on starting node
8636 set td 1
8639 set td 1
8640 }
8641 }
8647 }
8648 }
8660 }
8661 }
8664 }
8666 incr nc -1
8667 }
8669 }
8670 }
8671 }
8676 incr nc
8677 }
8678 }
8679 }
8680 }
8681 set t2 [clock clicks -milliseconds]
8683 set tags {}
8684 foreach id [array names tagloc] {
8689 }
8690 }
8691 }
8692 }
8694 # remove tags that are ancestors of other tags
8702 incr j -1
8703 incr i -1
8706 incr i -1
8707 break
8708 }
8709 }
8710 }
8712 if {[array names growing] ne {}} {
8713 # graph isn't finished, need to check if any tag could get
8714 # eclipsed by another tag coming later. Simply ignore any
8715 # tags that could later get eclipsed.
8716 set ctags {}
8720 }
8721 }
8724 } else {
8726 }
8727 } else {
8729 }
8730 set t3 [clock clicks -milliseconds]
8734 }
8736 }
8738 # Return the list of IDs that have heads that are descendents of id,
8739 # including id itself if it has a head.
8740 proc descheads {id} {
8741 global arcnos arcstart arcids archeads idheads cached_dheads
8742 global allparents
8745 return {}
8746 }
8747 set aret {}
8749 # part-way along an arc; check it first
8758 }
8759 }
8761 }
8765 set ret {}
8770 } else {
8773 }
8779 }
8780 }
8785 }
8786 }
8787 }
8788 }
8792 }
8794 proc addedtag {id} {
8795 global arcnos arcout cached_dtags cached_atags
8800 }
8801 catch {unset cached_dtags}
8802 catch {unset cached_atags}
8803 }
8805 proc addedhead {hid head} {
8806 global arcnos arcout cached_dheads
8811 }
8812 catch {unset cached_dheads}
8813 }
8815 proc removedhead {hid head} {
8816 global cached_dheads
8818 catch {unset cached_dheads}
8819 }
8821 proc movedhead {hid head} {
8822 global arcnos arcout cached_dheads
8827 }
8828 catch {unset cached_dheads}
8829 }
8831 proc changedrefs {} {
8832 global cached_dheads cached_dtags cached_atags
8833 global arctags archeads arcnos arcout idheads idtags
8835 foreach id [concat [array names idheads] [array names idtags]] {
8841 }
8842 }
8843 }
8844 catch {unset cached_dtags}
8845 catch {unset cached_atags}
8846 catch {unset cached_dheads}
8847 }
8849 proc rereadrefs {} {
8850 global idtags idheads idotherrefs mainheadid
8852 set refids [concat [array names idtags] \
8853 [array names idheads] [array names idotherrefs]]
8857 }
8858 }
8860 readrefs
8861 changedrefs
8863 [array names idheads] [array names idotherrefs]]]
8870 }
8871 }
8872 run refill_reflist
8873 }
8875 proc listrefs {id} {
8876 global idtags idheads idotherrefs
8878 set x {}
8881 }
8882 set y {}
8885 }
8886 set z {}
8889 }
8891 }
8893 proc showtag {tag isnew} {
8894 global ctext tagcontents tagids linknum tagobjid
8898 }
8900 clear_ctext
8901 settabs 0
8902 set linknum 0
8904 catch {
8906 }
8907 }
8910 } else {
8912 }
8915 init_flist {}
8916 }
8918 proc doquit {} {
8919 global stopped
8920 set stopped 100
8921 savestuff .
8922 destroy .
8923 }
8925 proc mkfontdisp {font top which} {
8934 }
8936 proc choosefont {font which} {
8937 global fontparam fontlist fonttop fontattr
8945 set top .gitkfont
8948 font create sample
8954 set fontlist [lsort [font families]]
8965 -textvariable fontparam(size) \
8966 -validatecommand {string is integer -strict %s}
8968 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
8969 -variable fontparam(weight) -onvalue bold -offvalue normal
8971 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
8972 -variable fontparam(slant) -onvalue italic -offvalue roman
8976 -background white
8978 -fill black -tags text
8988 trace add variable fontparam write chg_fontparam
8989 } else {
8992 }
8997 }
8998 }
9000 proc centertext {w} {
9002 }
9004 proc fontok {} {
9005 global fontparam fontpref prefstop
9011 }
9014 }
9018 fontcan
9019 }
9021 proc fontcan {} {
9022 global fonttop fontparam
9024 if {[info exists fonttop]} {
9026 catch {font delete sample}
9027 unset fonttop
9028 unset fontparam
9029 }
9030 }
9032 proc selfontfam {} {
9033 global fonttop fontparam
9038 }
9039 }
9041 proc chg_fontparam {v sub op} {
9042 global fontparam
9045 }
9047 proc doprefs {} {
9048 global maxwidth maxgraphpct
9049 global oldprefs prefstop showneartags showlocalchanges
9050 global bgcolor fgcolor ctext diffcolors selectbgcolor
9051 global tabstop limitdiffs autoselect
9053 set top .gitkprefs
9057 return
9058 }
9059 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9060 limitdiffs tabstop} {
9062 }
9069 -font optionfont
9073 -font optionfont
9126 "diff hunk header" \
9148 }
9150 proc choosecolor {v vi w x cmd} {
9159 }
9161 proc setselbg {c} {
9162 global bglist cflist
9165 }
9169 }
9171 proc setbg {c} {
9172 global bglist
9176 }
9177 }
9179 proc setfg {c} {
9180 global fglist canv
9184 }
9187 }
9189 proc prefscan {} {
9190 global oldprefs prefstop
9192 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
9193 limitdiffs tabstop} {
9196 }
9198 unset prefstop
9199 fontcan
9200 }
9202 proc prefsok {} {
9203 global maxwidth maxgraphpct
9204 global oldprefs prefstop showneartags showlocalchanges
9205 global fontpref mainfont textfont uifont
9206 global limitdiffs treediffs
9209 unset prefstop
9210 fontcan
9211 set fontchanged 0
9215 eval font configure mainfont [fontflags mainfont]
9216 eval font configure mainfontbold [fontflags mainfont 1]
9217 setcoords
9218 set fontchanged 1
9219 }
9223 eval font configure textfont [fontflags textfont]
9224 eval font configure textfontbold [fontflags textfont 1]
9225 }
9229 eval font configure uifont [fontflags uifont]
9230 }
9231 settabs
9234 doshowlocalchanges
9235 } else {
9236 dohidelocalchanges
9237 }
9238 }
9240 # treediffs elements are limited by path
9241 catch {unset treediffs}
9242 }
9245 redisplay
9248 reselectline
9249 }
9250 }
9252 proc formatdate {d} {
9253 global datetimeformat
9256 }
9258 }
9260 # This list of encoding names and aliases is distilled from
9261 # http://www.iana.org/assignments/character-sets.
9262 # Not all of them are supported by Tcl.
9263 set encoding_aliases {
9264 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
9265 ISO646-US US-ASCII us IBM367 cp367 csASCII }
9266 { ISO-10646-UTF-1 csISO10646UTF1 }
9267 { ISO_646.basic:1983 ref csISO646basic1983 }
9268 { INVARIANT csINVARIANT }
9269 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
9270 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
9271 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
9272 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
9273 { NATS-DANO iso-ir-9-1 csNATSDANO }
9274 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
9275 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
9276 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
9277 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
9278 { ISO-2022-KR csISO2022KR }
9279 { EUC-KR csEUCKR }
9280 { ISO-2022-JP csISO2022JP }
9281 { ISO-2022-JP-2 csISO2022JP2 }
9282 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
9283 csISO13JISC6220jp }
9284 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
9285 { IT iso-ir-15 ISO646-IT csISO15Italian }
9286 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
9287 { ES iso-ir-17 ISO646-ES csISO17Spanish }
9288 { greek7-old iso-ir-18 csISO18Greek7Old }
9289 { latin-greek iso-ir-19 csISO19LatinGreek }
9290 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
9291 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
9292 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
9293 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
9294 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
9295 { BS_viewdata iso-ir-47 csISO47BSViewdata }
9296 { INIS iso-ir-49 csISO49INIS }
9297 { INIS-8 iso-ir-50 csISO50INIS8 }
9298 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
9299 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
9300 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
9301 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
9302 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
9303 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
9304 csISO60Norwegian1 }
9305 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
9306 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
9307 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
9308 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
9309 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
9310 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
9311 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
9312 { greek7 iso-ir-88 csISO88Greek7 }
9313 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
9314 { iso-ir-90 csISO90 }
9315 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
9316 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
9317 csISO92JISC62991984b }
9318 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
9319 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
9320 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
9321 csISO95JIS62291984handadd }
9322 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
9323 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
9324 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
9325 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
9326 CP819 csISOLatin1 }
9327 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
9328 { T.61-7bit iso-ir-102 csISO102T617bit }
9329 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
9330 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
9331 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
9332 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
9333 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
9334 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
9335 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
9336 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
9337 arabic csISOLatinArabic }
9338 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
9339 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
9340 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
9341 greek greek8 csISOLatinGreek }
9342 { T.101-G2 iso-ir-128 csISO128T101G2 }
9343 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
9344 csISOLatinHebrew }
9345 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
9346 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
9347 { CSN_369103 iso-ir-139 csISO139CSN369103 }
9348 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
9349 { ISO_6937-2-add iso-ir-142 csISOTextComm }
9350 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
9351 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
9352 csISOLatinCyrillic }
9353 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
9354 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
9355 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
9356 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
9357 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
9358 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
9359 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
9360 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
9361 { ISO_10367-box iso-ir-155 csISO10367Box }
9362 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
9363 { latin-lap lap iso-ir-158 csISO158Lap }
9364 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
9365 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
9366 { us-dk csUSDK }
9367 { dk-us csDKUS }
9368 { JIS_X0201 X0201 csHalfWidthKatakana }
9369 { KSC5636 ISO646-KR csKSC5636 }
9370 { ISO-10646-UCS-2 csUnicode }
9371 { ISO-10646-UCS-4 csUCS4 }
9372 { DEC-MCS dec csDECMCS }
9373 { hp-roman8 roman8 r8 csHPRoman8 }
9374 { macintosh mac csMacintosh }
9375 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
9376 csIBM037 }
9377 { IBM038 EBCDIC-INT cp038 csIBM038 }
9378 { IBM273 CP273 csIBM273 }
9379 { IBM274 EBCDIC-BE CP274 csIBM274 }
9380 { IBM275 EBCDIC-BR cp275 csIBM275 }
9381 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
9382 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
9383 { IBM280 CP280 ebcdic-cp-it csIBM280 }
9384 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
9385 { IBM284 CP284 ebcdic-cp-es csIBM284 }
9386 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
9387 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
9388 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
9389 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
9390 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
9391 { IBM424 cp424 ebcdic-cp-he csIBM424 }
9392 { IBM437 cp437 437 csPC8CodePage437 }
9393 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
9394 { IBM775 cp775 csPC775Baltic }
9395 { IBM850 cp850 850 csPC850Multilingual }
9396 { IBM851 cp851 851 csIBM851 }
9397 { IBM852 cp852 852 csPCp852 }
9398 { IBM855 cp855 855 csIBM855 }
9399 { IBM857 cp857 857 csIBM857 }
9400 { IBM860 cp860 860 csIBM860 }
9401 { IBM861 cp861 861 cp-is csIBM861 }
9402 { IBM862 cp862 862 csPC862LatinHebrew }
9403 { IBM863 cp863 863 csIBM863 }
9404 { IBM864 cp864 csIBM864 }
9405 { IBM865 cp865 865 csIBM865 }
9406 { IBM866 cp866 866 csIBM866 }
9407 { IBM868 CP868 cp-ar csIBM868 }
9408 { IBM869 cp869 869 cp-gr csIBM869 }
9409 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
9410 { IBM871 CP871 ebcdic-cp-is csIBM871 }
9411 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
9412 { IBM891 cp891 csIBM891 }
9413 { IBM903 cp903 csIBM903 }
9414 { IBM904 cp904 904 csIBBM904 }
9415 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
9416 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
9417 { IBM1026 CP1026 csIBM1026 }
9418 { EBCDIC-AT-DE csIBMEBCDICATDE }
9419 { EBCDIC-AT-DE-A csEBCDICATDEA }
9420 { EBCDIC-CA-FR csEBCDICCAFR }
9421 { EBCDIC-DK-NO csEBCDICDKNO }
9422 { EBCDIC-DK-NO-A csEBCDICDKNOA }
9423 { EBCDIC-FI-SE csEBCDICFISE }
9424 { EBCDIC-FI-SE-A csEBCDICFISEA }
9425 { EBCDIC-FR csEBCDICFR }
9426 { EBCDIC-IT csEBCDICIT }
9427 { EBCDIC-PT csEBCDICPT }
9428 { EBCDIC-ES csEBCDICES }
9429 { EBCDIC-ES-A csEBCDICESA }
9430 { EBCDIC-ES-S csEBCDICESS }
9431 { EBCDIC-UK csEBCDICUK }
9432 { EBCDIC-US csEBCDICUS }
9433 { UNKNOWN-8BIT csUnknown8BiT }
9434 { MNEMONIC csMnemonic }
9435 { MNEM csMnem }
9436 { VISCII csVISCII }
9437 { VIQR csVIQR }
9438 { KOI8-R csKOI8R }
9439 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
9440 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
9441 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
9442 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
9443 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
9444 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
9445 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
9446 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
9447 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
9448 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
9449 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
9450 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
9451 { IBM1047 IBM-1047 }
9452 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
9453 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
9454 { UNICODE-1-1 csUnicode11 }
9455 { CESU-8 csCESU-8 }
9456 { BOCU-1 csBOCU-1 }
9457 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
9458 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
9459 l8 }
9460 { ISO-8859-15 ISO_8859-15 Latin-9 }
9461 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
9462 { GBK CP936 MS936 windows-936 }
9463 { JIS_Encoding csJISEncoding }
9464 { Shift_JIS MS_Kanji csShiftJIS }
9465 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
9466 EUC-JP }
9467 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
9468 { ISO-10646-UCS-Basic csUnicodeASCII }
9469 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
9470 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
9471 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
9472 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
9473 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
9474 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
9475 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
9476 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
9477 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
9478 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
9479 { Adobe-Standard-Encoding csAdobeStandardEncoding }
9480 { Ventura-US csVenturaUS }
9481 { Ventura-International csVenturaInternational }
9482 { PC8-Danish-Norwegian csPC8DanishNorwegian }
9483 { PC8-Turkish csPC8Turkish }
9484 { IBM-Symbols csIBMSymbols }
9485 { IBM-Thai csIBMThai }
9486 { HP-Legal csHPLegal }
9487 { HP-Pi-font csHPPiFont }
9488 { HP-Math8 csHPMath8 }
9489 { Adobe-Symbol-Encoding csHPPSMath }
9490 { HP-DeskTop csHPDesktop }
9491 { Ventura-Math csVenturaMath }
9492 { Microsoft-Publishing csMicrosoftPublishing }
9493 { Windows-31J csWindows31J }
9494 { GB2312 csGB2312 }
9495 { Big5 csBig5 }
9496 }
9498 proc tcl_encoding {enc} {
9499 global encoding_aliases
9500 set names [encoding names]
9505 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
9508 }
9509 }
9514 # look through the aliases for one that tcl knows about
9520 }
9521 }
9523 }
9524 break
9525 }
9526 }
9529 }
9530 return {}
9531 }
9533 # First check that Tcl/Tk is recent enough
9534 if {[catch {package require Tk 8.4} err]} {
9535 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
9536 Gitk requires at least Tcl/Tk 8.4."]
9537 exit 1
9538 }
9540 # defaults...
9541 set wrcomcmd "git diff-tree --stdin -p --pretty"
9543 set gitencoding {}
9544 catch {
9545 set gitencoding [exec git config --get i18n.commitencoding]
9546 }
9548 set gitencoding "utf-8"
9549 }
9553 }
9555 set mainfont {Helvetica 9}
9556 set textfont {Courier 9}
9557 set uifont {Helvetica 9 bold}
9558 set tabstop 8
9559 set findmergefiles 0
9560 set maxgraphpct 50
9561 set maxwidth 16
9562 set revlistorder 0
9563 set fastdate 0
9564 set uparrowlen 5
9565 set downarrowlen 5
9566 set mingaplen 100
9567 set cmitmode "patch"
9568 set wrapcomment "none"
9569 set showneartags 1
9570 set maxrefs 20
9571 set maxlinelen 200
9572 set showlocalchanges 1
9573 set limitdiffs 1
9574 set datetimeformat "%Y-%m-%d %H:%M:%S"
9575 set autoselect 1
9577 set colors {green red blue magenta darkgrey brown orange}
9578 set bgcolor white
9579 set fgcolor black
9580 set diffcolors {red "#00a000" blue}
9581 set diffcontext 3
9582 set ignorespace 0
9583 set selectbgcolor gray85
9585 ## For msgcat loading, first locate the installation location.
9586 if { [info exists ::env(GITK_MSGSDIR)] } {
9587 ## Msgsdir was manually set in the environment.
9588 set gitk_msgsdir $::env(GITK_MSGSDIR)
9589 } else {
9590 ## Let's guess the prefix from argv0.
9594 unset gitk_prefix
9595 }
9597 ## Internationalization (i18n) through msgcat and gettext. See
9598 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
9599 package require msgcat
9600 namespace import ::msgcat::mc
9601 ## And eventually load the actual message catalog
9604 catch {source ~/.gitk}
9606 font create optionfont -family sans-serif -size -12
9609 eval font create mainfont [fontflags mainfont]
9610 eval font create mainfontbold [fontflags mainfont 1]
9613 eval font create textfont [fontflags textfont]
9614 eval font create textfontbold [fontflags textfont 1]
9617 eval font create uifont [fontflags uifont]
9619 setoptions
9621 # check that we can find a .git directory somewhere...
9622 if {[catch {set gitdir [gitdir]}]} {
9623 show_error {} . [mc "Cannot find a git repository here."]
9624 exit 1
9625 }
9628 exit 1
9629 }
9631 set revtreeargs {}
9632 set cmdline_files {}
9633 set i 0
9634 set revtreeargscmd {}
9637 "" { }
9638 "--" {
9640 break
9641 }
9642 "--argscmd=*" {
9644 }
9645 default {
9647 }
9648 }
9649 incr i
9650 }
9653 # no -- on command line, but some arguments (other than --argscmd)
9654 if {[catch {
9659 # Unfortunately git rev-parse doesn't produce an error when
9660 # something is both a revision and a filename. To be consistent
9661 # with git log and git rev-list, check revtreeargs for filenames.
9664 show_error {} . [mc "Ambiguous argument '%s': both revision\
9666 exit 1
9667 }
9668 }
9669 } err]} {
9671 # so look for "fatal:".
9675 }
9677 exit 1
9678 }
9679 }
9681 set nullid "0000000000000000000000000000000000000000"
9682 set nullid2 "0000000000000000000000000000000000000001"
9686 set runq {}
9687 set history {}
9688 set historyindex 0
9689 set fh_serial 0
9690 set nhl_names {}
9691 set highlight_paths {}
9692 set findpattern {}
9693 set searchdirn -forwards
9694 set boldrows {}
9695 set boldnamerows {}
9696 set diffelide {0 0}
9697 set markingmatches 0
9698 set linkentercount 0
9699 set need_redisplay 0
9700 set nrows_drawn 0
9701 set firsttabstop 0
9703 set nextviewnum 1
9704 set curview 0
9705 set selectedview 0
9706 set selectedhlview [mc "None"]
9707 set highlight_related [mc "None"]
9708 set highlight_files {}
9709 set viewfiles(0) {}
9710 set viewperm(0) 0
9711 set viewargs(0) {}
9712 set viewargscmd(0) {}
9714 set loginstance 0
9715 set cmdlineok 0
9716 set stopped 0
9717 set stuffsaved 0
9718 set patchnum 0
9719 set lserial 0
9720 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
9721 setcoords
9722 makewindow
9723 # wait for the window to become visible
9724 tkwait visibility .
9726 readrefs
9729 # create a view for the files/dirs specified on the command line
9730 set curview 1
9731 set selectedview 1
9732 set nextviewnum 2
9733 set viewname(1) [mc "Command line"]
9737 set viewperm(1) 0
9738 set vdatemode(1) 0
9739 addviewmenu 1
9740 .bar.view entryconf [mc "Edit view..."] -state normal
9741 .bar.view entryconf [mc "Delete view"] -state normal
9742 }
9744 if {[info exists permviews]} {
9747 incr nextviewnum
9754 }
9755 }
9756 getcommits