| blob | 8c08310e6dea4aa904b47cd335686deedb6fd5ed |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2008 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 proc gitdir {} {
11 global env
16 }
17 }
19 # A simple scheduler for compute-intensive stuff.
20 # The aim is to make sure that event handlers for GUI actions can
21 # run at least every 50-100 ms. Unfortunately fileevent handlers are
22 # run before X event handlers, so reading from a fast source can
23 # make the GUI completely unresponsive.
24 proc run args {
25 global isonrunq runq currunq
30 after idle dorunq
31 }
34 }
38 }
41 global runq currunq
45 after idle dorunq
46 }
48 }
51 global runq
57 incr i
58 }
59 }
60 }
62 proc dorunq {} {
63 global isonrunq runq currunq
73 unset currunq
78 # script returns 1 if it wants to be readded
79 # file readers return 2 if they could do more straight away
83 }
86 }
89 }
91 after idle dorunq
92 }
93 }
96 global commfd leftover loginstance
102 }
105 global nr_unmerged
107 # find the list of unmerged files
114 exit 1
115 }
121 incr nr_unmerged
124 }
125 }
128 }
130 proc parseviewargs {n arglist} {
131 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs
135 set glflags {}
136 set diffargs {}
137 set nextisval 0
138 set revargs {}
140 set allknown 1
141 set filtered 0
142 set i -1
144 incr i
147 set nextisval 0
148 continue
149 }
151 "-d" -
152 "--date-order" {
154 # remove from origargs in case we hit an unknown option
156 incr i -1
157 }
158 "-[puabwcrRBMC]" -
159 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
160 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
161 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
162 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
163 "--ignore-space-change" - "-U*" - "--unified=*" {
164 # These request or affect diff output, which we don't want.
165 # Some could be used to set our defaults for diff display.
166 lappend diffargs $arg
167 }
175 # These cause our parsing of git log's output to fail, or else
176 # they're options we want to set ourselves, so ignore them.
177 }
182 # These are harmless, and some are even useful
183 lappend glflags $arg
184 }
192 # These mean that we get a subset of the commits
194 lappend glflags $arg
195 }
197 # This appears to be the only one that has a value as a
198 # separate word following it
201 lappend glflags $arg
202 }
204 lappend revargs $arg
205 }
208 # git rev-parse doesn't understand --merge
209 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
210 }
212 # Other flag arguments including -<n>
216 # a flag argument that we don't recognize;
217 # that means we can't optimize
219 }
220 lappend glflags $arg
221 }
222 default {
223 # Non-flag arguments specify commits or ranges of commits
225 lappend revargs --gitk-symmetric-diff-marker
226 }
227 lappend revargs $arg
228 }
229 }
230 }
237 }
240 global vposids vnegids
243 set revs HEAD
244 }
246 # we get stdout followed by stderr in $err
247 # for an unknown rev, git rev-parse echoes it and then errors out
260 }
263 }
264 break
265 }
266 lappend badrev $line
267 }
268 }
271 }
281 lappend ret $id
284 }
285 }
289 lappend ret $id
292 }
293 lappend pos $id
294 }
295 incr sdm -1
296 }
300 }
302 # Start off a git log process and arrange to read its output
304 global startmsecs commitidx viewcomplete curview
305 global tclencoding
306 global viewargs viewargscmd viewfiles vfilelimit
307 global showlocalchanges
308 global viewactive viewinstances vmergeonly
309 global mainheadid viewmainheadid viewmainheadid_orig
310 global vcanopt vflags vrevs vorigargs
314 # these are set this way for the error exits
317 varcinit $view
326 }
328 }
335 global nr_unmerged
342 }
344 }
345 }
352 }
356 }
364 }
370 get_viewmainhead $view
371 }
374 }
378 }
384 }
387 global commfd leftover
390 catch {
397 }
398 }
400 nukefile $fd
403 }
405 proc stop_backends {} {
406 global commfd
409 stop_instance $inst
410 }
411 }
414 global viewinstances
417 stop_instance $inst
418 }
420 }
423 global pending_select mainheadid selectheadid
431 }
432 }
435 global canv curview need_redisplay viewactive
437 initlayout
439 reset_pending_select $selid
444 }
445 }
447 proc updatecommits {} {
448 global curview vcanopt vorigargs vfilelimit viewinstances
449 global viewactive viewcomplete tclencoding
450 global startmsecs showneartags showlocalchanges
451 global mainheadid viewmainheadid viewmainheadid_orig pending_select
452 global isworktree
453 global varcid vposids vnegids vflags vrevs
456 rereadrefs
460 dohidelocalchanges
461 }
465 get_viewmainhead $view
466 }
467 }
469 doshowlocalchanges
470 }
476 return
477 }
478 # note: getting the delta when negative refs change is hard,
479 # and could require multiple git log invocations, so in that
480 # case we ask git log for all the commits (not just the delta)
484 # take out positive refs that we asked for before or
485 # that we have already seen
490 lappend newrevs $rev
491 incr npos
492 }
494 lappend $newrevs $rev
495 }
496 }
500 }
504 }
510 return
511 }
514 }
520 }
524 reset_pending_select {}
527 getallcommits
528 }
529 }
531 proc reloadcommits {} {
532 global curview viewcomplete selectedline currentid thickerline
533 global showneartags treediffs commitinterest cached_commitrow
534 global targetid
539 }
542 stop_rev_list $curview
543 }
544 resetvarcs $curview
549 readrefs
550 changedrefs
552 getallcommits
553 }
554 clear_display
558 setcanvscroll
559 getcommits $selid
561 }
563 # This makes a string representation of a positive integer which
564 # sorts as a string in numerical order
572 }
574 }
576 # Procedures used in reordering commits from git log (without
577 # --topo-order) into the order for display.
580 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
581 global vtokmod varcmod vrowmod varcix vlastins
595 }
598 global varcid varccommits parents children vseedcount ordertok
604 }
605 # some commits might have children but haven't been seen yet
608 }
611 }
614 }
616 }
618 # returns a list of the commits with no children
620 global vdownptr vleftptr varcstart
627 }
629 }
632 global varcid varctok parents children vdatemode
633 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
634 global commitdata commitinfo vseedcount varccommits vlastins
641 }
645 }
648 }
654 }
663 }
664 }
669 }
676 }
680 }
687 }
693 }
702 }
705 global varcid varcstart varccommits varctok vtokmod
706 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
714 # "%" sorts before "0"...
724 }
734 }
736 modify_arc $v $oa
737 }
738 }
741 global parents children varctok varcstart varccommits
742 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
751 lappend todo $a
756 }
757 }
758 }
759 incr ntot
766 }
767 }
769 }
776 }
782 }
791 }
792 }
797 }
799 continue
800 }
807 }
808 }
813 modify_arc $v $ka
814 }
816 modify_arc $v $b
817 }
824 }
827 }
830 }
839 }
844 }
851 }
855 }
857 }
858 }
863 }
864 }
866 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
867 }
869 # Fix up the graph after we have found out that in view $v,
870 # $p (a commit that we have already seen) is actually the parent
871 # of the last commit in arc $a.
873 global varcid varcstart varctok vupptr
877 splitvarc $p $v
879 }
880 # seeds always need to be renumbered
884 renumbervarc $pa $v
885 }
886 }
889 global cmitlisted children parents varcid varctok vtokmod
890 global varccommits ordertok commitidx numcommits curview
891 global targetid targetrow
893 readcommit $id
901 modify_arc $v $a
902 }
908 }
909 fix_reversal $p $a $v
913 setcanvscroll
916 incr targetrow
917 }
918 }
919 }
920 }
923 global varcid varccommits parents children cmitlisted
924 global commitidx varctok vtokmod targetid targetrow curview numcommits
931 return
932 }
939 # note we deliberately don't update varcstart($v) even if $i == 0
941 modify_arc $v $a $i
944 incr targetrow
945 }
946 }
947 setcanvscroll
948 drawvisible
949 }
952 global varcid varccommits parents children commitidx
953 global varctok vtokmod cmitlisted currentid selectedline
954 global targetid curview numcommits
959 return
960 }
966 return
967 }
977 }
978 modify_arc $v $a $i
980 unset currentid
982 }
985 }
986 setcanvscroll
987 drawvisible
988 }
991 global children nullid nullid2
996 }
997 }
999 }
1002 global children nullid nullid2
1009 }
1010 }
1012 }
1015 global varctok varcid
1019 }
1021 # This assumes that if lim is not given, the caller has checked that
1022 # arc a's token is less than $vtokmod($v)
1024 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1032 }
1033 }
1040 }
1045 }
1047 }
1049 undolayout $r
1050 }
1051 }
1054 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1055 global varcid vrownum varcorder varcix varccommits
1056 global vupptr vdownptr vleftptr varctok
1057 global displayorder parentlist curview cached_commitrow
1064 }
1066 }
1070 # go up the tree until we find something that has a row number,
1071 # or we get to a seed
1073 }
1088 }
1090 }
1094 # go down if possible
1097 # if not, go left, or go up until we can go left
1102 }
1104 }
1106 incr arcn
1111 }
1117 }
1118 }
1120 # Test whether view $v contains commit $id
1122 global varcid
1125 }
1127 # Return the row number for commit $id in the current view
1129 global varcid varccommits varcrow curview cached_commitrow
1130 global varctok vtokmod
1136 }
1139 update_arcrows $v
1140 }
1143 }
1148 }
1152 }
1154 # Returns 1 if a is on an earlier row than b, otherwise 0
1156 global varcid varctok curview
1162 }
1166 }
1168 }
1173 }
1185 }
1186 }
1188 }
1190 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1192 global vrownum curview commitidx displayorder parentlist
1193 global varccommits varcorder parents vrowmod varcrow
1194 global d_valid_start d_valid_end
1197 update_arcrows $curview
1198 }
1214 }
1216 lappend displayorder $id
1218 }
1222 lset displayorder $i $id
1224 incr i
1225 }
1226 }
1227 incr r $al
1228 }
1229 }
1232 global displayorder
1238 }
1240 }
1243 global varctok varccommits varcid parents children
1244 global cmitlisted commitidx vtokmod
1253 # add p as a new commit
1254 incr missing_parents
1262 }
1265 modify_arc $v $b
1266 }
1270 }
1271 }
1275 }
1276 }
1277 }
1279 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1280 # Assumes we already have an arc for $rwid.
1282 global children parents varcid varctok vtokmod varccommits
1285 # make $rwid be $ch's parent in place of $id
1289 }
1291 # add $ch to $rwid's children and sort the list if necessary
1295 }
1296 # fix the graph after joining $id to $rwid
1298 fix_reversal $rwid $a $v
1299 # parentlist is wrong for the last element of arc $a
1300 # even if displayorder is right, hence the 3rd arg here
1302 }
1303 }
1305 # Mechanism for registering a command to be executed when we come
1306 # across a particular commit. To handle the case when only the
1307 # prefix of the commit is known, the commitinterest array is now
1308 # indexed by the first 4 characters of the ID. Each element is a
1309 # list of id, cmd pairs.
1311 global commitinterest
1314 }
1317 global commitinterest
1326 lappend newlist $i $script
1327 }
1328 }
1333 }
1334 }
1336 }
1339 global cmitlisted leftover
1340 global commitidx commitdata vdatemode
1341 global parents children curview hlview
1342 global idpending ordertok
1343 global varccommits varcid varctok vtokmod vfilelimit
1346 # git log doesn't terminate the last commit with a null...
1349 }
1353 }
1354 global commfd viewcomplete viewactive viewname
1355 global viewinstances
1360 }
1361 # set it blocking so we wait for the process to terminate
1367 }
1370 bad arguments to git log."
1372 append err \
1373 " (Note: arguments to gitk are passed to git log\
1374 to allow selection of commits to be displayed.)"
1375 }
1378 }
1379 error_popup $err
1380 }
1383 # Check if we have seen any ids listed as parents that haven't
1384 # appeared in the list
1385 closevarcs $view
1386 notbusy $view
1387 }
1389 run chewcommits
1390 }
1392 }
1400 break
1401 }
1408 }
1421 }
1423 }
1428 break
1429 }
1430 }
1431 }
1436 }
1438 exit 1
1439 }
1446 # when doing path limiting, so work around that here
1447 # by working out the rewritten parent with git rev-list
1448 # and if we already know about it, using the rewritten
1449 # parent as a substitute parent for $id's children.
1453 }]} {
1455 # use $rwid in place of $id
1456 rewrite_commit $view $id $rwid
1457 continue
1458 }
1459 }
1460 }
1466 }
1471 }
1483 }
1484 }
1486 # new arc
1488 }
1490 modify_arc $view $a
1491 }
1496 }
1507 }
1509 fix_reversal $p $a $view
1510 }
1511 }
1512 incr i
1513 }
1517 }
1519 global numcommits hlview
1523 run chewcommits
1524 }
1526 # we never actually get here...
1527 run vhighlightmore
1528 }
1531 }
1532 }
1534 }
1536 proc chewcommits {} {
1537 global curview hlview viewcomplete
1538 global pending_select
1540 layoutmore
1542 global commitidx varctok
1543 global numcommits startmsecs
1546 update
1547 reset_pending_select {}
1554 }
1555 }
1557 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1558 #puts "overall $ms ms for $numcommits commits"
1559 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1562 }
1563 notbusy layout
1564 }
1566 }
1569 global tclencoding
1571 # Invoke git-log to handle automatic encoding conversion
1573 # Read the results using i18n.logoutputencoding
1577 }
1579 close $fd
1580 # Remove the heading line
1584 }
1589 }
1592 global commitinfo cdate
1603 # should never happen...
1605 }
1617 }
1618 }
1620 # take the first non-blank line of the comment as the headline
1625 }
1630 }
1632 # git log indents the comment by 4 spaces;
1633 # if we got this via git cat-file, add the indentation
1636 append newcomment " "
1637 append newcomment $line
1639 }
1641 }
1644 }
1647 }
1650 global commitdata commitinfo
1655 readcommit $id
1658 }
1659 }
1661 }
1663 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1664 # and are present in the current view.
1665 # This is fairly slow...
1667 global varcid curview
1672 }
1674 }
1676 proc readrefs {} {
1677 global tagids idtags headids idheads tagobjid
1678 global otherrefids idotherrefs mainhead mainheadid
1679 global selecthead selectheadid
1680 global hideremotes
1684 }
1696 }
1702 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1703 # which is what we want since the former is the commit ID
1709 }
1715 }
1716 }
1720 catch {
1725 }
1726 }
1729 catch {
1731 }
1732 }
1733 }
1735 # skip over fake commits
1736 proc first_real_row {} {
1737 global nullid nullid2 numcommits
1742 break
1743 }
1744 }
1746 }
1748 # update things for a head moved to a child of its previous location
1750 global headids idheads
1755 }
1757 # update things when a head has been removed
1759 global headids idheads
1767 }
1768 }
1770 }
1773 global have_tk85
1775 # In MacOS Tk 8.4 transient appears to work by setting
1776 # overrideredirect, which is utterly useless, since the
1777 # windows get no border, and are not even kept above
1778 # the parent.
1781 wm transient $window $origin
1783 # Windows fails to place transient windows normally, so
1784 # schedule a callback to center them on the parent.
1787 }
1788 }
1799 tkwait window $top
1800 }
1803 set w .error
1804 toplevel $w
1805 make_transient $w $owner
1806 show_error $w $w $msg
1807 }
1810 global confirm_ok
1812 set w .confirm
1813 toplevel $w
1814 make_transient $w $owner
1825 tkwait window $w
1827 }
1829 proc setoptions {} {
1831 option add *Panedwindow.sashRelief raised startupFile
1832 option add *Button.font uifont startupFile
1833 option add *Checkbutton.font uifont startupFile
1834 option add *Radiobutton.font uifont startupFile
1836 option add *Menu.font uifont startupFile
1837 }
1838 option add *Menubutton.font uifont startupFile
1839 option add *Label.font uifont startupFile
1840 option add *Message.font uifont startupFile
1841 option add *Entry.font uifont startupFile
1842 }
1844 # Make a menu and submenus.
1845 # m is the window name for the menu, items is the list of menu items to add.
1846 # Each item is a list {mc label type description options...}
1847 # mc is ignored; it's so we can put mc there to alert xgettext
1848 # label is the string that appears in the menu
1849 # type is cascade, command or radiobutton (should add checkbutton)
1850 # description depends on type; it's the sublist for cascade, the
1851 # command to invoke for command, or {variable value} for radiobutton
1853 menu $m
1855 set Meta1 Cmd
1857 set Meta1 Ctrl
1858 }
1869 }
1870 }
1875 }
1878 }
1882 }
1883 }
1889 }
1890 }
1891 }
1893 # translate string and remove ampersands
1896 }
1898 proc makewindow {} {
1899 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1900 global tabstop
1901 global findtype findtypemenu findloc findstring fstring geometry
1902 global entries sha1entry sha1string sha1but
1903 global diffcontextstring diffcontext
1904 global ignorespace
1905 global maincursor textcursor curtextcursor
1906 global rowctxmenu fakerowmenu mergemax wrapcomment
1907 global highlight_files gdttype
1908 global searchstring sstring
1909 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1910 global headctxmenu progresscanv progressitem progresscoords statusw
1911 global fprogitem fprogcoord lastprogupdate progupdatepending
1912 global rprogitem rprogcoord rownumsel numcommits
1913 global have_tk85
1915 # The "mc" arguments here are purely so that xgettext
1916 # sees the following string as needing to be translated
1927 }}
1931 }}
1939 }}
1945 }}
1955 }}
1959 }}
1961 }
1962 makemenu .bar $bar
1963 . configure -menu .bar
1965 # the gui has upper and lower half, parts of a paned window.
1966 panedwindow .ctop -orient vertical
1968 # possibly use assumed geometry
1976 }
1978 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1980 frame .tf.histframe
1983 # create three canvases
1984 set cscroll .tf.histframe.csb
1985 set canv .tf.histframe.pwclist.canv
1986 canvas $canv \
1990 .tf.histframe.pwclist add $canv
1991 set canv2 .tf.histframe.pwclist.canv2
1992 canvas $canv2 \
1995 .tf.histframe.pwclist add $canv2
1996 set canv3 .tf.histframe.pwclist.canv3
1997 canvas $canv3 \
2000 .tf.histframe.pwclist add $canv3
2004 # a scroll bar to rule them
2008 lappend bglist $canv $canv2 $canv3
2011 # we have two button bars at bottom of top frame. Bar 1
2012 frame .tf.bar
2015 set sha1entry .tf.bar.sha1
2017 set sha1but .tf.bar.sha1label
2021 pack .tf.bar.sha1label -side left
2023 trace add variable sha1string write sha1change
2027 #define left_width 16
2028 #define left_height 16
2029 static unsigned char left_bits[] = {
2033 }
2035 #define right_width 16
2036 #define right_height 16
2037 static unsigned char right_bits[] = {
2041 }
2056 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2057 -side left
2058 global selectedline
2059 trace add variable selectedline write selectedline_change
2061 # Status label and progress bar
2062 set statusw .tf.bar.status
2066 set progresscanv .tf.bar.progress
2079 # build up the bottom bar of upper window
2084 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2091 trace add variable gdttype write gdttype_change
2095 set fstring .tf.lbar.findstring
2096 lappend entries $fstring
2098 trace add variable findstring write find_change
2102 trace add variable findtype write findcom_change
2106 trace add variable findloc write find_change
2107 pack .tf.lbar.findloc -side right
2108 pack .tf.lbar.findtype -side right
2111 # Finish putting the upper half of the viewer together
2115 .ctop add .tf
2119 # now build up the bottom
2120 panedwindow .pwbottom -orient horizontal
2122 # lower left, a text box over search bar, scroll bar to the right
2123 # if we know window height, then that will set the lower text height, otherwise
2124 # we set lower text height which will drive window height
2129 }
2130 frame .bleft.top
2131 frame .bleft.mid
2132 frame .bleft.bottom
2136 set sstring .bleft.top.sstring
2138 lappend entries $sstring
2139 trace add variable searchstring write incrsearch
2152 -textvariable diffcontextstring
2154 trace add variable diffcontextstring write diffcontextchange
2155 lappend entries .bleft.mid.diffcontext
2156 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2160 set ctext .bleft.bottom.ctext
2167 }
2174 grid .bleft.bottom.sbhorizontal -sticky ew
2179 lappend bglist $ctext
2180 lappend fglist $ctext
2209 .pwbottom add .bleft
2212 # lower right
2213 frame .bright
2214 frame .bright.mode
2221 set cflist .bright.cfiles
2223 text $cflist \
2226 -font mainfont \
2231 lappend bglist $cflist
2232 lappend fglist $cflist
2236 $cflist tag configure highlight \
2240 .pwbottom add .bright
2241 .ctop add .pwbottom
2243 # restore window width & height if known
2248 }
2251 }
2253 }
2254 }
2258 }
2261 set M1B M1
2264 set M1B Control
2266 }
2271 #bindall <B1-Motion> {selcanvline %W %x %y}
2281 allcanvs yview scroll $delta units
2282 }
2286 }
2287 }
2288 }
2310 bindkey p "selnextline -1"
2311 bindkey n "selnextline 1"
2312 bindkey z "goback"
2313 bindkey x "goforw"
2314 bindkey i "selnextline -1"
2315 bindkey k "selnextline 1"
2316 bindkey j "goback"
2317 bindkey l "goforw"
2318 bindkey b prevfile
2325 bindkey f nextfile
2342 wm protocol . WM_DELETE_WINDOW doquit
2351 global ctxbut
2355 set maincursor [. cget -cursor]
2359 set rowctxmenu .rowctxmenu
2361 {mc "Diff this -> selected" command {diffvssel 0}}
2362 {mc "Diff selected -> this" command {diffvssel 1}}
2363 {mc "Make patch" command mkpatch}
2364 {mc "Create tag" command mktag}
2365 {mc "Write commit to file" command writecommit}
2366 {mc "Create new branch" command mkbranch}
2367 {mc "Cherry-pick this commit" command cherrypick}
2368 {mc "Reset HEAD branch to here" command resethead}
2369 {mc "Mark this commit" command markhere}
2370 {mc "Return to mark" command gotomark}
2371 {mc "Find descendant of this and mark" command find_common_desc}
2372 {mc "Compare with marked commit" command compare_commits}
2373 }
2376 set fakerowmenu .fakerowmenu
2378 {mc "Diff this -> selected" command {diffvssel 0}}
2379 {mc "Diff selected -> this" command {diffvssel 1}}
2380 {mc "Make patch" command mkpatch}
2381 }
2384 set headctxmenu .headctxmenu
2386 {mc "Check out this branch" command cobranch}
2387 {mc "Remove this branch" command rmbranch}
2388 }
2391 global flist_menu
2392 set flist_menu .flistctxmenu
2394 {mc "Highlight this too" command {flist_hl 0}}
2395 {mc "Highlight this only" command {flist_hl 1}}
2396 {mc "External diff" command {external_diff}}
2397 {mc "Blame parent commit" command {external_blame 1}}
2398 }
2401 global diff_menu
2402 set diff_menu .diffctxmenu
2404 {mc "Show origin of this line" command show_line_source}
2405 {mc "Run git gui blame on this line" command {external_blame_diff}}
2406 }
2408 }
2410 # Windows sends all mouse wheel events to the current focused window, not
2411 # the one where the mouse hovers, so bind those events here and redirect
2412 # to the correct window
2413 proc windows_mousewheel_redirector {W X Y D} {
2414 global canv canv2 canv3
2420 } else {
2421 catch {
2423 }
2424 }
2425 }
2426 }
2428 # Update row number label when selectedline changes
2429 proc selectedline_change {n1 n2 op} {
2430 global selectedline rownumsel
2433 set rownumsel {}
2434 } else {
2436 }
2437 }
2439 # mouse-2 makes all windows scan vertically, but only the one
2440 # the cursor is in scans horizontally
2441 proc canvscan {op w x y} {
2442 global canv canv2 canv3
2446 } else {
2448 }
2449 }
2450 }
2452 proc scrollcanv {cscroll f0 f1} {
2454 drawvisible
2455 flushhighlights
2456 }
2458 # when we make a key binding for the toplevel, make sure
2459 # it doesn't get triggered when that key is pressed in the
2460 # find string entry widget.
2461 proc bindkey {ev script} {
2462 global entries
2466 set escript [bind Entry <Key>]
2467 }
2470 }
2471 }
2473 # set the focus back to the toplevel for any click outside
2474 # the entry widgets
2475 proc click {w} {
2476 global ctext entries
2479 }
2480 focus .
2481 }
2483 # Adjust the progress bar for a change in requested extent or canvas size
2484 proc adjustprogress {} {
2485 global progresscanv progressitem progresscoords
2486 global fprogitem fprogcoord lastprogupdate progupdatepending
2487 global rprogitem rprogcoord
2496 set now [clock clicks -milliseconds]
2498 set progupdatepending 0
2499 update
2501 set progupdatepending 1
2503 }
2504 }
2506 proc doprogupdate {} {
2507 global lastprogupdate progupdatepending
2510 set progupdatepending 0
2511 set lastprogupdate [clock clicks -milliseconds]
2512 update
2513 }
2514 }
2516 proc savestuff {w} {
2517 global canv canv2 canv3 mainfont textfont uifont tabstop
2518 global stuffsaved findmergefiles maxgraphpct
2519 global maxwidth showneartags showlocalchanges
2520 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2521 global cmitmode wrapcomment datetimeformat limitdiffs
2522 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2523 global autoselect extdifftool perfile_attrs markbgcolor
2524 global hideremotes
2527 if {![winfo viewable .]} return
2528 catch {
2529 set f [open "~/.gitk-new" w]
2530 if {$::tcl_platform(platform) eq {windows}} {
2531 file attributes "~/.gitk-new" -hidden true
2532 }
2571 }
2572 }
2575 file rename -force "~/.gitk-new" "~/.gitk"
2576 }
2577 set stuffsaved 1
2578 }
2580 proc resizeclistpanes {win w} {
2581 global oldwidth
2588 } else {
2593 set sash0 30
2594 }
2597 }
2602 }
2603 }
2604 }
2607 }
2609 }
2611 proc resizecdetpanes {win w} {
2612 global oldwidth
2617 } else {
2621 set sash0 45
2622 }
2625 }
2626 }
2628 }
2630 }
2632 proc allcanvs args {
2633 global canv canv2 canv3
2637 }
2639 proc bindall {event action} {
2640 global canv canv2 canv3
2644 }
2646 proc about {} {
2647 global uifont
2648 set w .about
2651 return
2652 }
2657 Gitk - a commit viewer for git
2659 Copyright © 2005-2008 Paul Mackerras
2661 Use and redistribute under the terms of the GNU General Public License"] \
2662 -justify center -aspect 400 -border 2 -bg white -relief groove
2669 }
2671 proc keys {} {
2672 set w .keys
2675 return
2676 }
2677 if {[tk windowingsystem] eq {aqua}} {
2678 set M1T Cmd
2679 } else {
2680 set M1T Ctrl
2681 }
2686 [mc "Gitk key bindings:"]
2689 [mc "<Home> Move to first commit"]
2690 [mc "<End> Move to last commit"]
2691 [mc "<Up>, p, i Move up one commit"]
2692 [mc "<Down>, n, k Move down one commit"]
2693 [mc "<Left>, z, j Go back in history list"]
2694 [mc "<Right>, x, l Go forward in history list"]
2695 [mc "<PageUp> Move up one page in commit list"]
2696 [mc "<PageDown> Move down one page in commit list"]
2703 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2704 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2705 [mc "<Delete>, b Scroll diff view up one page"]
2706 [mc "<Backspace> Scroll diff view up one page"]
2707 [mc "<Space> Scroll diff view down one page"]
2708 [mc "u Scroll diff view up 18 lines"]
2709 [mc "d Scroll diff view down 18 lines"]
2712 [mc "<Return> Move to next find hit"]
2713 [mc "/ Focus the search box"]
2714 [mc "? Move to previous find hit"]
2715 [mc "f Scroll diff view to next file"]
2722 [mc "<F5> Update"]
2723 " \
2724 -justify left -bg white -border 2 -relief groove
2732 }
2734 # Procedures for manipulating the file list window at the
2735 # bottom right of the overall window.
2737 proc treeview {w l openlevs} {
2738 global treecontents treediropen treeheight treeparent treeindex
2740 set ix 0
2741 set treeindex() 0
2742 set lev 0
2743 set prefix {}
2744 set prefixend -1
2745 set prefendstack {}
2746 set htstack {}
2747 set ht 0
2748 set treecontents() {}
2755 }
2762 incr lev -1
2763 }
2767 set ht 0
2779 set ht 1
2784 set str "\n"
2792 }
2793 incr lev
2794 }
2797 incr ht
2798 set str "\n"
2802 }
2804 }
2805 }
2813 }
2815 }
2817 proc linetoelt {l} {
2818 global treeheight treecontents
2820 set y 2
2821 set prefix {}
2822 while {1} {
2826 }
2827 set n 1
2832 incr y
2833 break
2834 }
2835 }
2837 }
2838 }
2839 }
2841 proc highlight_tree {y prefix} {
2842 global treeheight treecontents cflist
2848 }
2849 incr y
2852 }
2853 }
2855 }
2857 proc treeclosedir {w dir} {
2858 global treediropen treeheight treeparent treeindex
2870 }
2871 }
2873 proc treeopendir {w dir} {
2874 global treediropen treeheight treeparent treecontents treeindex
2881 set lev 0
2882 set str "\n"
2885 incr lev
2886 append str "\t"
2888 }
2903 } else {
2906 }
2907 }
2920 }
2922 }
2923 }
2925 proc treeclick {w x y} {
2926 global treediropen cmitmode ctext cflist cflist_top
2929 if {![info exists cflist_top]} return
2936 return
2937 }
2943 } else {
2945 }
2946 }
2948 proc setfilelist {id} {
2949 global treefilelist cflist jump_to_here
2956 }
2957 }
2958 }
2960 image create bitmap tri-rt -background black -foreground blue -data {
2961 #define tri-rt_width 13
2962 #define tri-rt_height 13
2963 static unsigned char tri-rt_bits[] = {
2964 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2965 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2966 0x00, 0x00};
2967 } -maskdata {
2968 #define tri-rt-mask_width 13
2969 #define tri-rt-mask_height 13
2970 static unsigned char tri-rt-mask_bits[] = {
2971 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2972 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2973 0x08, 0x00};
2974 }
2975 image create bitmap tri-dn -background black -foreground blue -data {
2976 #define tri-dn_width 13
2977 #define tri-dn_height 13
2978 static unsigned char tri-dn_bits[] = {
2979 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2980 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2981 0x00, 0x00};
2982 } -maskdata {
2983 #define tri-dn-mask_width 13
2984 #define tri-dn-mask_height 13
2985 static unsigned char tri-dn-mask_bits[] = {
2986 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2987 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2988 0x00, 0x00};
2989 }
2991 image create bitmap reficon-T -background black -foreground yellow -data {
2992 #define tagicon_width 13
2993 #define tagicon_height 9
2994 static unsigned char tagicon_bits[] = {
2995 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2996 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2997 } -maskdata {
2998 #define tagicon-mask_width 13
2999 #define tagicon-mask_height 9
3000 static unsigned char tagicon-mask_bits[] = {
3001 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3002 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3003 }
3004 set rectdata {
3005 #define headicon_width 13
3006 #define headicon_height 9
3007 static unsigned char headicon_bits[] = {
3008 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3009 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3010 }
3011 set rectmask {
3012 #define headicon-mask_width 13
3013 #define headicon-mask_height 9
3014 static unsigned char headicon-mask_bits[] = {
3015 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3016 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3017 }
3018 image create bitmap reficon-H -background black -foreground green \
3020 image create bitmap reficon-o -background black -foreground "#ddddff" \
3023 proc init_flist {first} {
3024 global cflist cflist_top difffilestart
3030 set cflist_top 1
3032 } else {
3033 catch {unset cflist_top}
3034 }
3036 set difffilestart {}
3037 }
3039 proc highlight_tag {f} {
3040 global highlight_paths
3044 return "bold"
3045 }
3046 }
3047 return {}
3048 }
3050 proc highlight_filelist {} {
3051 global cmitmode cflist
3060 }
3061 }
3062 } else {
3063 highlight_tree 2 {}
3064 }
3066 }
3068 proc unhighlight_filelist {} {
3069 global cflist
3074 }
3076 proc add_flist {fl} {
3077 global cflist
3083 }
3085 }
3087 proc sel_flist {w x y} {
3088 global ctext difffilestart cflist cflist_top cmitmode
3091 if {![info exists cflist_top]} return
3098 } else {
3100 }
3101 }
3103 proc pop_flist_menu {w X Y x y} {
3104 global ctext cflist cmitmode flist_menu flist_menu_file
3105 global treediffs diffids
3107 stopfinding
3113 } else {
3115 }
3117 set xdiffstate "normal"
3119 set xdiffstate "disabled"
3120 }
3121 # Disable "External diff" item in tree mode
3124 }
3126 proc find_ctext_fileinfo {line} {
3127 global ctext_file_names ctext_file_lines
3133 return {}
3134 } else {
3136 }
3137 }
3139 proc pop_diff_menu {w X Y x y} {
3140 global ctext diff_menu flist_menu_file
3141 global diff_menu_txtpos diff_menu_line
3142 global diff_menu_filebase
3146 # don't pop up the menu on hunk-separator or file-separator lines
3148 return
3149 }
3150 stopfinding
3156 }
3158 proc flist_hl {only} {
3159 global flist_menu_file findstring gdttype
3164 } else {
3166 }
3167 set gdttype [mc "touching paths:"]
3168 }
3170 proc save_file_from_commit {filename output what} {
3171 global nullfile
3176 }
3178 return {}
3179 }
3181 }
3183 proc external_diff_get_one_file {diffid filename diffdir} {
3184 global nullid nullid2 nullfile
3185 global gitdir
3191 }
3193 }
3197 }
3201 }
3203 proc external_diff {} {
3204 global gitktmpdir nullid nullid2
3205 global flist_menu_file
3206 global diffids
3207 global diffnum
3208 global gitdir extdifftool
3211 # no reference commit given
3214 # diffing working copy with index
3217 # diffing index with HEAD
3218 set diffidfrom "HEAD"
3219 } else {
3220 # use first parent commit
3221 global parentlist selectedline
3223 }
3224 } else {
3227 }
3229 # make sure that several diffs wont collide
3230 if {![info exists gitktmpdir]} {
3232 [format ".gitk-tmp.%s" [pid]]]
3235 unset gitktmpdir
3236 return
3237 }
3238 set diffnum 0
3239 }
3240 incr diffnum
3244 return
3245 }
3247 # gather files to diff
3256 } else {
3259 }
3260 }
3261 }
3263 proc find_hunk_blamespec {base line} {
3264 global ctext
3266 # Find and parse the hunk header
3272 s_line old_specs osz osz1 new_line nsz]} {
3273 return
3274 }
3276 # base lines for the parents
3280 old_spec old_line osz]} {
3281 return
3282 }
3284 }
3286 # Now scan the lines to determine offset within the hunk
3288 set dline 0
3291 # Determine if the line is removed
3295 # Choose a parent index
3298 } else {
3302 } else {
3303 # blame the current commit
3304 set parent -1
3305 }
3306 }
3307 # then count other lines that belong to it
3310 # Determine if the line is removed
3315 incr dline
3316 }
3317 } else {
3319 incr dline
3320 }
3321 }
3322 }
3323 incr parent
3324 } else {
3325 set parent 0
3326 }
3330 }
3332 proc external_blame_diff {} {
3333 global currentid cmitmode
3334 global diff_menu_txtpos diff_menu_line
3335 global diff_menu_filebase flist_menu_file
3338 set parent_idx 0
3340 } else {
3345 } else {
3346 set parent_idx 0
3347 set line 0
3348 }
3349 }
3352 }
3355 # at stage 0 or 2
3356 proc index_sha1 {fname} {
3364 }
3365 }
3367 return {}
3368 }
3370 # Turn an absolute path into one relative to the current directory
3371 proc make_relative {f} {
3373 set here [file split [pwd]]
3374 set ei 0
3375 set hi 0
3376 set res {}
3379 lappend res ".."
3380 } else {
3381 incr ei
3382 }
3383 incr hi
3384 }
3387 }
3389 proc external_blame {parent_idx {line {}}} {
3390 global flist_menu_file gitdir
3391 global nullid nullid2
3392 global parentlist selectedline currentid
3396 } else {
3398 }
3401 error_popup [mc "No such commit"]
3402 return
3403 }
3405 set cmdline [list git gui blame]
3408 }
3410 # Unfortunately it seems git gui blame doesn't like
3411 # being given an absolute path...
3416 }
3417 }
3419 proc show_line_source {} {
3420 global cmitmode currentid parents curview blamestuff blameinst
3421 global diff_menu_line diff_menu_filebase flist_menu_file
3422 global nullid nullid2 gitdir
3424 set from_index {}
3428 } else {
3434 return
3435 }
3436 incr pi -1
3439 # must be a merge in progress...
3440 if {[catch {
3441 # get the last line from .git/MERGE_HEAD
3445 } err]} {
3447 return
3448 }
3450 # need to do the blame from the index
3451 if {[catch {
3453 } err]} {
3455 return
3456 }
3457 } else {
3459 }
3460 } else {
3462 }
3464 }
3465 set blameargs {}
3468 }
3471 lappend blameargs --contents -
3472 } else {
3474 }
3476 if {[catch {
3478 } err]} {
3480 return
3481 }
3482 nowbusy blaming [mc "Searching"]
3488 }
3490 proc stopblaming {} {
3491 global blameinst
3493 if {[info exists blameinst]} {
3495 unset blameinst
3496 notbusy blaming
3497 }
3498 }
3500 proc read_line_source {fd inst} {
3501 global blamestuff curview commfd blameinst nullid nullid2
3505 }
3507 return 1
3508 }
3510 unset blameinst
3511 notbusy blaming
3515 return 0
3516 }
3518 set fname {}
3524 # look for "filename" line
3528 break
3529 }
3530 }
3531 }
3533 # all looks good, select it
3535 # blame uses all-zeroes to mean not committed,
3536 # which would mean a change in the index
3538 }
3541 } else {
3542 error_popup [mc "That line comes from commit %s, \
3544 }
3545 } else {
3546 puts "oops couldn't parse git blame output"
3547 }
3548 return 0
3549 }
3552 proc delete_at_eof {f dir} {
3557 }
3559 return 0
3560 }
3561 return 1
3562 }
3564 # Functions for adding and removing shell-type quoting
3566 proc shellquote {str} {
3569 }
3572 }
3575 }
3577 }
3579 proc shellarglist {l} {
3580 set str {}
3583 append str " "
3584 }
3586 }
3588 }
3590 proc shelldequote {str} {
3591 set ret {}
3592 set used -1
3593 while {1} {
3594 incr used
3598 break
3599 }
3605 }
3607 incr used
3611 error "unmatched single-quote"
3612 }
3615 continue
3616 }
3619 error "trailing backslash"
3620 }
3622 continue
3623 }
3624 # here ch == "\""
3625 while {1} {
3627 error "unmatched double-quote"
3628 }
3634 }
3636 incr used
3638 incr used
3639 }
3640 }
3642 }
3644 proc shellsplit {str} {
3645 set l {}
3646 while {1} {
3654 }
3656 }
3658 # Code to implement multiple views
3660 proc newview {ishighlight} {
3661 global nextviewnum newviewname newishighlight
3662 global revtreeargs viewargscmd newviewopts curview
3665 set top .gitkview
3668 return
3669 }
3675 }
3677 set known_view_options {
3678 {perm b . {} {mc "Remember this view"}}
3679 {reflabel l + {} {mc "References (space separated list):"}}
3680 {refs t15 .. {} {mc "Branches & tags:"}}
3681 {allrefs b *. "--all" {mc "All refs"}}
3682 {branches b . "--branches" {mc "All (local) branches"}}
3683 {tags b . "--tags" {mc "All tags"}}
3684 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3685 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3686 {author t15 .. "--author=*" {mc "Author:"}}
3687 {committer t15 . "--committer=*" {mc "Committer:"}}
3688 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3689 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3690 {changes_l l + {} {mc "Changes to Files:"}}
3691 {pickaxe_s r0 . {} {mc "Fixed String"}}
3692 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3693 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3694 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3695 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3696 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3697 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3698 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3699 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3700 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3701 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3702 {lright b . "--left-right" {mc "Mark branch sides"}}
3703 {first b . "--first-parent" {mc "Limit to first parent"}}
3704 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3705 {args t50 *. {} {mc "Additional arguments to git log:"}}
3706 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3707 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3708 }
3710 proc encode_view_opts {n} {
3711 global known_view_options newviewopts
3713 set rargs [list]
3723 }
3729 }
3730 } else {
3736 }
3737 }
3738 }
3741 }
3743 proc decode_view_opts {n view_args} {
3744 global known_view_options newviewopts
3749 # Checkboxes
3750 set val 0
3752 # Radiobuttons
3754 set val 0
3755 } else {
3756 # Text fields
3757 set val {}
3758 }
3760 }
3761 set oargs [list]
3762 set refargs [list]
3765 && ![info exists found(limit)]} {
3767 set found(limit) 1
3768 continue
3769 }
3770 catch { unset val }
3777 # Check buttons
3778 set val 1
3780 # Radio buttons
3783 } else {
3784 # Text input fields
3787 }
3790 break
3791 }
3792 if {[info exists val]} break
3793 }
3794 if {[info exists val]} continue
3797 } else {
3799 }
3800 }
3803 }
3805 proc edit_or_newview {} {
3806 global curview
3809 editview
3810 } else {
3811 newview 0
3812 }
3813 }
3815 proc editview {} {
3816 global curview
3817 global viewname viewperm newviewname newviewopts
3818 global viewargs viewargscmd
3823 return
3824 }
3830 }
3832 proc vieweditor {top n title} {
3833 global newviewname newviewopts viewfiles bgcolor
3834 global known_view_options
3840 # View name
3848 # View options
3850 set cexpand 0
3851 set cnt 0
3857 set lxpad 0
3861 incr cnt
3867 incr cnt
3871 } else {
3872 set lxpad 5
3873 }
3907 }
3910 }
3912 }
3913 }
3928 }
3930 proc doviewmenu {m first cmd op argv} {
3935 break
3936 }
3937 }
3938 }
3940 proc allviewmenus {n op args} {
3941 # global viewhlmenu
3945 }
3947 proc newviewok {top n {apply 0}} {
3948 global nextviewnum newviewperm newviewname newishighlight
3949 global viewname viewfiles viewperm selectedview curview
3950 global viewargs viewargscmd newviewopts viewhlmenu
3952 if {[catch {
3954 } err]} {
3956 return
3957 }
3958 set files {}
3963 }
3964 }
3966 # creating a new view
3967 incr nextviewnum
3976 } else {
3978 }
3979 } else {
3980 # editing an existing view
3988 }
3995 run reloadcommits
3996 }
3997 }
3998 }
4001 }
4003 proc delview {} {
4004 global curview viewperm hlview selectedhlview
4008 set selectedhlview [mc "None"]
4009 unset hlview
4010 }
4013 showview 0
4014 }
4016 proc addviewmenu {n} {
4017 global viewname viewhlmenu
4023 }
4025 proc showview {n} {
4026 global curview cached_commitrow ordertok
4027 global displayorder parentlist rowidlist rowisopt rowfinal
4028 global colormap rowtextx nextcolor canvxmax
4029 global numcommits viewcomplete
4030 global selectedline currentid canv canvy0
4031 global treediffs
4032 global pending_select mainheadid
4033 global commitidx
4034 global selectedview
4035 global hlview selectedhlview commitinterest
4038 set selid {}
4049 }
4050 } elseif {[info exists pending_select]} {
4052 unset pending_select
4053 }
4054 unselectline
4055 normalline
4056 catch {unset treediffs}
4057 clear_display
4059 unset hlview
4060 set selectedhlview [mc "None"]
4061 }
4062 catch {unset commitinterest}
4063 catch {unset cached_commitrow}
4064 catch {unset ordertok}
4071 run refill_reflist
4074 return
4075 }
4077 set displayorder {}
4078 set parentlist {}
4079 set rowidlist {}
4080 set rowisopt {}
4081 set rowfinal {}
4084 catch {unset colormap}
4085 catch {unset rowtextx}
4086 set nextcolor 0
4089 set row 0
4090 setcanvscroll
4091 set yf 0
4092 set row {}
4095 # try to get the selected row in the same position on the screen
4099 set ytop 0
4100 }
4102 }
4104 drawvisible
4109 } else {
4110 reset_pending_select {}
4114 } else {
4115 set row [first_real_row]
4118 }
4119 }
4120 }
4123 show_status [mc "Reading commits..."]
4124 }
4126 show_status [mc "No commits selected"]
4127 }
4128 }
4130 # Stuff relating to the highlighting facility
4132 proc ishighlighted {id} {
4133 global vhighlights fhighlights nhighlights rhighlights
4137 }
4140 }
4143 }
4146 }
4147 return 0
4148 }
4150 proc bolden {id font} {
4151 global canv linehtag currentid boldids need_redisplay markedid
4153 # need_redisplay = 1 means the display is stale and about to be redrawn
4160 -outline {{}} -tags secsel \
4163 }
4166 }
4167 }
4169 proc bolden_name {id font} {
4170 global canv2 linentag currentid boldnameids need_redisplay
4178 -outline {{}} -tags secsel \
4181 }
4182 }
4184 proc unbolden {} {
4185 global boldids
4187 set stillbold {}
4191 } else {
4193 }
4194 }
4196 }
4198 proc addvhighlight {n} {
4199 global hlview viewcomplete curview vhl_done commitidx
4201 if {[info exists hlview]} {
4202 delvhighlight
4203 }
4207 }
4210 drawvisible
4211 }
4212 }
4214 proc delvhighlight {} {
4215 global hlview vhighlights
4217 if {![info exists hlview]} return
4218 unset hlview
4219 catch {unset vhighlights}
4220 unbolden
4221 }
4223 proc vhighlightmore {} {
4224 global hlview vhl_done commitidx vhighlights curview
4227 set vr [visiblerows]
4237 }
4239 }
4240 }
4241 }
4243 return 0
4244 }
4246 proc askvhighlight {row id} {
4247 global hlview vhighlights iddrawn
4252 }
4254 } else {
4256 }
4257 }
4259 proc hfiles_change {} {
4260 global highlight_files filehighlight fhighlights fh_serial
4261 global highlight_paths
4263 if {[info exists filehighlight]} {
4264 # delete previous highlights
4266 unset filehighlight
4267 catch {unset fhighlights}
4268 unbolden
4269 unhighlight_filelist
4270 }
4271 set highlight_paths {}
4273 incr fh_serial
4276 }
4277 }
4279 proc gdttype_change {name ix op} {
4280 global gdttype highlight_files findstring findpattern
4282 stopfinding
4286 set highlight_files {}
4287 hfiles_change
4288 }
4289 findcom_change
4290 } else {
4292 set findpattern {}
4293 findcom_change
4294 }
4296 hfiles_change
4297 }
4298 drawvisible
4299 }
4300 # enable/disable findtype/findloc menus too
4301 }
4303 proc find_change {name ix op} {
4304 global gdttype findstring highlight_files
4306 stopfinding
4308 findcom_change
4309 } else {
4312 hfiles_change
4313 }
4314 }
4315 drawvisible
4316 }
4318 proc findcom_change args {
4319 global nhighlights boldnameids
4320 global findpattern findtype findstring gdttype
4322 stopfinding
4323 # delete previous highlights, if any
4326 }
4327 set boldnameids {}
4328 catch {unset nhighlights}
4329 unbolden
4330 unmarkmatches
4332 set findpattern {}
4335 } else {
4336 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4339 }
4340 }
4342 proc makepatterns {l} {
4343 set ret {}
4348 } else {
4351 }
4352 }
4354 }
4356 proc do_file_hl {serial} {
4357 global highlight_files filehighlight highlight_paths gdttype fhl_list
4362 highlight_filelist
4366 } else {
4367 # must be "containing:", i.e. we're searching commit info
4368 return
4369 }
4374 set fhl_list {}
4375 drawvisible
4376 flushhighlights
4377 }
4379 proc flushhighlights {} {
4380 global filehighlight fhl_list
4382 if {[info exists filehighlight]} {
4383 lappend fhl_list {}
4386 }
4387 }
4389 proc askfilehighlight {row id} {
4390 global filehighlight fhighlights fhl_list
4395 }
4397 proc readfhighlight {} {
4398 global filehighlight fhighlights curview iddrawn
4399 global fhl_list find_dirn
4401 if {![info exists filehighlight]} {
4402 return 0
4403 }
4404 set nr 0
4412 }
4418 }
4420 }
4422 # strange...
4423 puts "oops, git diff-tree died"
4425 unset filehighlight
4426 return 0
4427 }
4428 if {[info exists find_dirn]} {
4429 run findmore
4430 }
4431 return 1
4432 }
4434 proc doesmatch {f} {
4435 global findtype findpattern
4441 } else {
4443 }
4444 }
4446 proc askfindhighlight {row id} {
4447 global nhighlights commitinfo iddrawn
4448 global findloc
4449 global markingmatches
4453 }
4455 set isbold 0
4456 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4461 set isbold 2
4462 break
4463 }
4464 set isbold 1
4465 }
4466 }
4472 }
4473 }
4476 }
4477 }
4479 }
4481 proc markrowmatches {row id} {
4482 global canv canv2 linehtag linentag commitinfo findloc
4493 }
4494 }
4500 }
4501 }
4502 }
4504 proc vrel_change {name ix op} {
4505 global highlight_related
4507 rhighlight_none
4509 run drawvisible
4510 }
4511 }
4513 # prepare for testing whether commits are descendents or ancestors of a
4514 proc rhighlight_sel {a} {
4515 global descendent desc_todo ancestor anc_todo
4516 global highlight_related
4518 catch {unset descendent}
4520 catch {unset ancestor}
4523 rhighlight_none
4524 run drawvisible
4525 }
4526 }
4528 proc rhighlight_none {} {
4529 global rhighlights
4531 catch {unset rhighlights}
4532 unbolden
4533 }
4535 proc is_descendent {a} {
4536 global curview children descendent desc_todo
4541 set leftover {}
4542 set done 0
4547 continue
4548 }
4554 set done 1
4555 }
4556 }
4557 }
4560 return
4561 }
4562 }
4565 }
4567 proc is_ancestor {a} {
4568 global curview parents ancestor anc_todo
4573 set leftover {}
4574 set done 0
4579 continue
4580 }
4586 set done 1
4587 }
4588 }
4589 }
4592 return
4593 }
4594 }
4597 }
4599 proc askrelhighlight {row id} {
4600 global descendent highlight_related iddrawn rhighlights
4601 global selectedline ancestor
4604 set isbold 0
4609 }
4611 set isbold 1
4612 }
4617 }
4619 set isbold 1
4620 }
4621 }
4625 }
4626 }
4628 }
4630 # Graph layout functions
4632 proc shortids {ids} {
4633 set res {}
4639 } else {
4641 }
4642 }
4644 }
4646 proc ntimes {n o} {
4647 set ret {}
4652 }
4654 }
4656 }
4658 proc ordertoken {id} {
4659 global ordertok curview varcid varcstart varctok curview parents children
4660 global nullid nullid2
4664 }
4666 set todo {}
4667 while {1} {
4671 } else {
4673 }
4676 break
4677 }
4680 # it's a root
4682 break
4683 }
4686 } else {
4690 }
4692 }
4693 }
4698 }
4701 }
4703 # Work out where id should go in idlist so that order-token
4704 # values increase from left to right
4705 proc idcol {idlist id {i 0}} {
4708 set i 0
4709 }
4713 }
4715 incr i
4716 } else {
4720 }
4721 }
4723 }
4725 proc initlayout {} {
4726 global rowidlist rowisopt rowfinal displayorder parentlist
4727 global numcommits canvxmax canv
4728 global nextcolor
4729 global colormap rowtextx
4731 set numcommits 0
4732 set displayorder {}
4733 set parentlist {}
4734 set nextcolor 0
4735 set rowidlist {}
4736 set rowisopt {}
4737 set rowfinal {}
4739 catch {unset colormap}
4740 catch {unset rowtextx}
4741 setcanvscroll
4742 }
4744 proc setcanvscroll {} {
4745 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4746 global lastscrollset lastscrollrows
4752 set lastscrollset [clock clicks -milliseconds]
4754 }
4756 proc visiblerows {} {
4757 global canv numcommits linespc
4765 set r0 0
4766 }
4771 }
4773 }
4775 proc layoutmore {} {
4776 global commitidx viewcomplete curview
4777 global numcommits pending_select curview
4778 global lastscrollset lastscrollrows
4782 setcanvscroll
4783 }
4784 if {[info exists pending_select] &&
4786 update
4788 }
4789 drawvisible
4790 }
4792 # With path limiting, we mightn't get the actual HEAD commit,
4793 # so ask git rev-list what is the first ancestor of HEAD that
4794 # touches a file in the path limit.
4795 proc get_viewmainhead {view} {
4796 global viewmainheadid vfilelimit viewinstances mainheadid
4798 catch {
4806 }
4807 }
4810 proc getviewhead {fd inst view} {
4811 global viewmainheadid commfd curview viewinstances showlocalchanges
4813 set id {}
4816 return 1
4817 }
4820 }
4827 }
4829 doshowlocalchanges
4830 }
4831 return 0
4832 }
4834 proc doshowlocalchanges {} {
4835 global curview viewmainheadid
4839 dodiffindex
4840 } else {
4842 }
4843 }
4845 proc dohidelocalchanges {} {
4846 global nullid nullid2 lserial curview
4850 }
4853 }
4854 incr lserial
4855 }
4857 # spawn off a process to do git diff-index --cached HEAD
4858 proc dodiffindex {} {
4859 global lserial showlocalchanges vfilelimit curview
4860 global isworktree
4863 incr lserial
4864 set cmd "|git diff-index --cached HEAD"
4867 }
4872 }
4874 proc readdiffindex {fd serial inst} {
4875 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4876 global vfilelimit
4878 set isdiff 1
4881 return 1
4882 }
4883 set isdiff 0
4884 }
4885 # we only need to see one line and we don't really care what it says...
4889 return 0
4890 }
4892 # now see if there are any local changes not checked in to the index
4893 set cmd "|git diff-files"
4896 }
4903 # add the line for the changes in the index to the graph
4904 set hl [mc "Local changes checked in to index but not committed"]
4909 }
4914 }
4916 }
4917 return 0
4918 }
4920 proc readdifffiles {fd serial inst} {
4921 global viewmainheadid nullid nullid2 curview
4922 global commitinfo commitdata lserial
4924 set isdiff 1
4927 return 1
4928 }
4929 set isdiff 0
4930 }
4931 # we only need to see one line and we don't really care what it says...
4935 return 0
4936 }
4939 # add the line for the local diff to the graph
4940 set hl [mc "Local uncommitted changes, not checked in to index"]
4945 } else {
4947 }
4951 }
4952 return 0
4953 }
4955 proc nextuse {id row} {
4956 global curview children
4961 return -1
4962 }
4965 }
4966 }
4967 }
4970 }
4971 return -1
4972 }
4974 proc prevuse {id row} {
4975 global curview children
4977 set ret -1
4983 }
4984 }
4985 }
4987 }
4989 proc make_idlist {row} {
4990 global displayorder parentlist uparrowlen downarrowlen mingaplen
4991 global commitidx curview children
4995 set r 0
4996 }
4999 set ra 0
5000 }
5004 }
5006 set ids {}
5015 }
5016 }
5017 }
5025 }
5026 }
5027 }
5035 }
5036 }
5037 incr r
5043 }
5044 }
5045 }
5046 set idlist {}
5049 }
5051 }
5053 proc rowsequal {a b} {
5056 }
5059 }
5061 }
5063 proc makeupline {id row rend col} {
5064 global rowidlist uparrowlen downarrowlen mingaplen
5070 }
5073 }
5080 }
5081 }
5082 }
5084 proc layoutrows {row endrow} {
5085 global rowidlist rowisopt rowfinal displayorder
5086 global uparrowlen downarrowlen maxwidth mingaplen
5087 global children parentlist
5088 global commitidx viewcomplete curview
5091 set idlist {}
5097 }
5098 }
5100 }
5105 set final 1
5106 } else {
5114 # if not the first child, we have to insert a line going up
5117 }
5118 }
5119 }
5129 }
5130 }
5131 }
5138 }
5139 }
5149 }
5150 }
5158 }
5159 }
5160 }
5161 }
5162 }
5166 set final 0
5167 }
5171 lappend rowisopt 0
5177 }
5179 } else {
5186 }
5187 }
5189 }
5191 proc changedrow {row} {
5192 global displayorder iddrawn rowisopt need_redisplay
5201 }
5202 }
5203 }
5206 set need_redisplay 1
5207 }
5208 }
5210 proc insert_pad {row col npad} {
5211 global rowidlist
5220 }
5223 }
5225 proc optimize_rows {row col endrow} {
5226 global rowidlist rowisopt displayorder curview children
5229 set row 1
5230 }
5233 set haspad 0
5242 } else {
5243 set pprevidlist {}
5244 }
5245 set x0 -1
5246 set xm -1
5251 set haspad 1
5252 continue
5253 }
5257 set isarrow 0
5258 set z0 {}
5263 }
5264 }
5269 set isarrow 1
5270 }
5271 }
5274 set isarrow 1
5275 }
5276 # Looking at lines from this row to the previous row,
5277 # make them go straight up if they end in an arrow on
5278 # the previous row; otherwise make them go straight up
5279 # or at 45 degrees.
5281 # Line currently goes left too much;
5282 # insert pads in the previous row, then optimize it
5287 }
5295 }
5297 # Line currently goes right too much;
5298 # insert pads in this line
5304 set haspad 1
5305 }
5312 }
5313 }
5314 # avoid lines jigging left then immediately right
5317 incr x0
5320 }
5321 }
5323 # Find the first column that doesn't have a line going right
5329 # check if this is the link to the first child
5332 # it is, work out offset to child
5334 }
5335 }
5337 }
5338 # Insert a pad at that column as long as it has a line and
5339 # isn't the last column
5344 }
5345 }
5346 }
5347 }
5349 proc xc {row col} {
5350 global canvx0 linespc
5352 }
5354 proc yc {row} {
5355 global canvy0 linespc
5357 }
5359 proc linewidth {id} {
5360 global thickerline lthickness
5365 }
5367 }
5369 proc rowranges {id} {
5370 global curview children uparrowlen downarrowlen
5371 global rowidlist
5375 return {}
5376 }
5377 set ret {}
5382 if {![info exists prev]} {
5384 } else {
5386 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5387 }
5388 # see if the line extends the whole way from prevrow to row
5392 # it doesn't, see where it ends
5397 } else {
5400 incr r -1
5401 }
5403 # see where it starts up again
5408 } else {
5411 incr r
5412 }
5414 }
5415 }
5418 }
5421 }
5423 }
5425 proc drawlineseg {id row endrow arrowlow} {
5426 global rowidlist displayorder iddrawn linesegs
5427 global canv colormap linespc curview maxlinelen parentlist
5431 set arrowhigh 1
5432 while {1} {
5435 incr le -1
5436 break
5437 }
5441 set arrowhigh 0
5442 break
5443 }
5448 set arrowhigh 0
5449 }
5450 break
5451 }
5452 incr le
5453 }
5456 }
5458 set lines {}
5459 set i 0
5460 set joinhigh 0
5467 set joinhigh 1
5468 }
5469 break
5470 }
5471 incr i
5472 }
5473 }
5474 set joinlow 0
5479 set joinlow 1
5480 }
5481 }
5494 }
5495 } else {
5497 }
5505 set arrowlow 0
5506 }
5507 }
5515 }
5517 }
5520 # join parent line to first child
5531 } else {
5533 }
5541 }
5543 }
5545 } else {
5549 }
5557 } else {
5561 }
5563 }
5564 } else {
5570 }
5574 } else {
5575 # coalesce two pieces
5580 }
5584 }
5585 }
5589 }
5591 proc drawparentlinks {id row} {
5592 global rowidlist canv colormap curview parentlist
5593 global idpos linespc
5606 # rmx = right-most X coord used
5607 set rmx 0
5612 continue
5613 }
5617 }
5620 # drawlineseg will do this one for us
5621 continue
5622 }
5624 # should handle duplicated parents here...
5627 # if attaching to a vertical segment, draw a smaller
5628 # slant for visual distinctness
5632 } else {
5634 }
5636 # segment slants towards us already
5638 } else {
5643 }
5645 }
5646 } else {
5648 }
5653 }
5657 }
5658 }
5660 proc drawlines {id} {
5661 global canv
5664 }
5666 proc drawcmittext {id row col} {
5667 global linespc canv canv2 canv3 fgcolor curview
5668 global cmitlisted commitinfo rowidlist parentlist
5669 global rowtextx idpos idtags idheads idotherrefs
5670 global linehtag linentag linedtag selectedline
5671 global canvxmax boldids boldnameids fgcolor markedid
5672 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5674 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5677 set ofill red
5679 set ofill green
5681 set ofill yellow
5682 } else {
5684 }
5693 # triangle pointing left for left-side commits
5699 } else {
5700 # triangle pointing right for right-side commits
5706 }
5718 }
5719 }
5720 }
5727 }
5732 set font mainfont
5733 set nfont mainfont
5737 set font mainfontbold
5740 set nfont mainfontbold
5741 }
5742 }
5752 }
5755 }
5759 setcanvscroll
5760 }
5761 }
5763 proc drawcmitrow {row} {
5764 global displayorder rowidlist nrows_drawn
5765 global iddrawn markingmatches
5766 global commitinfo numcommits
5767 global filehighlight fhighlights findpattern nhighlights
5768 global hlview vhighlights
5769 global highlight_related rhighlights
5776 }
5779 }
5782 }
5785 }
5790 return
5791 }
5794 }
5798 incr nrows_drawn
5799 }
5802 }
5803 }
5805 proc drawcommits {row {endrow {}}} {
5806 global numcommits iddrawn displayorder curview need_redisplay
5807 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5810 set row 0
5811 }
5814 }
5817 }
5821 set rl1 0
5822 }
5825 set ro1 0
5826 }
5830 }
5835 }
5837 }
5838 }
5841 }
5844 clear_display
5845 }
5847 # make the lines join to already-drawn rows either side
5851 }
5856 }
5871 # see if this is the first child of any of its parents
5874 # make this line extend up to the child
5876 }
5877 }
5878 } else {
5880 }
5881 }
5882 }
5883 }
5885 proc undolayout {row} {
5886 global uparrowlen mingaplen downarrowlen
5887 global rowidlist rowisopt rowfinal need_redisplay
5891 set r 0
5892 }
5894 incr r -1
5898 set need_redisplay 1
5899 run drawvisible
5900 }
5901 }
5903 proc drawvisible {} {
5904 global canv linespc curview vrowmod selectedline targetrow targetid
5905 global need_redisplay cscroll numcommits
5915 if {[info exists targetid]} {
5919 # Fix up the scrollregion and change the scrolling position
5920 # now that our target row has moved.
5923 setcanvscroll
5931 set need_redisplay 1
5932 }
5933 } else {
5934 unset targetid
5935 }
5936 }
5942 }
5946 } elseif {[info exists targetid]} {
5948 }
5949 if {[info exists targetrow]} {
5952 }
5954 }
5956 }
5958 proc clear_display {} {
5959 global iddrawn linesegs need_redisplay nrows_drawn
5960 global vhighlights fhighlights nhighlights rhighlights
5961 global linehtag linentag linedtag boldids boldnameids
5963 allcanvs delete all
5964 catch {unset iddrawn}
5965 catch {unset linesegs}
5966 catch {unset linehtag}
5967 catch {unset linentag}
5968 catch {unset linedtag}
5969 set boldids {}
5970 set boldnameids {}
5971 catch {unset vhighlights}
5972 catch {unset fhighlights}
5973 catch {unset nhighlights}
5974 catch {unset rhighlights}
5975 set need_redisplay 0
5976 set nrows_drawn 0
5977 }
5979 proc findcrossings {id} {
5980 global rowidlist parentlist numcommits displayorder
5982 set cross {}
5983 set ccross {}
5987 }
6006 }
6007 }
6008 }
6009 }
6010 }
6012 }
6014 proc assigncolor {id} {
6015 global colormap colors nextcolor
6016 global parents children children curview
6022 } else {
6023 set kids {}
6024 }
6030 return
6031 }
6032 }
6033 set badcolors {}
6034 set origbad {}
6037 # delimiter between corner crossings and other crossings
6040 }
6044 }
6045 }
6048 }
6055 }
6060 }
6061 }
6062 }
6065 }
6066 }
6070 set nextcolor 0
6071 }
6073 }
6075 }
6077 proc bindline {t id} {
6078 global canv
6084 }
6086 proc drawtags {id x xt y1} {
6087 global idtags idheads idotherrefs mainhead
6088 global linespc lthickness
6089 global canv rowtextx curview fgcolor bgcolor ctxbut
6091 set marks {}
6092 set ntags 0
6093 set nheads 0
6097 }
6101 }
6104 }
6107 }
6112 set xvals {}
6113 set wvals {}
6114 set i -1
6116 incr i
6119 } else {
6121 }
6125 }
6132 set font mainfont
6133 if {[incr ntags -1] >= 0} {
6134 # draw a tag
6140 } else {
6141 # draw a head or other ref
6142 if {[incr nheads -1] >= 0} {
6143 set col green
6145 set font mainfontbold
6146 }
6147 } else {
6148 set col "#ddddff"
6149 }
6160 }
6161 }
6168 }
6169 }
6171 }
6173 proc xcoord {i level ln} {
6174 global canvx0 xspc1 xspc2
6181 }
6183 }
6185 proc show_status {msg} {
6186 global canv fgcolor
6188 clear_display
6191 }
6193 # Don't change the text pane cursor if it is currently the hand cursor,
6194 # showing that we are over a sha1 ID link.
6195 proc settextcursor {c} {
6196 global ctext curtextcursor
6200 }
6202 }
6204 proc nowbusy {what {name {}}} {
6205 global isbusy busyname statusw
6207 if {[array names isbusy] eq {}} {
6208 . config -cursor watch
6209 settextcursor watch
6210 }
6215 }
6216 }
6218 proc notbusy {what} {
6219 global isbusy maincursor textcursor busyname statusw
6221 catch {
6226 }
6227 }
6228 if {[array names isbusy] eq {}} {
6231 }
6232 }
6234 proc findmatches {f} {
6235 global findtype findstring
6238 } else {
6243 }
6244 set matches {}
6245 set i 0
6250 }
6251 }
6253 }
6255 proc dofind {{dirn 1} {wrap 1}} {
6256 global findstring findstartline findcurline selectedline numcommits
6257 global gdttype filehighlight fh_serial find_dirn findallowwrap
6259 if {[info exists find_dirn]} {
6261 stopfinding
6262 }
6263 focus .
6267 } else {
6269 }
6271 nowbusy finding [mc "Searching"]
6275 }
6278 run findmore
6279 }
6281 proc stopfinding {} {
6282 global find_dirn findcurline fprogcoord
6284 if {[info exists find_dirn]} {
6285 unset find_dirn
6286 unset findcurline
6287 notbusy finding
6288 set fprogcoord 0
6289 adjustprogress
6290 }
6291 stopblaming
6292 }
6294 proc findmore {} {
6295 global commitdata commitinfo numcommits findpattern findloc
6296 global findstartline findcurline findallowwrap
6297 global find_dirn gdttype fhighlights fprogcoord
6298 global curview varcorder vrownum varccommits vrowmod
6300 if {![info exists find_dirn]} {
6301 return 0
6302 }
6303 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6305 set moretodo 0
6307 incr l
6309 set l 0
6310 }
6313 } else {
6316 }
6317 } else {
6320 }
6321 incr l -1
6324 } else {
6325 set lim -1
6327 }
6328 }
6331 set n 500
6332 set moretodo 1
6333 }
6336 }
6337 set found 0
6338 set domore 1
6352 }
6354 # shouldn't happen unless git log doesn't give all the commits...
6357 continue
6358 }
6361 }
6366 set found 1
6367 break
6368 }
6369 }
6371 }
6372 } else {
6380 }
6385 }
6388 break
6389 }
6392 set domore 0
6394 }
6395 }
6396 }
6397 }
6399 unset findcurline
6400 unset find_dirn
6401 notbusy finding
6402 set fprogcoord 0
6403 adjustprogress
6406 } else {
6407 bell
6408 }
6409 return 0
6410 }
6412 flushhighlights
6413 } else {
6415 }
6419 }
6421 adjustprogress
6423 }
6425 proc findselectline {l} {
6426 global findloc commentend ctext findcurline markingmatches gdttype
6433 # highlight the matches in the comments
6440 }
6441 }
6442 drawvisible
6443 }
6445 # mark the bits of a headline or author that match a find string
6446 proc markmatches {canv l str tag matches font row} {
6447 global selectedline
6465 }
6466 }
6467 }
6469 proc unmarkmatches {} {
6470 global markingmatches
6472 allcanvs delete matches
6473 set markingmatches 0
6474 stopfinding
6475 }
6477 proc selcanvline {w x y} {
6478 global canv canvy0 ctext linespc
6479 global rowtextx
6486 set l 0
6487 }
6492 }
6493 unmarkmatches
6495 }
6497 proc commit_descriptor {p} {
6498 global commitinfo
6501 }
6502 set l "..."
6505 }
6507 }
6509 # append some text to the ctext widget, and make any SHA1 ID
6510 # that we know about be a clickable link.
6511 proc appendwithlinks {text tags} {
6512 global ctext linknum curview
6521 incr e
6525 incr linknum
6526 }
6527 }
6529 proc setlink {id lk} {
6530 global curview ctext pendinglinks
6532 set known 0
6537 set known 1
6539 }
6540 } else {
6542 }
6548 } else {
6551 }
6552 }
6554 proc appendshortlink {id {pre {}} {post {}}} {
6555 global ctext linknum
6562 incr linknum
6563 }
6565 proc makelink {id} {
6566 global pendinglinks
6571 }
6573 }
6575 proc linkcursor {w inc} {
6576 global linkentercount curtextcursor
6580 } else {
6583 set linkentercount 0
6584 }
6585 }
6586 }
6588 proc viewnextline {dir} {
6589 global canv linespc
6597 set newtop 0
6600 }
6602 }
6604 # add a list of tag or branch names at position pos
6605 # returns the number of names inserted
6606 proc appendrefs {pos ids var} {
6610 return 0
6611 }
6614 set tags {}
6618 }
6619 }
6622 } else {
6624 set sep {}
6628 incr linknum
6633 set sep ", "
6634 }
6635 }
6638 }
6640 # called when we have finished computing the nearby tags
6641 proc dispneartags {delay} {
6642 global selectedline currentid showneartags tagphase
6645 after cancel dispnexttag
6647 after 200 dispnexttag
6648 set tagphase -1
6649 } else {
6650 after idle dispnexttag
6651 set tagphase 0
6652 }
6653 }
6655 proc dispnexttag {} {
6656 global selectedline currentid showneartags tagphase ctext
6660 0 {
6664 }
6665 }
6666 1 {
6670 }
6671 }
6672 2 {
6677 # turn "Branch" into "Branches"
6681 }
6682 }
6683 }
6684 }
6685 if {[incr tagphase] <= 2} {
6686 after idle dispnexttag
6687 }
6688 }
6690 proc make_secsel {id} {
6691 global linehtag linentag linedtag canv canv2 canv3
6706 }
6708 proc make_idmark {id} {
6709 global linehtag canv fgcolor
6716 }
6718 proc selectline {l isnew {desired_loc {}}} {
6719 global canv ctext commitinfo selectedline
6720 global canvy0 linespc parents children curview
6721 global currentid sha1entry
6722 global commentend idtags linknum
6723 global mergemax numcommits pending_select
6724 global cmitmode showneartags allcommits
6725 global targetrow targetid lastscrollrows
6726 global autoselect jump_to_here
6728 catch {unset pending_select}
6730 normalline
6731 unsel_reflist
6732 stopfinding
6740 setcanvscroll
6741 }
6755 } else {
6759 }
6760 }
6764 } else {
6768 }
6769 }
6770 }
6773 set newtop 0
6774 }
6776 drawvisible
6777 }
6783 }
6790 }
6794 clear_ctext
6795 set linknum 0
6798 }
6808 }
6810 }
6812 set headers {}
6815 set np 0
6818 set tag mmax
6819 } else {
6821 }
6824 incr np
6825 }
6826 } else {
6829 }
6830 }
6834 }
6836 # make anything that looks like a SHA1 ID be a clickable link
6839 if {![info exists allcommits]} {
6840 getallcommits
6841 }
6852 dispneartags 1
6853 }
6858 }
6866 init_flist [mc "Comments"]
6871 } else {
6873 }
6874 }
6876 proc selfirstline {} {
6877 unmarkmatches
6878 selectline 0 1
6879 }
6881 proc sellastline {} {
6882 global numcommits
6883 unmarkmatches
6886 }
6888 proc selnextline {dir} {
6889 global selectedline
6890 focus .
6893 unmarkmatches
6895 }
6897 proc selnextpage {dir} {
6898 global canv linespc selectedline numcommits
6902 set lpp 1
6903 }
6905 drawvisible
6909 set l 0
6912 }
6913 unmarkmatches
6915 }
6917 proc unselectline {} {
6918 global selectedline currentid
6920 set selectedline {}
6921 catch {unset currentid}
6922 allcanvs delete secsel
6923 rhighlight_none
6924 }
6926 proc reselectline {} {
6927 global selectedline
6931 }
6932 }
6934 proc addtohistory {cmd} {
6935 global history historyindex curview
6940 return
6941 }
6945 } else {
6947 }
6948 incr historyindex
6950 .tf.bar.leftbut conf -state normal
6951 } else {
6952 .tf.bar.leftbut conf -state disabled
6953 }
6954 .tf.bar.rightbut conf -state disabled
6955 }
6957 proc godo {elt} {
6958 global curview
6964 }
6966 }
6968 proc goback {} {
6969 global history historyindex
6970 focus .
6973 incr historyindex -1
6975 .tf.bar.rightbut conf -state normal
6976 }
6978 .tf.bar.leftbut conf -state disabled
6979 }
6980 }
6982 proc goforw {} {
6983 global history historyindex
6984 focus .
6988 incr historyindex
6990 .tf.bar.leftbut conf -state normal
6991 }
6993 .tf.bar.rightbut conf -state disabled
6994 }
6995 }
6997 proc gettree {id} {
6998 global treefilelist treeidlist diffids diffmergeid treepending
6999 global nullid nullid2
7002 catch {unset diffmergeid}
7004 if {![info exists treepending]} {
7006 set cmd [list | git ls-files]
7008 set cmd [list | git ls-files --stage -t]
7009 } else {
7011 }
7013 return
7014 }
7020 }
7021 } else {
7023 }
7024 }
7026 proc gettreeline {gtf id} {
7027 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7029 set nl 0
7033 } else {
7041 }
7044 }
7047 }
7050 }
7052 unset treepending
7054 if {![info exists diffmergeid]} {
7056 }
7059 } else {
7061 }
7062 return 0
7063 }
7065 proc showfile {f} {
7066 global treefilelist treeidlist diffids nullid nullid2
7067 global ctext_file_names ctext_file_lines
7068 global ctext commentend
7073 return
7074 }
7078 return
7079 }
7080 } else {
7084 return
7085 }
7086 }
7097 settabs 0
7098 }
7100 proc getblobline {bf id} {
7101 global diffids cmitmode ctext
7105 return 0
7106 }
7108 set nl 0
7111 }
7113 global jump_to_here ctext_file_names commentend
7115 # delete last newline
7123 }
7124 return 0
7125 }
7128 }
7130 proc mark_ctext_line {lnum} {
7131 global ctext markbgcolor
7137 }
7139 proc mergediff {id} {
7140 global diffmergeid
7141 global diffids treediffs
7142 global parents curview
7150 }
7152 proc startdiff {ids} {
7153 global treediffs diffids treepending diffmergeid nullid nullid2
7155 settabs 1
7157 catch {unset diffmergeid}
7161 if {![info exists treepending]} {
7163 }
7164 } else {
7166 }
7167 }
7169 proc path_filter {filter name} {
7174 return 1
7175 }
7176 } else {
7180 return 1
7181 }
7182 }
7183 }
7184 return 0
7185 }
7187 proc addtocflist {ids} {
7188 global treediffs
7192 }
7194 proc diffcmd {ids flags} {
7195 global nullid nullid2
7201 # comparing working directory with some specific revision
7205 } else {
7207 }
7208 } else {
7209 # comparing working directory with index
7212 lappend cmd -R
7213 }
7214 }
7218 # comparing index with specific revision
7221 } else {
7223 }
7224 } else {
7225 # comparing index with HEAD
7226 lappend cmd HEAD
7227 }
7228 } else {
7230 }
7232 }
7234 proc gettreediffs {ids} {
7235 global treediff treepending
7240 set treediff {}
7243 }
7245 proc gettreediffline {gdtf ids} {
7246 global treediff treediffs treepending diffids diffmergeid
7247 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7249 set nr 0
7250 set sublist {}
7251 set max 1000
7253 # cache_gitattr is slow, and even slower on win32 where we
7254 # have to invoke it for only about 30 paths at a time
7255 set max 500
7256 if {[tk windowingsystem] == "win32"} {
7257 set max 120
7258 }
7259 }
7266 }
7271 }
7272 }
7273 }
7276 }
7279 }
7282 set flist {}
7286 }
7287 }
7289 } else {
7291 }
7292 unset treepending
7296 if {![info exists diffmergeid]} {
7298 }
7299 } else {
7301 }
7302 return 0
7303 }
7305 # empty string or positive integer
7306 proc diffcontextvalidate {v} {
7308 }
7310 proc diffcontextchange {n1 n2 op} {
7311 global diffcontextstring diffcontext
7316 reselectline
7317 }
7318 }
7319 }
7321 proc changeignorespace {} {
7322 reselectline
7323 }
7325 proc getblobdiffs {ids} {
7326 global blobdifffd diffids env
7327 global diffinhdr treediffs
7328 global diffcontext
7329 global ignorespace
7330 global limitdiffs vfilelimit curview
7331 global diffencoding targetline diffnparents
7332 global git_version
7334 set textconv {}
7336 set textconv "--textconv"
7337 }
7340 append cmd " -w"
7341 }
7344 }
7347 return
7348 }
7349 set targetline {}
7350 set diffnparents 0
7351 set diffinhdr 0
7352 set diffencoding [get_path_encoding {}]
7356 }
7358 proc setinlist {var i val} {
7363 }
7366 } else {
7368 }
7369 }
7371 proc makediffhdr {fname ids} {
7372 global ctext curdiffstart treediffs diffencoding
7373 global ctext_file_names jump_to_here targetline diffline
7380 }
7385 set targetline {}
7388 }
7389 set diffline 0
7390 }
7392 proc getblobdiffline {bdf ids} {
7393 global diffids blobdifffd ctext curdiffstart
7394 global diffnexthead diffnextnote difffilestart
7395 global ctext_file_names ctext_file_lines
7396 global diffinhdr treediffs mergemax diffnparents
7397 global diffencoding jump_to_here targetline diffline
7399 set nr 0
7404 return 0
7405 }
7410 continue
7411 }
7412 # start of a new file
7413 set diffinhdr 1
7416 lappend ctext_file_names ""
7421 # start of a new file in a merge diff
7426 }
7428 } else {
7430 # If the name hasn't changed the length will be odd,
7431 # the middle char will be a space, and the two bits either
7432 # side will be a/name and b/name, or "a/name" and "b/name".
7433 # If the name has changed we'll get "rename from" and
7434 # "rename to" or "copy from" and "copy to" lines following
7435 # this, and we'll use them to get the filenames.
7436 # This complexity is necessary because spaces in the
7437 # filename(s) don't get escaped.
7443 continue
7444 }
7445 # unescape if quoted and chop off the a/ from the front
7448 } else {
7450 }
7451 }
7464 }
7472 }
7474 set diffinhdr 0
7481 }
7486 }
7492 }
7495 # do nothing
7496 continue
7498 set diffinhdr 0
7499 continue
7500 }
7503 } else {
7504 set line [string map {\x1A ^Z} \
7506 # parse the prefix - one ' ', '-' or '+' for each parent
7510 # prefix only has " ", "-" and "+" in it: normal diff line
7515 set num "max"
7516 }
7518 } else {
7519 set tags {}
7521 # added line
7527 set num "max"
7528 }
7530 }
7531 }
7532 }
7536 set targetline {}
7537 } else {
7538 incr diffline
7539 }
7540 }
7542 }
7543 } else {
7544 # "\ No newline at end of file",
7545 # or something else we don't recognize
7547 }
7548 }
7549 }
7550 if {[info exists seehere]} {
7552 }
7556 return 0
7557 }
7559 }
7561 proc changediffdisp {} {
7562 global ctext diffelide
7566 }
7568 proc highlightfile {loc cline} {
7569 global ctext cflist cflist_top
7576 }
7578 proc prevfile {} {
7579 global difffilestart ctext cmitmode
7582 set prev 0.0
7583 set prevline 1
7588 return
7589 }
7591 incr prevline
7592 }
7594 }
7596 proc nextfile {} {
7597 global difffilestart ctext cmitmode
7601 set line 1
7603 incr line
7606 return
7607 }
7608 }
7609 }
7611 proc clear_ctext {{first 1.0}} {
7612 global ctext smarktop smarkbot
7613 global ctext_file_names ctext_file_lines
7614 global pendinglinks
7619 }
7622 }
7625 catch {unset pendinglinks}
7626 }
7627 set ctext_file_names {}
7628 set ctext_file_lines {}
7629 }
7631 proc settabs {{firstab {}}} {
7632 global firsttabstop tabstop ctext have_tk85
7636 }
7637 set w [font measure textfont "0"]
7643 } else {
7645 }
7646 }
7648 proc incrsearch {name ix op} {
7649 global ctext searchstring searchdirn
7653 # no anchor set, use start of selection, or of visible area
7659 } else {
7661 }
7662 }
7667 }
7668 searchmarkvisible 1
7669 }
7670 }
7672 proc dosearch {} {
7673 global sstring ctext searchstring searchdirn
7677 set searchdirn -forwards
7683 set start "@0,0"
7684 }
7688 bell
7689 return
7690 }
7695 }
7696 }
7698 proc dosearchback {} {
7699 global sstring ctext searchstring searchdirn
7703 set searchdirn -backwards
7710 }
7714 bell
7715 return
7716 }
7721 }
7722 }
7724 proc searchmark {first last} {
7725 global ctext searchstring
7728 while {1} {
7733 }
7734 }
7736 proc searchmarkvisible {doall} {
7737 global ctext smarktop smarkbot
7742 # no overlap with previous
7746 } else {
7750 }
7754 }
7755 }
7756 }
7758 proc scrolltext {f0 f1} {
7759 global searchstring
7763 searchmarkvisible 0
7764 }
7765 }
7767 proc setcoords {} {
7768 global linespc charspc canvx0 canvy0
7769 global xspc1 xspc2 lthickness
7771 set linespc [font metrics mainfont -linespace]
7772 set charspc [font measure mainfont "m"]
7778 }
7780 proc redisplay {} {
7781 global canv
7782 global selectedline
7787 clear_display
7788 setcanvscroll
7790 drawvisible
7794 }
7795 }
7797 proc parsefont {f n} {
7798 global fontattr
7803 set s 10
7806 }
7812 "normal" -
7814 "roman" -
7816 }
7817 }
7818 }
7820 proc fontflags {f {isbold 0}} {
7821 global fontattr
7826 }
7828 proc fontname {f} {
7829 global fontattr
7833 lappend n "bold"
7834 }
7836 lappend n "italic"
7837 }
7839 }
7841 proc incrfont {inc} {
7842 global mainfont textfont ctext canv cflist showrefstop
7843 global stopped entries fontattr
7845 unmarkmatches
7849 set s 1
7850 }
7854 set mainfont [fontname mainfont]
7858 set s 1
7859 }
7863 set textfont [fontname textfont]
7864 setcoords
7865 settabs
7866 redisplay
7867 }
7869 proc clearsha1 {} {
7870 global sha1entry sha1string
7873 }
7874 }
7876 proc sha1change {n1 n2 op} {
7877 global sha1string currentid sha1but
7880 set state disabled
7881 } else {
7882 set state normal
7883 }
7887 } else {
7889 }
7890 }
7892 proc gotocommit {} {
7893 global sha1string tagids headids curview varcid
7901 } else {
7908 return
7909 }
7911 }
7912 } else {
7915 return
7916 }
7917 }
7918 }
7921 return
7922 }
7925 } else {
7927 }
7929 }
7931 proc lineenter {x y id} {
7932 global hoverx hovery hoverid hovertimer
7933 global commitinfo canv
7939 if {[info exists hovertimer]} {
7941 }
7942 set hovertimer [after 500 linehover]
7944 }
7946 proc linemotion {x y id} {
7947 global hoverx hovery hoverid hovertimer
7952 if {[info exists hovertimer]} {
7954 }
7955 set hovertimer [after 500 linehover]
7956 }
7957 }
7959 proc lineleave {id} {
7960 global hoverid hovertimer canv
7964 if {[info exists hovertimer]} {
7966 unset hovertimer
7967 }
7968 unset hoverid
7969 }
7970 }
7972 proc linehover {} {
7973 global hoverx hovery hoverid hovertimer
7974 global canv linespc lthickness
7975 global commitinfo
7988 -fill \#ffff80 -outline black -width 1 -tags hover]
7991 -font mainfont]
7993 }
7995 proc clickisonarrow {id y} {
7996 global lthickness
8005 }
8006 }
8007 return {}
8008 }
8010 proc arrowjump {id n y} {
8011 global canv
8013 # 1 <-> 2, 3 <-> 4, etc...
8023 set yfrac 0
8024 }
8026 }
8028 proc lineclick {x y id isnew} {
8029 global ctext commitinfo children canv thickerline curview
8032 unmarkmatches
8033 unselectline
8034 normalline
8036 # draw this line thicker than normal
8044 }
8048 return
8049 }
8053 }
8054 # fill the details pane with info about this line
8056 clear_ctext
8057 settabs 0
8069 set i 0
8071 incr i
8081 }
8082 }
8084 init_flist {}
8085 }
8087 proc normalline {} {
8088 global thickerline
8089 if {[info exists thickerline]} {
8091 unset thickerline
8093 }
8094 }
8096 proc selbyid {id} {
8097 global curview
8100 }
8101 }
8103 proc mstime {} {
8104 global startmstime
8105 if {![info exists startmstime]} {
8106 set startmstime [clock clicks -milliseconds]
8107 }
8109 }
8111 proc rowmenu {x y id} {
8112 global rowctxmenu selectedline rowmenuid curview
8113 global nullid nullid2 fakerowmenu mainhead markedid
8115 stopfinding
8118 set state disabled
8119 } else {
8120 set state normal
8121 }
8126 } else {
8128 }
8133 } else {
8137 }
8138 } else {
8140 }
8145 }
8147 proc markhere {} {
8148 global rowmenuid markedid canv
8152 }
8154 proc gotomark {} {
8155 global markedid
8157 if {[info exists markedid]} {
8159 }
8160 }
8162 proc replace_by_kids {l r} {
8163 global curview children
8169 }
8171 }
8173 proc find_common_desc {} {
8174 global markedid rowmenuid curview children
8176 if {![info exists markedid]} return
8179 #set t1 [clock clicks -milliseconds]
8182 while 1 {
8188 break
8189 }
8192 } else {
8194 }
8195 }
8196 #set t2 [clock clicks -milliseconds]
8198 }
8200 proc compare_commits {} {
8201 global markedid rowmenuid curview children
8203 if {![info exists markedid]} return
8207 }
8209 proc getpatchid {id} {
8210 global patchids
8214 # trim off the initial "|"
8216 if {[catch {
8219 }]} {
8221 }
8222 }
8224 }
8226 proc do_cmp_commits {a b} {
8227 global ctext curview parents children patchids commitinfo
8230 clear_ctext
8231 init_flist {}
8233 set skipa 0
8234 set skipb 0
8237 set skipa 1
8238 } else {
8240 }
8243 set skipb 1
8244 } else {
8246 }
8252 [mc " - stopping\n"]
8253 break
8254 }
8257 [mc " - stopping\n"]
8258 break
8259 }
8264 } else {
8268 }
8269 set skipa 1
8270 set skipb 1
8271 } else {
8277 break
8278 }
8279 }
8284 [mc " has %s children - stopping\n" \
8286 break
8287 }
8289 }
8293 [mc " has %s children - stopping\n" \
8295 break
8296 }
8298 }
8299 }
8301 }
8303 proc diffvssel {dirn} {
8304 global rowmenuid selectedline
8310 } else {
8313 }
8316 }
8318 proc doseldiff {oldid newid} {
8319 global ctext
8320 global commitinfo
8323 clear_ctext
8324 init_flist [mc "Top"]
8339 }
8341 proc mkpatch {} {
8342 global rowmenuid currentid commitinfo patchtop patchnum
8344 if {![info exists currentid]} return
8349 set top .patch
8379 incr patchnum
8391 }
8393 proc mkpatchrev {} {
8394 global patchtop
8400 foreach e [list fromsha1 fromhead tosha1 tohead] \
8406 }
8407 }
8409 proc mkpatchgo {} {
8410 global patchtop nullid nullid2
8416 # trim off the initial "|"
8421 }
8423 unset patchtop
8424 }
8426 proc mkpatchcan {} {
8427 global patchtop
8430 unset patchtop
8431 }
8433 proc mktag {} {
8434 global rowmenuid mktagtop commitinfo
8436 set top .maketag
8465 }
8467 proc domktag {} {
8468 global mktagtop env tagids idtags
8474 return 0
8475 }
8478 return 0
8479 }
8480 if {[catch {
8482 } err]} {
8484 return 0
8485 }
8491 dispneartags 0
8492 run refill_reflist
8493 return 1
8494 }
8496 proc redrawtags {id} {
8497 global canv linehtag idpos currentid curview cmitlisted markedid
8498 global canvxmax iddrawn circleitem mainheadid circlecolors
8504 set ofill yellow
8505 } else {
8507 }
8517 setcanvscroll
8518 }
8521 }
8524 }
8525 }
8527 proc mktagcan {} {
8528 global mktagtop
8531 unset mktagtop
8532 }
8534 proc mktaggo {} {
8535 if {![domktag]} return
8536 mktagcan
8537 }
8539 proc writecommit {} {
8540 global rowmenuid wrcomtop commitinfo wrcomcmd
8542 set top .writecommit
8575 }
8577 proc wrcomgo {} {
8578 global wrcomtop
8585 }
8587 unset wrcomtop
8588 }
8590 proc wrcomcan {} {
8591 global wrcomtop
8594 unset wrcomtop
8595 }
8597 proc mkbranch {} {
8598 global rowmenuid mkbrtop
8600 set top .makebranch
8624 }
8626 proc mkbrgo {top} {
8627 global headids idheads
8631 set cmdargs {}
8632 set old_id {}
8635 return
8636 }
8638 if {![confirm_popup [mc \
8640 return
8641 }
8643 lappend cmdargs -f
8644 }
8647 nowbusy newbranch
8648 update
8649 if {[catch {
8651 } err]} {
8652 notbusy newbranch
8654 } else {
8655 notbusy newbranch
8661 } else {
8666 }
8667 dispneartags 0
8668 run refill_reflist
8669 }
8670 }
8672 proc exec_citool {tool_args {baseid {}}} {
8673 global commitinfo env
8675 set save_env [array get env GIT_AUTHOR_*]
8680 }
8683 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8689 }
8690 }
8694 array unset env GIT_AUTHOR_*
8696 }
8698 proc cherrypick {} {
8699 global rowmenuid curview
8700 global mainhead mainheadid
8702 set oldhead [exec git rev-parse HEAD]
8705 set ok [confirm_popup [mc "Commit %s is already\
8706 included in branch %s -- really re-apply it?" \
8709 }
8710 nowbusy cherrypick [mc "Cherry-picking"]
8711 update
8712 # Unfortunately git-cherry-pick writes stuff to stderr even when
8713 # no error occurs, and exec takes that as an indication of error...
8715 notbusy cherrypick
8716 if {[regexp -line \
8717 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8719 error_popup [mc "Cherry-pick failed because of local changes\
8720 to file '%s'.\nPlease commit, reset or stash\
8722 } elseif {[regexp -line \
8723 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8725 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8726 conflict.\nDo you wish to run git citool to\
8727 resolve it?"]]} {
8728 # Force citool to read MERGE_MSG
8729 file delete [file join [gitdir] "GITGUI_MSG"]
8731 }
8732 } else {
8734 }
8735 run updatecommits
8736 return
8737 }
8738 set newhead [exec git rev-parse HEAD]
8740 notbusy cherrypick
8741 error_popup [mc "No changes committed"]
8742 return
8743 }
8746 # XXX this isn't right if we have a path limit...
8751 }
8756 }
8757 notbusy cherrypick
8758 }
8760 proc resethead {} {
8761 global mainhead rowmenuid confirm_ok resettype
8763 set confirm_ok 0
8764 set w ".confirmreset"
8770 -justify center -aspect 1000
8775 set resettype mixed
8777 -text [mc "Soft: Leave working tree and index untouched"]
8780 -text [mc "Mixed: Leave working tree untouched, reset index"]
8783 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8794 if {[catch {set fd [open \
8797 } else {
8798 dohidelocalchanges
8800 nowbusy reset [mc "Resetting"]
8802 }
8803 }
8805 proc readresetstat {fd} {
8806 global mainhead mainheadid showlocalchanges rprogcoord
8811 adjustprogress
8812 }
8813 return 1
8814 }
8815 set rprogcoord 0
8816 adjustprogress
8817 notbusy reset
8820 }
8822 set newhead [exec git rev-parse HEAD]
8829 }
8831 doshowlocalchanges
8832 }
8833 return 0
8834 }
8836 # context menu for a head
8837 proc headmenu {x y id head} {
8838 global headmenuid headmenuhead headctxmenu mainhead
8840 stopfinding
8843 set state normal
8845 set state disabled
8846 }
8850 }
8852 proc cobranch {} {
8853 global headmenuid headmenuhead headids
8854 global showlocalchanges
8856 # check the tree is clean first??
8857 nowbusy checkout [mc "Checking out"]
8858 update
8859 dohidelocalchanges
8860 if {[catch {
8862 } err]} {
8863 notbusy checkout
8866 dodiffindex
8867 }
8868 } else {
8870 }
8871 }
8873 proc readcheckoutstat {fd newhead newheadid} {
8874 global mainhead mainheadid headids showlocalchanges progresscoords
8875 global viewmainheadid curview
8880 adjustprogress
8881 }
8882 return 1
8883 }
8884 set progresscoords {0 0}
8885 adjustprogress
8886 notbusy checkout
8889 }
8898 dodiffindex
8899 }
8900 }
8902 proc rmbranch {} {
8903 global headmenuid headmenuhead mainhead
8904 global idheads
8908 # this check shouldn't be needed any more...
8910 error_popup [mc "Cannot delete the currently checked-out branch"]
8911 return
8912 }
8915 # the stuff on this branch isn't on any other branch
8916 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8918 }
8919 nowbusy rmbranch
8920 update
8922 notbusy rmbranch
8924 return
8925 }
8929 notbusy rmbranch
8930 dispneartags 0
8931 run refill_reflist
8932 }
8934 # Display a list of tags and heads
8935 proc showrefs {} {
8936 global showrefstop bgcolor fgcolor selectbgcolor
8937 global bglist fglist reflistfilter reflist maincursor
8939 set top .showrefs
8943 refill_reflist
8944 return
8945 }
8953 -spacing1 1 -spacing3 1 -state disabled
8964 set reflistfilter "*"
8965 trace add variable reflistfilter write reflistfilter_change
8977 set reflist {}
8978 refill_reflist
8979 }
8981 proc sel_reflist {w x y} {
8982 global showrefstop reflist headids tagids otherrefids
8992 }
8994 }
8996 proc unsel_reflist {} {
8997 global showrefstop
9001 }
9003 proc reflistfilter_change {n1 n2 op} {
9004 global reflistfilter
9006 after cancel refill_reflist
9007 after 200 refill_reflist
9008 }
9010 proc refill_reflist {} {
9011 global reflist reflistfilter showrefstop headids tagids otherrefids
9012 global curview
9015 set refs {}
9016 foreach n [array names headids] {
9020 } else {
9022 }
9023 }
9024 }
9025 foreach n [array names tagids] {
9029 } else {
9031 }
9032 }
9033 }
9034 foreach n [array names otherrefids] {
9038 } else {
9040 }
9041 }
9042 }
9050 set i 0
9051 set j 0
9060 }
9061 } else {
9062 set cmp -1
9063 }
9064 } else {
9065 set cmp 1
9066 }
9068 -1 {
9070 incr i
9071 }
9072 0 {
9073 incr i
9074 incr j
9075 }
9076 1 {
9081 incr j
9082 }
9083 }
9084 }
9086 # delete last newline
9089 }
9091 # Stuff for finding nearby tags
9092 proc getallcommits {} {
9093 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9094 global idheads idtags idotherrefs allparents tagobjid
9096 if {![info exists allcommits]} {
9097 set nextarc 0
9098 set allcommits 0
9099 set seeds {}
9100 set allcwait 0
9101 set cachedarcs 0
9102 set allccache [file join [gitdir] "gitk.cache"]
9103 if {![catch {
9105 set allcwait 1
9107 }]} return
9108 }
9111 return
9112 }
9113 set cmd [list | git rev-list --parents]
9116 set ids "--all"
9117 } else {
9118 set refs [concat [array names idheads] [array names idtags] \
9119 [array names idotherrefs]]
9120 set ids {}
9121 set tagobjs {}
9122 foreach name [array names tagobjid] {
9124 }
9129 }
9130 }
9134 }
9135 }
9136 }
9140 incr allcommits
9141 nowbusy allcommits
9143 } else {
9144 dispneartags 0
9145 }
9146 }
9148 # Since most commits have 1 parent and 1 child, we group strings of
9149 # such commits into "arcs" joining branch/merge points (BMPs), which
9150 # are commits that either don't have 1 parent or don't have 1 child.
9151 #
9152 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9153 # arcout(id) - outgoing arcs for BMP
9154 # arcids(a) - list of IDs on arc including end but not start
9155 # arcstart(a) - BMP ID at start of arc
9156 # arcend(a) - BMP ID at end of arc
9157 # growing(a) - arc a is still growing
9158 # arctags(a) - IDs out of arcids (excluding end) that have tags
9159 # archeads(a) - IDs out of arcids (excluding end) that have heads
9160 # The start of an arc is at the descendent end, so "incoming" means
9161 # coming from descendents, and "outgoing" means going towards ancestors.
9163 proc getallclines {fd} {
9164 global allparents allchildren idtags idheads nextarc
9165 global arcnos arcids arctags arcout arcend arcstart archeads growing
9166 global seeds allcommits cachedarcs allcupdate
9168 set nid 0
9172 # seen it already
9173 continue
9174 }
9175 set cachedarcs 0
9182 } else {
9188 }
9191 }
9193 # seen parent already
9196 }
9200 }
9203 continue
9204 }
9205 }
9210 }
9212 set ao {}
9215 set a [incr nextarc]
9224 # seen it already, may need to make a new branch
9227 }
9231 }
9233 }
9235 }
9237 global cached_dheads cached_dtags cached_atags
9238 catch {unset cached_dheads}
9239 catch {unset cached_dtags}
9240 catch {unset cached_atags}
9241 }
9244 }
9245 set cacheok 1
9246 if {[catch {
9249 } err]} {
9250 # got an error reading the list of commits
9251 # if we were updating, try rereading the whole thing again
9253 incr allcommits -1
9255 return
9256 }
9257 error_popup "[mc "Error reading commit topology information;\
9258 branch and preceding/following tag information\
9260 set cacheok 0
9261 }
9262 if {[incr allcommits -1] == 0} {
9263 notbusy allcommits
9265 run savecache
9266 }
9267 }
9268 dispneartags 0
9269 return 0
9270 }
9272 proc recalcarc {a} {
9273 global arctags archeads arcids idtags idheads
9275 set at {}
9276 set ah {}
9280 }
9283 }
9284 }
9287 }
9289 proc splitarc {p} {
9290 global arcnos arcids nextarc arctags archeads idtags idheads
9291 global arcstart arcend arcout allparents growing
9296 return
9297 }
9302 return
9303 }
9304 set na [incr nextarc]
9307 } else {
9311 }
9321 }
9326 } else {
9329 }
9330 }
9332 # reconstruct tags and heads lists
9336 } else {
9339 }
9340 }
9342 # Update things for a new commit added that is a child of one
9343 # existing commit. Used when cherry-picking.
9344 proc addnewchild {id p} {
9345 global allparents allchildren idtags nextarc
9346 global arcnos arcids arctags arcout arcend arcstart archeads growing
9347 global seeds allcommits
9355 set a [incr nextarc]
9363 }
9366 }
9368 # This implements a cache for the topology information.
9369 # The cache saves, for each arc, the start and end of the arc,
9370 # the ids on the arc, and the outgoing arcs from the end.
9371 proc readcache {f} {
9372 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9373 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9374 global allcwait
9380 }
9381 if {[catch {
9383 # finish reading the cache and setting up arctags, etc.
9387 foreach id [array names idtags] {
9393 }
9394 }
9395 }
9396 foreach id [array names idheads] {
9402 }
9403 }
9404 }
9408 }
9409 }
9410 set allcwait 0
9411 } else {
9421 }
9425 } else {
9429 }
9430 }
9436 }
9439 }
9442 }
9444 }
9445 } err]} {
9447 return 0
9448 }
9450 getallcommits
9451 }
9453 }
9455 proc getcache {f} {
9456 global nextarc cachedarcs possible_seeds
9458 if {[catch {
9461 # make sure it's an integer
9464 set nextarc 0
9465 set possible_seeds {}
9467 } err]} {
9469 }
9470 return 0
9471 }
9473 proc dropcache {err} {
9474 global allcwait nextarc cachedarcs seeds
9477 foreach v {arcnos arcout arcids arcstart arcend growing \
9478 arctags archeads allparents allchildren} {
9481 }
9482 set allcwait 0
9483 set nextarc 0
9484 set cachedarcs 0
9485 set seeds {}
9486 getallcommits
9487 }
9489 proc writecache {f} {
9490 global cachearc cachedarcs allccache
9491 global arcstart arcend arcnos arcids arcout
9497 }
9498 if {[catch {
9502 } else {
9504 }
9505 }
9506 } err]} {
9510 return 0
9511 }
9516 return 0
9517 }
9518 return 1
9519 }
9521 proc savecache {} {
9522 global nextarc cachedarcs cachearc allccache
9525 set cachearc 0
9527 catch {
9531 }
9532 }
9534 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9535 # or 0 if neither is true.
9536 proc anc_or_desc {a b} {
9537 global arcout arcstart arcend arcnos cached_isanc
9540 # Both are on the same arc(s); either both are the same BMP,
9541 # or if one is not a BMP, the other is also not a BMP or is
9542 # the BMP at end of the arc (and it only has 1 incoming arc).
9543 # Or both can be BMPs with no incoming arcs.
9545 return 0
9546 }
9552 return 1
9553 } else {
9554 return -1
9555 }
9556 }
9562 } else {
9563 set aend {}
9564 }
9566 } else {
9568 }
9573 } else {
9574 set bend {}
9575 }
9577 } else {
9579 }
9581 return 1
9582 }
9584 return -1
9585 }
9588 return 1
9589 }
9590 }
9593 return -1
9594 }
9596 return 0
9597 }
9598 }
9606 continue
9607 }
9613 return 1
9617 return -1
9618 }
9624 }
9625 }
9626 }
9629 return 0
9630 }
9634 # and returns 0 if so and 1 if not.
9635 # If we subsequently discover a tag on such a growing tip, and that
9638 # isn't a good choice to display as a descendent tag of
9642 #
9643 proc is_certain {desc anc} {
9644 global arcnos arcout arcstart arcend growing problems
9646 set certain {}
9648 # tags on the same arc are certain
9650 return 1
9651 }
9656 }
9657 }
9660 } else {
9663 }
9665 return 1
9666 }
9669 set nnh 1
9670 set ngrowanc 0
9674 incr nnh -1
9675 }
9681 incr ngrowanc
9682 }
9683 } else {
9690 incr nnh -1
9691 }
9693 incr ngrowanc -1
9694 }
9704 incr nnh -1
9705 }
9707 incr ngrowanc -1
9708 }
9710 }
9711 }
9712 }
9713 }
9714 }
9715 }
9719 } else {
9722 incr nnh
9723 }
9724 }
9725 }
9726 }
9727 foreach x [array names growanc] {
9729 return 0
9730 }
9731 return 0
9732 }
9733 return 1
9734 }
9736 proc validate_arctags {a} {
9737 global arctags idtags
9739 set i -1
9742 incr i
9745 incr i -1
9746 }
9747 }
9749 }
9751 proc validate_archeads {a} {
9752 global archeads idheads
9754 set i -1
9757 incr i
9760 incr i -1
9761 }
9762 }
9764 }
9766 # Return the list of IDs that have tags that are descendents of id,
9767 # ignoring IDs that are descendents of IDs already reported.
9768 proc desctags {id} {
9769 global arcnos arcstart arcids arctags idtags allparents
9770 global growing cached_dtags
9773 return {}
9774 }
9775 set t1 [clock clicks -milliseconds]
9778 # part-way along an arc; check that arc first
9783 set tid {}
9788 }
9791 }
9792 }
9796 }
9797 }
9800 }
9805 set nc 1
9811 incr nc -1
9812 }
9813 # ignore tags on starting node
9817 set ta 1
9820 set ta 1
9821 }
9822 }
9829 }
9830 }
9839 }
9842 }
9844 incr nc -1
9845 }
9847 }
9848 }
9849 }
9854 incr nc
9855 }
9856 }
9857 }
9858 }
9859 set tags {}
9860 foreach id [array names tagloc] {
9865 }
9866 }
9867 }
9868 }
9869 set t2 [clock clicks -milliseconds]
9872 # remove tags that are descendents of other tags
9880 incr j -1
9881 incr i -1
9884 incr i -1
9885 break
9886 }
9887 }
9888 }
9890 if {[array names growing] ne {}} {
9891 # graph isn't finished, need to check if any tag could get
9892 # eclipsed by another tag coming later. Simply ignore any
9893 # tags that could later get eclipsed.
9894 set ctags {}
9898 }
9899 }
9902 } else {
9904 }
9905 } else {
9907 }
9908 set t3 [clock clicks -milliseconds]
9912 }
9914 }
9916 proc anctags {id} {
9917 global arcnos arcids arcout arcend arctags idtags allparents
9918 global growing cached_atags
9921 return {}
9922 }
9923 set t1 [clock clicks -milliseconds]
9926 # part-way along an arc; check that arc first
9935 }
9936 }
9937 }
9939 return {}
9940 }
9944 }
9945 }
9948 }
9953 set taglist {}
9954 set nc 1
9960 incr nc -1
9961 }
9962 # ignore tags on starting node
9966 set td 1
9969 set td 1
9970 }
9971 }
9977 }
9978 }
9990 }
9991 }
9994 }
9996 incr nc -1
9997 }
9999 }
10000 }
10001 }
10006 incr nc
10007 }
10008 }
10009 }
10010 }
10011 set t2 [clock clicks -milliseconds]
10013 set tags {}
10014 foreach id [array names tagloc] {
10019 }
10020 }
10021 }
10022 }
10024 # remove tags that are ancestors of other tags
10032 incr j -1
10033 incr i -1
10036 incr i -1
10037 break
10038 }
10039 }
10040 }
10042 if {[array names growing] ne {}} {
10043 # graph isn't finished, need to check if any tag could get
10044 # eclipsed by another tag coming later. Simply ignore any
10045 # tags that could later get eclipsed.
10046 set ctags {}
10050 }
10051 }
10054 } else {
10056 }
10057 } else {
10059 }
10060 set t3 [clock clicks -milliseconds]
10064 }
10066 }
10068 # Return the list of IDs that have heads that are descendents of id,
10069 # including id itself if it has a head.
10070 proc descheads {id} {
10071 global arcnos arcstart arcids archeads idheads cached_dheads
10072 global allparents
10075 return {}
10076 }
10077 set aret {}
10079 # part-way along an arc; check it first
10088 }
10089 }
10091 }
10095 set ret {}
10100 } else {
10103 }
10109 }
10110 }
10115 }
10116 }
10117 }
10118 }
10122 }
10124 proc addedtag {id} {
10125 global arcnos arcout cached_dtags cached_atags
10130 }
10131 catch {unset cached_dtags}
10132 catch {unset cached_atags}
10133 }
10135 proc addedhead {hid head} {
10136 global arcnos arcout cached_dheads
10141 }
10142 catch {unset cached_dheads}
10143 }
10145 proc removedhead {hid head} {
10146 global cached_dheads
10148 catch {unset cached_dheads}
10149 }
10151 proc movedhead {hid head} {
10152 global arcnos arcout cached_dheads
10157 }
10158 catch {unset cached_dheads}
10159 }
10161 proc changedrefs {} {
10162 global cached_dheads cached_dtags cached_atags
10163 global arctags archeads arcnos arcout idheads idtags
10165 foreach id [concat [array names idheads] [array names idtags]] {
10171 }
10172 }
10173 }
10174 catch {unset cached_dtags}
10175 catch {unset cached_atags}
10176 catch {unset cached_dheads}
10177 }
10179 proc rereadrefs {} {
10180 global idtags idheads idotherrefs mainheadid
10182 set refids [concat [array names idtags] \
10183 [array names idheads] [array names idotherrefs]]
10187 }
10188 }
10190 readrefs
10191 changedrefs
10193 [array names idheads] [array names idotherrefs]]]
10198 }
10199 }
10203 }
10204 run refill_reflist
10205 }
10207 proc listrefs {id} {
10208 global idtags idheads idotherrefs
10210 set x {}
10213 }
10214 set y {}
10217 }
10218 set z {}
10221 }
10223 }
10225 proc showtag {tag isnew} {
10226 global ctext tagcontents tagids linknum tagobjid
10230 }
10232 clear_ctext
10233 settabs 0
10234 set linknum 0
10236 catch {
10238 }
10239 }
10242 } else {
10244 }
10247 init_flist {}
10248 }
10250 proc doquit {} {
10251 global stopped
10252 global gitktmpdir
10254 set stopped 100
10255 savestuff .
10256 destroy .
10258 if {[info exists gitktmpdir]} {
10260 }
10261 }
10263 proc mkfontdisp {font top which} {
10272 }
10274 proc choosefont {font which} {
10275 global fontparam fontlist fonttop fontattr
10276 global prefstop
10284 set top .gitkfont
10287 font create sample
10294 set fontlist [lsort [font families]]
10305 -textvariable fontparam(size) \
10306 -validatecommand {string is integer -strict %s}
10308 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10309 -variable fontparam(weight) -onvalue bold -offvalue normal
10311 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10312 -variable fontparam(slant) -onvalue italic -offvalue roman
10316 -background white
10318 -fill black -tags text
10330 trace add variable fontparam write chg_fontparam
10331 } else {
10334 }
10339 }
10340 }
10342 proc centertext {w} {
10344 }
10346 proc fontok {} {
10347 global fontparam fontpref prefstop
10353 }
10356 }
10360 fontcan
10361 }
10363 proc fontcan {} {
10364 global fonttop fontparam
10366 if {[info exists fonttop]} {
10368 catch {font delete sample}
10369 unset fonttop
10370 unset fontparam
10371 }
10372 }
10374 proc selfontfam {} {
10375 global fonttop fontparam
10380 }
10381 }
10383 proc chg_fontparam {v sub op} {
10384 global fontparam
10387 }
10389 proc doprefs {} {
10390 global maxwidth maxgraphpct
10391 global oldprefs prefstop showneartags showlocalchanges
10392 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10393 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10394 global hideremotes
10396 set top .gitkprefs
10400 return
10401 }
10402 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10403 limitdiffs tabstop perfile_attrs hideremotes} {
10405 }
10413 -font optionfont
10417 -font optionfont
10421 -font optionfont -variable showlocalchanges
10424 -font optionfont -variable autoselect
10433 -font optionfont -variable showneartags
10436 -font optionfont -variable hideremotes
10439 -font optionfont -variable limitdiffs
10442 -font optionfont -variable perfile_attrs
10448 -padx 10
10450 -command choose_extdiff
10477 [mc "diff hunk header"] \
10483 [mc "marked line background"] \
10507 }
10509 proc choose_extdiff {} {
10510 global extdifftool
10512 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10515 }
10516 }
10518 proc choosecolor {v vi w x cmd} {
10527 }
10529 proc setselbg {c} {
10530 global bglist cflist
10533 }
10537 }
10539 proc setbg {c} {
10540 global bglist
10544 }
10545 }
10547 proc setfg {c} {
10548 global fglist canv
10552 }
10556 }
10558 proc prefscan {} {
10559 global oldprefs prefstop
10561 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10562 limitdiffs tabstop perfile_attrs hideremotes} {
10565 }
10567 unset prefstop
10568 fontcan
10569 }
10571 proc prefsok {} {
10572 global maxwidth maxgraphpct
10573 global oldprefs prefstop showneartags showlocalchanges
10574 global fontpref mainfont textfont uifont
10575 global limitdiffs treediffs perfile_attrs
10576 global hideremotes
10579 unset prefstop
10580 fontcan
10581 set fontchanged 0
10585 eval font configure mainfont [fontflags mainfont]
10586 eval font configure mainfontbold [fontflags mainfont 1]
10587 setcoords
10588 set fontchanged 1
10589 }
10593 eval font configure textfont [fontflags textfont]
10594 eval font configure textfontbold [fontflags textfont 1]
10595 }
10599 eval font configure uifont [fontflags uifont]
10600 }
10601 settabs
10604 doshowlocalchanges
10605 } else {
10606 dohidelocalchanges
10607 }
10608 }
10611 # treediffs elements are limited by path;
10612 # won't have encodings cached if perfile_attrs was just turned on
10613 catch {unset treediffs}
10614 }
10617 redisplay
10620 reselectline
10621 }
10623 rereadrefs
10624 }
10625 }
10627 proc formatdate {d} {
10628 global datetimeformat
10631 }
10633 }
10635 # This list of encoding names and aliases is distilled from
10636 # http://www.iana.org/assignments/character-sets.
10637 # Not all of them are supported by Tcl.
10638 set encoding_aliases {
10639 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10640 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10641 { ISO-10646-UTF-1 csISO10646UTF1 }
10642 { ISO_646.basic:1983 ref csISO646basic1983 }
10643 { INVARIANT csINVARIANT }
10644 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10645 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10646 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10647 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10648 { NATS-DANO iso-ir-9-1 csNATSDANO }
10649 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10650 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10651 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10652 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10653 { ISO-2022-KR csISO2022KR }
10654 { EUC-KR csEUCKR }
10655 { ISO-2022-JP csISO2022JP }
10656 { ISO-2022-JP-2 csISO2022JP2 }
10657 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10658 csISO13JISC6220jp }
10659 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10660 { IT iso-ir-15 ISO646-IT csISO15Italian }
10661 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10662 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10663 { greek7-old iso-ir-18 csISO18Greek7Old }
10664 { latin-greek iso-ir-19 csISO19LatinGreek }
10665 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10666 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10667 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10668 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10669 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10670 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10671 { INIS iso-ir-49 csISO49INIS }
10672 { INIS-8 iso-ir-50 csISO50INIS8 }
10673 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10674 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10675 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10676 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10677 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10678 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10679 csISO60Norwegian1 }
10680 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10681 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10682 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10683 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10684 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10685 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10686 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10687 { greek7 iso-ir-88 csISO88Greek7 }
10688 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10689 { iso-ir-90 csISO90 }
10690 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10691 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10692 csISO92JISC62991984b }
10693 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10694 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10695 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10696 csISO95JIS62291984handadd }
10697 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10698 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10699 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10700 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10701 CP819 csISOLatin1 }
10702 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10703 { T.61-7bit iso-ir-102 csISO102T617bit }
10704 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10705 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10706 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10707 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10708 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10709 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10710 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10711 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10712 arabic csISOLatinArabic }
10713 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10714 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10715 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10716 greek greek8 csISOLatinGreek }
10717 { T.101-G2 iso-ir-128 csISO128T101G2 }
10718 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10719 csISOLatinHebrew }
10720 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10721 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10722 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10723 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10724 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10725 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10726 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10727 csISOLatinCyrillic }
10728 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10729 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10730 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10731 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10732 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10733 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10734 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10735 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10736 { ISO_10367-box iso-ir-155 csISO10367Box }
10737 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10738 { latin-lap lap iso-ir-158 csISO158Lap }
10739 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10740 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10741 { us-dk csUSDK }
10742 { dk-us csDKUS }
10743 { JIS_X0201 X0201 csHalfWidthKatakana }
10744 { KSC5636 ISO646-KR csKSC5636 }
10745 { ISO-10646-UCS-2 csUnicode }
10746 { ISO-10646-UCS-4 csUCS4 }
10747 { DEC-MCS dec csDECMCS }
10748 { hp-roman8 roman8 r8 csHPRoman8 }
10749 { macintosh mac csMacintosh }
10750 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10751 csIBM037 }
10752 { IBM038 EBCDIC-INT cp038 csIBM038 }
10753 { IBM273 CP273 csIBM273 }
10754 { IBM274 EBCDIC-BE CP274 csIBM274 }
10755 { IBM275 EBCDIC-BR cp275 csIBM275 }
10756 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10757 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10758 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10759 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10760 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10761 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10762 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10763 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10764 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10765 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10766 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10767 { IBM437 cp437 437 csPC8CodePage437 }
10768 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10769 { IBM775 cp775 csPC775Baltic }
10770 { IBM850 cp850 850 csPC850Multilingual }
10771 { IBM851 cp851 851 csIBM851 }
10772 { IBM852 cp852 852 csPCp852 }
10773 { IBM855 cp855 855 csIBM855 }
10774 { IBM857 cp857 857 csIBM857 }
10775 { IBM860 cp860 860 csIBM860 }
10776 { IBM861 cp861 861 cp-is csIBM861 }
10777 { IBM862 cp862 862 csPC862LatinHebrew }
10778 { IBM863 cp863 863 csIBM863 }
10779 { IBM864 cp864 csIBM864 }
10780 { IBM865 cp865 865 csIBM865 }
10781 { IBM866 cp866 866 csIBM866 }
10782 { IBM868 CP868 cp-ar csIBM868 }
10783 { IBM869 cp869 869 cp-gr csIBM869 }
10784 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10785 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10786 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10787 { IBM891 cp891 csIBM891 }
10788 { IBM903 cp903 csIBM903 }
10789 { IBM904 cp904 904 csIBBM904 }
10790 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10791 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10792 { IBM1026 CP1026 csIBM1026 }
10793 { EBCDIC-AT-DE csIBMEBCDICATDE }
10794 { EBCDIC-AT-DE-A csEBCDICATDEA }
10795 { EBCDIC-CA-FR csEBCDICCAFR }
10796 { EBCDIC-DK-NO csEBCDICDKNO }
10797 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10798 { EBCDIC-FI-SE csEBCDICFISE }
10799 { EBCDIC-FI-SE-A csEBCDICFISEA }
10800 { EBCDIC-FR csEBCDICFR }
10801 { EBCDIC-IT csEBCDICIT }
10802 { EBCDIC-PT csEBCDICPT }
10803 { EBCDIC-ES csEBCDICES }
10804 { EBCDIC-ES-A csEBCDICESA }
10805 { EBCDIC-ES-S csEBCDICESS }
10806 { EBCDIC-UK csEBCDICUK }
10807 { EBCDIC-US csEBCDICUS }
10808 { UNKNOWN-8BIT csUnknown8BiT }
10809 { MNEMONIC csMnemonic }
10810 { MNEM csMnem }
10811 { VISCII csVISCII }
10812 { VIQR csVIQR }
10813 { KOI8-R csKOI8R }
10814 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10815 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10816 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10817 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10818 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10819 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10820 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10821 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10822 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10823 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10824 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10825 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10826 { IBM1047 IBM-1047 }
10827 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10828 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10829 { UNICODE-1-1 csUnicode11 }
10830 { CESU-8 csCESU-8 }
10831 { BOCU-1 csBOCU-1 }
10832 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10833 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10834 l8 }
10835 { ISO-8859-15 ISO_8859-15 Latin-9 }
10836 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10837 { GBK CP936 MS936 windows-936 }
10838 { JIS_Encoding csJISEncoding }
10839 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10840 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10841 EUC-JP }
10842 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10843 { ISO-10646-UCS-Basic csUnicodeASCII }
10844 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10845 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10846 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10847 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10848 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10849 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10850 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10851 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10852 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10853 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10854 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10855 { Ventura-US csVenturaUS }
10856 { Ventura-International csVenturaInternational }
10857 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10858 { PC8-Turkish csPC8Turkish }
10859 { IBM-Symbols csIBMSymbols }
10860 { IBM-Thai csIBMThai }
10861 { HP-Legal csHPLegal }
10862 { HP-Pi-font csHPPiFont }
10863 { HP-Math8 csHPMath8 }
10864 { Adobe-Symbol-Encoding csHPPSMath }
10865 { HP-DeskTop csHPDesktop }
10866 { Ventura-Math csVenturaMath }
10867 { Microsoft-Publishing csMicrosoftPublishing }
10868 { Windows-31J csWindows31J }
10869 { GB2312 csGB2312 }
10870 { Big5 csBig5 }
10871 }
10873 proc tcl_encoding {enc} {
10874 global encoding_aliases tcl_encoding_cache
10877 }
10878 set names [encoding names]
10883 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10886 }
10887 }
10892 # look through the aliases for one that tcl knows about
10898 }
10899 }
10901 }
10902 break
10903 }
10904 }
10905 set tclenc {}
10908 }
10911 }
10913 proc gitattr {path attr default} {
10914 global path_attr_cache
10917 } else {
10918 set r "unspecified"
10921 }
10923 }
10926 }
10928 }
10930 proc cache_gitattr {attr pathlist} {
10931 global path_attr_cache
10932 set newlist {}
10936 }
10937 }
10938 set lim 1000
10939 if {[tk windowingsystem] == "win32"} {
10940 # windows has a 32k limit on the arguments to a command...
10941 set lim 30
10942 }
10951 }
10953 }
10954 }
10955 }
10956 }
10957 }
10959 proc get_path_encoding {path} {
10960 global gui_encoding perfile_attrs
10966 }
10967 }
10969 }
10971 # First check that Tcl/Tk is recent enough
10972 if {[catch {package require Tk 8.4} err]} {
10973 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10974 Gitk requires at least Tcl/Tk 8.4."]
10975 exit 1
10976 }
10978 # defaults...
10979 set wrcomcmd "git diff-tree --stdin -p --pretty"
10981 set gitencoding {}
10982 catch {
10983 set gitencoding [exec git config --get i18n.commitencoding]
10984 }
10985 catch {
10986 set gitencoding [exec git config --get i18n.logoutputencoding]
10987 }
10989 set gitencoding "utf-8"
10990 }
10994 }
10996 set gui_encoding [encoding system]
10997 catch {
10998 set enc [exec git config --get gui.encoding]
11003 } else {
11005 }
11006 }
11007 }
11009 if {[tk windowingsystem] eq "aqua"} {
11010 set mainfont {{Lucida Grande} 9}
11011 set textfont {Monaco 9}
11012 set uifont {{Lucida Grande} 9 bold}
11013 } else {
11014 set mainfont {Helvetica 9}
11015 set textfont {Courier 9}
11016 set uifont {Helvetica 9 bold}
11017 }
11018 set tabstop 8
11019 set findmergefiles 0
11020 set maxgraphpct 50
11021 set maxwidth 16
11022 set revlistorder 0
11023 set fastdate 0
11024 set uparrowlen 5
11025 set downarrowlen 5
11026 set mingaplen 100
11027 set cmitmode "patch"
11028 set wrapcomment "none"
11029 set showneartags 1
11030 set hideremotes 0
11031 set maxrefs 20
11032 set maxlinelen 200
11033 set showlocalchanges 1
11034 set limitdiffs 1
11035 set datetimeformat "%Y-%m-%d %H:%M:%S"
11036 set autoselect 1
11037 set perfile_attrs 0
11039 if {[tk windowingsystem] eq "aqua"} {
11040 set extdifftool "opendiff"
11041 } else {
11042 set extdifftool "meld"
11043 }
11045 set colors {green red blue magenta darkgrey brown orange}
11046 set bgcolor white
11047 set fgcolor black
11048 set diffcolors {red "#00a000" blue}
11049 set diffcontext 3
11050 set ignorespace 0
11051 set selectbgcolor gray85
11052 set markbgcolor "#e0e0ff"
11054 set circlecolors {white blue gray blue blue}
11056 # button for popping up context menus
11057 if {[tk windowingsystem] eq "aqua"} {
11058 set ctxbut <Button-2>
11059 } else {
11060 set ctxbut <Button-3>
11061 }
11063 ## For msgcat loading, first locate the installation location.
11064 if { [info exists ::env(GITK_MSGSDIR)] } {
11065 ## Msgsdir was manually set in the environment.
11066 set gitk_msgsdir $::env(GITK_MSGSDIR)
11067 } else {
11068 ## Let's guess the prefix from argv0.
11072 unset gitk_prefix
11073 }
11075 ## Internationalization (i18n) through msgcat and gettext. See
11076 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11077 package require msgcat
11078 namespace import ::msgcat::mc
11079 ## And eventually load the actual message catalog
11082 catch {source ~/.gitk}
11084 font create optionfont -family sans-serif -size -12
11087 eval font create mainfont [fontflags mainfont]
11088 eval font create mainfontbold [fontflags mainfont 1]
11091 eval font create textfont [fontflags textfont]
11092 eval font create textfontbold [fontflags textfont 1]
11095 eval font create uifont [fontflags uifont]
11097 setoptions
11099 # check that we can find a .git directory somewhere...
11100 if {[catch {set gitdir [gitdir]}]} {
11101 show_error {} . [mc "Cannot find a git repository here."]
11102 exit 1
11103 }
11106 exit 1
11107 }
11109 set selecthead {}
11110 set selectheadid {}
11112 set revtreeargs {}
11113 set cmdline_files {}
11114 set i 0
11115 set revtreeargscmd {}
11118 "" { }
11119 "--" {
11121 break
11122 }
11123 "--select-commit=*" {
11125 }
11126 "--argscmd=*" {
11128 }
11129 default {
11131 }
11132 }
11133 incr i
11134 }
11137 set selecthead {}
11138 }
11141 # no -- on command line, but some arguments (other than --argscmd)
11142 if {[catch {
11147 # Unfortunately git rev-parse doesn't produce an error when
11148 # something is both a revision and a filename. To be consistent
11149 # with git log and git rev-list, check revtreeargs for filenames.
11152 show_error {} . [mc "Ambiguous argument '%s': both revision\
11154 exit 1
11155 }
11156 }
11157 } err]} {
11159 # so look for "fatal:".
11163 }
11165 exit 1
11166 }
11167 }
11169 set nullid "0000000000000000000000000000000000000000"
11170 set nullid2 "0000000000000000000000000000000000000001"
11171 set nullfile "/dev/null"
11174 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11176 set runq {}
11177 set history {}
11178 set historyindex 0
11179 set fh_serial 0
11180 set nhl_names {}
11181 set highlight_paths {}
11182 set findpattern {}
11183 set searchdirn -forwards
11184 set boldids {}
11185 set boldnameids {}
11186 set diffelide {0 0}
11187 set markingmatches 0
11188 set linkentercount 0
11189 set need_redisplay 0
11190 set nrows_drawn 0
11191 set firsttabstop 0
11193 set nextviewnum 1
11194 set curview 0
11195 set selectedview 0
11196 set selectedhlview [mc "None"]
11197 set highlight_related [mc "None"]
11198 set highlight_files {}
11199 set viewfiles(0) {}
11200 set viewperm(0) 0
11201 set viewargs(0) {}
11202 set viewargscmd(0) {}
11204 set selectedline {}
11205 set numcommits 0
11206 set loginstance 0
11207 set cmdlineok 0
11208 set stopped 0
11209 set stuffsaved 0
11210 set patchnum 0
11211 set lserial 0
11212 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11213 setcoords
11214 makewindow
11215 catch {
11216 image create photo gitlogo -width 16 -height 16
11218 image create photo gitlogominus -width 4 -height 2
11219 gitlogominus put #C00000 -to 0 0 4 2
11220 gitlogo copy gitlogominus -to 1 5
11221 gitlogo copy gitlogominus -to 6 5
11222 gitlogo copy gitlogominus -to 11 5
11223 image delete gitlogominus
11225 image create photo gitlogoplus -width 4 -height 4
11226 gitlogoplus put #008000 -to 1 0 3 4
11227 gitlogoplus put #008000 -to 0 1 4 3
11228 gitlogo copy gitlogoplus -to 1 9
11229 gitlogo copy gitlogoplus -to 6 9
11230 gitlogo copy gitlogoplus -to 11 9
11231 image delete gitlogoplus
11233 image create photo gitlogo32 -width 32 -height 32
11234 gitlogo32 copy gitlogo -zoom 2 2
11236 wm iconphoto . -default gitlogo gitlogo32
11237 }
11238 # wait for the window to become visible
11239 tkwait visibility .
11241 update
11242 readrefs
11245 # create a view for the files/dirs specified on the command line
11246 set curview 1
11247 set selectedview 1
11248 set nextviewnum 2
11249 set viewname(1) [mc "Command line"]
11253 set viewperm(1) 0
11254 set vdatemode(1) 0
11255 addviewmenu 1
11256 .bar.view entryconf [mca "Edit view..."] -state normal
11257 .bar.view entryconf [mca "Delete view"] -state normal
11258 }
11260 if {[info exists permviews]} {
11263 incr nextviewnum
11270 }
11271 }
11273 if {[tk windowingsystem] eq "win32"} {
11274 focus -force .
11275 }
11277 getcommits {}