| blob | d48fbad857c02bc12e058bb020d014268803b984 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq currunq
30 after idle dorunq
31 }
34 }
38 }
41 global runq currunq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq currunq
73 unset currunq
78 # script returns 1 if it wants to be readded
79 # file readers return 2 if they could do more straight away
83 }
86 }
89 }
91 after idle dorunq
92 }
93 }
96 global commfd leftover loginstance
102 }
105 global nr_unmerged
107 # find the list of unmerged files
114 exit 1
115 }
121 incr nr_unmerged
124 }
125 }
128 }
130 proc parseviewargs {n arglist} {
131 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
135 set glflags {}
136 set diffargs {}
137 set nextisval 0
138 set revargs {}
140 set allknown 1
141 set filtered 0
142 set i -1
144 incr i
147 set nextisval 0
148 continue
149 }
151 "-d" -
152 "--date-order" {
154 # remove from origargs in case we hit an unknown option
156 incr i -1
157 }
158 "-[puabwcrRBMC]" -
159 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
160 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
161 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
162 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
163 "--ignore-space-change" - "-U*" - "--unified=*" {
164 # These request or affect diff output, which we don't want.
165 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
175 # These cause our parsing of git log's output to fail, or else
176 # they're options we want to set ourselves, so ignore them.
177 }
182 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
192 # These mean that we get a subset of the commits
194 lappend glflags $arg
195 }
197 # This appears to be the only one that has a value as a
198 # separate word following it
201 lappend glflags $arg
202 }
204 lappend revargs $arg
205 }
208 # git rev-parse doesn't understand --merge
209 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
210 }
212 # Other flag arguments including -<n>
216 # a flag argument that we don't recognize;
217 # that means we can't optimize
219 }
220 lappend glflags $arg
221 }
222 default {
223 # Non-flag arguments specify commits or ranges of commits
225 lappend revargs --gitk-symmetric-diff-marker
226 }
227 lappend revargs $arg
228 }
229 }
230 }
237 }
240 global vposids vnegids
243 set revs HEAD
244 }
246 # we get stdout followed by stderr in $err
247 # for an unknown rev, git rev-parse echoes it and then errors out
260 }
263 }
264 break
265 }
266 lappend badrev $line
267 }
268 }
271 }
281 lappend ret $id
284 }
285 }
289 lappend ret $id
292 }
293 lappend pos $id
294 }
295 incr sdm -1
296 }
300 }
302 # Start off a git log process and arrange to read its output
304 global startmsecs commitidx viewcomplete curview
305 global tclencoding
306 global viewargs viewargscmd viewfiles vfilelimit
307 global showlocalchanges
308 global viewactive viewinstances vmergeonly
309 global mainheadid viewmainheadid viewmainheadid_orig
310 global vcanopt vflags vrevs vorigargs
314 # these are set this way for the error exits
317 varcinit $view
326 }
328 }
335 global nr_unmerged
342 }
344 }
345 }
352 }
356 }
364 }
370 get_viewmainhead $view
371 }
374 }
378 }
384 }
387 global commfd leftover
390 catch {
397 }
398 }
400 nukefile $fd
403 }
405 proc stop_backends {} {
406 global commfd
409 stop_instance $inst
410 }
411 }
414 global viewinstances
417 stop_instance $inst
418 }
420 }
423 global pending_select mainheadid selectheadid
431 }
432 }
435 global canv curview need_redisplay viewactive
437 initlayout
439 reset_pending_select $selid
444 }
445 }
447 proc updatecommits {} {
448 global curview vcanopt vorigargs vfilelimit viewinstances
449 global viewactive viewcomplete tclencoding
450 global startmsecs showneartags showlocalchanges
451 global mainheadid viewmainheadid viewmainheadid_orig pending_select
452 global isworktree
453 global varcid vposids vnegids vflags vrevs
456 rereadrefs
460 dohidelocalchanges
461 }
465 get_viewmainhead $view
466 }
467 }
469 doshowlocalchanges
470 }
476 return
477 }
478 # note: getting the delta when negative refs change is hard,
479 # and could require multiple git log invocations, so in that
480 # case we ask git log for all the commits (not just the delta)
484 # take out positive refs that we asked for before or
485 # that we have already seen
490 lappend newrevs $rev
491 incr npos
492 }
494 lappend $newrevs $rev
495 }
496 }
500 }
504 }
510 return
511 }
514 }
520 }
524 reset_pending_select {}
527 getallcommits
528 }
529 }
531 proc reloadcommits {} {
532 global curview viewcomplete selectedline currentid thickerline
533 global showneartags treediffs commitinterest cached_commitrow
534 global targetid
539 }
542 stop_rev_list $curview
543 }
544 resetvarcs $curview
549 readrefs
550 changedrefs
552 getallcommits
553 }
554 clear_display
558 setcanvscroll
559 getcommits $selid
561 }
563 # This makes a string representation of a positive integer which
564 # sorts as a string in numerical order
572 }
574 }
576 # Procedures used in reordering commits from git log (without
577 # --topo-order) into the order for display.
580 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
581 global vtokmod varcmod vrowmod varcix vlastins
595 }
598 global varcid varccommits parents children vseedcount ordertok
604 }
605 # some commits might have children but haven't been seen yet
608 }
611 }
614 }
616 }
618 # returns a list of the commits with no children
620 global vdownptr vleftptr varcstart
627 }
629 }
632 global varcid varctok parents children vdatemode
633 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
634 global commitdata commitinfo vseedcount varccommits vlastins
641 }
645 }
648 }
654 }
663 }
664 }
669 }
676 }
680 }
687 }
693 }
702 }
705 global varcid varcstart varccommits varctok vtokmod
706 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
714 # "%" sorts before "0"...
724 }
734 }
736 modify_arc $v $oa
737 }
738 }
741 global parents children varctok varcstart varccommits
742 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
751 lappend todo $a
756 }
757 }
758 }
759 incr ntot
766 }
767 }
769 }
776 }
782 }
791 }
792 }
797 }
799 continue
800 }
807 }
808 }
813 modify_arc $v $ka
814 }
816 modify_arc $v $b
817 }
824 }
827 }
830 }
839 }
844 }
851 }
855 }
857 }
858 }
863 }
864 }
866 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
867 }
869 # Fix up the graph after we have found out that in view $v,
870 # $p (a commit that we have already seen) is actually the parent
871 # of the last commit in arc $a.
873 global varcid varcstart varctok vupptr
877 splitvarc $p $v
879 }
880 # seeds always need to be renumbered
884 renumbervarc $pa $v
885 }
886 }
889 global cmitlisted children parents varcid varctok vtokmod
890 global varccommits ordertok commitidx numcommits curview
891 global targetid targetrow
893 readcommit $id
901 modify_arc $v $a
902 }
908 }
909 fix_reversal $p $a $v
913 setcanvscroll
916 incr targetrow
917 }
918 }
919 }
920 }
923 global varcid varccommits parents children cmitlisted
924 global commitidx varctok vtokmod targetid targetrow curview numcommits
931 return
932 }
939 # note we deliberately don't update varcstart($v) even if $i == 0
941 modify_arc $v $a $i
944 incr targetrow
945 }
946 }
947 setcanvscroll
948 drawvisible
949 }
952 global varcid varccommits parents children commitidx
953 global varctok vtokmod cmitlisted currentid selectedline
954 global targetid curview numcommits
959 return
960 }
966 return
967 }
977 }
978 modify_arc $v $a $i
980 unset currentid
982 }
985 }
986 setcanvscroll
987 drawvisible
988 }
991 global children nullid nullid2
996 }
997 }
999 }
1002 global children nullid nullid2
1009 }
1010 }
1012 }
1015 global varctok varcid
1019 }
1021 # This assumes that if lim is not given, the caller has checked that
1022 # arc a's token is less than $vtokmod($v)
1024 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1032 }
1033 }
1040 }
1045 }
1047 }
1049 undolayout $r
1050 }
1051 }
1054 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1055 global varcid vrownum varcorder varcix varccommits
1056 global vupptr vdownptr vleftptr varctok
1057 global displayorder parentlist curview cached_commitrow
1064 }
1066 }
1070 # go up the tree until we find something that has a row number,
1071 # or we get to a seed
1073 }
1088 }
1090 }
1094 # go down if possible
1097 # if not, go left, or go up until we can go left
1102 }
1104 }
1106 incr arcn
1111 }
1117 }
1118 }
1120 # Test whether view $v contains commit $id
1122 global varcid
1125 }
1127 # Return the row number for commit $id in the current view
1129 global varcid varccommits varcrow curview cached_commitrow
1130 global varctok vtokmod
1136 }
1139 update_arcrows $v
1140 }
1143 }
1148 }
1152 }
1154 # Returns 1 if a is on an earlier row than b, otherwise 0
1156 global varcid varctok curview
1162 }
1166 }
1168 }
1173 }
1185 }
1186 }
1188 }
1190 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1192 global vrownum curview commitidx displayorder parentlist
1193 global varccommits varcorder parents vrowmod varcrow
1194 global d_valid_start d_valid_end
1197 update_arcrows $curview
1198 }
1214 }
1216 lappend displayorder $id
1218 }
1222 lset displayorder $i $id
1224 incr i
1225 }
1226 }
1227 incr r $al
1228 }
1229 }
1232 global displayorder
1238 }
1240 }
1243 global varctok varccommits varcid parents children
1244 global cmitlisted commitidx vtokmod
1253 # add p as a new commit
1254 incr missing_parents
1262 }
1265 modify_arc $v $b
1266 }
1270 }
1271 }
1275 }
1276 }
1277 }
1279 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1280 # Assumes we already have an arc for $rwid.
1282 global children parents varcid varctok vtokmod varccommits
1285 # make $rwid be $ch's parent in place of $id
1289 }
1291 # add $ch to $rwid's children and sort the list if necessary
1295 }
1296 # fix the graph after joining $id to $rwid
1298 fix_reversal $rwid $a $v
1299 # parentlist is wrong for the last element of arc $a
1300 # even if displayorder is right, hence the 3rd arg here
1302 }
1303 }
1305 # Mechanism for registering a command to be executed when we come
1306 # across a particular commit. To handle the case when only the
1307 # prefix of the commit is known, the commitinterest array is now
1308 # indexed by the first 4 characters of the ID. Each element is a
1309 # list of id, cmd pairs.
1311 global commitinterest
1314 }
1317 global commitinterest
1326 lappend newlist $i $script
1327 }
1328 }
1333 }
1334 }
1336 }
1339 global cmitlisted leftover
1340 global commitidx commitdata vdatemode
1341 global parents children curview hlview
1342 global idpending ordertok
1343 global varccommits varcid varctok vtokmod vfilelimit
1346 # git log doesn't terminate the last commit with a null...
1349 }
1353 }
1354 global commfd viewcomplete viewactive viewname
1355 global viewinstances
1360 }
1361 # set it blocking so we wait for the process to terminate
1367 }
1370 bad arguments to git log."
1372 append err \
1373 " (Note: arguments to gitk are passed to git log\
1374 to allow selection of commits to be displayed.)"
1375 }
1378 }
1379 error_popup $err
1380 }
1383 # Check if we have seen any ids listed as parents that haven't
1384 # appeared in the list
1385 closevarcs $view
1386 notbusy $view
1387 }
1389 run chewcommits
1390 }
1392 }
1400 break
1401 }
1408 }
1421 }
1423 }
1428 break
1429 }
1430 }
1431 }
1436 }
1438 exit 1
1439 }
1446 # when doing path limiting, so work around that here
1447 # by working out the rewritten parent with git rev-list
1448 # and if we already know about it, using the rewritten
1449 # parent as a substitute parent for $id's children.
1453 }]} {
1455 # use $rwid in place of $id
1456 rewrite_commit $view $id $rwid
1457 continue
1458 }
1459 }
1460 }
1466 }
1471 }
1483 }
1484 }
1486 # new arc
1488 }
1490 modify_arc $view $a
1491 }
1496 }
1507 }
1509 fix_reversal $p $a $view
1510 }
1511 }
1512 incr i
1513 }
1517 }
1519 global numcommits hlview
1523 run chewcommits
1524 }
1526 # we never actually get here...
1527 run vhighlightmore
1528 }
1531 }
1532 }
1534 }
1536 proc chewcommits {} {
1537 global curview hlview viewcomplete
1538 global pending_select
1540 layoutmore
1542 global commitidx varctok
1543 global numcommits startmsecs
1546 update
1547 reset_pending_select {}
1554 }
1555 }
1557 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1558 #puts "overall $ms ms for $numcommits commits"
1559 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1562 }
1563 notbusy layout
1564 }
1566 }
1569 global tclencoding
1571 # Invoke git-log to handle automatic encoding conversion
1573 # Read the results using i18n.logoutputencoding
1577 }
1579 close $fd
1580 # Remove the heading line
1584 }
1589 }
1592 global commitinfo cdate
1603 # should never happen...
1605 }
1617 }
1618 }
1620 # take the first non-blank line of the comment as the headline
1625 }
1630 }
1632 # git log indents the comment by 4 spaces;
1633 # if we got this via git cat-file, add the indentation
1636 append newcomment " "
1637 append newcomment $line
1639 }
1641 }
1644 }
1647 }
1650 global commitdata commitinfo
1655 readcommit $id
1658 }
1659 }
1661 }
1663 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1664 # and are present in the current view.
1665 # This is fairly slow...
1667 global varcid curview
1672 }
1674 }
1676 proc readrefs {} {
1677 global tagids idtags headids idheads tagobjid
1678 global otherrefids idotherrefs mainhead mainheadid
1679 global selecthead selectheadid
1683 }
1695 }
1701 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1702 # which is what we want since the former is the commit ID
1708 }
1714 }
1715 }
1719 catch {
1724 }
1725 }
1728 catch {
1730 }
1731 }
1732 }
1734 # skip over fake commits
1735 proc first_real_row {} {
1736 global nullid nullid2 numcommits
1741 break
1742 }
1743 }
1745 }
1747 # update things for a head moved to a child of its previous location
1749 global headids idheads
1754 }
1756 # update things when a head has been removed
1758 global headids idheads
1766 }
1767 }
1769 }
1772 global have_tk85
1774 # In MacOS Tk 8.4 transient appears to work by setting
1775 # overrideredirect, which is utterly useless, since the
1776 # windows get no border, and are not even kept above
1777 # the parent.
1780 wm transient $window $origin
1782 # Windows fails to place transient windows normally, so
1783 # schedule a callback to center them on the parent.
1786 }
1787 }
1798 tkwait window $top
1799 }
1802 set w .error
1803 toplevel $w
1804 make_transient $w $owner
1805 show_error $w $w $msg
1806 }
1809 global confirm_ok
1811 set w .confirm
1812 toplevel $w
1813 make_transient $w $owner
1824 tkwait window $w
1826 }
1828 proc setoptions {} {
1830 option add *Panedwindow.sashRelief raised startupFile
1831 option add *Button.font uifont startupFile
1832 option add *Checkbutton.font uifont startupFile
1833 option add *Radiobutton.font uifont startupFile
1835 option add *Menu.font uifont startupFile
1836 }
1837 option add *Menubutton.font uifont startupFile
1838 option add *Label.font uifont startupFile
1839 option add *Message.font uifont startupFile
1840 option add *Entry.font uifont startupFile
1841 }
1843 # Make a menu and submenus.
1844 # m is the window name for the menu, items is the list of menu items to add.
1845 # Each item is a list {mc label type description options...}
1846 # mc is ignored; it's so we can put mc there to alert xgettext
1847 # label is the string that appears in the menu
1848 # type is cascade, command or radiobutton (should add checkbutton)
1849 # description depends on type; it's the sublist for cascade, the
1850 # command to invoke for command, or {variable value} for radiobutton
1852 menu $m
1854 set Meta1 Cmd
1856 set Meta1 Ctrl
1857 }
1868 }
1869 }
1874 }
1877 }
1881 }
1882 }
1888 }
1889 }
1890 }
1892 # translate string and remove ampersands
1895 }
1897 proc makewindow {} {
1898 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1899 global tabstop
1900 global findtype findtypemenu findloc findstring fstring geometry
1901 global entries sha1entry sha1string sha1but
1902 global diffcontextstring diffcontext
1903 global ignorespace
1904 global maincursor textcursor curtextcursor
1905 global rowctxmenu fakerowmenu mergemax wrapcomment
1906 global highlight_files gdttype
1907 global searchstring sstring
1908 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1909 global headctxmenu progresscanv progressitem progresscoords statusw
1910 global fprogitem fprogcoord lastprogupdate progupdatepending
1911 global rprogitem rprogcoord rownumsel numcommits
1912 global have_tk85
1914 # The "mc" arguments here are purely so that xgettext
1915 # sees the following string as needing to be translated
1926 }}
1930 }}
1938 }}
1944 }}
1954 }}
1958 }}
1960 }
1961 makemenu .bar $bar
1962 . configure -menu .bar
1964 # the gui has upper and lower half, parts of a paned window.
1965 panedwindow .ctop -orient vertical
1967 # possibly use assumed geometry
1975 }
1977 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1979 frame .tf.histframe
1982 # create three canvases
1983 set cscroll .tf.histframe.csb
1984 set canv .tf.histframe.pwclist.canv
1985 canvas $canv \
1989 .tf.histframe.pwclist add $canv
1990 set canv2 .tf.histframe.pwclist.canv2
1991 canvas $canv2 \
1994 .tf.histframe.pwclist add $canv2
1995 set canv3 .tf.histframe.pwclist.canv3
1996 canvas $canv3 \
1999 .tf.histframe.pwclist add $canv3
2003 # a scroll bar to rule them
2007 lappend bglist $canv $canv2 $canv3
2010 # we have two button bars at bottom of top frame. Bar 1
2011 frame .tf.bar
2014 set sha1entry .tf.bar.sha1
2016 set sha1but .tf.bar.sha1label
2020 pack .tf.bar.sha1label -side left
2022 trace add variable sha1string write sha1change
2026 #define left_width 16
2027 #define left_height 16
2028 static unsigned char left_bits[] = {
2032 }
2034 #define right_width 16
2035 #define right_height 16
2036 static unsigned char right_bits[] = {
2040 }
2055 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2056 -side left
2057 global selectedline
2058 trace add variable selectedline write selectedline_change
2060 # Status label and progress bar
2061 set statusw .tf.bar.status
2065 set progresscanv .tf.bar.progress
2078 # build up the bottom bar of upper window
2083 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2090 trace add variable gdttype write gdttype_change
2094 set fstring .tf.lbar.findstring
2095 lappend entries $fstring
2097 trace add variable findstring write find_change
2101 trace add variable findtype write findcom_change
2105 trace add variable findloc write find_change
2106 pack .tf.lbar.findloc -side right
2107 pack .tf.lbar.findtype -side right
2110 # Finish putting the upper half of the viewer together
2114 .ctop add .tf
2118 # now build up the bottom
2119 panedwindow .pwbottom -orient horizontal
2121 # lower left, a text box over search bar, scroll bar to the right
2122 # if we know window height, then that will set the lower text height, otherwise
2123 # we set lower text height which will drive window height
2128 }
2129 frame .bleft.top
2130 frame .bleft.mid
2131 frame .bleft.bottom
2135 set sstring .bleft.top.sstring
2137 lappend entries $sstring
2138 trace add variable searchstring write incrsearch
2151 -textvariable diffcontextstring
2153 trace add variable diffcontextstring write diffcontextchange
2154 lappend entries .bleft.mid.diffcontext
2155 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2159 set ctext .bleft.bottom.ctext
2166 }
2173 grid .bleft.bottom.sbhorizontal -sticky ew
2178 lappend bglist $ctext
2179 lappend fglist $ctext
2208 .pwbottom add .bleft
2211 # lower right
2212 frame .bright
2213 frame .bright.mode
2220 set cflist .bright.cfiles
2222 text $cflist \
2225 -font mainfont \
2230 lappend bglist $cflist
2231 lappend fglist $cflist
2235 $cflist tag configure highlight \
2239 .pwbottom add .bright
2240 .ctop add .pwbottom
2242 # restore window width & height if known
2247 }
2250 }
2252 }
2253 }
2257 }
2260 set M1B M1
2263 set M1B Control
2265 }
2270 #bindall <B1-Motion> {selcanvline %W %x %y}
2280 allcanvs yview scroll $delta units
2281 }
2285 }
2286 }
2287 }
2309 bindkey p "selnextline -1"
2310 bindkey n "selnextline 1"
2311 bindkey z "goback"
2312 bindkey x "goforw"
2313 bindkey i "selnextline -1"
2314 bindkey k "selnextline 1"
2315 bindkey j "goback"
2316 bindkey l "goforw"
2317 bindkey b prevfile
2324 bindkey f nextfile
2341 wm protocol . WM_DELETE_WINDOW doquit
2350 global ctxbut
2354 set maincursor [. cget -cursor]
2358 set rowctxmenu .rowctxmenu
2360 {mc "Diff this -> selected" command {diffvssel 0}}
2361 {mc "Diff selected -> this" command {diffvssel 1}}
2362 {mc "Make patch" command mkpatch}
2363 {mc "Create tag" command mktag}
2364 {mc "Write commit to file" command writecommit}
2365 {mc "Create new branch" command mkbranch}
2366 {mc "Cherry-pick this commit" command cherrypick}
2367 {mc "Reset HEAD branch to here" command resethead}
2368 {mc "Mark this commit" command markhere}
2369 {mc "Return to mark" command gotomark}
2370 {mc "Find descendant of this and mark" command find_common_desc}
2371 {mc "Compare with marked commit" command compare_commits}
2372 }
2375 set fakerowmenu .fakerowmenu
2377 {mc "Diff this -> selected" command {diffvssel 0}}
2378 {mc "Diff selected -> this" command {diffvssel 1}}
2379 {mc "Make patch" command mkpatch}
2380 }
2383 set headctxmenu .headctxmenu
2385 {mc "Check out this branch" command cobranch}
2386 {mc "Remove this branch" command rmbranch}
2387 }
2390 global flist_menu
2391 set flist_menu .flistctxmenu
2393 {mc "Highlight this too" command {flist_hl 0}}
2394 {mc "Highlight this only" command {flist_hl 1}}
2395 {mc "External diff" command {external_diff}}
2396 {mc "Blame parent commit" command {external_blame 1}}
2397 }
2400 global diff_menu
2401 set diff_menu .diffctxmenu
2403 {mc "Show origin of this line" command show_line_source}
2404 {mc "Run git gui blame on this line" command {external_blame_diff}}
2405 }
2407 }
2409 # Windows sends all mouse wheel events to the current focused window, not
2410 # the one where the mouse hovers, so bind those events here and redirect
2411 # to the correct window
2412 proc windows_mousewheel_redirector {W X Y D} {
2413 global canv canv2 canv3
2419 } else {
2420 catch {
2422 }
2423 }
2424 }
2425 }
2427 # Update row number label when selectedline changes
2428 proc selectedline_change {n1 n2 op} {
2429 global selectedline rownumsel
2432 set rownumsel {}
2433 } else {
2435 }
2436 }
2438 # mouse-2 makes all windows scan vertically, but only the one
2439 # the cursor is in scans horizontally
2440 proc canvscan {op w x y} {
2441 global canv canv2 canv3
2445 } else {
2447 }
2448 }
2449 }
2451 proc scrollcanv {cscroll f0 f1} {
2453 drawvisible
2454 flushhighlights
2455 }
2457 # when we make a key binding for the toplevel, make sure
2458 # it doesn't get triggered when that key is pressed in the
2459 # find string entry widget.
2460 proc bindkey {ev script} {
2461 global entries
2465 set escript [bind Entry <Key>]
2466 }
2469 }
2470 }
2472 # set the focus back to the toplevel for any click outside
2473 # the entry widgets
2474 proc click {w} {
2475 global ctext entries
2478 }
2479 focus .
2480 }
2482 # Adjust the progress bar for a change in requested extent or canvas size
2483 proc adjustprogress {} {
2484 global progresscanv progressitem progresscoords
2485 global fprogitem fprogcoord lastprogupdate progupdatepending
2486 global rprogitem rprogcoord
2495 set now [clock clicks -milliseconds]
2497 set progupdatepending 0
2498 update
2500 set progupdatepending 1
2502 }
2503 }
2505 proc doprogupdate {} {
2506 global lastprogupdate progupdatepending
2509 set progupdatepending 0
2510 set lastprogupdate [clock clicks -milliseconds]
2511 update
2512 }
2513 }
2515 proc savestuff {w} {
2516 global canv canv2 canv3 mainfont textfont uifont tabstop
2517 global stuffsaved findmergefiles maxgraphpct
2518 global maxwidth showneartags showlocalchanges
2519 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2520 global cmitmode wrapcomment datetimeformat limitdiffs
2521 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2522 global autoselect extdifftool perfile_attrs markbgcolor
2525 if {![winfo viewable .]} return
2526 catch {
2527 set f [open "~/.gitk-new" w]
2528 if {$::tcl_platform(platform) eq {windows}} {
2529 file attributes "~/.gitk-new" -hidden true
2530 }
2568 }
2569 }
2572 file rename -force "~/.gitk-new" "~/.gitk"
2573 }
2574 set stuffsaved 1
2575 }
2577 proc resizeclistpanes {win w} {
2578 global oldwidth
2585 } else {
2590 set sash0 30
2591 }
2594 }
2599 }
2600 }
2601 }
2604 }
2606 }
2608 proc resizecdetpanes {win w} {
2609 global oldwidth
2614 } else {
2618 set sash0 45
2619 }
2622 }
2623 }
2625 }
2627 }
2629 proc allcanvs args {
2630 global canv canv2 canv3
2634 }
2636 proc bindall {event action} {
2637 global canv canv2 canv3
2641 }
2643 proc about {} {
2644 global uifont
2645 set w .about
2648 return
2649 }
2654 Gitk - a commit viewer for git
2656 Copyright © 2005-2008 Paul Mackerras
2658 Use and redistribute under the terms of the GNU General Public License"] \
2659 -justify center -aspect 400 -border 2 -bg white -relief groove
2666 }
2668 proc keys {} {
2669 set w .keys
2672 return
2673 }
2674 if {[tk windowingsystem] eq {aqua}} {
2675 set M1T Cmd
2676 } else {
2677 set M1T Ctrl
2678 }
2683 [mc "Gitk key bindings:"]
2686 [mc "<Home> Move to first commit"]
2687 [mc "<End> Move to last commit"]
2688 [mc "<Up>, p, i Move up one commit"]
2689 [mc "<Down>, n, k Move down one commit"]
2690 [mc "<Left>, z, j Go back in history list"]
2691 [mc "<Right>, x, l Go forward in history list"]
2692 [mc "<PageUp> Move up one page in commit list"]
2693 [mc "<PageDown> Move down one page in commit list"]
2700 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2701 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2702 [mc "<Delete>, b Scroll diff view up one page"]
2703 [mc "<Backspace> Scroll diff view up one page"]
2704 [mc "<Space> Scroll diff view down one page"]
2705 [mc "u Scroll diff view up 18 lines"]
2706 [mc "d Scroll diff view down 18 lines"]
2709 [mc "<Return> Move to next find hit"]
2710 [mc "/ Focus the search box"]
2711 [mc "? Move to previous find hit"]
2712 [mc "f Scroll diff view to next file"]
2719 [mc "<F5> Update"]
2720 " \
2721 -justify left -bg white -border 2 -relief groove
2729 }
2731 # Procedures for manipulating the file list window at the
2732 # bottom right of the overall window.
2734 proc treeview {w l openlevs} {
2735 global treecontents treediropen treeheight treeparent treeindex
2737 set ix 0
2738 set treeindex() 0
2739 set lev 0
2740 set prefix {}
2741 set prefixend -1
2742 set prefendstack {}
2743 set htstack {}
2744 set ht 0
2745 set treecontents() {}
2752 }
2759 incr lev -1
2760 }
2764 set ht 0
2776 set ht 1
2781 set str "\n"
2789 }
2790 incr lev
2791 }
2794 incr ht
2795 set str "\n"
2799 }
2801 }
2802 }
2810 }
2812 }
2814 proc linetoelt {l} {
2815 global treeheight treecontents
2817 set y 2
2818 set prefix {}
2819 while {1} {
2823 }
2824 set n 1
2829 incr y
2830 break
2831 }
2832 }
2834 }
2835 }
2836 }
2838 proc highlight_tree {y prefix} {
2839 global treeheight treecontents cflist
2845 }
2846 incr y
2849 }
2850 }
2852 }
2854 proc treeclosedir {w dir} {
2855 global treediropen treeheight treeparent treeindex
2867 }
2868 }
2870 proc treeopendir {w dir} {
2871 global treediropen treeheight treeparent treecontents treeindex
2878 set lev 0
2879 set str "\n"
2882 incr lev
2883 append str "\t"
2885 }
2900 } else {
2903 }
2904 }
2917 }
2919 }
2920 }
2922 proc treeclick {w x y} {
2923 global treediropen cmitmode ctext cflist cflist_top
2926 if {![info exists cflist_top]} return
2933 return
2934 }
2940 } else {
2942 }
2943 }
2945 proc setfilelist {id} {
2946 global treefilelist cflist jump_to_here
2953 }
2954 }
2955 }
2957 image create bitmap tri-rt -background black -foreground blue -data {
2958 #define tri-rt_width 13
2959 #define tri-rt_height 13
2960 static unsigned char tri-rt_bits[] = {
2961 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2962 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2963 0x00, 0x00};
2964 } -maskdata {
2965 #define tri-rt-mask_width 13
2966 #define tri-rt-mask_height 13
2967 static unsigned char tri-rt-mask_bits[] = {
2968 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2969 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2970 0x08, 0x00};
2971 }
2972 image create bitmap tri-dn -background black -foreground blue -data {
2973 #define tri-dn_width 13
2974 #define tri-dn_height 13
2975 static unsigned char tri-dn_bits[] = {
2976 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2977 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2978 0x00, 0x00};
2979 } -maskdata {
2980 #define tri-dn-mask_width 13
2981 #define tri-dn-mask_height 13
2982 static unsigned char tri-dn-mask_bits[] = {
2983 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2984 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2985 0x00, 0x00};
2986 }
2988 image create bitmap reficon-T -background black -foreground yellow -data {
2989 #define tagicon_width 13
2990 #define tagicon_height 9
2991 static unsigned char tagicon_bits[] = {
2992 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2993 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2994 } -maskdata {
2995 #define tagicon-mask_width 13
2996 #define tagicon-mask_height 9
2997 static unsigned char tagicon-mask_bits[] = {
2998 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2999 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3000 }
3001 set rectdata {
3002 #define headicon_width 13
3003 #define headicon_height 9
3004 static unsigned char headicon_bits[] = {
3005 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3006 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3007 }
3008 set rectmask {
3009 #define headicon-mask_width 13
3010 #define headicon-mask_height 9
3011 static unsigned char headicon-mask_bits[] = {
3012 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3013 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3014 }
3015 image create bitmap reficon-H -background black -foreground green \
3017 image create bitmap reficon-o -background black -foreground "#ddddff" \
3020 proc init_flist {first} {
3021 global cflist cflist_top difffilestart
3027 set cflist_top 1
3029 } else {
3030 catch {unset cflist_top}
3031 }
3033 set difffilestart {}
3034 }
3036 proc highlight_tag {f} {
3037 global highlight_paths
3041 return "bold"
3042 }
3043 }
3044 return {}
3045 }
3047 proc highlight_filelist {} {
3048 global cmitmode cflist
3057 }
3058 }
3059 } else {
3060 highlight_tree 2 {}
3061 }
3063 }
3065 proc unhighlight_filelist {} {
3066 global cflist
3071 }
3073 proc add_flist {fl} {
3074 global cflist
3080 }
3082 }
3084 proc sel_flist {w x y} {
3085 global ctext difffilestart cflist cflist_top cmitmode
3088 if {![info exists cflist_top]} return
3095 } else {
3097 }
3098 }
3100 proc pop_flist_menu {w X Y x y} {
3101 global ctext cflist cmitmode flist_menu flist_menu_file
3102 global treediffs diffids
3104 stopfinding
3110 } else {
3112 }
3114 set xdiffstate "normal"
3116 set xdiffstate "disabled"
3117 }
3118 # Disable "External diff" item in tree mode
3121 }
3123 proc find_ctext_fileinfo {line} {
3124 global ctext_file_names ctext_file_lines
3130 return {}
3131 } else {
3133 }
3134 }
3136 proc pop_diff_menu {w X Y x y} {
3137 global ctext diff_menu flist_menu_file
3138 global diff_menu_txtpos diff_menu_line
3139 global diff_menu_filebase
3143 # don't pop up the menu on hunk-separator or file-separator lines
3145 return
3146 }
3147 stopfinding
3153 }
3155 proc flist_hl {only} {
3156 global flist_menu_file findstring gdttype
3161 } else {
3163 }
3164 set gdttype [mc "touching paths:"]
3165 }
3167 proc save_file_from_commit {filename output what} {
3168 global nullfile
3173 }
3175 return {}
3176 }
3178 }
3180 proc external_diff_get_one_file {diffid filename diffdir} {
3181 global nullid nullid2 nullfile
3182 global gitdir
3188 }
3190 }
3194 }
3198 }
3200 proc external_diff {} {
3201 global gitktmpdir nullid nullid2
3202 global flist_menu_file
3203 global diffids
3204 global diffnum
3205 global gitdir extdifftool
3208 # no reference commit given
3211 # diffing working copy with index
3214 # diffing index with HEAD
3215 set diffidfrom "HEAD"
3216 } else {
3217 # use first parent commit
3218 global parentlist selectedline
3220 }
3221 } else {
3224 }
3226 # make sure that several diffs wont collide
3227 if {![info exists gitktmpdir]} {
3229 [format ".gitk-tmp.%s" [pid]]]
3232 unset gitktmpdir
3233 return
3234 }
3235 set diffnum 0
3236 }
3237 incr diffnum
3241 return
3242 }
3244 # gather files to diff
3253 } else {
3256 }
3257 }
3258 }
3260 proc find_hunk_blamespec {base line} {
3261 global ctext
3263 # Find and parse the hunk header
3269 s_line old_specs osz osz1 new_line nsz]} {
3270 return
3271 }
3273 # base lines for the parents
3277 old_spec old_line osz]} {
3278 return
3279 }
3281 }
3283 # Now scan the lines to determine offset within the hunk
3285 set dline 0
3288 # Determine if the line is removed
3292 # Choose a parent index
3295 } else {
3299 } else {
3300 # blame the current commit
3301 set parent -1
3302 }
3303 }
3304 # then count other lines that belong to it
3307 # Determine if the line is removed
3312 incr dline
3313 }
3314 } else {
3316 incr dline
3317 }
3318 }
3319 }
3320 incr parent
3321 } else {
3322 set parent 0
3323 }
3327 }
3329 proc external_blame_diff {} {
3330 global currentid cmitmode
3331 global diff_menu_txtpos diff_menu_line
3332 global diff_menu_filebase flist_menu_file
3335 set parent_idx 0
3337 } else {
3342 } else {
3343 set parent_idx 0
3344 set line 0
3345 }
3346 }
3349 }
3352 # at stage 0 or 2
3353 proc index_sha1 {fname} {
3361 }
3362 }
3364 return {}
3365 }
3367 # Turn an absolute path into one relative to the current directory
3368 proc make_relative {f} {
3370 set here [file split [pwd]]
3371 set ei 0
3372 set hi 0
3373 set res {}
3376 lappend res ".."
3377 } else {
3378 incr ei
3379 }
3380 incr hi
3381 }
3384 }
3386 proc external_blame {parent_idx {line {}}} {
3387 global flist_menu_file gitdir
3388 global nullid nullid2
3389 global parentlist selectedline currentid
3393 } else {
3395 }
3398 error_popup [mc "No such commit"]
3399 return
3400 }
3402 set cmdline [list git gui blame]
3405 }
3407 # Unfortunately it seems git gui blame doesn't like
3408 # being given an absolute path...
3413 }
3414 }
3416 proc show_line_source {} {
3417 global cmitmode currentid parents curview blamestuff blameinst
3418 global diff_menu_line diff_menu_filebase flist_menu_file
3419 global nullid nullid2 gitdir
3421 set from_index {}
3425 } else {
3431 return
3432 }
3433 incr pi -1
3436 # must be a merge in progress...
3437 if {[catch {
3438 # get the last line from .git/MERGE_HEAD
3442 } err]} {
3444 return
3445 }
3447 # need to do the blame from the index
3448 if {[catch {
3450 } err]} {
3452 return
3453 }
3454 } else {
3456 }
3457 } else {
3459 }
3461 }
3462 set blameargs {}
3465 }
3468 lappend blameargs --contents -
3469 } else {
3471 }
3473 if {[catch {
3475 } err]} {
3477 return
3478 }
3479 nowbusy blaming [mc "Searching"]
3485 }
3487 proc stopblaming {} {
3488 global blameinst
3490 if {[info exists blameinst]} {
3492 unset blameinst
3493 notbusy blaming
3494 }
3495 }
3497 proc read_line_source {fd inst} {
3498 global blamestuff curview commfd blameinst nullid nullid2
3502 }
3504 return 1
3505 }
3507 unset blameinst
3508 notbusy blaming
3512 return 0
3513 }
3515 set fname {}
3521 # look for "filename" line
3525 break
3526 }
3527 }
3528 }
3530 # all looks good, select it
3532 # blame uses all-zeroes to mean not committed,
3533 # which would mean a change in the index
3535 }
3538 } else {
3539 error_popup [mc "That line comes from commit %s, \
3541 }
3542 } else {
3543 puts "oops couldn't parse git blame output"
3544 }
3545 return 0
3546 }
3549 proc delete_at_eof {f dir} {
3554 }
3556 return 0
3557 }
3558 return 1
3559 }
3561 # Functions for adding and removing shell-type quoting
3563 proc shellquote {str} {
3566 }
3569 }
3572 }
3574 }
3576 proc shellarglist {l} {
3577 set str {}
3580 append str " "
3581 }
3583 }
3585 }
3587 proc shelldequote {str} {
3588 set ret {}
3589 set used -1
3590 while {1} {
3591 incr used
3595 break
3596 }
3602 }
3604 incr used
3608 error "unmatched single-quote"
3609 }
3612 continue
3613 }
3616 error "trailing backslash"
3617 }
3619 continue
3620 }
3621 # here ch == "\""
3622 while {1} {
3624 error "unmatched double-quote"
3625 }
3631 }
3633 incr used
3635 incr used
3636 }
3637 }
3639 }
3641 proc shellsplit {str} {
3642 set l {}
3643 while {1} {
3651 }
3653 }
3655 # Code to implement multiple views
3657 proc newview {ishighlight} {
3658 global nextviewnum newviewname newishighlight
3659 global revtreeargs viewargscmd newviewopts curview
3662 set top .gitkview
3665 return
3666 }
3672 }
3674 set known_view_options {
3675 {perm b . {} {mc "Remember this view"}}
3676 {reflabel l + {} {mc "References (space separated list):"}}
3677 {refs t15 .. {} {mc "Branches & tags:"}}
3678 {allrefs b *. "--all" {mc "All refs"}}
3679 {branches b . "--branches" {mc "All (local) branches"}}
3680 {tags b . "--tags" {mc "All tags"}}
3681 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3682 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3683 {author t15 .. "--author=*" {mc "Author:"}}
3684 {committer t15 . "--committer=*" {mc "Committer:"}}
3685 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3686 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3687 {changes_l l + {} {mc "Changes to Files:"}}
3688 {pickaxe_s r0 . {} {mc "Fixed String"}}
3689 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3690 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3691 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3692 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3693 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3694 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3695 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3696 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3697 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3698 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3699 {lright b . "--left-right" {mc "Mark branch sides"}}
3700 {first b . "--first-parent" {mc "Limit to first parent"}}
3701 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3702 {args t50 *. {} {mc "Additional arguments to git log:"}}
3703 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3704 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3705 }
3707 proc encode_view_opts {n} {
3708 global known_view_options newviewopts
3710 set rargs [list]
3720 }
3726 }
3727 } else {
3733 }
3734 }
3735 }
3738 }
3740 proc decode_view_opts {n view_args} {
3741 global known_view_options newviewopts
3746 # Checkboxes
3747 set val 0
3749 # Radiobuttons
3751 set val 0
3752 } else {
3753 # Text fields
3754 set val {}
3755 }
3757 }
3758 set oargs [list]
3759 set refargs [list]
3762 && ![info exists found(limit)]} {
3764 set found(limit) 1
3765 continue
3766 }
3767 catch { unset val }
3774 # Check buttons
3775 set val 1
3777 # Radio buttons
3780 } else {
3781 # Text input fields
3784 }
3787 break
3788 }
3789 if {[info exists val]} break
3790 }
3791 if {[info exists val]} continue
3794 } else {
3796 }
3797 }
3800 }
3802 proc edit_or_newview {} {
3803 global curview
3806 editview
3807 } else {
3808 newview 0
3809 }
3810 }
3812 proc editview {} {
3813 global curview
3814 global viewname viewperm newviewname newviewopts
3815 global viewargs viewargscmd
3820 return
3821 }
3827 }
3829 proc vieweditor {top n title} {
3830 global newviewname newviewopts viewfiles bgcolor
3831 global known_view_options
3837 # View name
3845 # View options
3847 set cexpand 0
3848 set cnt 0
3854 set lxpad 0
3858 incr cnt
3864 incr cnt
3868 } else {
3869 set lxpad 5
3870 }
3904 }
3907 }
3909 }
3910 }
3925 }
3927 proc doviewmenu {m first cmd op argv} {
3932 break
3933 }
3934 }
3935 }
3937 proc allviewmenus {n op args} {
3938 # global viewhlmenu
3942 }
3944 proc newviewok {top n {apply 0}} {
3945 global nextviewnum newviewperm newviewname newishighlight
3946 global viewname viewfiles viewperm selectedview curview
3947 global viewargs viewargscmd newviewopts viewhlmenu
3949 if {[catch {
3951 } err]} {
3953 return
3954 }
3955 set files {}
3960 }
3961 }
3963 # creating a new view
3964 incr nextviewnum
3973 } else {
3975 }
3976 } else {
3977 # editing an existing view
3985 }
3992 run reloadcommits
3993 }
3994 }
3995 }
3998 }
4000 proc delview {} {
4001 global curview viewperm hlview selectedhlview
4005 set selectedhlview [mc "None"]
4006 unset hlview
4007 }
4010 showview 0
4011 }
4013 proc addviewmenu {n} {
4014 global viewname viewhlmenu
4020 }
4022 proc showview {n} {
4023 global curview cached_commitrow ordertok
4024 global displayorder parentlist rowidlist rowisopt rowfinal
4025 global colormap rowtextx nextcolor canvxmax
4026 global numcommits viewcomplete
4027 global selectedline currentid canv canvy0
4028 global treediffs
4029 global pending_select mainheadid
4030 global commitidx
4031 global selectedview
4032 global hlview selectedhlview commitinterest
4035 set selid {}
4046 }
4047 } elseif {[info exists pending_select]} {
4049 unset pending_select
4050 }
4051 unselectline
4052 normalline
4053 catch {unset treediffs}
4054 clear_display
4056 unset hlview
4057 set selectedhlview [mc "None"]
4058 }
4059 catch {unset commitinterest}
4060 catch {unset cached_commitrow}
4061 catch {unset ordertok}
4068 run refill_reflist
4071 return
4072 }
4074 set displayorder {}
4075 set parentlist {}
4076 set rowidlist {}
4077 set rowisopt {}
4078 set rowfinal {}
4081 catch {unset colormap}
4082 catch {unset rowtextx}
4083 set nextcolor 0
4086 set row 0
4087 setcanvscroll
4088 set yf 0
4089 set row {}
4092 # try to get the selected row in the same position on the screen
4096 set ytop 0
4097 }
4099 }
4101 drawvisible
4106 } else {
4107 reset_pending_select {}
4111 } else {
4112 set row [first_real_row]
4115 }
4116 }
4117 }
4120 show_status [mc "Reading commits..."]
4121 }
4123 show_status [mc "No commits selected"]
4124 }
4125 }
4127 # Stuff relating to the highlighting facility
4129 proc ishighlighted {id} {
4130 global vhighlights fhighlights nhighlights rhighlights
4134 }
4137 }
4140 }
4143 }
4144 return 0
4145 }
4147 proc bolden {id font} {
4148 global canv linehtag currentid boldids need_redisplay markedid
4150 # need_redisplay = 1 means the display is stale and about to be redrawn
4157 -outline {{}} -tags secsel \
4160 }
4163 }
4164 }
4166 proc bolden_name {id font} {
4167 global canv2 linentag currentid boldnameids need_redisplay
4175 -outline {{}} -tags secsel \
4178 }
4179 }
4181 proc unbolden {} {
4182 global boldids
4184 set stillbold {}
4188 } else {
4190 }
4191 }
4193 }
4195 proc addvhighlight {n} {
4196 global hlview viewcomplete curview vhl_done commitidx
4198 if {[info exists hlview]} {
4199 delvhighlight
4200 }
4204 }
4207 drawvisible
4208 }
4209 }
4211 proc delvhighlight {} {
4212 global hlview vhighlights
4214 if {![info exists hlview]} return
4215 unset hlview
4216 catch {unset vhighlights}
4217 unbolden
4218 }
4220 proc vhighlightmore {} {
4221 global hlview vhl_done commitidx vhighlights curview
4224 set vr [visiblerows]
4234 }
4236 }
4237 }
4238 }
4240 return 0
4241 }
4243 proc askvhighlight {row id} {
4244 global hlview vhighlights iddrawn
4249 }
4251 } else {
4253 }
4254 }
4256 proc hfiles_change {} {
4257 global highlight_files filehighlight fhighlights fh_serial
4258 global highlight_paths
4260 if {[info exists filehighlight]} {
4261 # delete previous highlights
4263 unset filehighlight
4264 catch {unset fhighlights}
4265 unbolden
4266 unhighlight_filelist
4267 }
4268 set highlight_paths {}
4270 incr fh_serial
4273 }
4274 }
4276 proc gdttype_change {name ix op} {
4277 global gdttype highlight_files findstring findpattern
4279 stopfinding
4283 set highlight_files {}
4284 hfiles_change
4285 }
4286 findcom_change
4287 } else {
4289 set findpattern {}
4290 findcom_change
4291 }
4293 hfiles_change
4294 }
4295 drawvisible
4296 }
4297 # enable/disable findtype/findloc menus too
4298 }
4300 proc find_change {name ix op} {
4301 global gdttype findstring highlight_files
4303 stopfinding
4305 findcom_change
4306 } else {
4309 hfiles_change
4310 }
4311 }
4312 drawvisible
4313 }
4315 proc findcom_change args {
4316 global nhighlights boldnameids
4317 global findpattern findtype findstring gdttype
4319 stopfinding
4320 # delete previous highlights, if any
4323 }
4324 set boldnameids {}
4325 catch {unset nhighlights}
4326 unbolden
4327 unmarkmatches
4329 set findpattern {}
4332 } else {
4333 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4336 }
4337 }
4339 proc makepatterns {l} {
4340 set ret {}
4345 } else {
4348 }
4349 }
4351 }
4353 proc do_file_hl {serial} {
4354 global highlight_files filehighlight highlight_paths gdttype fhl_list
4359 highlight_filelist
4363 } else {
4364 # must be "containing:", i.e. we're searching commit info
4365 return
4366 }
4371 set fhl_list {}
4372 drawvisible
4373 flushhighlights
4374 }
4376 proc flushhighlights {} {
4377 global filehighlight fhl_list
4379 if {[info exists filehighlight]} {
4380 lappend fhl_list {}
4383 }
4384 }
4386 proc askfilehighlight {row id} {
4387 global filehighlight fhighlights fhl_list
4392 }
4394 proc readfhighlight {} {
4395 global filehighlight fhighlights curview iddrawn
4396 global fhl_list find_dirn
4398 if {![info exists filehighlight]} {
4399 return 0
4400 }
4401 set nr 0
4409 }
4415 }
4417 }
4419 # strange...
4420 puts "oops, git diff-tree died"
4422 unset filehighlight
4423 return 0
4424 }
4425 if {[info exists find_dirn]} {
4426 run findmore
4427 }
4428 return 1
4429 }
4431 proc doesmatch {f} {
4432 global findtype findpattern
4438 } else {
4440 }
4441 }
4443 proc askfindhighlight {row id} {
4444 global nhighlights commitinfo iddrawn
4445 global findloc
4446 global markingmatches
4450 }
4452 set isbold 0
4453 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4458 set isbold 2
4459 break
4460 }
4461 set isbold 1
4462 }
4463 }
4469 }
4470 }
4473 }
4474 }
4476 }
4478 proc markrowmatches {row id} {
4479 global canv canv2 linehtag linentag commitinfo findloc
4490 }
4491 }
4497 }
4498 }
4499 }
4501 proc vrel_change {name ix op} {
4502 global highlight_related
4504 rhighlight_none
4506 run drawvisible
4507 }
4508 }
4510 # prepare for testing whether commits are descendents or ancestors of a
4511 proc rhighlight_sel {a} {
4512 global descendent desc_todo ancestor anc_todo
4513 global highlight_related
4515 catch {unset descendent}
4517 catch {unset ancestor}
4520 rhighlight_none
4521 run drawvisible
4522 }
4523 }
4525 proc rhighlight_none {} {
4526 global rhighlights
4528 catch {unset rhighlights}
4529 unbolden
4530 }
4532 proc is_descendent {a} {
4533 global curview children descendent desc_todo
4538 set leftover {}
4539 set done 0
4544 continue
4545 }
4551 set done 1
4552 }
4553 }
4554 }
4557 return
4558 }
4559 }
4562 }
4564 proc is_ancestor {a} {
4565 global curview parents ancestor anc_todo
4570 set leftover {}
4571 set done 0
4576 continue
4577 }
4583 set done 1
4584 }
4585 }
4586 }
4589 return
4590 }
4591 }
4594 }
4596 proc askrelhighlight {row id} {
4597 global descendent highlight_related iddrawn rhighlights
4598 global selectedline ancestor
4601 set isbold 0
4606 }
4608 set isbold 1
4609 }
4614 }
4616 set isbold 1
4617 }
4618 }
4622 }
4623 }
4625 }
4627 # Graph layout functions
4629 proc shortids {ids} {
4630 set res {}
4636 } else {
4638 }
4639 }
4641 }
4643 proc ntimes {n o} {
4644 set ret {}
4649 }
4651 }
4653 }
4655 proc ordertoken {id} {
4656 global ordertok curview varcid varcstart varctok curview parents children
4657 global nullid nullid2
4661 }
4663 set todo {}
4664 while {1} {
4668 } else {
4670 }
4673 break
4674 }
4677 # it's a root
4679 break
4680 }
4683 } else {
4687 }
4689 }
4690 }
4695 }
4698 }
4700 # Work out where id should go in idlist so that order-token
4701 # values increase from left to right
4702 proc idcol {idlist id {i 0}} {
4705 set i 0
4706 }
4710 }
4712 incr i
4713 } else {
4717 }
4718 }
4720 }
4722 proc initlayout {} {
4723 global rowidlist rowisopt rowfinal displayorder parentlist
4724 global numcommits canvxmax canv
4725 global nextcolor
4726 global colormap rowtextx
4728 set numcommits 0
4729 set displayorder {}
4730 set parentlist {}
4731 set nextcolor 0
4732 set rowidlist {}
4733 set rowisopt {}
4734 set rowfinal {}
4736 catch {unset colormap}
4737 catch {unset rowtextx}
4738 setcanvscroll
4739 }
4741 proc setcanvscroll {} {
4742 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4743 global lastscrollset lastscrollrows
4749 set lastscrollset [clock clicks -milliseconds]
4751 }
4753 proc visiblerows {} {
4754 global canv numcommits linespc
4762 set r0 0
4763 }
4768 }
4770 }
4772 proc layoutmore {} {
4773 global commitidx viewcomplete curview
4774 global numcommits pending_select curview
4775 global lastscrollset lastscrollrows
4779 setcanvscroll
4780 }
4781 if {[info exists pending_select] &&
4783 update
4785 }
4786 drawvisible
4787 }
4789 # With path limiting, we mightn't get the actual HEAD commit,
4790 # so ask git rev-list what is the first ancestor of HEAD that
4791 # touches a file in the path limit.
4792 proc get_viewmainhead {view} {
4793 global viewmainheadid vfilelimit viewinstances mainheadid
4795 catch {
4803 }
4804 }
4807 proc getviewhead {fd inst view} {
4808 global viewmainheadid commfd curview viewinstances showlocalchanges
4810 set id {}
4813 return 1
4814 }
4817 }
4824 }
4826 doshowlocalchanges
4827 }
4828 return 0
4829 }
4831 proc doshowlocalchanges {} {
4832 global curview viewmainheadid
4836 dodiffindex
4837 } else {
4839 }
4840 }
4842 proc dohidelocalchanges {} {
4843 global nullid nullid2 lserial curview
4847 }
4850 }
4851 incr lserial
4852 }
4854 # spawn off a process to do git diff-index --cached HEAD
4855 proc dodiffindex {} {
4856 global lserial showlocalchanges vfilelimit curview
4857 global isworktree
4860 incr lserial
4861 set cmd "|git diff-index --cached HEAD"
4864 }
4869 }
4871 proc readdiffindex {fd serial inst} {
4872 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4873 global vfilelimit
4875 set isdiff 1
4878 return 1
4879 }
4880 set isdiff 0
4881 }
4882 # we only need to see one line and we don't really care what it says...
4886 return 0
4887 }
4889 # now see if there are any local changes not checked in to the index
4890 set cmd "|git diff-files"
4893 }
4900 # add the line for the changes in the index to the graph
4901 set hl [mc "Local changes checked in to index but not committed"]
4906 }
4911 }
4913 }
4914 return 0
4915 }
4917 proc readdifffiles {fd serial inst} {
4918 global viewmainheadid nullid nullid2 curview
4919 global commitinfo commitdata lserial
4921 set isdiff 1
4924 return 1
4925 }
4926 set isdiff 0
4927 }
4928 # we only need to see one line and we don't really care what it says...
4932 return 0
4933 }
4936 # add the line for the local diff to the graph
4937 set hl [mc "Local uncommitted changes, not checked in to index"]
4942 } else {
4944 }
4948 }
4949 return 0
4950 }
4952 proc nextuse {id row} {
4953 global curview children
4958 return -1
4959 }
4962 }
4963 }
4964 }
4967 }
4968 return -1
4969 }
4971 proc prevuse {id row} {
4972 global curview children
4974 set ret -1
4980 }
4981 }
4982 }
4984 }
4986 proc make_idlist {row} {
4987 global displayorder parentlist uparrowlen downarrowlen mingaplen
4988 global commitidx curview children
4992 set r 0
4993 }
4996 set ra 0
4997 }
5001 }
5003 set ids {}
5012 }
5013 }
5014 }
5022 }
5023 }
5024 }
5032 }
5033 }
5034 incr r
5040 }
5041 }
5042 }
5043 set idlist {}
5046 }
5048 }
5050 proc rowsequal {a b} {
5053 }
5056 }
5058 }
5060 proc makeupline {id row rend col} {
5061 global rowidlist uparrowlen downarrowlen mingaplen
5067 }
5070 }
5077 }
5078 }
5079 }
5081 proc layoutrows {row endrow} {
5082 global rowidlist rowisopt rowfinal displayorder
5083 global uparrowlen downarrowlen maxwidth mingaplen
5084 global children parentlist
5085 global commitidx viewcomplete curview
5088 set idlist {}
5094 }
5095 }
5097 }
5102 set final 1
5103 } else {
5111 # if not the first child, we have to insert a line going up
5114 }
5115 }
5116 }
5126 }
5127 }
5128 }
5135 }
5136 }
5146 }
5147 }
5155 }
5156 }
5157 }
5158 }
5159 }
5163 set final 0
5164 }
5168 lappend rowisopt 0
5174 }
5176 } else {
5183 }
5184 }
5186 }
5188 proc changedrow {row} {
5189 global displayorder iddrawn rowisopt need_redisplay
5198 }
5199 }
5200 }
5203 set need_redisplay 1
5204 }
5205 }
5207 proc insert_pad {row col npad} {
5208 global rowidlist
5217 }
5220 }
5222 proc optimize_rows {row col endrow} {
5223 global rowidlist rowisopt displayorder curview children
5226 set row 1
5227 }
5230 set haspad 0
5239 } else {
5240 set pprevidlist {}
5241 }
5242 set x0 -1
5243 set xm -1
5248 set haspad 1
5249 continue
5250 }
5254 set isarrow 0
5255 set z0 {}
5260 }
5261 }
5266 set isarrow 1
5267 }
5268 }
5271 set isarrow 1
5272 }
5273 # Looking at lines from this row to the previous row,
5274 # make them go straight up if they end in an arrow on
5275 # the previous row; otherwise make them go straight up
5276 # or at 45 degrees.
5278 # Line currently goes left too much;
5279 # insert pads in the previous row, then optimize it
5284 }
5292 }
5294 # Line currently goes right too much;
5295 # insert pads in this line
5301 set haspad 1
5302 }
5309 }
5310 }
5311 # avoid lines jigging left then immediately right
5314 incr x0
5317 }
5318 }
5320 # Find the first column that doesn't have a line going right
5326 # check if this is the link to the first child
5329 # it is, work out offset to child
5331 }
5332 }
5334 }
5335 # Insert a pad at that column as long as it has a line and
5336 # isn't the last column
5341 }
5342 }
5343 }
5344 }
5346 proc xc {row col} {
5347 global canvx0 linespc
5349 }
5351 proc yc {row} {
5352 global canvy0 linespc
5354 }
5356 proc linewidth {id} {
5357 global thickerline lthickness
5362 }
5364 }
5366 proc rowranges {id} {
5367 global curview children uparrowlen downarrowlen
5368 global rowidlist
5372 return {}
5373 }
5374 set ret {}
5379 if {![info exists prev]} {
5381 } else {
5383 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5384 }
5385 # see if the line extends the whole way from prevrow to row
5389 # it doesn't, see where it ends
5394 } else {
5397 incr r -1
5398 }
5400 # see where it starts up again
5405 } else {
5408 incr r
5409 }
5411 }
5412 }
5415 }
5418 }
5420 }
5422 proc drawlineseg {id row endrow arrowlow} {
5423 global rowidlist displayorder iddrawn linesegs
5424 global canv colormap linespc curview maxlinelen parentlist
5428 set arrowhigh 1
5429 while {1} {
5432 incr le -1
5433 break
5434 }
5438 set arrowhigh 0
5439 break
5440 }
5445 set arrowhigh 0
5446 }
5447 break
5448 }
5449 incr le
5450 }
5453 }
5455 set lines {}
5456 set i 0
5457 set joinhigh 0
5464 set joinhigh 1
5465 }
5466 break
5467 }
5468 incr i
5469 }
5470 }
5471 set joinlow 0
5476 set joinlow 1
5477 }
5478 }
5491 }
5492 } else {
5494 }
5502 set arrowlow 0
5503 }
5504 }
5512 }
5514 }
5517 # join parent line to first child
5528 } else {
5530 }
5538 }
5540 }
5542 } else {
5546 }
5554 } else {
5558 }
5560 }
5561 } else {
5567 }
5571 } else {
5572 # coalesce two pieces
5577 }
5581 }
5582 }
5586 }
5588 proc drawparentlinks {id row} {
5589 global rowidlist canv colormap curview parentlist
5590 global idpos linespc
5603 # rmx = right-most X coord used
5604 set rmx 0
5609 continue
5610 }
5614 }
5617 # drawlineseg will do this one for us
5618 continue
5619 }
5621 # should handle duplicated parents here...
5624 # if attaching to a vertical segment, draw a smaller
5625 # slant for visual distinctness
5629 } else {
5631 }
5633 # segment slants towards us already
5635 } else {
5640 }
5642 }
5643 } else {
5645 }
5650 }
5654 }
5655 }
5657 proc drawlines {id} {
5658 global canv
5661 }
5663 proc drawcmittext {id row col} {
5664 global linespc canv canv2 canv3 fgcolor curview
5665 global cmitlisted commitinfo rowidlist parentlist
5666 global rowtextx idpos idtags idheads idotherrefs
5667 global linehtag linentag linedtag selectedline
5668 global canvxmax boldids boldnameids fgcolor markedid
5669 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5671 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5674 set ofill red
5676 set ofill green
5678 set ofill yellow
5679 } else {
5681 }
5690 # triangle pointing left for left-side commits
5696 } else {
5697 # triangle pointing right for right-side commits
5703 }
5715 }
5716 }
5717 }
5724 }
5729 set font mainfont
5730 set nfont mainfont
5734 set font mainfontbold
5737 set nfont mainfontbold
5738 }
5739 }
5749 }
5752 }
5756 setcanvscroll
5757 }
5758 }
5760 proc drawcmitrow {row} {
5761 global displayorder rowidlist nrows_drawn
5762 global iddrawn markingmatches
5763 global commitinfo numcommits
5764 global filehighlight fhighlights findpattern nhighlights
5765 global hlview vhighlights
5766 global highlight_related rhighlights
5773 }
5776 }
5779 }
5782 }
5787 return
5788 }
5791 }
5795 incr nrows_drawn
5796 }
5799 }
5800 }
5802 proc drawcommits {row {endrow {}}} {
5803 global numcommits iddrawn displayorder curview need_redisplay
5804 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5807 set row 0
5808 }
5811 }
5814 }
5818 set rl1 0
5819 }
5822 set ro1 0
5823 }
5827 }
5832 }
5834 }
5835 }
5838 }
5841 clear_display
5842 }
5844 # make the lines join to already-drawn rows either side
5848 }
5853 }
5868 # see if this is the first child of any of its parents
5871 # make this line extend up to the child
5873 }
5874 }
5875 } else {
5877 }
5878 }
5879 }
5880 }
5882 proc undolayout {row} {
5883 global uparrowlen mingaplen downarrowlen
5884 global rowidlist rowisopt rowfinal need_redisplay
5888 set r 0
5889 }
5891 incr r -1
5895 set need_redisplay 1
5896 run drawvisible
5897 }
5898 }
5900 proc drawvisible {} {
5901 global canv linespc curview vrowmod selectedline targetrow targetid
5902 global need_redisplay cscroll numcommits
5912 if {[info exists targetid]} {
5916 # Fix up the scrollregion and change the scrolling position
5917 # now that our target row has moved.
5920 setcanvscroll
5928 set need_redisplay 1
5929 }
5930 } else {
5931 unset targetid
5932 }
5933 }
5939 }
5943 } elseif {[info exists targetid]} {
5945 }
5946 if {[info exists targetrow]} {
5949 }
5951 }
5953 }
5955 proc clear_display {} {
5956 global iddrawn linesegs need_redisplay nrows_drawn
5957 global vhighlights fhighlights nhighlights rhighlights
5958 global linehtag linentag linedtag boldids boldnameids
5960 allcanvs delete all
5961 catch {unset iddrawn}
5962 catch {unset linesegs}
5963 catch {unset linehtag}
5964 catch {unset linentag}
5965 catch {unset linedtag}
5966 set boldids {}
5967 set boldnameids {}
5968 catch {unset vhighlights}
5969 catch {unset fhighlights}
5970 catch {unset nhighlights}
5971 catch {unset rhighlights}
5972 set need_redisplay 0
5973 set nrows_drawn 0
5974 }
5976 proc findcrossings {id} {
5977 global rowidlist parentlist numcommits displayorder
5979 set cross {}
5980 set ccross {}
5984 }
6003 }
6004 }
6005 }
6006 }
6007 }
6009 }
6011 proc assigncolor {id} {
6012 global colormap colors nextcolor
6013 global parents children children curview
6019 } else {
6020 set kids {}
6021 }
6027 return
6028 }
6029 }
6030 set badcolors {}
6031 set origbad {}
6034 # delimiter between corner crossings and other crossings
6037 }
6041 }
6042 }
6045 }
6052 }
6057 }
6058 }
6059 }
6062 }
6063 }
6067 set nextcolor 0
6068 }
6070 }
6072 }
6074 proc bindline {t id} {
6075 global canv
6081 }
6083 proc drawtags {id x xt y1} {
6084 global idtags idheads idotherrefs mainhead
6085 global linespc lthickness
6086 global canv rowtextx curview fgcolor bgcolor ctxbut
6088 set marks {}
6089 set ntags 0
6090 set nheads 0
6094 }
6098 }
6101 }
6104 }
6109 set xvals {}
6110 set wvals {}
6111 set i -1
6113 incr i
6116 } else {
6118 }
6122 }
6129 set font mainfont
6130 if {[incr ntags -1] >= 0} {
6131 # draw a tag
6137 } else {
6138 # draw a head or other ref
6139 if {[incr nheads -1] >= 0} {
6140 set col green
6142 set font mainfontbold
6143 }
6144 } else {
6145 set col "#ddddff"
6146 }
6157 }
6158 }
6165 }
6166 }
6168 }
6170 proc xcoord {i level ln} {
6171 global canvx0 xspc1 xspc2
6178 }
6180 }
6182 proc show_status {msg} {
6183 global canv fgcolor
6185 clear_display
6188 }
6190 # Don't change the text pane cursor if it is currently the hand cursor,
6191 # showing that we are over a sha1 ID link.
6192 proc settextcursor {c} {
6193 global ctext curtextcursor
6197 }
6199 }
6201 proc nowbusy {what {name {}}} {
6202 global isbusy busyname statusw
6204 if {[array names isbusy] eq {}} {
6205 . config -cursor watch
6206 settextcursor watch
6207 }
6212 }
6213 }
6215 proc notbusy {what} {
6216 global isbusy maincursor textcursor busyname statusw
6218 catch {
6223 }
6224 }
6225 if {[array names isbusy] eq {}} {
6228 }
6229 }
6231 proc findmatches {f} {
6232 global findtype findstring
6235 } else {
6240 }
6241 set matches {}
6242 set i 0
6247 }
6248 }
6250 }
6252 proc dofind {{dirn 1} {wrap 1}} {
6253 global findstring findstartline findcurline selectedline numcommits
6254 global gdttype filehighlight fh_serial find_dirn findallowwrap
6256 if {[info exists find_dirn]} {
6258 stopfinding
6259 }
6260 focus .
6264 } else {
6266 }
6268 nowbusy finding [mc "Searching"]
6272 }
6275 run findmore
6276 }
6278 proc stopfinding {} {
6279 global find_dirn findcurline fprogcoord
6281 if {[info exists find_dirn]} {
6282 unset find_dirn
6283 unset findcurline
6284 notbusy finding
6285 set fprogcoord 0
6286 adjustprogress
6287 }
6288 stopblaming
6289 }
6291 proc findmore {} {
6292 global commitdata commitinfo numcommits findpattern findloc
6293 global findstartline findcurline findallowwrap
6294 global find_dirn gdttype fhighlights fprogcoord
6295 global curview varcorder vrownum varccommits vrowmod
6297 if {![info exists find_dirn]} {
6298 return 0
6299 }
6300 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6302 set moretodo 0
6304 incr l
6306 set l 0
6307 }
6310 } else {
6313 }
6314 } else {
6317 }
6318 incr l -1
6321 } else {
6322 set lim -1
6324 }
6325 }
6328 set n 500
6329 set moretodo 1
6330 }
6333 }
6334 set found 0
6335 set domore 1
6349 }
6351 # shouldn't happen unless git log doesn't give all the commits...
6354 continue
6355 }
6358 }
6363 set found 1
6364 break
6365 }
6366 }
6368 }
6369 } else {
6377 }
6382 }
6385 break
6386 }
6389 set domore 0
6391 }
6392 }
6393 }
6394 }
6396 unset findcurline
6397 unset find_dirn
6398 notbusy finding
6399 set fprogcoord 0
6400 adjustprogress
6403 } else {
6404 bell
6405 }
6406 return 0
6407 }
6409 flushhighlights
6410 } else {
6412 }
6416 }
6418 adjustprogress
6420 }
6422 proc findselectline {l} {
6423 global findloc commentend ctext findcurline markingmatches gdttype
6430 # highlight the matches in the comments
6437 }
6438 }
6439 drawvisible
6440 }
6442 # mark the bits of a headline or author that match a find string
6443 proc markmatches {canv l str tag matches font row} {
6444 global selectedline
6462 }
6463 }
6464 }
6466 proc unmarkmatches {} {
6467 global markingmatches
6469 allcanvs delete matches
6470 set markingmatches 0
6471 stopfinding
6472 }
6474 proc selcanvline {w x y} {
6475 global canv canvy0 ctext linespc
6476 global rowtextx
6483 set l 0
6484 }
6489 }
6490 unmarkmatches
6492 }
6494 proc commit_descriptor {p} {
6495 global commitinfo
6498 }
6499 set l "..."
6502 }
6504 }
6506 # append some text to the ctext widget, and make any SHA1 ID
6507 # that we know about be a clickable link.
6508 proc appendwithlinks {text tags} {
6509 global ctext linknum curview
6518 incr e
6522 incr linknum
6523 }
6524 }
6526 proc setlink {id lk} {
6527 global curview ctext pendinglinks
6529 set known 0
6534 set known 1
6536 }
6537 } else {
6539 }
6545 } else {
6548 }
6549 }
6551 proc appendshortlink {id {pre {}} {post {}}} {
6552 global ctext linknum
6559 incr linknum
6560 }
6562 proc makelink {id} {
6563 global pendinglinks
6568 }
6570 }
6572 proc linkcursor {w inc} {
6573 global linkentercount curtextcursor
6577 } else {
6580 set linkentercount 0
6581 }
6582 }
6583 }
6585 proc viewnextline {dir} {
6586 global canv linespc
6594 set newtop 0
6597 }
6599 }
6601 # add a list of tag or branch names at position pos
6602 # returns the number of names inserted
6603 proc appendrefs {pos ids var} {
6607 return 0
6608 }
6611 set tags {}
6615 }
6616 }
6619 } else {
6621 set sep {}
6625 incr linknum
6630 set sep ", "
6631 }
6632 }
6635 }
6637 # called when we have finished computing the nearby tags
6638 proc dispneartags {delay} {
6639 global selectedline currentid showneartags tagphase
6642 after cancel dispnexttag
6644 after 200 dispnexttag
6645 set tagphase -1
6646 } else {
6647 after idle dispnexttag
6648 set tagphase 0
6649 }
6650 }
6652 proc dispnexttag {} {
6653 global selectedline currentid showneartags tagphase ctext
6657 0 {
6661 }
6662 }
6663 1 {
6667 }
6668 }
6669 2 {
6674 # turn "Branch" into "Branches"
6678 }
6679 }
6680 }
6681 }
6682 if {[incr tagphase] <= 2} {
6683 after idle dispnexttag
6684 }
6685 }
6687 proc make_secsel {id} {
6688 global linehtag linentag linedtag canv canv2 canv3
6703 }
6705 proc make_idmark {id} {
6706 global linehtag canv fgcolor
6713 }
6715 proc selectline {l isnew {desired_loc {}}} {
6716 global canv ctext commitinfo selectedline
6717 global canvy0 linespc parents children curview
6718 global currentid sha1entry
6719 global commentend idtags linknum
6720 global mergemax numcommits pending_select
6721 global cmitmode showneartags allcommits
6722 global targetrow targetid lastscrollrows
6723 global autoselect jump_to_here
6725 catch {unset pending_select}
6727 normalline
6728 unsel_reflist
6729 stopfinding
6737 setcanvscroll
6738 }
6752 } else {
6756 }
6757 }
6761 } else {
6765 }
6766 }
6767 }
6770 set newtop 0
6771 }
6773 drawvisible
6774 }
6780 }
6787 }
6791 clear_ctext
6792 set linknum 0
6795 }
6805 }
6807 }
6809 set headers {}
6812 set np 0
6815 set tag mmax
6816 } else {
6818 }
6821 incr np
6822 }
6823 } else {
6826 }
6827 }
6831 }
6833 # make anything that looks like a SHA1 ID be a clickable link
6836 if {![info exists allcommits]} {
6837 getallcommits
6838 }
6849 dispneartags 1
6850 }
6855 }
6863 init_flist [mc "Comments"]
6868 } else {
6870 }
6871 }
6873 proc selfirstline {} {
6874 unmarkmatches
6875 selectline 0 1
6876 }
6878 proc sellastline {} {
6879 global numcommits
6880 unmarkmatches
6883 }
6885 proc selnextline {dir} {
6886 global selectedline
6887 focus .
6890 unmarkmatches
6892 }
6894 proc selnextpage {dir} {
6895 global canv linespc selectedline numcommits
6899 set lpp 1
6900 }
6902 drawvisible
6906 set l 0
6909 }
6910 unmarkmatches
6912 }
6914 proc unselectline {} {
6915 global selectedline currentid
6917 set selectedline {}
6918 catch {unset currentid}
6919 allcanvs delete secsel
6920 rhighlight_none
6921 }
6923 proc reselectline {} {
6924 global selectedline
6928 }
6929 }
6931 proc addtohistory {cmd} {
6932 global history historyindex curview
6937 return
6938 }
6942 } else {
6944 }
6945 incr historyindex
6947 .tf.bar.leftbut conf -state normal
6948 } else {
6949 .tf.bar.leftbut conf -state disabled
6950 }
6951 .tf.bar.rightbut conf -state disabled
6952 }
6954 proc godo {elt} {
6955 global curview
6961 }
6963 }
6965 proc goback {} {
6966 global history historyindex
6967 focus .
6970 incr historyindex -1
6972 .tf.bar.rightbut conf -state normal
6973 }
6975 .tf.bar.leftbut conf -state disabled
6976 }
6977 }
6979 proc goforw {} {
6980 global history historyindex
6981 focus .
6985 incr historyindex
6987 .tf.bar.leftbut conf -state normal
6988 }
6990 .tf.bar.rightbut conf -state disabled
6991 }
6992 }
6994 proc gettree {id} {
6995 global treefilelist treeidlist diffids diffmergeid treepending
6996 global nullid nullid2
6999 catch {unset diffmergeid}
7001 if {![info exists treepending]} {
7003 set cmd [list | git ls-files]
7005 set cmd [list | git ls-files --stage -t]
7006 } else {
7008 }
7010 return
7011 }
7017 }
7018 } else {
7020 }
7021 }
7023 proc gettreeline {gtf id} {
7024 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7026 set nl 0
7030 } else {
7038 }
7041 }
7044 }
7047 }
7049 unset treepending
7051 if {![info exists diffmergeid]} {
7053 }
7056 } else {
7058 }
7059 return 0
7060 }
7062 proc showfile {f} {
7063 global treefilelist treeidlist diffids nullid nullid2
7064 global ctext_file_names ctext_file_lines
7065 global ctext commentend
7070 return
7071 }
7075 return
7076 }
7077 } else {
7081 return
7082 }
7083 }
7094 settabs 0
7095 }
7097 proc getblobline {bf id} {
7098 global diffids cmitmode ctext
7102 return 0
7103 }
7105 set nl 0
7108 }
7110 global jump_to_here ctext_file_names commentend
7112 # delete last newline
7120 }
7121 return 0
7122 }
7125 }
7127 proc mark_ctext_line {lnum} {
7128 global ctext markbgcolor
7134 }
7136 proc mergediff {id} {
7137 global diffmergeid
7138 global diffids treediffs
7139 global parents curview
7147 }
7149 proc startdiff {ids} {
7150 global treediffs diffids treepending diffmergeid nullid nullid2
7152 settabs 1
7154 catch {unset diffmergeid}
7158 if {![info exists treepending]} {
7160 }
7161 } else {
7163 }
7164 }
7166 proc path_filter {filter name} {
7171 return 1
7172 }
7173 } else {
7177 return 1
7178 }
7179 }
7180 }
7181 return 0
7182 }
7184 proc addtocflist {ids} {
7185 global treediffs
7189 }
7191 proc diffcmd {ids flags} {
7192 global nullid nullid2
7198 # comparing working directory with some specific revision
7202 } else {
7204 }
7205 } else {
7206 # comparing working directory with index
7209 lappend cmd -R
7210 }
7211 }
7215 # comparing index with specific revision
7218 } else {
7220 }
7221 } else {
7222 # comparing index with HEAD
7223 lappend cmd HEAD
7224 }
7225 } else {
7227 }
7229 }
7231 proc gettreediffs {ids} {
7232 global treediff treepending
7237 set treediff {}
7240 }
7242 proc gettreediffline {gdtf ids} {
7243 global treediff treediffs treepending diffids diffmergeid
7244 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7246 set nr 0
7247 set sublist {}
7248 set max 1000
7250 # cache_gitattr is slow, and even slower on win32 where we
7251 # have to invoke it for only about 30 paths at a time
7252 set max 500
7253 if {[tk windowingsystem] == "win32"} {
7254 set max 120
7255 }
7256 }
7263 }
7268 }
7269 }
7270 }
7273 }
7276 }
7279 set flist {}
7283 }
7284 }
7286 } else {
7288 }
7289 unset treepending
7293 if {![info exists diffmergeid]} {
7295 }
7296 } else {
7298 }
7299 return 0
7300 }
7302 # empty string or positive integer
7303 proc diffcontextvalidate {v} {
7305 }
7307 proc diffcontextchange {n1 n2 op} {
7308 global diffcontextstring diffcontext
7313 reselectline
7314 }
7315 }
7316 }
7318 proc changeignorespace {} {
7319 reselectline
7320 }
7322 proc getblobdiffs {ids} {
7323 global blobdifffd diffids env
7324 global diffinhdr treediffs
7325 global diffcontext
7326 global ignorespace
7327 global limitdiffs vfilelimit curview
7328 global diffencoding targetline diffnparents
7329 global git_version
7331 set textconv {}
7333 set textconv "--textconv"
7334 }
7337 append cmd " -w"
7338 }
7341 }
7344 return
7345 }
7346 set targetline {}
7347 set diffnparents 0
7348 set diffinhdr 0
7349 set diffencoding [get_path_encoding {}]
7353 }
7355 proc setinlist {var i val} {
7360 }
7363 } else {
7365 }
7366 }
7368 proc makediffhdr {fname ids} {
7369 global ctext curdiffstart treediffs diffencoding
7370 global ctext_file_names jump_to_here targetline diffline
7377 }
7382 set targetline {}
7385 }
7386 set diffline 0
7387 }
7389 proc getblobdiffline {bdf ids} {
7390 global diffids blobdifffd ctext curdiffstart
7391 global diffnexthead diffnextnote difffilestart
7392 global ctext_file_names ctext_file_lines
7393 global diffinhdr treediffs mergemax diffnparents
7394 global diffencoding jump_to_here targetline diffline
7396 set nr 0
7401 return 0
7402 }
7407 continue
7408 }
7409 # start of a new file
7410 set diffinhdr 1
7413 lappend ctext_file_names ""
7418 # start of a new file in a merge diff
7423 }
7425 } else {
7427 # If the name hasn't changed the length will be odd,
7428 # the middle char will be a space, and the two bits either
7429 # side will be a/name and b/name, or "a/name" and "b/name".
7430 # If the name has changed we'll get "rename from" and
7431 # "rename to" or "copy from" and "copy to" lines following
7432 # this, and we'll use them to get the filenames.
7433 # This complexity is necessary because spaces in the
7434 # filename(s) don't get escaped.
7440 continue
7441 }
7442 # unescape if quoted and chop off the a/ from the front
7445 } else {
7447 }
7448 }
7461 }
7469 }
7471 set diffinhdr 0
7478 }
7483 }
7489 }
7492 # do nothing
7493 continue
7495 set diffinhdr 0
7496 continue
7497 }
7500 } else {
7501 set line [string map {\x1A ^Z} \
7503 # parse the prefix - one ' ', '-' or '+' for each parent
7507 # prefix only has " ", "-" and "+" in it: normal diff line
7512 set num "max"
7513 }
7515 } else {
7516 set tags {}
7518 # added line
7524 set num "max"
7525 }
7527 }
7528 }
7529 }
7533 set targetline {}
7534 } else {
7535 incr diffline
7536 }
7537 }
7539 }
7540 } else {
7541 # "\ No newline at end of file",
7542 # or something else we don't recognize
7544 }
7545 }
7546 }
7547 if {[info exists seehere]} {
7549 }
7553 return 0
7554 }
7556 }
7558 proc changediffdisp {} {
7559 global ctext diffelide
7563 }
7565 proc highlightfile {loc cline} {
7566 global ctext cflist cflist_top
7573 }
7575 proc prevfile {} {
7576 global difffilestart ctext cmitmode
7579 set prev 0.0
7580 set prevline 1
7585 return
7586 }
7588 incr prevline
7589 }
7591 }
7593 proc nextfile {} {
7594 global difffilestart ctext cmitmode
7598 set line 1
7600 incr line
7603 return
7604 }
7605 }
7606 }
7608 proc clear_ctext {{first 1.0}} {
7609 global ctext smarktop smarkbot
7610 global ctext_file_names ctext_file_lines
7611 global pendinglinks
7616 }
7619 }
7622 catch {unset pendinglinks}
7623 }
7624 set ctext_file_names {}
7625 set ctext_file_lines {}
7626 }
7628 proc settabs {{firstab {}}} {
7629 global firsttabstop tabstop ctext have_tk85
7633 }
7634 set w [font measure textfont "0"]
7640 } else {
7642 }
7643 }
7645 proc incrsearch {name ix op} {
7646 global ctext searchstring searchdirn
7650 # no anchor set, use start of selection, or of visible area
7656 } else {
7658 }
7659 }
7664 }
7665 searchmarkvisible 1
7666 }
7667 }
7669 proc dosearch {} {
7670 global sstring ctext searchstring searchdirn
7674 set searchdirn -forwards
7680 set start "@0,0"
7681 }
7685 bell
7686 return
7687 }
7692 }
7693 }
7695 proc dosearchback {} {
7696 global sstring ctext searchstring searchdirn
7700 set searchdirn -backwards
7707 }
7711 bell
7712 return
7713 }
7718 }
7719 }
7721 proc searchmark {first last} {
7722 global ctext searchstring
7725 while {1} {
7730 }
7731 }
7733 proc searchmarkvisible {doall} {
7734 global ctext smarktop smarkbot
7739 # no overlap with previous
7743 } else {
7747 }
7751 }
7752 }
7753 }
7755 proc scrolltext {f0 f1} {
7756 global searchstring
7760 searchmarkvisible 0
7761 }
7762 }
7764 proc setcoords {} {
7765 global linespc charspc canvx0 canvy0
7766 global xspc1 xspc2 lthickness
7768 set linespc [font metrics mainfont -linespace]
7769 set charspc [font measure mainfont "m"]
7775 }
7777 proc redisplay {} {
7778 global canv
7779 global selectedline
7784 clear_display
7785 setcanvscroll
7787 drawvisible
7791 }
7792 }
7794 proc parsefont {f n} {
7795 global fontattr
7800 set s 10
7803 }
7809 "normal" -
7811 "roman" -
7813 }
7814 }
7815 }
7817 proc fontflags {f {isbold 0}} {
7818 global fontattr
7823 }
7825 proc fontname {f} {
7826 global fontattr
7830 lappend n "bold"
7831 }
7833 lappend n "italic"
7834 }
7836 }
7838 proc incrfont {inc} {
7839 global mainfont textfont ctext canv cflist showrefstop
7840 global stopped entries fontattr
7842 unmarkmatches
7846 set s 1
7847 }
7851 set mainfont [fontname mainfont]
7855 set s 1
7856 }
7860 set textfont [fontname textfont]
7861 setcoords
7862 settabs
7863 redisplay
7864 }
7866 proc clearsha1 {} {
7867 global sha1entry sha1string
7870 }
7871 }
7873 proc sha1change {n1 n2 op} {
7874 global sha1string currentid sha1but
7877 set state disabled
7878 } else {
7879 set state normal
7880 }
7884 } else {
7886 }
7887 }
7889 proc gotocommit {} {
7890 global sha1string tagids headids curview varcid
7898 } else {
7905 return
7906 }
7908 }
7909 }
7910 }
7913 return
7914 }
7917 } else {
7919 }
7921 }
7923 proc lineenter {x y id} {
7924 global hoverx hovery hoverid hovertimer
7925 global commitinfo canv
7931 if {[info exists hovertimer]} {
7933 }
7934 set hovertimer [after 500 linehover]
7936 }
7938 proc linemotion {x y id} {
7939 global hoverx hovery hoverid hovertimer
7944 if {[info exists hovertimer]} {
7946 }
7947 set hovertimer [after 500 linehover]
7948 }
7949 }
7951 proc lineleave {id} {
7952 global hoverid hovertimer canv
7956 if {[info exists hovertimer]} {
7958 unset hovertimer
7959 }
7960 unset hoverid
7961 }
7962 }
7964 proc linehover {} {
7965 global hoverx hovery hoverid hovertimer
7966 global canv linespc lthickness
7967 global commitinfo
7980 -fill \#ffff80 -outline black -width 1 -tags hover]
7983 -font mainfont]
7985 }
7987 proc clickisonarrow {id y} {
7988 global lthickness
7997 }
7998 }
7999 return {}
8000 }
8002 proc arrowjump {id n y} {
8003 global canv
8005 # 1 <-> 2, 3 <-> 4, etc...
8015 set yfrac 0
8016 }
8018 }
8020 proc lineclick {x y id isnew} {
8021 global ctext commitinfo children canv thickerline curview
8024 unmarkmatches
8025 unselectline
8026 normalline
8028 # draw this line thicker than normal
8036 }
8040 return
8041 }
8045 }
8046 # fill the details pane with info about this line
8048 clear_ctext
8049 settabs 0
8061 set i 0
8063 incr i
8073 }
8074 }
8076 init_flist {}
8077 }
8079 proc normalline {} {
8080 global thickerline
8081 if {[info exists thickerline]} {
8083 unset thickerline
8085 }
8086 }
8088 proc selbyid {id} {
8089 global curview
8092 }
8093 }
8095 proc mstime {} {
8096 global startmstime
8097 if {![info exists startmstime]} {
8098 set startmstime [clock clicks -milliseconds]
8099 }
8101 }
8103 proc rowmenu {x y id} {
8104 global rowctxmenu selectedline rowmenuid curview
8105 global nullid nullid2 fakerowmenu mainhead markedid
8107 stopfinding
8110 set state disabled
8111 } else {
8112 set state normal
8113 }
8118 } else {
8120 }
8125 } else {
8129 }
8130 } else {
8132 }
8137 }
8139 proc markhere {} {
8140 global rowmenuid markedid canv
8144 }
8146 proc gotomark {} {
8147 global markedid
8149 if {[info exists markedid]} {
8151 }
8152 }
8154 proc replace_by_kids {l r} {
8155 global curview children
8161 }
8163 }
8165 proc find_common_desc {} {
8166 global markedid rowmenuid curview children
8168 if {![info exists markedid]} return
8171 #set t1 [clock clicks -milliseconds]
8174 while 1 {
8180 break
8181 }
8184 } else {
8186 }
8187 }
8188 #set t2 [clock clicks -milliseconds]
8190 }
8192 proc compare_commits {} {
8193 global markedid rowmenuid curview children
8195 if {![info exists markedid]} return
8199 }
8201 proc getpatchid {id} {
8202 global patchids
8206 # trim off the initial "|"
8208 if {[catch {
8211 }]} {
8213 }
8214 }
8216 }
8218 proc do_cmp_commits {a b} {
8219 global ctext curview parents children patchids commitinfo
8222 clear_ctext
8223 init_flist {}
8225 set skipa 0
8226 set skipb 0
8229 set skipa 1
8230 } else {
8232 }
8235 set skipb 1
8236 } else {
8238 }
8244 [mc " - stopping\n"]
8245 break
8246 }
8249 [mc " - stopping\n"]
8250 break
8251 }
8256 } else {
8260 }
8261 set skipa 1
8262 set skipb 1
8263 } else {
8269 break
8270 }
8271 }
8276 [mc " has %s children - stopping\n" \
8278 break
8279 }
8281 }
8285 [mc " has %s children - stopping\n" \
8287 break
8288 }
8290 }
8291 }
8293 }
8295 proc diffvssel {dirn} {
8296 global rowmenuid selectedline
8302 } else {
8305 }
8308 }
8310 proc doseldiff {oldid newid} {
8311 global ctext
8312 global commitinfo
8315 clear_ctext
8316 init_flist [mc "Top"]
8331 }
8333 proc mkpatch {} {
8334 global rowmenuid currentid commitinfo patchtop patchnum
8336 if {![info exists currentid]} return
8341 set top .patch
8371 incr patchnum
8383 }
8385 proc mkpatchrev {} {
8386 global patchtop
8392 foreach e [list fromsha1 fromhead tosha1 tohead] \
8398 }
8399 }
8401 proc mkpatchgo {} {
8402 global patchtop nullid nullid2
8408 # trim off the initial "|"
8413 }
8415 unset patchtop
8416 }
8418 proc mkpatchcan {} {
8419 global patchtop
8422 unset patchtop
8423 }
8425 proc mktag {} {
8426 global rowmenuid mktagtop commitinfo
8428 set top .maketag
8457 }
8459 proc domktag {} {
8460 global mktagtop env tagids idtags
8466 return 0
8467 }
8470 return 0
8471 }
8472 if {[catch {
8474 } err]} {
8476 return 0
8477 }
8483 dispneartags 0
8484 run refill_reflist
8485 return 1
8486 }
8488 proc redrawtags {id} {
8489 global canv linehtag idpos currentid curview cmitlisted markedid
8490 global canvxmax iddrawn circleitem mainheadid circlecolors
8496 set ofill yellow
8497 } else {
8499 }
8509 setcanvscroll
8510 }
8513 }
8516 }
8517 }
8519 proc mktagcan {} {
8520 global mktagtop
8523 unset mktagtop
8524 }
8526 proc mktaggo {} {
8527 if {![domktag]} return
8528 mktagcan
8529 }
8531 proc writecommit {} {
8532 global rowmenuid wrcomtop commitinfo wrcomcmd
8534 set top .writecommit
8567 }
8569 proc wrcomgo {} {
8570 global wrcomtop
8577 }
8579 unset wrcomtop
8580 }
8582 proc wrcomcan {} {
8583 global wrcomtop
8586 unset wrcomtop
8587 }
8589 proc mkbranch {} {
8590 global rowmenuid mkbrtop
8592 set top .makebranch
8616 }
8618 proc mkbrgo {top} {
8619 global headids idheads
8623 set cmdargs {}
8624 set old_id {}
8627 return
8628 }
8630 if {![confirm_popup [mc \
8632 return
8633 }
8635 lappend cmdargs -f
8636 }
8639 nowbusy newbranch
8640 update
8641 if {[catch {
8643 } err]} {
8644 notbusy newbranch
8646 } else {
8647 notbusy newbranch
8653 } else {
8658 }
8659 dispneartags 0
8660 run refill_reflist
8661 }
8662 }
8664 proc exec_citool {tool_args {baseid {}}} {
8665 global commitinfo env
8667 set save_env [array get env GIT_AUTHOR_*]
8672 }
8675 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8681 }
8682 }
8686 array unset env GIT_AUTHOR_*
8688 }
8690 proc cherrypick {} {
8691 global rowmenuid curview
8692 global mainhead mainheadid
8694 set oldhead [exec git rev-parse HEAD]
8697 set ok [confirm_popup [mc "Commit %s is already\
8698 included in branch %s -- really re-apply it?" \
8701 }
8702 nowbusy cherrypick [mc "Cherry-picking"]
8703 update
8704 # Unfortunately git-cherry-pick writes stuff to stderr even when
8705 # no error occurs, and exec takes that as an indication of error...
8707 notbusy cherrypick
8708 if {[regexp -line \
8709 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8711 error_popup [mc "Cherry-pick failed because of local changes\
8712 to file '%s'.\nPlease commit, reset or stash\
8714 } elseif {[regexp -line \
8715 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8717 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8718 conflict.\nDo you wish to run git citool to\
8719 resolve it?"]]} {
8720 # Force citool to read MERGE_MSG
8721 file delete [file join [gitdir] "GITGUI_MSG"]
8723 }
8724 } else {
8726 }
8727 run updatecommits
8728 return
8729 }
8730 set newhead [exec git rev-parse HEAD]
8732 notbusy cherrypick
8733 error_popup [mc "No changes committed"]
8734 return
8735 }
8738 # XXX this isn't right if we have a path limit...
8743 }
8748 }
8749 notbusy cherrypick
8750 }
8752 proc resethead {} {
8753 global mainhead rowmenuid confirm_ok resettype
8755 set confirm_ok 0
8756 set w ".confirmreset"
8762 -justify center -aspect 1000
8767 set resettype mixed
8769 -text [mc "Soft: Leave working tree and index untouched"]
8772 -text [mc "Mixed: Leave working tree untouched, reset index"]
8775 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8786 if {[catch {set fd [open \
8789 } else {
8790 dohidelocalchanges
8792 nowbusy reset [mc "Resetting"]
8794 }
8795 }
8797 proc readresetstat {fd} {
8798 global mainhead mainheadid showlocalchanges rprogcoord
8803 adjustprogress
8804 }
8805 return 1
8806 }
8807 set rprogcoord 0
8808 adjustprogress
8809 notbusy reset
8812 }
8814 set newhead [exec git rev-parse HEAD]
8821 }
8823 doshowlocalchanges
8824 }
8825 return 0
8826 }
8828 # context menu for a head
8829 proc headmenu {x y id head} {
8830 global headmenuid headmenuhead headctxmenu mainhead
8832 stopfinding
8835 set state normal
8837 set state disabled
8838 }
8842 }
8844 proc cobranch {} {
8845 global headmenuid headmenuhead headids
8846 global showlocalchanges
8848 # check the tree is clean first??
8849 nowbusy checkout [mc "Checking out"]
8850 update
8851 dohidelocalchanges
8852 if {[catch {
8854 } err]} {
8855 notbusy checkout
8858 dodiffindex
8859 }
8860 } else {
8862 }
8863 }
8865 proc readcheckoutstat {fd newhead newheadid} {
8866 global mainhead mainheadid headids showlocalchanges progresscoords
8867 global viewmainheadid curview
8872 adjustprogress
8873 }
8874 return 1
8875 }
8876 set progresscoords {0 0}
8877 adjustprogress
8878 notbusy checkout
8881 }
8890 dodiffindex
8891 }
8892 }
8894 proc rmbranch {} {
8895 global headmenuid headmenuhead mainhead
8896 global idheads
8900 # this check shouldn't be needed any more...
8902 error_popup [mc "Cannot delete the currently checked-out branch"]
8903 return
8904 }
8907 # the stuff on this branch isn't on any other branch
8908 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8910 }
8911 nowbusy rmbranch
8912 update
8914 notbusy rmbranch
8916 return
8917 }
8921 notbusy rmbranch
8922 dispneartags 0
8923 run refill_reflist
8924 }
8926 # Display a list of tags and heads
8927 proc showrefs {} {
8928 global showrefstop bgcolor fgcolor selectbgcolor
8929 global bglist fglist reflistfilter reflist maincursor
8931 set top .showrefs
8935 refill_reflist
8936 return
8937 }
8945 -spacing1 1 -spacing3 1 -state disabled
8956 set reflistfilter "*"
8957 trace add variable reflistfilter write reflistfilter_change
8969 set reflist {}
8970 refill_reflist
8971 }
8973 proc sel_reflist {w x y} {
8974 global showrefstop reflist headids tagids otherrefids
8984 }
8986 }
8988 proc unsel_reflist {} {
8989 global showrefstop
8993 }
8995 proc reflistfilter_change {n1 n2 op} {
8996 global reflistfilter
8998 after cancel refill_reflist
8999 after 200 refill_reflist
9000 }
9002 proc refill_reflist {} {
9003 global reflist reflistfilter showrefstop headids tagids otherrefids
9004 global curview
9007 set refs {}
9008 foreach n [array names headids] {
9012 } else {
9014 }
9015 }
9016 }
9017 foreach n [array names tagids] {
9021 } else {
9023 }
9024 }
9025 }
9026 foreach n [array names otherrefids] {
9030 } else {
9032 }
9033 }
9034 }
9042 set i 0
9043 set j 0
9052 }
9053 } else {
9054 set cmp -1
9055 }
9056 } else {
9057 set cmp 1
9058 }
9060 -1 {
9062 incr i
9063 }
9064 0 {
9065 incr i
9066 incr j
9067 }
9068 1 {
9073 incr j
9074 }
9075 }
9076 }
9078 # delete last newline
9081 }
9083 # Stuff for finding nearby tags
9084 proc getallcommits {} {
9085 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9086 global idheads idtags idotherrefs allparents tagobjid
9088 if {![info exists allcommits]} {
9089 set nextarc 0
9090 set allcommits 0
9091 set seeds {}
9092 set allcwait 0
9093 set cachedarcs 0
9094 set allccache [file join [gitdir] "gitk.cache"]
9095 if {![catch {
9097 set allcwait 1
9099 }]} return
9100 }
9103 return
9104 }
9105 set cmd [list | git rev-list --parents]
9108 set ids "--all"
9109 } else {
9110 set refs [concat [array names idheads] [array names idtags] \
9111 [array names idotherrefs]]
9112 set ids {}
9113 set tagobjs {}
9114 foreach name [array names tagobjid] {
9116 }
9121 }
9122 }
9126 }
9127 }
9128 }
9132 incr allcommits
9133 nowbusy allcommits
9135 } else {
9136 dispneartags 0
9137 }
9138 }
9140 # Since most commits have 1 parent and 1 child, we group strings of
9141 # such commits into "arcs" joining branch/merge points (BMPs), which
9142 # are commits that either don't have 1 parent or don't have 1 child.
9143 #
9144 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9145 # arcout(id) - outgoing arcs for BMP
9146 # arcids(a) - list of IDs on arc including end but not start
9147 # arcstart(a) - BMP ID at start of arc
9148 # arcend(a) - BMP ID at end of arc
9149 # growing(a) - arc a is still growing
9150 # arctags(a) - IDs out of arcids (excluding end) that have tags
9151 # archeads(a) - IDs out of arcids (excluding end) that have heads
9152 # The start of an arc is at the descendent end, so "incoming" means
9153 # coming from descendents, and "outgoing" means going towards ancestors.
9155 proc getallclines {fd} {
9156 global allparents allchildren idtags idheads nextarc
9157 global arcnos arcids arctags arcout arcend arcstart archeads growing
9158 global seeds allcommits cachedarcs allcupdate
9160 set nid 0
9164 # seen it already
9165 continue
9166 }
9167 set cachedarcs 0
9174 } else {
9180 }
9183 }
9185 # seen parent already
9188 }
9192 }
9195 continue
9196 }
9197 }
9202 }
9204 set ao {}
9207 set a [incr nextarc]
9216 # seen it already, may need to make a new branch
9219 }
9223 }
9225 }
9227 }
9229 global cached_dheads cached_dtags cached_atags
9230 catch {unset cached_dheads}
9231 catch {unset cached_dtags}
9232 catch {unset cached_atags}
9233 }
9236 }
9237 set cacheok 1
9238 if {[catch {
9241 } err]} {
9242 # got an error reading the list of commits
9243 # if we were updating, try rereading the whole thing again
9245 incr allcommits -1
9247 return
9248 }
9249 error_popup "[mc "Error reading commit topology information;\
9250 branch and preceding/following tag information\
9252 set cacheok 0
9253 }
9254 if {[incr allcommits -1] == 0} {
9255 notbusy allcommits
9257 run savecache
9258 }
9259 }
9260 dispneartags 0
9261 return 0
9262 }
9264 proc recalcarc {a} {
9265 global arctags archeads arcids idtags idheads
9267 set at {}
9268 set ah {}
9272 }
9275 }
9276 }
9279 }
9281 proc splitarc {p} {
9282 global arcnos arcids nextarc arctags archeads idtags idheads
9283 global arcstart arcend arcout allparents growing
9288 return
9289 }
9294 return
9295 }
9296 set na [incr nextarc]
9299 } else {
9303 }
9313 }
9318 } else {
9321 }
9322 }
9324 # reconstruct tags and heads lists
9328 } else {
9331 }
9332 }
9334 # Update things for a new commit added that is a child of one
9335 # existing commit. Used when cherry-picking.
9336 proc addnewchild {id p} {
9337 global allparents allchildren idtags nextarc
9338 global arcnos arcids arctags arcout arcend arcstart archeads growing
9339 global seeds allcommits
9347 set a [incr nextarc]
9355 }
9358 }
9360 # This implements a cache for the topology information.
9361 # The cache saves, for each arc, the start and end of the arc,
9362 # the ids on the arc, and the outgoing arcs from the end.
9363 proc readcache {f} {
9364 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9365 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9366 global allcwait
9372 }
9373 if {[catch {
9375 # finish reading the cache and setting up arctags, etc.
9379 foreach id [array names idtags] {
9385 }
9386 }
9387 }
9388 foreach id [array names idheads] {
9394 }
9395 }
9396 }
9400 }
9401 }
9402 set allcwait 0
9403 } else {
9413 }
9417 } else {
9421 }
9422 }
9428 }
9431 }
9434 }
9436 }
9437 } err]} {
9439 return 0
9440 }
9442 getallcommits
9443 }
9445 }
9447 proc getcache {f} {
9448 global nextarc cachedarcs possible_seeds
9450 if {[catch {
9453 # make sure it's an integer
9456 set nextarc 0
9457 set possible_seeds {}
9459 } err]} {
9461 }
9462 return 0
9463 }
9465 proc dropcache {err} {
9466 global allcwait nextarc cachedarcs seeds
9469 foreach v {arcnos arcout arcids arcstart arcend growing \
9470 arctags archeads allparents allchildren} {
9473 }
9474 set allcwait 0
9475 set nextarc 0
9476 set cachedarcs 0
9477 set seeds {}
9478 getallcommits
9479 }
9481 proc writecache {f} {
9482 global cachearc cachedarcs allccache
9483 global arcstart arcend arcnos arcids arcout
9489 }
9490 if {[catch {
9494 } else {
9496 }
9497 }
9498 } err]} {
9502 return 0
9503 }
9508 return 0
9509 }
9510 return 1
9511 }
9513 proc savecache {} {
9514 global nextarc cachedarcs cachearc allccache
9517 set cachearc 0
9519 catch {
9523 }
9524 }
9526 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9527 # or 0 if neither is true.
9528 proc anc_or_desc {a b} {
9529 global arcout arcstart arcend arcnos cached_isanc
9532 # Both are on the same arc(s); either both are the same BMP,
9533 # or if one is not a BMP, the other is also not a BMP or is
9534 # the BMP at end of the arc (and it only has 1 incoming arc).
9535 # Or both can be BMPs with no incoming arcs.
9537 return 0
9538 }
9544 return 1
9545 } else {
9546 return -1
9547 }
9548 }
9554 } else {
9555 set aend {}
9556 }
9558 } else {
9560 }
9565 } else {
9566 set bend {}
9567 }
9569 } else {
9571 }
9573 return 1
9574 }
9576 return -1
9577 }
9580 return 1
9581 }
9582 }
9585 return -1
9586 }
9588 return 0
9589 }
9590 }
9598 continue
9599 }
9605 return 1
9609 return -1
9610 }
9616 }
9617 }
9618 }
9621 return 0
9622 }
9626 # and returns 0 if so and 1 if not.
9627 # If we subsequently discover a tag on such a growing tip, and that
9630 # isn't a good choice to display as a descendent tag of
9634 #
9635 proc is_certain {desc anc} {
9636 global arcnos arcout arcstart arcend growing problems
9638 set certain {}
9640 # tags on the same arc are certain
9642 return 1
9643 }
9648 }
9649 }
9652 } else {
9655 }
9657 return 1
9658 }
9661 set nnh 1
9662 set ngrowanc 0
9666 incr nnh -1
9667 }
9673 incr ngrowanc
9674 }
9675 } else {
9682 incr nnh -1
9683 }
9685 incr ngrowanc -1
9686 }
9696 incr nnh -1
9697 }
9699 incr ngrowanc -1
9700 }
9702 }
9703 }
9704 }
9705 }
9706 }
9707 }
9711 } else {
9714 incr nnh
9715 }
9716 }
9717 }
9718 }
9719 foreach x [array names growanc] {
9721 return 0
9722 }
9723 return 0
9724 }
9725 return 1
9726 }
9728 proc validate_arctags {a} {
9729 global arctags idtags
9731 set i -1
9734 incr i
9737 incr i -1
9738 }
9739 }
9741 }
9743 proc validate_archeads {a} {
9744 global archeads idheads
9746 set i -1
9749 incr i
9752 incr i -1
9753 }
9754 }
9756 }
9758 # Return the list of IDs that have tags that are descendents of id,
9759 # ignoring IDs that are descendents of IDs already reported.
9760 proc desctags {id} {
9761 global arcnos arcstart arcids arctags idtags allparents
9762 global growing cached_dtags
9765 return {}
9766 }
9767 set t1 [clock clicks -milliseconds]
9770 # part-way along an arc; check that arc first
9775 set tid {}
9780 }
9783 }
9784 }
9788 }
9789 }
9792 }
9797 set nc 1
9803 incr nc -1
9804 }
9805 # ignore tags on starting node
9809 set ta 1
9812 set ta 1
9813 }
9814 }
9821 }
9822 }
9831 }
9834 }
9836 incr nc -1
9837 }
9839 }
9840 }
9841 }
9846 incr nc
9847 }
9848 }
9849 }
9850 }
9851 set tags {}
9852 foreach id [array names tagloc] {
9857 }
9858 }
9859 }
9860 }
9861 set t2 [clock clicks -milliseconds]
9864 # remove tags that are descendents of other tags
9872 incr j -1
9873 incr i -1
9876 incr i -1
9877 break
9878 }
9879 }
9880 }
9882 if {[array names growing] ne {}} {
9883 # graph isn't finished, need to check if any tag could get
9884 # eclipsed by another tag coming later. Simply ignore any
9885 # tags that could later get eclipsed.
9886 set ctags {}
9890 }
9891 }
9894 } else {
9896 }
9897 } else {
9899 }
9900 set t3 [clock clicks -milliseconds]
9904 }
9906 }
9908 proc anctags {id} {
9909 global arcnos arcids arcout arcend arctags idtags allparents
9910 global growing cached_atags
9913 return {}
9914 }
9915 set t1 [clock clicks -milliseconds]
9918 # part-way along an arc; check that arc first
9927 }
9928 }
9929 }
9931 return {}
9932 }
9936 }
9937 }
9940 }
9945 set taglist {}
9946 set nc 1
9952 incr nc -1
9953 }
9954 # ignore tags on starting node
9958 set td 1
9961 set td 1
9962 }
9963 }
9969 }
9970 }
9982 }
9983 }
9986 }
9988 incr nc -1
9989 }
9991 }
9992 }
9993 }
9998 incr nc
9999 }
10000 }
10001 }
10002 }
10003 set t2 [clock clicks -milliseconds]
10005 set tags {}
10006 foreach id [array names tagloc] {
10011 }
10012 }
10013 }
10014 }
10016 # remove tags that are ancestors of other tags
10024 incr j -1
10025 incr i -1
10028 incr i -1
10029 break
10030 }
10031 }
10032 }
10034 if {[array names growing] ne {}} {
10035 # graph isn't finished, need to check if any tag could get
10036 # eclipsed by another tag coming later. Simply ignore any
10037 # tags that could later get eclipsed.
10038 set ctags {}
10042 }
10043 }
10046 } else {
10048 }
10049 } else {
10051 }
10052 set t3 [clock clicks -milliseconds]
10056 }
10058 }
10060 # Return the list of IDs that have heads that are descendents of id,
10061 # including id itself if it has a head.
10062 proc descheads {id} {
10063 global arcnos arcstart arcids archeads idheads cached_dheads
10064 global allparents
10067 return {}
10068 }
10069 set aret {}
10071 # part-way along an arc; check it first
10080 }
10081 }
10083 }
10087 set ret {}
10092 } else {
10095 }
10101 }
10102 }
10107 }
10108 }
10109 }
10110 }
10114 }
10116 proc addedtag {id} {
10117 global arcnos arcout cached_dtags cached_atags
10122 }
10123 catch {unset cached_dtags}
10124 catch {unset cached_atags}
10125 }
10127 proc addedhead {hid head} {
10128 global arcnos arcout cached_dheads
10133 }
10134 catch {unset cached_dheads}
10135 }
10137 proc removedhead {hid head} {
10138 global cached_dheads
10140 catch {unset cached_dheads}
10141 }
10143 proc movedhead {hid head} {
10144 global arcnos arcout cached_dheads
10149 }
10150 catch {unset cached_dheads}
10151 }
10153 proc changedrefs {} {
10154 global cached_dheads cached_dtags cached_atags
10155 global arctags archeads arcnos arcout idheads idtags
10157 foreach id [concat [array names idheads] [array names idtags]] {
10163 }
10164 }
10165 }
10166 catch {unset cached_dtags}
10167 catch {unset cached_atags}
10168 catch {unset cached_dheads}
10169 }
10171 proc rereadrefs {} {
10172 global idtags idheads idotherrefs mainheadid
10174 set refids [concat [array names idtags] \
10175 [array names idheads] [array names idotherrefs]]
10179 }
10180 }
10182 readrefs
10183 changedrefs
10185 [array names idheads] [array names idotherrefs]]]
10190 }
10191 }
10195 }
10196 run refill_reflist
10197 }
10199 proc listrefs {id} {
10200 global idtags idheads idotherrefs
10202 set x {}
10205 }
10206 set y {}
10209 }
10210 set z {}
10213 }
10215 }
10217 proc showtag {tag isnew} {
10218 global ctext tagcontents tagids linknum tagobjid
10222 }
10224 clear_ctext
10225 settabs 0
10226 set linknum 0
10228 catch {
10230 }
10231 }
10234 } else {
10236 }
10239 init_flist {}
10240 }
10242 proc doquit {} {
10243 global stopped
10244 global gitktmpdir
10246 set stopped 100
10247 savestuff .
10248 destroy .
10250 if {[info exists gitktmpdir]} {
10252 }
10253 }
10255 proc mkfontdisp {font top which} {
10264 }
10266 proc choosefont {font which} {
10267 global fontparam fontlist fonttop fontattr
10268 global prefstop
10276 set top .gitkfont
10279 font create sample
10286 set fontlist [lsort [font families]]
10297 -textvariable fontparam(size) \
10298 -validatecommand {string is integer -strict %s}
10300 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10301 -variable fontparam(weight) -onvalue bold -offvalue normal
10303 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10304 -variable fontparam(slant) -onvalue italic -offvalue roman
10308 -background white
10310 -fill black -tags text
10322 trace add variable fontparam write chg_fontparam
10323 } else {
10326 }
10331 }
10332 }
10334 proc centertext {w} {
10336 }
10338 proc fontok {} {
10339 global fontparam fontpref prefstop
10345 }
10348 }
10352 fontcan
10353 }
10355 proc fontcan {} {
10356 global fonttop fontparam
10358 if {[info exists fonttop]} {
10360 catch {font delete sample}
10361 unset fonttop
10362 unset fontparam
10363 }
10364 }
10366 proc selfontfam {} {
10367 global fonttop fontparam
10372 }
10373 }
10375 proc chg_fontparam {v sub op} {
10376 global fontparam
10379 }
10381 proc doprefs {} {
10382 global maxwidth maxgraphpct
10383 global oldprefs prefstop showneartags showlocalchanges
10384 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10385 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10387 set top .gitkprefs
10391 return
10392 }
10393 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10394 limitdiffs tabstop perfile_attrs} {
10396 }
10404 -font optionfont
10408 -font optionfont
10412 -font optionfont -variable showlocalchanges
10415 -font optionfont -variable autoselect
10424 -font optionfont -variable showneartags
10427 -font optionfont -variable limitdiffs
10430 -font optionfont -variable perfile_attrs
10436 -padx 10
10438 -command choose_extdiff
10465 [mc "diff hunk header"] \
10471 [mc "marked line background"] \
10495 }
10497 proc choose_extdiff {} {
10498 global extdifftool
10500 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10503 }
10504 }
10506 proc choosecolor {v vi w x cmd} {
10515 }
10517 proc setselbg {c} {
10518 global bglist cflist
10521 }
10525 }
10527 proc setbg {c} {
10528 global bglist
10532 }
10533 }
10535 proc setfg {c} {
10536 global fglist canv
10540 }
10544 }
10546 proc prefscan {} {
10547 global oldprefs prefstop
10549 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10550 limitdiffs tabstop perfile_attrs} {
10553 }
10555 unset prefstop
10556 fontcan
10557 }
10559 proc prefsok {} {
10560 global maxwidth maxgraphpct
10561 global oldprefs prefstop showneartags showlocalchanges
10562 global fontpref mainfont textfont uifont
10563 global limitdiffs treediffs perfile_attrs
10566 unset prefstop
10567 fontcan
10568 set fontchanged 0
10572 eval font configure mainfont [fontflags mainfont]
10573 eval font configure mainfontbold [fontflags mainfont 1]
10574 setcoords
10575 set fontchanged 1
10576 }
10580 eval font configure textfont [fontflags textfont]
10581 eval font configure textfontbold [fontflags textfont 1]
10582 }
10586 eval font configure uifont [fontflags uifont]
10587 }
10588 settabs
10591 doshowlocalchanges
10592 } else {
10593 dohidelocalchanges
10594 }
10595 }
10598 # treediffs elements are limited by path;
10599 # won't have encodings cached if perfile_attrs was just turned on
10600 catch {unset treediffs}
10601 }
10604 redisplay
10607 reselectline
10608 }
10609 }
10611 proc formatdate {d} {
10612 global datetimeformat
10615 }
10617 }
10619 # This list of encoding names and aliases is distilled from
10620 # http://www.iana.org/assignments/character-sets.
10621 # Not all of them are supported by Tcl.
10622 set encoding_aliases {
10623 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10624 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10625 { ISO-10646-UTF-1 csISO10646UTF1 }
10626 { ISO_646.basic:1983 ref csISO646basic1983 }
10627 { INVARIANT csINVARIANT }
10628 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10629 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10630 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10631 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10632 { NATS-DANO iso-ir-9-1 csNATSDANO }
10633 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10634 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10635 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10636 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10637 { ISO-2022-KR csISO2022KR }
10638 { EUC-KR csEUCKR }
10639 { ISO-2022-JP csISO2022JP }
10640 { ISO-2022-JP-2 csISO2022JP2 }
10641 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10642 csISO13JISC6220jp }
10643 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10644 { IT iso-ir-15 ISO646-IT csISO15Italian }
10645 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10646 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10647 { greek7-old iso-ir-18 csISO18Greek7Old }
10648 { latin-greek iso-ir-19 csISO19LatinGreek }
10649 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10650 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10651 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10652 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10653 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10654 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10655 { INIS iso-ir-49 csISO49INIS }
10656 { INIS-8 iso-ir-50 csISO50INIS8 }
10657 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10658 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10659 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10660 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10661 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10662 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10663 csISO60Norwegian1 }
10664 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10665 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10666 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10667 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10668 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10669 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10670 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10671 { greek7 iso-ir-88 csISO88Greek7 }
10672 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10673 { iso-ir-90 csISO90 }
10674 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10675 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10676 csISO92JISC62991984b }
10677 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10678 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10679 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10680 csISO95JIS62291984handadd }
10681 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10682 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10683 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10684 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10685 CP819 csISOLatin1 }
10686 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10687 { T.61-7bit iso-ir-102 csISO102T617bit }
10688 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10689 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10690 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10691 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10692 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10693 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10694 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10695 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10696 arabic csISOLatinArabic }
10697 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10698 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10699 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10700 greek greek8 csISOLatinGreek }
10701 { T.101-G2 iso-ir-128 csISO128T101G2 }
10702 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10703 csISOLatinHebrew }
10704 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10705 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10706 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10707 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10708 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10709 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10710 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10711 csISOLatinCyrillic }
10712 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10713 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10714 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10715 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10716 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10717 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10718 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10719 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10720 { ISO_10367-box iso-ir-155 csISO10367Box }
10721 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10722 { latin-lap lap iso-ir-158 csISO158Lap }
10723 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10724 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10725 { us-dk csUSDK }
10726 { dk-us csDKUS }
10727 { JIS_X0201 X0201 csHalfWidthKatakana }
10728 { KSC5636 ISO646-KR csKSC5636 }
10729 { ISO-10646-UCS-2 csUnicode }
10730 { ISO-10646-UCS-4 csUCS4 }
10731 { DEC-MCS dec csDECMCS }
10732 { hp-roman8 roman8 r8 csHPRoman8 }
10733 { macintosh mac csMacintosh }
10734 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10735 csIBM037 }
10736 { IBM038 EBCDIC-INT cp038 csIBM038 }
10737 { IBM273 CP273 csIBM273 }
10738 { IBM274 EBCDIC-BE CP274 csIBM274 }
10739 { IBM275 EBCDIC-BR cp275 csIBM275 }
10740 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10741 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10742 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10743 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10744 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10745 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10746 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10747 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10748 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10749 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10750 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10751 { IBM437 cp437 437 csPC8CodePage437 }
10752 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10753 { IBM775 cp775 csPC775Baltic }
10754 { IBM850 cp850 850 csPC850Multilingual }
10755 { IBM851 cp851 851 csIBM851 }
10756 { IBM852 cp852 852 csPCp852 }
10757 { IBM855 cp855 855 csIBM855 }
10758 { IBM857 cp857 857 csIBM857 }
10759 { IBM860 cp860 860 csIBM860 }
10760 { IBM861 cp861 861 cp-is csIBM861 }
10761 { IBM862 cp862 862 csPC862LatinHebrew }
10762 { IBM863 cp863 863 csIBM863 }
10763 { IBM864 cp864 csIBM864 }
10764 { IBM865 cp865 865 csIBM865 }
10765 { IBM866 cp866 866 csIBM866 }
10766 { IBM868 CP868 cp-ar csIBM868 }
10767 { IBM869 cp869 869 cp-gr csIBM869 }
10768 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10769 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10770 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10771 { IBM891 cp891 csIBM891 }
10772 { IBM903 cp903 csIBM903 }
10773 { IBM904 cp904 904 csIBBM904 }
10774 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10775 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10776 { IBM1026 CP1026 csIBM1026 }
10777 { EBCDIC-AT-DE csIBMEBCDICATDE }
10778 { EBCDIC-AT-DE-A csEBCDICATDEA }
10779 { EBCDIC-CA-FR csEBCDICCAFR }
10780 { EBCDIC-DK-NO csEBCDICDKNO }
10781 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10782 { EBCDIC-FI-SE csEBCDICFISE }
10783 { EBCDIC-FI-SE-A csEBCDICFISEA }
10784 { EBCDIC-FR csEBCDICFR }
10785 { EBCDIC-IT csEBCDICIT }
10786 { EBCDIC-PT csEBCDICPT }
10787 { EBCDIC-ES csEBCDICES }
10788 { EBCDIC-ES-A csEBCDICESA }
10789 { EBCDIC-ES-S csEBCDICESS }
10790 { EBCDIC-UK csEBCDICUK }
10791 { EBCDIC-US csEBCDICUS }
10792 { UNKNOWN-8BIT csUnknown8BiT }
10793 { MNEMONIC csMnemonic }
10794 { MNEM csMnem }
10795 { VISCII csVISCII }
10796 { VIQR csVIQR }
10797 { KOI8-R csKOI8R }
10798 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10799 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10800 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10801 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10802 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10803 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10804 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10805 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10806 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10807 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10808 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10809 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10810 { IBM1047 IBM-1047 }
10811 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10812 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10813 { UNICODE-1-1 csUnicode11 }
10814 { CESU-8 csCESU-8 }
10815 { BOCU-1 csBOCU-1 }
10816 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10817 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10818 l8 }
10819 { ISO-8859-15 ISO_8859-15 Latin-9 }
10820 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10821 { GBK CP936 MS936 windows-936 }
10822 { JIS_Encoding csJISEncoding }
10823 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10824 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10825 EUC-JP }
10826 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10827 { ISO-10646-UCS-Basic csUnicodeASCII }
10828 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10829 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10830 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10831 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10832 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10833 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10834 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10835 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10836 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10837 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10838 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10839 { Ventura-US csVenturaUS }
10840 { Ventura-International csVenturaInternational }
10841 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10842 { PC8-Turkish csPC8Turkish }
10843 { IBM-Symbols csIBMSymbols }
10844 { IBM-Thai csIBMThai }
10845 { HP-Legal csHPLegal }
10846 { HP-Pi-font csHPPiFont }
10847 { HP-Math8 csHPMath8 }
10848 { Adobe-Symbol-Encoding csHPPSMath }
10849 { HP-DeskTop csHPDesktop }
10850 { Ventura-Math csVenturaMath }
10851 { Microsoft-Publishing csMicrosoftPublishing }
10852 { Windows-31J csWindows31J }
10853 { GB2312 csGB2312 }
10854 { Big5 csBig5 }
10855 }
10857 proc tcl_encoding {enc} {
10858 global encoding_aliases tcl_encoding_cache
10861 }
10862 set names [encoding names]
10867 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10870 }
10871 }
10876 # look through the aliases for one that tcl knows about
10882 }
10883 }
10885 }
10886 break
10887 }
10888 }
10889 set tclenc {}
10892 }
10895 }
10897 proc gitattr {path attr default} {
10898 global path_attr_cache
10901 } else {
10902 set r "unspecified"
10905 }
10907 }
10910 }
10912 }
10914 proc cache_gitattr {attr pathlist} {
10915 global path_attr_cache
10916 set newlist {}
10920 }
10921 }
10922 set lim 1000
10923 if {[tk windowingsystem] == "win32"} {
10924 # windows has a 32k limit on the arguments to a command...
10925 set lim 30
10926 }
10935 }
10937 }
10938 }
10939 }
10940 }
10941 }
10943 proc get_path_encoding {path} {
10944 global gui_encoding perfile_attrs
10950 }
10951 }
10953 }
10955 # First check that Tcl/Tk is recent enough
10956 if {[catch {package require Tk 8.4} err]} {
10957 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10958 Gitk requires at least Tcl/Tk 8.4."]
10959 exit 1
10960 }
10962 # defaults...
10963 set wrcomcmd "git diff-tree --stdin -p --pretty"
10965 set gitencoding {}
10966 catch {
10967 set gitencoding [exec git config --get i18n.commitencoding]
10968 }
10969 catch {
10970 set gitencoding [exec git config --get i18n.logoutputencoding]
10971 }
10973 set gitencoding "utf-8"
10974 }
10978 }
10980 set gui_encoding [encoding system]
10981 catch {
10982 set enc [exec git config --get gui.encoding]
10987 } else {
10989 }
10990 }
10991 }
10993 if {[tk windowingsystem] eq "aqua"} {
10994 set mainfont {{Lucida Grande} 9}
10995 set textfont {Monaco 9}
10996 set uifont {{Lucida Grande} 9 bold}
10997 } else {
10998 set mainfont {Helvetica 9}
10999 set textfont {Courier 9}
11000 set uifont {Helvetica 9 bold}
11001 }
11002 set tabstop 8
11003 set findmergefiles 0
11004 set maxgraphpct 50
11005 set maxwidth 16
11006 set revlistorder 0
11007 set fastdate 0
11008 set uparrowlen 5
11009 set downarrowlen 5
11010 set mingaplen 100
11011 set cmitmode "patch"
11012 set wrapcomment "none"
11013 set showneartags 1
11014 set maxrefs 20
11015 set maxlinelen 200
11016 set showlocalchanges 1
11017 set limitdiffs 1
11018 set datetimeformat "%Y-%m-%d %H:%M:%S"
11019 set autoselect 1
11020 set perfile_attrs 0
11022 if {[tk windowingsystem] eq "aqua"} {
11023 set extdifftool "opendiff"
11024 } else {
11025 set extdifftool "meld"
11026 }
11028 set colors {green red blue magenta darkgrey brown orange}
11029 set bgcolor white
11030 set fgcolor black
11031 set diffcolors {red "#00a000" blue}
11032 set diffcontext 3
11033 set ignorespace 0
11034 set selectbgcolor gray85
11035 set markbgcolor "#e0e0ff"
11037 set circlecolors {white blue gray blue blue}
11039 # button for popping up context menus
11040 if {[tk windowingsystem] eq "aqua"} {
11041 set ctxbut <Button-2>
11042 } else {
11043 set ctxbut <Button-3>
11044 }
11046 ## For msgcat loading, first locate the installation location.
11047 if { [info exists ::env(GITK_MSGSDIR)] } {
11048 ## Msgsdir was manually set in the environment.
11049 set gitk_msgsdir $::env(GITK_MSGSDIR)
11050 } else {
11051 ## Let's guess the prefix from argv0.
11055 unset gitk_prefix
11056 }
11058 ## Internationalization (i18n) through msgcat and gettext. See
11059 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11060 package require msgcat
11061 namespace import ::msgcat::mc
11062 ## And eventually load the actual message catalog
11065 catch {source ~/.gitk}
11067 font create optionfont -family sans-serif -size -12
11070 eval font create mainfont [fontflags mainfont]
11071 eval font create mainfontbold [fontflags mainfont 1]
11074 eval font create textfont [fontflags textfont]
11075 eval font create textfontbold [fontflags textfont 1]
11078 eval font create uifont [fontflags uifont]
11080 setoptions
11082 # check that we can find a .git directory somewhere...
11083 if {[catch {set gitdir [gitdir]}]} {
11084 show_error {} . [mc "Cannot find a git repository here."]
11085 exit 1
11086 }
11089 exit 1
11090 }
11092 set selecthead {}
11093 set selectheadid {}
11095 set revtreeargs {}
11096 set cmdline_files {}
11097 set i 0
11098 set revtreeargscmd {}
11101 "" { }
11102 "--" {
11104 break
11105 }
11106 "--select-commit=*" {
11108 }
11109 "--argscmd=*" {
11111 }
11112 default {
11114 }
11115 }
11116 incr i
11117 }
11120 set selecthead {}
11121 }
11124 # no -- on command line, but some arguments (other than --argscmd)
11125 if {[catch {
11130 # Unfortunately git rev-parse doesn't produce an error when
11131 # something is both a revision and a filename. To be consistent
11132 # with git log and git rev-list, check revtreeargs for filenames.
11135 show_error {} . [mc "Ambiguous argument '%s': both revision\
11137 exit 1
11138 }
11139 }
11140 } err]} {
11142 # so look for "fatal:".
11146 }
11148 exit 1
11149 }
11150 }
11152 set nullid "0000000000000000000000000000000000000000"
11153 set nullid2 "0000000000000000000000000000000000000001"
11154 set nullfile "/dev/null"
11157 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11159 set runq {}
11160 set history {}
11161 set historyindex 0
11162 set fh_serial 0
11163 set nhl_names {}
11164 set highlight_paths {}
11165 set findpattern {}
11166 set searchdirn -forwards
11167 set boldids {}
11168 set boldnameids {}
11169 set diffelide {0 0}
11170 set markingmatches 0
11171 set linkentercount 0
11172 set need_redisplay 0
11173 set nrows_drawn 0
11174 set firsttabstop 0
11176 set nextviewnum 1
11177 set curview 0
11178 set selectedview 0
11179 set selectedhlview [mc "None"]
11180 set highlight_related [mc "None"]
11181 set highlight_files {}
11182 set viewfiles(0) {}
11183 set viewperm(0) 0
11184 set viewargs(0) {}
11185 set viewargscmd(0) {}
11187 set selectedline {}
11188 set numcommits 0
11189 set loginstance 0
11190 set cmdlineok 0
11191 set stopped 0
11192 set stuffsaved 0
11193 set patchnum 0
11194 set lserial 0
11195 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11196 setcoords
11197 makewindow
11198 catch {
11199 image create photo gitlogo -width 16 -height 16
11201 image create photo gitlogominus -width 4 -height 2
11202 gitlogominus put #C00000 -to 0 0 4 2
11203 gitlogo copy gitlogominus -to 1 5
11204 gitlogo copy gitlogominus -to 6 5
11205 gitlogo copy gitlogominus -to 11 5
11206 image delete gitlogominus
11208 image create photo gitlogoplus -width 4 -height 4
11209 gitlogoplus put #008000 -to 1 0 3 4
11210 gitlogoplus put #008000 -to 0 1 4 3
11211 gitlogo copy gitlogoplus -to 1 9
11212 gitlogo copy gitlogoplus -to 6 9
11213 gitlogo copy gitlogoplus -to 11 9
11214 image delete gitlogoplus
11216 image create photo gitlogo32 -width 32 -height 32
11217 gitlogo32 copy gitlogo -zoom 2 2
11219 wm iconphoto . -default gitlogo gitlogo32
11220 }
11221 # wait for the window to become visible
11222 tkwait visibility .
11224 update
11225 readrefs
11228 # create a view for the files/dirs specified on the command line
11229 set curview 1
11230 set selectedview 1
11231 set nextviewnum 2
11232 set viewname(1) [mc "Command line"]
11236 set viewperm(1) 0
11237 set vdatemode(1) 0
11238 addviewmenu 1
11239 .bar.view entryconf [mca "Edit view..."] -state normal
11240 .bar.view entryconf [mca "Delete view"] -state normal
11241 }
11243 if {[info exists permviews]} {
11246 incr nextviewnum
11253 }
11254 }
11256 if {[tk windowingsystem] eq "win32"} {
11257 focus -force .
11258 }
11260 getcommits {}