| blob | 4526193b3d42a5b7874e0e3aa7014800b6896a48 |
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 package require Tk
12 proc gitdir {} {
13 global env
18 }
19 }
21 # A simple scheduler for compute-intensive stuff.
22 # The aim is to make sure that event handlers for GUI actions can
23 # run at least every 50-100 ms. Unfortunately fileevent handlers are
24 # run before X event handlers, so reading from a fast source can
25 # make the GUI completely unresponsive.
26 proc run args {
27 global isonrunq runq currunq
32 after idle dorunq
33 }
36 }
40 }
43 global runq currunq
47 after idle dorunq
48 }
50 }
53 global runq
59 incr i
60 }
61 }
62 }
64 proc dorunq {} {
65 global isonrunq runq currunq
75 unset currunq
80 # script returns 1 if it wants to be readded
81 # file readers return 2 if they could do more straight away
85 }
88 }
91 }
93 after idle dorunq
94 }
95 }
98 global commfd leftover loginstance
104 }
107 global nr_unmerged
109 # find the list of unmerged files
116 exit 1
117 }
123 incr nr_unmerged
126 }
127 }
130 }
132 proc parseviewargs {n arglist} {
133 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
137 set glflags {}
138 set diffargs {}
139 set nextisval 0
140 set revargs {}
142 set allknown 1
143 set filtered 0
144 set i -1
146 incr i
149 set nextisval 0
150 continue
151 }
153 "-d" -
154 "--date-order" {
156 # remove from origargs in case we hit an unknown option
158 incr i -1
159 }
160 "-[puabwcrRBMC]" -
161 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
162 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
163 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
164 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
165 "--ignore-space-change" - "-U*" - "--unified=*" {
166 # These request or affect diff output, which we don't want.
167 # Some could be used to set our defaults for diff display.
168 lappend diffargs $arg
169 }
177 # These cause our parsing of git log's output to fail, or else
178 # they're options we want to set ourselves, so ignore them.
179 }
184 # These are harmless, and some are even useful
185 lappend glflags $arg
186 }
193 # These mean that we get a subset of the commits
195 lappend glflags $arg
196 }
198 # This appears to be the only one that has a value as a
199 # separate word following it
202 lappend glflags $arg
203 }
205 lappend revargs $arg
206 }
209 # git rev-parse doesn't understand --merge
210 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
211 }
213 # Other flag arguments including -<n>
217 # a flag argument that we don't recognize;
218 # that means we can't optimize
220 }
221 lappend glflags $arg
222 }
223 default {
224 # Non-flag arguments specify commits or ranges of commits
226 lappend revargs --gitk-symmetric-diff-marker
227 }
228 lappend revargs $arg
229 }
230 }
231 }
238 }
241 global vposids vnegids
244 set revs HEAD
245 }
247 # we get stdout followed by stderr in $err
248 # for an unknown rev, git rev-parse echoes it and then errors out
261 }
264 }
265 break
266 }
267 lappend badrev $line
268 }
269 }
272 }
282 lappend ret $id
285 }
286 }
290 lappend ret $id
293 }
294 lappend pos $id
295 }
296 incr sdm -1
297 }
301 }
303 # Start off a git log process and arrange to read its output
305 global startmsecs commitidx viewcomplete curview
306 global tclencoding
307 global viewargs viewargscmd viewfiles vfilelimit
308 global showlocalchanges
309 global viewactive viewinstances vmergeonly
310 global mainheadid viewmainheadid viewmainheadid_orig
311 global vcanopt vflags vrevs vorigargs
315 # these are set this way for the error exits
318 varcinit $view
327 }
329 }
336 global nr_unmerged
343 }
345 }
346 }
353 }
357 }
365 }
371 get_viewmainhead $view
372 }
375 }
379 }
385 }
388 global commfd leftover
391 catch {
398 }
399 }
401 nukefile $fd
404 }
406 proc stop_backends {} {
407 global commfd
410 stop_instance $inst
411 }
412 }
415 global viewinstances
418 stop_instance $inst
419 }
421 }
424 global pending_select mainheadid selectheadid
432 }
433 }
436 global canv curview need_redisplay viewactive
438 initlayout
440 reset_pending_select $selid
445 }
446 }
448 proc updatecommits {} {
449 global curview vcanopt vorigargs vfilelimit viewinstances
450 global viewactive viewcomplete tclencoding
451 global startmsecs showneartags showlocalchanges
452 global mainheadid viewmainheadid viewmainheadid_orig pending_select
453 global isworktree
454 global varcid vposids vnegids vflags vrevs
457 rereadrefs
461 dohidelocalchanges
462 }
466 get_viewmainhead $view
467 }
468 }
470 doshowlocalchanges
471 }
477 return
478 }
479 # note: getting the delta when negative refs change is hard,
480 # and could require multiple git log invocations, so in that
481 # case we ask git log for all the commits (not just the delta)
485 # take out positive refs that we asked for before or
486 # that we have already seen
491 lappend newrevs $rev
492 incr npos
493 }
495 lappend $newrevs $rev
496 }
497 }
501 }
505 }
511 return
512 }
515 }
521 }
525 reset_pending_select {}
528 getallcommits
529 }
530 }
532 proc reloadcommits {} {
533 global curview viewcomplete selectedline currentid thickerline
534 global showneartags treediffs commitinterest cached_commitrow
535 global targetid
540 }
543 stop_rev_list $curview
544 }
545 resetvarcs $curview
550 readrefs
551 changedrefs
553 getallcommits
554 }
555 clear_display
559 setcanvscroll
560 getcommits $selid
562 }
564 # This makes a string representation of a positive integer which
565 # sorts as a string in numerical order
573 }
575 }
577 # Procedures used in reordering commits from git log (without
578 # --topo-order) into the order for display.
581 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
582 global vtokmod varcmod vrowmod varcix vlastins
596 }
599 global varcid varccommits parents children vseedcount ordertok
605 }
606 # some commits might have children but haven't been seen yet
609 }
612 }
615 }
617 }
619 # returns a list of the commits with no children
621 global vdownptr vleftptr varcstart
628 }
630 }
633 global varcid varctok parents children vdatemode
634 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
635 global commitdata commitinfo vseedcount varccommits vlastins
642 }
646 }
649 }
655 }
664 }
665 }
670 }
677 }
681 }
688 }
694 }
703 }
706 global varcid varcstart varccommits varctok vtokmod
707 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
715 # "%" sorts before "0"...
725 }
735 }
737 modify_arc $v $oa
738 }
739 }
742 global parents children varctok varcstart varccommits
743 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
752 lappend todo $a
757 }
758 }
759 }
760 incr ntot
767 }
768 }
770 }
777 }
783 }
792 }
793 }
798 }
800 continue
801 }
808 }
809 }
814 modify_arc $v $ka
815 }
817 modify_arc $v $b
818 }
825 }
828 }
831 }
840 }
845 }
852 }
856 }
858 }
859 }
864 }
865 }
867 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
868 }
870 # Fix up the graph after we have found out that in view $v,
871 # $p (a commit that we have already seen) is actually the parent
872 # of the last commit in arc $a.
874 global varcid varcstart varctok vupptr
878 splitvarc $p $v
880 }
881 # seeds always need to be renumbered
885 renumbervarc $pa $v
886 }
887 }
890 global cmitlisted children parents varcid varctok vtokmod
891 global varccommits ordertok commitidx numcommits curview
892 global targetid targetrow
894 readcommit $id
902 modify_arc $v $a
903 }
909 }
910 fix_reversal $p $a $v
914 setcanvscroll
917 incr targetrow
918 }
919 }
920 }
921 }
924 global varcid varccommits parents children cmitlisted
925 global commitidx varctok vtokmod targetid targetrow curview numcommits
932 return
933 }
940 # note we deliberately don't update varcstart($v) even if $i == 0
942 modify_arc $v $a $i
945 incr targetrow
946 }
947 }
948 setcanvscroll
949 drawvisible
950 }
953 global varcid varccommits parents children commitidx
954 global varctok vtokmod cmitlisted currentid selectedline
955 global targetid curview numcommits
960 return
961 }
967 return
968 }
978 }
979 modify_arc $v $a $i
981 unset currentid
983 }
986 }
987 setcanvscroll
988 drawvisible
989 }
992 global children nullid nullid2
997 }
998 }
1000 }
1003 global children nullid nullid2
1010 }
1011 }
1013 }
1016 global varctok varcid
1020 }
1022 # This assumes that if lim is not given, the caller has checked that
1023 # arc a's token is less than $vtokmod($v)
1025 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1033 }
1034 }
1041 }
1046 }
1048 }
1050 undolayout $r
1051 }
1052 }
1055 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1056 global varcid vrownum varcorder varcix varccommits
1057 global vupptr vdownptr vleftptr varctok
1058 global displayorder parentlist curview cached_commitrow
1065 }
1067 }
1071 # go up the tree until we find something that has a row number,
1072 # or we get to a seed
1074 }
1089 }
1091 }
1095 # go down if possible
1098 # if not, go left, or go up until we can go left
1103 }
1105 }
1107 incr arcn
1112 }
1118 }
1119 }
1121 # Test whether view $v contains commit $id
1123 global varcid
1126 }
1128 # Return the row number for commit $id in the current view
1130 global varcid varccommits varcrow curview cached_commitrow
1131 global varctok vtokmod
1137 }
1140 update_arcrows $v
1141 }
1144 }
1149 }
1153 }
1155 # Returns 1 if a is on an earlier row than b, otherwise 0
1157 global varcid varctok curview
1163 }
1167 }
1169 }
1174 }
1186 }
1187 }
1189 }
1191 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1193 global vrownum curview commitidx displayorder parentlist
1194 global varccommits varcorder parents vrowmod varcrow
1195 global d_valid_start d_valid_end
1198 update_arcrows $curview
1199 }
1215 }
1217 lappend displayorder $id
1219 }
1223 lset displayorder $i $id
1225 incr i
1226 }
1227 }
1228 incr r $al
1229 }
1230 }
1233 global displayorder
1239 }
1241 }
1244 global varctok varccommits varcid parents children
1245 global cmitlisted commitidx vtokmod
1254 # add p as a new commit
1255 incr missing_parents
1263 }
1266 modify_arc $v $b
1267 }
1271 }
1272 }
1276 }
1277 }
1278 }
1280 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1281 # Assumes we already have an arc for $rwid.
1283 global children parents varcid varctok vtokmod varccommits
1286 # make $rwid be $ch's parent in place of $id
1290 }
1292 # add $ch to $rwid's children and sort the list if necessary
1296 }
1297 # fix the graph after joining $id to $rwid
1299 fix_reversal $rwid $a $v
1300 # parentlist is wrong for the last element of arc $a
1301 # even if displayorder is right, hence the 3rd arg here
1303 }
1304 }
1306 # Mechanism for registering a command to be executed when we come
1307 # across a particular commit. To handle the case when only the
1308 # prefix of the commit is known, the commitinterest array is now
1309 # indexed by the first 4 characters of the ID. Each element is a
1310 # list of id, cmd pairs.
1312 global commitinterest
1315 }
1318 global commitinterest
1327 lappend newlist $i $script
1328 }
1329 }
1334 }
1335 }
1337 }
1340 global cmitlisted leftover
1341 global commitidx commitdata vdatemode
1342 global parents children curview hlview
1343 global idpending ordertok
1344 global varccommits varcid varctok vtokmod vfilelimit
1347 # git log doesn't terminate the last commit with a null...
1350 }
1354 }
1355 global commfd viewcomplete viewactive viewname
1356 global viewinstances
1361 }
1362 # set it blocking so we wait for the process to terminate
1368 }
1371 bad arguments to git log."
1373 append err \
1374 " (Note: arguments to gitk are passed to git log\
1375 to allow selection of commits to be displayed.)"
1376 }
1379 }
1380 error_popup $err
1381 }
1384 # Check if we have seen any ids listed as parents that haven't
1385 # appeared in the list
1386 closevarcs $view
1387 notbusy $view
1388 }
1390 run chewcommits
1391 }
1393 }
1401 break
1402 }
1409 }
1422 }
1424 }
1429 break
1430 }
1431 }
1432 }
1437 }
1439 exit 1
1440 }
1447 # when doing path limiting, so work around that here
1448 # by working out the rewritten parent with git rev-list
1449 # and if we already know about it, using the rewritten
1450 # parent as a substitute parent for $id's children.
1454 }]} {
1456 # use $rwid in place of $id
1457 rewrite_commit $view $id $rwid
1458 continue
1459 }
1460 }
1461 }
1467 }
1472 }
1484 }
1485 }
1487 # new arc
1489 }
1491 modify_arc $view $a
1492 }
1497 }
1508 }
1510 fix_reversal $p $a $view
1511 }
1512 }
1513 incr i
1514 }
1518 }
1520 global numcommits hlview
1524 run chewcommits
1525 }
1527 # we never actually get here...
1528 run vhighlightmore
1529 }
1532 }
1533 }
1535 }
1537 proc chewcommits {} {
1538 global curview hlview viewcomplete
1539 global pending_select
1541 layoutmore
1543 global commitidx varctok
1544 global numcommits startmsecs
1547 update
1548 reset_pending_select {}
1555 }
1556 }
1558 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1559 #puts "overall $ms ms for $numcommits commits"
1560 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1563 }
1564 notbusy layout
1565 }
1567 }
1570 global tclencoding
1572 # Invoke git-log to handle automatic encoding conversion
1574 # Read the results using i18n.logoutputencoding
1578 }
1580 close $fd
1581 # Remove the heading line
1585 }
1590 }
1593 global commitinfo cdate
1604 # should never happen...
1606 }
1618 }
1619 }
1621 # take the first non-blank line of the comment as the headline
1626 }
1631 }
1633 # git log indents the comment by 4 spaces;
1634 # if we got this via git cat-file, add the indentation
1637 append newcomment " "
1638 append newcomment $line
1640 }
1642 }
1645 }
1648 }
1651 global commitdata commitinfo
1656 readcommit $id
1659 }
1660 }
1662 }
1664 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1665 # and are present in the current view.
1666 # This is fairly slow...
1668 global varcid curview
1673 }
1675 }
1677 proc readrefs {} {
1678 global tagids idtags headids idheads tagobjid
1679 global otherrefids idotherrefs mainhead mainheadid
1680 global selecthead selectheadid
1684 }
1696 }
1702 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1703 # which is what we want since the former is the commit ID
1709 }
1715 }
1716 }
1720 catch {
1725 }
1726 }
1729 catch {
1731 }
1732 }
1733 }
1735 # skip over fake commits
1736 proc first_real_row {} {
1737 global nullid nullid2 numcommits
1742 break
1743 }
1744 }
1746 }
1748 # update things for a head moved to a child of its previous location
1750 global headids idheads
1755 }
1757 # update things when a head has been removed
1759 global headids idheads
1767 }
1768 }
1770 }
1773 global use_ttk
1777 }
1779 }
1782 global have_tk85
1784 # In MacOS Tk 8.4 transient appears to work by setting
1785 # overrideredirect, which is utterly useless, since the
1786 # windows get no border, and are not even kept above
1787 # the parent.
1790 wm transient $window $origin
1792 # Windows fails to place transient windows normally, so
1793 # schedule a callback to center them on the parent.
1796 }
1797 }
1800 global NS
1810 tkwait window $top
1811 }
1818 set w .error
1819 ttk_toplevel $w
1820 make_transient $w $owner
1821 show_error $w $w $msg
1822 }
1823 }
1826 global confirm_ok NS
1828 set w .confirm
1829 ttk_toplevel $w
1830 make_transient $w $owner
1842 tkwait window $w
1844 }
1846 proc setoptions {} {
1849 option add *Panedwindow.sashRelief raised startupFile
1851 option add *Menu.font uifont startupFile
1852 }
1855 }
1856 option add *Button.font uifont startupFile
1857 option add *Checkbutton.font uifont startupFile
1858 option add *Radiobutton.font uifont startupFile
1859 option add *Menubutton.font uifont startupFile
1860 option add *Label.font uifont startupFile
1861 option add *Message.font uifont startupFile
1862 option add *Entry.font uifont startupFile
1863 option add *Labelframe.font uifont startupFile
1864 }
1866 # Make a menu and submenus.
1867 # m is the window name for the menu, items is the list of menu items to add.
1868 # Each item is a list {mc label type description options...}
1869 # mc is ignored; it's so we can put mc there to alert xgettext
1870 # label is the string that appears in the menu
1871 # type is cascade, command or radiobutton (should add checkbutton)
1872 # description depends on type; it's the sublist for cascade, the
1873 # command to invoke for command, or {variable value} for radiobutton
1875 menu $m
1877 set Meta1 Cmd
1879 set Meta1 Ctrl
1880 }
1891 }
1892 }
1897 }
1900 }
1904 }
1905 }
1911 }
1912 }
1913 }
1915 # translate string and remove ampersands
1918 }
1921 global use_ttk
1927 }
1929 }
1931 proc makewindow {} {
1932 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1933 global tabstop
1934 global findtype findtypemenu findloc findstring fstring geometry
1935 global entries sha1entry sha1string sha1but
1936 global diffcontextstring diffcontext
1937 global ignorespace
1938 global maincursor textcursor curtextcursor
1939 global rowctxmenu fakerowmenu mergemax wrapcomment
1940 global highlight_files gdttype
1941 global searchstring sstring
1942 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1943 global headctxmenu progresscanv progressitem progresscoords statusw
1944 global fprogitem fprogcoord lastprogupdate progupdatepending
1945 global rprogitem rprogcoord rownumsel numcommits
1946 global have_tk85 use_ttk NS
1948 # The "mc" arguments here are purely so that xgettext
1949 # sees the following string as needing to be translated
1960 }}
1964 }}
1972 }}
1978 }}
1988 }}
1992 }}
1994 }
1995 makemenu .bar $bar
1996 . configure -menu .bar
1999 # cover the non-themed toplevel with a themed frame.
2001 }
2003 # the gui has upper and lower half, parts of a paned window.
2006 # possibly use assumed geometry
2014 }
2016 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2022 }
2024 # create three canvases
2025 set cscroll .tf.histframe.csb
2026 set canv .tf.histframe.pwclist.canv
2027 canvas $canv \
2031 .tf.histframe.pwclist add $canv
2032 set canv2 .tf.histframe.pwclist.canv2
2033 canvas $canv2 \
2036 .tf.histframe.pwclist add $canv2
2037 set canv3 .tf.histframe.pwclist.canv3
2038 canvas $canv3 \
2041 .tf.histframe.pwclist add $canv3
2047 }
2051 }
2053 # a scroll bar to rule them
2058 lappend bglist $canv $canv2 $canv3
2061 # we have two button bars at bottom of top frame. Bar 1
2065 set sha1entry .tf.bar.sha1
2067 set sha1but .tf.bar.sha1label
2071 pack .tf.bar.sha1label -side left
2073 trace add variable sha1string write sha1change
2077 #define left_width 16
2078 #define left_height 16
2079 static unsigned char left_bits[] = {
2083 }
2085 #define right_width 16
2086 #define right_height 16
2087 static unsigned char right_bits[] = {
2091 }
2106 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2107 -side left
2110 }
2111 global selectedline
2112 trace add variable selectedline write selectedline_change
2114 # Status label and progress bar
2115 set statusw .tf.bar.status
2122 set progresscanv .tf.bar.progress
2127 }
2136 # build up the bottom bar of upper window
2141 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2148 trace add variable gdttype write gdttype_change
2152 set fstring .tf.lbar.findstring
2153 lappend entries $fstring
2155 trace add variable findstring write find_change
2159 trace add variable findtype write findcom_change
2163 trace add variable findloc write find_change
2164 pack .tf.lbar.findloc -side right
2165 pack .tf.lbar.findtype -side right
2168 # Finish putting the upper half of the viewer together
2172 .ctop add .tf
2176 }
2178 # now build up the bottom
2181 # lower left, a text box over search bar, scroll bar to the right
2182 # if we know window height, then that will set the lower text height, otherwise
2183 # we set lower text height which will drive window height
2188 }
2195 set sstring .bleft.top.sstring
2198 lappend entries $sstring
2199 trace add variable searchstring write incrsearch
2212 -textvariable diffcontextstring
2214 trace add variable diffcontextstring write diffcontextchange
2215 lappend entries .bleft.mid.diffcontext
2216 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2220 set ctext .bleft.bottom.ctext
2227 }
2233 grid .bleft.bottom.sbhorizontal -sticky ew
2238 lappend bglist $ctext
2239 lappend fglist $ctext
2268 .pwbottom add .bleft
2271 }
2273 # lower right
2282 set cflist .bright.cfiles
2284 text $cflist \
2287 -font mainfont \
2292 lappend bglist $cflist
2293 lappend fglist $cflist
2297 $cflist tag configure highlight \
2301 .pwbottom add .bright
2302 .ctop add .pwbottom
2304 # restore window width & height if known
2309 }
2312 }
2314 }
2315 }
2319 }
2322 set M1B M1
2325 set M1B Control
2327 }
2333 }
2337 }
2338 }
2343 #bindall <B1-Motion> {selcanvline %W %x %y}
2353 allcanvs yview scroll $delta units
2354 }
2358 }
2359 }
2360 }
2382 bindkey p "selnextline -1"
2383 bindkey n "selnextline 1"
2384 bindkey z "goback"
2385 bindkey x "goforw"
2386 bindkey i "selnextline -1"
2387 bindkey k "selnextline 1"
2388 bindkey j "goback"
2389 bindkey l "goforw"
2390 bindkey b prevfile
2397 bindkey f nextfile
2414 wm protocol . WM_DELETE_WINDOW doquit
2423 global ctxbut
2427 set maincursor [. cget -cursor]
2431 set rowctxmenu .rowctxmenu
2433 {mc "Diff this -> selected" command {diffvssel 0}}
2434 {mc "Diff selected -> this" command {diffvssel 1}}
2435 {mc "Make patch" command mkpatch}
2436 {mc "Create tag" command mktag}
2437 {mc "Write commit to file" command writecommit}
2438 {mc "Create new branch" command mkbranch}
2439 {mc "Cherry-pick this commit" command cherrypick}
2440 {mc "Reset HEAD branch to here" command resethead}
2441 {mc "Mark this commit" command markhere}
2442 {mc "Return to mark" command gotomark}
2443 {mc "Find descendant of this and mark" command find_common_desc}
2444 {mc "Compare with marked commit" command compare_commits}
2445 }
2448 set fakerowmenu .fakerowmenu
2450 {mc "Diff this -> selected" command {diffvssel 0}}
2451 {mc "Diff selected -> this" command {diffvssel 1}}
2452 {mc "Make patch" command mkpatch}
2453 }
2456 set headctxmenu .headctxmenu
2458 {mc "Check out this branch" command cobranch}
2459 {mc "Remove this branch" command rmbranch}
2460 }
2463 global flist_menu
2464 set flist_menu .flistctxmenu
2466 {mc "Highlight this too" command {flist_hl 0}}
2467 {mc "Highlight this only" command {flist_hl 1}}
2468 {mc "External diff" command {external_diff}}
2469 {mc "Blame parent commit" command {external_blame 1}}
2470 }
2473 global diff_menu
2474 set diff_menu .diffctxmenu
2476 {mc "Show origin of this line" command show_line_source}
2477 {mc "Run git gui blame on this line" command {external_blame_diff}}
2478 }
2480 }
2482 # Windows sends all mouse wheel events to the current focused window, not
2483 # the one where the mouse hovers, so bind those events here and redirect
2484 # to the correct window
2485 proc windows_mousewheel_redirector {W X Y D} {
2486 global canv canv2 canv3
2492 } else {
2493 catch {
2495 }
2496 }
2497 }
2498 }
2500 # Update row number label when selectedline changes
2501 proc selectedline_change {n1 n2 op} {
2502 global selectedline rownumsel
2505 set rownumsel {}
2506 } else {
2508 }
2509 }
2511 # mouse-2 makes all windows scan vertically, but only the one
2512 # the cursor is in scans horizontally
2513 proc canvscan {op w x y} {
2514 global canv canv2 canv3
2518 } else {
2520 }
2521 }
2522 }
2524 proc scrollcanv {cscroll f0 f1} {
2526 drawvisible
2527 flushhighlights
2528 }
2530 # when we make a key binding for the toplevel, make sure
2531 # it doesn't get triggered when that key is pressed in the
2532 # find string entry widget.
2533 proc bindkey {ev script} {
2534 global entries
2538 set escript [bind Entry <Key>]
2539 }
2542 }
2543 }
2545 # set the focus back to the toplevel for any click outside
2546 # the entry widgets
2547 proc click {w} {
2548 global ctext entries
2551 }
2552 focus .
2553 }
2555 # Adjust the progress bar for a change in requested extent or canvas size
2556 proc adjustprogress {} {
2557 global progresscanv progressitem progresscoords
2558 global fprogitem fprogcoord lastprogupdate progupdatepending
2559 global rprogitem rprogcoord use_ttk
2563 return
2564 }
2573 set now [clock clicks -milliseconds]
2575 set progupdatepending 0
2576 update
2578 set progupdatepending 1
2580 }
2581 }
2583 proc doprogupdate {} {
2584 global lastprogupdate progupdatepending
2587 set progupdatepending 0
2588 set lastprogupdate [clock clicks -milliseconds]
2589 update
2590 }
2591 }
2593 proc savestuff {w} {
2594 global canv canv2 canv3 mainfont textfont uifont tabstop
2595 global stuffsaved findmergefiles maxgraphpct
2596 global maxwidth showneartags showlocalchanges
2597 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2598 global cmitmode wrapcomment datetimeformat limitdiffs
2599 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2600 global autoselect extdifftool perfile_attrs markbgcolor use_ttk
2603 if {![winfo viewable .]} return
2604 catch {
2605 set f [open "~/.gitk-new" w]
2606 if {$::tcl_platform(platform) eq {windows}} {
2607 file attributes "~/.gitk-new" -hidden true
2608 }
2640 } else {
2643 }
2651 }
2652 }
2655 file rename -force "~/.gitk-new" "~/.gitk"
2656 }
2657 set stuffsaved 1
2658 }
2660 proc resizeclistpanes {win w} {
2661 global oldwidth use_ttk
2666 } else {
2669 }
2673 } else {
2678 set sash0 30
2679 }
2682 }
2687 }
2688 }
2689 }
2693 } else {
2696 }
2697 }
2699 }
2701 proc resizecdetpanes {win w} {
2702 global oldwidth use_ttk
2706 } else {
2708 }
2711 } else {
2715 set sash0 45
2716 }
2719 }
2720 }
2723 } else {
2725 }
2726 }
2728 }
2730 proc allcanvs args {
2731 global canv canv2 canv3
2735 }
2737 proc bindall {event action} {
2738 global canv canv2 canv3
2742 }
2744 proc about {} {
2745 global uifont NS
2746 set w .about
2749 return
2750 }
2755 Gitk - a commit viewer for git
2757 Copyright \u00a9 2005-2009 Paul Mackerras
2759 Use and redistribute under the terms of the GNU General Public License"] \
2760 -justify center -aspect 400 -border 2 -bg white -relief groove
2768 }
2770 proc keys {} {
2771 global NS
2772 set w .keys
2775 return
2776 }
2777 if {[tk windowingsystem] eq {aqua}} {
2778 set M1T Cmd
2779 } else {
2780 set M1T Ctrl
2781 }
2786 [mc "Gitk key bindings:"]
2789 [mc "<Home> Move to first commit"]
2790 [mc "<End> Move to last commit"]
2791 [mc "<Up>, p, i Move up one commit"]
2792 [mc "<Down>, n, k Move down one commit"]
2793 [mc "<Left>, z, j Go back in history list"]
2794 [mc "<Right>, x, l Go forward in history list"]
2795 [mc "<PageUp> Move up one page in commit list"]
2796 [mc "<PageDown> Move down one page in commit list"]
2803 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2804 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2805 [mc "<Delete>, b Scroll diff view up one page"]
2806 [mc "<Backspace> Scroll diff view up one page"]
2807 [mc "<Space> Scroll diff view down one page"]
2808 [mc "u Scroll diff view up 18 lines"]
2809 [mc "d Scroll diff view down 18 lines"]
2812 [mc "<Return> Move to next find hit"]
2813 [mc "/ Focus the search box"]
2814 [mc "? Move to previous find hit"]
2815 [mc "f Scroll diff view to next file"]
2822 [mc "<F5> Update"]
2823 " \
2824 -justify left -bg white -border 2 -relief groove
2832 }
2834 # Procedures for manipulating the file list window at the
2835 # bottom right of the overall window.
2837 proc treeview {w l openlevs} {
2838 global treecontents treediropen treeheight treeparent treeindex
2840 set ix 0
2841 set treeindex() 0
2842 set lev 0
2843 set prefix {}
2844 set prefixend -1
2845 set prefendstack {}
2846 set htstack {}
2847 set ht 0
2848 set treecontents() {}
2855 }
2862 incr lev -1
2863 }
2867 set ht 0
2879 set ht 1
2884 set str "\n"
2892 }
2893 incr lev
2894 }
2897 incr ht
2898 set str "\n"
2902 }
2904 }
2905 }
2913 }
2915 }
2917 proc linetoelt {l} {
2918 global treeheight treecontents
2920 set y 2
2921 set prefix {}
2922 while {1} {
2926 }
2927 set n 1
2932 incr y
2933 break
2934 }
2935 }
2937 }
2938 }
2939 }
2941 proc highlight_tree {y prefix} {
2942 global treeheight treecontents cflist
2948 }
2949 incr y
2952 }
2953 }
2955 }
2957 proc treeclosedir {w dir} {
2958 global treediropen treeheight treeparent treeindex
2970 }
2971 }
2973 proc treeopendir {w dir} {
2974 global treediropen treeheight treeparent treecontents treeindex
2981 set lev 0
2982 set str "\n"
2985 incr lev
2986 append str "\t"
2988 }
3003 } else {
3006 }
3007 }
3020 }
3022 }
3023 }
3025 proc treeclick {w x y} {
3026 global treediropen cmitmode ctext cflist cflist_top
3029 if {![info exists cflist_top]} return
3036 return
3037 }
3043 } else {
3045 }
3046 }
3048 proc setfilelist {id} {
3049 global treefilelist cflist jump_to_here
3056 }
3057 }
3058 }
3060 image create bitmap tri-rt -background black -foreground blue -data {
3061 #define tri-rt_width 13
3062 #define tri-rt_height 13
3063 static unsigned char tri-rt_bits[] = {
3064 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3065 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3066 0x00, 0x00};
3067 } -maskdata {
3068 #define tri-rt-mask_width 13
3069 #define tri-rt-mask_height 13
3070 static unsigned char tri-rt-mask_bits[] = {
3071 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3072 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3073 0x08, 0x00};
3074 }
3075 image create bitmap tri-dn -background black -foreground blue -data {
3076 #define tri-dn_width 13
3077 #define tri-dn_height 13
3078 static unsigned char tri-dn_bits[] = {
3079 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3080 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3081 0x00, 0x00};
3082 } -maskdata {
3083 #define tri-dn-mask_width 13
3084 #define tri-dn-mask_height 13
3085 static unsigned char tri-dn-mask_bits[] = {
3086 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3087 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3088 0x00, 0x00};
3089 }
3091 image create bitmap reficon-T -background black -foreground yellow -data {
3092 #define tagicon_width 13
3093 #define tagicon_height 9
3094 static unsigned char tagicon_bits[] = {
3095 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3096 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3097 } -maskdata {
3098 #define tagicon-mask_width 13
3099 #define tagicon-mask_height 9
3100 static unsigned char tagicon-mask_bits[] = {
3101 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3102 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3103 }
3104 set rectdata {
3105 #define headicon_width 13
3106 #define headicon_height 9
3107 static unsigned char headicon_bits[] = {
3108 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3109 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3110 }
3111 set rectmask {
3112 #define headicon-mask_width 13
3113 #define headicon-mask_height 9
3114 static unsigned char headicon-mask_bits[] = {
3115 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3116 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3117 }
3118 image create bitmap reficon-H -background black -foreground green \
3120 image create bitmap reficon-o -background black -foreground "#ddddff" \
3123 proc init_flist {first} {
3124 global cflist cflist_top difffilestart
3130 set cflist_top 1
3132 } else {
3133 catch {unset cflist_top}
3134 }
3136 set difffilestart {}
3137 }
3139 proc highlight_tag {f} {
3140 global highlight_paths
3144 return "bold"
3145 }
3146 }
3147 return {}
3148 }
3150 proc highlight_filelist {} {
3151 global cmitmode cflist
3160 }
3161 }
3162 } else {
3163 highlight_tree 2 {}
3164 }
3166 }
3168 proc unhighlight_filelist {} {
3169 global cflist
3174 }
3176 proc add_flist {fl} {
3177 global cflist
3183 }
3185 }
3187 proc sel_flist {w x y} {
3188 global ctext difffilestart cflist cflist_top cmitmode
3191 if {![info exists cflist_top]} return
3198 } else {
3200 }
3201 }
3203 proc pop_flist_menu {w X Y x y} {
3204 global ctext cflist cmitmode flist_menu flist_menu_file
3205 global treediffs diffids
3207 stopfinding
3213 } else {
3215 }
3217 set xdiffstate "normal"
3219 set xdiffstate "disabled"
3220 }
3221 # Disable "External diff" item in tree mode
3224 }
3226 proc find_ctext_fileinfo {line} {
3227 global ctext_file_names ctext_file_lines
3233 return {}
3234 } else {
3236 }
3237 }
3239 proc pop_diff_menu {w X Y x y} {
3240 global ctext diff_menu flist_menu_file
3241 global diff_menu_txtpos diff_menu_line
3242 global diff_menu_filebase
3246 # don't pop up the menu on hunk-separator or file-separator lines
3248 return
3249 }
3250 stopfinding
3256 }
3258 proc flist_hl {only} {
3259 global flist_menu_file findstring gdttype
3264 } else {
3266 }
3267 set gdttype [mc "touching paths:"]
3268 }
3270 proc save_file_from_commit {filename output what} {
3271 global nullfile
3276 }
3278 return {}
3279 }
3281 }
3283 proc external_diff_get_one_file {diffid filename diffdir} {
3284 global nullid nullid2 nullfile
3285 global gitdir
3291 }
3293 }
3297 }
3301 }
3303 proc external_diff {} {
3304 global gitktmpdir nullid nullid2
3305 global flist_menu_file
3306 global diffids
3307 global diffnum
3308 global gitdir extdifftool
3311 # no reference commit given
3314 # diffing working copy with index
3317 # diffing index with HEAD
3318 set diffidfrom "HEAD"
3319 } else {
3320 # use first parent commit
3321 global parentlist selectedline
3323 }
3324 } else {
3327 }
3329 # make sure that several diffs wont collide
3330 if {![info exists gitktmpdir]} {
3332 [format ".gitk-tmp.%s" [pid]]]
3335 unset gitktmpdir
3336 return
3337 }
3338 set diffnum 0
3339 }
3340 incr diffnum
3344 return
3345 }
3347 # gather files to diff
3356 } else {
3359 }
3360 }
3361 }
3363 proc find_hunk_blamespec {base line} {
3364 global ctext
3366 # Find and parse the hunk header
3372 s_line old_specs osz osz1 new_line nsz]} {
3373 return
3374 }
3376 # base lines for the parents
3380 old_spec old_line osz]} {
3381 return
3382 }
3384 }
3386 # Now scan the lines to determine offset within the hunk
3388 set dline 0
3391 # Determine if the line is removed
3395 # Choose a parent index
3398 } else {
3402 } else {
3403 # blame the current commit
3404 set parent -1
3405 }
3406 }
3407 # then count other lines that belong to it
3410 # Determine if the line is removed
3415 incr dline
3416 }
3417 } else {
3419 incr dline
3420 }
3421 }
3422 }
3423 incr parent
3424 } else {
3425 set parent 0
3426 }
3430 }
3432 proc external_blame_diff {} {
3433 global currentid cmitmode
3434 global diff_menu_txtpos diff_menu_line
3435 global diff_menu_filebase flist_menu_file
3438 set parent_idx 0
3440 } else {
3445 } else {
3446 set parent_idx 0
3447 set line 0
3448 }
3449 }
3452 }
3455 # at stage 0 or 2
3456 proc index_sha1 {fname} {
3464 }
3465 }
3467 return {}
3468 }
3470 # Turn an absolute path into one relative to the current directory
3471 proc make_relative {f} {
3473 set here [file split [pwd]]
3474 set ei 0
3475 set hi 0
3476 set res {}
3479 lappend res ".."
3480 } else {
3481 incr ei
3482 }
3483 incr hi
3484 }
3487 }
3489 proc external_blame {parent_idx {line {}}} {
3490 global flist_menu_file gitdir
3491 global nullid nullid2
3492 global parentlist selectedline currentid
3496 } else {
3498 }
3501 error_popup [mc "No such commit"]
3502 return
3503 }
3505 set cmdline [list git gui blame]
3508 }
3510 # Unfortunately it seems git gui blame doesn't like
3511 # being given an absolute path...
3516 }
3517 }
3519 proc show_line_source {} {
3520 global cmitmode currentid parents curview blamestuff blameinst
3521 global diff_menu_line diff_menu_filebase flist_menu_file
3522 global nullid nullid2 gitdir
3524 set from_index {}
3528 } else {
3534 return
3535 }
3536 incr pi -1
3539 # must be a merge in progress...
3540 if {[catch {
3541 # get the last line from .git/MERGE_HEAD
3545 } err]} {
3547 return
3548 }
3550 # need to do the blame from the index
3551 if {[catch {
3553 } err]} {
3555 return
3556 }
3557 } else {
3559 }
3560 } else {
3562 }
3564 }
3565 set blameargs {}
3568 }
3571 lappend blameargs --contents -
3572 } else {
3574 }
3576 if {[catch {
3578 } err]} {
3580 return
3581 }
3582 nowbusy blaming [mc "Searching"]
3588 }
3590 proc stopblaming {} {
3591 global blameinst
3593 if {[info exists blameinst]} {
3595 unset blameinst
3596 notbusy blaming
3597 }
3598 }
3600 proc read_line_source {fd inst} {
3601 global blamestuff curview commfd blameinst nullid nullid2
3605 }
3607 return 1
3608 }
3610 unset blameinst
3611 notbusy blaming
3615 return 0
3616 }
3618 set fname {}
3624 # look for "filename" line
3628 break
3629 }
3630 }
3631 }
3633 # all looks good, select it
3635 # blame uses all-zeroes to mean not committed,
3636 # which would mean a change in the index
3638 }
3641 } else {
3642 error_popup [mc "That line comes from commit %s, \
3644 }
3645 } else {
3646 puts "oops couldn't parse git blame output"
3647 }
3648 return 0
3649 }
3652 proc delete_at_eof {f dir} {
3657 }
3659 return 0
3660 }
3661 return 1
3662 }
3664 # Functions for adding and removing shell-type quoting
3666 proc shellquote {str} {
3669 }
3672 }
3675 }
3677 }
3679 proc shellarglist {l} {
3680 set str {}
3683 append str " "
3684 }
3686 }
3688 }
3690 proc shelldequote {str} {
3691 set ret {}
3692 set used -1
3693 while {1} {
3694 incr used
3698 break
3699 }
3705 }
3707 incr used
3711 error "unmatched single-quote"
3712 }
3715 continue
3716 }
3719 error "trailing backslash"
3720 }
3722 continue
3723 }
3724 # here ch == "\""
3725 while {1} {
3727 error "unmatched double-quote"
3728 }
3734 }
3736 incr used
3738 incr used
3739 }
3740 }
3742 }
3744 proc shellsplit {str} {
3745 set l {}
3746 while {1} {
3754 }
3756 }
3758 # Code to implement multiple views
3760 proc newview {ishighlight} {
3761 global nextviewnum newviewname newishighlight
3762 global revtreeargs viewargscmd newviewopts curview
3765 set top .gitkview
3768 return
3769 }
3775 }
3777 set known_view_options {
3778 {perm b . {} {mc "Remember this view"}}
3779 {args t50= + {} {mc "Commits to include (arguments to git log):"}}
3780 {all b * "--all" {mc "Use all refs"}}
3781 {dorder b . {"--date-order" "-d"} {mc "Strictly sort by date"}}
3782 {lright b . "--left-right" {mc "Mark branch sides"}}
3783 {since t15 + {"--since=*" "--after=*"} {mc "Since date:"}}
3784 {until t15 . {"--until=*" "--before=*"} {mc "Until date:"}}
3785 {limit t10 + "--max-count=*" {mc "Max count:"}}
3786 {skip t10 . "--skip=*" {mc "Skip:"}}
3787 {first b . "--first-parent" {mc "Limit to first parent"}}
3788 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3789 }
3791 proc encode_view_opts {n} {
3792 global known_view_options newviewopts
3794 set rargs [list]
3805 }
3806 } else {
3811 }
3812 }
3813 }
3815 }
3817 proc decode_view_opts {n view_args} {
3818 global known_view_options newviewopts
3822 set val 0
3823 } else {
3824 set val {}
3825 }
3827 }
3828 set oargs [list]
3831 && ![info exists found(limit)]} {
3833 set found(limit) 1
3834 continue
3835 }
3836 catch { unset val }
3845 } else {
3846 set val 1
3847 }
3850 break
3851 }
3852 if {[info exists val]} break
3853 }
3854 if {[info exists val]} continue
3856 }
3858 }
3860 proc edit_or_newview {} {
3861 global curview
3864 editview
3865 } else {
3866 newview 0
3867 }
3868 }
3870 proc editview {} {
3871 global curview
3872 global viewname viewperm newviewname newviewopts
3873 global viewargs viewargscmd
3878 return
3879 }
3885 }
3887 proc vieweditor {top n title} {
3888 global newviewname newviewopts viewfiles bgcolor
3889 global known_view_options NS
3895 # View name
3903 # View options
3905 set cexpand 0
3906 set cnt 0
3912 set lxpad 0
3916 incr cnt
3920 } else {
3921 set lxpad 5
3922 }
3940 }
3941 }
3943 # Path list
3945 -text [mc "Enter files and directories to include, one per line:"]
3952 }
3955 }
3970 }
3972 proc doviewmenu {m first cmd op argv} {
3977 break
3978 }
3979 }
3980 }
3982 proc allviewmenus {n op args} {
3983 # global viewhlmenu
3987 }
3989 proc newviewok {top n {apply 0}} {
3990 global nextviewnum newviewperm newviewname newishighlight
3991 global viewname viewfiles viewperm selectedview curview
3992 global viewargs viewargscmd newviewopts viewhlmenu
3994 if {[catch {
3996 } err]} {
3998 return
3999 }
4000 set files {}
4005 }
4006 }
4008 # creating a new view
4009 incr nextviewnum
4018 } else {
4020 }
4021 } else {
4022 # editing an existing view
4030 }
4037 run reloadcommits
4038 }
4039 }
4040 }
4043 }
4045 proc delview {} {
4046 global curview viewperm hlview selectedhlview
4050 set selectedhlview [mc "None"]
4051 unset hlview
4052 }
4055 showview 0
4056 }
4058 proc addviewmenu {n} {
4059 global viewname viewhlmenu
4065 }
4067 proc showview {n} {
4068 global curview cached_commitrow ordertok
4069 global displayorder parentlist rowidlist rowisopt rowfinal
4070 global colormap rowtextx nextcolor canvxmax
4071 global numcommits viewcomplete
4072 global selectedline currentid canv canvy0
4073 global treediffs
4074 global pending_select mainheadid
4075 global commitidx
4076 global selectedview
4077 global hlview selectedhlview commitinterest
4080 set selid {}
4091 }
4092 } elseif {[info exists pending_select]} {
4094 unset pending_select
4095 }
4096 unselectline
4097 normalline
4098 catch {unset treediffs}
4099 clear_display
4101 unset hlview
4102 set selectedhlview [mc "None"]
4103 }
4104 catch {unset commitinterest}
4105 catch {unset cached_commitrow}
4106 catch {unset ordertok}
4113 run refill_reflist
4116 return
4117 }
4119 set displayorder {}
4120 set parentlist {}
4121 set rowidlist {}
4122 set rowisopt {}
4123 set rowfinal {}
4126 catch {unset colormap}
4127 catch {unset rowtextx}
4128 set nextcolor 0
4131 set row 0
4132 setcanvscroll
4133 set yf 0
4134 set row {}
4137 # try to get the selected row in the same position on the screen
4141 set ytop 0
4142 }
4144 }
4146 drawvisible
4151 } else {
4152 reset_pending_select {}
4156 } else {
4157 set row [first_real_row]
4160 }
4161 }
4162 }
4165 show_status [mc "Reading commits..."]
4166 }
4168 show_status [mc "No commits selected"]
4169 }
4170 }
4172 # Stuff relating to the highlighting facility
4174 proc ishighlighted {id} {
4175 global vhighlights fhighlights nhighlights rhighlights
4179 }
4182 }
4185 }
4188 }
4189 return 0
4190 }
4192 proc bolden {id font} {
4193 global canv linehtag currentid boldids need_redisplay markedid
4195 # need_redisplay = 1 means the display is stale and about to be redrawn
4202 -outline {{}} -tags secsel \
4205 }
4208 }
4209 }
4211 proc bolden_name {id font} {
4212 global canv2 linentag currentid boldnameids need_redisplay
4220 -outline {{}} -tags secsel \
4223 }
4224 }
4226 proc unbolden {} {
4227 global boldids
4229 set stillbold {}
4233 } else {
4235 }
4236 }
4238 }
4240 proc addvhighlight {n} {
4241 global hlview viewcomplete curview vhl_done commitidx
4243 if {[info exists hlview]} {
4244 delvhighlight
4245 }
4249 }
4252 drawvisible
4253 }
4254 }
4256 proc delvhighlight {} {
4257 global hlview vhighlights
4259 if {![info exists hlview]} return
4260 unset hlview
4261 catch {unset vhighlights}
4262 unbolden
4263 }
4265 proc vhighlightmore {} {
4266 global hlview vhl_done commitidx vhighlights curview
4269 set vr [visiblerows]
4279 }
4281 }
4282 }
4283 }
4285 return 0
4286 }
4288 proc askvhighlight {row id} {
4289 global hlview vhighlights iddrawn
4294 }
4296 } else {
4298 }
4299 }
4301 proc hfiles_change {} {
4302 global highlight_files filehighlight fhighlights fh_serial
4303 global highlight_paths
4305 if {[info exists filehighlight]} {
4306 # delete previous highlights
4308 unset filehighlight
4309 catch {unset fhighlights}
4310 unbolden
4311 unhighlight_filelist
4312 }
4313 set highlight_paths {}
4315 incr fh_serial
4318 }
4319 }
4321 proc gdttype_change {name ix op} {
4322 global gdttype highlight_files findstring findpattern
4324 stopfinding
4328 set highlight_files {}
4329 hfiles_change
4330 }
4331 findcom_change
4332 } else {
4334 set findpattern {}
4335 findcom_change
4336 }
4338 hfiles_change
4339 }
4340 drawvisible
4341 }
4342 # enable/disable findtype/findloc menus too
4343 }
4345 proc find_change {name ix op} {
4346 global gdttype findstring highlight_files
4348 stopfinding
4350 findcom_change
4351 } else {
4354 hfiles_change
4355 }
4356 }
4357 drawvisible
4358 }
4360 proc findcom_change args {
4361 global nhighlights boldnameids
4362 global findpattern findtype findstring gdttype
4364 stopfinding
4365 # delete previous highlights, if any
4368 }
4369 set boldnameids {}
4370 catch {unset nhighlights}
4371 unbolden
4372 unmarkmatches
4374 set findpattern {}
4377 } else {
4378 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4381 }
4382 }
4384 proc makepatterns {l} {
4385 set ret {}
4390 } else {
4393 }
4394 }
4396 }
4398 proc do_file_hl {serial} {
4399 global highlight_files filehighlight highlight_paths gdttype fhl_list
4404 highlight_filelist
4408 } else {
4409 # must be "containing:", i.e. we're searching commit info
4410 return
4411 }
4416 set fhl_list {}
4417 drawvisible
4418 flushhighlights
4419 }
4421 proc flushhighlights {} {
4422 global filehighlight fhl_list
4424 if {[info exists filehighlight]} {
4425 lappend fhl_list {}
4428 }
4429 }
4431 proc askfilehighlight {row id} {
4432 global filehighlight fhighlights fhl_list
4437 }
4439 proc readfhighlight {} {
4440 global filehighlight fhighlights curview iddrawn
4441 global fhl_list find_dirn
4443 if {![info exists filehighlight]} {
4444 return 0
4445 }
4446 set nr 0
4454 }
4460 }
4462 }
4464 # strange...
4465 puts "oops, git diff-tree died"
4467 unset filehighlight
4468 return 0
4469 }
4470 if {[info exists find_dirn]} {
4471 run findmore
4472 }
4473 return 1
4474 }
4476 proc doesmatch {f} {
4477 global findtype findpattern
4483 } else {
4485 }
4486 }
4488 proc askfindhighlight {row id} {
4489 global nhighlights commitinfo iddrawn
4490 global findloc
4491 global markingmatches
4495 }
4497 set isbold 0
4498 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4503 set isbold 2
4504 break
4505 }
4506 set isbold 1
4507 }
4508 }
4514 }
4515 }
4518 }
4519 }
4521 }
4523 proc markrowmatches {row id} {
4524 global canv canv2 linehtag linentag commitinfo findloc
4535 }
4536 }
4542 }
4543 }
4544 }
4546 proc vrel_change {name ix op} {
4547 global highlight_related
4549 rhighlight_none
4551 run drawvisible
4552 }
4553 }
4555 # prepare for testing whether commits are descendents or ancestors of a
4556 proc rhighlight_sel {a} {
4557 global descendent desc_todo ancestor anc_todo
4558 global highlight_related
4560 catch {unset descendent}
4562 catch {unset ancestor}
4565 rhighlight_none
4566 run drawvisible
4567 }
4568 }
4570 proc rhighlight_none {} {
4571 global rhighlights
4573 catch {unset rhighlights}
4574 unbolden
4575 }
4577 proc is_descendent {a} {
4578 global curview children descendent desc_todo
4583 set leftover {}
4584 set done 0
4589 continue
4590 }
4596 set done 1
4597 }
4598 }
4599 }
4602 return
4603 }
4604 }
4607 }
4609 proc is_ancestor {a} {
4610 global curview parents ancestor anc_todo
4615 set leftover {}
4616 set done 0
4621 continue
4622 }
4628 set done 1
4629 }
4630 }
4631 }
4634 return
4635 }
4636 }
4639 }
4641 proc askrelhighlight {row id} {
4642 global descendent highlight_related iddrawn rhighlights
4643 global selectedline ancestor
4646 set isbold 0
4651 }
4653 set isbold 1
4654 }
4659 }
4661 set isbold 1
4662 }
4663 }
4667 }
4668 }
4670 }
4672 # Graph layout functions
4674 proc shortids {ids} {
4675 set res {}
4681 } else {
4683 }
4684 }
4686 }
4688 proc ntimes {n o} {
4689 set ret {}
4694 }
4696 }
4698 }
4700 proc ordertoken {id} {
4701 global ordertok curview varcid varcstart varctok curview parents children
4702 global nullid nullid2
4706 }
4708 set todo {}
4709 while {1} {
4713 } else {
4715 }
4718 break
4719 }
4722 # it's a root
4724 break
4725 }
4728 } else {
4732 }
4734 }
4735 }
4740 }
4743 }
4745 # Work out where id should go in idlist so that order-token
4746 # values increase from left to right
4747 proc idcol {idlist id {i 0}} {
4750 set i 0
4751 }
4755 }
4757 incr i
4758 } else {
4762 }
4763 }
4765 }
4767 proc initlayout {} {
4768 global rowidlist rowisopt rowfinal displayorder parentlist
4769 global numcommits canvxmax canv
4770 global nextcolor
4771 global colormap rowtextx
4773 set numcommits 0
4774 set displayorder {}
4775 set parentlist {}
4776 set nextcolor 0
4777 set rowidlist {}
4778 set rowisopt {}
4779 set rowfinal {}
4781 catch {unset colormap}
4782 catch {unset rowtextx}
4783 setcanvscroll
4784 }
4786 proc setcanvscroll {} {
4787 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4788 global lastscrollset lastscrollrows
4794 set lastscrollset [clock clicks -milliseconds]
4796 }
4798 proc visiblerows {} {
4799 global canv numcommits linespc
4807 set r0 0
4808 }
4813 }
4815 }
4817 proc layoutmore {} {
4818 global commitidx viewcomplete curview
4819 global numcommits pending_select curview
4820 global lastscrollset lastscrollrows
4824 setcanvscroll
4825 }
4826 if {[info exists pending_select] &&
4828 update
4830 }
4831 drawvisible
4832 }
4834 # With path limiting, we mightn't get the actual HEAD commit,
4835 # so ask git rev-list what is the first ancestor of HEAD that
4836 # touches a file in the path limit.
4837 proc get_viewmainhead {view} {
4838 global viewmainheadid vfilelimit viewinstances mainheadid
4840 catch {
4848 }
4849 }
4852 proc getviewhead {fd inst view} {
4853 global viewmainheadid commfd curview viewinstances showlocalchanges
4855 set id {}
4858 return 1
4859 }
4862 }
4869 }
4871 doshowlocalchanges
4872 }
4873 return 0
4874 }
4876 proc doshowlocalchanges {} {
4877 global curview viewmainheadid
4881 dodiffindex
4882 } else {
4884 }
4885 }
4887 proc dohidelocalchanges {} {
4888 global nullid nullid2 lserial curview
4892 }
4895 }
4896 incr lserial
4897 }
4899 # spawn off a process to do git diff-index --cached HEAD
4900 proc dodiffindex {} {
4901 global lserial showlocalchanges vfilelimit curview
4902 global isworktree
4905 incr lserial
4906 set cmd "|git diff-index --cached HEAD"
4909 }
4914 }
4916 proc readdiffindex {fd serial inst} {
4917 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4918 global vfilelimit
4920 set isdiff 1
4923 return 1
4924 }
4925 set isdiff 0
4926 }
4927 # we only need to see one line and we don't really care what it says...
4931 return 0
4932 }
4934 # now see if there are any local changes not checked in to the index
4935 set cmd "|git diff-files"
4938 }
4945 # add the line for the changes in the index to the graph
4946 set hl [mc "Local changes checked in to index but not committed"]
4951 }
4956 }
4958 }
4959 return 0
4960 }
4962 proc readdifffiles {fd serial inst} {
4963 global viewmainheadid nullid nullid2 curview
4964 global commitinfo commitdata lserial
4966 set isdiff 1
4969 return 1
4970 }
4971 set isdiff 0
4972 }
4973 # we only need to see one line and we don't really care what it says...
4977 return 0
4978 }
4981 # add the line for the local diff to the graph
4982 set hl [mc "Local uncommitted changes, not checked in to index"]
4987 } else {
4989 }
4993 }
4994 return 0
4995 }
4997 proc nextuse {id row} {
4998 global curview children
5003 return -1
5004 }
5007 }
5008 }
5009 }
5012 }
5013 return -1
5014 }
5016 proc prevuse {id row} {
5017 global curview children
5019 set ret -1
5025 }
5026 }
5027 }
5029 }
5031 proc make_idlist {row} {
5032 global displayorder parentlist uparrowlen downarrowlen mingaplen
5033 global commitidx curview children
5037 set r 0
5038 }
5041 set ra 0
5042 }
5046 }
5048 set ids {}
5057 }
5058 }
5059 }
5067 }
5068 }
5069 }
5077 }
5078 }
5079 incr r
5085 }
5086 }
5087 }
5088 set idlist {}
5091 }
5093 }
5095 proc rowsequal {a b} {
5098 }
5101 }
5103 }
5105 proc makeupline {id row rend col} {
5106 global rowidlist uparrowlen downarrowlen mingaplen
5112 }
5115 }
5122 }
5123 }
5124 }
5126 proc layoutrows {row endrow} {
5127 global rowidlist rowisopt rowfinal displayorder
5128 global uparrowlen downarrowlen maxwidth mingaplen
5129 global children parentlist
5130 global commitidx viewcomplete curview
5133 set idlist {}
5139 }
5140 }
5142 }
5147 set final 1
5148 } else {
5156 # if not the first child, we have to insert a line going up
5159 }
5160 }
5161 }
5171 }
5172 }
5173 }
5180 }
5181 }
5191 }
5192 }
5200 }
5201 }
5202 }
5203 }
5204 }
5208 set final 0
5209 }
5213 lappend rowisopt 0
5219 }
5221 } else {
5228 }
5229 }
5231 }
5233 proc changedrow {row} {
5234 global displayorder iddrawn rowisopt need_redisplay
5243 }
5244 }
5245 }
5248 set need_redisplay 1
5249 }
5250 }
5252 proc insert_pad {row col npad} {
5253 global rowidlist
5262 }
5265 }
5267 proc optimize_rows {row col endrow} {
5268 global rowidlist rowisopt displayorder curview children
5271 set row 1
5272 }
5275 set haspad 0
5284 } else {
5285 set pprevidlist {}
5286 }
5287 set x0 -1
5288 set xm -1
5293 set haspad 1
5294 continue
5295 }
5299 set isarrow 0
5300 set z0 {}
5305 }
5306 }
5311 set isarrow 1
5312 }
5313 }
5316 set isarrow 1
5317 }
5318 # Looking at lines from this row to the previous row,
5319 # make them go straight up if they end in an arrow on
5320 # the previous row; otherwise make them go straight up
5321 # or at 45 degrees.
5323 # Line currently goes left too much;
5324 # insert pads in the previous row, then optimize it
5329 }
5337 }
5339 # Line currently goes right too much;
5340 # insert pads in this line
5346 set haspad 1
5347 }
5354 }
5355 }
5356 # avoid lines jigging left then immediately right
5359 incr x0
5362 }
5363 }
5365 # Find the first column that doesn't have a line going right
5371 # check if this is the link to the first child
5374 # it is, work out offset to child
5376 }
5377 }
5379 }
5380 # Insert a pad at that column as long as it has a line and
5381 # isn't the last column
5386 }
5387 }
5388 }
5389 }
5391 proc xc {row col} {
5392 global canvx0 linespc
5394 }
5396 proc yc {row} {
5397 global canvy0 linespc
5399 }
5401 proc linewidth {id} {
5402 global thickerline lthickness
5407 }
5409 }
5411 proc rowranges {id} {
5412 global curview children uparrowlen downarrowlen
5413 global rowidlist
5417 return {}
5418 }
5419 set ret {}
5424 if {![info exists prev]} {
5426 } else {
5428 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5429 }
5430 # see if the line extends the whole way from prevrow to row
5434 # it doesn't, see where it ends
5439 } else {
5442 incr r -1
5443 }
5445 # see where it starts up again
5450 } else {
5453 incr r
5454 }
5456 }
5457 }
5460 }
5463 }
5465 }
5467 proc drawlineseg {id row endrow arrowlow} {
5468 global rowidlist displayorder iddrawn linesegs
5469 global canv colormap linespc curview maxlinelen parentlist
5473 set arrowhigh 1
5474 while {1} {
5477 incr le -1
5478 break
5479 }
5483 set arrowhigh 0
5484 break
5485 }
5490 set arrowhigh 0
5491 }
5492 break
5493 }
5494 incr le
5495 }
5498 }
5500 set lines {}
5501 set i 0
5502 set joinhigh 0
5509 set joinhigh 1
5510 }
5511 break
5512 }
5513 incr i
5514 }
5515 }
5516 set joinlow 0
5521 set joinlow 1
5522 }
5523 }
5536 }
5537 } else {
5539 }
5547 set arrowlow 0
5548 }
5549 }
5557 }
5559 }
5562 # join parent line to first child
5573 } else {
5575 }
5583 }
5585 }
5587 } else {
5591 }
5599 } else {
5603 }
5605 }
5606 } else {
5612 }
5616 } else {
5617 # coalesce two pieces
5622 }
5626 }
5627 }
5631 }
5633 proc drawparentlinks {id row} {
5634 global rowidlist canv colormap curview parentlist
5635 global idpos linespc
5648 # rmx = right-most X coord used
5649 set rmx 0
5654 continue
5655 }
5659 }
5662 # drawlineseg will do this one for us
5663 continue
5664 }
5666 # should handle duplicated parents here...
5669 # if attaching to a vertical segment, draw a smaller
5670 # slant for visual distinctness
5674 } else {
5676 }
5678 # segment slants towards us already
5680 } else {
5685 }
5687 }
5688 } else {
5690 }
5695 }
5699 }
5700 }
5702 proc drawlines {id} {
5703 global canv
5706 }
5708 proc drawcmittext {id row col} {
5709 global linespc canv canv2 canv3 fgcolor curview
5710 global cmitlisted commitinfo rowidlist parentlist
5711 global rowtextx idpos idtags idheads idotherrefs
5712 global linehtag linentag linedtag selectedline
5713 global canvxmax boldids boldnameids fgcolor markedid
5714 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5716 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5719 set ofill red
5721 set ofill green
5723 set ofill yellow
5724 } else {
5726 }
5735 # triangle pointing left for left-side commits
5741 } else {
5742 # triangle pointing right for right-side commits
5748 }
5760 }
5761 }
5762 }
5769 }
5774 set font mainfont
5775 set nfont mainfont
5779 set font mainfontbold
5782 set nfont mainfontbold
5783 }
5784 }
5794 }
5797 }
5801 setcanvscroll
5802 }
5803 }
5805 proc drawcmitrow {row} {
5806 global displayorder rowidlist nrows_drawn
5807 global iddrawn markingmatches
5808 global commitinfo numcommits
5809 global filehighlight fhighlights findpattern nhighlights
5810 global hlview vhighlights
5811 global highlight_related rhighlights
5818 }
5821 }
5824 }
5827 }
5832 return
5833 }
5836 }
5840 incr nrows_drawn
5841 }
5844 }
5845 }
5847 proc drawcommits {row {endrow {}}} {
5848 global numcommits iddrawn displayorder curview need_redisplay
5849 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5852 set row 0
5853 }
5856 }
5859 }
5863 set rl1 0
5864 }
5867 set ro1 0
5868 }
5872 }
5877 }
5879 }
5880 }
5883 }
5886 clear_display
5887 }
5889 # make the lines join to already-drawn rows either side
5893 }
5898 }
5913 # see if this is the first child of any of its parents
5916 # make this line extend up to the child
5918 }
5919 }
5920 } else {
5922 }
5923 }
5924 }
5925 }
5927 proc undolayout {row} {
5928 global uparrowlen mingaplen downarrowlen
5929 global rowidlist rowisopt rowfinal need_redisplay
5933 set r 0
5934 }
5936 incr r -1
5940 set need_redisplay 1
5941 run drawvisible
5942 }
5943 }
5945 proc drawvisible {} {
5946 global canv linespc curview vrowmod selectedline targetrow targetid
5947 global need_redisplay cscroll numcommits
5957 if {[info exists targetid]} {
5961 # Fix up the scrollregion and change the scrolling position
5962 # now that our target row has moved.
5965 setcanvscroll
5973 set need_redisplay 1
5974 }
5975 } else {
5976 unset targetid
5977 }
5978 }
5984 }
5988 } elseif {[info exists targetid]} {
5990 }
5991 if {[info exists targetrow]} {
5994 }
5996 }
5998 }
6000 proc clear_display {} {
6001 global iddrawn linesegs need_redisplay nrows_drawn
6002 global vhighlights fhighlights nhighlights rhighlights
6003 global linehtag linentag linedtag boldids boldnameids
6005 allcanvs delete all
6006 catch {unset iddrawn}
6007 catch {unset linesegs}
6008 catch {unset linehtag}
6009 catch {unset linentag}
6010 catch {unset linedtag}
6011 set boldids {}
6012 set boldnameids {}
6013 catch {unset vhighlights}
6014 catch {unset fhighlights}
6015 catch {unset nhighlights}
6016 catch {unset rhighlights}
6017 set need_redisplay 0
6018 set nrows_drawn 0
6019 }
6021 proc findcrossings {id} {
6022 global rowidlist parentlist numcommits displayorder
6024 set cross {}
6025 set ccross {}
6029 }
6048 }
6049 }
6050 }
6051 }
6052 }
6054 }
6056 proc assigncolor {id} {
6057 global colormap colors nextcolor
6058 global parents children children curview
6064 } else {
6065 set kids {}
6066 }
6072 return
6073 }
6074 }
6075 set badcolors {}
6076 set origbad {}
6079 # delimiter between corner crossings and other crossings
6082 }
6086 }
6087 }
6090 }
6097 }
6102 }
6103 }
6104 }
6107 }
6108 }
6112 set nextcolor 0
6113 }
6115 }
6117 }
6119 proc bindline {t id} {
6120 global canv
6126 }
6128 proc drawtags {id x xt y1} {
6129 global idtags idheads idotherrefs mainhead
6130 global linespc lthickness
6131 global canv rowtextx curview fgcolor bgcolor ctxbut
6133 set marks {}
6134 set ntags 0
6135 set nheads 0
6139 }
6143 }
6146 }
6149 }
6154 set xvals {}
6155 set wvals {}
6156 set i -1
6158 incr i
6161 } else {
6163 }
6167 }
6174 set font mainfont
6175 if {[incr ntags -1] >= 0} {
6176 # draw a tag
6182 } else {
6183 # draw a head or other ref
6184 if {[incr nheads -1] >= 0} {
6185 set col green
6187 set font mainfontbold
6188 }
6189 } else {
6190 set col "#ddddff"
6191 }
6202 }
6203 }
6210 }
6211 }
6213 }
6215 proc xcoord {i level ln} {
6216 global canvx0 xspc1 xspc2
6223 }
6225 }
6227 proc show_status {msg} {
6228 global canv fgcolor
6230 clear_display
6233 }
6235 # Don't change the text pane cursor if it is currently the hand cursor,
6236 # showing that we are over a sha1 ID link.
6237 proc settextcursor {c} {
6238 global ctext curtextcursor
6242 }
6244 }
6246 proc nowbusy {what {name {}}} {
6247 global isbusy busyname statusw
6249 if {[array names isbusy] eq {}} {
6250 . config -cursor watch
6251 settextcursor watch
6252 }
6257 }
6258 }
6260 proc notbusy {what} {
6261 global isbusy maincursor textcursor busyname statusw
6263 catch {
6268 }
6269 }
6270 if {[array names isbusy] eq {}} {
6273 }
6274 }
6276 proc findmatches {f} {
6277 global findtype findstring
6280 } else {
6285 }
6286 set matches {}
6287 set i 0
6292 }
6293 }
6295 }
6297 proc dofind {{dirn 1} {wrap 1}} {
6298 global findstring findstartline findcurline selectedline numcommits
6299 global gdttype filehighlight fh_serial find_dirn findallowwrap
6301 if {[info exists find_dirn]} {
6303 stopfinding
6304 }
6305 focus .
6309 } else {
6311 }
6313 nowbusy finding [mc "Searching"]
6317 }
6320 run findmore
6321 }
6323 proc stopfinding {} {
6324 global find_dirn findcurline fprogcoord
6326 if {[info exists find_dirn]} {
6327 unset find_dirn
6328 unset findcurline
6329 notbusy finding
6330 set fprogcoord 0
6331 adjustprogress
6332 }
6333 stopblaming
6334 }
6336 proc findmore {} {
6337 global commitdata commitinfo numcommits findpattern findloc
6338 global findstartline findcurline findallowwrap
6339 global find_dirn gdttype fhighlights fprogcoord
6340 global curview varcorder vrownum varccommits vrowmod
6342 if {![info exists find_dirn]} {
6343 return 0
6344 }
6345 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6347 set moretodo 0
6349 incr l
6351 set l 0
6352 }
6355 } else {
6358 }
6359 } else {
6362 }
6363 incr l -1
6366 } else {
6367 set lim -1
6369 }
6370 }
6373 set n 500
6374 set moretodo 1
6375 }
6378 }
6379 set found 0
6380 set domore 1
6394 }
6396 # shouldn't happen unless git log doesn't give all the commits...
6399 continue
6400 }
6403 }
6408 set found 1
6409 break
6410 }
6411 }
6413 }
6414 } else {
6422 }
6427 }
6430 break
6431 }
6434 set domore 0
6436 }
6437 }
6438 }
6439 }
6441 unset findcurline
6442 unset find_dirn
6443 notbusy finding
6444 set fprogcoord 0
6445 adjustprogress
6448 } else {
6449 bell
6450 }
6451 return 0
6452 }
6454 flushhighlights
6455 } else {
6457 }
6461 }
6463 adjustprogress
6465 }
6467 proc findselectline {l} {
6468 global findloc commentend ctext findcurline markingmatches gdttype
6475 # highlight the matches in the comments
6482 }
6483 }
6484 drawvisible
6485 }
6487 # mark the bits of a headline or author that match a find string
6488 proc markmatches {canv l str tag matches font row} {
6489 global selectedline
6507 }
6508 }
6509 }
6511 proc unmarkmatches {} {
6512 global markingmatches
6514 allcanvs delete matches
6515 set markingmatches 0
6516 stopfinding
6517 }
6519 proc selcanvline {w x y} {
6520 global canv canvy0 ctext linespc
6521 global rowtextx
6528 set l 0
6529 }
6534 }
6535 unmarkmatches
6537 }
6539 proc commit_descriptor {p} {
6540 global commitinfo
6543 }
6544 set l "..."
6547 }
6549 }
6551 # append some text to the ctext widget, and make any SHA1 ID
6552 # that we know about be a clickable link.
6553 proc appendwithlinks {text tags} {
6554 global ctext linknum curview
6563 incr e
6567 incr linknum
6568 }
6569 }
6571 proc setlink {id lk} {
6572 global curview ctext pendinglinks
6574 set known 0
6579 set known 1
6581 }
6582 } else {
6584 }
6590 } else {
6593 }
6594 }
6596 proc appendshortlink {id {pre {}} {post {}}} {
6597 global ctext linknum
6604 incr linknum
6605 }
6607 proc makelink {id} {
6608 global pendinglinks
6613 }
6615 }
6617 proc linkcursor {w inc} {
6618 global linkentercount curtextcursor
6622 } else {
6625 set linkentercount 0
6626 }
6627 }
6628 }
6630 proc viewnextline {dir} {
6631 global canv linespc
6639 set newtop 0
6642 }
6644 }
6646 # add a list of tag or branch names at position pos
6647 # returns the number of names inserted
6648 proc appendrefs {pos ids var} {
6652 return 0
6653 }
6656 set tags {}
6660 }
6661 }
6664 } else {
6666 set sep {}
6670 incr linknum
6675 set sep ", "
6676 }
6677 }
6680 }
6682 # called when we have finished computing the nearby tags
6683 proc dispneartags {delay} {
6684 global selectedline currentid showneartags tagphase
6687 after cancel dispnexttag
6689 after 200 dispnexttag
6690 set tagphase -1
6691 } else {
6692 after idle dispnexttag
6693 set tagphase 0
6694 }
6695 }
6697 proc dispnexttag {} {
6698 global selectedline currentid showneartags tagphase ctext
6702 0 {
6706 }
6707 }
6708 1 {
6712 }
6713 }
6714 2 {
6719 # turn "Branch" into "Branches"
6723 }
6724 }
6725 }
6726 }
6727 if {[incr tagphase] <= 2} {
6728 after idle dispnexttag
6729 }
6730 }
6732 proc make_secsel {id} {
6733 global linehtag linentag linedtag canv canv2 canv3
6748 }
6750 proc make_idmark {id} {
6751 global linehtag canv fgcolor
6758 }
6760 proc selectline {l isnew {desired_loc {}}} {
6761 global canv ctext commitinfo selectedline
6762 global canvy0 linespc parents children curview
6763 global currentid sha1entry
6764 global commentend idtags linknum
6765 global mergemax numcommits pending_select
6766 global cmitmode showneartags allcommits
6767 global targetrow targetid lastscrollrows
6768 global autoselect jump_to_here
6770 catch {unset pending_select}
6772 normalline
6773 unsel_reflist
6774 stopfinding
6782 setcanvscroll
6783 }
6797 } else {
6801 }
6802 }
6806 } else {
6810 }
6811 }
6812 }
6815 set newtop 0
6816 }
6818 drawvisible
6819 }
6825 }
6831 }
6835 clear_ctext
6836 set linknum 0
6839 }
6849 }
6851 }
6853 set headers {}
6856 set np 0
6859 set tag mmax
6860 } else {
6862 }
6865 incr np
6866 }
6867 } else {
6870 }
6871 }
6875 }
6877 # make anything that looks like a SHA1 ID be a clickable link
6880 if {![info exists allcommits]} {
6881 getallcommits
6882 }
6893 dispneartags 1
6894 }
6899 }
6907 init_flist [mc "Comments"]
6912 } else {
6914 }
6915 }
6917 proc selfirstline {} {
6918 unmarkmatches
6919 selectline 0 1
6920 }
6922 proc sellastline {} {
6923 global numcommits
6924 unmarkmatches
6927 }
6929 proc selnextline {dir} {
6930 global selectedline
6931 focus .
6934 unmarkmatches
6936 }
6938 proc selnextpage {dir} {
6939 global canv linespc selectedline numcommits
6943 set lpp 1
6944 }
6946 drawvisible
6950 set l 0
6953 }
6954 unmarkmatches
6956 }
6958 proc unselectline {} {
6959 global selectedline currentid
6961 set selectedline {}
6962 catch {unset currentid}
6963 allcanvs delete secsel
6964 rhighlight_none
6965 }
6967 proc reselectline {} {
6968 global selectedline
6972 }
6973 }
6975 proc addtohistory {cmd {saveproc {}}} {
6976 global history historyindex curview
6978 unset_posvars
6979 save_position
6983 return
6984 }
6988 } else {
6990 }
6991 incr historyindex
6993 .tf.bar.leftbut conf -state normal
6994 } else {
6995 .tf.bar.leftbut conf -state disabled
6996 }
6997 .tf.bar.rightbut conf -state disabled
6998 }
7000 # save the scrolling position of the diff display pane
7001 proc save_position {} {
7002 global historyindex history
7009 }
7010 }
7012 proc unset_posvars {} {
7013 global last_posvars
7015 if {[info exists last_posvars]} {
7019 }
7020 unset last_posvars
7021 }
7022 }
7024 proc godo {elt} {
7025 global curview last_posvars
7032 }
7033 unset_posvars
7037 }
7040 }
7042 proc goback {} {
7043 global history historyindex
7044 focus .
7047 save_position
7048 incr historyindex -1
7050 .tf.bar.rightbut conf -state normal
7051 }
7053 .tf.bar.leftbut conf -state disabled
7054 }
7055 }
7057 proc goforw {} {
7058 global history historyindex
7059 focus .
7062 save_position
7064 incr historyindex
7066 .tf.bar.leftbut conf -state normal
7067 }
7069 .tf.bar.rightbut conf -state disabled
7070 }
7071 }
7073 proc gettree {id} {
7074 global treefilelist treeidlist diffids diffmergeid treepending
7075 global nullid nullid2
7078 catch {unset diffmergeid}
7080 if {![info exists treepending]} {
7082 set cmd [list | git ls-files]
7084 set cmd [list | git ls-files --stage -t]
7085 } else {
7087 }
7089 return
7090 }
7096 }
7097 } else {
7099 }
7100 }
7102 proc gettreeline {gtf id} {
7103 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7105 set nl 0
7109 } else {
7117 }
7120 }
7123 }
7126 }
7128 unset treepending
7130 if {![info exists diffmergeid]} {
7132 }
7135 } else {
7137 }
7138 return 0
7139 }
7141 proc showfile {f} {
7142 global treefilelist treeidlist diffids nullid nullid2
7143 global ctext_file_names ctext_file_lines
7144 global ctext commentend
7149 return
7150 }
7154 return
7155 }
7156 } else {
7160 return
7161 }
7162 }
7173 settabs 0
7174 }
7176 proc getblobline {bf id} {
7177 global diffids cmitmode ctext
7181 return 0
7182 }
7184 set nl 0
7187 }
7189 global jump_to_here ctext_file_names commentend
7191 # delete last newline
7199 }
7200 return 0
7201 }
7204 }
7206 proc mark_ctext_line {lnum} {
7207 global ctext markbgcolor
7213 }
7215 proc mergediff {id} {
7216 global diffmergeid
7217 global diffids treediffs
7218 global parents curview
7226 }
7228 proc startdiff {ids} {
7229 global treediffs diffids treepending diffmergeid nullid nullid2
7231 settabs 1
7233 catch {unset diffmergeid}
7237 if {![info exists treepending]} {
7239 }
7240 } else {
7242 }
7243 }
7245 proc path_filter {filter name} {
7250 return 1
7251 }
7252 } else {
7256 return 1
7257 }
7258 }
7259 }
7260 return 0
7261 }
7263 proc addtocflist {ids} {
7264 global treediffs
7268 }
7270 proc diffcmd {ids flags} {
7271 global nullid nullid2
7277 # comparing working directory with some specific revision
7281 } else {
7283 }
7284 } else {
7285 # comparing working directory with index
7288 lappend cmd -R
7289 }
7290 }
7294 # comparing index with specific revision
7297 } else {
7299 }
7300 } else {
7301 # comparing index with HEAD
7302 lappend cmd HEAD
7303 }
7304 } else {
7306 }
7308 }
7310 proc gettreediffs {ids} {
7311 global treediff treepending
7316 set treediff {}
7319 }
7321 proc gettreediffline {gdtf ids} {
7322 global treediff treediffs treepending diffids diffmergeid
7323 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7325 set nr 0
7326 set sublist {}
7327 set max 1000
7329 # cache_gitattr is slow, and even slower on win32 where we
7330 # have to invoke it for only about 30 paths at a time
7331 set max 500
7332 if {[tk windowingsystem] == "win32"} {
7333 set max 120
7334 }
7335 }
7342 }
7347 }
7348 }
7349 }
7352 }
7355 }
7358 set flist {}
7362 }
7363 }
7365 } else {
7367 }
7368 unset treepending
7372 if {![info exists diffmergeid]} {
7374 }
7375 } else {
7377 }
7378 return 0
7379 }
7381 # empty string or positive integer
7382 proc diffcontextvalidate {v} {
7384 }
7386 proc diffcontextchange {n1 n2 op} {
7387 global diffcontextstring diffcontext
7392 reselectline
7393 }
7394 }
7395 }
7397 proc changeignorespace {} {
7398 reselectline
7399 }
7401 proc getblobdiffs {ids} {
7402 global blobdifffd diffids env
7403 global diffinhdr treediffs
7404 global diffcontext
7405 global ignorespace
7406 global limitdiffs vfilelimit curview
7407 global diffencoding targetline diffnparents
7411 append cmd " -w"
7412 }
7415 }
7418 return
7419 }
7420 set targetline {}
7421 set diffnparents 0
7422 set diffinhdr 0
7423 set diffencoding [get_path_encoding {}]
7427 }
7429 proc savecmitpos {} {
7430 global ctext cmitmode
7433 return {}
7434 }
7436 }
7438 proc savectextpos {} {
7439 global ctext
7442 }
7444 proc maybe_scroll_ctext {ateof} {
7445 global ctext target_scrollpos
7447 if {![info exists target_scrollpos]} return
7450 / [font metrics textfont -linespace]}]
7452 }
7454 unset target_scrollpos
7455 }
7457 proc setinlist {var i val} {
7462 }
7465 } else {
7467 }
7468 }
7470 proc makediffhdr {fname ids} {
7471 global ctext curdiffstart treediffs diffencoding
7472 global ctext_file_names jump_to_here targetline diffline
7479 }
7484 set targetline {}
7487 }
7488 set diffline 0
7489 }
7491 proc getblobdiffline {bdf ids} {
7492 global diffids blobdifffd ctext curdiffstart
7493 global diffnexthead diffnextnote difffilestart
7494 global ctext_file_names ctext_file_lines
7495 global diffinhdr treediffs mergemax diffnparents
7496 global diffencoding jump_to_here targetline diffline
7498 set nr 0
7503 return 0
7504 }
7509 continue
7510 }
7511 # start of a new file
7512 set diffinhdr 1
7515 lappend ctext_file_names ""
7520 # start of a new file in a merge diff
7525 }
7527 } else {
7529 # If the name hasn't changed the length will be odd,
7530 # the middle char will be a space, and the two bits either
7531 # side will be a/name and b/name, or "a/name" and "b/name".
7532 # If the name has changed we'll get "rename from" and
7533 # "rename to" or "copy from" and "copy to" lines following
7534 # this, and we'll use them to get the filenames.
7535 # This complexity is necessary because spaces in the
7536 # filename(s) don't get escaped.
7542 continue
7543 }
7544 # unescape if quoted and chop off the a/ from the front
7547 } else {
7549 }
7550 }
7563 }
7571 }
7573 set diffinhdr 0
7580 }
7585 }
7591 }
7594 # do nothing
7595 continue
7597 set diffinhdr 0
7598 continue
7599 }
7602 } else {
7603 set line [string map {\x1A ^Z} \
7605 # parse the prefix - one ' ', '-' or '+' for each parent
7609 # prefix only has " ", "-" and "+" in it: normal diff line
7614 set num "max"
7615 }
7617 } else {
7618 set tags {}
7620 # added line
7626 set num "max"
7627 }
7629 }
7630 }
7631 }
7635 set targetline {}
7636 } else {
7637 incr diffline
7638 }
7639 }
7641 }
7642 } else {
7643 # "\ No newline at end of file",
7644 # or something else we don't recognize
7646 }
7647 }
7648 }
7649 if {[info exists seehere]} {
7651 }
7656 return 0
7657 }
7659 }
7661 proc changediffdisp {} {
7662 global ctext diffelide
7666 }
7668 proc highlightfile {loc cline} {
7669 global ctext cflist cflist_top
7676 }
7678 proc prevfile {} {
7679 global difffilestart ctext cmitmode
7682 set prev 0.0
7683 set prevline 1
7688 return
7689 }
7691 incr prevline
7692 }
7694 }
7696 proc nextfile {} {
7697 global difffilestart ctext cmitmode
7701 set line 1
7703 incr line
7706 return
7707 }
7708 }
7709 }
7711 proc clear_ctext {{first 1.0}} {
7712 global ctext smarktop smarkbot
7713 global ctext_file_names ctext_file_lines
7714 global pendinglinks
7719 }
7722 }
7725 catch {unset pendinglinks}
7726 }
7727 set ctext_file_names {}
7728 set ctext_file_lines {}
7729 }
7731 proc settabs {{firstab {}}} {
7732 global firsttabstop tabstop ctext have_tk85
7736 }
7737 set w [font measure textfont "0"]
7743 } else {
7745 }
7746 }
7748 proc incrsearch {name ix op} {
7749 global ctext searchstring searchdirn
7753 # no anchor set, use start of selection, or of visible area
7759 } else {
7761 }
7762 }
7767 }
7768 searchmarkvisible 1
7769 }
7770 }
7772 proc dosearch {} {
7773 global sstring ctext searchstring searchdirn
7777 set searchdirn -forwards
7783 set start "@0,0"
7784 }
7788 bell
7789 return
7790 }
7795 }
7796 }
7798 proc dosearchback {} {
7799 global sstring ctext searchstring searchdirn
7803 set searchdirn -backwards
7810 }
7814 bell
7815 return
7816 }
7821 }
7822 }
7824 proc searchmark {first last} {
7825 global ctext searchstring
7828 while {1} {
7833 }
7834 }
7836 proc searchmarkvisible {doall} {
7837 global ctext smarktop smarkbot
7842 # no overlap with previous
7846 } else {
7850 }
7854 }
7855 }
7856 }
7858 proc scrolltext {f0 f1} {
7859 global searchstring
7863 searchmarkvisible 0
7864 }
7865 }
7867 proc setcoords {} {
7868 global linespc charspc canvx0 canvy0
7869 global xspc1 xspc2 lthickness
7871 set linespc [font metrics mainfont -linespace]
7872 set charspc [font measure mainfont "m"]
7878 }
7880 proc redisplay {} {
7881 global canv
7882 global selectedline
7887 clear_display
7888 setcanvscroll
7890 drawvisible
7894 }
7895 }
7897 proc parsefont {f n} {
7898 global fontattr
7903 set s 10
7906 }
7912 "normal" -
7914 "roman" -
7916 }
7917 }
7918 }
7920 proc fontflags {f {isbold 0}} {
7921 global fontattr
7926 }
7928 proc fontname {f} {
7929 global fontattr
7933 lappend n "bold"
7934 }
7936 lappend n "italic"
7937 }
7939 }
7941 proc incrfont {inc} {
7942 global mainfont textfont ctext canv cflist showrefstop
7943 global stopped entries fontattr
7945 unmarkmatches
7949 set s 1
7950 }
7954 set mainfont [fontname mainfont]
7958 set s 1
7959 }
7963 set textfont [fontname textfont]
7964 setcoords
7965 settabs
7966 redisplay
7967 }
7969 proc clearsha1 {} {
7970 global sha1entry sha1string
7973 }
7974 }
7976 proc sha1change {n1 n2 op} {
7977 global sha1string currentid sha1but
7980 set state disabled
7981 } else {
7982 set state normal
7983 }
7987 } else {
7989 }
7990 }
7992 proc gotocommit {} {
7993 global sha1string tagids headids curview varcid
8001 } else {
8008 return
8009 }
8011 }
8012 }
8013 }
8016 return
8017 }
8020 } else {
8022 }
8024 }
8026 proc lineenter {x y id} {
8027 global hoverx hovery hoverid hovertimer
8028 global commitinfo canv
8034 if {[info exists hovertimer]} {
8036 }
8037 set hovertimer [after 500 linehover]
8039 }
8041 proc linemotion {x y id} {
8042 global hoverx hovery hoverid hovertimer
8047 if {[info exists hovertimer]} {
8049 }
8050 set hovertimer [after 500 linehover]
8051 }
8052 }
8054 proc lineleave {id} {
8055 global hoverid hovertimer canv
8059 if {[info exists hovertimer]} {
8061 unset hovertimer
8062 }
8063 unset hoverid
8064 }
8065 }
8067 proc linehover {} {
8068 global hoverx hovery hoverid hovertimer
8069 global canv linespc lthickness
8070 global commitinfo
8083 -fill \#ffff80 -outline black -width 1 -tags hover]
8086 -font mainfont]
8088 }
8090 proc clickisonarrow {id y} {
8091 global lthickness
8100 }
8101 }
8102 return {}
8103 }
8105 proc arrowjump {id n y} {
8106 global canv
8108 # 1 <-> 2, 3 <-> 4, etc...
8118 set yfrac 0
8119 }
8121 }
8123 proc lineclick {x y id isnew} {
8124 global ctext commitinfo children canv thickerline curview
8127 unmarkmatches
8128 unselectline
8129 normalline
8131 # draw this line thicker than normal
8139 }
8143 return
8144 }
8148 }
8149 # fill the details pane with info about this line
8151 clear_ctext
8152 settabs 0
8164 set i 0
8166 incr i
8176 }
8177 }
8178 maybe_scroll_ctext 1
8180 init_flist {}
8181 }
8183 proc normalline {} {
8184 global thickerline
8185 if {[info exists thickerline]} {
8187 unset thickerline
8189 }
8190 }
8192 proc selbyid {id {isnew 1}} {
8193 global curview
8196 }
8197 }
8199 proc mstime {} {
8200 global startmstime
8201 if {![info exists startmstime]} {
8202 set startmstime [clock clicks -milliseconds]
8203 }
8205 }
8207 proc rowmenu {x y id} {
8208 global rowctxmenu selectedline rowmenuid curview
8209 global nullid nullid2 fakerowmenu mainhead markedid
8211 stopfinding
8214 set state disabled
8215 } else {
8216 set state normal
8217 }
8222 } else {
8224 }
8229 } else {
8233 }
8234 } else {
8236 }
8241 }
8243 proc markhere {} {
8244 global rowmenuid markedid canv
8248 }
8250 proc gotomark {} {
8251 global markedid
8253 if {[info exists markedid]} {
8255 }
8256 }
8258 proc replace_by_kids {l r} {
8259 global curview children
8265 }
8267 }
8269 proc find_common_desc {} {
8270 global markedid rowmenuid curview children
8272 if {![info exists markedid]} return
8275 #set t1 [clock clicks -milliseconds]
8278 while 1 {
8284 break
8285 }
8288 } else {
8290 }
8291 }
8292 #set t2 [clock clicks -milliseconds]
8294 }
8296 proc compare_commits {} {
8297 global markedid rowmenuid curview children
8299 if {![info exists markedid]} return
8303 }
8305 proc getpatchid {id} {
8306 global patchids
8310 # trim off the initial "|"
8312 if {[catch {
8315 }]} {
8317 }
8318 }
8320 }
8322 proc do_cmp_commits {a b} {
8323 global ctext curview parents children patchids commitinfo
8326 clear_ctext
8327 init_flist {}
8329 set skipa 0
8330 set skipb 0
8333 set skipa 1
8334 } else {
8336 }
8339 set skipb 1
8340 } else {
8342 }
8348 [mc " - stopping\n"]
8349 break
8350 }
8353 [mc " - stopping\n"]
8354 break
8355 }
8360 } else {
8364 }
8365 set skipa 1
8366 set skipb 1
8367 } else {
8373 break
8374 }
8375 }
8380 [mc " has %s children - stopping\n" \
8382 break
8383 }
8385 }
8389 [mc " has %s children - stopping\n" \
8391 break
8392 }
8394 }
8395 }
8397 }
8399 proc diffvssel {dirn} {
8400 global rowmenuid selectedline
8406 } else {
8409 }
8412 }
8414 proc doseldiff {oldid newid} {
8415 global ctext
8416 global commitinfo
8419 clear_ctext
8420 init_flist [mc "Top"]
8435 }
8437 proc mkpatch {} {
8438 global rowmenuid currentid commitinfo patchtop patchnum NS
8440 if {![info exists currentid]} return
8445 set top .patch
8475 incr patchnum
8487 }
8489 proc mkpatchrev {} {
8490 global patchtop
8496 foreach e [list fromsha1 fromhead tosha1 tohead] \
8502 }
8503 }
8505 proc mkpatchgo {} {
8506 global patchtop nullid nullid2
8512 # trim off the initial "|"
8517 }
8519 unset patchtop
8520 }
8522 proc mkpatchcan {} {
8523 global patchtop
8526 unset patchtop
8527 }
8529 proc mktag {} {
8530 global rowmenuid mktagtop commitinfo NS
8532 set top .maketag
8561 }
8563 proc domktag {} {
8564 global mktagtop env tagids idtags
8570 return 0
8571 }
8574 return 0
8575 }
8576 if {[catch {
8578 } err]} {
8580 return 0
8581 }
8587 dispneartags 0
8588 run refill_reflist
8589 return 1
8590 }
8592 proc redrawtags {id} {
8593 global canv linehtag idpos currentid curview cmitlisted markedid
8594 global canvxmax iddrawn circleitem mainheadid circlecolors
8600 set ofill yellow
8601 } else {
8603 }
8613 setcanvscroll
8614 }
8617 }
8620 }
8621 }
8623 proc mktagcan {} {
8624 global mktagtop
8627 unset mktagtop
8628 }
8630 proc mktaggo {} {
8631 if {![domktag]} return
8632 mktagcan
8633 }
8635 proc writecommit {} {
8636 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8638 set top .writecommit
8671 }
8673 proc wrcomgo {} {
8674 global wrcomtop
8681 }
8683 unset wrcomtop
8684 }
8686 proc wrcomcan {} {
8687 global wrcomtop
8690 unset wrcomtop
8691 }
8693 proc mkbranch {} {
8694 global rowmenuid mkbrtop NS
8696 set top .makebranch
8720 }
8722 proc mkbrgo {top} {
8723 global headids idheads
8727 set cmdargs {}
8728 set old_id {}
8731 return
8732 }
8734 if {![confirm_popup [mc \
8736 return
8737 }
8739 lappend cmdargs -f
8740 }
8743 nowbusy newbranch
8744 update
8745 if {[catch {
8747 } err]} {
8748 notbusy newbranch
8750 } else {
8751 notbusy newbranch
8757 } else {
8762 }
8763 dispneartags 0
8764 run refill_reflist
8765 }
8766 }
8768 proc exec_citool {tool_args {baseid {}}} {
8769 global commitinfo env
8771 set save_env [array get env GIT_AUTHOR_*]
8776 }
8779 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8785 }
8786 }
8790 array unset env GIT_AUTHOR_*
8792 }
8794 proc cherrypick {} {
8795 global rowmenuid curview
8796 global mainhead mainheadid
8798 set oldhead [exec git rev-parse HEAD]
8801 set ok [confirm_popup [mc "Commit %s is already\
8802 included in branch %s -- really re-apply it?" \
8805 }
8806 nowbusy cherrypick [mc "Cherry-picking"]
8807 update
8808 # Unfortunately git-cherry-pick writes stuff to stderr even when
8809 # no error occurs, and exec takes that as an indication of error...
8811 notbusy cherrypick
8812 if {[regexp -line \
8813 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8815 error_popup [mc "Cherry-pick failed because of local changes\
8816 to file '%s'.\nPlease commit, reset or stash\
8818 } elseif {[regexp -line \
8819 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8821 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8822 conflict.\nDo you wish to run git citool to\
8823 resolve it?"]]} {
8824 # Force citool to read MERGE_MSG
8825 file delete [file join [gitdir] "GITGUI_MSG"]
8827 }
8828 } else {
8830 }
8831 run updatecommits
8832 return
8833 }
8834 set newhead [exec git rev-parse HEAD]
8836 notbusy cherrypick
8837 error_popup [mc "No changes committed"]
8838 return
8839 }
8842 # XXX this isn't right if we have a path limit...
8847 }
8852 }
8853 notbusy cherrypick
8854 }
8856 proc resethead {} {
8857 global mainhead rowmenuid confirm_ok resettype NS
8859 set confirm_ok 0
8860 set w ".confirmreset"
8868 set resettype mixed
8870 -text [mc "Soft: Leave working tree and index untouched"]
8873 -text [mc "Mixed: Leave working tree untouched, reset index"]
8876 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8887 if {[catch {set fd [open \
8890 } else {
8891 dohidelocalchanges
8893 nowbusy reset [mc "Resetting"]
8895 }
8896 }
8898 proc readresetstat {fd} {
8899 global mainhead mainheadid showlocalchanges rprogcoord
8904 adjustprogress
8905 }
8906 return 1
8907 }
8908 set rprogcoord 0
8909 adjustprogress
8910 notbusy reset
8913 }
8915 set newhead [exec git rev-parse HEAD]
8922 }
8924 doshowlocalchanges
8925 }
8926 return 0
8927 }
8929 # context menu for a head
8930 proc headmenu {x y id head} {
8931 global headmenuid headmenuhead headctxmenu mainhead
8933 stopfinding
8936 set state normal
8938 set state disabled
8939 }
8943 }
8945 proc cobranch {} {
8946 global headmenuid headmenuhead headids
8947 global showlocalchanges
8949 # check the tree is clean first??
8950 nowbusy checkout [mc "Checking out"]
8951 update
8952 dohidelocalchanges
8953 if {[catch {
8955 } err]} {
8956 notbusy checkout
8959 dodiffindex
8960 }
8961 } else {
8963 }
8964 }
8966 proc readcheckoutstat {fd newhead newheadid} {
8967 global mainhead mainheadid headids showlocalchanges progresscoords
8968 global viewmainheadid curview
8973 adjustprogress
8974 }
8975 return 1
8976 }
8977 set progresscoords {0 0}
8978 adjustprogress
8979 notbusy checkout
8982 }
8991 dodiffindex
8992 }
8993 }
8995 proc rmbranch {} {
8996 global headmenuid headmenuhead mainhead
8997 global idheads
9001 # this check shouldn't be needed any more...
9003 error_popup [mc "Cannot delete the currently checked-out branch"]
9004 return
9005 }
9008 # the stuff on this branch isn't on any other branch
9009 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9011 }
9012 nowbusy rmbranch
9013 update
9015 notbusy rmbranch
9017 return
9018 }
9022 notbusy rmbranch
9023 dispneartags 0
9024 run refill_reflist
9025 }
9027 # Display a list of tags and heads
9028 proc showrefs {} {
9029 global showrefstop bgcolor fgcolor selectbgcolor NS
9030 global bglist fglist reflistfilter reflist maincursor
9032 set top .showrefs
9036 refill_reflist
9037 return
9038 }
9046 -spacing1 1 -spacing3 1 -state disabled
9057 set reflistfilter "*"
9058 trace add variable reflistfilter write reflistfilter_change
9070 set reflist {}
9071 refill_reflist
9072 }
9074 proc sel_reflist {w x y} {
9075 global showrefstop reflist headids tagids otherrefids
9085 }
9087 }
9089 proc unsel_reflist {} {
9090 global showrefstop
9094 }
9096 proc reflistfilter_change {n1 n2 op} {
9097 global reflistfilter
9099 after cancel refill_reflist
9100 after 200 refill_reflist
9101 }
9103 proc refill_reflist {} {
9104 global reflist reflistfilter showrefstop headids tagids otherrefids
9105 global curview
9108 set refs {}
9109 foreach n [array names headids] {
9113 } else {
9115 }
9116 }
9117 }
9118 foreach n [array names tagids] {
9122 } else {
9124 }
9125 }
9126 }
9127 foreach n [array names otherrefids] {
9131 } else {
9133 }
9134 }
9135 }
9143 set i 0
9144 set j 0
9153 }
9154 } else {
9155 set cmp -1
9156 }
9157 } else {
9158 set cmp 1
9159 }
9161 -1 {
9163 incr i
9164 }
9165 0 {
9166 incr i
9167 incr j
9168 }
9169 1 {
9174 incr j
9175 }
9176 }
9177 }
9179 # delete last newline
9182 }
9184 # Stuff for finding nearby tags
9185 proc getallcommits {} {
9186 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9187 global idheads idtags idotherrefs allparents tagobjid
9189 if {![info exists allcommits]} {
9190 set nextarc 0
9191 set allcommits 0
9192 set seeds {}
9193 set allcwait 0
9194 set cachedarcs 0
9195 set allccache [file join [gitdir] "gitk.cache"]
9196 if {![catch {
9198 set allcwait 1
9200 }]} return
9201 }
9204 return
9205 }
9206 set cmd [list | git rev-list --parents]
9209 set ids "--all"
9210 } else {
9211 set refs [concat [array names idheads] [array names idtags] \
9212 [array names idotherrefs]]
9213 set ids {}
9214 set tagobjs {}
9215 foreach name [array names tagobjid] {
9217 }
9222 }
9223 }
9227 }
9228 }
9229 }
9233 incr allcommits
9234 nowbusy allcommits
9236 } else {
9237 dispneartags 0
9238 }
9239 }
9241 # Since most commits have 1 parent and 1 child, we group strings of
9242 # such commits into "arcs" joining branch/merge points (BMPs), which
9243 # are commits that either don't have 1 parent or don't have 1 child.
9244 #
9245 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9246 # arcout(id) - outgoing arcs for BMP
9247 # arcids(a) - list of IDs on arc including end but not start
9248 # arcstart(a) - BMP ID at start of arc
9249 # arcend(a) - BMP ID at end of arc
9250 # growing(a) - arc a is still growing
9251 # arctags(a) - IDs out of arcids (excluding end) that have tags
9252 # archeads(a) - IDs out of arcids (excluding end) that have heads
9253 # The start of an arc is at the descendent end, so "incoming" means
9254 # coming from descendents, and "outgoing" means going towards ancestors.
9256 proc getallclines {fd} {
9257 global allparents allchildren idtags idheads nextarc
9258 global arcnos arcids arctags arcout arcend arcstart archeads growing
9259 global seeds allcommits cachedarcs allcupdate
9261 set nid 0
9265 # seen it already
9266 continue
9267 }
9268 set cachedarcs 0
9275 } else {
9281 }
9284 }
9286 # seen parent already
9289 }
9293 }
9296 continue
9297 }
9298 }
9303 }
9305 set ao {}
9308 set a [incr nextarc]
9317 # seen it already, may need to make a new branch
9320 }
9324 }
9326 }
9328 }
9330 global cached_dheads cached_dtags cached_atags
9331 catch {unset cached_dheads}
9332 catch {unset cached_dtags}
9333 catch {unset cached_atags}
9334 }
9337 }
9338 set cacheok 1
9339 if {[catch {
9342 } err]} {
9343 # got an error reading the list of commits
9344 # if we were updating, try rereading the whole thing again
9346 incr allcommits -1
9348 return
9349 }
9350 error_popup "[mc "Error reading commit topology information;\
9351 branch and preceding/following tag information\
9353 set cacheok 0
9354 }
9355 if {[incr allcommits -1] == 0} {
9356 notbusy allcommits
9358 run savecache
9359 }
9360 }
9361 dispneartags 0
9362 return 0
9363 }
9365 proc recalcarc {a} {
9366 global arctags archeads arcids idtags idheads
9368 set at {}
9369 set ah {}
9373 }
9376 }
9377 }
9380 }
9382 proc splitarc {p} {
9383 global arcnos arcids nextarc arctags archeads idtags idheads
9384 global arcstart arcend arcout allparents growing
9389 return
9390 }
9395 return
9396 }
9397 set na [incr nextarc]
9400 } else {
9404 }
9414 }
9419 } else {
9422 }
9423 }
9425 # reconstruct tags and heads lists
9429 } else {
9432 }
9433 }
9435 # Update things for a new commit added that is a child of one
9436 # existing commit. Used when cherry-picking.
9437 proc addnewchild {id p} {
9438 global allparents allchildren idtags nextarc
9439 global arcnos arcids arctags arcout arcend arcstart archeads growing
9440 global seeds allcommits
9448 set a [incr nextarc]
9456 }
9459 }
9461 # This implements a cache for the topology information.
9462 # The cache saves, for each arc, the start and end of the arc,
9463 # the ids on the arc, and the outgoing arcs from the end.
9464 proc readcache {f} {
9465 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9466 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9467 global allcwait
9473 }
9474 if {[catch {
9476 # finish reading the cache and setting up arctags, etc.
9480 foreach id [array names idtags] {
9486 }
9487 }
9488 }
9489 foreach id [array names idheads] {
9495 }
9496 }
9497 }
9501 }
9502 }
9503 set allcwait 0
9504 } else {
9514 }
9518 } else {
9522 }
9523 }
9529 }
9532 }
9535 }
9537 }
9538 } err]} {
9540 return 0
9541 }
9543 getallcommits
9544 }
9546 }
9548 proc getcache {f} {
9549 global nextarc cachedarcs possible_seeds
9551 if {[catch {
9554 # make sure it's an integer
9557 set nextarc 0
9558 set possible_seeds {}
9560 } err]} {
9562 }
9563 return 0
9564 }
9566 proc dropcache {err} {
9567 global allcwait nextarc cachedarcs seeds
9570 foreach v {arcnos arcout arcids arcstart arcend growing \
9571 arctags archeads allparents allchildren} {
9574 }
9575 set allcwait 0
9576 set nextarc 0
9577 set cachedarcs 0
9578 set seeds {}
9579 getallcommits
9580 }
9582 proc writecache {f} {
9583 global cachearc cachedarcs allccache
9584 global arcstart arcend arcnos arcids arcout
9590 }
9591 if {[catch {
9595 } else {
9597 }
9598 }
9599 } err]} {
9603 return 0
9604 }
9609 return 0
9610 }
9611 return 1
9612 }
9614 proc savecache {} {
9615 global nextarc cachedarcs cachearc allccache
9618 set cachearc 0
9620 catch {
9624 }
9625 }
9627 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9628 # or 0 if neither is true.
9629 proc anc_or_desc {a b} {
9630 global arcout arcstart arcend arcnos cached_isanc
9633 # Both are on the same arc(s); either both are the same BMP,
9634 # or if one is not a BMP, the other is also not a BMP or is
9635 # the BMP at end of the arc (and it only has 1 incoming arc).
9636 # Or both can be BMPs with no incoming arcs.
9638 return 0
9639 }
9645 return 1
9646 } else {
9647 return -1
9648 }
9649 }
9655 } else {
9656 set aend {}
9657 }
9659 } else {
9661 }
9666 } else {
9667 set bend {}
9668 }
9670 } else {
9672 }
9674 return 1
9675 }
9677 return -1
9678 }
9681 return 1
9682 }
9683 }
9686 return -1
9687 }
9689 return 0
9690 }
9691 }
9699 continue
9700 }
9706 return 1
9710 return -1
9711 }
9717 }
9718 }
9719 }
9722 return 0
9723 }
9727 # and returns 0 if so and 1 if not.
9728 # If we subsequently discover a tag on such a growing tip, and that
9731 # isn't a good choice to display as a descendent tag of
9735 #
9736 proc is_certain {desc anc} {
9737 global arcnos arcout arcstart arcend growing problems
9739 set certain {}
9741 # tags on the same arc are certain
9743 return 1
9744 }
9749 }
9750 }
9753 } else {
9756 }
9758 return 1
9759 }
9762 set nnh 1
9763 set ngrowanc 0
9767 incr nnh -1
9768 }
9774 incr ngrowanc
9775 }
9776 } else {
9783 incr nnh -1
9784 }
9786 incr ngrowanc -1
9787 }
9797 incr nnh -1
9798 }
9800 incr ngrowanc -1
9801 }
9803 }
9804 }
9805 }
9806 }
9807 }
9808 }
9812 } else {
9815 incr nnh
9816 }
9817 }
9818 }
9819 }
9820 foreach x [array names growanc] {
9822 return 0
9823 }
9824 return 0
9825 }
9826 return 1
9827 }
9829 proc validate_arctags {a} {
9830 global arctags idtags
9832 set i -1
9835 incr i
9838 incr i -1
9839 }
9840 }
9842 }
9844 proc validate_archeads {a} {
9845 global archeads idheads
9847 set i -1
9850 incr i
9853 incr i -1
9854 }
9855 }
9857 }
9859 # Return the list of IDs that have tags that are descendents of id,
9860 # ignoring IDs that are descendents of IDs already reported.
9861 proc desctags {id} {
9862 global arcnos arcstart arcids arctags idtags allparents
9863 global growing cached_dtags
9866 return {}
9867 }
9868 set t1 [clock clicks -milliseconds]
9871 # part-way along an arc; check that arc first
9876 set tid {}
9881 }
9884 }
9885 }
9889 }
9890 }
9893 }
9898 set nc 1
9904 incr nc -1
9905 }
9906 # ignore tags on starting node
9910 set ta 1
9913 set ta 1
9914 }
9915 }
9922 }
9923 }
9932 }
9935 }
9937 incr nc -1
9938 }
9940 }
9941 }
9942 }
9947 incr nc
9948 }
9949 }
9950 }
9951 }
9952 set tags {}
9953 foreach id [array names tagloc] {
9958 }
9959 }
9960 }
9961 }
9962 set t2 [clock clicks -milliseconds]
9965 # remove tags that are descendents of other tags
9973 incr j -1
9974 incr i -1
9977 incr i -1
9978 break
9979 }
9980 }
9981 }
9983 if {[array names growing] ne {}} {
9984 # graph isn't finished, need to check if any tag could get
9985 # eclipsed by another tag coming later. Simply ignore any
9986 # tags that could later get eclipsed.
9987 set ctags {}
9991 }
9992 }
9995 } else {
9997 }
9998 } else {
10000 }
10001 set t3 [clock clicks -milliseconds]
10005 }
10007 }
10009 proc anctags {id} {
10010 global arcnos arcids arcout arcend arctags idtags allparents
10011 global growing cached_atags
10014 return {}
10015 }
10016 set t1 [clock clicks -milliseconds]
10019 # part-way along an arc; check that arc first
10028 }
10029 }
10030 }
10032 return {}
10033 }
10037 }
10038 }
10041 }
10046 set taglist {}
10047 set nc 1
10053 incr nc -1
10054 }
10055 # ignore tags on starting node
10059 set td 1
10062 set td 1
10063 }
10064 }
10070 }
10071 }
10083 }
10084 }
10087 }
10089 incr nc -1
10090 }
10092 }
10093 }
10094 }
10099 incr nc
10100 }
10101 }
10102 }
10103 }
10104 set t2 [clock clicks -milliseconds]
10106 set tags {}
10107 foreach id [array names tagloc] {
10112 }
10113 }
10114 }
10115 }
10117 # remove tags that are ancestors of other tags
10125 incr j -1
10126 incr i -1
10129 incr i -1
10130 break
10131 }
10132 }
10133 }
10135 if {[array names growing] ne {}} {
10136 # graph isn't finished, need to check if any tag could get
10137 # eclipsed by another tag coming later. Simply ignore any
10138 # tags that could later get eclipsed.
10139 set ctags {}
10143 }
10144 }
10147 } else {
10149 }
10150 } else {
10152 }
10153 set t3 [clock clicks -milliseconds]
10157 }
10159 }
10161 # Return the list of IDs that have heads that are descendents of id,
10162 # including id itself if it has a head.
10163 proc descheads {id} {
10164 global arcnos arcstart arcids archeads idheads cached_dheads
10165 global allparents
10168 return {}
10169 }
10170 set aret {}
10172 # part-way along an arc; check it first
10181 }
10182 }
10184 }
10188 set ret {}
10193 } else {
10196 }
10202 }
10203 }
10208 }
10209 }
10210 }
10211 }
10215 }
10217 proc addedtag {id} {
10218 global arcnos arcout cached_dtags cached_atags
10223 }
10224 catch {unset cached_dtags}
10225 catch {unset cached_atags}
10226 }
10228 proc addedhead {hid head} {
10229 global arcnos arcout cached_dheads
10234 }
10235 catch {unset cached_dheads}
10236 }
10238 proc removedhead {hid head} {
10239 global cached_dheads
10241 catch {unset cached_dheads}
10242 }
10244 proc movedhead {hid head} {
10245 global arcnos arcout cached_dheads
10250 }
10251 catch {unset cached_dheads}
10252 }
10254 proc changedrefs {} {
10255 global cached_dheads cached_dtags cached_atags
10256 global arctags archeads arcnos arcout idheads idtags
10258 foreach id [concat [array names idheads] [array names idtags]] {
10264 }
10265 }
10266 }
10267 catch {unset cached_dtags}
10268 catch {unset cached_atags}
10269 catch {unset cached_dheads}
10270 }
10272 proc rereadrefs {} {
10273 global idtags idheads idotherrefs mainheadid
10275 set refids [concat [array names idtags] \
10276 [array names idheads] [array names idotherrefs]]
10280 }
10281 }
10283 readrefs
10284 changedrefs
10286 [array names idheads] [array names idotherrefs]]]
10291 }
10292 }
10296 }
10297 run refill_reflist
10298 }
10300 proc listrefs {id} {
10301 global idtags idheads idotherrefs
10303 set x {}
10306 }
10307 set y {}
10310 }
10311 set z {}
10314 }
10316 }
10318 proc showtag {tag isnew} {
10319 global ctext tagcontents tagids linknum tagobjid
10323 }
10325 clear_ctext
10326 settabs 0
10327 set linknum 0
10329 catch {
10331 }
10332 }
10335 } else {
10337 }
10339 maybe_scroll_ctext
10341 init_flist {}
10342 }
10344 proc doquit {} {
10345 global stopped
10346 global gitktmpdir
10348 set stopped 100
10349 savestuff .
10350 destroy .
10352 if {[info exists gitktmpdir]} {
10354 }
10355 }
10357 proc mkfontdisp {font top which} {
10367 }
10369 proc choosefont {font which} {
10370 global fontparam fontlist fonttop fontattr
10371 global prefstop NS
10379 set top .gitkfont
10382 font create sample
10389 set fontlist [lsort [font families]]
10400 -textvariable fontparam(size) \
10401 -validatecommand {string is integer -strict %s}
10403 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10404 -variable fontparam(weight) -onvalue bold -offvalue normal
10406 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10407 -variable fontparam(slant) -onvalue italic -offvalue roman
10411 -background white
10413 -fill black -tags text
10425 trace add variable fontparam write chg_fontparam
10426 } else {
10429 }
10434 }
10435 }
10437 proc centertext {w} {
10439 }
10441 proc fontok {} {
10442 global fontparam fontpref prefstop
10448 }
10451 }
10455 fontcan
10456 }
10458 proc fontcan {} {
10459 global fonttop fontparam
10461 if {[info exists fonttop]} {
10463 catch {font delete sample}
10464 unset fonttop
10465 unset fontparam
10466 }
10467 }
10469 if {[package vsatisfies [package provide Tk] 8.6]} {
10470 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10471 # function to make use of it.
10472 proc choosefont {font which} {
10475 tk fontchooser show
10476 }
10477 proc on_choosefont {font which newfont} {
10478 global fontparam
10487 fontok
10488 }
10489 }
10491 proc selfontfam {} {
10492 global fonttop fontparam
10497 }
10498 }
10500 proc chg_fontparam {v sub op} {
10501 global fontparam
10504 }
10506 proc doprefs {} {
10507 global maxwidth maxgraphpct use_ttk NS
10508 global oldprefs prefstop showneartags showlocalchanges
10509 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10510 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10512 set top .gitkprefs
10516 return
10517 }
10518 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10519 limitdiffs tabstop perfile_attrs} {
10521 }
10535 -variable showlocalchanges
10538 -variable autoselect
10547 -variable showneartags
10550 -variable limitdiffs
10553 -variable perfile_attrs
10587 [mc "diff hunk header"] \
10593 [mc "marked line background"] \
10608 foreach w {maxpctl maxwidthl showlocal autoselect tabstopl ntag
10609 ldiff lattr extdifff.l extdifff.b bgbut fgbut
10610 diffoldbut diffnewbut hunksepbut markbgbut selbgbut} {
10612 }
10613 }
10626 }
10628 proc choose_extdiff {} {
10629 global extdifftool
10631 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10634 }
10635 }
10637 proc choosecolor {v vi w x cmd} {
10646 }
10648 proc setselbg {c} {
10649 global bglist cflist
10652 }
10656 }
10658 proc setbg {c} {
10659 global bglist
10663 }
10664 }
10666 proc setfg {c} {
10667 global fglist canv
10671 }
10675 }
10677 proc prefscan {} {
10678 global oldprefs prefstop
10680 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10681 limitdiffs tabstop perfile_attrs} {
10684 }
10686 unset prefstop
10687 fontcan
10688 }
10690 proc prefsok {} {
10691 global maxwidth maxgraphpct
10692 global oldprefs prefstop showneartags showlocalchanges
10693 global fontpref mainfont textfont uifont
10694 global limitdiffs treediffs perfile_attrs
10697 unset prefstop
10698 fontcan
10699 set fontchanged 0
10703 eval font configure mainfont [fontflags mainfont]
10704 eval font configure mainfontbold [fontflags mainfont 1]
10705 setcoords
10706 set fontchanged 1
10707 }
10711 eval font configure textfont [fontflags textfont]
10712 eval font configure textfontbold [fontflags textfont 1]
10713 }
10717 eval font configure uifont [fontflags uifont]
10718 }
10719 settabs
10722 doshowlocalchanges
10723 } else {
10724 dohidelocalchanges
10725 }
10726 }
10729 # treediffs elements are limited by path;
10730 # won't have encodings cached if perfile_attrs was just turned on
10731 catch {unset treediffs}
10732 }
10735 redisplay
10738 reselectline
10739 }
10740 }
10742 proc formatdate {d} {
10743 global datetimeformat
10746 }
10748 }
10750 # This list of encoding names and aliases is distilled from
10751 # http://www.iana.org/assignments/character-sets.
10752 # Not all of them are supported by Tcl.
10753 set encoding_aliases {
10754 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10755 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10756 { ISO-10646-UTF-1 csISO10646UTF1 }
10757 { ISO_646.basic:1983 ref csISO646basic1983 }
10758 { INVARIANT csINVARIANT }
10759 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10760 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10761 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10762 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10763 { NATS-DANO iso-ir-9-1 csNATSDANO }
10764 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10765 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10766 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10767 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10768 { ISO-2022-KR csISO2022KR }
10769 { EUC-KR csEUCKR }
10770 { ISO-2022-JP csISO2022JP }
10771 { ISO-2022-JP-2 csISO2022JP2 }
10772 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10773 csISO13JISC6220jp }
10774 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10775 { IT iso-ir-15 ISO646-IT csISO15Italian }
10776 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10777 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10778 { greek7-old iso-ir-18 csISO18Greek7Old }
10779 { latin-greek iso-ir-19 csISO19LatinGreek }
10780 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10781 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10782 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10783 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10784 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10785 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10786 { INIS iso-ir-49 csISO49INIS }
10787 { INIS-8 iso-ir-50 csISO50INIS8 }
10788 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10789 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10790 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10791 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10792 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10793 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10794 csISO60Norwegian1 }
10795 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10796 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10797 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10798 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10799 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10800 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10801 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10802 { greek7 iso-ir-88 csISO88Greek7 }
10803 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10804 { iso-ir-90 csISO90 }
10805 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10806 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10807 csISO92JISC62991984b }
10808 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10809 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10810 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10811 csISO95JIS62291984handadd }
10812 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10813 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10814 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10815 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10816 CP819 csISOLatin1 }
10817 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10818 { T.61-7bit iso-ir-102 csISO102T617bit }
10819 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10820 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10821 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10822 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10823 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10824 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10825 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10826 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10827 arabic csISOLatinArabic }
10828 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10829 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10830 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10831 greek greek8 csISOLatinGreek }
10832 { T.101-G2 iso-ir-128 csISO128T101G2 }
10833 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10834 csISOLatinHebrew }
10835 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10836 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10837 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10838 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10839 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10840 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10841 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10842 csISOLatinCyrillic }
10843 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10844 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10845 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10846 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10847 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10848 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10849 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10850 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10851 { ISO_10367-box iso-ir-155 csISO10367Box }
10852 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10853 { latin-lap lap iso-ir-158 csISO158Lap }
10854 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10855 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10856 { us-dk csUSDK }
10857 { dk-us csDKUS }
10858 { JIS_X0201 X0201 csHalfWidthKatakana }
10859 { KSC5636 ISO646-KR csKSC5636 }
10860 { ISO-10646-UCS-2 csUnicode }
10861 { ISO-10646-UCS-4 csUCS4 }
10862 { DEC-MCS dec csDECMCS }
10863 { hp-roman8 roman8 r8 csHPRoman8 }
10864 { macintosh mac csMacintosh }
10865 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10866 csIBM037 }
10867 { IBM038 EBCDIC-INT cp038 csIBM038 }
10868 { IBM273 CP273 csIBM273 }
10869 { IBM274 EBCDIC-BE CP274 csIBM274 }
10870 { IBM275 EBCDIC-BR cp275 csIBM275 }
10871 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10872 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10873 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10874 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10875 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10876 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10877 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10878 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10879 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10880 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10881 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10882 { IBM437 cp437 437 csPC8CodePage437 }
10883 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10884 { IBM775 cp775 csPC775Baltic }
10885 { IBM850 cp850 850 csPC850Multilingual }
10886 { IBM851 cp851 851 csIBM851 }
10887 { IBM852 cp852 852 csPCp852 }
10888 { IBM855 cp855 855 csIBM855 }
10889 { IBM857 cp857 857 csIBM857 }
10890 { IBM860 cp860 860 csIBM860 }
10891 { IBM861 cp861 861 cp-is csIBM861 }
10892 { IBM862 cp862 862 csPC862LatinHebrew }
10893 { IBM863 cp863 863 csIBM863 }
10894 { IBM864 cp864 csIBM864 }
10895 { IBM865 cp865 865 csIBM865 }
10896 { IBM866 cp866 866 csIBM866 }
10897 { IBM868 CP868 cp-ar csIBM868 }
10898 { IBM869 cp869 869 cp-gr csIBM869 }
10899 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10900 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10901 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10902 { IBM891 cp891 csIBM891 }
10903 { IBM903 cp903 csIBM903 }
10904 { IBM904 cp904 904 csIBBM904 }
10905 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10906 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10907 { IBM1026 CP1026 csIBM1026 }
10908 { EBCDIC-AT-DE csIBMEBCDICATDE }
10909 { EBCDIC-AT-DE-A csEBCDICATDEA }
10910 { EBCDIC-CA-FR csEBCDICCAFR }
10911 { EBCDIC-DK-NO csEBCDICDKNO }
10912 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10913 { EBCDIC-FI-SE csEBCDICFISE }
10914 { EBCDIC-FI-SE-A csEBCDICFISEA }
10915 { EBCDIC-FR csEBCDICFR }
10916 { EBCDIC-IT csEBCDICIT }
10917 { EBCDIC-PT csEBCDICPT }
10918 { EBCDIC-ES csEBCDICES }
10919 { EBCDIC-ES-A csEBCDICESA }
10920 { EBCDIC-ES-S csEBCDICESS }
10921 { EBCDIC-UK csEBCDICUK }
10922 { EBCDIC-US csEBCDICUS }
10923 { UNKNOWN-8BIT csUnknown8BiT }
10924 { MNEMONIC csMnemonic }
10925 { MNEM csMnem }
10926 { VISCII csVISCII }
10927 { VIQR csVIQR }
10928 { KOI8-R csKOI8R }
10929 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10930 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10931 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10932 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10933 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10934 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10935 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10936 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10937 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10938 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10939 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10940 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10941 { IBM1047 IBM-1047 }
10942 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10943 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10944 { UNICODE-1-1 csUnicode11 }
10945 { CESU-8 csCESU-8 }
10946 { BOCU-1 csBOCU-1 }
10947 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10948 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10949 l8 }
10950 { ISO-8859-15 ISO_8859-15 Latin-9 }
10951 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10952 { GBK CP936 MS936 windows-936 }
10953 { JIS_Encoding csJISEncoding }
10954 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10955 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10956 EUC-JP }
10957 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10958 { ISO-10646-UCS-Basic csUnicodeASCII }
10959 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10960 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10961 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10962 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10963 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10964 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10965 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10966 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10967 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10968 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10969 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10970 { Ventura-US csVenturaUS }
10971 { Ventura-International csVenturaInternational }
10972 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10973 { PC8-Turkish csPC8Turkish }
10974 { IBM-Symbols csIBMSymbols }
10975 { IBM-Thai csIBMThai }
10976 { HP-Legal csHPLegal }
10977 { HP-Pi-font csHPPiFont }
10978 { HP-Math8 csHPMath8 }
10979 { Adobe-Symbol-Encoding csHPPSMath }
10980 { HP-DeskTop csHPDesktop }
10981 { Ventura-Math csVenturaMath }
10982 { Microsoft-Publishing csMicrosoftPublishing }
10983 { Windows-31J csWindows31J }
10984 { GB2312 csGB2312 }
10985 { Big5 csBig5 }
10986 }
10988 proc tcl_encoding {enc} {
10989 global encoding_aliases tcl_encoding_cache
10992 }
10993 set names [encoding names]
10998 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11001 }
11002 }
11007 # look through the aliases for one that tcl knows about
11013 }
11014 }
11016 }
11017 break
11018 }
11019 }
11020 set tclenc {}
11023 }
11026 }
11028 proc gitattr {path attr default} {
11029 global path_attr_cache
11032 } else {
11033 set r "unspecified"
11036 }
11038 }
11041 }
11043 }
11045 proc cache_gitattr {attr pathlist} {
11046 global path_attr_cache
11047 set newlist {}
11051 }
11052 }
11053 set lim 1000
11054 if {[tk windowingsystem] == "win32"} {
11055 # windows has a 32k limit on the arguments to a command...
11056 set lim 30
11057 }
11066 }
11068 }
11069 }
11070 }
11071 }
11072 }
11074 proc get_path_encoding {path} {
11075 global gui_encoding perfile_attrs
11081 }
11082 }
11084 }
11086 # First check that Tcl/Tk is recent enough
11087 if {[catch {package require Tk 8.4} err]} {
11088 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11089 Gitk requires at least Tcl/Tk 8.4."]
11090 exit 1
11091 }
11093 # defaults...
11094 set wrcomcmd "git diff-tree --stdin -p --pretty"
11096 set gitencoding {}
11097 catch {
11098 set gitencoding [exec git config --get i18n.commitencoding]
11099 }
11100 catch {
11101 set gitencoding [exec git config --get i18n.logoutputencoding]
11102 }
11104 set gitencoding "utf-8"
11105 }
11109 }
11111 set gui_encoding [encoding system]
11112 catch {
11113 set enc [exec git config --get gui.encoding]
11118 } else {
11120 }
11121 }
11122 }
11124 if {[tk windowingsystem] eq "aqua"} {
11125 set mainfont {{Lucida Grande} 9}
11126 set textfont {Monaco 9}
11127 set uifont {{Lucida Grande} 9 bold}
11128 } else {
11129 set mainfont {Helvetica 9}
11130 set textfont {Courier 9}
11131 set uifont {Helvetica 9 bold}
11132 }
11133 set tabstop 8
11134 set findmergefiles 0
11135 set maxgraphpct 50
11136 set maxwidth 16
11137 set revlistorder 0
11138 set fastdate 0
11139 set uparrowlen 5
11140 set downarrowlen 5
11141 set mingaplen 100
11142 set cmitmode "patch"
11143 set wrapcomment "none"
11144 set showneartags 1
11145 set maxrefs 20
11146 set maxlinelen 200
11147 set showlocalchanges 1
11148 set limitdiffs 1
11149 set datetimeformat "%Y-%m-%d %H:%M:%S"
11150 set autoselect 1
11151 set perfile_attrs 0
11153 if {[tk windowingsystem] eq "aqua"} {
11154 set extdifftool "opendiff"
11155 } else {
11156 set extdifftool "meld"
11157 }
11159 set colors {green red blue magenta darkgrey brown orange}
11160 set bgcolor white
11161 set fgcolor black
11162 set diffcolors {red "#00a000" blue}
11163 set diffcontext 3
11164 set ignorespace 0
11165 set selectbgcolor gray85
11166 set markbgcolor "#e0e0ff"
11168 set circlecolors {white blue gray blue blue}
11170 # button for popping up context menus
11171 if {[tk windowingsystem] eq "aqua"} {
11172 set ctxbut <Button-2>
11173 } else {
11174 set ctxbut <Button-3>
11175 }
11177 ## For msgcat loading, first locate the installation location.
11178 if { [info exists ::env(GITK_MSGSDIR)] } {
11179 ## Msgsdir was manually set in the environment.
11180 set gitk_msgsdir $::env(GITK_MSGSDIR)
11181 } else {
11182 ## Let's guess the prefix from argv0.
11186 unset gitk_prefix
11187 }
11189 ## Internationalization (i18n) through msgcat and gettext. See
11190 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11191 package require msgcat
11192 namespace import ::msgcat::mc
11193 ## And eventually load the actual message catalog
11196 catch {source ~/.gitk}
11198 font create optionfont -family sans-serif -size -12
11201 eval font create mainfont [fontflags mainfont]
11202 eval font create mainfontbold [fontflags mainfont 1]
11205 eval font create textfont [fontflags textfont]
11206 eval font create textfontbold [fontflags textfont 1]
11209 eval font create uifont [fontflags uifont]
11211 setoptions
11213 # check that we can find a .git directory somewhere...
11214 if {[catch {set gitdir [gitdir]}]} {
11215 show_error {} . [mc "Cannot find a git repository here."]
11216 exit 1
11217 }
11220 exit 1
11221 }
11223 set selecthead {}
11224 set selectheadid {}
11226 set revtreeargs {}
11227 set cmdline_files {}
11228 set i 0
11229 set revtreeargscmd {}
11232 "" { }
11233 "--" {
11235 break
11236 }
11237 "--select-commit=*" {
11239 }
11240 "--argscmd=*" {
11242 }
11243 default {
11245 }
11246 }
11247 incr i
11248 }
11251 set selecthead {}
11252 }
11255 # no -- on command line, but some arguments (other than --argscmd)
11256 if {[catch {
11261 # Unfortunately git rev-parse doesn't produce an error when
11262 # something is both a revision and a filename. To be consistent
11263 # with git log and git rev-list, check revtreeargs for filenames.
11266 show_error {} . [mc "Ambiguous argument '%s': both revision\
11268 exit 1
11269 }
11270 }
11271 } err]} {
11273 # so look for "fatal:".
11277 }
11279 exit 1
11280 }
11281 }
11283 set nullid "0000000000000000000000000000000000000000"
11284 set nullid2 "0000000000000000000000000000000000000001"
11285 set nullfile "/dev/null"
11288 if {![info exists use_ttk]} {
11289 set use_ttk [llength [info commands ::ttk::style]]
11290 }
11293 set runq {}
11294 set history {}
11295 set historyindex 0
11296 set fh_serial 0
11297 set nhl_names {}
11298 set highlight_paths {}
11299 set findpattern {}
11300 set searchdirn -forwards
11301 set boldids {}
11302 set boldnameids {}
11303 set diffelide {0 0}
11304 set markingmatches 0
11305 set linkentercount 0
11306 set need_redisplay 0
11307 set nrows_drawn 0
11308 set firsttabstop 0
11310 set nextviewnum 1
11311 set curview 0
11312 set selectedview 0
11313 set selectedhlview [mc "None"]
11314 set highlight_related [mc "None"]
11315 set highlight_files {}
11316 set viewfiles(0) {}
11317 set viewperm(0) 0
11318 set viewargs(0) {}
11319 set viewargscmd(0) {}
11321 set selectedline {}
11322 set numcommits 0
11323 set loginstance 0
11324 set cmdlineok 0
11325 set stopped 0
11326 set stuffsaved 0
11327 set patchnum 0
11328 set lserial 0
11329 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11330 setcoords
11331 makewindow
11332 catch {
11333 image create photo gitlogo -width 16 -height 16
11335 image create photo gitlogominus -width 4 -height 2
11336 gitlogominus put #C00000 -to 0 0 4 2
11337 gitlogo copy gitlogominus -to 1 5
11338 gitlogo copy gitlogominus -to 6 5
11339 gitlogo copy gitlogominus -to 11 5
11340 image delete gitlogominus
11342 image create photo gitlogoplus -width 4 -height 4
11343 gitlogoplus put #008000 -to 1 0 3 4
11344 gitlogoplus put #008000 -to 0 1 4 3
11345 gitlogo copy gitlogoplus -to 1 9
11346 gitlogo copy gitlogoplus -to 6 9
11347 gitlogo copy gitlogoplus -to 11 9
11348 image delete gitlogoplus
11350 image create photo gitlogo32 -width 32 -height 32
11351 gitlogo32 copy gitlogo -zoom 2 2
11353 wm iconphoto . -default gitlogo gitlogo32
11354 }
11355 # wait for the window to become visible
11356 tkwait visibility .
11358 update
11359 readrefs
11362 # create a view for the files/dirs specified on the command line
11363 set curview 1
11364 set selectedview 1
11365 set nextviewnum 2
11366 set viewname(1) [mc "Command line"]
11370 set viewperm(1) 0
11371 set vdatemode(1) 0
11372 addviewmenu 1
11373 .bar.view entryconf [mca "Edit view..."] -state normal
11374 .bar.view entryconf [mca "Delete view"] -state normal
11375 }
11377 if {[info exists permviews]} {
11380 incr nextviewnum
11387 }
11388 }
11390 if {[tk windowingsystem] eq "win32"} {
11391 focus -force .
11392 }
11394 getcommits {}