| blob | 1306178069f280412432c7e3d3bf3406135de4e5 |
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 gitknewtmpdir {} {
3171 global diffnum gitktmpdir gitdir
3173 if {![info exists gitktmpdir]} {
3175 [format ".gitk-tmp.%s" [pid]]]
3178 unset gitktmpdir
3179 return {}
3180 }
3181 set diffnum 0
3182 }
3183 incr diffnum
3187 return {}
3188 }
3190 }
3192 proc save_file_from_commit {filename output what} {
3193 global nullfile
3198 }
3200 return {}
3201 }
3203 }
3205 proc external_diff_get_one_file {diffid filename diffdir} {
3206 global nullid nullid2 nullfile
3207 global gitdir
3213 }
3215 }
3219 }
3223 }
3225 proc external_diff {} {
3226 global nullid nullid2
3227 global flist_menu_file
3228 global diffids
3229 global extdifftool
3232 # no reference commit given
3235 # diffing working copy with index
3238 # diffing index with HEAD
3239 set diffidfrom "HEAD"
3240 } else {
3241 # use first parent commit
3242 global parentlist selectedline
3244 }
3245 } else {
3248 }
3250 # make sure that several diffs wont collide
3251 set diffdir [gitknewtmpdir]
3254 # gather files to diff
3263 } else {
3266 }
3267 }
3268 }
3270 proc find_hunk_blamespec {base line} {
3271 global ctext
3273 # Find and parse the hunk header
3279 s_line old_specs osz osz1 new_line nsz]} {
3280 return
3281 }
3283 # base lines for the parents
3287 old_spec old_line osz]} {
3288 return
3289 }
3291 }
3293 # Now scan the lines to determine offset within the hunk
3295 set dline 0
3298 # Determine if the line is removed
3302 # Choose a parent index
3305 } else {
3309 } else {
3310 # blame the current commit
3311 set parent -1
3312 }
3313 }
3314 # then count other lines that belong to it
3317 # Determine if the line is removed
3322 incr dline
3323 }
3324 } else {
3326 incr dline
3327 }
3328 }
3329 }
3330 incr parent
3331 } else {
3332 set parent 0
3333 }
3337 }
3339 proc external_blame_diff {} {
3340 global currentid cmitmode
3341 global diff_menu_txtpos diff_menu_line
3342 global diff_menu_filebase flist_menu_file
3345 set parent_idx 0
3347 } else {
3352 } else {
3353 set parent_idx 0
3354 set line 0
3355 }
3356 }
3359 }
3362 # at stage 0 or 2
3363 proc index_sha1 {fname} {
3371 }
3372 }
3374 return {}
3375 }
3377 # Turn an absolute path into one relative to the current directory
3378 proc make_relative {f} {
3380 set here [file split [pwd]]
3381 set ei 0
3382 set hi 0
3383 set res {}
3386 lappend res ".."
3387 } else {
3388 incr ei
3389 }
3390 incr hi
3391 }
3394 }
3396 proc external_blame {parent_idx {line {}}} {
3397 global flist_menu_file gitdir
3398 global nullid nullid2
3399 global parentlist selectedline currentid
3403 } else {
3405 }
3408 error_popup [mc "No such commit"]
3409 return
3410 }
3412 set cmdline [list git gui blame]
3415 }
3417 # Unfortunately it seems git gui blame doesn't like
3418 # being given an absolute path...
3423 }
3424 }
3426 proc show_line_source {} {
3427 global cmitmode currentid parents curview blamestuff blameinst
3428 global diff_menu_line diff_menu_filebase flist_menu_file
3429 global nullid nullid2 gitdir
3431 set from_index {}
3435 } else {
3441 return
3442 }
3443 incr pi -1
3446 # must be a merge in progress...
3447 if {[catch {
3448 # get the last line from .git/MERGE_HEAD
3452 } err]} {
3454 return
3455 }
3457 # need to do the blame from the index
3458 if {[catch {
3460 } err]} {
3462 return
3463 }
3464 } else {
3466 }
3467 } else {
3469 }
3471 }
3472 set blameargs {}
3475 }
3478 lappend blameargs --contents -
3479 } else {
3481 }
3483 if {[catch {
3485 } err]} {
3487 return
3488 }
3489 nowbusy blaming [mc "Searching"]
3495 }
3497 proc stopblaming {} {
3498 global blameinst
3500 if {[info exists blameinst]} {
3502 unset blameinst
3503 notbusy blaming
3504 }
3505 }
3507 proc read_line_source {fd inst} {
3508 global blamestuff curview commfd blameinst nullid nullid2
3512 }
3514 return 1
3515 }
3517 unset blameinst
3518 notbusy blaming
3522 return 0
3523 }
3525 set fname {}
3531 # look for "filename" line
3535 break
3536 }
3537 }
3538 }
3540 # all looks good, select it
3542 # blame uses all-zeroes to mean not committed,
3543 # which would mean a change in the index
3545 }
3548 } else {
3549 error_popup [mc "That line comes from commit %s, \
3551 }
3552 } else {
3553 puts "oops couldn't parse git blame output"
3554 }
3555 return 0
3556 }
3559 proc delete_at_eof {f dir} {
3564 }
3566 return 0
3567 }
3568 return 1
3569 }
3571 # Functions for adding and removing shell-type quoting
3573 proc shellquote {str} {
3576 }
3579 }
3582 }
3584 }
3586 proc shellarglist {l} {
3587 set str {}
3590 append str " "
3591 }
3593 }
3595 }
3597 proc shelldequote {str} {
3598 set ret {}
3599 set used -1
3600 while {1} {
3601 incr used
3605 break
3606 }
3612 }
3614 incr used
3618 error "unmatched single-quote"
3619 }
3622 continue
3623 }
3626 error "trailing backslash"
3627 }
3629 continue
3630 }
3631 # here ch == "\""
3632 while {1} {
3634 error "unmatched double-quote"
3635 }
3641 }
3643 incr used
3645 incr used
3646 }
3647 }
3649 }
3651 proc shellsplit {str} {
3652 set l {}
3653 while {1} {
3661 }
3663 }
3665 # Code to implement multiple views
3667 proc newview {ishighlight} {
3668 global nextviewnum newviewname newishighlight
3669 global revtreeargs viewargscmd newviewopts curview
3672 set top .gitkview
3675 return
3676 }
3682 }
3684 set known_view_options {
3685 {perm b . {} {mc "Remember this view"}}
3686 {reflabel l + {} {mc "References (space separated list):"}}
3687 {refs t15 .. {} {mc "Branches & tags:"}}
3688 {allrefs b *. "--all" {mc "All refs"}}
3689 {branches b . "--branches" {mc "All (local) branches"}}
3690 {tags b . "--tags" {mc "All tags"}}
3691 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3692 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3693 {author t15 .. "--author=*" {mc "Author:"}}
3694 {committer t15 . "--committer=*" {mc "Committer:"}}
3695 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3696 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3697 {changes_l l + {} {mc "Changes to Files:"}}
3698 {pickaxe_s r0 . {} {mc "Fixed String"}}
3699 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3700 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3701 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3702 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3703 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3704 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3705 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3706 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3707 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3708 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3709 {lright b . "--left-right" {mc "Mark branch sides"}}
3710 {first b . "--first-parent" {mc "Limit to first parent"}}
3711 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
3712 {args t50 *. {} {mc "Additional arguments to git log:"}}
3713 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3714 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3715 }
3717 proc encode_view_opts {n} {
3718 global known_view_options newviewopts
3720 set rargs [list]
3730 }
3736 }
3737 } else {
3743 }
3744 }
3745 }
3748 }
3750 proc decode_view_opts {n view_args} {
3751 global known_view_options newviewopts
3756 # Checkboxes
3757 set val 0
3759 # Radiobuttons
3761 set val 0
3762 } else {
3763 # Text fields
3764 set val {}
3765 }
3767 }
3768 set oargs [list]
3769 set refargs [list]
3772 && ![info exists found(limit)]} {
3774 set found(limit) 1
3775 continue
3776 }
3777 catch { unset val }
3784 # Check buttons
3785 set val 1
3787 # Radio buttons
3790 } else {
3791 # Text input fields
3794 }
3797 break
3798 }
3799 if {[info exists val]} break
3800 }
3801 if {[info exists val]} continue
3804 } else {
3806 }
3807 }
3810 }
3812 proc edit_or_newview {} {
3813 global curview
3816 editview
3817 } else {
3818 newview 0
3819 }
3820 }
3822 proc editview {} {
3823 global curview
3824 global viewname viewperm newviewname newviewopts
3825 global viewargs viewargscmd
3830 return
3831 }
3837 }
3839 proc vieweditor {top n title} {
3840 global newviewname newviewopts viewfiles bgcolor
3841 global known_view_options
3847 # View name
3855 # View options
3857 set cexpand 0
3858 set cnt 0
3864 set lxpad 0
3868 incr cnt
3874 incr cnt
3878 } else {
3879 set lxpad 5
3880 }
3914 }
3917 }
3919 }
3920 }
3935 }
3937 proc doviewmenu {m first cmd op argv} {
3942 break
3943 }
3944 }
3945 }
3947 proc allviewmenus {n op args} {
3948 # global viewhlmenu
3952 }
3954 proc newviewok {top n {apply 0}} {
3955 global nextviewnum newviewperm newviewname newishighlight
3956 global viewname viewfiles viewperm selectedview curview
3957 global viewargs viewargscmd newviewopts viewhlmenu
3959 if {[catch {
3961 } err]} {
3963 return
3964 }
3965 set files {}
3970 }
3971 }
3973 # creating a new view
3974 incr nextviewnum
3983 } else {
3985 }
3986 } else {
3987 # editing an existing view
3995 }
4002 run reloadcommits
4003 }
4004 }
4005 }
4008 }
4010 proc delview {} {
4011 global curview viewperm hlview selectedhlview
4015 set selectedhlview [mc "None"]
4016 unset hlview
4017 }
4020 showview 0
4021 }
4023 proc addviewmenu {n} {
4024 global viewname viewhlmenu
4030 }
4032 proc showview {n} {
4033 global curview cached_commitrow ordertok
4034 global displayorder parentlist rowidlist rowisopt rowfinal
4035 global colormap rowtextx nextcolor canvxmax
4036 global numcommits viewcomplete
4037 global selectedline currentid canv canvy0
4038 global treediffs
4039 global pending_select mainheadid
4040 global commitidx
4041 global selectedview
4042 global hlview selectedhlview commitinterest
4045 set selid {}
4056 }
4057 } elseif {[info exists pending_select]} {
4059 unset pending_select
4060 }
4061 unselectline
4062 normalline
4063 catch {unset treediffs}
4064 clear_display
4066 unset hlview
4067 set selectedhlview [mc "None"]
4068 }
4069 catch {unset commitinterest}
4070 catch {unset cached_commitrow}
4071 catch {unset ordertok}
4078 run refill_reflist
4081 return
4082 }
4084 set displayorder {}
4085 set parentlist {}
4086 set rowidlist {}
4087 set rowisopt {}
4088 set rowfinal {}
4091 catch {unset colormap}
4092 catch {unset rowtextx}
4093 set nextcolor 0
4096 set row 0
4097 setcanvscroll
4098 set yf 0
4099 set row {}
4102 # try to get the selected row in the same position on the screen
4106 set ytop 0
4107 }
4109 }
4111 drawvisible
4116 } else {
4117 reset_pending_select {}
4121 } else {
4122 set row [first_real_row]
4125 }
4126 }
4127 }
4130 show_status [mc "Reading commits..."]
4131 }
4133 show_status [mc "No commits selected"]
4134 }
4135 }
4137 # Stuff relating to the highlighting facility
4139 proc ishighlighted {id} {
4140 global vhighlights fhighlights nhighlights rhighlights
4144 }
4147 }
4150 }
4153 }
4154 return 0
4155 }
4157 proc bolden {id font} {
4158 global canv linehtag currentid boldids need_redisplay markedid
4160 # need_redisplay = 1 means the display is stale and about to be redrawn
4167 -outline {{}} -tags secsel \
4170 }
4173 }
4174 }
4176 proc bolden_name {id font} {
4177 global canv2 linentag currentid boldnameids need_redisplay
4185 -outline {{}} -tags secsel \
4188 }
4189 }
4191 proc unbolden {} {
4192 global boldids
4194 set stillbold {}
4198 } else {
4200 }
4201 }
4203 }
4205 proc addvhighlight {n} {
4206 global hlview viewcomplete curview vhl_done commitidx
4208 if {[info exists hlview]} {
4209 delvhighlight
4210 }
4214 }
4217 drawvisible
4218 }
4219 }
4221 proc delvhighlight {} {
4222 global hlview vhighlights
4224 if {![info exists hlview]} return
4225 unset hlview
4226 catch {unset vhighlights}
4227 unbolden
4228 }
4230 proc vhighlightmore {} {
4231 global hlview vhl_done commitidx vhighlights curview
4234 set vr [visiblerows]
4244 }
4246 }
4247 }
4248 }
4250 return 0
4251 }
4253 proc askvhighlight {row id} {
4254 global hlview vhighlights iddrawn
4259 }
4261 } else {
4263 }
4264 }
4266 proc hfiles_change {} {
4267 global highlight_files filehighlight fhighlights fh_serial
4268 global highlight_paths
4270 if {[info exists filehighlight]} {
4271 # delete previous highlights
4273 unset filehighlight
4274 catch {unset fhighlights}
4275 unbolden
4276 unhighlight_filelist
4277 }
4278 set highlight_paths {}
4280 incr fh_serial
4283 }
4284 }
4286 proc gdttype_change {name ix op} {
4287 global gdttype highlight_files findstring findpattern
4289 stopfinding
4293 set highlight_files {}
4294 hfiles_change
4295 }
4296 findcom_change
4297 } else {
4299 set findpattern {}
4300 findcom_change
4301 }
4303 hfiles_change
4304 }
4305 drawvisible
4306 }
4307 # enable/disable findtype/findloc menus too
4308 }
4310 proc find_change {name ix op} {
4311 global gdttype findstring highlight_files
4313 stopfinding
4315 findcom_change
4316 } else {
4319 hfiles_change
4320 }
4321 }
4322 drawvisible
4323 }
4325 proc findcom_change args {
4326 global nhighlights boldnameids
4327 global findpattern findtype findstring gdttype
4329 stopfinding
4330 # delete previous highlights, if any
4333 }
4334 set boldnameids {}
4335 catch {unset nhighlights}
4336 unbolden
4337 unmarkmatches
4339 set findpattern {}
4342 } else {
4343 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4346 }
4347 }
4349 proc makepatterns {l} {
4350 set ret {}
4355 } else {
4358 }
4359 }
4361 }
4363 proc do_file_hl {serial} {
4364 global highlight_files filehighlight highlight_paths gdttype fhl_list
4369 highlight_filelist
4373 } else {
4374 # must be "containing:", i.e. we're searching commit info
4375 return
4376 }
4381 set fhl_list {}
4382 drawvisible
4383 flushhighlights
4384 }
4386 proc flushhighlights {} {
4387 global filehighlight fhl_list
4389 if {[info exists filehighlight]} {
4390 lappend fhl_list {}
4393 }
4394 }
4396 proc askfilehighlight {row id} {
4397 global filehighlight fhighlights fhl_list
4402 }
4404 proc readfhighlight {} {
4405 global filehighlight fhighlights curview iddrawn
4406 global fhl_list find_dirn
4408 if {![info exists filehighlight]} {
4409 return 0
4410 }
4411 set nr 0
4419 }
4425 }
4427 }
4429 # strange...
4430 puts "oops, git diff-tree died"
4432 unset filehighlight
4433 return 0
4434 }
4435 if {[info exists find_dirn]} {
4436 run findmore
4437 }
4438 return 1
4439 }
4441 proc doesmatch {f} {
4442 global findtype findpattern
4448 } else {
4450 }
4451 }
4453 proc askfindhighlight {row id} {
4454 global nhighlights commitinfo iddrawn
4455 global findloc
4456 global markingmatches
4460 }
4462 set isbold 0
4463 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4468 set isbold 2
4469 break
4470 }
4471 set isbold 1
4472 }
4473 }
4479 }
4480 }
4483 }
4484 }
4486 }
4488 proc markrowmatches {row id} {
4489 global canv canv2 linehtag linentag commitinfo findloc
4500 }
4501 }
4507 }
4508 }
4509 }
4511 proc vrel_change {name ix op} {
4512 global highlight_related
4514 rhighlight_none
4516 run drawvisible
4517 }
4518 }
4520 # prepare for testing whether commits are descendents or ancestors of a
4521 proc rhighlight_sel {a} {
4522 global descendent desc_todo ancestor anc_todo
4523 global highlight_related
4525 catch {unset descendent}
4527 catch {unset ancestor}
4530 rhighlight_none
4531 run drawvisible
4532 }
4533 }
4535 proc rhighlight_none {} {
4536 global rhighlights
4538 catch {unset rhighlights}
4539 unbolden
4540 }
4542 proc is_descendent {a} {
4543 global curview children descendent desc_todo
4548 set leftover {}
4549 set done 0
4554 continue
4555 }
4561 set done 1
4562 }
4563 }
4564 }
4567 return
4568 }
4569 }
4572 }
4574 proc is_ancestor {a} {
4575 global curview parents ancestor anc_todo
4580 set leftover {}
4581 set done 0
4586 continue
4587 }
4593 set done 1
4594 }
4595 }
4596 }
4599 return
4600 }
4601 }
4604 }
4606 proc askrelhighlight {row id} {
4607 global descendent highlight_related iddrawn rhighlights
4608 global selectedline ancestor
4611 set isbold 0
4616 }
4618 set isbold 1
4619 }
4624 }
4626 set isbold 1
4627 }
4628 }
4632 }
4633 }
4635 }
4637 # Graph layout functions
4639 proc shortids {ids} {
4640 set res {}
4646 } else {
4648 }
4649 }
4651 }
4653 proc ntimes {n o} {
4654 set ret {}
4659 }
4661 }
4663 }
4665 proc ordertoken {id} {
4666 global ordertok curview varcid varcstart varctok curview parents children
4667 global nullid nullid2
4671 }
4673 set todo {}
4674 while {1} {
4678 } else {
4680 }
4683 break
4684 }
4687 # it's a root
4689 break
4690 }
4693 } else {
4697 }
4699 }
4700 }
4705 }
4708 }
4710 # Work out where id should go in idlist so that order-token
4711 # values increase from left to right
4712 proc idcol {idlist id {i 0}} {
4715 set i 0
4716 }
4720 }
4722 incr i
4723 } else {
4727 }
4728 }
4730 }
4732 proc initlayout {} {
4733 global rowidlist rowisopt rowfinal displayorder parentlist
4734 global numcommits canvxmax canv
4735 global nextcolor
4736 global colormap rowtextx
4738 set numcommits 0
4739 set displayorder {}
4740 set parentlist {}
4741 set nextcolor 0
4742 set rowidlist {}
4743 set rowisopt {}
4744 set rowfinal {}
4746 catch {unset colormap}
4747 catch {unset rowtextx}
4748 setcanvscroll
4749 }
4751 proc setcanvscroll {} {
4752 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4753 global lastscrollset lastscrollrows
4759 set lastscrollset [clock clicks -milliseconds]
4761 }
4763 proc visiblerows {} {
4764 global canv numcommits linespc
4772 set r0 0
4773 }
4778 }
4780 }
4782 proc layoutmore {} {
4783 global commitidx viewcomplete curview
4784 global numcommits pending_select curview
4785 global lastscrollset lastscrollrows
4789 setcanvscroll
4790 }
4791 if {[info exists pending_select] &&
4793 update
4795 }
4796 drawvisible
4797 }
4799 # With path limiting, we mightn't get the actual HEAD commit,
4800 # so ask git rev-list what is the first ancestor of HEAD that
4801 # touches a file in the path limit.
4802 proc get_viewmainhead {view} {
4803 global viewmainheadid vfilelimit viewinstances mainheadid
4805 catch {
4813 }
4814 }
4817 proc getviewhead {fd inst view} {
4818 global viewmainheadid commfd curview viewinstances showlocalchanges
4820 set id {}
4823 return 1
4824 }
4827 }
4834 }
4836 doshowlocalchanges
4837 }
4838 return 0
4839 }
4841 proc doshowlocalchanges {} {
4842 global curview viewmainheadid
4846 dodiffindex
4847 } else {
4849 }
4850 }
4852 proc dohidelocalchanges {} {
4853 global nullid nullid2 lserial curview
4857 }
4860 }
4861 incr lserial
4862 }
4864 # spawn off a process to do git diff-index --cached HEAD
4865 proc dodiffindex {} {
4866 global lserial showlocalchanges vfilelimit curview
4867 global isworktree
4870 incr lserial
4871 set cmd "|git diff-index --cached HEAD"
4874 }
4879 }
4881 proc readdiffindex {fd serial inst} {
4882 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4883 global vfilelimit
4885 set isdiff 1
4888 return 1
4889 }
4890 set isdiff 0
4891 }
4892 # we only need to see one line and we don't really care what it says...
4896 return 0
4897 }
4899 # now see if there are any local changes not checked in to the index
4900 set cmd "|git diff-files"
4903 }
4910 # add the line for the changes in the index to the graph
4911 set hl [mc "Local changes checked in to index but not committed"]
4916 }
4921 }
4923 }
4924 return 0
4925 }
4927 proc readdifffiles {fd serial inst} {
4928 global viewmainheadid nullid nullid2 curview
4929 global commitinfo commitdata lserial
4931 set isdiff 1
4934 return 1
4935 }
4936 set isdiff 0
4937 }
4938 # we only need to see one line and we don't really care what it says...
4942 return 0
4943 }
4946 # add the line for the local diff to the graph
4947 set hl [mc "Local uncommitted changes, not checked in to index"]
4952 } else {
4954 }
4958 }
4959 return 0
4960 }
4962 proc nextuse {id row} {
4963 global curview children
4968 return -1
4969 }
4972 }
4973 }
4974 }
4977 }
4978 return -1
4979 }
4981 proc prevuse {id row} {
4982 global curview children
4984 set ret -1
4990 }
4991 }
4992 }
4994 }
4996 proc make_idlist {row} {
4997 global displayorder parentlist uparrowlen downarrowlen mingaplen
4998 global commitidx curview children
5002 set r 0
5003 }
5006 set ra 0
5007 }
5011 }
5013 set ids {}
5022 }
5023 }
5024 }
5032 }
5033 }
5034 }
5042 }
5043 }
5044 incr r
5050 }
5051 }
5052 }
5053 set idlist {}
5056 }
5058 }
5060 proc rowsequal {a b} {
5063 }
5066 }
5068 }
5070 proc makeupline {id row rend col} {
5071 global rowidlist uparrowlen downarrowlen mingaplen
5077 }
5080 }
5087 }
5088 }
5089 }
5091 proc layoutrows {row endrow} {
5092 global rowidlist rowisopt rowfinal displayorder
5093 global uparrowlen downarrowlen maxwidth mingaplen
5094 global children parentlist
5095 global commitidx viewcomplete curview
5098 set idlist {}
5104 }
5105 }
5107 }
5112 set final 1
5113 } else {
5121 # if not the first child, we have to insert a line going up
5124 }
5125 }
5126 }
5136 }
5137 }
5138 }
5145 }
5146 }
5156 }
5157 }
5165 }
5166 }
5167 }
5168 }
5169 }
5173 set final 0
5174 }
5178 lappend rowisopt 0
5184 }
5186 } else {
5193 }
5194 }
5196 }
5198 proc changedrow {row} {
5199 global displayorder iddrawn rowisopt need_redisplay
5208 }
5209 }
5210 }
5213 set need_redisplay 1
5214 }
5215 }
5217 proc insert_pad {row col npad} {
5218 global rowidlist
5227 }
5230 }
5232 proc optimize_rows {row col endrow} {
5233 global rowidlist rowisopt displayorder curview children
5236 set row 1
5237 }
5240 set haspad 0
5249 } else {
5250 set pprevidlist {}
5251 }
5252 set x0 -1
5253 set xm -1
5258 set haspad 1
5259 continue
5260 }
5264 set isarrow 0
5265 set z0 {}
5270 }
5271 }
5276 set isarrow 1
5277 }
5278 }
5281 set isarrow 1
5282 }
5283 # Looking at lines from this row to the previous row,
5284 # make them go straight up if they end in an arrow on
5285 # the previous row; otherwise make them go straight up
5286 # or at 45 degrees.
5288 # Line currently goes left too much;
5289 # insert pads in the previous row, then optimize it
5294 }
5302 }
5304 # Line currently goes right too much;
5305 # insert pads in this line
5311 set haspad 1
5312 }
5319 }
5320 }
5321 # avoid lines jigging left then immediately right
5324 incr x0
5327 }
5328 }
5330 # Find the first column that doesn't have a line going right
5336 # check if this is the link to the first child
5339 # it is, work out offset to child
5341 }
5342 }
5344 }
5345 # Insert a pad at that column as long as it has a line and
5346 # isn't the last column
5351 }
5352 }
5353 }
5354 }
5356 proc xc {row col} {
5357 global canvx0 linespc
5359 }
5361 proc yc {row} {
5362 global canvy0 linespc
5364 }
5366 proc linewidth {id} {
5367 global thickerline lthickness
5372 }
5374 }
5376 proc rowranges {id} {
5377 global curview children uparrowlen downarrowlen
5378 global rowidlist
5382 return {}
5383 }
5384 set ret {}
5389 if {![info exists prev]} {
5391 } else {
5393 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5394 }
5395 # see if the line extends the whole way from prevrow to row
5399 # it doesn't, see where it ends
5404 } else {
5407 incr r -1
5408 }
5410 # see where it starts up again
5415 } else {
5418 incr r
5419 }
5421 }
5422 }
5425 }
5428 }
5430 }
5432 proc drawlineseg {id row endrow arrowlow} {
5433 global rowidlist displayorder iddrawn linesegs
5434 global canv colormap linespc curview maxlinelen parentlist
5438 set arrowhigh 1
5439 while {1} {
5442 incr le -1
5443 break
5444 }
5448 set arrowhigh 0
5449 break
5450 }
5455 set arrowhigh 0
5456 }
5457 break
5458 }
5459 incr le
5460 }
5463 }
5465 set lines {}
5466 set i 0
5467 set joinhigh 0
5474 set joinhigh 1
5475 }
5476 break
5477 }
5478 incr i
5479 }
5480 }
5481 set joinlow 0
5486 set joinlow 1
5487 }
5488 }
5501 }
5502 } else {
5504 }
5512 set arrowlow 0
5513 }
5514 }
5522 }
5524 }
5527 # join parent line to first child
5538 } else {
5540 }
5548 }
5550 }
5552 } else {
5556 }
5564 } else {
5568 }
5570 }
5571 } else {
5577 }
5581 } else {
5582 # coalesce two pieces
5587 }
5591 }
5592 }
5596 }
5598 proc drawparentlinks {id row} {
5599 global rowidlist canv colormap curview parentlist
5600 global idpos linespc
5613 # rmx = right-most X coord used
5614 set rmx 0
5619 continue
5620 }
5624 }
5627 # drawlineseg will do this one for us
5628 continue
5629 }
5631 # should handle duplicated parents here...
5634 # if attaching to a vertical segment, draw a smaller
5635 # slant for visual distinctness
5639 } else {
5641 }
5643 # segment slants towards us already
5645 } else {
5650 }
5652 }
5653 } else {
5655 }
5660 }
5664 }
5665 }
5667 proc drawlines {id} {
5668 global canv
5671 }
5673 proc drawcmittext {id row col} {
5674 global linespc canv canv2 canv3 fgcolor curview
5675 global cmitlisted commitinfo rowidlist parentlist
5676 global rowtextx idpos idtags idheads idotherrefs
5677 global linehtag linentag linedtag selectedline
5678 global canvxmax boldids boldnameids fgcolor markedid
5679 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5681 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5684 set ofill red
5686 set ofill green
5688 set ofill yellow
5689 } else {
5691 }
5700 # triangle pointing left for left-side commits
5706 } else {
5707 # triangle pointing right for right-side commits
5713 }
5725 }
5726 }
5727 }
5734 }
5739 set font mainfont
5740 set nfont mainfont
5744 set font mainfontbold
5747 set nfont mainfontbold
5748 }
5749 }
5759 }
5762 }
5766 setcanvscroll
5767 }
5768 }
5770 proc drawcmitrow {row} {
5771 global displayorder rowidlist nrows_drawn
5772 global iddrawn markingmatches
5773 global commitinfo numcommits
5774 global filehighlight fhighlights findpattern nhighlights
5775 global hlview vhighlights
5776 global highlight_related rhighlights
5783 }
5786 }
5789 }
5792 }
5797 return
5798 }
5801 }
5805 incr nrows_drawn
5806 }
5809 }
5810 }
5812 proc drawcommits {row {endrow {}}} {
5813 global numcommits iddrawn displayorder curview need_redisplay
5814 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5817 set row 0
5818 }
5821 }
5824 }
5828 set rl1 0
5829 }
5832 set ro1 0
5833 }
5837 }
5842 }
5844 }
5845 }
5848 }
5851 clear_display
5852 }
5854 # make the lines join to already-drawn rows either side
5858 }
5863 }
5878 # see if this is the first child of any of its parents
5881 # make this line extend up to the child
5883 }
5884 }
5885 } else {
5887 }
5888 }
5889 }
5890 }
5892 proc undolayout {row} {
5893 global uparrowlen mingaplen downarrowlen
5894 global rowidlist rowisopt rowfinal need_redisplay
5898 set r 0
5899 }
5901 incr r -1
5905 set need_redisplay 1
5906 run drawvisible
5907 }
5908 }
5910 proc drawvisible {} {
5911 global canv linespc curview vrowmod selectedline targetrow targetid
5912 global need_redisplay cscroll numcommits
5922 if {[info exists targetid]} {
5926 # Fix up the scrollregion and change the scrolling position
5927 # now that our target row has moved.
5930 setcanvscroll
5938 set need_redisplay 1
5939 }
5940 } else {
5941 unset targetid
5942 }
5943 }
5949 }
5953 } elseif {[info exists targetid]} {
5955 }
5956 if {[info exists targetrow]} {
5959 }
5961 }
5963 }
5965 proc clear_display {} {
5966 global iddrawn linesegs need_redisplay nrows_drawn
5967 global vhighlights fhighlights nhighlights rhighlights
5968 global linehtag linentag linedtag boldids boldnameids
5970 allcanvs delete all
5971 catch {unset iddrawn}
5972 catch {unset linesegs}
5973 catch {unset linehtag}
5974 catch {unset linentag}
5975 catch {unset linedtag}
5976 set boldids {}
5977 set boldnameids {}
5978 catch {unset vhighlights}
5979 catch {unset fhighlights}
5980 catch {unset nhighlights}
5981 catch {unset rhighlights}
5982 set need_redisplay 0
5983 set nrows_drawn 0
5984 }
5986 proc findcrossings {id} {
5987 global rowidlist parentlist numcommits displayorder
5989 set cross {}
5990 set ccross {}
5994 }
6013 }
6014 }
6015 }
6016 }
6017 }
6019 }
6021 proc assigncolor {id} {
6022 global colormap colors nextcolor
6023 global parents children children curview
6029 } else {
6030 set kids {}
6031 }
6037 return
6038 }
6039 }
6040 set badcolors {}
6041 set origbad {}
6044 # delimiter between corner crossings and other crossings
6047 }
6051 }
6052 }
6055 }
6062 }
6067 }
6068 }
6069 }
6072 }
6073 }
6077 set nextcolor 0
6078 }
6080 }
6082 }
6084 proc bindline {t id} {
6085 global canv
6091 }
6093 proc drawtags {id x xt y1} {
6094 global idtags idheads idotherrefs mainhead
6095 global linespc lthickness
6096 global canv rowtextx curview fgcolor bgcolor ctxbut
6098 set marks {}
6099 set ntags 0
6100 set nheads 0
6104 }
6108 }
6111 }
6114 }
6119 set xvals {}
6120 set wvals {}
6121 set i -1
6123 incr i
6126 } else {
6128 }
6132 }
6139 set font mainfont
6140 if {[incr ntags -1] >= 0} {
6141 # draw a tag
6147 } else {
6148 # draw a head or other ref
6149 if {[incr nheads -1] >= 0} {
6150 set col green
6152 set font mainfontbold
6153 }
6154 } else {
6155 set col "#ddddff"
6156 }
6167 }
6168 }
6175 }
6176 }
6178 }
6180 proc xcoord {i level ln} {
6181 global canvx0 xspc1 xspc2
6188 }
6190 }
6192 proc show_status {msg} {
6193 global canv fgcolor
6195 clear_display
6198 }
6200 # Don't change the text pane cursor if it is currently the hand cursor,
6201 # showing that we are over a sha1 ID link.
6202 proc settextcursor {c} {
6203 global ctext curtextcursor
6207 }
6209 }
6211 proc nowbusy {what {name {}}} {
6212 global isbusy busyname statusw
6214 if {[array names isbusy] eq {}} {
6215 . config -cursor watch
6216 settextcursor watch
6217 }
6222 }
6223 }
6225 proc notbusy {what} {
6226 global isbusy maincursor textcursor busyname statusw
6228 catch {
6233 }
6234 }
6235 if {[array names isbusy] eq {}} {
6238 }
6239 }
6241 proc findmatches {f} {
6242 global findtype findstring
6245 } else {
6250 }
6251 set matches {}
6252 set i 0
6257 }
6258 }
6260 }
6262 proc dofind {{dirn 1} {wrap 1}} {
6263 global findstring findstartline findcurline selectedline numcommits
6264 global gdttype filehighlight fh_serial find_dirn findallowwrap
6266 if {[info exists find_dirn]} {
6268 stopfinding
6269 }
6270 focus .
6274 } else {
6276 }
6278 nowbusy finding [mc "Searching"]
6282 }
6285 run findmore
6286 }
6288 proc stopfinding {} {
6289 global find_dirn findcurline fprogcoord
6291 if {[info exists find_dirn]} {
6292 unset find_dirn
6293 unset findcurline
6294 notbusy finding
6295 set fprogcoord 0
6296 adjustprogress
6297 }
6298 stopblaming
6299 }
6301 proc findmore {} {
6302 global commitdata commitinfo numcommits findpattern findloc
6303 global findstartline findcurline findallowwrap
6304 global find_dirn gdttype fhighlights fprogcoord
6305 global curview varcorder vrownum varccommits vrowmod
6307 if {![info exists find_dirn]} {
6308 return 0
6309 }
6310 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6312 set moretodo 0
6314 incr l
6316 set l 0
6317 }
6320 } else {
6323 }
6324 } else {
6327 }
6328 incr l -1
6331 } else {
6332 set lim -1
6334 }
6335 }
6338 set n 500
6339 set moretodo 1
6340 }
6343 }
6344 set found 0
6345 set domore 1
6359 }
6361 # shouldn't happen unless git log doesn't give all the commits...
6364 continue
6365 }
6368 }
6373 set found 1
6374 break
6375 }
6376 }
6378 }
6379 } else {
6387 }
6392 }
6395 break
6396 }
6399 set domore 0
6401 }
6402 }
6403 }
6404 }
6406 unset findcurline
6407 unset find_dirn
6408 notbusy finding
6409 set fprogcoord 0
6410 adjustprogress
6413 } else {
6414 bell
6415 }
6416 return 0
6417 }
6419 flushhighlights
6420 } else {
6422 }
6426 }
6428 adjustprogress
6430 }
6432 proc findselectline {l} {
6433 global findloc commentend ctext findcurline markingmatches gdttype
6440 # highlight the matches in the comments
6447 }
6448 }
6449 drawvisible
6450 }
6452 # mark the bits of a headline or author that match a find string
6453 proc markmatches {canv l str tag matches font row} {
6454 global selectedline
6472 }
6473 }
6474 }
6476 proc unmarkmatches {} {
6477 global markingmatches
6479 allcanvs delete matches
6480 set markingmatches 0
6481 stopfinding
6482 }
6484 proc selcanvline {w x y} {
6485 global canv canvy0 ctext linespc
6486 global rowtextx
6493 set l 0
6494 }
6499 }
6500 unmarkmatches
6502 }
6504 proc commit_descriptor {p} {
6505 global commitinfo
6508 }
6509 set l "..."
6512 }
6514 }
6516 # append some text to the ctext widget, and make any SHA1 ID
6517 # that we know about be a clickable link.
6518 proc appendwithlinks {text tags} {
6519 global ctext linknum curview
6528 incr e
6532 incr linknum
6533 }
6534 }
6536 proc setlink {id lk} {
6537 global curview ctext pendinglinks
6539 set known 0
6544 set known 1
6546 }
6547 } else {
6549 }
6555 } else {
6558 }
6559 }
6561 proc appendshortlink {id {pre {}} {post {}}} {
6562 global ctext linknum
6569 incr linknum
6570 }
6572 proc makelink {id} {
6573 global pendinglinks
6578 }
6580 }
6582 proc linkcursor {w inc} {
6583 global linkentercount curtextcursor
6587 } else {
6590 set linkentercount 0
6591 }
6592 }
6593 }
6595 proc viewnextline {dir} {
6596 global canv linespc
6604 set newtop 0
6607 }
6609 }
6611 # add a list of tag or branch names at position pos
6612 # returns the number of names inserted
6613 proc appendrefs {pos ids var} {
6617 return 0
6618 }
6621 set tags {}
6625 }
6626 }
6629 } else {
6631 set sep {}
6635 incr linknum
6640 set sep ", "
6641 }
6642 }
6645 }
6647 # called when we have finished computing the nearby tags
6648 proc dispneartags {delay} {
6649 global selectedline currentid showneartags tagphase
6652 after cancel dispnexttag
6654 after 200 dispnexttag
6655 set tagphase -1
6656 } else {
6657 after idle dispnexttag
6658 set tagphase 0
6659 }
6660 }
6662 proc dispnexttag {} {
6663 global selectedline currentid showneartags tagphase ctext
6667 0 {
6671 }
6672 }
6673 1 {
6677 }
6678 }
6679 2 {
6684 # turn "Branch" into "Branches"
6688 }
6689 }
6690 }
6691 }
6692 if {[incr tagphase] <= 2} {
6693 after idle dispnexttag
6694 }
6695 }
6697 proc make_secsel {id} {
6698 global linehtag linentag linedtag canv canv2 canv3
6713 }
6715 proc make_idmark {id} {
6716 global linehtag canv fgcolor
6723 }
6725 proc selectline {l isnew {desired_loc {}}} {
6726 global canv ctext commitinfo selectedline
6727 global canvy0 linespc parents children curview
6728 global currentid sha1entry
6729 global commentend idtags linknum
6730 global mergemax numcommits pending_select
6731 global cmitmode showneartags allcommits
6732 global targetrow targetid lastscrollrows
6733 global autoselect jump_to_here
6735 catch {unset pending_select}
6737 normalline
6738 unsel_reflist
6739 stopfinding
6747 setcanvscroll
6748 }
6762 } else {
6766 }
6767 }
6771 } else {
6775 }
6776 }
6777 }
6780 set newtop 0
6781 }
6783 drawvisible
6784 }
6790 }
6797 }
6801 clear_ctext
6802 set linknum 0
6805 }
6815 }
6817 }
6819 set headers {}
6822 set np 0
6825 set tag mmax
6826 } else {
6828 }
6831 incr np
6832 }
6833 } else {
6836 }
6837 }
6841 }
6843 # make anything that looks like a SHA1 ID be a clickable link
6846 if {![info exists allcommits]} {
6847 getallcommits
6848 }
6859 dispneartags 1
6860 }
6865 }
6873 init_flist [mc "Comments"]
6878 } else {
6880 }
6881 }
6883 proc selfirstline {} {
6884 unmarkmatches
6885 selectline 0 1
6886 }
6888 proc sellastline {} {
6889 global numcommits
6890 unmarkmatches
6893 }
6895 proc selnextline {dir} {
6896 global selectedline
6897 focus .
6900 unmarkmatches
6902 }
6904 proc selnextpage {dir} {
6905 global canv linespc selectedline numcommits
6909 set lpp 1
6910 }
6912 drawvisible
6916 set l 0
6919 }
6920 unmarkmatches
6922 }
6924 proc unselectline {} {
6925 global selectedline currentid
6927 set selectedline {}
6928 catch {unset currentid}
6929 allcanvs delete secsel
6930 rhighlight_none
6931 }
6933 proc reselectline {} {
6934 global selectedline
6938 }
6939 }
6941 proc addtohistory {cmd} {
6942 global history historyindex curview
6947 return
6948 }
6952 } else {
6954 }
6955 incr historyindex
6957 .tf.bar.leftbut conf -state normal
6958 } else {
6959 .tf.bar.leftbut conf -state disabled
6960 }
6961 .tf.bar.rightbut conf -state disabled
6962 }
6964 proc godo {elt} {
6965 global curview
6971 }
6973 }
6975 proc goback {} {
6976 global history historyindex
6977 focus .
6980 incr historyindex -1
6982 .tf.bar.rightbut conf -state normal
6983 }
6985 .tf.bar.leftbut conf -state disabled
6986 }
6987 }
6989 proc goforw {} {
6990 global history historyindex
6991 focus .
6995 incr historyindex
6997 .tf.bar.leftbut conf -state normal
6998 }
7000 .tf.bar.rightbut conf -state disabled
7001 }
7002 }
7004 proc gettree {id} {
7005 global treefilelist treeidlist diffids diffmergeid treepending
7006 global nullid nullid2
7009 catch {unset diffmergeid}
7011 if {![info exists treepending]} {
7013 set cmd [list | git ls-files]
7015 set cmd [list | git ls-files --stage -t]
7016 } else {
7018 }
7020 return
7021 }
7027 }
7028 } else {
7030 }
7031 }
7033 proc gettreeline {gtf id} {
7034 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7036 set nl 0
7040 } else {
7048 }
7051 }
7054 }
7057 }
7059 unset treepending
7061 if {![info exists diffmergeid]} {
7063 }
7066 } else {
7068 }
7069 return 0
7070 }
7072 proc showfile {f} {
7073 global treefilelist treeidlist diffids nullid nullid2
7074 global ctext_file_names ctext_file_lines
7075 global ctext commentend
7080 return
7081 }
7085 return
7086 }
7087 } else {
7091 return
7092 }
7093 }
7104 settabs 0
7105 }
7107 proc getblobline {bf id} {
7108 global diffids cmitmode ctext
7112 return 0
7113 }
7115 set nl 0
7118 }
7120 global jump_to_here ctext_file_names commentend
7122 # delete last newline
7130 }
7131 return 0
7132 }
7135 }
7137 proc mark_ctext_line {lnum} {
7138 global ctext markbgcolor
7144 }
7146 proc mergediff {id} {
7147 global diffmergeid
7148 global diffids treediffs
7149 global parents curview
7157 }
7159 proc startdiff {ids} {
7160 global treediffs diffids treepending diffmergeid nullid nullid2
7162 settabs 1
7164 catch {unset diffmergeid}
7168 if {![info exists treepending]} {
7170 }
7171 } else {
7173 }
7174 }
7176 proc path_filter {filter name} {
7181 return 1
7182 }
7183 } else {
7187 return 1
7188 }
7189 }
7190 }
7191 return 0
7192 }
7194 proc addtocflist {ids} {
7195 global treediffs
7199 }
7201 proc diffcmd {ids flags} {
7202 global nullid nullid2
7208 # comparing working directory with some specific revision
7212 } else {
7214 }
7215 } else {
7216 # comparing working directory with index
7219 lappend cmd -R
7220 }
7221 }
7225 # comparing index with specific revision
7228 } else {
7230 }
7231 } else {
7232 # comparing index with HEAD
7233 lappend cmd HEAD
7234 }
7235 } else {
7237 }
7239 }
7241 proc gettreediffs {ids} {
7242 global treediff treepending
7247 set treediff {}
7250 }
7252 proc gettreediffline {gdtf ids} {
7253 global treediff treediffs treepending diffids diffmergeid
7254 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7256 set nr 0
7257 set sublist {}
7258 set max 1000
7260 # cache_gitattr is slow, and even slower on win32 where we
7261 # have to invoke it for only about 30 paths at a time
7262 set max 500
7263 if {[tk windowingsystem] == "win32"} {
7264 set max 120
7265 }
7266 }
7273 }
7278 }
7279 }
7280 }
7283 }
7286 }
7289 set flist {}
7293 }
7294 }
7296 } else {
7298 }
7299 unset treepending
7303 if {![info exists diffmergeid]} {
7305 }
7306 } else {
7308 }
7309 return 0
7310 }
7312 # empty string or positive integer
7313 proc diffcontextvalidate {v} {
7315 }
7317 proc diffcontextchange {n1 n2 op} {
7318 global diffcontextstring diffcontext
7323 reselectline
7324 }
7325 }
7326 }
7328 proc changeignorespace {} {
7329 reselectline
7330 }
7332 proc getblobdiffs {ids} {
7333 global blobdifffd diffids env
7334 global diffinhdr treediffs
7335 global diffcontext
7336 global ignorespace
7337 global limitdiffs vfilelimit curview
7338 global diffencoding targetline diffnparents
7339 global git_version
7341 set textconv {}
7343 set textconv "--textconv"
7344 }
7347 append cmd " -w"
7348 }
7351 }
7354 return
7355 }
7356 set targetline {}
7357 set diffnparents 0
7358 set diffinhdr 0
7359 set diffencoding [get_path_encoding {}]
7363 }
7365 proc setinlist {var i val} {
7370 }
7373 } else {
7375 }
7376 }
7378 proc makediffhdr {fname ids} {
7379 global ctext curdiffstart treediffs diffencoding
7380 global ctext_file_names jump_to_here targetline diffline
7387 }
7392 set targetline {}
7395 }
7396 set diffline 0
7397 }
7399 proc getblobdiffline {bdf ids} {
7400 global diffids blobdifffd ctext curdiffstart
7401 global diffnexthead diffnextnote difffilestart
7402 global ctext_file_names ctext_file_lines
7403 global diffinhdr treediffs mergemax diffnparents
7404 global diffencoding jump_to_here targetline diffline
7406 set nr 0
7411 return 0
7412 }
7417 continue
7418 }
7419 # start of a new file
7420 set diffinhdr 1
7423 lappend ctext_file_names ""
7428 # start of a new file in a merge diff
7433 }
7435 } else {
7437 # If the name hasn't changed the length will be odd,
7438 # the middle char will be a space, and the two bits either
7439 # side will be a/name and b/name, or "a/name" and "b/name".
7440 # If the name has changed we'll get "rename from" and
7441 # "rename to" or "copy from" and "copy to" lines following
7442 # this, and we'll use them to get the filenames.
7443 # This complexity is necessary because spaces in the
7444 # filename(s) don't get escaped.
7450 continue
7451 }
7452 # unescape if quoted and chop off the a/ from the front
7455 } else {
7457 }
7458 }
7471 }
7479 }
7481 set diffinhdr 0
7488 }
7493 }
7499 }
7502 # do nothing
7503 continue
7505 set diffinhdr 0
7506 continue
7507 }
7510 } else {
7511 set line [string map {\x1A ^Z} \
7513 # parse the prefix - one ' ', '-' or '+' for each parent
7517 # prefix only has " ", "-" and "+" in it: normal diff line
7522 set num "max"
7523 }
7525 } else {
7526 set tags {}
7528 # added line
7534 set num "max"
7535 }
7537 }
7538 }
7539 }
7543 set targetline {}
7544 } else {
7545 incr diffline
7546 }
7547 }
7549 }
7550 } else {
7551 # "\ No newline at end of file",
7552 # or something else we don't recognize
7554 }
7555 }
7556 }
7557 if {[info exists seehere]} {
7559 }
7563 return 0
7564 }
7566 }
7568 proc changediffdisp {} {
7569 global ctext diffelide
7573 }
7575 proc highlightfile {loc cline} {
7576 global ctext cflist cflist_top
7583 }
7585 proc prevfile {} {
7586 global difffilestart ctext cmitmode
7589 set prev 0.0
7590 set prevline 1
7595 return
7596 }
7598 incr prevline
7599 }
7601 }
7603 proc nextfile {} {
7604 global difffilestart ctext cmitmode
7608 set line 1
7610 incr line
7613 return
7614 }
7615 }
7616 }
7618 proc clear_ctext {{first 1.0}} {
7619 global ctext smarktop smarkbot
7620 global ctext_file_names ctext_file_lines
7621 global pendinglinks
7626 }
7629 }
7632 catch {unset pendinglinks}
7633 }
7634 set ctext_file_names {}
7635 set ctext_file_lines {}
7636 }
7638 proc settabs {{firstab {}}} {
7639 global firsttabstop tabstop ctext have_tk85
7643 }
7644 set w [font measure textfont "0"]
7650 } else {
7652 }
7653 }
7655 proc incrsearch {name ix op} {
7656 global ctext searchstring searchdirn
7660 # no anchor set, use start of selection, or of visible area
7666 } else {
7668 }
7669 }
7674 }
7675 searchmarkvisible 1
7676 }
7677 }
7679 proc dosearch {} {
7680 global sstring ctext searchstring searchdirn
7684 set searchdirn -forwards
7690 set start "@0,0"
7691 }
7695 bell
7696 return
7697 }
7702 }
7703 }
7705 proc dosearchback {} {
7706 global sstring ctext searchstring searchdirn
7710 set searchdirn -backwards
7717 }
7721 bell
7722 return
7723 }
7728 }
7729 }
7731 proc searchmark {first last} {
7732 global ctext searchstring
7735 while {1} {
7740 }
7741 }
7743 proc searchmarkvisible {doall} {
7744 global ctext smarktop smarkbot
7749 # no overlap with previous
7753 } else {
7757 }
7761 }
7762 }
7763 }
7765 proc scrolltext {f0 f1} {
7766 global searchstring
7770 searchmarkvisible 0
7771 }
7772 }
7774 proc setcoords {} {
7775 global linespc charspc canvx0 canvy0
7776 global xspc1 xspc2 lthickness
7778 set linespc [font metrics mainfont -linespace]
7779 set charspc [font measure mainfont "m"]
7785 }
7787 proc redisplay {} {
7788 global canv
7789 global selectedline
7794 clear_display
7795 setcanvscroll
7797 drawvisible
7801 }
7802 }
7804 proc parsefont {f n} {
7805 global fontattr
7810 set s 10
7813 }
7819 "normal" -
7821 "roman" -
7823 }
7824 }
7825 }
7827 proc fontflags {f {isbold 0}} {
7828 global fontattr
7833 }
7835 proc fontname {f} {
7836 global fontattr
7840 lappend n "bold"
7841 }
7843 lappend n "italic"
7844 }
7846 }
7848 proc incrfont {inc} {
7849 global mainfont textfont ctext canv cflist showrefstop
7850 global stopped entries fontattr
7852 unmarkmatches
7856 set s 1
7857 }
7861 set mainfont [fontname mainfont]
7865 set s 1
7866 }
7870 set textfont [fontname textfont]
7871 setcoords
7872 settabs
7873 redisplay
7874 }
7876 proc clearsha1 {} {
7877 global sha1entry sha1string
7880 }
7881 }
7883 proc sha1change {n1 n2 op} {
7884 global sha1string currentid sha1but
7887 set state disabled
7888 } else {
7889 set state normal
7890 }
7894 } else {
7896 }
7897 }
7899 proc gotocommit {} {
7900 global sha1string tagids headids curview varcid
7908 } else {
7915 return
7916 }
7918 }
7919 } else {
7922 return
7923 }
7924 }
7925 }
7928 return
7929 }
7932 } else {
7934 }
7936 }
7938 proc lineenter {x y id} {
7939 global hoverx hovery hoverid hovertimer
7940 global commitinfo canv
7946 if {[info exists hovertimer]} {
7948 }
7949 set hovertimer [after 500 linehover]
7951 }
7953 proc linemotion {x y id} {
7954 global hoverx hovery hoverid hovertimer
7959 if {[info exists hovertimer]} {
7961 }
7962 set hovertimer [after 500 linehover]
7963 }
7964 }
7966 proc lineleave {id} {
7967 global hoverid hovertimer canv
7971 if {[info exists hovertimer]} {
7973 unset hovertimer
7974 }
7975 unset hoverid
7976 }
7977 }
7979 proc linehover {} {
7980 global hoverx hovery hoverid hovertimer
7981 global canv linespc lthickness
7982 global commitinfo
7995 -fill \#ffff80 -outline black -width 1 -tags hover]
7998 -font mainfont]
8000 }
8002 proc clickisonarrow {id y} {
8003 global lthickness
8012 }
8013 }
8014 return {}
8015 }
8017 proc arrowjump {id n y} {
8018 global canv
8020 # 1 <-> 2, 3 <-> 4, etc...
8030 set yfrac 0
8031 }
8033 }
8035 proc lineclick {x y id isnew} {
8036 global ctext commitinfo children canv thickerline curview
8039 unmarkmatches
8040 unselectline
8041 normalline
8043 # draw this line thicker than normal
8051 }
8055 return
8056 }
8060 }
8061 # fill the details pane with info about this line
8063 clear_ctext
8064 settabs 0
8076 set i 0
8078 incr i
8088 }
8089 }
8091 init_flist {}
8092 }
8094 proc normalline {} {
8095 global thickerline
8096 if {[info exists thickerline]} {
8098 unset thickerline
8100 }
8101 }
8103 proc selbyid {id} {
8104 global curview
8107 }
8108 }
8110 proc mstime {} {
8111 global startmstime
8112 if {![info exists startmstime]} {
8113 set startmstime [clock clicks -milliseconds]
8114 }
8116 }
8118 proc rowmenu {x y id} {
8119 global rowctxmenu selectedline rowmenuid curview
8120 global nullid nullid2 fakerowmenu mainhead markedid
8122 stopfinding
8125 set state disabled
8126 } else {
8127 set state normal
8128 }
8133 } else {
8135 }
8140 } else {
8144 }
8145 } else {
8147 }
8152 }
8154 proc markhere {} {
8155 global rowmenuid markedid canv
8159 }
8161 proc gotomark {} {
8162 global markedid
8164 if {[info exists markedid]} {
8166 }
8167 }
8169 proc replace_by_kids {l r} {
8170 global curview children
8176 }
8178 }
8180 proc find_common_desc {} {
8181 global markedid rowmenuid curview children
8183 if {![info exists markedid]} return
8186 #set t1 [clock clicks -milliseconds]
8189 while 1 {
8195 break
8196 }
8199 } else {
8201 }
8202 }
8203 #set t2 [clock clicks -milliseconds]
8205 }
8207 proc compare_commits {} {
8208 global markedid rowmenuid curview children
8210 if {![info exists markedid]} return
8214 }
8216 proc getpatchid {id} {
8217 global patchids
8221 # trim off the initial "|"
8223 if {[catch {
8226 }]} {
8228 }
8229 }
8231 }
8233 proc do_cmp_commits {a b} {
8234 global ctext curview parents children patchids commitinfo
8237 clear_ctext
8238 init_flist {}
8240 set skipa 0
8241 set skipb 0
8244 set skipa 1
8245 } else {
8247 }
8250 set skipb 1
8251 } else {
8253 }
8259 [mc " - stopping\n"]
8260 break
8261 }
8264 [mc " - stopping\n"]
8265 break
8266 }
8271 } else {
8275 }
8276 set skipa 1
8277 set skipb 1
8278 } else {
8285 update
8287 return
8288 }
8289 }
8294 [mc " has %s children - stopping\n" \
8296 break
8297 }
8299 }
8303 [mc " has %s children - stopping\n" \
8305 break
8306 }
8308 }
8309 }
8311 }
8313 proc diffcommits {a b} {
8314 global diffcontext diffids blobdifffd diffinhdr
8316 set tmpdir [gitknewtmpdir]
8319 if {[catch {
8322 } err]} {
8324 return
8325 }
8326 if {[catch {
8328 } err]} {
8330 return
8331 }
8334 set diffinhdr 0
8336 }
8338 proc diffvssel {dirn} {
8339 global rowmenuid selectedline
8345 } else {
8348 }
8351 }
8353 proc doseldiff {oldid newid} {
8354 global ctext
8355 global commitinfo
8358 clear_ctext
8359 init_flist [mc "Top"]
8374 }
8376 proc mkpatch {} {
8377 global rowmenuid currentid commitinfo patchtop patchnum
8379 if {![info exists currentid]} return
8384 set top .patch
8414 incr patchnum
8426 }
8428 proc mkpatchrev {} {
8429 global patchtop
8435 foreach e [list fromsha1 fromhead tosha1 tohead] \
8441 }
8442 }
8444 proc mkpatchgo {} {
8445 global patchtop nullid nullid2
8451 # trim off the initial "|"
8456 }
8458 unset patchtop
8459 }
8461 proc mkpatchcan {} {
8462 global patchtop
8465 unset patchtop
8466 }
8468 proc mktag {} {
8469 global rowmenuid mktagtop commitinfo
8471 set top .maketag
8500 }
8502 proc domktag {} {
8503 global mktagtop env tagids idtags
8509 return 0
8510 }
8513 return 0
8514 }
8515 if {[catch {
8517 } err]} {
8519 return 0
8520 }
8526 dispneartags 0
8527 run refill_reflist
8528 return 1
8529 }
8531 proc redrawtags {id} {
8532 global canv linehtag idpos currentid curview cmitlisted markedid
8533 global canvxmax iddrawn circleitem mainheadid circlecolors
8539 set ofill yellow
8540 } else {
8542 }
8552 setcanvscroll
8553 }
8556 }
8559 }
8560 }
8562 proc mktagcan {} {
8563 global mktagtop
8566 unset mktagtop
8567 }
8569 proc mktaggo {} {
8570 if {![domktag]} return
8571 mktagcan
8572 }
8574 proc writecommit {} {
8575 global rowmenuid wrcomtop commitinfo wrcomcmd
8577 set top .writecommit
8610 }
8612 proc wrcomgo {} {
8613 global wrcomtop
8620 }
8622 unset wrcomtop
8623 }
8625 proc wrcomcan {} {
8626 global wrcomtop
8629 unset wrcomtop
8630 }
8632 proc mkbranch {} {
8633 global rowmenuid mkbrtop
8635 set top .makebranch
8659 }
8661 proc mkbrgo {top} {
8662 global headids idheads
8666 set cmdargs {}
8667 set old_id {}
8670 return
8671 }
8673 if {![confirm_popup [mc \
8675 return
8676 }
8678 lappend cmdargs -f
8679 }
8682 nowbusy newbranch
8683 update
8684 if {[catch {
8686 } err]} {
8687 notbusy newbranch
8689 } else {
8690 notbusy newbranch
8696 } else {
8701 }
8702 dispneartags 0
8703 run refill_reflist
8704 }
8705 }
8707 proc exec_citool {tool_args {baseid {}}} {
8708 global commitinfo env
8710 set save_env [array get env GIT_AUTHOR_*]
8715 }
8718 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8724 }
8725 }
8729 array unset env GIT_AUTHOR_*
8731 }
8733 proc cherrypick {} {
8734 global rowmenuid curview
8735 global mainhead mainheadid
8737 set oldhead [exec git rev-parse HEAD]
8740 set ok [confirm_popup [mc "Commit %s is already\
8741 included in branch %s -- really re-apply it?" \
8744 }
8745 nowbusy cherrypick [mc "Cherry-picking"]
8746 update
8747 # Unfortunately git-cherry-pick writes stuff to stderr even when
8748 # no error occurs, and exec takes that as an indication of error...
8750 notbusy cherrypick
8751 if {[regexp -line \
8752 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8754 error_popup [mc "Cherry-pick failed because of local changes\
8755 to file '%s'.\nPlease commit, reset or stash\
8757 } elseif {[regexp -line \
8758 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8760 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8761 conflict.\nDo you wish to run git citool to\
8762 resolve it?"]]} {
8763 # Force citool to read MERGE_MSG
8764 file delete [file join [gitdir] "GITGUI_MSG"]
8766 }
8767 } else {
8769 }
8770 run updatecommits
8771 return
8772 }
8773 set newhead [exec git rev-parse HEAD]
8775 notbusy cherrypick
8776 error_popup [mc "No changes committed"]
8777 return
8778 }
8781 # XXX this isn't right if we have a path limit...
8786 }
8791 }
8792 notbusy cherrypick
8793 }
8795 proc resethead {} {
8796 global mainhead rowmenuid confirm_ok resettype
8798 set confirm_ok 0
8799 set w ".confirmreset"
8805 -justify center -aspect 1000
8810 set resettype mixed
8812 -text [mc "Soft: Leave working tree and index untouched"]
8815 -text [mc "Mixed: Leave working tree untouched, reset index"]
8818 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8829 if {[catch {set fd [open \
8832 } else {
8833 dohidelocalchanges
8835 nowbusy reset [mc "Resetting"]
8837 }
8838 }
8840 proc readresetstat {fd} {
8841 global mainhead mainheadid showlocalchanges rprogcoord
8846 adjustprogress
8847 }
8848 return 1
8849 }
8850 set rprogcoord 0
8851 adjustprogress
8852 notbusy reset
8855 }
8857 set newhead [exec git rev-parse HEAD]
8864 }
8866 doshowlocalchanges
8867 }
8868 return 0
8869 }
8871 # context menu for a head
8872 proc headmenu {x y id head} {
8873 global headmenuid headmenuhead headctxmenu mainhead
8875 stopfinding
8878 set state normal
8880 set state disabled
8881 }
8885 }
8887 proc cobranch {} {
8888 global headmenuid headmenuhead headids
8889 global showlocalchanges
8891 # check the tree is clean first??
8892 nowbusy checkout [mc "Checking out"]
8893 update
8894 dohidelocalchanges
8895 if {[catch {
8897 } err]} {
8898 notbusy checkout
8901 dodiffindex
8902 }
8903 } else {
8905 }
8906 }
8908 proc readcheckoutstat {fd newhead newheadid} {
8909 global mainhead mainheadid headids showlocalchanges progresscoords
8910 global viewmainheadid curview
8915 adjustprogress
8916 }
8917 return 1
8918 }
8919 set progresscoords {0 0}
8920 adjustprogress
8921 notbusy checkout
8924 }
8933 dodiffindex
8934 }
8935 }
8937 proc rmbranch {} {
8938 global headmenuid headmenuhead mainhead
8939 global idheads
8943 # this check shouldn't be needed any more...
8945 error_popup [mc "Cannot delete the currently checked-out branch"]
8946 return
8947 }
8950 # the stuff on this branch isn't on any other branch
8951 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8953 }
8954 nowbusy rmbranch
8955 update
8957 notbusy rmbranch
8959 return
8960 }
8964 notbusy rmbranch
8965 dispneartags 0
8966 run refill_reflist
8967 }
8969 # Display a list of tags and heads
8970 proc showrefs {} {
8971 global showrefstop bgcolor fgcolor selectbgcolor
8972 global bglist fglist reflistfilter reflist maincursor
8974 set top .showrefs
8978 refill_reflist
8979 return
8980 }
8988 -spacing1 1 -spacing3 1 -state disabled
8999 set reflistfilter "*"
9000 trace add variable reflistfilter write reflistfilter_change
9012 set reflist {}
9013 refill_reflist
9014 }
9016 proc sel_reflist {w x y} {
9017 global showrefstop reflist headids tagids otherrefids
9027 }
9029 }
9031 proc unsel_reflist {} {
9032 global showrefstop
9036 }
9038 proc reflistfilter_change {n1 n2 op} {
9039 global reflistfilter
9041 after cancel refill_reflist
9042 after 200 refill_reflist
9043 }
9045 proc refill_reflist {} {
9046 global reflist reflistfilter showrefstop headids tagids otherrefids
9047 global curview
9050 set refs {}
9051 foreach n [array names headids] {
9055 } else {
9057 }
9058 }
9059 }
9060 foreach n [array names tagids] {
9064 } else {
9066 }
9067 }
9068 }
9069 foreach n [array names otherrefids] {
9073 } else {
9075 }
9076 }
9077 }
9085 set i 0
9086 set j 0
9095 }
9096 } else {
9097 set cmp -1
9098 }
9099 } else {
9100 set cmp 1
9101 }
9103 -1 {
9105 incr i
9106 }
9107 0 {
9108 incr i
9109 incr j
9110 }
9111 1 {
9116 incr j
9117 }
9118 }
9119 }
9121 # delete last newline
9124 }
9126 # Stuff for finding nearby tags
9127 proc getallcommits {} {
9128 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9129 global idheads idtags idotherrefs allparents tagobjid
9131 if {![info exists allcommits]} {
9132 set nextarc 0
9133 set allcommits 0
9134 set seeds {}
9135 set allcwait 0
9136 set cachedarcs 0
9137 set allccache [file join [gitdir] "gitk.cache"]
9138 if {![catch {
9140 set allcwait 1
9142 }]} return
9143 }
9146 return
9147 }
9148 set cmd [list | git rev-list --parents]
9151 set ids "--all"
9152 } else {
9153 set refs [concat [array names idheads] [array names idtags] \
9154 [array names idotherrefs]]
9155 set ids {}
9156 set tagobjs {}
9157 foreach name [array names tagobjid] {
9159 }
9164 }
9165 }
9169 }
9170 }
9171 }
9175 incr allcommits
9176 nowbusy allcommits
9178 } else {
9179 dispneartags 0
9180 }
9181 }
9183 # Since most commits have 1 parent and 1 child, we group strings of
9184 # such commits into "arcs" joining branch/merge points (BMPs), which
9185 # are commits that either don't have 1 parent or don't have 1 child.
9186 #
9187 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9188 # arcout(id) - outgoing arcs for BMP
9189 # arcids(a) - list of IDs on arc including end but not start
9190 # arcstart(a) - BMP ID at start of arc
9191 # arcend(a) - BMP ID at end of arc
9192 # growing(a) - arc a is still growing
9193 # arctags(a) - IDs out of arcids (excluding end) that have tags
9194 # archeads(a) - IDs out of arcids (excluding end) that have heads
9195 # The start of an arc is at the descendent end, so "incoming" means
9196 # coming from descendents, and "outgoing" means going towards ancestors.
9198 proc getallclines {fd} {
9199 global allparents allchildren idtags idheads nextarc
9200 global arcnos arcids arctags arcout arcend arcstart archeads growing
9201 global seeds allcommits cachedarcs allcupdate
9203 set nid 0
9207 # seen it already
9208 continue
9209 }
9210 set cachedarcs 0
9217 } else {
9223 }
9226 }
9228 # seen parent already
9231 }
9235 }
9238 continue
9239 }
9240 }
9245 }
9247 set ao {}
9250 set a [incr nextarc]
9259 # seen it already, may need to make a new branch
9262 }
9266 }
9268 }
9270 }
9272 global cached_dheads cached_dtags cached_atags
9273 catch {unset cached_dheads}
9274 catch {unset cached_dtags}
9275 catch {unset cached_atags}
9276 }
9279 }
9280 set cacheok 1
9281 if {[catch {
9284 } err]} {
9285 # got an error reading the list of commits
9286 # if we were updating, try rereading the whole thing again
9288 incr allcommits -1
9290 return
9291 }
9292 error_popup "[mc "Error reading commit topology information;\
9293 branch and preceding/following tag information\
9295 set cacheok 0
9296 }
9297 if {[incr allcommits -1] == 0} {
9298 notbusy allcommits
9300 run savecache
9301 }
9302 }
9303 dispneartags 0
9304 return 0
9305 }
9307 proc recalcarc {a} {
9308 global arctags archeads arcids idtags idheads
9310 set at {}
9311 set ah {}
9315 }
9318 }
9319 }
9322 }
9324 proc splitarc {p} {
9325 global arcnos arcids nextarc arctags archeads idtags idheads
9326 global arcstart arcend arcout allparents growing
9331 return
9332 }
9337 return
9338 }
9339 set na [incr nextarc]
9342 } else {
9346 }
9356 }
9361 } else {
9364 }
9365 }
9367 # reconstruct tags and heads lists
9371 } else {
9374 }
9375 }
9377 # Update things for a new commit added that is a child of one
9378 # existing commit. Used when cherry-picking.
9379 proc addnewchild {id p} {
9380 global allparents allchildren idtags nextarc
9381 global arcnos arcids arctags arcout arcend arcstart archeads growing
9382 global seeds allcommits
9390 set a [incr nextarc]
9398 }
9401 }
9403 # This implements a cache for the topology information.
9404 # The cache saves, for each arc, the start and end of the arc,
9405 # the ids on the arc, and the outgoing arcs from the end.
9406 proc readcache {f} {
9407 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9408 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9409 global allcwait
9415 }
9416 if {[catch {
9418 # finish reading the cache and setting up arctags, etc.
9422 foreach id [array names idtags] {
9428 }
9429 }
9430 }
9431 foreach id [array names idheads] {
9437 }
9438 }
9439 }
9443 }
9444 }
9445 set allcwait 0
9446 } else {
9456 }
9460 } else {
9464 }
9465 }
9471 }
9474 }
9477 }
9479 }
9480 } err]} {
9482 return 0
9483 }
9485 getallcommits
9486 }
9488 }
9490 proc getcache {f} {
9491 global nextarc cachedarcs possible_seeds
9493 if {[catch {
9496 # make sure it's an integer
9499 set nextarc 0
9500 set possible_seeds {}
9502 } err]} {
9504 }
9505 return 0
9506 }
9508 proc dropcache {err} {
9509 global allcwait nextarc cachedarcs seeds
9512 foreach v {arcnos arcout arcids arcstart arcend growing \
9513 arctags archeads allparents allchildren} {
9516 }
9517 set allcwait 0
9518 set nextarc 0
9519 set cachedarcs 0
9520 set seeds {}
9521 getallcommits
9522 }
9524 proc writecache {f} {
9525 global cachearc cachedarcs allccache
9526 global arcstart arcend arcnos arcids arcout
9532 }
9533 if {[catch {
9537 } else {
9539 }
9540 }
9541 } err]} {
9545 return 0
9546 }
9551 return 0
9552 }
9553 return 1
9554 }
9556 proc savecache {} {
9557 global nextarc cachedarcs cachearc allccache
9560 set cachearc 0
9562 catch {
9566 }
9567 }
9569 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9570 # or 0 if neither is true.
9571 proc anc_or_desc {a b} {
9572 global arcout arcstart arcend arcnos cached_isanc
9575 # Both are on the same arc(s); either both are the same BMP,
9576 # or if one is not a BMP, the other is also not a BMP or is
9577 # the BMP at end of the arc (and it only has 1 incoming arc).
9578 # Or both can be BMPs with no incoming arcs.
9580 return 0
9581 }
9587 return 1
9588 } else {
9589 return -1
9590 }
9591 }
9597 } else {
9598 set aend {}
9599 }
9601 } else {
9603 }
9608 } else {
9609 set bend {}
9610 }
9612 } else {
9614 }
9616 return 1
9617 }
9619 return -1
9620 }
9623 return 1
9624 }
9625 }
9628 return -1
9629 }
9631 return 0
9632 }
9633 }
9641 continue
9642 }
9648 return 1
9652 return -1
9653 }
9659 }
9660 }
9661 }
9664 return 0
9665 }
9669 # and returns 0 if so and 1 if not.
9670 # If we subsequently discover a tag on such a growing tip, and that
9673 # isn't a good choice to display as a descendent tag of
9677 #
9678 proc is_certain {desc anc} {
9679 global arcnos arcout arcstart arcend growing problems
9681 set certain {}
9683 # tags on the same arc are certain
9685 return 1
9686 }
9691 }
9692 }
9695 } else {
9698 }
9700 return 1
9701 }
9704 set nnh 1
9705 set ngrowanc 0
9709 incr nnh -1
9710 }
9716 incr ngrowanc
9717 }
9718 } else {
9725 incr nnh -1
9726 }
9728 incr ngrowanc -1
9729 }
9739 incr nnh -1
9740 }
9742 incr ngrowanc -1
9743 }
9745 }
9746 }
9747 }
9748 }
9749 }
9750 }
9754 } else {
9757 incr nnh
9758 }
9759 }
9760 }
9761 }
9762 foreach x [array names growanc] {
9764 return 0
9765 }
9766 return 0
9767 }
9768 return 1
9769 }
9771 proc validate_arctags {a} {
9772 global arctags idtags
9774 set i -1
9777 incr i
9780 incr i -1
9781 }
9782 }
9784 }
9786 proc validate_archeads {a} {
9787 global archeads idheads
9789 set i -1
9792 incr i
9795 incr i -1
9796 }
9797 }
9799 }
9801 # Return the list of IDs that have tags that are descendents of id,
9802 # ignoring IDs that are descendents of IDs already reported.
9803 proc desctags {id} {
9804 global arcnos arcstart arcids arctags idtags allparents
9805 global growing cached_dtags
9808 return {}
9809 }
9810 set t1 [clock clicks -milliseconds]
9813 # part-way along an arc; check that arc first
9818 set tid {}
9823 }
9826 }
9827 }
9831 }
9832 }
9835 }
9840 set nc 1
9846 incr nc -1
9847 }
9848 # ignore tags on starting node
9852 set ta 1
9855 set ta 1
9856 }
9857 }
9864 }
9865 }
9874 }
9877 }
9879 incr nc -1
9880 }
9882 }
9883 }
9884 }
9889 incr nc
9890 }
9891 }
9892 }
9893 }
9894 set tags {}
9895 foreach id [array names tagloc] {
9900 }
9901 }
9902 }
9903 }
9904 set t2 [clock clicks -milliseconds]
9907 # remove tags that are descendents of other tags
9915 incr j -1
9916 incr i -1
9919 incr i -1
9920 break
9921 }
9922 }
9923 }
9925 if {[array names growing] ne {}} {
9926 # graph isn't finished, need to check if any tag could get
9927 # eclipsed by another tag coming later. Simply ignore any
9928 # tags that could later get eclipsed.
9929 set ctags {}
9933 }
9934 }
9937 } else {
9939 }
9940 } else {
9942 }
9943 set t3 [clock clicks -milliseconds]
9947 }
9949 }
9951 proc anctags {id} {
9952 global arcnos arcids arcout arcend arctags idtags allparents
9953 global growing cached_atags
9956 return {}
9957 }
9958 set t1 [clock clicks -milliseconds]
9961 # part-way along an arc; check that arc first
9970 }
9971 }
9972 }
9974 return {}
9975 }
9979 }
9980 }
9983 }
9988 set taglist {}
9989 set nc 1
9995 incr nc -1
9996 }
9997 # ignore tags on starting node
10001 set td 1
10004 set td 1
10005 }
10006 }
10012 }
10013 }
10025 }
10026 }
10029 }
10031 incr nc -1
10032 }
10034 }
10035 }
10036 }
10041 incr nc
10042 }
10043 }
10044 }
10045 }
10046 set t2 [clock clicks -milliseconds]
10048 set tags {}
10049 foreach id [array names tagloc] {
10054 }
10055 }
10056 }
10057 }
10059 # remove tags that are ancestors of other tags
10067 incr j -1
10068 incr i -1
10071 incr i -1
10072 break
10073 }
10074 }
10075 }
10077 if {[array names growing] ne {}} {
10078 # graph isn't finished, need to check if any tag could get
10079 # eclipsed by another tag coming later. Simply ignore any
10080 # tags that could later get eclipsed.
10081 set ctags {}
10085 }
10086 }
10089 } else {
10091 }
10092 } else {
10094 }
10095 set t3 [clock clicks -milliseconds]
10099 }
10101 }
10103 # Return the list of IDs that have heads that are descendents of id,
10104 # including id itself if it has a head.
10105 proc descheads {id} {
10106 global arcnos arcstart arcids archeads idheads cached_dheads
10107 global allparents
10110 return {}
10111 }
10112 set aret {}
10114 # part-way along an arc; check it first
10123 }
10124 }
10126 }
10130 set ret {}
10135 } else {
10138 }
10144 }
10145 }
10150 }
10151 }
10152 }
10153 }
10157 }
10159 proc addedtag {id} {
10160 global arcnos arcout cached_dtags cached_atags
10165 }
10166 catch {unset cached_dtags}
10167 catch {unset cached_atags}
10168 }
10170 proc addedhead {hid head} {
10171 global arcnos arcout cached_dheads
10176 }
10177 catch {unset cached_dheads}
10178 }
10180 proc removedhead {hid head} {
10181 global cached_dheads
10183 catch {unset cached_dheads}
10184 }
10186 proc movedhead {hid head} {
10187 global arcnos arcout cached_dheads
10192 }
10193 catch {unset cached_dheads}
10194 }
10196 proc changedrefs {} {
10197 global cached_dheads cached_dtags cached_atags
10198 global arctags archeads arcnos arcout idheads idtags
10200 foreach id [concat [array names idheads] [array names idtags]] {
10206 }
10207 }
10208 }
10209 catch {unset cached_dtags}
10210 catch {unset cached_atags}
10211 catch {unset cached_dheads}
10212 }
10214 proc rereadrefs {} {
10215 global idtags idheads idotherrefs mainheadid
10217 set refids [concat [array names idtags] \
10218 [array names idheads] [array names idotherrefs]]
10222 }
10223 }
10225 readrefs
10226 changedrefs
10228 [array names idheads] [array names idotherrefs]]]
10233 }
10234 }
10238 }
10239 run refill_reflist
10240 }
10242 proc listrefs {id} {
10243 global idtags idheads idotherrefs
10245 set x {}
10248 }
10249 set y {}
10252 }
10253 set z {}
10256 }
10258 }
10260 proc showtag {tag isnew} {
10261 global ctext tagcontents tagids linknum tagobjid
10265 }
10267 clear_ctext
10268 settabs 0
10269 set linknum 0
10271 catch {
10273 }
10274 }
10277 } else {
10279 }
10282 init_flist {}
10283 }
10285 proc doquit {} {
10286 global stopped
10287 global gitktmpdir
10289 set stopped 100
10290 savestuff .
10291 destroy .
10293 if {[info exists gitktmpdir]} {
10295 }
10296 }
10298 proc mkfontdisp {font top which} {
10307 }
10309 proc choosefont {font which} {
10310 global fontparam fontlist fonttop fontattr
10311 global prefstop
10319 set top .gitkfont
10322 font create sample
10329 set fontlist [lsort [font families]]
10340 -textvariable fontparam(size) \
10341 -validatecommand {string is integer -strict %s}
10343 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10344 -variable fontparam(weight) -onvalue bold -offvalue normal
10346 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10347 -variable fontparam(slant) -onvalue italic -offvalue roman
10351 -background white
10353 -fill black -tags text
10365 trace add variable fontparam write chg_fontparam
10366 } else {
10369 }
10374 }
10375 }
10377 proc centertext {w} {
10379 }
10381 proc fontok {} {
10382 global fontparam fontpref prefstop
10388 }
10391 }
10395 fontcan
10396 }
10398 proc fontcan {} {
10399 global fonttop fontparam
10401 if {[info exists fonttop]} {
10403 catch {font delete sample}
10404 unset fonttop
10405 unset fontparam
10406 }
10407 }
10409 proc selfontfam {} {
10410 global fonttop fontparam
10415 }
10416 }
10418 proc chg_fontparam {v sub op} {
10419 global fontparam
10422 }
10424 proc doprefs {} {
10425 global maxwidth maxgraphpct
10426 global oldprefs prefstop showneartags showlocalchanges
10427 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10428 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10429 global hideremotes
10431 set top .gitkprefs
10435 return
10436 }
10437 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10438 limitdiffs tabstop perfile_attrs hideremotes} {
10440 }
10448 -font optionfont
10452 -font optionfont
10456 -font optionfont -variable showlocalchanges
10459 -font optionfont -variable autoselect
10468 -font optionfont -variable showneartags
10471 -font optionfont -variable hideremotes
10474 -font optionfont -variable limitdiffs
10477 -font optionfont -variable perfile_attrs
10483 -padx 10
10485 -command choose_extdiff
10512 [mc "diff hunk header"] \
10518 [mc "marked line background"] \
10542 }
10544 proc choose_extdiff {} {
10545 global extdifftool
10547 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10550 }
10551 }
10553 proc choosecolor {v vi w x cmd} {
10562 }
10564 proc setselbg {c} {
10565 global bglist cflist
10568 }
10572 }
10574 proc setbg {c} {
10575 global bglist
10579 }
10580 }
10582 proc setfg {c} {
10583 global fglist canv
10587 }
10591 }
10593 proc prefscan {} {
10594 global oldprefs prefstop
10596 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10597 limitdiffs tabstop perfile_attrs hideremotes} {
10600 }
10602 unset prefstop
10603 fontcan
10604 }
10606 proc prefsok {} {
10607 global maxwidth maxgraphpct
10608 global oldprefs prefstop showneartags showlocalchanges
10609 global fontpref mainfont textfont uifont
10610 global limitdiffs treediffs perfile_attrs
10611 global hideremotes
10614 unset prefstop
10615 fontcan
10616 set fontchanged 0
10620 eval font configure mainfont [fontflags mainfont]
10621 eval font configure mainfontbold [fontflags mainfont 1]
10622 setcoords
10623 set fontchanged 1
10624 }
10628 eval font configure textfont [fontflags textfont]
10629 eval font configure textfontbold [fontflags textfont 1]
10630 }
10634 eval font configure uifont [fontflags uifont]
10635 }
10636 settabs
10639 doshowlocalchanges
10640 } else {
10641 dohidelocalchanges
10642 }
10643 }
10646 # treediffs elements are limited by path;
10647 # won't have encodings cached if perfile_attrs was just turned on
10648 catch {unset treediffs}
10649 }
10652 redisplay
10655 reselectline
10656 }
10658 rereadrefs
10659 }
10660 }
10662 proc formatdate {d} {
10663 global datetimeformat
10666 }
10668 }
10670 # This list of encoding names and aliases is distilled from
10671 # http://www.iana.org/assignments/character-sets.
10672 # Not all of them are supported by Tcl.
10673 set encoding_aliases {
10674 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10675 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10676 { ISO-10646-UTF-1 csISO10646UTF1 }
10677 { ISO_646.basic:1983 ref csISO646basic1983 }
10678 { INVARIANT csINVARIANT }
10679 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10680 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10681 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10682 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10683 { NATS-DANO iso-ir-9-1 csNATSDANO }
10684 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10685 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10686 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10687 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10688 { ISO-2022-KR csISO2022KR }
10689 { EUC-KR csEUCKR }
10690 { ISO-2022-JP csISO2022JP }
10691 { ISO-2022-JP-2 csISO2022JP2 }
10692 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10693 csISO13JISC6220jp }
10694 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10695 { IT iso-ir-15 ISO646-IT csISO15Italian }
10696 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10697 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10698 { greek7-old iso-ir-18 csISO18Greek7Old }
10699 { latin-greek iso-ir-19 csISO19LatinGreek }
10700 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10701 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10702 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10703 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10704 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10705 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10706 { INIS iso-ir-49 csISO49INIS }
10707 { INIS-8 iso-ir-50 csISO50INIS8 }
10708 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10709 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10710 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10711 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10712 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10713 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10714 csISO60Norwegian1 }
10715 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10716 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10717 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10718 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10719 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10720 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10721 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10722 { greek7 iso-ir-88 csISO88Greek7 }
10723 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10724 { iso-ir-90 csISO90 }
10725 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10726 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10727 csISO92JISC62991984b }
10728 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10729 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10730 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10731 csISO95JIS62291984handadd }
10732 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10733 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10734 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10735 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10736 CP819 csISOLatin1 }
10737 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10738 { T.61-7bit iso-ir-102 csISO102T617bit }
10739 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10740 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10741 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10742 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10743 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10744 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10745 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10746 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10747 arabic csISOLatinArabic }
10748 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10749 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10750 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10751 greek greek8 csISOLatinGreek }
10752 { T.101-G2 iso-ir-128 csISO128T101G2 }
10753 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10754 csISOLatinHebrew }
10755 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10756 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10757 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10758 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10759 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10760 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10761 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10762 csISOLatinCyrillic }
10763 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10764 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10765 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10766 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10767 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10768 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10769 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10770 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10771 { ISO_10367-box iso-ir-155 csISO10367Box }
10772 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10773 { latin-lap lap iso-ir-158 csISO158Lap }
10774 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10775 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10776 { us-dk csUSDK }
10777 { dk-us csDKUS }
10778 { JIS_X0201 X0201 csHalfWidthKatakana }
10779 { KSC5636 ISO646-KR csKSC5636 }
10780 { ISO-10646-UCS-2 csUnicode }
10781 { ISO-10646-UCS-4 csUCS4 }
10782 { DEC-MCS dec csDECMCS }
10783 { hp-roman8 roman8 r8 csHPRoman8 }
10784 { macintosh mac csMacintosh }
10785 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10786 csIBM037 }
10787 { IBM038 EBCDIC-INT cp038 csIBM038 }
10788 { IBM273 CP273 csIBM273 }
10789 { IBM274 EBCDIC-BE CP274 csIBM274 }
10790 { IBM275 EBCDIC-BR cp275 csIBM275 }
10791 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10792 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10793 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10794 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10795 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10796 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10797 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10798 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10799 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10800 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10801 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10802 { IBM437 cp437 437 csPC8CodePage437 }
10803 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10804 { IBM775 cp775 csPC775Baltic }
10805 { IBM850 cp850 850 csPC850Multilingual }
10806 { IBM851 cp851 851 csIBM851 }
10807 { IBM852 cp852 852 csPCp852 }
10808 { IBM855 cp855 855 csIBM855 }
10809 { IBM857 cp857 857 csIBM857 }
10810 { IBM860 cp860 860 csIBM860 }
10811 { IBM861 cp861 861 cp-is csIBM861 }
10812 { IBM862 cp862 862 csPC862LatinHebrew }
10813 { IBM863 cp863 863 csIBM863 }
10814 { IBM864 cp864 csIBM864 }
10815 { IBM865 cp865 865 csIBM865 }
10816 { IBM866 cp866 866 csIBM866 }
10817 { IBM868 CP868 cp-ar csIBM868 }
10818 { IBM869 cp869 869 cp-gr csIBM869 }
10819 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10820 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10821 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10822 { IBM891 cp891 csIBM891 }
10823 { IBM903 cp903 csIBM903 }
10824 { IBM904 cp904 904 csIBBM904 }
10825 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10826 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10827 { IBM1026 CP1026 csIBM1026 }
10828 { EBCDIC-AT-DE csIBMEBCDICATDE }
10829 { EBCDIC-AT-DE-A csEBCDICATDEA }
10830 { EBCDIC-CA-FR csEBCDICCAFR }
10831 { EBCDIC-DK-NO csEBCDICDKNO }
10832 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10833 { EBCDIC-FI-SE csEBCDICFISE }
10834 { EBCDIC-FI-SE-A csEBCDICFISEA }
10835 { EBCDIC-FR csEBCDICFR }
10836 { EBCDIC-IT csEBCDICIT }
10837 { EBCDIC-PT csEBCDICPT }
10838 { EBCDIC-ES csEBCDICES }
10839 { EBCDIC-ES-A csEBCDICESA }
10840 { EBCDIC-ES-S csEBCDICESS }
10841 { EBCDIC-UK csEBCDICUK }
10842 { EBCDIC-US csEBCDICUS }
10843 { UNKNOWN-8BIT csUnknown8BiT }
10844 { MNEMONIC csMnemonic }
10845 { MNEM csMnem }
10846 { VISCII csVISCII }
10847 { VIQR csVIQR }
10848 { KOI8-R csKOI8R }
10849 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10850 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10851 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10852 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10853 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10854 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10855 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10856 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10857 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10858 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10859 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10860 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10861 { IBM1047 IBM-1047 }
10862 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10863 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10864 { UNICODE-1-1 csUnicode11 }
10865 { CESU-8 csCESU-8 }
10866 { BOCU-1 csBOCU-1 }
10867 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10868 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10869 l8 }
10870 { ISO-8859-15 ISO_8859-15 Latin-9 }
10871 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10872 { GBK CP936 MS936 windows-936 }
10873 { JIS_Encoding csJISEncoding }
10874 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10875 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10876 EUC-JP }
10877 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10878 { ISO-10646-UCS-Basic csUnicodeASCII }
10879 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10880 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10881 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10882 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10883 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10884 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10885 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10886 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10887 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10888 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10889 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10890 { Ventura-US csVenturaUS }
10891 { Ventura-International csVenturaInternational }
10892 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10893 { PC8-Turkish csPC8Turkish }
10894 { IBM-Symbols csIBMSymbols }
10895 { IBM-Thai csIBMThai }
10896 { HP-Legal csHPLegal }
10897 { HP-Pi-font csHPPiFont }
10898 { HP-Math8 csHPMath8 }
10899 { Adobe-Symbol-Encoding csHPPSMath }
10900 { HP-DeskTop csHPDesktop }
10901 { Ventura-Math csVenturaMath }
10902 { Microsoft-Publishing csMicrosoftPublishing }
10903 { Windows-31J csWindows31J }
10904 { GB2312 csGB2312 }
10905 { Big5 csBig5 }
10906 }
10908 proc tcl_encoding {enc} {
10909 global encoding_aliases tcl_encoding_cache
10912 }
10913 set names [encoding names]
10918 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10921 }
10922 }
10927 # look through the aliases for one that tcl knows about
10933 }
10934 }
10936 }
10937 break
10938 }
10939 }
10940 set tclenc {}
10943 }
10946 }
10948 proc gitattr {path attr default} {
10949 global path_attr_cache
10952 } else {
10953 set r "unspecified"
10956 }
10958 }
10961 }
10963 }
10965 proc cache_gitattr {attr pathlist} {
10966 global path_attr_cache
10967 set newlist {}
10971 }
10972 }
10973 set lim 1000
10974 if {[tk windowingsystem] == "win32"} {
10975 # windows has a 32k limit on the arguments to a command...
10976 set lim 30
10977 }
10986 }
10988 }
10989 }
10990 }
10991 }
10992 }
10994 proc get_path_encoding {path} {
10995 global gui_encoding perfile_attrs
11001 }
11002 }
11004 }
11006 # First check that Tcl/Tk is recent enough
11007 if {[catch {package require Tk 8.4} err]} {
11008 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11009 Gitk requires at least Tcl/Tk 8.4."]
11010 exit 1
11011 }
11013 # defaults...
11014 set wrcomcmd "git diff-tree --stdin -p --pretty"
11016 set gitencoding {}
11017 catch {
11018 set gitencoding [exec git config --get i18n.commitencoding]
11019 }
11020 catch {
11021 set gitencoding [exec git config --get i18n.logoutputencoding]
11022 }
11024 set gitencoding "utf-8"
11025 }
11029 }
11031 set gui_encoding [encoding system]
11032 catch {
11033 set enc [exec git config --get gui.encoding]
11038 } else {
11040 }
11041 }
11042 }
11044 if {[tk windowingsystem] eq "aqua"} {
11045 set mainfont {{Lucida Grande} 9}
11046 set textfont {Monaco 9}
11047 set uifont {{Lucida Grande} 9 bold}
11048 } else {
11049 set mainfont {Helvetica 9}
11050 set textfont {Courier 9}
11051 set uifont {Helvetica 9 bold}
11052 }
11053 set tabstop 8
11054 set findmergefiles 0
11055 set maxgraphpct 50
11056 set maxwidth 16
11057 set revlistorder 0
11058 set fastdate 0
11059 set uparrowlen 5
11060 set downarrowlen 5
11061 set mingaplen 100
11062 set cmitmode "patch"
11063 set wrapcomment "none"
11064 set showneartags 1
11065 set hideremotes 0
11066 set maxrefs 20
11067 set maxlinelen 200
11068 set showlocalchanges 1
11069 set limitdiffs 1
11070 set datetimeformat "%Y-%m-%d %H:%M:%S"
11071 set autoselect 1
11072 set perfile_attrs 0
11074 if {[tk windowingsystem] eq "aqua"} {
11075 set extdifftool "opendiff"
11076 } else {
11077 set extdifftool "meld"
11078 }
11080 set colors {green red blue magenta darkgrey brown orange}
11081 set bgcolor white
11082 set fgcolor black
11083 set diffcolors {red "#00a000" blue}
11084 set diffcontext 3
11085 set ignorespace 0
11086 set selectbgcolor gray85
11087 set markbgcolor "#e0e0ff"
11089 set circlecolors {white blue gray blue blue}
11091 # button for popping up context menus
11092 if {[tk windowingsystem] eq "aqua"} {
11093 set ctxbut <Button-2>
11094 } else {
11095 set ctxbut <Button-3>
11096 }
11098 ## For msgcat loading, first locate the installation location.
11099 if { [info exists ::env(GITK_MSGSDIR)] } {
11100 ## Msgsdir was manually set in the environment.
11101 set gitk_msgsdir $::env(GITK_MSGSDIR)
11102 } else {
11103 ## Let's guess the prefix from argv0.
11107 unset gitk_prefix
11108 }
11110 ## Internationalization (i18n) through msgcat and gettext. See
11111 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11112 package require msgcat
11113 namespace import ::msgcat::mc
11114 ## And eventually load the actual message catalog
11117 catch {source ~/.gitk}
11119 font create optionfont -family sans-serif -size -12
11122 eval font create mainfont [fontflags mainfont]
11123 eval font create mainfontbold [fontflags mainfont 1]
11126 eval font create textfont [fontflags textfont]
11127 eval font create textfontbold [fontflags textfont 1]
11130 eval font create uifont [fontflags uifont]
11132 setoptions
11134 # check that we can find a .git directory somewhere...
11135 if {[catch {set gitdir [gitdir]}]} {
11136 show_error {} . [mc "Cannot find a git repository here."]
11137 exit 1
11138 }
11141 exit 1
11142 }
11144 set selecthead {}
11145 set selectheadid {}
11147 set revtreeargs {}
11148 set cmdline_files {}
11149 set i 0
11150 set revtreeargscmd {}
11153 "" { }
11154 "--" {
11156 break
11157 }
11158 "--select-commit=*" {
11160 }
11161 "--argscmd=*" {
11163 }
11164 default {
11166 }
11167 }
11168 incr i
11169 }
11172 set selecthead {}
11173 }
11176 # no -- on command line, but some arguments (other than --argscmd)
11177 if {[catch {
11182 # Unfortunately git rev-parse doesn't produce an error when
11183 # something is both a revision and a filename. To be consistent
11184 # with git log and git rev-list, check revtreeargs for filenames.
11187 show_error {} . [mc "Ambiguous argument '%s': both revision\
11189 exit 1
11190 }
11191 }
11192 } err]} {
11194 # so look for "fatal:".
11198 }
11200 exit 1
11201 }
11202 }
11204 set nullid "0000000000000000000000000000000000000000"
11205 set nullid2 "0000000000000000000000000000000000000001"
11206 set nullfile "/dev/null"
11209 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11211 set runq {}
11212 set history {}
11213 set historyindex 0
11214 set fh_serial 0
11215 set nhl_names {}
11216 set highlight_paths {}
11217 set findpattern {}
11218 set searchdirn -forwards
11219 set boldids {}
11220 set boldnameids {}
11221 set diffelide {0 0}
11222 set markingmatches 0
11223 set linkentercount 0
11224 set need_redisplay 0
11225 set nrows_drawn 0
11226 set firsttabstop 0
11228 set nextviewnum 1
11229 set curview 0
11230 set selectedview 0
11231 set selectedhlview [mc "None"]
11232 set highlight_related [mc "None"]
11233 set highlight_files {}
11234 set viewfiles(0) {}
11235 set viewperm(0) 0
11236 set viewargs(0) {}
11237 set viewargscmd(0) {}
11239 set selectedline {}
11240 set numcommits 0
11241 set loginstance 0
11242 set cmdlineok 0
11243 set stopped 0
11244 set stuffsaved 0
11245 set patchnum 0
11246 set lserial 0
11247 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11248 setcoords
11249 makewindow
11250 catch {
11251 image create photo gitlogo -width 16 -height 16
11253 image create photo gitlogominus -width 4 -height 2
11254 gitlogominus put #C00000 -to 0 0 4 2
11255 gitlogo copy gitlogominus -to 1 5
11256 gitlogo copy gitlogominus -to 6 5
11257 gitlogo copy gitlogominus -to 11 5
11258 image delete gitlogominus
11260 image create photo gitlogoplus -width 4 -height 4
11261 gitlogoplus put #008000 -to 1 0 3 4
11262 gitlogoplus put #008000 -to 0 1 4 3
11263 gitlogo copy gitlogoplus -to 1 9
11264 gitlogo copy gitlogoplus -to 6 9
11265 gitlogo copy gitlogoplus -to 11 9
11266 image delete gitlogoplus
11268 image create photo gitlogo32 -width 32 -height 32
11269 gitlogo32 copy gitlogo -zoom 2 2
11271 wm iconphoto . -default gitlogo gitlogo32
11272 }
11273 # wait for the window to become visible
11274 tkwait visibility .
11276 update
11277 readrefs
11280 # create a view for the files/dirs specified on the command line
11281 set curview 1
11282 set selectedview 1
11283 set nextviewnum 2
11284 set viewname(1) [mc "Command line"]
11288 set viewperm(1) 0
11289 set vdatemode(1) 0
11290 addviewmenu 1
11291 .bar.view entryconf [mca "Edit view..."] -state normal
11292 .bar.view entryconf [mca "Delete view"] -state normal
11293 }
11295 if {[info exists permviews]} {
11298 incr nextviewnum
11305 }
11306 }
11308 if {[tk windowingsystem] eq "win32"} {
11309 focus -force .
11310 }
11312 getcommits {}