| blob | 082fa77513a7aaf41d8c45cf8cdeccd18d8cc882 |
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
1811 tkwait window $top
1812 }
1819 set w .error
1820 ttk_toplevel $w
1821 make_transient $w $owner
1822 show_error $w $w $msg
1823 }
1824 }
1827 global confirm_ok NS
1829 set w .confirm
1830 ttk_toplevel $w
1831 make_transient $w $owner
1843 tkwait window $w
1845 }
1847 proc setoptions {} {
1850 option add *Panedwindow.sashRelief raised startupFile
1852 option add *Menu.font uifont startupFile
1853 }
1856 }
1857 option add *Button.font uifont startupFile
1858 option add *Checkbutton.font uifont startupFile
1859 option add *Radiobutton.font uifont startupFile
1860 option add *Menubutton.font uifont startupFile
1861 option add *Label.font uifont startupFile
1862 option add *Message.font uifont startupFile
1863 option add *Entry.font uifont startupFile
1864 option add *Labelframe.font uifont startupFile
1865 }
1867 # Make a menu and submenus.
1868 # m is the window name for the menu, items is the list of menu items to add.
1869 # Each item is a list {mc label type description options...}
1870 # mc is ignored; it's so we can put mc there to alert xgettext
1871 # label is the string that appears in the menu
1872 # type is cascade, command or radiobutton (should add checkbutton)
1873 # description depends on type; it's the sublist for cascade, the
1874 # command to invoke for command, or {variable value} for radiobutton
1876 menu $m
1878 set Meta1 Cmd
1880 set Meta1 Ctrl
1881 }
1892 }
1893 }
1898 }
1901 }
1905 }
1906 }
1912 }
1913 }
1914 }
1916 # translate string and remove ampersands
1919 }
1922 global use_ttk
1928 }
1933 }
1935 }
1937 proc makewindow {} {
1938 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1939 global tabstop
1940 global findtype findtypemenu findloc findstring fstring geometry
1941 global entries sha1entry sha1string sha1but
1942 global diffcontextstring diffcontext
1943 global ignorespace
1944 global maincursor textcursor curtextcursor
1945 global rowctxmenu fakerowmenu mergemax wrapcomment
1946 global highlight_files gdttype
1947 global searchstring sstring
1948 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1949 global headctxmenu progresscanv progressitem progresscoords statusw
1950 global fprogitem fprogcoord lastprogupdate progupdatepending
1951 global rprogitem rprogcoord rownumsel numcommits
1952 global have_tk85 use_ttk NS
1954 # The "mc" arguments here are purely so that xgettext
1955 # sees the following string as needing to be translated
1966 }}
1970 }}
1978 }}
1984 }}
1994 }}
1998 }}
2000 }
2001 makemenu .bar $bar
2002 . configure -menu .bar
2005 # cover the non-themed toplevel with a themed frame.
2007 }
2009 # the gui has upper and lower half, parts of a paned window.
2012 # possibly use assumed geometry
2020 }
2022 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2028 }
2030 # create three canvases
2031 set cscroll .tf.histframe.csb
2032 set canv .tf.histframe.pwclist.canv
2033 canvas $canv \
2037 .tf.histframe.pwclist add $canv
2038 set canv2 .tf.histframe.pwclist.canv2
2039 canvas $canv2 \
2042 .tf.histframe.pwclist add $canv2
2043 set canv3 .tf.histframe.pwclist.canv3
2044 canvas $canv3 \
2047 .tf.histframe.pwclist add $canv3
2053 }
2057 }
2059 # a scroll bar to rule them
2064 lappend bglist $canv $canv2 $canv3
2067 # we have two button bars at bottom of top frame. Bar 1
2071 set sha1entry .tf.bar.sha1
2073 set sha1but .tf.bar.sha1label
2077 pack .tf.bar.sha1label -side left
2079 trace add variable sha1string write sha1change
2083 #define left_width 16
2084 #define left_height 16
2085 static unsigned char left_bits[] = {
2089 }
2091 #define right_width 16
2092 #define right_height 16
2093 static unsigned char right_bits[] = {
2097 }
2112 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2113 -side left
2116 }
2117 global selectedline
2118 trace add variable selectedline write selectedline_change
2120 # Status label and progress bar
2121 set statusw .tf.bar.status
2128 set progresscanv .tf.bar.progress
2133 }
2142 # build up the bottom bar of upper window
2147 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2154 trace add variable gdttype write gdttype_change
2158 set fstring .tf.lbar.findstring
2159 lappend entries $fstring
2161 trace add variable findstring write find_change
2165 trace add variable findtype write findcom_change
2169 trace add variable findloc write find_change
2170 pack .tf.lbar.findloc -side right
2171 pack .tf.lbar.findtype -side right
2174 # Finish putting the upper half of the viewer together
2178 .ctop add .tf
2182 }
2184 # now build up the bottom
2187 # lower left, a text box over search bar, scroll bar to the right
2188 # if we know window height, then that will set the lower text height, otherwise
2189 # we set lower text height which will drive window height
2194 }
2201 set sstring .bleft.top.sstring
2204 lappend entries $sstring
2205 trace add variable searchstring write incrsearch
2218 -textvariable diffcontextstring
2220 trace add variable diffcontextstring write diffcontextchange
2221 lappend entries .bleft.mid.diffcontext
2222 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2226 set ctext .bleft.bottom.ctext
2233 }
2239 grid .bleft.bottom.sbhorizontal -sticky ew
2244 lappend bglist $ctext
2245 lappend fglist $ctext
2274 .pwbottom add .bleft
2277 }
2279 # lower right
2288 set cflist .bright.cfiles
2290 text $cflist \
2293 -font mainfont \
2298 lappend bglist $cflist
2299 lappend fglist $cflist
2303 $cflist tag configure highlight \
2307 .pwbottom add .bright
2308 .ctop add .pwbottom
2310 # restore window width & height if known
2315 }
2318 }
2320 }
2321 }
2325 }
2328 set M1B M1
2331 set M1B Control
2333 }
2339 }
2343 }
2344 }
2349 #bindall <B1-Motion> {selcanvline %W %x %y}
2359 allcanvs yview scroll $delta units
2360 }
2364 }
2365 }
2366 }
2388 bindkey p "selnextline -1"
2389 bindkey n "selnextline 1"
2390 bindkey z "goback"
2391 bindkey x "goforw"
2392 bindkey i "selnextline -1"
2393 bindkey k "selnextline 1"
2394 bindkey j "goback"
2395 bindkey l "goforw"
2396 bindkey b prevfile
2403 bindkey f nextfile
2420 wm protocol . WM_DELETE_WINDOW doquit
2429 global ctxbut
2433 set maincursor [. cget -cursor]
2437 set rowctxmenu .rowctxmenu
2439 {mc "Diff this -> selected" command {diffvssel 0}}
2440 {mc "Diff selected -> this" command {diffvssel 1}}
2441 {mc "Make patch" command mkpatch}
2442 {mc "Create tag" command mktag}
2443 {mc "Write commit to file" command writecommit}
2444 {mc "Create new branch" command mkbranch}
2445 {mc "Cherry-pick this commit" command cherrypick}
2446 {mc "Reset HEAD branch to here" command resethead}
2447 {mc "Mark this commit" command markhere}
2448 {mc "Return to mark" command gotomark}
2449 {mc "Find descendant of this and mark" command find_common_desc}
2450 {mc "Compare with marked commit" command compare_commits}
2451 }
2454 set fakerowmenu .fakerowmenu
2456 {mc "Diff this -> selected" command {diffvssel 0}}
2457 {mc "Diff selected -> this" command {diffvssel 1}}
2458 {mc "Make patch" command mkpatch}
2459 }
2462 set headctxmenu .headctxmenu
2464 {mc "Check out this branch" command cobranch}
2465 {mc "Remove this branch" command rmbranch}
2466 }
2469 global flist_menu
2470 set flist_menu .flistctxmenu
2472 {mc "Highlight this too" command {flist_hl 0}}
2473 {mc "Highlight this only" command {flist_hl 1}}
2474 {mc "External diff" command {external_diff}}
2475 {mc "Blame parent commit" command {external_blame 1}}
2476 }
2479 global diff_menu
2480 set diff_menu .diffctxmenu
2482 {mc "Show origin of this line" command show_line_source}
2483 {mc "Run git gui blame on this line" command {external_blame_diff}}
2484 }
2486 }
2488 # Windows sends all mouse wheel events to the current focused window, not
2489 # the one where the mouse hovers, so bind those events here and redirect
2490 # to the correct window
2491 proc windows_mousewheel_redirector {W X Y D} {
2492 global canv canv2 canv3
2498 } else {
2499 catch {
2501 }
2502 }
2503 }
2504 }
2506 # Update row number label when selectedline changes
2507 proc selectedline_change {n1 n2 op} {
2508 global selectedline rownumsel
2511 set rownumsel {}
2512 } else {
2514 }
2515 }
2517 # mouse-2 makes all windows scan vertically, but only the one
2518 # the cursor is in scans horizontally
2519 proc canvscan {op w x y} {
2520 global canv canv2 canv3
2524 } else {
2526 }
2527 }
2528 }
2530 proc scrollcanv {cscroll f0 f1} {
2532 drawvisible
2533 flushhighlights
2534 }
2536 # when we make a key binding for the toplevel, make sure
2537 # it doesn't get triggered when that key is pressed in the
2538 # find string entry widget.
2539 proc bindkey {ev script} {
2540 global entries
2544 set escript [bind Entry <Key>]
2545 }
2548 }
2549 }
2551 # set the focus back to the toplevel for any click outside
2552 # the entry widgets
2553 proc click {w} {
2554 global ctext entries
2557 }
2558 focus .
2559 }
2561 # Adjust the progress bar for a change in requested extent or canvas size
2562 proc adjustprogress {} {
2563 global progresscanv progressitem progresscoords
2564 global fprogitem fprogcoord lastprogupdate progupdatepending
2565 global rprogitem rprogcoord use_ttk
2569 return
2570 }
2579 set now [clock clicks -milliseconds]
2581 set progupdatepending 0
2582 update
2584 set progupdatepending 1
2586 }
2587 }
2589 proc doprogupdate {} {
2590 global lastprogupdate progupdatepending
2593 set progupdatepending 0
2594 set lastprogupdate [clock clicks -milliseconds]
2595 update
2596 }
2597 }
2599 proc savestuff {w} {
2600 global canv canv2 canv3 mainfont textfont uifont tabstop
2601 global stuffsaved findmergefiles maxgraphpct
2602 global maxwidth showneartags showlocalchanges
2603 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2604 global cmitmode wrapcomment datetimeformat limitdiffs
2605 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2606 global autoselect extdifftool perfile_attrs markbgcolor use_ttk
2609 if {![winfo viewable .]} return
2610 catch {
2611 set f [open "~/.gitk-new" w]
2612 if {$::tcl_platform(platform) eq {windows}} {
2613 file attributes "~/.gitk-new" -hidden true
2614 }
2646 } else {
2649 }
2657 }
2658 }
2661 file rename -force "~/.gitk-new" "~/.gitk"
2662 }
2663 set stuffsaved 1
2664 }
2666 proc resizeclistpanes {win w} {
2667 global oldwidth use_ttk
2672 } else {
2675 }
2679 } else {
2684 set sash0 30
2685 }
2688 }
2693 }
2694 }
2695 }
2699 } else {
2702 }
2703 }
2705 }
2707 proc resizecdetpanes {win w} {
2708 global oldwidth use_ttk
2712 } else {
2714 }
2717 } else {
2721 set sash0 45
2722 }
2725 }
2726 }
2729 } else {
2731 }
2732 }
2734 }
2736 proc allcanvs args {
2737 global canv canv2 canv3
2741 }
2743 proc bindall {event action} {
2744 global canv canv2 canv3
2748 }
2750 proc about {} {
2751 global uifont NS
2752 set w .about
2755 return
2756 }
2761 Gitk - a commit viewer for git
2763 Copyright \u00a9 2005-2009 Paul Mackerras
2765 Use and redistribute under the terms of the GNU General Public License"] \
2766 -justify center -aspect 400 -border 2 -bg white -relief groove
2774 }
2776 proc keys {} {
2777 global NS
2778 set w .keys
2781 return
2782 }
2783 if {[tk windowingsystem] eq {aqua}} {
2784 set M1T Cmd
2785 } else {
2786 set M1T Ctrl
2787 }
2792 [mc "Gitk key bindings:"]
2795 [mc "<Home> Move to first commit"]
2796 [mc "<End> Move to last commit"]
2797 [mc "<Up>, p, i Move up one commit"]
2798 [mc "<Down>, n, k Move down one commit"]
2799 [mc "<Left>, z, j Go back in history list"]
2800 [mc "<Right>, x, l Go forward in history list"]
2801 [mc "<PageUp> Move up one page in commit list"]
2802 [mc "<PageDown> Move down one page in commit list"]
2809 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2810 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2811 [mc "<Delete>, b Scroll diff view up one page"]
2812 [mc "<Backspace> Scroll diff view up one page"]
2813 [mc "<Space> Scroll diff view down one page"]
2814 [mc "u Scroll diff view up 18 lines"]
2815 [mc "d Scroll diff view down 18 lines"]
2818 [mc "<Return> Move to next find hit"]
2819 [mc "/ Focus the search box"]
2820 [mc "? Move to previous find hit"]
2821 [mc "f Scroll diff view to next file"]
2828 [mc "<F5> Update"]
2829 " \
2830 -justify left -bg white -border 2 -relief groove
2838 }
2840 # Procedures for manipulating the file list window at the
2841 # bottom right of the overall window.
2843 proc treeview {w l openlevs} {
2844 global treecontents treediropen treeheight treeparent treeindex
2846 set ix 0
2847 set treeindex() 0
2848 set lev 0
2849 set prefix {}
2850 set prefixend -1
2851 set prefendstack {}
2852 set htstack {}
2853 set ht 0
2854 set treecontents() {}
2861 }
2868 incr lev -1
2869 }
2873 set ht 0
2885 set ht 1
2890 set str "\n"
2898 }
2899 incr lev
2900 }
2903 incr ht
2904 set str "\n"
2908 }
2910 }
2911 }
2919 }
2921 }
2923 proc linetoelt {l} {
2924 global treeheight treecontents
2926 set y 2
2927 set prefix {}
2928 while {1} {
2932 }
2933 set n 1
2938 incr y
2939 break
2940 }
2941 }
2943 }
2944 }
2945 }
2947 proc highlight_tree {y prefix} {
2948 global treeheight treecontents cflist
2954 }
2955 incr y
2958 }
2959 }
2961 }
2963 proc treeclosedir {w dir} {
2964 global treediropen treeheight treeparent treeindex
2976 }
2977 }
2979 proc treeopendir {w dir} {
2980 global treediropen treeheight treeparent treecontents treeindex
2987 set lev 0
2988 set str "\n"
2991 incr lev
2992 append str "\t"
2994 }
3009 } else {
3012 }
3013 }
3026 }
3028 }
3029 }
3031 proc treeclick {w x y} {
3032 global treediropen cmitmode ctext cflist cflist_top
3035 if {![info exists cflist_top]} return
3042 return
3043 }
3049 } else {
3051 }
3052 }
3054 proc setfilelist {id} {
3055 global treefilelist cflist jump_to_here
3062 }
3063 }
3064 }
3066 image create bitmap tri-rt -background black -foreground blue -data {
3067 #define tri-rt_width 13
3068 #define tri-rt_height 13
3069 static unsigned char tri-rt_bits[] = {
3070 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3071 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3072 0x00, 0x00};
3073 } -maskdata {
3074 #define tri-rt-mask_width 13
3075 #define tri-rt-mask_height 13
3076 static unsigned char tri-rt-mask_bits[] = {
3077 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3078 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3079 0x08, 0x00};
3080 }
3081 image create bitmap tri-dn -background black -foreground blue -data {
3082 #define tri-dn_width 13
3083 #define tri-dn_height 13
3084 static unsigned char tri-dn_bits[] = {
3085 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3086 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3087 0x00, 0x00};
3088 } -maskdata {
3089 #define tri-dn-mask_width 13
3090 #define tri-dn-mask_height 13
3091 static unsigned char tri-dn-mask_bits[] = {
3092 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3093 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3094 0x00, 0x00};
3095 }
3097 image create bitmap reficon-T -background black -foreground yellow -data {
3098 #define tagicon_width 13
3099 #define tagicon_height 9
3100 static unsigned char tagicon_bits[] = {
3101 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3102 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3103 } -maskdata {
3104 #define tagicon-mask_width 13
3105 #define tagicon-mask_height 9
3106 static unsigned char tagicon-mask_bits[] = {
3107 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3108 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3109 }
3110 set rectdata {
3111 #define headicon_width 13
3112 #define headicon_height 9
3113 static unsigned char headicon_bits[] = {
3114 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3115 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3116 }
3117 set rectmask {
3118 #define headicon-mask_width 13
3119 #define headicon-mask_height 9
3120 static unsigned char headicon-mask_bits[] = {
3121 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3122 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3123 }
3124 image create bitmap reficon-H -background black -foreground green \
3126 image create bitmap reficon-o -background black -foreground "#ddddff" \
3129 proc init_flist {first} {
3130 global cflist cflist_top difffilestart
3136 set cflist_top 1
3138 } else {
3139 catch {unset cflist_top}
3140 }
3142 set difffilestart {}
3143 }
3145 proc highlight_tag {f} {
3146 global highlight_paths
3150 return "bold"
3151 }
3152 }
3153 return {}
3154 }
3156 proc highlight_filelist {} {
3157 global cmitmode cflist
3166 }
3167 }
3168 } else {
3169 highlight_tree 2 {}
3170 }
3172 }
3174 proc unhighlight_filelist {} {
3175 global cflist
3180 }
3182 proc add_flist {fl} {
3183 global cflist
3189 }
3191 }
3193 proc sel_flist {w x y} {
3194 global ctext difffilestart cflist cflist_top cmitmode
3197 if {![info exists cflist_top]} return
3204 } else {
3206 }
3207 }
3209 proc pop_flist_menu {w X Y x y} {
3210 global ctext cflist cmitmode flist_menu flist_menu_file
3211 global treediffs diffids
3213 stopfinding
3219 } else {
3221 }
3223 set xdiffstate "normal"
3225 set xdiffstate "disabled"
3226 }
3227 # Disable "External diff" item in tree mode
3230 }
3232 proc find_ctext_fileinfo {line} {
3233 global ctext_file_names ctext_file_lines
3239 return {}
3240 } else {
3242 }
3243 }
3245 proc pop_diff_menu {w X Y x y} {
3246 global ctext diff_menu flist_menu_file
3247 global diff_menu_txtpos diff_menu_line
3248 global diff_menu_filebase
3252 # don't pop up the menu on hunk-separator or file-separator lines
3254 return
3255 }
3256 stopfinding
3262 }
3264 proc flist_hl {only} {
3265 global flist_menu_file findstring gdttype
3270 } else {
3272 }
3273 set gdttype [mc "touching paths:"]
3274 }
3276 proc save_file_from_commit {filename output what} {
3277 global nullfile
3282 }
3284 return {}
3285 }
3287 }
3289 proc external_diff_get_one_file {diffid filename diffdir} {
3290 global nullid nullid2 nullfile
3291 global gitdir
3297 }
3299 }
3303 }
3307 }
3309 proc external_diff {} {
3310 global gitktmpdir nullid nullid2
3311 global flist_menu_file
3312 global diffids
3313 global diffnum
3314 global gitdir extdifftool
3317 # no reference commit given
3320 # diffing working copy with index
3323 # diffing index with HEAD
3324 set diffidfrom "HEAD"
3325 } else {
3326 # use first parent commit
3327 global parentlist selectedline
3329 }
3330 } else {
3333 }
3335 # make sure that several diffs wont collide
3336 if {![info exists gitktmpdir]} {
3338 [format ".gitk-tmp.%s" [pid]]]
3341 unset gitktmpdir
3342 return
3343 }
3344 set diffnum 0
3345 }
3346 incr diffnum
3350 return
3351 }
3353 # gather files to diff
3362 } else {
3365 }
3366 }
3367 }
3369 proc find_hunk_blamespec {base line} {
3370 global ctext
3372 # Find and parse the hunk header
3378 s_line old_specs osz osz1 new_line nsz]} {
3379 return
3380 }
3382 # base lines for the parents
3386 old_spec old_line osz]} {
3387 return
3388 }
3390 }
3392 # Now scan the lines to determine offset within the hunk
3394 set dline 0
3397 # Determine if the line is removed
3401 # Choose a parent index
3404 } else {
3408 } else {
3409 # blame the current commit
3410 set parent -1
3411 }
3412 }
3413 # then count other lines that belong to it
3416 # Determine if the line is removed
3421 incr dline
3422 }
3423 } else {
3425 incr dline
3426 }
3427 }
3428 }
3429 incr parent
3430 } else {
3431 set parent 0
3432 }
3436 }
3438 proc external_blame_diff {} {
3439 global currentid cmitmode
3440 global diff_menu_txtpos diff_menu_line
3441 global diff_menu_filebase flist_menu_file
3444 set parent_idx 0
3446 } else {
3451 } else {
3452 set parent_idx 0
3453 set line 0
3454 }
3455 }
3458 }
3461 # at stage 0 or 2
3462 proc index_sha1 {fname} {
3470 }
3471 }
3473 return {}
3474 }
3476 # Turn an absolute path into one relative to the current directory
3477 proc make_relative {f} {
3479 set here [file split [pwd]]
3480 set ei 0
3481 set hi 0
3482 set res {}
3485 lappend res ".."
3486 } else {
3487 incr ei
3488 }
3489 incr hi
3490 }
3493 }
3495 proc external_blame {parent_idx {line {}}} {
3496 global flist_menu_file gitdir
3497 global nullid nullid2
3498 global parentlist selectedline currentid
3502 } else {
3504 }
3507 error_popup [mc "No such commit"]
3508 return
3509 }
3511 set cmdline [list git gui blame]
3514 }
3516 # Unfortunately it seems git gui blame doesn't like
3517 # being given an absolute path...
3522 }
3523 }
3525 proc show_line_source {} {
3526 global cmitmode currentid parents curview blamestuff blameinst
3527 global diff_menu_line diff_menu_filebase flist_menu_file
3528 global nullid nullid2 gitdir
3530 set from_index {}
3534 } else {
3540 return
3541 }
3542 incr pi -1
3545 # must be a merge in progress...
3546 if {[catch {
3547 # get the last line from .git/MERGE_HEAD
3551 } err]} {
3553 return
3554 }
3556 # need to do the blame from the index
3557 if {[catch {
3559 } err]} {
3561 return
3562 }
3563 } else {
3565 }
3566 } else {
3568 }
3570 }
3571 set blameargs {}
3574 }
3577 lappend blameargs --contents -
3578 } else {
3580 }
3582 if {[catch {
3584 } err]} {
3586 return
3587 }
3588 nowbusy blaming [mc "Searching"]
3594 }
3596 proc stopblaming {} {
3597 global blameinst
3599 if {[info exists blameinst]} {
3601 unset blameinst
3602 notbusy blaming
3603 }
3604 }
3606 proc read_line_source {fd inst} {
3607 global blamestuff curview commfd blameinst nullid nullid2
3611 }
3613 return 1
3614 }
3616 unset blameinst
3617 notbusy blaming
3621 return 0
3622 }
3624 set fname {}
3630 # look for "filename" line
3634 break
3635 }
3636 }
3637 }
3639 # all looks good, select it
3641 # blame uses all-zeroes to mean not committed,
3642 # which would mean a change in the index
3644 }
3647 } else {
3648 error_popup [mc "That line comes from commit %s, \
3650 }
3651 } else {
3652 puts "oops couldn't parse git blame output"
3653 }
3654 return 0
3655 }
3658 proc delete_at_eof {f dir} {
3663 }
3665 return 0
3666 }
3667 return 1
3668 }
3670 # Functions for adding and removing shell-type quoting
3672 proc shellquote {str} {
3675 }
3678 }
3681 }
3683 }
3685 proc shellarglist {l} {
3686 set str {}
3689 append str " "
3690 }
3692 }
3694 }
3696 proc shelldequote {str} {
3697 set ret {}
3698 set used -1
3699 while {1} {
3700 incr used
3704 break
3705 }
3711 }
3713 incr used
3717 error "unmatched single-quote"
3718 }
3721 continue
3722 }
3725 error "trailing backslash"
3726 }
3728 continue
3729 }
3730 # here ch == "\""
3731 while {1} {
3733 error "unmatched double-quote"
3734 }
3740 }
3742 incr used
3744 incr used
3745 }
3746 }
3748 }
3750 proc shellsplit {str} {
3751 set l {}
3752 while {1} {
3760 }
3762 }
3764 # Code to implement multiple views
3766 proc newview {ishighlight} {
3767 global nextviewnum newviewname newishighlight
3768 global revtreeargs viewargscmd newviewopts curview
3771 set top .gitkview
3774 return
3775 }
3781 }
3783 set known_view_options {
3784 {perm b . {} {mc "Remember this view"}}
3785 {args t50= + {} {mc "Commits to include (arguments to git log):"}}
3786 {all b * "--all" {mc "Use all refs"}}
3787 {dorder b . {"--date-order" "-d"} {mc "Strictly sort by date"}}
3788 {lright b . "--left-right" {mc "Mark branch sides"}}
3789 {since t15 + {"--since=*" "--after=*"} {mc "Since date:"}}
3790 {until t15 . {"--until=*" "--before=*"} {mc "Until date:"}}
3791 {limit t10 + "--max-count=*" {mc "Max count:"}}
3792 {skip t10 . "--skip=*" {mc "Skip:"}}
3793 {first b . "--first-parent" {mc "Limit to first parent"}}
3794 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3795 }
3797 proc encode_view_opts {n} {
3798 global known_view_options newviewopts
3800 set rargs [list]
3811 }
3812 } else {
3817 }
3818 }
3819 }
3821 }
3823 proc decode_view_opts {n view_args} {
3824 global known_view_options newviewopts
3828 set val 0
3829 } else {
3830 set val {}
3831 }
3833 }
3834 set oargs [list]
3837 && ![info exists found(limit)]} {
3839 set found(limit) 1
3840 continue
3841 }
3842 catch { unset val }
3851 } else {
3852 set val 1
3853 }
3856 break
3857 }
3858 if {[info exists val]} break
3859 }
3860 if {[info exists val]} continue
3862 }
3864 }
3866 proc edit_or_newview {} {
3867 global curview
3870 editview
3871 } else {
3872 newview 0
3873 }
3874 }
3876 proc editview {} {
3877 global curview
3878 global viewname viewperm newviewname newviewopts
3879 global viewargs viewargscmd
3884 return
3885 }
3891 }
3893 proc vieweditor {top n title} {
3894 global newviewname newviewopts viewfiles bgcolor
3895 global known_view_options NS
3901 # View name
3909 # View options
3911 set cexpand 0
3912 set cnt 0
3918 set lxpad 0
3922 incr cnt
3926 } else {
3927 set lxpad 5
3928 }
3946 }
3947 }
3949 # Path list
3951 -text [mc "Enter files and directories to include, one per line:"]
3958 }
3961 }
3976 }
3978 proc doviewmenu {m first cmd op argv} {
3983 break
3984 }
3985 }
3986 }
3988 proc allviewmenus {n op args} {
3989 # global viewhlmenu
3993 }
3995 proc newviewok {top n {apply 0}} {
3996 global nextviewnum newviewperm newviewname newishighlight
3997 global viewname viewfiles viewperm selectedview curview
3998 global viewargs viewargscmd newviewopts viewhlmenu
4000 if {[catch {
4002 } err]} {
4004 return
4005 }
4006 set files {}
4011 }
4012 }
4014 # creating a new view
4015 incr nextviewnum
4024 } else {
4026 }
4027 } else {
4028 # editing an existing view
4036 }
4043 run reloadcommits
4044 }
4045 }
4046 }
4049 }
4051 proc delview {} {
4052 global curview viewperm hlview selectedhlview
4056 set selectedhlview [mc "None"]
4057 unset hlview
4058 }
4061 showview 0
4062 }
4064 proc addviewmenu {n} {
4065 global viewname viewhlmenu
4071 }
4073 proc showview {n} {
4074 global curview cached_commitrow ordertok
4075 global displayorder parentlist rowidlist rowisopt rowfinal
4076 global colormap rowtextx nextcolor canvxmax
4077 global numcommits viewcomplete
4078 global selectedline currentid canv canvy0
4079 global treediffs
4080 global pending_select mainheadid
4081 global commitidx
4082 global selectedview
4083 global hlview selectedhlview commitinterest
4086 set selid {}
4097 }
4098 } elseif {[info exists pending_select]} {
4100 unset pending_select
4101 }
4102 unselectline
4103 normalline
4104 catch {unset treediffs}
4105 clear_display
4107 unset hlview
4108 set selectedhlview [mc "None"]
4109 }
4110 catch {unset commitinterest}
4111 catch {unset cached_commitrow}
4112 catch {unset ordertok}
4119 run refill_reflist
4122 return
4123 }
4125 set displayorder {}
4126 set parentlist {}
4127 set rowidlist {}
4128 set rowisopt {}
4129 set rowfinal {}
4132 catch {unset colormap}
4133 catch {unset rowtextx}
4134 set nextcolor 0
4137 set row 0
4138 setcanvscroll
4139 set yf 0
4140 set row {}
4143 # try to get the selected row in the same position on the screen
4147 set ytop 0
4148 }
4150 }
4152 drawvisible
4157 } else {
4158 reset_pending_select {}
4162 } else {
4163 set row [first_real_row]
4166 }
4167 }
4168 }
4171 show_status [mc "Reading commits..."]
4172 }
4174 show_status [mc "No commits selected"]
4175 }
4176 }
4178 # Stuff relating to the highlighting facility
4180 proc ishighlighted {id} {
4181 global vhighlights fhighlights nhighlights rhighlights
4185 }
4188 }
4191 }
4194 }
4195 return 0
4196 }
4198 proc bolden {id font} {
4199 global canv linehtag currentid boldids need_redisplay markedid
4201 # need_redisplay = 1 means the display is stale and about to be redrawn
4208 -outline {{}} -tags secsel \
4211 }
4214 }
4215 }
4217 proc bolden_name {id font} {
4218 global canv2 linentag currentid boldnameids need_redisplay
4226 -outline {{}} -tags secsel \
4229 }
4230 }
4232 proc unbolden {} {
4233 global boldids
4235 set stillbold {}
4239 } else {
4241 }
4242 }
4244 }
4246 proc addvhighlight {n} {
4247 global hlview viewcomplete curview vhl_done commitidx
4249 if {[info exists hlview]} {
4250 delvhighlight
4251 }
4255 }
4258 drawvisible
4259 }
4260 }
4262 proc delvhighlight {} {
4263 global hlview vhighlights
4265 if {![info exists hlview]} return
4266 unset hlview
4267 catch {unset vhighlights}
4268 unbolden
4269 }
4271 proc vhighlightmore {} {
4272 global hlview vhl_done commitidx vhighlights curview
4275 set vr [visiblerows]
4285 }
4287 }
4288 }
4289 }
4291 return 0
4292 }
4294 proc askvhighlight {row id} {
4295 global hlview vhighlights iddrawn
4300 }
4302 } else {
4304 }
4305 }
4307 proc hfiles_change {} {
4308 global highlight_files filehighlight fhighlights fh_serial
4309 global highlight_paths
4311 if {[info exists filehighlight]} {
4312 # delete previous highlights
4314 unset filehighlight
4315 catch {unset fhighlights}
4316 unbolden
4317 unhighlight_filelist
4318 }
4319 set highlight_paths {}
4321 incr fh_serial
4324 }
4325 }
4327 proc gdttype_change {name ix op} {
4328 global gdttype highlight_files findstring findpattern
4330 stopfinding
4334 set highlight_files {}
4335 hfiles_change
4336 }
4337 findcom_change
4338 } else {
4340 set findpattern {}
4341 findcom_change
4342 }
4344 hfiles_change
4345 }
4346 drawvisible
4347 }
4348 # enable/disable findtype/findloc menus too
4349 }
4351 proc find_change {name ix op} {
4352 global gdttype findstring highlight_files
4354 stopfinding
4356 findcom_change
4357 } else {
4360 hfiles_change
4361 }
4362 }
4363 drawvisible
4364 }
4366 proc findcom_change args {
4367 global nhighlights boldnameids
4368 global findpattern findtype findstring gdttype
4370 stopfinding
4371 # delete previous highlights, if any
4374 }
4375 set boldnameids {}
4376 catch {unset nhighlights}
4377 unbolden
4378 unmarkmatches
4380 set findpattern {}
4383 } else {
4384 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4387 }
4388 }
4390 proc makepatterns {l} {
4391 set ret {}
4396 } else {
4399 }
4400 }
4402 }
4404 proc do_file_hl {serial} {
4405 global highlight_files filehighlight highlight_paths gdttype fhl_list
4410 highlight_filelist
4414 } else {
4415 # must be "containing:", i.e. we're searching commit info
4416 return
4417 }
4422 set fhl_list {}
4423 drawvisible
4424 flushhighlights
4425 }
4427 proc flushhighlights {} {
4428 global filehighlight fhl_list
4430 if {[info exists filehighlight]} {
4431 lappend fhl_list {}
4434 }
4435 }
4437 proc askfilehighlight {row id} {
4438 global filehighlight fhighlights fhl_list
4443 }
4445 proc readfhighlight {} {
4446 global filehighlight fhighlights curview iddrawn
4447 global fhl_list find_dirn
4449 if {![info exists filehighlight]} {
4450 return 0
4451 }
4452 set nr 0
4460 }
4466 }
4468 }
4470 # strange...
4471 puts "oops, git diff-tree died"
4473 unset filehighlight
4474 return 0
4475 }
4476 if {[info exists find_dirn]} {
4477 run findmore
4478 }
4479 return 1
4480 }
4482 proc doesmatch {f} {
4483 global findtype findpattern
4489 } else {
4491 }
4492 }
4494 proc askfindhighlight {row id} {
4495 global nhighlights commitinfo iddrawn
4496 global findloc
4497 global markingmatches
4501 }
4503 set isbold 0
4504 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4509 set isbold 2
4510 break
4511 }
4512 set isbold 1
4513 }
4514 }
4520 }
4521 }
4524 }
4525 }
4527 }
4529 proc markrowmatches {row id} {
4530 global canv canv2 linehtag linentag commitinfo findloc
4541 }
4542 }
4548 }
4549 }
4550 }
4552 proc vrel_change {name ix op} {
4553 global highlight_related
4555 rhighlight_none
4557 run drawvisible
4558 }
4559 }
4561 # prepare for testing whether commits are descendents or ancestors of a
4562 proc rhighlight_sel {a} {
4563 global descendent desc_todo ancestor anc_todo
4564 global highlight_related
4566 catch {unset descendent}
4568 catch {unset ancestor}
4571 rhighlight_none
4572 run drawvisible
4573 }
4574 }
4576 proc rhighlight_none {} {
4577 global rhighlights
4579 catch {unset rhighlights}
4580 unbolden
4581 }
4583 proc is_descendent {a} {
4584 global curview children descendent desc_todo
4589 set leftover {}
4590 set done 0
4595 continue
4596 }
4602 set done 1
4603 }
4604 }
4605 }
4608 return
4609 }
4610 }
4613 }
4615 proc is_ancestor {a} {
4616 global curview parents ancestor anc_todo
4621 set leftover {}
4622 set done 0
4627 continue
4628 }
4634 set done 1
4635 }
4636 }
4637 }
4640 return
4641 }
4642 }
4645 }
4647 proc askrelhighlight {row id} {
4648 global descendent highlight_related iddrawn rhighlights
4649 global selectedline ancestor
4652 set isbold 0
4657 }
4659 set isbold 1
4660 }
4665 }
4667 set isbold 1
4668 }
4669 }
4673 }
4674 }
4676 }
4678 # Graph layout functions
4680 proc shortids {ids} {
4681 set res {}
4687 } else {
4689 }
4690 }
4692 }
4694 proc ntimes {n o} {
4695 set ret {}
4700 }
4702 }
4704 }
4706 proc ordertoken {id} {
4707 global ordertok curview varcid varcstart varctok curview parents children
4708 global nullid nullid2
4712 }
4714 set todo {}
4715 while {1} {
4719 } else {
4721 }
4724 break
4725 }
4728 # it's a root
4730 break
4731 }
4734 } else {
4738 }
4740 }
4741 }
4746 }
4749 }
4751 # Work out where id should go in idlist so that order-token
4752 # values increase from left to right
4753 proc idcol {idlist id {i 0}} {
4756 set i 0
4757 }
4761 }
4763 incr i
4764 } else {
4768 }
4769 }
4771 }
4773 proc initlayout {} {
4774 global rowidlist rowisopt rowfinal displayorder parentlist
4775 global numcommits canvxmax canv
4776 global nextcolor
4777 global colormap rowtextx
4779 set numcommits 0
4780 set displayorder {}
4781 set parentlist {}
4782 set nextcolor 0
4783 set rowidlist {}
4784 set rowisopt {}
4785 set rowfinal {}
4787 catch {unset colormap}
4788 catch {unset rowtextx}
4789 setcanvscroll
4790 }
4792 proc setcanvscroll {} {
4793 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4794 global lastscrollset lastscrollrows
4800 set lastscrollset [clock clicks -milliseconds]
4802 }
4804 proc visiblerows {} {
4805 global canv numcommits linespc
4813 set r0 0
4814 }
4819 }
4821 }
4823 proc layoutmore {} {
4824 global commitidx viewcomplete curview
4825 global numcommits pending_select curview
4826 global lastscrollset lastscrollrows
4830 setcanvscroll
4831 }
4832 if {[info exists pending_select] &&
4834 update
4836 }
4837 drawvisible
4838 }
4840 # With path limiting, we mightn't get the actual HEAD commit,
4841 # so ask git rev-list what is the first ancestor of HEAD that
4842 # touches a file in the path limit.
4843 proc get_viewmainhead {view} {
4844 global viewmainheadid vfilelimit viewinstances mainheadid
4846 catch {
4854 }
4855 }
4858 proc getviewhead {fd inst view} {
4859 global viewmainheadid commfd curview viewinstances showlocalchanges
4861 set id {}
4864 return 1
4865 }
4868 }
4875 }
4877 doshowlocalchanges
4878 }
4879 return 0
4880 }
4882 proc doshowlocalchanges {} {
4883 global curview viewmainheadid
4887 dodiffindex
4888 } else {
4890 }
4891 }
4893 proc dohidelocalchanges {} {
4894 global nullid nullid2 lserial curview
4898 }
4901 }
4902 incr lserial
4903 }
4905 # spawn off a process to do git diff-index --cached HEAD
4906 proc dodiffindex {} {
4907 global lserial showlocalchanges vfilelimit curview
4908 global isworktree
4911 incr lserial
4912 set cmd "|git diff-index --cached HEAD"
4915 }
4920 }
4922 proc readdiffindex {fd serial inst} {
4923 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4924 global vfilelimit
4926 set isdiff 1
4929 return 1
4930 }
4931 set isdiff 0
4932 }
4933 # we only need to see one line and we don't really care what it says...
4937 return 0
4938 }
4940 # now see if there are any local changes not checked in to the index
4941 set cmd "|git diff-files"
4944 }
4951 # add the line for the changes in the index to the graph
4952 set hl [mc "Local changes checked in to index but not committed"]
4957 }
4962 }
4964 }
4965 return 0
4966 }
4968 proc readdifffiles {fd serial inst} {
4969 global viewmainheadid nullid nullid2 curview
4970 global commitinfo commitdata lserial
4972 set isdiff 1
4975 return 1
4976 }
4977 set isdiff 0
4978 }
4979 # we only need to see one line and we don't really care what it says...
4983 return 0
4984 }
4987 # add the line for the local diff to the graph
4988 set hl [mc "Local uncommitted changes, not checked in to index"]
4993 } else {
4995 }
4999 }
5000 return 0
5001 }
5003 proc nextuse {id row} {
5004 global curview children
5009 return -1
5010 }
5013 }
5014 }
5015 }
5018 }
5019 return -1
5020 }
5022 proc prevuse {id row} {
5023 global curview children
5025 set ret -1
5031 }
5032 }
5033 }
5035 }
5037 proc make_idlist {row} {
5038 global displayorder parentlist uparrowlen downarrowlen mingaplen
5039 global commitidx curview children
5043 set r 0
5044 }
5047 set ra 0
5048 }
5052 }
5054 set ids {}
5063 }
5064 }
5065 }
5073 }
5074 }
5075 }
5083 }
5084 }
5085 incr r
5091 }
5092 }
5093 }
5094 set idlist {}
5097 }
5099 }
5101 proc rowsequal {a b} {
5104 }
5107 }
5109 }
5111 proc makeupline {id row rend col} {
5112 global rowidlist uparrowlen downarrowlen mingaplen
5118 }
5121 }
5128 }
5129 }
5130 }
5132 proc layoutrows {row endrow} {
5133 global rowidlist rowisopt rowfinal displayorder
5134 global uparrowlen downarrowlen maxwidth mingaplen
5135 global children parentlist
5136 global commitidx viewcomplete curview
5139 set idlist {}
5145 }
5146 }
5148 }
5153 set final 1
5154 } else {
5162 # if not the first child, we have to insert a line going up
5165 }
5166 }
5167 }
5177 }
5178 }
5179 }
5186 }
5187 }
5197 }
5198 }
5206 }
5207 }
5208 }
5209 }
5210 }
5214 set final 0
5215 }
5219 lappend rowisopt 0
5225 }
5227 } else {
5234 }
5235 }
5237 }
5239 proc changedrow {row} {
5240 global displayorder iddrawn rowisopt need_redisplay
5249 }
5250 }
5251 }
5254 set need_redisplay 1
5255 }
5256 }
5258 proc insert_pad {row col npad} {
5259 global rowidlist
5268 }
5271 }
5273 proc optimize_rows {row col endrow} {
5274 global rowidlist rowisopt displayorder curview children
5277 set row 1
5278 }
5281 set haspad 0
5290 } else {
5291 set pprevidlist {}
5292 }
5293 set x0 -1
5294 set xm -1
5299 set haspad 1
5300 continue
5301 }
5305 set isarrow 0
5306 set z0 {}
5311 }
5312 }
5317 set isarrow 1
5318 }
5319 }
5322 set isarrow 1
5323 }
5324 # Looking at lines from this row to the previous row,
5325 # make them go straight up if they end in an arrow on
5326 # the previous row; otherwise make them go straight up
5327 # or at 45 degrees.
5329 # Line currently goes left too much;
5330 # insert pads in the previous row, then optimize it
5335 }
5343 }
5345 # Line currently goes right too much;
5346 # insert pads in this line
5352 set haspad 1
5353 }
5360 }
5361 }
5362 # avoid lines jigging left then immediately right
5365 incr x0
5368 }
5369 }
5371 # Find the first column that doesn't have a line going right
5377 # check if this is the link to the first child
5380 # it is, work out offset to child
5382 }
5383 }
5385 }
5386 # Insert a pad at that column as long as it has a line and
5387 # isn't the last column
5392 }
5393 }
5394 }
5395 }
5397 proc xc {row col} {
5398 global canvx0 linespc
5400 }
5402 proc yc {row} {
5403 global canvy0 linespc
5405 }
5407 proc linewidth {id} {
5408 global thickerline lthickness
5413 }
5415 }
5417 proc rowranges {id} {
5418 global curview children uparrowlen downarrowlen
5419 global rowidlist
5423 return {}
5424 }
5425 set ret {}
5430 if {![info exists prev]} {
5432 } else {
5434 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5435 }
5436 # see if the line extends the whole way from prevrow to row
5440 # it doesn't, see where it ends
5445 } else {
5448 incr r -1
5449 }
5451 # see where it starts up again
5456 } else {
5459 incr r
5460 }
5462 }
5463 }
5466 }
5469 }
5471 }
5473 proc drawlineseg {id row endrow arrowlow} {
5474 global rowidlist displayorder iddrawn linesegs
5475 global canv colormap linespc curview maxlinelen parentlist
5479 set arrowhigh 1
5480 while {1} {
5483 incr le -1
5484 break
5485 }
5489 set arrowhigh 0
5490 break
5491 }
5496 set arrowhigh 0
5497 }
5498 break
5499 }
5500 incr le
5501 }
5504 }
5506 set lines {}
5507 set i 0
5508 set joinhigh 0
5515 set joinhigh 1
5516 }
5517 break
5518 }
5519 incr i
5520 }
5521 }
5522 set joinlow 0
5527 set joinlow 1
5528 }
5529 }
5542 }
5543 } else {
5545 }
5553 set arrowlow 0
5554 }
5555 }
5563 }
5565 }
5568 # join parent line to first child
5579 } else {
5581 }
5589 }
5591 }
5593 } else {
5597 }
5605 } else {
5609 }
5611 }
5612 } else {
5618 }
5622 } else {
5623 # coalesce two pieces
5628 }
5632 }
5633 }
5637 }
5639 proc drawparentlinks {id row} {
5640 global rowidlist canv colormap curview parentlist
5641 global idpos linespc
5654 # rmx = right-most X coord used
5655 set rmx 0
5660 continue
5661 }
5665 }
5668 # drawlineseg will do this one for us
5669 continue
5670 }
5672 # should handle duplicated parents here...
5675 # if attaching to a vertical segment, draw a smaller
5676 # slant for visual distinctness
5680 } else {
5682 }
5684 # segment slants towards us already
5686 } else {
5691 }
5693 }
5694 } else {
5696 }
5701 }
5705 }
5706 }
5708 proc drawlines {id} {
5709 global canv
5712 }
5714 proc drawcmittext {id row col} {
5715 global linespc canv canv2 canv3 fgcolor curview
5716 global cmitlisted commitinfo rowidlist parentlist
5717 global rowtextx idpos idtags idheads idotherrefs
5718 global linehtag linentag linedtag selectedline
5719 global canvxmax boldids boldnameids fgcolor markedid
5720 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5722 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5725 set ofill red
5727 set ofill green
5729 set ofill yellow
5730 } else {
5732 }
5741 # triangle pointing left for left-side commits
5747 } else {
5748 # triangle pointing right for right-side commits
5754 }
5766 }
5767 }
5768 }
5775 }
5780 set font mainfont
5781 set nfont mainfont
5785 set font mainfontbold
5788 set nfont mainfontbold
5789 }
5790 }
5800 }
5803 }
5807 setcanvscroll
5808 }
5809 }
5811 proc drawcmitrow {row} {
5812 global displayorder rowidlist nrows_drawn
5813 global iddrawn markingmatches
5814 global commitinfo numcommits
5815 global filehighlight fhighlights findpattern nhighlights
5816 global hlview vhighlights
5817 global highlight_related rhighlights
5824 }
5827 }
5830 }
5833 }
5838 return
5839 }
5842 }
5846 incr nrows_drawn
5847 }
5850 }
5851 }
5853 proc drawcommits {row {endrow {}}} {
5854 global numcommits iddrawn displayorder curview need_redisplay
5855 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5858 set row 0
5859 }
5862 }
5865 }
5869 set rl1 0
5870 }
5873 set ro1 0
5874 }
5878 }
5883 }
5885 }
5886 }
5889 }
5892 clear_display
5893 }
5895 # make the lines join to already-drawn rows either side
5899 }
5904 }
5919 # see if this is the first child of any of its parents
5922 # make this line extend up to the child
5924 }
5925 }
5926 } else {
5928 }
5929 }
5930 }
5931 }
5933 proc undolayout {row} {
5934 global uparrowlen mingaplen downarrowlen
5935 global rowidlist rowisopt rowfinal need_redisplay
5939 set r 0
5940 }
5942 incr r -1
5946 set need_redisplay 1
5947 run drawvisible
5948 }
5949 }
5951 proc drawvisible {} {
5952 global canv linespc curview vrowmod selectedline targetrow targetid
5953 global need_redisplay cscroll numcommits
5963 if {[info exists targetid]} {
5967 # Fix up the scrollregion and change the scrolling position
5968 # now that our target row has moved.
5971 setcanvscroll
5979 set need_redisplay 1
5980 }
5981 } else {
5982 unset targetid
5983 }
5984 }
5990 }
5994 } elseif {[info exists targetid]} {
5996 }
5997 if {[info exists targetrow]} {
6000 }
6002 }
6004 }
6006 proc clear_display {} {
6007 global iddrawn linesegs need_redisplay nrows_drawn
6008 global vhighlights fhighlights nhighlights rhighlights
6009 global linehtag linentag linedtag boldids boldnameids
6011 allcanvs delete all
6012 catch {unset iddrawn}
6013 catch {unset linesegs}
6014 catch {unset linehtag}
6015 catch {unset linentag}
6016 catch {unset linedtag}
6017 set boldids {}
6018 set boldnameids {}
6019 catch {unset vhighlights}
6020 catch {unset fhighlights}
6021 catch {unset nhighlights}
6022 catch {unset rhighlights}
6023 set need_redisplay 0
6024 set nrows_drawn 0
6025 }
6027 proc findcrossings {id} {
6028 global rowidlist parentlist numcommits displayorder
6030 set cross {}
6031 set ccross {}
6035 }
6054 }
6055 }
6056 }
6057 }
6058 }
6060 }
6062 proc assigncolor {id} {
6063 global colormap colors nextcolor
6064 global parents children children curview
6070 } else {
6071 set kids {}
6072 }
6078 return
6079 }
6080 }
6081 set badcolors {}
6082 set origbad {}
6085 # delimiter between corner crossings and other crossings
6088 }
6092 }
6093 }
6096 }
6103 }
6108 }
6109 }
6110 }
6113 }
6114 }
6118 set nextcolor 0
6119 }
6121 }
6123 }
6125 proc bindline {t id} {
6126 global canv
6132 }
6134 proc drawtags {id x xt y1} {
6135 global idtags idheads idotherrefs mainhead
6136 global linespc lthickness
6137 global canv rowtextx curview fgcolor bgcolor ctxbut
6139 set marks {}
6140 set ntags 0
6141 set nheads 0
6145 }
6149 }
6152 }
6155 }
6160 set xvals {}
6161 set wvals {}
6162 set i -1
6164 incr i
6167 } else {
6169 }
6173 }
6180 set font mainfont
6181 if {[incr ntags -1] >= 0} {
6182 # draw a tag
6188 } else {
6189 # draw a head or other ref
6190 if {[incr nheads -1] >= 0} {
6191 set col green
6193 set font mainfontbold
6194 }
6195 } else {
6196 set col "#ddddff"
6197 }
6208 }
6209 }
6216 }
6217 }
6219 }
6221 proc xcoord {i level ln} {
6222 global canvx0 xspc1 xspc2
6229 }
6231 }
6233 proc show_status {msg} {
6234 global canv fgcolor
6236 clear_display
6239 }
6241 # Don't change the text pane cursor if it is currently the hand cursor,
6242 # showing that we are over a sha1 ID link.
6243 proc settextcursor {c} {
6244 global ctext curtextcursor
6248 }
6250 }
6252 proc nowbusy {what {name {}}} {
6253 global isbusy busyname statusw
6255 if {[array names isbusy] eq {}} {
6256 . config -cursor watch
6257 settextcursor watch
6258 }
6263 }
6264 }
6266 proc notbusy {what} {
6267 global isbusy maincursor textcursor busyname statusw
6269 catch {
6274 }
6275 }
6276 if {[array names isbusy] eq {}} {
6279 }
6280 }
6282 proc findmatches {f} {
6283 global findtype findstring
6286 } else {
6291 }
6292 set matches {}
6293 set i 0
6298 }
6299 }
6301 }
6303 proc dofind {{dirn 1} {wrap 1}} {
6304 global findstring findstartline findcurline selectedline numcommits
6305 global gdttype filehighlight fh_serial find_dirn findallowwrap
6307 if {[info exists find_dirn]} {
6309 stopfinding
6310 }
6311 focus .
6315 } else {
6317 }
6319 nowbusy finding [mc "Searching"]
6323 }
6326 run findmore
6327 }
6329 proc stopfinding {} {
6330 global find_dirn findcurline fprogcoord
6332 if {[info exists find_dirn]} {
6333 unset find_dirn
6334 unset findcurline
6335 notbusy finding
6336 set fprogcoord 0
6337 adjustprogress
6338 }
6339 stopblaming
6340 }
6342 proc findmore {} {
6343 global commitdata commitinfo numcommits findpattern findloc
6344 global findstartline findcurline findallowwrap
6345 global find_dirn gdttype fhighlights fprogcoord
6346 global curview varcorder vrownum varccommits vrowmod
6348 if {![info exists find_dirn]} {
6349 return 0
6350 }
6351 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6353 set moretodo 0
6355 incr l
6357 set l 0
6358 }
6361 } else {
6364 }
6365 } else {
6368 }
6369 incr l -1
6372 } else {
6373 set lim -1
6375 }
6376 }
6379 set n 500
6380 set moretodo 1
6381 }
6384 }
6385 set found 0
6386 set domore 1
6400 }
6402 # shouldn't happen unless git log doesn't give all the commits...
6405 continue
6406 }
6409 }
6414 set found 1
6415 break
6416 }
6417 }
6419 }
6420 } else {
6428 }
6433 }
6436 break
6437 }
6440 set domore 0
6442 }
6443 }
6444 }
6445 }
6447 unset findcurline
6448 unset find_dirn
6449 notbusy finding
6450 set fprogcoord 0
6451 adjustprogress
6454 } else {
6455 bell
6456 }
6457 return 0
6458 }
6460 flushhighlights
6461 } else {
6463 }
6467 }
6469 adjustprogress
6471 }
6473 proc findselectline {l} {
6474 global findloc commentend ctext findcurline markingmatches gdttype
6481 # highlight the matches in the comments
6488 }
6489 }
6490 drawvisible
6491 }
6493 # mark the bits of a headline or author that match a find string
6494 proc markmatches {canv l str tag matches font row} {
6495 global selectedline
6513 }
6514 }
6515 }
6517 proc unmarkmatches {} {
6518 global markingmatches
6520 allcanvs delete matches
6521 set markingmatches 0
6522 stopfinding
6523 }
6525 proc selcanvline {w x y} {
6526 global canv canvy0 ctext linespc
6527 global rowtextx
6534 set l 0
6535 }
6540 }
6541 unmarkmatches
6543 }
6545 proc commit_descriptor {p} {
6546 global commitinfo
6549 }
6550 set l "..."
6553 }
6555 }
6557 # append some text to the ctext widget, and make any SHA1 ID
6558 # that we know about be a clickable link.
6559 proc appendwithlinks {text tags} {
6560 global ctext linknum curview
6569 incr e
6573 incr linknum
6574 }
6575 }
6577 proc setlink {id lk} {
6578 global curview ctext pendinglinks
6580 set known 0
6585 set known 1
6587 }
6588 } else {
6590 }
6596 } else {
6599 }
6600 }
6602 proc appendshortlink {id {pre {}} {post {}}} {
6603 global ctext linknum
6610 incr linknum
6611 }
6613 proc makelink {id} {
6614 global pendinglinks
6619 }
6621 }
6623 proc linkcursor {w inc} {
6624 global linkentercount curtextcursor
6628 } else {
6631 set linkentercount 0
6632 }
6633 }
6634 }
6636 proc viewnextline {dir} {
6637 global canv linespc
6645 set newtop 0
6648 }
6650 }
6652 # add a list of tag or branch names at position pos
6653 # returns the number of names inserted
6654 proc appendrefs {pos ids var} {
6658 return 0
6659 }
6662 set tags {}
6666 }
6667 }
6670 } else {
6672 set sep {}
6676 incr linknum
6681 set sep ", "
6682 }
6683 }
6686 }
6688 # called when we have finished computing the nearby tags
6689 proc dispneartags {delay} {
6690 global selectedline currentid showneartags tagphase
6693 after cancel dispnexttag
6695 after 200 dispnexttag
6696 set tagphase -1
6697 } else {
6698 after idle dispnexttag
6699 set tagphase 0
6700 }
6701 }
6703 proc dispnexttag {} {
6704 global selectedline currentid showneartags tagphase ctext
6708 0 {
6712 }
6713 }
6714 1 {
6718 }
6719 }
6720 2 {
6725 # turn "Branch" into "Branches"
6729 }
6730 }
6731 }
6732 }
6733 if {[incr tagphase] <= 2} {
6734 after idle dispnexttag
6735 }
6736 }
6738 proc make_secsel {id} {
6739 global linehtag linentag linedtag canv canv2 canv3
6754 }
6756 proc make_idmark {id} {
6757 global linehtag canv fgcolor
6764 }
6766 proc selectline {l isnew {desired_loc {}}} {
6767 global canv ctext commitinfo selectedline
6768 global canvy0 linespc parents children curview
6769 global currentid sha1entry
6770 global commentend idtags linknum
6771 global mergemax numcommits pending_select
6772 global cmitmode showneartags allcommits
6773 global targetrow targetid lastscrollrows
6774 global autoselect jump_to_here
6776 catch {unset pending_select}
6778 normalline
6779 unsel_reflist
6780 stopfinding
6788 setcanvscroll
6789 }
6803 } else {
6807 }
6808 }
6812 } else {
6816 }
6817 }
6818 }
6821 set newtop 0
6822 }
6824 drawvisible
6825 }
6831 }
6837 }
6841 clear_ctext
6842 set linknum 0
6845 }
6855 }
6857 }
6859 set headers {}
6862 set np 0
6865 set tag mmax
6866 } else {
6868 }
6871 incr np
6872 }
6873 } else {
6876 }
6877 }
6881 }
6883 # make anything that looks like a SHA1 ID be a clickable link
6886 if {![info exists allcommits]} {
6887 getallcommits
6888 }
6899 dispneartags 1
6900 }
6905 }
6913 init_flist [mc "Comments"]
6918 } else {
6920 }
6921 }
6923 proc selfirstline {} {
6924 unmarkmatches
6925 selectline 0 1
6926 }
6928 proc sellastline {} {
6929 global numcommits
6930 unmarkmatches
6933 }
6935 proc selnextline {dir} {
6936 global selectedline
6937 focus .
6940 unmarkmatches
6942 }
6944 proc selnextpage {dir} {
6945 global canv linespc selectedline numcommits
6949 set lpp 1
6950 }
6952 drawvisible
6956 set l 0
6959 }
6960 unmarkmatches
6962 }
6964 proc unselectline {} {
6965 global selectedline currentid
6967 set selectedline {}
6968 catch {unset currentid}
6969 allcanvs delete secsel
6970 rhighlight_none
6971 }
6973 proc reselectline {} {
6974 global selectedline
6978 }
6979 }
6981 proc addtohistory {cmd {saveproc {}}} {
6982 global history historyindex curview
6984 unset_posvars
6985 save_position
6989 return
6990 }
6994 } else {
6996 }
6997 incr historyindex
6999 .tf.bar.leftbut conf -state normal
7000 } else {
7001 .tf.bar.leftbut conf -state disabled
7002 }
7003 .tf.bar.rightbut conf -state disabled
7004 }
7006 # save the scrolling position of the diff display pane
7007 proc save_position {} {
7008 global historyindex history
7015 }
7016 }
7018 proc unset_posvars {} {
7019 global last_posvars
7021 if {[info exists last_posvars]} {
7025 }
7026 unset last_posvars
7027 }
7028 }
7030 proc godo {elt} {
7031 global curview last_posvars
7038 }
7039 unset_posvars
7043 }
7046 }
7048 proc goback {} {
7049 global history historyindex
7050 focus .
7053 save_position
7054 incr historyindex -1
7056 .tf.bar.rightbut conf -state normal
7057 }
7059 .tf.bar.leftbut conf -state disabled
7060 }
7061 }
7063 proc goforw {} {
7064 global history historyindex
7065 focus .
7068 save_position
7070 incr historyindex
7072 .tf.bar.leftbut conf -state normal
7073 }
7075 .tf.bar.rightbut conf -state disabled
7076 }
7077 }
7079 proc gettree {id} {
7080 global treefilelist treeidlist diffids diffmergeid treepending
7081 global nullid nullid2
7084 catch {unset diffmergeid}
7086 if {![info exists treepending]} {
7088 set cmd [list | git ls-files]
7090 set cmd [list | git ls-files --stage -t]
7091 } else {
7093 }
7095 return
7096 }
7102 }
7103 } else {
7105 }
7106 }
7108 proc gettreeline {gtf id} {
7109 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7111 set nl 0
7115 } else {
7123 }
7126 }
7129 }
7132 }
7134 unset treepending
7136 if {![info exists diffmergeid]} {
7138 }
7141 } else {
7143 }
7144 return 0
7145 }
7147 proc showfile {f} {
7148 global treefilelist treeidlist diffids nullid nullid2
7149 global ctext_file_names ctext_file_lines
7150 global ctext commentend
7155 return
7156 }
7160 return
7161 }
7162 } else {
7166 return
7167 }
7168 }
7179 settabs 0
7180 }
7182 proc getblobline {bf id} {
7183 global diffids cmitmode ctext
7187 return 0
7188 }
7190 set nl 0
7193 }
7195 global jump_to_here ctext_file_names commentend
7197 # delete last newline
7205 }
7206 return 0
7207 }
7210 }
7212 proc mark_ctext_line {lnum} {
7213 global ctext markbgcolor
7219 }
7221 proc mergediff {id} {
7222 global diffmergeid
7223 global diffids treediffs
7224 global parents curview
7232 }
7234 proc startdiff {ids} {
7235 global treediffs diffids treepending diffmergeid nullid nullid2
7237 settabs 1
7239 catch {unset diffmergeid}
7243 if {![info exists treepending]} {
7245 }
7246 } else {
7248 }
7249 }
7251 proc path_filter {filter name} {
7256 return 1
7257 }
7258 } else {
7262 return 1
7263 }
7264 }
7265 }
7266 return 0
7267 }
7269 proc addtocflist {ids} {
7270 global treediffs
7274 }
7276 proc diffcmd {ids flags} {
7277 global nullid nullid2
7283 # comparing working directory with some specific revision
7287 } else {
7289 }
7290 } else {
7291 # comparing working directory with index
7294 lappend cmd -R
7295 }
7296 }
7300 # comparing index with specific revision
7303 } else {
7305 }
7306 } else {
7307 # comparing index with HEAD
7308 lappend cmd HEAD
7309 }
7310 } else {
7312 }
7314 }
7316 proc gettreediffs {ids} {
7317 global treediff treepending
7322 set treediff {}
7325 }
7327 proc gettreediffline {gdtf ids} {
7328 global treediff treediffs treepending diffids diffmergeid
7329 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7331 set nr 0
7332 set sublist {}
7333 set max 1000
7335 # cache_gitattr is slow, and even slower on win32 where we
7336 # have to invoke it for only about 30 paths at a time
7337 set max 500
7338 if {[tk windowingsystem] == "win32"} {
7339 set max 120
7340 }
7341 }
7348 }
7353 }
7354 }
7355 }
7358 }
7361 }
7364 set flist {}
7368 }
7369 }
7371 } else {
7373 }
7374 unset treepending
7378 if {![info exists diffmergeid]} {
7380 }
7381 } else {
7383 }
7384 return 0
7385 }
7387 # empty string or positive integer
7388 proc diffcontextvalidate {v} {
7390 }
7392 proc diffcontextchange {n1 n2 op} {
7393 global diffcontextstring diffcontext
7398 reselectline
7399 }
7400 }
7401 }
7403 proc changeignorespace {} {
7404 reselectline
7405 }
7407 proc getblobdiffs {ids} {
7408 global blobdifffd diffids env
7409 global diffinhdr treediffs
7410 global diffcontext
7411 global ignorespace
7412 global limitdiffs vfilelimit curview
7413 global diffencoding targetline diffnparents
7417 append cmd " -w"
7418 }
7421 }
7424 return
7425 }
7426 set targetline {}
7427 set diffnparents 0
7428 set diffinhdr 0
7429 set diffencoding [get_path_encoding {}]
7433 }
7435 proc savecmitpos {} {
7436 global ctext cmitmode
7439 return {}
7440 }
7442 }
7444 proc savectextpos {} {
7445 global ctext
7448 }
7450 proc maybe_scroll_ctext {ateof} {
7451 global ctext target_scrollpos
7453 if {![info exists target_scrollpos]} return
7456 / [font metrics textfont -linespace]}]
7458 }
7460 unset target_scrollpos
7461 }
7463 proc setinlist {var i val} {
7468 }
7471 } else {
7473 }
7474 }
7476 proc makediffhdr {fname ids} {
7477 global ctext curdiffstart treediffs diffencoding
7478 global ctext_file_names jump_to_here targetline diffline
7485 }
7490 set targetline {}
7493 }
7494 set diffline 0
7495 }
7497 proc getblobdiffline {bdf ids} {
7498 global diffids blobdifffd ctext curdiffstart
7499 global diffnexthead diffnextnote difffilestart
7500 global ctext_file_names ctext_file_lines
7501 global diffinhdr treediffs mergemax diffnparents
7502 global diffencoding jump_to_here targetline diffline
7504 set nr 0
7509 return 0
7510 }
7515 continue
7516 }
7517 # start of a new file
7518 set diffinhdr 1
7521 lappend ctext_file_names ""
7526 # start of a new file in a merge diff
7531 }
7533 } else {
7535 # If the name hasn't changed the length will be odd,
7536 # the middle char will be a space, and the two bits either
7537 # side will be a/name and b/name, or "a/name" and "b/name".
7538 # If the name has changed we'll get "rename from" and
7539 # "rename to" or "copy from" and "copy to" lines following
7540 # this, and we'll use them to get the filenames.
7541 # This complexity is necessary because spaces in the
7542 # filename(s) don't get escaped.
7548 continue
7549 }
7550 # unescape if quoted and chop off the a/ from the front
7553 } else {
7555 }
7556 }
7569 }
7577 }
7579 set diffinhdr 0
7586 }
7591 }
7597 }
7600 # do nothing
7601 continue
7603 set diffinhdr 0
7604 continue
7605 }
7608 } else {
7609 set line [string map {\x1A ^Z} \
7611 # parse the prefix - one ' ', '-' or '+' for each parent
7615 # prefix only has " ", "-" and "+" in it: normal diff line
7620 set num "max"
7621 }
7623 } else {
7624 set tags {}
7626 # added line
7632 set num "max"
7633 }
7635 }
7636 }
7637 }
7641 set targetline {}
7642 } else {
7643 incr diffline
7644 }
7645 }
7647 }
7648 } else {
7649 # "\ No newline at end of file",
7650 # or something else we don't recognize
7652 }
7653 }
7654 }
7655 if {[info exists seehere]} {
7657 }
7662 return 0
7663 }
7665 }
7667 proc changediffdisp {} {
7668 global ctext diffelide
7672 }
7674 proc highlightfile {loc cline} {
7675 global ctext cflist cflist_top
7682 }
7684 proc prevfile {} {
7685 global difffilestart ctext cmitmode
7688 set prev 0.0
7689 set prevline 1
7694 return
7695 }
7697 incr prevline
7698 }
7700 }
7702 proc nextfile {} {
7703 global difffilestart ctext cmitmode
7707 set line 1
7709 incr line
7712 return
7713 }
7714 }
7715 }
7717 proc clear_ctext {{first 1.0}} {
7718 global ctext smarktop smarkbot
7719 global ctext_file_names ctext_file_lines
7720 global pendinglinks
7725 }
7728 }
7731 catch {unset pendinglinks}
7732 }
7733 set ctext_file_names {}
7734 set ctext_file_lines {}
7735 }
7737 proc settabs {{firstab {}}} {
7738 global firsttabstop tabstop ctext have_tk85
7742 }
7743 set w [font measure textfont "0"]
7749 } else {
7751 }
7752 }
7754 proc incrsearch {name ix op} {
7755 global ctext searchstring searchdirn
7759 # no anchor set, use start of selection, or of visible area
7765 } else {
7767 }
7768 }
7773 }
7774 searchmarkvisible 1
7775 }
7776 }
7778 proc dosearch {} {
7779 global sstring ctext searchstring searchdirn
7783 set searchdirn -forwards
7789 set start "@0,0"
7790 }
7794 bell
7795 return
7796 }
7801 }
7802 }
7804 proc dosearchback {} {
7805 global sstring ctext searchstring searchdirn
7809 set searchdirn -backwards
7816 }
7820 bell
7821 return
7822 }
7827 }
7828 }
7830 proc searchmark {first last} {
7831 global ctext searchstring
7834 while {1} {
7839 }
7840 }
7842 proc searchmarkvisible {doall} {
7843 global ctext smarktop smarkbot
7848 # no overlap with previous
7852 } else {
7856 }
7860 }
7861 }
7862 }
7864 proc scrolltext {f0 f1} {
7865 global searchstring
7869 searchmarkvisible 0
7870 }
7871 }
7873 proc setcoords {} {
7874 global linespc charspc canvx0 canvy0
7875 global xspc1 xspc2 lthickness
7877 set linespc [font metrics mainfont -linespace]
7878 set charspc [font measure mainfont "m"]
7884 }
7886 proc redisplay {} {
7887 global canv
7888 global selectedline
7893 clear_display
7894 setcanvscroll
7896 drawvisible
7900 }
7901 }
7903 proc parsefont {f n} {
7904 global fontattr
7909 set s 10
7912 }
7918 "normal" -
7920 "roman" -
7922 }
7923 }
7924 }
7926 proc fontflags {f {isbold 0}} {
7927 global fontattr
7932 }
7934 proc fontname {f} {
7935 global fontattr
7939 lappend n "bold"
7940 }
7942 lappend n "italic"
7943 }
7945 }
7947 proc incrfont {inc} {
7948 global mainfont textfont ctext canv cflist showrefstop
7949 global stopped entries fontattr
7951 unmarkmatches
7955 set s 1
7956 }
7960 set mainfont [fontname mainfont]
7964 set s 1
7965 }
7969 set textfont [fontname textfont]
7970 setcoords
7971 settabs
7972 redisplay
7973 }
7975 proc clearsha1 {} {
7976 global sha1entry sha1string
7979 }
7980 }
7982 proc sha1change {n1 n2 op} {
7983 global sha1string currentid sha1but
7986 set state disabled
7987 } else {
7988 set state normal
7989 }
7993 } else {
7995 }
7996 }
7998 proc gotocommit {} {
7999 global sha1string tagids headids curview varcid
8007 } else {
8014 return
8015 }
8017 }
8018 }
8019 }
8022 return
8023 }
8026 } else {
8028 }
8030 }
8032 proc lineenter {x y id} {
8033 global hoverx hovery hoverid hovertimer
8034 global commitinfo canv
8040 if {[info exists hovertimer]} {
8042 }
8043 set hovertimer [after 500 linehover]
8045 }
8047 proc linemotion {x y id} {
8048 global hoverx hovery hoverid hovertimer
8053 if {[info exists hovertimer]} {
8055 }
8056 set hovertimer [after 500 linehover]
8057 }
8058 }
8060 proc lineleave {id} {
8061 global hoverid hovertimer canv
8065 if {[info exists hovertimer]} {
8067 unset hovertimer
8068 }
8069 unset hoverid
8070 }
8071 }
8073 proc linehover {} {
8074 global hoverx hovery hoverid hovertimer
8075 global canv linespc lthickness
8076 global commitinfo
8089 -fill \#ffff80 -outline black -width 1 -tags hover]
8092 -font mainfont]
8094 }
8096 proc clickisonarrow {id y} {
8097 global lthickness
8106 }
8107 }
8108 return {}
8109 }
8111 proc arrowjump {id n y} {
8112 global canv
8114 # 1 <-> 2, 3 <-> 4, etc...
8124 set yfrac 0
8125 }
8127 }
8129 proc lineclick {x y id isnew} {
8130 global ctext commitinfo children canv thickerline curview
8133 unmarkmatches
8134 unselectline
8135 normalline
8137 # draw this line thicker than normal
8145 }
8149 return
8150 }
8154 }
8155 # fill the details pane with info about this line
8157 clear_ctext
8158 settabs 0
8170 set i 0
8172 incr i
8182 }
8183 }
8184 maybe_scroll_ctext 1
8186 init_flist {}
8187 }
8189 proc normalline {} {
8190 global thickerline
8191 if {[info exists thickerline]} {
8193 unset thickerline
8195 }
8196 }
8198 proc selbyid {id {isnew 1}} {
8199 global curview
8202 }
8203 }
8205 proc mstime {} {
8206 global startmstime
8207 if {![info exists startmstime]} {
8208 set startmstime [clock clicks -milliseconds]
8209 }
8211 }
8213 proc rowmenu {x y id} {
8214 global rowctxmenu selectedline rowmenuid curview
8215 global nullid nullid2 fakerowmenu mainhead markedid
8217 stopfinding
8220 set state disabled
8221 } else {
8222 set state normal
8223 }
8228 } else {
8230 }
8235 } else {
8239 }
8240 } else {
8242 }
8247 }
8249 proc markhere {} {
8250 global rowmenuid markedid canv
8254 }
8256 proc gotomark {} {
8257 global markedid
8259 if {[info exists markedid]} {
8261 }
8262 }
8264 proc replace_by_kids {l r} {
8265 global curview children
8271 }
8273 }
8275 proc find_common_desc {} {
8276 global markedid rowmenuid curview children
8278 if {![info exists markedid]} return
8281 #set t1 [clock clicks -milliseconds]
8284 while 1 {
8290 break
8291 }
8294 } else {
8296 }
8297 }
8298 #set t2 [clock clicks -milliseconds]
8300 }
8302 proc compare_commits {} {
8303 global markedid rowmenuid curview children
8305 if {![info exists markedid]} return
8309 }
8311 proc getpatchid {id} {
8312 global patchids
8316 # trim off the initial "|"
8318 if {[catch {
8321 }]} {
8323 }
8324 }
8326 }
8328 proc do_cmp_commits {a b} {
8329 global ctext curview parents children patchids commitinfo
8332 clear_ctext
8333 init_flist {}
8335 set skipa 0
8336 set skipb 0
8339 set skipa 1
8340 } else {
8342 }
8345 set skipb 1
8346 } else {
8348 }
8354 [mc " - stopping\n"]
8355 break
8356 }
8359 [mc " - stopping\n"]
8360 break
8361 }
8366 } else {
8370 }
8371 set skipa 1
8372 set skipb 1
8373 } else {
8379 break
8380 }
8381 }
8386 [mc " has %s children - stopping\n" \
8388 break
8389 }
8391 }
8395 [mc " has %s children - stopping\n" \
8397 break
8398 }
8400 }
8401 }
8403 }
8405 proc diffvssel {dirn} {
8406 global rowmenuid selectedline
8412 } else {
8415 }
8418 }
8420 proc doseldiff {oldid newid} {
8421 global ctext
8422 global commitinfo
8425 clear_ctext
8426 init_flist [mc "Top"]
8441 }
8443 proc mkpatch {} {
8444 global rowmenuid currentid commitinfo patchtop patchnum NS
8446 if {![info exists currentid]} return
8451 set top .patch
8481 incr patchnum
8493 }
8495 proc mkpatchrev {} {
8496 global patchtop
8502 foreach e [list fromsha1 fromhead tosha1 tohead] \
8508 }
8509 }
8511 proc mkpatchgo {} {
8512 global patchtop nullid nullid2
8518 # trim off the initial "|"
8523 }
8525 unset patchtop
8526 }
8528 proc mkpatchcan {} {
8529 global patchtop
8532 unset patchtop
8533 }
8535 proc mktag {} {
8536 global rowmenuid mktagtop commitinfo NS
8538 set top .maketag
8567 }
8569 proc domktag {} {
8570 global mktagtop env tagids idtags
8576 return 0
8577 }
8580 return 0
8581 }
8582 if {[catch {
8584 } err]} {
8586 return 0
8587 }
8593 dispneartags 0
8594 run refill_reflist
8595 return 1
8596 }
8598 proc redrawtags {id} {
8599 global canv linehtag idpos currentid curview cmitlisted markedid
8600 global canvxmax iddrawn circleitem mainheadid circlecolors
8606 set ofill yellow
8607 } else {
8609 }
8619 setcanvscroll
8620 }
8623 }
8626 }
8627 }
8629 proc mktagcan {} {
8630 global mktagtop
8633 unset mktagtop
8634 }
8636 proc mktaggo {} {
8637 if {![domktag]} return
8638 mktagcan
8639 }
8641 proc writecommit {} {
8642 global rowmenuid wrcomtop commitinfo wrcomcmd NS
8644 set top .writecommit
8677 }
8679 proc wrcomgo {} {
8680 global wrcomtop
8687 }
8689 unset wrcomtop
8690 }
8692 proc wrcomcan {} {
8693 global wrcomtop
8696 unset wrcomtop
8697 }
8699 proc mkbranch {} {
8700 global rowmenuid mkbrtop NS
8702 set top .makebranch
8726 }
8728 proc mkbrgo {top} {
8729 global headids idheads
8733 set cmdargs {}
8734 set old_id {}
8737 return
8738 }
8740 if {![confirm_popup [mc \
8742 return
8743 }
8745 lappend cmdargs -f
8746 }
8749 nowbusy newbranch
8750 update
8751 if {[catch {
8753 } err]} {
8754 notbusy newbranch
8756 } else {
8757 notbusy newbranch
8763 } else {
8768 }
8769 dispneartags 0
8770 run refill_reflist
8771 }
8772 }
8774 proc exec_citool {tool_args {baseid {}}} {
8775 global commitinfo env
8777 set save_env [array get env GIT_AUTHOR_*]
8782 }
8785 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8791 }
8792 }
8796 array unset env GIT_AUTHOR_*
8798 }
8800 proc cherrypick {} {
8801 global rowmenuid curview
8802 global mainhead mainheadid
8804 set oldhead [exec git rev-parse HEAD]
8807 set ok [confirm_popup [mc "Commit %s is already\
8808 included in branch %s -- really re-apply it?" \
8811 }
8812 nowbusy cherrypick [mc "Cherry-picking"]
8813 update
8814 # Unfortunately git-cherry-pick writes stuff to stderr even when
8815 # no error occurs, and exec takes that as an indication of error...
8817 notbusy cherrypick
8818 if {[regexp -line \
8819 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8821 error_popup [mc "Cherry-pick failed because of local changes\
8822 to file '%s'.\nPlease commit, reset or stash\
8824 } elseif {[regexp -line \
8825 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8827 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8828 conflict.\nDo you wish to run git citool to\
8829 resolve it?"]]} {
8830 # Force citool to read MERGE_MSG
8831 file delete [file join [gitdir] "GITGUI_MSG"]
8833 }
8834 } else {
8836 }
8837 run updatecommits
8838 return
8839 }
8840 set newhead [exec git rev-parse HEAD]
8842 notbusy cherrypick
8843 error_popup [mc "No changes committed"]
8844 return
8845 }
8848 # XXX this isn't right if we have a path limit...
8853 }
8858 }
8859 notbusy cherrypick
8860 }
8862 proc resethead {} {
8863 global mainhead rowmenuid confirm_ok resettype NS
8865 set confirm_ok 0
8866 set w ".confirmreset"
8874 set resettype mixed
8876 -text [mc "Soft: Leave working tree and index untouched"]
8879 -text [mc "Mixed: Leave working tree untouched, reset index"]
8882 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8893 if {[catch {set fd [open \
8896 } else {
8897 dohidelocalchanges
8899 nowbusy reset [mc "Resetting"]
8901 }
8902 }
8904 proc readresetstat {fd} {
8905 global mainhead mainheadid showlocalchanges rprogcoord
8910 adjustprogress
8911 }
8912 return 1
8913 }
8914 set rprogcoord 0
8915 adjustprogress
8916 notbusy reset
8919 }
8921 set newhead [exec git rev-parse HEAD]
8928 }
8930 doshowlocalchanges
8931 }
8932 return 0
8933 }
8935 # context menu for a head
8936 proc headmenu {x y id head} {
8937 global headmenuid headmenuhead headctxmenu mainhead
8939 stopfinding
8942 set state normal
8944 set state disabled
8945 }
8949 }
8951 proc cobranch {} {
8952 global headmenuid headmenuhead headids
8953 global showlocalchanges
8955 # check the tree is clean first??
8956 nowbusy checkout [mc "Checking out"]
8957 update
8958 dohidelocalchanges
8959 if {[catch {
8961 } err]} {
8962 notbusy checkout
8965 dodiffindex
8966 }
8967 } else {
8969 }
8970 }
8972 proc readcheckoutstat {fd newhead newheadid} {
8973 global mainhead mainheadid headids showlocalchanges progresscoords
8974 global viewmainheadid curview
8979 adjustprogress
8980 }
8981 return 1
8982 }
8983 set progresscoords {0 0}
8984 adjustprogress
8985 notbusy checkout
8988 }
8997 dodiffindex
8998 }
8999 }
9001 proc rmbranch {} {
9002 global headmenuid headmenuhead mainhead
9003 global idheads
9007 # this check shouldn't be needed any more...
9009 error_popup [mc "Cannot delete the currently checked-out branch"]
9010 return
9011 }
9014 # the stuff on this branch isn't on any other branch
9015 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9017 }
9018 nowbusy rmbranch
9019 update
9021 notbusy rmbranch
9023 return
9024 }
9028 notbusy rmbranch
9029 dispneartags 0
9030 run refill_reflist
9031 }
9033 # Display a list of tags and heads
9034 proc showrefs {} {
9035 global showrefstop bgcolor fgcolor selectbgcolor NS
9036 global bglist fglist reflistfilter reflist maincursor
9038 set top .showrefs
9042 refill_reflist
9043 return
9044 }
9052 -spacing1 1 -spacing3 1 -state disabled
9063 set reflistfilter "*"
9064 trace add variable reflistfilter write reflistfilter_change
9076 set reflist {}
9077 refill_reflist
9078 }
9080 proc sel_reflist {w x y} {
9081 global showrefstop reflist headids tagids otherrefids
9091 }
9093 }
9095 proc unsel_reflist {} {
9096 global showrefstop
9100 }
9102 proc reflistfilter_change {n1 n2 op} {
9103 global reflistfilter
9105 after cancel refill_reflist
9106 after 200 refill_reflist
9107 }
9109 proc refill_reflist {} {
9110 global reflist reflistfilter showrefstop headids tagids otherrefids
9111 global curview
9114 set refs {}
9115 foreach n [array names headids] {
9119 } else {
9121 }
9122 }
9123 }
9124 foreach n [array names tagids] {
9128 } else {
9130 }
9131 }
9132 }
9133 foreach n [array names otherrefids] {
9137 } else {
9139 }
9140 }
9141 }
9149 set i 0
9150 set j 0
9159 }
9160 } else {
9161 set cmp -1
9162 }
9163 } else {
9164 set cmp 1
9165 }
9167 -1 {
9169 incr i
9170 }
9171 0 {
9172 incr i
9173 incr j
9174 }
9175 1 {
9180 incr j
9181 }
9182 }
9183 }
9185 # delete last newline
9188 }
9190 # Stuff for finding nearby tags
9191 proc getallcommits {} {
9192 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9193 global idheads idtags idotherrefs allparents tagobjid
9195 if {![info exists allcommits]} {
9196 set nextarc 0
9197 set allcommits 0
9198 set seeds {}
9199 set allcwait 0
9200 set cachedarcs 0
9201 set allccache [file join [gitdir] "gitk.cache"]
9202 if {![catch {
9204 set allcwait 1
9206 }]} return
9207 }
9210 return
9211 }
9212 set cmd [list | git rev-list --parents]
9215 set ids "--all"
9216 } else {
9217 set refs [concat [array names idheads] [array names idtags] \
9218 [array names idotherrefs]]
9219 set ids {}
9220 set tagobjs {}
9221 foreach name [array names tagobjid] {
9223 }
9228 }
9229 }
9233 }
9234 }
9235 }
9239 incr allcommits
9240 nowbusy allcommits
9242 } else {
9243 dispneartags 0
9244 }
9245 }
9247 # Since most commits have 1 parent and 1 child, we group strings of
9248 # such commits into "arcs" joining branch/merge points (BMPs), which
9249 # are commits that either don't have 1 parent or don't have 1 child.
9250 #
9251 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9252 # arcout(id) - outgoing arcs for BMP
9253 # arcids(a) - list of IDs on arc including end but not start
9254 # arcstart(a) - BMP ID at start of arc
9255 # arcend(a) - BMP ID at end of arc
9256 # growing(a) - arc a is still growing
9257 # arctags(a) - IDs out of arcids (excluding end) that have tags
9258 # archeads(a) - IDs out of arcids (excluding end) that have heads
9259 # The start of an arc is at the descendent end, so "incoming" means
9260 # coming from descendents, and "outgoing" means going towards ancestors.
9262 proc getallclines {fd} {
9263 global allparents allchildren idtags idheads nextarc
9264 global arcnos arcids arctags arcout arcend arcstart archeads growing
9265 global seeds allcommits cachedarcs allcupdate
9267 set nid 0
9271 # seen it already
9272 continue
9273 }
9274 set cachedarcs 0
9281 } else {
9287 }
9290 }
9292 # seen parent already
9295 }
9299 }
9302 continue
9303 }
9304 }
9309 }
9311 set ao {}
9314 set a [incr nextarc]
9323 # seen it already, may need to make a new branch
9326 }
9330 }
9332 }
9334 }
9336 global cached_dheads cached_dtags cached_atags
9337 catch {unset cached_dheads}
9338 catch {unset cached_dtags}
9339 catch {unset cached_atags}
9340 }
9343 }
9344 set cacheok 1
9345 if {[catch {
9348 } err]} {
9349 # got an error reading the list of commits
9350 # if we were updating, try rereading the whole thing again
9352 incr allcommits -1
9354 return
9355 }
9356 error_popup "[mc "Error reading commit topology information;\
9357 branch and preceding/following tag information\
9359 set cacheok 0
9360 }
9361 if {[incr allcommits -1] == 0} {
9362 notbusy allcommits
9364 run savecache
9365 }
9366 }
9367 dispneartags 0
9368 return 0
9369 }
9371 proc recalcarc {a} {
9372 global arctags archeads arcids idtags idheads
9374 set at {}
9375 set ah {}
9379 }
9382 }
9383 }
9386 }
9388 proc splitarc {p} {
9389 global arcnos arcids nextarc arctags archeads idtags idheads
9390 global arcstart arcend arcout allparents growing
9395 return
9396 }
9401 return
9402 }
9403 set na [incr nextarc]
9406 } else {
9410 }
9420 }
9425 } else {
9428 }
9429 }
9431 # reconstruct tags and heads lists
9435 } else {
9438 }
9439 }
9441 # Update things for a new commit added that is a child of one
9442 # existing commit. Used when cherry-picking.
9443 proc addnewchild {id p} {
9444 global allparents allchildren idtags nextarc
9445 global arcnos arcids arctags arcout arcend arcstart archeads growing
9446 global seeds allcommits
9454 set a [incr nextarc]
9462 }
9465 }
9467 # This implements a cache for the topology information.
9468 # The cache saves, for each arc, the start and end of the arc,
9469 # the ids on the arc, and the outgoing arcs from the end.
9470 proc readcache {f} {
9471 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9472 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9473 global allcwait
9479 }
9480 if {[catch {
9482 # finish reading the cache and setting up arctags, etc.
9486 foreach id [array names idtags] {
9492 }
9493 }
9494 }
9495 foreach id [array names idheads] {
9501 }
9502 }
9503 }
9507 }
9508 }
9509 set allcwait 0
9510 } else {
9520 }
9524 } else {
9528 }
9529 }
9535 }
9538 }
9541 }
9543 }
9544 } err]} {
9546 return 0
9547 }
9549 getallcommits
9550 }
9552 }
9554 proc getcache {f} {
9555 global nextarc cachedarcs possible_seeds
9557 if {[catch {
9560 # make sure it's an integer
9563 set nextarc 0
9564 set possible_seeds {}
9566 } err]} {
9568 }
9569 return 0
9570 }
9572 proc dropcache {err} {
9573 global allcwait nextarc cachedarcs seeds
9576 foreach v {arcnos arcout arcids arcstart arcend growing \
9577 arctags archeads allparents allchildren} {
9580 }
9581 set allcwait 0
9582 set nextarc 0
9583 set cachedarcs 0
9584 set seeds {}
9585 getallcommits
9586 }
9588 proc writecache {f} {
9589 global cachearc cachedarcs allccache
9590 global arcstart arcend arcnos arcids arcout
9596 }
9597 if {[catch {
9601 } else {
9603 }
9604 }
9605 } err]} {
9609 return 0
9610 }
9615 return 0
9616 }
9617 return 1
9618 }
9620 proc savecache {} {
9621 global nextarc cachedarcs cachearc allccache
9624 set cachearc 0
9626 catch {
9630 }
9631 }
9633 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9634 # or 0 if neither is true.
9635 proc anc_or_desc {a b} {
9636 global arcout arcstart arcend arcnos cached_isanc
9639 # Both are on the same arc(s); either both are the same BMP,
9640 # or if one is not a BMP, the other is also not a BMP or is
9641 # the BMP at end of the arc (and it only has 1 incoming arc).
9642 # Or both can be BMPs with no incoming arcs.
9644 return 0
9645 }
9651 return 1
9652 } else {
9653 return -1
9654 }
9655 }
9661 } else {
9662 set aend {}
9663 }
9665 } else {
9667 }
9672 } else {
9673 set bend {}
9674 }
9676 } else {
9678 }
9680 return 1
9681 }
9683 return -1
9684 }
9687 return 1
9688 }
9689 }
9692 return -1
9693 }
9695 return 0
9696 }
9697 }
9705 continue
9706 }
9712 return 1
9716 return -1
9717 }
9723 }
9724 }
9725 }
9728 return 0
9729 }
9733 # and returns 0 if so and 1 if not.
9734 # If we subsequently discover a tag on such a growing tip, and that
9737 # isn't a good choice to display as a descendent tag of
9741 #
9742 proc is_certain {desc anc} {
9743 global arcnos arcout arcstart arcend growing problems
9745 set certain {}
9747 # tags on the same arc are certain
9749 return 1
9750 }
9755 }
9756 }
9759 } else {
9762 }
9764 return 1
9765 }
9768 set nnh 1
9769 set ngrowanc 0
9773 incr nnh -1
9774 }
9780 incr ngrowanc
9781 }
9782 } else {
9789 incr nnh -1
9790 }
9792 incr ngrowanc -1
9793 }
9803 incr nnh -1
9804 }
9806 incr ngrowanc -1
9807 }
9809 }
9810 }
9811 }
9812 }
9813 }
9814 }
9818 } else {
9821 incr nnh
9822 }
9823 }
9824 }
9825 }
9826 foreach x [array names growanc] {
9828 return 0
9829 }
9830 return 0
9831 }
9832 return 1
9833 }
9835 proc validate_arctags {a} {
9836 global arctags idtags
9838 set i -1
9841 incr i
9844 incr i -1
9845 }
9846 }
9848 }
9850 proc validate_archeads {a} {
9851 global archeads idheads
9853 set i -1
9856 incr i
9859 incr i -1
9860 }
9861 }
9863 }
9865 # Return the list of IDs that have tags that are descendents of id,
9866 # ignoring IDs that are descendents of IDs already reported.
9867 proc desctags {id} {
9868 global arcnos arcstart arcids arctags idtags allparents
9869 global growing cached_dtags
9872 return {}
9873 }
9874 set t1 [clock clicks -milliseconds]
9877 # part-way along an arc; check that arc first
9882 set tid {}
9887 }
9890 }
9891 }
9895 }
9896 }
9899 }
9904 set nc 1
9910 incr nc -1
9911 }
9912 # ignore tags on starting node
9916 set ta 1
9919 set ta 1
9920 }
9921 }
9928 }
9929 }
9938 }
9941 }
9943 incr nc -1
9944 }
9946 }
9947 }
9948 }
9953 incr nc
9954 }
9955 }
9956 }
9957 }
9958 set tags {}
9959 foreach id [array names tagloc] {
9964 }
9965 }
9966 }
9967 }
9968 set t2 [clock clicks -milliseconds]
9971 # remove tags that are descendents of other tags
9979 incr j -1
9980 incr i -1
9983 incr i -1
9984 break
9985 }
9986 }
9987 }
9989 if {[array names growing] ne {}} {
9990 # graph isn't finished, need to check if any tag could get
9991 # eclipsed by another tag coming later. Simply ignore any
9992 # tags that could later get eclipsed.
9993 set ctags {}
9997 }
9998 }
10001 } else {
10003 }
10004 } else {
10006 }
10007 set t3 [clock clicks -milliseconds]
10011 }
10013 }
10015 proc anctags {id} {
10016 global arcnos arcids arcout arcend arctags idtags allparents
10017 global growing cached_atags
10020 return {}
10021 }
10022 set t1 [clock clicks -milliseconds]
10025 # part-way along an arc; check that arc first
10034 }
10035 }
10036 }
10038 return {}
10039 }
10043 }
10044 }
10047 }
10052 set taglist {}
10053 set nc 1
10059 incr nc -1
10060 }
10061 # ignore tags on starting node
10065 set td 1
10068 set td 1
10069 }
10070 }
10076 }
10077 }
10089 }
10090 }
10093 }
10095 incr nc -1
10096 }
10098 }
10099 }
10100 }
10105 incr nc
10106 }
10107 }
10108 }
10109 }
10110 set t2 [clock clicks -milliseconds]
10112 set tags {}
10113 foreach id [array names tagloc] {
10118 }
10119 }
10120 }
10121 }
10123 # remove tags that are ancestors of other tags
10131 incr j -1
10132 incr i -1
10135 incr i -1
10136 break
10137 }
10138 }
10139 }
10141 if {[array names growing] ne {}} {
10142 # graph isn't finished, need to check if any tag could get
10143 # eclipsed by another tag coming later. Simply ignore any
10144 # tags that could later get eclipsed.
10145 set ctags {}
10149 }
10150 }
10153 } else {
10155 }
10156 } else {
10158 }
10159 set t3 [clock clicks -milliseconds]
10163 }
10165 }
10167 # Return the list of IDs that have heads that are descendents of id,
10168 # including id itself if it has a head.
10169 proc descheads {id} {
10170 global arcnos arcstart arcids archeads idheads cached_dheads
10171 global allparents
10174 return {}
10175 }
10176 set aret {}
10178 # part-way along an arc; check it first
10187 }
10188 }
10190 }
10194 set ret {}
10199 } else {
10202 }
10208 }
10209 }
10214 }
10215 }
10216 }
10217 }
10221 }
10223 proc addedtag {id} {
10224 global arcnos arcout cached_dtags cached_atags
10229 }
10230 catch {unset cached_dtags}
10231 catch {unset cached_atags}
10232 }
10234 proc addedhead {hid head} {
10235 global arcnos arcout cached_dheads
10240 }
10241 catch {unset cached_dheads}
10242 }
10244 proc removedhead {hid head} {
10245 global cached_dheads
10247 catch {unset cached_dheads}
10248 }
10250 proc movedhead {hid head} {
10251 global arcnos arcout cached_dheads
10256 }
10257 catch {unset cached_dheads}
10258 }
10260 proc changedrefs {} {
10261 global cached_dheads cached_dtags cached_atags
10262 global arctags archeads arcnos arcout idheads idtags
10264 foreach id [concat [array names idheads] [array names idtags]] {
10270 }
10271 }
10272 }
10273 catch {unset cached_dtags}
10274 catch {unset cached_atags}
10275 catch {unset cached_dheads}
10276 }
10278 proc rereadrefs {} {
10279 global idtags idheads idotherrefs mainheadid
10281 set refids [concat [array names idtags] \
10282 [array names idheads] [array names idotherrefs]]
10286 }
10287 }
10289 readrefs
10290 changedrefs
10292 [array names idheads] [array names idotherrefs]]]
10297 }
10298 }
10302 }
10303 run refill_reflist
10304 }
10306 proc listrefs {id} {
10307 global idtags idheads idotherrefs
10309 set x {}
10312 }
10313 set y {}
10316 }
10317 set z {}
10320 }
10322 }
10324 proc showtag {tag isnew} {
10325 global ctext tagcontents tagids linknum tagobjid
10329 }
10331 clear_ctext
10332 settabs 0
10333 set linknum 0
10335 catch {
10337 }
10338 }
10341 } else {
10343 }
10345 maybe_scroll_ctext
10347 init_flist {}
10348 }
10350 proc doquit {} {
10351 global stopped
10352 global gitktmpdir
10354 set stopped 100
10355 savestuff .
10356 destroy .
10358 if {[info exists gitktmpdir]} {
10360 }
10361 }
10363 proc mkfontdisp {font top which} {
10373 }
10375 proc choosefont {font which} {
10376 global fontparam fontlist fonttop fontattr
10377 global prefstop NS
10385 set top .gitkfont
10388 font create sample
10395 set fontlist [lsort [font families]]
10406 -textvariable fontparam(size) \
10407 -validatecommand {string is integer -strict %s}
10409 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10410 -variable fontparam(weight) -onvalue bold -offvalue normal
10412 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10413 -variable fontparam(slant) -onvalue italic -offvalue roman
10417 -background white
10419 -fill black -tags text
10431 trace add variable fontparam write chg_fontparam
10432 } else {
10435 }
10440 }
10441 }
10443 proc centertext {w} {
10445 }
10447 proc fontok {} {
10448 global fontparam fontpref prefstop
10454 }
10457 }
10461 fontcan
10462 }
10464 proc fontcan {} {
10465 global fonttop fontparam
10467 if {[info exists fonttop]} {
10469 catch {font delete sample}
10470 unset fonttop
10471 unset fontparam
10472 }
10473 }
10475 if {[package vsatisfies [package provide Tk] 8.6]} {
10476 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
10477 # function to make use of it.
10478 proc choosefont {font which} {
10481 tk fontchooser show
10482 }
10483 proc on_choosefont {font which newfont} {
10484 global fontparam
10493 fontok
10494 }
10495 }
10497 proc selfontfam {} {
10498 global fonttop fontparam
10503 }
10504 }
10506 proc chg_fontparam {v sub op} {
10507 global fontparam
10510 }
10512 proc doprefs {} {
10513 global maxwidth maxgraphpct use_ttk NS
10514 global oldprefs prefstop showneartags showlocalchanges
10515 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10516 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10518 set top .gitkprefs
10522 return
10523 }
10524 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10525 limitdiffs tabstop perfile_attrs} {
10527 }
10541 -variable showlocalchanges
10544 -variable autoselect
10553 -variable showneartags
10556 -variable limitdiffs
10559 -variable perfile_attrs
10593 [mc "diff hunk header"] \
10599 [mc "marked line background"] \
10614 foreach w {maxpctl maxwidthl showlocal autoselect tabstopl ntag
10615 ldiff lattr extdifff.l extdifff.b bgbut fgbut
10616 diffoldbut diffnewbut hunksepbut markbgbut selbgbut} {
10618 }
10619 }
10632 }
10634 proc choose_extdiff {} {
10635 global extdifftool
10637 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10640 }
10641 }
10643 proc choosecolor {v vi w x cmd} {
10652 }
10654 proc setselbg {c} {
10655 global bglist cflist
10658 }
10662 }
10664 proc setbg {c} {
10665 global bglist
10669 }
10670 }
10672 proc setfg {c} {
10673 global fglist canv
10677 }
10681 }
10683 proc prefscan {} {
10684 global oldprefs prefstop
10686 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10687 limitdiffs tabstop perfile_attrs} {
10690 }
10692 unset prefstop
10693 fontcan
10694 }
10696 proc prefsok {} {
10697 global maxwidth maxgraphpct
10698 global oldprefs prefstop showneartags showlocalchanges
10699 global fontpref mainfont textfont uifont
10700 global limitdiffs treediffs perfile_attrs
10703 unset prefstop
10704 fontcan
10705 set fontchanged 0
10709 eval font configure mainfont [fontflags mainfont]
10710 eval font configure mainfontbold [fontflags mainfont 1]
10711 setcoords
10712 set fontchanged 1
10713 }
10717 eval font configure textfont [fontflags textfont]
10718 eval font configure textfontbold [fontflags textfont 1]
10719 }
10723 eval font configure uifont [fontflags uifont]
10724 }
10725 settabs
10728 doshowlocalchanges
10729 } else {
10730 dohidelocalchanges
10731 }
10732 }
10735 # treediffs elements are limited by path;
10736 # won't have encodings cached if perfile_attrs was just turned on
10737 catch {unset treediffs}
10738 }
10741 redisplay
10744 reselectline
10745 }
10746 }
10748 proc formatdate {d} {
10749 global datetimeformat
10752 }
10754 }
10756 # This list of encoding names and aliases is distilled from
10757 # http://www.iana.org/assignments/character-sets.
10758 # Not all of them are supported by Tcl.
10759 set encoding_aliases {
10760 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10761 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10762 { ISO-10646-UTF-1 csISO10646UTF1 }
10763 { ISO_646.basic:1983 ref csISO646basic1983 }
10764 { INVARIANT csINVARIANT }
10765 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10766 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10767 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10768 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10769 { NATS-DANO iso-ir-9-1 csNATSDANO }
10770 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10771 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10772 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10773 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10774 { ISO-2022-KR csISO2022KR }
10775 { EUC-KR csEUCKR }
10776 { ISO-2022-JP csISO2022JP }
10777 { ISO-2022-JP-2 csISO2022JP2 }
10778 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10779 csISO13JISC6220jp }
10780 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10781 { IT iso-ir-15 ISO646-IT csISO15Italian }
10782 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10783 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10784 { greek7-old iso-ir-18 csISO18Greek7Old }
10785 { latin-greek iso-ir-19 csISO19LatinGreek }
10786 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10787 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10788 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10789 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10790 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10791 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10792 { INIS iso-ir-49 csISO49INIS }
10793 { INIS-8 iso-ir-50 csISO50INIS8 }
10794 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10795 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10796 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10797 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10798 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10799 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10800 csISO60Norwegian1 }
10801 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10802 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10803 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10804 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10805 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10806 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10807 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10808 { greek7 iso-ir-88 csISO88Greek7 }
10809 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10810 { iso-ir-90 csISO90 }
10811 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10812 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10813 csISO92JISC62991984b }
10814 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10815 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10816 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10817 csISO95JIS62291984handadd }
10818 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10819 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10820 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10821 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10822 CP819 csISOLatin1 }
10823 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10824 { T.61-7bit iso-ir-102 csISO102T617bit }
10825 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10826 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10827 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10828 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10829 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10830 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10831 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10832 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10833 arabic csISOLatinArabic }
10834 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10835 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10836 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10837 greek greek8 csISOLatinGreek }
10838 { T.101-G2 iso-ir-128 csISO128T101G2 }
10839 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10840 csISOLatinHebrew }
10841 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10842 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10843 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10844 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10845 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10846 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10847 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10848 csISOLatinCyrillic }
10849 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10850 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10851 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10852 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10853 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10854 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10855 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10856 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10857 { ISO_10367-box iso-ir-155 csISO10367Box }
10858 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10859 { latin-lap lap iso-ir-158 csISO158Lap }
10860 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10861 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10862 { us-dk csUSDK }
10863 { dk-us csDKUS }
10864 { JIS_X0201 X0201 csHalfWidthKatakana }
10865 { KSC5636 ISO646-KR csKSC5636 }
10866 { ISO-10646-UCS-2 csUnicode }
10867 { ISO-10646-UCS-4 csUCS4 }
10868 { DEC-MCS dec csDECMCS }
10869 { hp-roman8 roman8 r8 csHPRoman8 }
10870 { macintosh mac csMacintosh }
10871 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10872 csIBM037 }
10873 { IBM038 EBCDIC-INT cp038 csIBM038 }
10874 { IBM273 CP273 csIBM273 }
10875 { IBM274 EBCDIC-BE CP274 csIBM274 }
10876 { IBM275 EBCDIC-BR cp275 csIBM275 }
10877 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10878 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10879 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10880 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10881 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10882 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10883 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10884 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10885 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10886 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10887 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10888 { IBM437 cp437 437 csPC8CodePage437 }
10889 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10890 { IBM775 cp775 csPC775Baltic }
10891 { IBM850 cp850 850 csPC850Multilingual }
10892 { IBM851 cp851 851 csIBM851 }
10893 { IBM852 cp852 852 csPCp852 }
10894 { IBM855 cp855 855 csIBM855 }
10895 { IBM857 cp857 857 csIBM857 }
10896 { IBM860 cp860 860 csIBM860 }
10897 { IBM861 cp861 861 cp-is csIBM861 }
10898 { IBM862 cp862 862 csPC862LatinHebrew }
10899 { IBM863 cp863 863 csIBM863 }
10900 { IBM864 cp864 csIBM864 }
10901 { IBM865 cp865 865 csIBM865 }
10902 { IBM866 cp866 866 csIBM866 }
10903 { IBM868 CP868 cp-ar csIBM868 }
10904 { IBM869 cp869 869 cp-gr csIBM869 }
10905 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10906 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10907 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10908 { IBM891 cp891 csIBM891 }
10909 { IBM903 cp903 csIBM903 }
10910 { IBM904 cp904 904 csIBBM904 }
10911 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10912 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10913 { IBM1026 CP1026 csIBM1026 }
10914 { EBCDIC-AT-DE csIBMEBCDICATDE }
10915 { EBCDIC-AT-DE-A csEBCDICATDEA }
10916 { EBCDIC-CA-FR csEBCDICCAFR }
10917 { EBCDIC-DK-NO csEBCDICDKNO }
10918 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10919 { EBCDIC-FI-SE csEBCDICFISE }
10920 { EBCDIC-FI-SE-A csEBCDICFISEA }
10921 { EBCDIC-FR csEBCDICFR }
10922 { EBCDIC-IT csEBCDICIT }
10923 { EBCDIC-PT csEBCDICPT }
10924 { EBCDIC-ES csEBCDICES }
10925 { EBCDIC-ES-A csEBCDICESA }
10926 { EBCDIC-ES-S csEBCDICESS }
10927 { EBCDIC-UK csEBCDICUK }
10928 { EBCDIC-US csEBCDICUS }
10929 { UNKNOWN-8BIT csUnknown8BiT }
10930 { MNEMONIC csMnemonic }
10931 { MNEM csMnem }
10932 { VISCII csVISCII }
10933 { VIQR csVIQR }
10934 { KOI8-R csKOI8R }
10935 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10936 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10937 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10938 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10939 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10940 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10941 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10942 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10943 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10944 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10945 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10946 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10947 { IBM1047 IBM-1047 }
10948 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10949 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10950 { UNICODE-1-1 csUnicode11 }
10951 { CESU-8 csCESU-8 }
10952 { BOCU-1 csBOCU-1 }
10953 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10954 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10955 l8 }
10956 { ISO-8859-15 ISO_8859-15 Latin-9 }
10957 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10958 { GBK CP936 MS936 windows-936 }
10959 { JIS_Encoding csJISEncoding }
10960 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10961 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10962 EUC-JP }
10963 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10964 { ISO-10646-UCS-Basic csUnicodeASCII }
10965 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10966 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10967 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10968 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10969 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10970 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10971 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10972 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10973 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10974 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10975 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10976 { Ventura-US csVenturaUS }
10977 { Ventura-International csVenturaInternational }
10978 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10979 { PC8-Turkish csPC8Turkish }
10980 { IBM-Symbols csIBMSymbols }
10981 { IBM-Thai csIBMThai }
10982 { HP-Legal csHPLegal }
10983 { HP-Pi-font csHPPiFont }
10984 { HP-Math8 csHPMath8 }
10985 { Adobe-Symbol-Encoding csHPPSMath }
10986 { HP-DeskTop csHPDesktop }
10987 { Ventura-Math csVenturaMath }
10988 { Microsoft-Publishing csMicrosoftPublishing }
10989 { Windows-31J csWindows31J }
10990 { GB2312 csGB2312 }
10991 { Big5 csBig5 }
10992 }
10994 proc tcl_encoding {enc} {
10995 global encoding_aliases tcl_encoding_cache
10998 }
10999 set names [encoding names]
11004 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11007 }
11008 }
11013 # look through the aliases for one that tcl knows about
11019 }
11020 }
11022 }
11023 break
11024 }
11025 }
11026 set tclenc {}
11029 }
11032 }
11034 proc gitattr {path attr default} {
11035 global path_attr_cache
11038 } else {
11039 set r "unspecified"
11042 }
11044 }
11047 }
11049 }
11051 proc cache_gitattr {attr pathlist} {
11052 global path_attr_cache
11053 set newlist {}
11057 }
11058 }
11059 set lim 1000
11060 if {[tk windowingsystem] == "win32"} {
11061 # windows has a 32k limit on the arguments to a command...
11062 set lim 30
11063 }
11072 }
11074 }
11075 }
11076 }
11077 }
11078 }
11080 proc get_path_encoding {path} {
11081 global gui_encoding perfile_attrs
11087 }
11088 }
11090 }
11092 # First check that Tcl/Tk is recent enough
11093 if {[catch {package require Tk 8.4} err]} {
11094 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11095 Gitk requires at least Tcl/Tk 8.4."]
11096 exit 1
11097 }
11099 # defaults...
11100 set wrcomcmd "git diff-tree --stdin -p --pretty"
11102 set gitencoding {}
11103 catch {
11104 set gitencoding [exec git config --get i18n.commitencoding]
11105 }
11106 catch {
11107 set gitencoding [exec git config --get i18n.logoutputencoding]
11108 }
11110 set gitencoding "utf-8"
11111 }
11115 }
11117 set gui_encoding [encoding system]
11118 catch {
11119 set enc [exec git config --get gui.encoding]
11124 } else {
11126 }
11127 }
11128 }
11130 if {[tk windowingsystem] eq "aqua"} {
11131 set mainfont {{Lucida Grande} 9}
11132 set textfont {Monaco 9}
11133 set uifont {{Lucida Grande} 9 bold}
11134 } else {
11135 set mainfont {Helvetica 9}
11136 set textfont {Courier 9}
11137 set uifont {Helvetica 9 bold}
11138 }
11139 set tabstop 8
11140 set findmergefiles 0
11141 set maxgraphpct 50
11142 set maxwidth 16
11143 set revlistorder 0
11144 set fastdate 0
11145 set uparrowlen 5
11146 set downarrowlen 5
11147 set mingaplen 100
11148 set cmitmode "patch"
11149 set wrapcomment "none"
11150 set showneartags 1
11151 set maxrefs 20
11152 set maxlinelen 200
11153 set showlocalchanges 1
11154 set limitdiffs 1
11155 set datetimeformat "%Y-%m-%d %H:%M:%S"
11156 set autoselect 1
11157 set perfile_attrs 0
11159 if {[tk windowingsystem] eq "aqua"} {
11160 set extdifftool "opendiff"
11161 } else {
11162 set extdifftool "meld"
11163 }
11165 set colors {green red blue magenta darkgrey brown orange}
11166 set bgcolor white
11167 set fgcolor black
11168 set diffcolors {red "#00a000" blue}
11169 set diffcontext 3
11170 set ignorespace 0
11171 set selectbgcolor gray85
11172 set markbgcolor "#e0e0ff"
11174 set circlecolors {white blue gray blue blue}
11176 # button for popping up context menus
11177 if {[tk windowingsystem] eq "aqua"} {
11178 set ctxbut <Button-2>
11179 } else {
11180 set ctxbut <Button-3>
11181 }
11183 ## For msgcat loading, first locate the installation location.
11184 if { [info exists ::env(GITK_MSGSDIR)] } {
11185 ## Msgsdir was manually set in the environment.
11186 set gitk_msgsdir $::env(GITK_MSGSDIR)
11187 } else {
11188 ## Let's guess the prefix from argv0.
11192 unset gitk_prefix
11193 }
11195 ## Internationalization (i18n) through msgcat and gettext. See
11196 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11197 package require msgcat
11198 namespace import ::msgcat::mc
11199 ## And eventually load the actual message catalog
11202 catch {source ~/.gitk}
11204 font create optionfont -family sans-serif -size -12
11207 eval font create mainfont [fontflags mainfont]
11208 eval font create mainfontbold [fontflags mainfont 1]
11211 eval font create textfont [fontflags textfont]
11212 eval font create textfontbold [fontflags textfont 1]
11215 eval font create uifont [fontflags uifont]
11217 setoptions
11219 # check that we can find a .git directory somewhere...
11220 if {[catch {set gitdir [gitdir]}]} {
11221 show_error {} . [mc "Cannot find a git repository here."]
11222 exit 1
11223 }
11226 exit 1
11227 }
11229 set selecthead {}
11230 set selectheadid {}
11232 set revtreeargs {}
11233 set cmdline_files {}
11234 set i 0
11235 set revtreeargscmd {}
11238 "" { }
11239 "--" {
11241 break
11242 }
11243 "--select-commit=*" {
11245 }
11246 "--argscmd=*" {
11248 }
11249 default {
11251 }
11252 }
11253 incr i
11254 }
11257 set selecthead {}
11258 }
11261 # no -- on command line, but some arguments (other than --argscmd)
11262 if {[catch {
11267 # Unfortunately git rev-parse doesn't produce an error when
11268 # something is both a revision and a filename. To be consistent
11269 # with git log and git rev-list, check revtreeargs for filenames.
11272 show_error {} . [mc "Ambiguous argument '%s': both revision\
11274 exit 1
11275 }
11276 }
11277 } err]} {
11279 # so look for "fatal:".
11283 }
11285 exit 1
11286 }
11287 }
11289 set nullid "0000000000000000000000000000000000000000"
11290 set nullid2 "0000000000000000000000000000000000000001"
11291 set nullfile "/dev/null"
11294 if {![info exists use_ttk]} {
11295 set use_ttk [llength [info commands ::ttk::style]]
11296 }
11299 set runq {}
11300 set history {}
11301 set historyindex 0
11302 set fh_serial 0
11303 set nhl_names {}
11304 set highlight_paths {}
11305 set findpattern {}
11306 set searchdirn -forwards
11307 set boldids {}
11308 set boldnameids {}
11309 set diffelide {0 0}
11310 set markingmatches 0
11311 set linkentercount 0
11312 set need_redisplay 0
11313 set nrows_drawn 0
11314 set firsttabstop 0
11316 set nextviewnum 1
11317 set curview 0
11318 set selectedview 0
11319 set selectedhlview [mc "None"]
11320 set highlight_related [mc "None"]
11321 set highlight_files {}
11322 set viewfiles(0) {}
11323 set viewperm(0) 0
11324 set viewargs(0) {}
11325 set viewargscmd(0) {}
11327 set selectedline {}
11328 set numcommits 0
11329 set loginstance 0
11330 set cmdlineok 0
11331 set stopped 0
11332 set stuffsaved 0
11333 set patchnum 0
11334 set lserial 0
11335 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11336 setcoords
11337 makewindow
11338 catch {
11339 image create photo gitlogo -width 16 -height 16
11341 image create photo gitlogominus -width 4 -height 2
11342 gitlogominus put #C00000 -to 0 0 4 2
11343 gitlogo copy gitlogominus -to 1 5
11344 gitlogo copy gitlogominus -to 6 5
11345 gitlogo copy gitlogominus -to 11 5
11346 image delete gitlogominus
11348 image create photo gitlogoplus -width 4 -height 4
11349 gitlogoplus put #008000 -to 1 0 3 4
11350 gitlogoplus put #008000 -to 0 1 4 3
11351 gitlogo copy gitlogoplus -to 1 9
11352 gitlogo copy gitlogoplus -to 6 9
11353 gitlogo copy gitlogoplus -to 11 9
11354 image delete gitlogoplus
11356 image create photo gitlogo32 -width 32 -height 32
11357 gitlogo32 copy gitlogo -zoom 2 2
11359 wm iconphoto . -default gitlogo gitlogo32
11360 }
11361 # wait for the window to become visible
11362 tkwait visibility .
11364 update
11365 readrefs
11368 # create a view for the files/dirs specified on the command line
11369 set curview 1
11370 set selectedview 1
11371 set nextviewnum 2
11372 set viewname(1) [mc "Command line"]
11376 set viewperm(1) 0
11377 set vdatemode(1) 0
11378 addviewmenu 1
11379 .bar.view entryconf [mca "Edit view..."] -state normal
11380 .bar.view entryconf [mca "Delete view"] -state normal
11381 }
11383 if {[info exists permviews]} {
11386 incr nextviewnum
11393 }
11394 }
11396 if {[tk windowingsystem] eq "win32"} {
11397 focus -force .
11398 }
11400 getcommits {}