| blob | 18553904f8217848804be99f08237190eddeb7cf |
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 }
191 # These mean that we get a subset of the commits
193 lappend glflags $arg
194 }
196 # This appears to be the only one that has a value as a
197 # separate word following it
200 lappend glflags $arg
201 }
203 lappend revargs $arg
204 }
207 # git rev-parse doesn't understand --merge
208 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
209 }
211 # Other flag arguments including -<n>
215 # a flag argument that we don't recognize;
216 # that means we can't optimize
218 }
219 lappend glflags $arg
220 }
221 default {
222 # Non-flag arguments specify commits or ranges of commits
224 lappend revargs --gitk-symmetric-diff-marker
225 }
226 lappend revargs $arg
227 }
228 }
229 }
236 }
239 global vposids vnegids
242 set revs HEAD
243 }
245 # we get stdout followed by stderr in $err
246 # for an unknown rev, git rev-parse echoes it and then errors out
259 }
262 }
263 break
264 }
265 lappend badrev $line
266 }
267 }
270 }
280 lappend ret $id
283 }
284 }
288 lappend ret $id
291 }
292 lappend pos $id
293 }
294 incr sdm -1
295 }
299 }
301 # Start off a git log process and arrange to read its output
303 global startmsecs commitidx viewcomplete curview
304 global tclencoding
305 global viewargs viewargscmd viewfiles vfilelimit
306 global showlocalchanges
307 global viewactive viewinstances vmergeonly
308 global mainheadid viewmainheadid viewmainheadid_orig
309 global vcanopt vflags vrevs vorigargs
313 # these are set this way for the error exits
316 varcinit $view
325 }
327 }
334 global nr_unmerged
341 }
343 }
344 }
351 }
355 }
363 }
369 get_viewmainhead $view
370 }
373 }
377 }
383 }
386 global commfd leftover
389 catch {
396 }
397 }
399 nukefile $fd
402 }
404 proc stop_backends {} {
405 global commfd
408 stop_instance $inst
409 }
410 }
413 global viewinstances
416 stop_instance $inst
417 }
419 }
422 global pending_select mainheadid selectheadid
430 }
431 }
434 global canv curview need_redisplay viewactive
436 initlayout
438 reset_pending_select $selid
443 }
444 }
446 proc updatecommits {} {
447 global curview vcanopt vorigargs vfilelimit viewinstances
448 global viewactive viewcomplete tclencoding
449 global startmsecs showneartags showlocalchanges
450 global mainheadid viewmainheadid viewmainheadid_orig pending_select
451 global isworktree
452 global varcid vposids vnegids vflags vrevs
455 rereadrefs
459 dohidelocalchanges
460 }
464 get_viewmainhead $view
465 }
466 }
468 doshowlocalchanges
469 }
475 return
476 }
477 # note: getting the delta when negative refs change is hard,
478 # and could require multiple git log invocations, so in that
479 # case we ask git log for all the commits (not just the delta)
483 # take out positive refs that we asked for before or
484 # that we have already seen
489 lappend newrevs $rev
490 incr npos
491 }
493 lappend $newrevs $rev
494 }
495 }
499 }
503 }
509 return
510 }
513 }
519 }
523 reset_pending_select {}
526 getallcommits
527 }
528 }
530 proc reloadcommits {} {
531 global curview viewcomplete selectedline currentid thickerline
532 global showneartags treediffs commitinterest cached_commitrow
533 global targetid
538 }
541 stop_rev_list $curview
542 }
543 resetvarcs $curview
548 readrefs
549 changedrefs
551 getallcommits
552 }
553 clear_display
557 setcanvscroll
558 getcommits $selid
560 }
562 # This makes a string representation of a positive integer which
563 # sorts as a string in numerical order
571 }
573 }
575 # Procedures used in reordering commits from git log (without
576 # --topo-order) into the order for display.
579 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
580 global vtokmod varcmod vrowmod varcix vlastins
594 }
597 global varcid varccommits parents children vseedcount ordertok
603 }
604 # some commits might have children but haven't been seen yet
607 }
610 }
613 }
615 }
617 # returns a list of the commits with no children
619 global vdownptr vleftptr varcstart
626 }
628 }
631 global varcid varctok parents children vdatemode
632 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
633 global commitdata commitinfo vseedcount varccommits vlastins
640 }
644 }
647 }
653 }
662 }
663 }
668 }
675 }
679 }
686 }
692 }
701 }
704 global varcid varcstart varccommits varctok vtokmod
705 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
713 # "%" sorts before "0"...
723 }
733 }
735 modify_arc $v $oa
736 }
737 }
740 global parents children varctok varcstart varccommits
741 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
750 lappend todo $a
755 }
756 }
757 }
758 incr ntot
765 }
766 }
768 }
775 }
781 }
790 }
791 }
796 }
798 continue
799 }
806 }
807 }
812 modify_arc $v $ka
813 }
815 modify_arc $v $b
816 }
823 }
826 }
829 }
838 }
843 }
850 }
854 }
856 }
857 }
862 }
863 }
865 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
866 }
868 # Fix up the graph after we have found out that in view $v,
869 # $p (a commit that we have already seen) is actually the parent
870 # of the last commit in arc $a.
872 global varcid varcstart varctok vupptr
876 splitvarc $p $v
878 }
879 # seeds always need to be renumbered
883 renumbervarc $pa $v
884 }
885 }
888 global cmitlisted children parents varcid varctok vtokmod
889 global varccommits ordertok commitidx numcommits curview
890 global targetid targetrow
892 readcommit $id
900 modify_arc $v $a
901 }
907 }
908 fix_reversal $p $a $v
912 setcanvscroll
915 incr targetrow
916 }
917 }
918 }
919 }
922 global varcid varccommits parents children cmitlisted
923 global commitidx varctok vtokmod targetid targetrow curview numcommits
930 return
931 }
938 # note we deliberately don't update varcstart($v) even if $i == 0
940 modify_arc $v $a $i
943 incr targetrow
944 }
945 }
946 setcanvscroll
947 drawvisible
948 }
951 global varcid varccommits parents children commitidx
952 global varctok vtokmod cmitlisted currentid selectedline
953 global targetid curview numcommits
958 return
959 }
965 return
966 }
976 }
977 modify_arc $v $a $i
979 unset currentid
981 }
984 }
985 setcanvscroll
986 drawvisible
987 }
990 global children nullid nullid2
995 }
996 }
998 }
1001 global children nullid nullid2
1008 }
1009 }
1011 }
1014 global varctok varcid
1018 }
1020 # This assumes that if lim is not given, the caller has checked that
1021 # arc a's token is less than $vtokmod($v)
1023 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1031 }
1032 }
1039 }
1044 }
1046 }
1048 undolayout $r
1049 }
1050 }
1053 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1054 global varcid vrownum varcorder varcix varccommits
1055 global vupptr vdownptr vleftptr varctok
1056 global displayorder parentlist curview cached_commitrow
1063 }
1065 }
1069 # go up the tree until we find something that has a row number,
1070 # or we get to a seed
1072 }
1087 }
1089 }
1093 # go down if possible
1096 # if not, go left, or go up until we can go left
1101 }
1103 }
1105 incr arcn
1110 }
1116 }
1117 }
1119 # Test whether view $v contains commit $id
1121 global varcid
1124 }
1126 # Return the row number for commit $id in the current view
1128 global varcid varccommits varcrow curview cached_commitrow
1129 global varctok vtokmod
1135 }
1138 update_arcrows $v
1139 }
1142 }
1147 }
1151 }
1153 # Returns 1 if a is on an earlier row than b, otherwise 0
1155 global varcid varctok curview
1161 }
1165 }
1167 }
1172 }
1184 }
1185 }
1187 }
1189 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1191 global vrownum curview commitidx displayorder parentlist
1192 global varccommits varcorder parents vrowmod varcrow
1193 global d_valid_start d_valid_end
1196 update_arcrows $curview
1197 }
1213 }
1215 lappend displayorder $id
1217 }
1221 lset displayorder $i $id
1223 incr i
1224 }
1225 }
1226 incr r $al
1227 }
1228 }
1231 global displayorder
1237 }
1239 }
1242 global varctok varccommits varcid parents children
1243 global cmitlisted commitidx vtokmod
1252 # add p as a new commit
1253 incr missing_parents
1261 }
1264 modify_arc $v $b
1265 }
1269 }
1270 }
1274 }
1275 }
1276 }
1278 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1279 # Assumes we already have an arc for $rwid.
1281 global children parents varcid varctok vtokmod varccommits
1284 # make $rwid be $ch's parent in place of $id
1288 }
1290 # add $ch to $rwid's children and sort the list if necessary
1294 }
1295 # fix the graph after joining $id to $rwid
1297 fix_reversal $rwid $a $v
1298 # parentlist is wrong for the last element of arc $a
1299 # even if displayorder is right, hence the 3rd arg here
1301 }
1302 }
1304 # Mechanism for registering a command to be executed when we come
1305 # across a particular commit. To handle the case when only the
1306 # prefix of the commit is known, the commitinterest array is now
1307 # indexed by the first 4 characters of the ID. Each element is a
1308 # list of id, cmd pairs.
1310 global commitinterest
1313 }
1316 global commitinterest
1325 lappend newlist $i $script
1326 }
1327 }
1332 }
1333 }
1335 }
1338 global cmitlisted leftover
1339 global commitidx commitdata vdatemode
1340 global parents children curview hlview
1341 global idpending ordertok
1342 global varccommits varcid varctok vtokmod vfilelimit
1345 # git log doesn't terminate the last commit with a null...
1348 }
1352 }
1353 global commfd viewcomplete viewactive viewname
1354 global viewinstances
1359 }
1360 # set it blocking so we wait for the process to terminate
1366 }
1369 bad arguments to git log."
1371 append err \
1372 " (Note: arguments to gitk are passed to git log\
1373 to allow selection of commits to be displayed.)"
1374 }
1377 }
1378 error_popup $err
1379 }
1382 # Check if we have seen any ids listed as parents that haven't
1383 # appeared in the list
1384 closevarcs $view
1385 notbusy $view
1386 }
1388 run chewcommits
1389 }
1391 }
1399 break
1400 }
1407 }
1420 }
1422 }
1427 break
1428 }
1429 }
1430 }
1435 }
1437 exit 1
1438 }
1445 # when doing path limiting, so work around that here
1446 # by working out the rewritten parent with git rev-list
1447 # and if we already know about it, using the rewritten
1448 # parent as a substitute parent for $id's children.
1452 }]} {
1454 # use $rwid in place of $id
1455 rewrite_commit $view $id $rwid
1456 continue
1457 }
1458 }
1459 }
1465 }
1470 }
1482 }
1483 }
1485 # new arc
1487 }
1489 modify_arc $view $a
1490 }
1495 }
1506 }
1508 fix_reversal $p $a $view
1509 }
1510 }
1511 incr i
1512 }
1516 }
1518 global numcommits hlview
1522 run chewcommits
1523 }
1525 # we never actually get here...
1526 run vhighlightmore
1527 }
1530 }
1531 }
1533 }
1535 proc chewcommits {} {
1536 global curview hlview viewcomplete
1537 global pending_select
1539 layoutmore
1541 global commitidx varctok
1542 global numcommits startmsecs
1545 update
1546 reset_pending_select {}
1553 }
1554 }
1556 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1557 #puts "overall $ms ms for $numcommits commits"
1558 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1561 }
1562 notbusy layout
1563 }
1565 }
1568 global tclencoding
1570 # Invoke git-log to handle automatic encoding conversion
1572 # Read the results using i18n.logoutputencoding
1576 }
1578 close $fd
1579 # Remove the heading line
1583 }
1588 }
1591 global commitinfo cdate
1602 # should never happen...
1604 }
1616 }
1617 }
1619 # take the first non-blank line of the comment as the headline
1624 }
1629 }
1631 # git log indents the comment by 4 spaces;
1632 # if we got this via git cat-file, add the indentation
1635 append newcomment " "
1636 append newcomment $line
1638 }
1640 }
1643 }
1646 }
1649 global commitdata commitinfo
1654 readcommit $id
1657 }
1658 }
1660 }
1662 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1663 # and are present in the current view.
1664 # This is fairly slow...
1666 global varcid curview
1671 }
1673 }
1675 proc readrefs {} {
1676 global tagids idtags headids idheads tagobjid
1677 global otherrefids idotherrefs mainhead mainheadid
1678 global selecthead selectheadid
1682 }
1694 }
1700 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1701 # which is what we want since the former is the commit ID
1707 }
1713 }
1714 }
1718 catch {
1723 }
1724 }
1727 catch {
1729 }
1730 }
1731 }
1733 # skip over fake commits
1734 proc first_real_row {} {
1735 global nullid nullid2 numcommits
1740 break
1741 }
1742 }
1744 }
1746 # update things for a head moved to a child of its previous location
1748 global headids idheads
1753 }
1755 # update things when a head has been removed
1757 global headids idheads
1765 }
1766 }
1768 }
1771 global have_tk85
1773 # In MacOS Tk 8.4 transient appears to work by setting
1774 # overrideredirect, which is utterly useless, since the
1775 # windows get no border, and are not even kept above
1776 # the parent.
1779 wm transient $window $origin
1781 # Windows fails to place transient windows normally, so
1782 # schedule a callback to center them on the parent.
1785 }
1786 }
1797 tkwait window $top
1798 }
1801 set w .error
1802 toplevel $w
1803 make_transient $w $owner
1804 show_error $w $w $msg
1805 }
1808 global confirm_ok
1810 set w .confirm
1811 toplevel $w
1812 make_transient $w $owner
1823 tkwait window $w
1825 }
1827 proc setoptions {} {
1829 option add *Panedwindow.sashRelief raised startupFile
1830 option add *Button.font uifont startupFile
1831 option add *Checkbutton.font uifont startupFile
1832 option add *Radiobutton.font uifont startupFile
1834 option add *Menu.font uifont startupFile
1835 }
1836 option add *Menubutton.font uifont startupFile
1837 option add *Label.font uifont startupFile
1838 option add *Message.font uifont startupFile
1839 option add *Entry.font uifont startupFile
1840 }
1842 # Make a menu and submenus.
1843 # m is the window name for the menu, items is the list of menu items to add.
1844 # Each item is a list {mc label type description options...}
1845 # mc is ignored; it's so we can put mc there to alert xgettext
1846 # label is the string that appears in the menu
1847 # type is cascade, command or radiobutton (should add checkbutton)
1848 # description depends on type; it's the sublist for cascade, the
1849 # command to invoke for command, or {variable value} for radiobutton
1851 menu $m
1853 set Meta1 Cmd
1855 set Meta1 Ctrl
1856 }
1867 }
1868 }
1873 }
1876 }
1880 }
1881 }
1887 }
1888 }
1889 }
1891 # translate string and remove ampersands
1894 }
1896 proc makewindow {} {
1897 global canv canv2 canv3 linespc charspc ctext cflist cscroll
1898 global tabstop
1899 global findtype findtypemenu findloc findstring fstring geometry
1900 global entries sha1entry sha1string sha1but
1901 global diffcontextstring diffcontext
1902 global ignorespace
1903 global maincursor textcursor curtextcursor
1904 global rowctxmenu fakerowmenu mergemax wrapcomment
1905 global highlight_files gdttype
1906 global searchstring sstring
1907 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
1908 global headctxmenu progresscanv progressitem progresscoords statusw
1909 global fprogitem fprogcoord lastprogupdate progupdatepending
1910 global rprogitem rprogcoord rownumsel numcommits
1911 global have_tk85
1913 # The "mc" arguments here are purely so that xgettext
1914 # sees the following string as needing to be translated
1925 }}
1929 }}
1937 }}
1943 }}
1953 }}
1957 }}
1959 }
1960 makemenu .bar $bar
1961 . configure -menu .bar
1963 # the gui has upper and lower half, parts of a paned window.
1964 panedwindow .ctop -orient vertical
1966 # possibly use assumed geometry
1974 }
1976 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
1978 frame .tf.histframe
1981 # create three canvases
1982 set cscroll .tf.histframe.csb
1983 set canv .tf.histframe.pwclist.canv
1984 canvas $canv \
1988 .tf.histframe.pwclist add $canv
1989 set canv2 .tf.histframe.pwclist.canv2
1990 canvas $canv2 \
1993 .tf.histframe.pwclist add $canv2
1994 set canv3 .tf.histframe.pwclist.canv3
1995 canvas $canv3 \
1998 .tf.histframe.pwclist add $canv3
2002 # a scroll bar to rule them
2006 lappend bglist $canv $canv2 $canv3
2009 # we have two button bars at bottom of top frame. Bar 1
2010 frame .tf.bar
2013 set sha1entry .tf.bar.sha1
2015 set sha1but .tf.bar.sha1label
2019 pack .tf.bar.sha1label -side left
2021 trace add variable sha1string write sha1change
2025 #define left_width 16
2026 #define left_height 16
2027 static unsigned char left_bits[] = {
2031 }
2033 #define right_width 16
2034 #define right_height 16
2035 static unsigned char right_bits[] = {
2039 }
2054 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2055 -side left
2056 global selectedline
2057 trace add variable selectedline write selectedline_change
2059 # Status label and progress bar
2060 set statusw .tf.bar.status
2064 set progresscanv .tf.bar.progress
2077 # build up the bottom bar of upper window
2082 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2089 trace add variable gdttype write gdttype_change
2093 set fstring .tf.lbar.findstring
2094 lappend entries $fstring
2096 trace add variable findstring write find_change
2100 trace add variable findtype write findcom_change
2104 trace add variable findloc write find_change
2105 pack .tf.lbar.findloc -side right
2106 pack .tf.lbar.findtype -side right
2109 # Finish putting the upper half of the viewer together
2113 .ctop add .tf
2117 # now build up the bottom
2118 panedwindow .pwbottom -orient horizontal
2120 # lower left, a text box over search bar, scroll bar to the right
2121 # if we know window height, then that will set the lower text height, otherwise
2122 # we set lower text height which will drive window height
2127 }
2128 frame .bleft.top
2129 frame .bleft.mid
2130 frame .bleft.bottom
2134 set sstring .bleft.top.sstring
2136 lappend entries $sstring
2137 trace add variable searchstring write incrsearch
2150 -textvariable diffcontextstring
2152 trace add variable diffcontextstring write diffcontextchange
2153 lappend entries .bleft.mid.diffcontext
2154 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2158 set ctext .bleft.bottom.ctext
2165 }
2172 grid .bleft.bottom.sbhorizontal -sticky ew
2177 lappend bglist $ctext
2178 lappend fglist $ctext
2207 .pwbottom add .bleft
2210 # lower right
2211 frame .bright
2212 frame .bright.mode
2219 set cflist .bright.cfiles
2221 text $cflist \
2224 -font mainfont \
2229 lappend bglist $cflist
2230 lappend fglist $cflist
2234 $cflist tag configure highlight \
2238 .pwbottom add .bright
2239 .ctop add .pwbottom
2241 # restore window width & height if known
2246 }
2249 }
2251 }
2252 }
2256 }
2259 set M1B M1
2262 set M1B Control
2264 }
2269 #bindall <B1-Motion> {selcanvline %W %x %y}
2279 allcanvs yview scroll $delta units
2280 }
2284 }
2285 }
2286 }
2308 bindkey p "selnextline -1"
2309 bindkey n "selnextline 1"
2310 bindkey z "goback"
2311 bindkey x "goforw"
2312 bindkey i "selnextline -1"
2313 bindkey k "selnextline 1"
2314 bindkey j "goback"
2315 bindkey l "goforw"
2316 bindkey b prevfile
2323 bindkey f nextfile
2340 wm protocol . WM_DELETE_WINDOW doquit
2349 global ctxbut
2353 set maincursor [. cget -cursor]
2357 set rowctxmenu .rowctxmenu
2359 {mc "Diff this -> selected" command {diffvssel 0}}
2360 {mc "Diff selected -> this" command {diffvssel 1}}
2361 {mc "Make patch" command mkpatch}
2362 {mc "Create tag" command mktag}
2363 {mc "Write commit to file" command writecommit}
2364 {mc "Create new branch" command mkbranch}
2365 {mc "Cherry-pick this commit" command cherrypick}
2366 {mc "Reset HEAD branch to here" command resethead}
2367 {mc "Mark this commit" command markhere}
2368 {mc "Return to mark" command gotomark}
2369 {mc "Find descendant of this and mark" command find_common_desc}
2370 {mc "Compare with marked commit" command compare_commits}
2371 }
2374 set fakerowmenu .fakerowmenu
2376 {mc "Diff this -> selected" command {diffvssel 0}}
2377 {mc "Diff selected -> this" command {diffvssel 1}}
2378 {mc "Make patch" command mkpatch}
2379 }
2382 set headctxmenu .headctxmenu
2384 {mc "Check out this branch" command cobranch}
2385 {mc "Remove this branch" command rmbranch}
2386 }
2389 global flist_menu
2390 set flist_menu .flistctxmenu
2392 {mc "Highlight this too" command {flist_hl 0}}
2393 {mc "Highlight this only" command {flist_hl 1}}
2394 {mc "External diff" command {external_diff}}
2395 {mc "Blame parent commit" command {external_blame 1}}
2396 }
2399 global diff_menu
2400 set diff_menu .diffctxmenu
2402 {mc "Show origin of this line" command show_line_source}
2403 {mc "Run git gui blame on this line" command {external_blame_diff}}
2404 }
2406 }
2408 # Windows sends all mouse wheel events to the current focused window, not
2409 # the one where the mouse hovers, so bind those events here and redirect
2410 # to the correct window
2411 proc windows_mousewheel_redirector {W X Y D} {
2412 global canv canv2 canv3
2418 } else {
2419 catch {
2421 }
2422 }
2423 }
2424 }
2426 # Update row number label when selectedline changes
2427 proc selectedline_change {n1 n2 op} {
2428 global selectedline rownumsel
2431 set rownumsel {}
2432 } else {
2434 }
2435 }
2437 # mouse-2 makes all windows scan vertically, but only the one
2438 # the cursor is in scans horizontally
2439 proc canvscan {op w x y} {
2440 global canv canv2 canv3
2444 } else {
2446 }
2447 }
2448 }
2450 proc scrollcanv {cscroll f0 f1} {
2452 drawvisible
2453 flushhighlights
2454 }
2456 # when we make a key binding for the toplevel, make sure
2457 # it doesn't get triggered when that key is pressed in the
2458 # find string entry widget.
2459 proc bindkey {ev script} {
2460 global entries
2464 set escript [bind Entry <Key>]
2465 }
2468 }
2469 }
2471 # set the focus back to the toplevel for any click outside
2472 # the entry widgets
2473 proc click {w} {
2474 global ctext entries
2477 }
2478 focus .
2479 }
2481 # Adjust the progress bar for a change in requested extent or canvas size
2482 proc adjustprogress {} {
2483 global progresscanv progressitem progresscoords
2484 global fprogitem fprogcoord lastprogupdate progupdatepending
2485 global rprogitem rprogcoord
2494 set now [clock clicks -milliseconds]
2496 set progupdatepending 0
2497 update
2499 set progupdatepending 1
2501 }
2502 }
2504 proc doprogupdate {} {
2505 global lastprogupdate progupdatepending
2508 set progupdatepending 0
2509 set lastprogupdate [clock clicks -milliseconds]
2510 update
2511 }
2512 }
2514 proc savestuff {w} {
2515 global canv canv2 canv3 mainfont textfont uifont tabstop
2516 global stuffsaved findmergefiles maxgraphpct
2517 global maxwidth showneartags showlocalchanges
2518 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2519 global cmitmode wrapcomment datetimeformat limitdiffs
2520 global colors bgcolor fgcolor diffcolors diffcontext selectbgcolor
2521 global autoselect extdifftool perfile_attrs markbgcolor
2524 if {![winfo viewable .]} return
2525 catch {
2526 set f [open "~/.gitk-new" w]
2527 if {$::tcl_platform(platform) eq {windows}} {
2528 file attributes "~/.gitk-new" -hidden true
2529 }
2567 }
2568 }
2571 file rename -force "~/.gitk-new" "~/.gitk"
2572 }
2573 set stuffsaved 1
2574 }
2576 proc resizeclistpanes {win w} {
2577 global oldwidth
2584 } else {
2589 set sash0 30
2590 }
2593 }
2598 }
2599 }
2600 }
2603 }
2605 }
2607 proc resizecdetpanes {win w} {
2608 global oldwidth
2613 } else {
2617 set sash0 45
2618 }
2621 }
2622 }
2624 }
2626 }
2628 proc allcanvs args {
2629 global canv canv2 canv3
2633 }
2635 proc bindall {event action} {
2636 global canv canv2 canv3
2640 }
2642 proc about {} {
2643 global uifont
2644 set w .about
2647 return
2648 }
2653 Gitk - a commit viewer for git
2655 Copyright © 2005-2008 Paul Mackerras
2657 Use and redistribute under the terms of the GNU General Public License"] \
2658 -justify center -aspect 400 -border 2 -bg white -relief groove
2665 }
2667 proc keys {} {
2668 set w .keys
2671 return
2672 }
2673 if {[tk windowingsystem] eq {aqua}} {
2674 set M1T Cmd
2675 } else {
2676 set M1T Ctrl
2677 }
2682 [mc "Gitk key bindings:"]
2685 [mc "<Home> Move to first commit"]
2686 [mc "<End> Move to last commit"]
2687 [mc "<Up>, p, i Move up one commit"]
2688 [mc "<Down>, n, k Move down one commit"]
2689 [mc "<Left>, z, j Go back in history list"]
2690 [mc "<Right>, x, l Go forward in history list"]
2691 [mc "<PageUp> Move up one page in commit list"]
2692 [mc "<PageDown> Move down one page in commit list"]
2699 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
2700 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
2701 [mc "<Delete>, b Scroll diff view up one page"]
2702 [mc "<Backspace> Scroll diff view up one page"]
2703 [mc "<Space> Scroll diff view down one page"]
2704 [mc "u Scroll diff view up 18 lines"]
2705 [mc "d Scroll diff view down 18 lines"]
2708 [mc "<Return> Move to next find hit"]
2709 [mc "/ Focus the search box"]
2710 [mc "? Move to previous find hit"]
2711 [mc "f Scroll diff view to next file"]
2718 [mc "<F5> Update"]
2719 " \
2720 -justify left -bg white -border 2 -relief groove
2728 }
2730 # Procedures for manipulating the file list window at the
2731 # bottom right of the overall window.
2733 proc treeview {w l openlevs} {
2734 global treecontents treediropen treeheight treeparent treeindex
2736 set ix 0
2737 set treeindex() 0
2738 set lev 0
2739 set prefix {}
2740 set prefixend -1
2741 set prefendstack {}
2742 set htstack {}
2743 set ht 0
2744 set treecontents() {}
2751 }
2758 incr lev -1
2759 }
2763 set ht 0
2775 set ht 1
2780 set str "\n"
2788 }
2789 incr lev
2790 }
2793 incr ht
2794 set str "\n"
2798 }
2800 }
2801 }
2809 }
2811 }
2813 proc linetoelt {l} {
2814 global treeheight treecontents
2816 set y 2
2817 set prefix {}
2818 while {1} {
2822 }
2823 set n 1
2828 incr y
2829 break
2830 }
2831 }
2833 }
2834 }
2835 }
2837 proc highlight_tree {y prefix} {
2838 global treeheight treecontents cflist
2844 }
2845 incr y
2848 }
2849 }
2851 }
2853 proc treeclosedir {w dir} {
2854 global treediropen treeheight treeparent treeindex
2866 }
2867 }
2869 proc treeopendir {w dir} {
2870 global treediropen treeheight treeparent treecontents treeindex
2877 set lev 0
2878 set str "\n"
2881 incr lev
2882 append str "\t"
2884 }
2899 } else {
2902 }
2903 }
2916 }
2918 }
2919 }
2921 proc treeclick {w x y} {
2922 global treediropen cmitmode ctext cflist cflist_top
2925 if {![info exists cflist_top]} return
2932 return
2933 }
2939 } else {
2941 }
2942 }
2944 proc setfilelist {id} {
2945 global treefilelist cflist jump_to_here
2952 }
2953 }
2954 }
2956 image create bitmap tri-rt -background black -foreground blue -data {
2957 #define tri-rt_width 13
2958 #define tri-rt_height 13
2959 static unsigned char tri-rt_bits[] = {
2960 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
2961 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
2962 0x00, 0x00};
2963 } -maskdata {
2964 #define tri-rt-mask_width 13
2965 #define tri-rt-mask_height 13
2966 static unsigned char tri-rt-mask_bits[] = {
2967 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
2968 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
2969 0x08, 0x00};
2970 }
2971 image create bitmap tri-dn -background black -foreground blue -data {
2972 #define tri-dn_width 13
2973 #define tri-dn_height 13
2974 static unsigned char tri-dn_bits[] = {
2975 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
2976 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2977 0x00, 0x00};
2978 } -maskdata {
2979 #define tri-dn-mask_width 13
2980 #define tri-dn-mask_height 13
2981 static unsigned char tri-dn-mask_bits[] = {
2982 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
2983 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
2984 0x00, 0x00};
2985 }
2987 image create bitmap reficon-T -background black -foreground yellow -data {
2988 #define tagicon_width 13
2989 #define tagicon_height 9
2990 static unsigned char tagicon_bits[] = {
2991 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
2992 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
2993 } -maskdata {
2994 #define tagicon-mask_width 13
2995 #define tagicon-mask_height 9
2996 static unsigned char tagicon-mask_bits[] = {
2997 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
2998 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
2999 }
3000 set rectdata {
3001 #define headicon_width 13
3002 #define headicon_height 9
3003 static unsigned char headicon_bits[] = {
3004 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3005 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3006 }
3007 set rectmask {
3008 #define headicon-mask_width 13
3009 #define headicon-mask_height 9
3010 static unsigned char headicon-mask_bits[] = {
3011 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3012 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3013 }
3014 image create bitmap reficon-H -background black -foreground green \
3016 image create bitmap reficon-o -background black -foreground "#ddddff" \
3019 proc init_flist {first} {
3020 global cflist cflist_top difffilestart
3026 set cflist_top 1
3028 } else {
3029 catch {unset cflist_top}
3030 }
3032 set difffilestart {}
3033 }
3035 proc highlight_tag {f} {
3036 global highlight_paths
3040 return "bold"
3041 }
3042 }
3043 return {}
3044 }
3046 proc highlight_filelist {} {
3047 global cmitmode cflist
3056 }
3057 }
3058 } else {
3059 highlight_tree 2 {}
3060 }
3062 }
3064 proc unhighlight_filelist {} {
3065 global cflist
3070 }
3072 proc add_flist {fl} {
3073 global cflist
3079 }
3081 }
3083 proc sel_flist {w x y} {
3084 global ctext difffilestart cflist cflist_top cmitmode
3087 if {![info exists cflist_top]} return
3094 } else {
3096 }
3097 }
3099 proc pop_flist_menu {w X Y x y} {
3100 global ctext cflist cmitmode flist_menu flist_menu_file
3101 global treediffs diffids
3103 stopfinding
3109 } else {
3111 }
3113 set xdiffstate "normal"
3115 set xdiffstate "disabled"
3116 }
3117 # Disable "External diff" item in tree mode
3120 }
3122 proc find_ctext_fileinfo {line} {
3123 global ctext_file_names ctext_file_lines
3129 return {}
3130 } else {
3132 }
3133 }
3135 proc pop_diff_menu {w X Y x y} {
3136 global ctext diff_menu flist_menu_file
3137 global diff_menu_txtpos diff_menu_line
3138 global diff_menu_filebase
3142 # don't pop up the menu on hunk-separator or file-separator lines
3144 return
3145 }
3146 stopfinding
3152 }
3154 proc flist_hl {only} {
3155 global flist_menu_file findstring gdttype
3160 } else {
3162 }
3163 set gdttype [mc "touching paths:"]
3164 }
3166 proc save_file_from_commit {filename output what} {
3167 global nullfile
3172 }
3174 return {}
3175 }
3177 }
3179 proc external_diff_get_one_file {diffid filename diffdir} {
3180 global nullid nullid2 nullfile
3181 global gitdir
3187 }
3189 }
3193 }
3197 }
3199 proc external_diff {} {
3200 global gitktmpdir nullid nullid2
3201 global flist_menu_file
3202 global diffids
3203 global diffnum
3204 global gitdir extdifftool
3207 # no reference commit given
3210 # diffing working copy with index
3213 # diffing index with HEAD
3214 set diffidfrom "HEAD"
3215 } else {
3216 # use first parent commit
3217 global parentlist selectedline
3219 }
3220 } else {
3223 }
3225 # make sure that several diffs wont collide
3226 if {![info exists gitktmpdir]} {
3228 [format ".gitk-tmp.%s" [pid]]]
3231 unset gitktmpdir
3232 return
3233 }
3234 set diffnum 0
3235 }
3236 incr diffnum
3240 return
3241 }
3243 # gather files to diff
3252 } else {
3255 }
3256 }
3257 }
3259 proc find_hunk_blamespec {base line} {
3260 global ctext
3262 # Find and parse the hunk header
3268 s_line old_specs osz osz1 new_line nsz]} {
3269 return
3270 }
3272 # base lines for the parents
3276 old_spec old_line osz]} {
3277 return
3278 }
3280 }
3282 # Now scan the lines to determine offset within the hunk
3284 set dline 0
3287 # Determine if the line is removed
3291 # Choose a parent index
3294 } else {
3298 } else {
3299 # blame the current commit
3300 set parent -1
3301 }
3302 }
3303 # then count other lines that belong to it
3306 # Determine if the line is removed
3311 incr dline
3312 }
3313 } else {
3315 incr dline
3316 }
3317 }
3318 }
3319 incr parent
3320 } else {
3321 set parent 0
3322 }
3326 }
3328 proc external_blame_diff {} {
3329 global currentid cmitmode
3330 global diff_menu_txtpos diff_menu_line
3331 global diff_menu_filebase flist_menu_file
3334 set parent_idx 0
3336 } else {
3341 } else {
3342 set parent_idx 0
3343 set line 0
3344 }
3345 }
3348 }
3351 # at stage 0 or 2
3352 proc index_sha1 {fname} {
3360 }
3361 }
3363 return {}
3364 }
3366 # Turn an absolute path into one relative to the current directory
3367 proc make_relative {f} {
3369 set here [file split [pwd]]
3370 set ei 0
3371 set hi 0
3372 set res {}
3375 lappend res ".."
3376 } else {
3377 incr ei
3378 }
3379 incr hi
3380 }
3383 }
3385 proc external_blame {parent_idx {line {}}} {
3386 global flist_menu_file gitdir
3387 global nullid nullid2
3388 global parentlist selectedline currentid
3392 } else {
3394 }
3397 error_popup [mc "No such commit"]
3398 return
3399 }
3401 set cmdline [list git gui blame]
3404 }
3406 # Unfortunately it seems git gui blame doesn't like
3407 # being given an absolute path...
3412 }
3413 }
3415 proc show_line_source {} {
3416 global cmitmode currentid parents curview blamestuff blameinst
3417 global diff_menu_line diff_menu_filebase flist_menu_file
3418 global nullid nullid2 gitdir
3420 set from_index {}
3424 } else {
3430 return
3431 }
3432 incr pi -1
3435 # must be a merge in progress...
3436 if {[catch {
3437 # get the last line from .git/MERGE_HEAD
3441 } err]} {
3443 return
3444 }
3446 # need to do the blame from the index
3447 if {[catch {
3449 } err]} {
3451 return
3452 }
3453 } else {
3455 }
3456 } else {
3458 }
3460 }
3461 set blameargs {}
3464 }
3467 lappend blameargs --contents -
3468 } else {
3470 }
3472 if {[catch {
3474 } err]} {
3476 return
3477 }
3478 nowbusy blaming [mc "Searching"]
3484 }
3486 proc stopblaming {} {
3487 global blameinst
3489 if {[info exists blameinst]} {
3491 unset blameinst
3492 notbusy blaming
3493 }
3494 }
3496 proc read_line_source {fd inst} {
3497 global blamestuff curview commfd blameinst nullid nullid2
3501 }
3503 return 1
3504 }
3506 unset blameinst
3507 notbusy blaming
3511 return 0
3512 }
3514 set fname {}
3520 # look for "filename" line
3524 break
3525 }
3526 }
3527 }
3529 # all looks good, select it
3531 # blame uses all-zeroes to mean not committed,
3532 # which would mean a change in the index
3534 }
3537 } else {
3538 error_popup [mc "That line comes from commit %s, \
3540 }
3541 } else {
3542 puts "oops couldn't parse git blame output"
3543 }
3544 return 0
3545 }
3548 proc delete_at_eof {f dir} {
3553 }
3555 return 0
3556 }
3557 return 1
3558 }
3560 # Functions for adding and removing shell-type quoting
3562 proc shellquote {str} {
3565 }
3568 }
3571 }
3573 }
3575 proc shellarglist {l} {
3576 set str {}
3579 append str " "
3580 }
3582 }
3584 }
3586 proc shelldequote {str} {
3587 set ret {}
3588 set used -1
3589 while {1} {
3590 incr used
3594 break
3595 }
3601 }
3603 incr used
3607 error "unmatched single-quote"
3608 }
3611 continue
3612 }
3615 error "trailing backslash"
3616 }
3618 continue
3619 }
3620 # here ch == "\""
3621 while {1} {
3623 error "unmatched double-quote"
3624 }
3630 }
3632 incr used
3634 incr used
3635 }
3636 }
3638 }
3640 proc shellsplit {str} {
3641 set l {}
3642 while {1} {
3650 }
3652 }
3654 # Code to implement multiple views
3656 proc newview {ishighlight} {
3657 global nextviewnum newviewname newishighlight
3658 global revtreeargs viewargscmd newviewopts curview
3661 set top .gitkview
3664 return
3665 }
3671 }
3673 set known_view_options {
3674 {perm b . {} {mc "Remember this view"}}
3675 {reflabel l + {} {mc "References (space separated list):"}}
3676 {refs t15 .. {} {mc "Branches & tags:"}}
3677 {allrefs b *. "--all" {mc "All refs"}}
3678 {branches b . "--branches" {mc "All (local) branches"}}
3679 {tags b . "--tags" {mc "All tags"}}
3680 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
3681 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
3682 {author t15 .. "--author=*" {mc "Author:"}}
3683 {committer t15 . "--committer=*" {mc "Committer:"}}
3684 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
3685 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
3686 {changes_l l + {} {mc "Changes to Files:"}}
3687 {pickaxe_s r0 . {} {mc "Fixed String"}}
3688 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
3689 {pickaxe t15 .. "-S*" {mc "Search string:"}}
3690 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
3691 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
3692 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
3693 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
3694 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
3695 {skip t10 . "--skip=*" {mc "Number to skip:"}}
3696 {misc_lbl l + {} {mc "Miscellaneous options:"}}
3697 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
3698 {lright b . "--left-right" {mc "Mark branch sides"}}
3699 {first b . "--first-parent" {mc "Limit to first parent"}}
3700 {args t50 *. {} {mc "Additional arguments to git log:"}}
3701 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
3702 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
3703 }
3705 proc encode_view_opts {n} {
3706 global known_view_options newviewopts
3708 set rargs [list]
3718 }
3724 }
3725 } else {
3731 }
3732 }
3733 }
3736 }
3738 proc decode_view_opts {n view_args} {
3739 global known_view_options newviewopts
3744 # Checkboxes
3745 set val 0
3747 # Radiobuttons
3749 set val 0
3750 } else {
3751 # Text fields
3752 set val {}
3753 }
3755 }
3756 set oargs [list]
3757 set refargs [list]
3760 && ![info exists found(limit)]} {
3762 set found(limit) 1
3763 continue
3764 }
3765 catch { unset val }
3772 # Check buttons
3773 set val 1
3775 # Radio buttons
3778 } else {
3779 # Text input fields
3782 }
3785 break
3786 }
3787 if {[info exists val]} break
3788 }
3789 if {[info exists val]} continue
3792 } else {
3794 }
3795 }
3798 }
3800 proc edit_or_newview {} {
3801 global curview
3804 editview
3805 } else {
3806 newview 0
3807 }
3808 }
3810 proc editview {} {
3811 global curview
3812 global viewname viewperm newviewname newviewopts
3813 global viewargs viewargscmd
3818 return
3819 }
3825 }
3827 proc vieweditor {top n title} {
3828 global newviewname newviewopts viewfiles bgcolor
3829 global known_view_options
3835 # View name
3843 # View options
3845 set cexpand 0
3846 set cnt 0
3852 set lxpad 0
3856 incr cnt
3862 incr cnt
3866 } else {
3867 set lxpad 5
3868 }
3902 }
3905 }
3907 }
3908 }
3923 }
3925 proc doviewmenu {m first cmd op argv} {
3930 break
3931 }
3932 }
3933 }
3935 proc allviewmenus {n op args} {
3936 # global viewhlmenu
3940 }
3942 proc newviewok {top n {apply 0}} {
3943 global nextviewnum newviewperm newviewname newishighlight
3944 global viewname viewfiles viewperm selectedview curview
3945 global viewargs viewargscmd newviewopts viewhlmenu
3947 if {[catch {
3949 } err]} {
3951 return
3952 }
3953 set files {}
3958 }
3959 }
3961 # creating a new view
3962 incr nextviewnum
3971 } else {
3973 }
3974 } else {
3975 # editing an existing view
3983 }
3990 run reloadcommits
3991 }
3992 }
3993 }
3996 }
3998 proc delview {} {
3999 global curview viewperm hlview selectedhlview
4003 set selectedhlview [mc "None"]
4004 unset hlview
4005 }
4008 showview 0
4009 }
4011 proc addviewmenu {n} {
4012 global viewname viewhlmenu
4018 }
4020 proc showview {n} {
4021 global curview cached_commitrow ordertok
4022 global displayorder parentlist rowidlist rowisopt rowfinal
4023 global colormap rowtextx nextcolor canvxmax
4024 global numcommits viewcomplete
4025 global selectedline currentid canv canvy0
4026 global treediffs
4027 global pending_select mainheadid
4028 global commitidx
4029 global selectedview
4030 global hlview selectedhlview commitinterest
4033 set selid {}
4044 }
4045 } elseif {[info exists pending_select]} {
4047 unset pending_select
4048 }
4049 unselectline
4050 normalline
4051 catch {unset treediffs}
4052 clear_display
4054 unset hlview
4055 set selectedhlview [mc "None"]
4056 }
4057 catch {unset commitinterest}
4058 catch {unset cached_commitrow}
4059 catch {unset ordertok}
4066 run refill_reflist
4069 return
4070 }
4072 set displayorder {}
4073 set parentlist {}
4074 set rowidlist {}
4075 set rowisopt {}
4076 set rowfinal {}
4079 catch {unset colormap}
4080 catch {unset rowtextx}
4081 set nextcolor 0
4084 set row 0
4085 setcanvscroll
4086 set yf 0
4087 set row {}
4090 # try to get the selected row in the same position on the screen
4094 set ytop 0
4095 }
4097 }
4099 drawvisible
4104 } else {
4105 reset_pending_select {}
4109 } else {
4110 set row [first_real_row]
4113 }
4114 }
4115 }
4118 show_status [mc "Reading commits..."]
4119 }
4121 show_status [mc "No commits selected"]
4122 }
4123 }
4125 # Stuff relating to the highlighting facility
4127 proc ishighlighted {id} {
4128 global vhighlights fhighlights nhighlights rhighlights
4132 }
4135 }
4138 }
4141 }
4142 return 0
4143 }
4145 proc bolden {id font} {
4146 global canv linehtag currentid boldids need_redisplay markedid
4148 # need_redisplay = 1 means the display is stale and about to be redrawn
4155 -outline {{}} -tags secsel \
4158 }
4161 }
4162 }
4164 proc bolden_name {id font} {
4165 global canv2 linentag currentid boldnameids need_redisplay
4173 -outline {{}} -tags secsel \
4176 }
4177 }
4179 proc unbolden {} {
4180 global boldids
4182 set stillbold {}
4186 } else {
4188 }
4189 }
4191 }
4193 proc addvhighlight {n} {
4194 global hlview viewcomplete curview vhl_done commitidx
4196 if {[info exists hlview]} {
4197 delvhighlight
4198 }
4202 }
4205 drawvisible
4206 }
4207 }
4209 proc delvhighlight {} {
4210 global hlview vhighlights
4212 if {![info exists hlview]} return
4213 unset hlview
4214 catch {unset vhighlights}
4215 unbolden
4216 }
4218 proc vhighlightmore {} {
4219 global hlview vhl_done commitidx vhighlights curview
4222 set vr [visiblerows]
4232 }
4234 }
4235 }
4236 }
4238 return 0
4239 }
4241 proc askvhighlight {row id} {
4242 global hlview vhighlights iddrawn
4247 }
4249 } else {
4251 }
4252 }
4254 proc hfiles_change {} {
4255 global highlight_files filehighlight fhighlights fh_serial
4256 global highlight_paths
4258 if {[info exists filehighlight]} {
4259 # delete previous highlights
4261 unset filehighlight
4262 catch {unset fhighlights}
4263 unbolden
4264 unhighlight_filelist
4265 }
4266 set highlight_paths {}
4268 incr fh_serial
4271 }
4272 }
4274 proc gdttype_change {name ix op} {
4275 global gdttype highlight_files findstring findpattern
4277 stopfinding
4281 set highlight_files {}
4282 hfiles_change
4283 }
4284 findcom_change
4285 } else {
4287 set findpattern {}
4288 findcom_change
4289 }
4291 hfiles_change
4292 }
4293 drawvisible
4294 }
4295 # enable/disable findtype/findloc menus too
4296 }
4298 proc find_change {name ix op} {
4299 global gdttype findstring highlight_files
4301 stopfinding
4303 findcom_change
4304 } else {
4307 hfiles_change
4308 }
4309 }
4310 drawvisible
4311 }
4313 proc findcom_change args {
4314 global nhighlights boldnameids
4315 global findpattern findtype findstring gdttype
4317 stopfinding
4318 # delete previous highlights, if any
4321 }
4322 set boldnameids {}
4323 catch {unset nhighlights}
4324 unbolden
4325 unmarkmatches
4327 set findpattern {}
4330 } else {
4331 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4334 }
4335 }
4337 proc makepatterns {l} {
4338 set ret {}
4343 } else {
4346 }
4347 }
4349 }
4351 proc do_file_hl {serial} {
4352 global highlight_files filehighlight highlight_paths gdttype fhl_list
4357 highlight_filelist
4361 } else {
4362 # must be "containing:", i.e. we're searching commit info
4363 return
4364 }
4369 set fhl_list {}
4370 drawvisible
4371 flushhighlights
4372 }
4374 proc flushhighlights {} {
4375 global filehighlight fhl_list
4377 if {[info exists filehighlight]} {
4378 lappend fhl_list {}
4381 }
4382 }
4384 proc askfilehighlight {row id} {
4385 global filehighlight fhighlights fhl_list
4390 }
4392 proc readfhighlight {} {
4393 global filehighlight fhighlights curview iddrawn
4394 global fhl_list find_dirn
4396 if {![info exists filehighlight]} {
4397 return 0
4398 }
4399 set nr 0
4407 }
4413 }
4415 }
4417 # strange...
4418 puts "oops, git diff-tree died"
4420 unset filehighlight
4421 return 0
4422 }
4423 if {[info exists find_dirn]} {
4424 run findmore
4425 }
4426 return 1
4427 }
4429 proc doesmatch {f} {
4430 global findtype findpattern
4436 } else {
4438 }
4439 }
4441 proc askfindhighlight {row id} {
4442 global nhighlights commitinfo iddrawn
4443 global findloc
4444 global markingmatches
4448 }
4450 set isbold 0
4451 set fldtypes [list [mc Headline] [mc Author] [mc Date] [mc Committer] [mc CDate] [mc Comments]]
4456 set isbold 2
4457 break
4458 }
4459 set isbold 1
4460 }
4461 }
4467 }
4468 }
4471 }
4472 }
4474 }
4476 proc markrowmatches {row id} {
4477 global canv canv2 linehtag linentag commitinfo findloc
4488 }
4489 }
4495 }
4496 }
4497 }
4499 proc vrel_change {name ix op} {
4500 global highlight_related
4502 rhighlight_none
4504 run drawvisible
4505 }
4506 }
4508 # prepare for testing whether commits are descendents or ancestors of a
4509 proc rhighlight_sel {a} {
4510 global descendent desc_todo ancestor anc_todo
4511 global highlight_related
4513 catch {unset descendent}
4515 catch {unset ancestor}
4518 rhighlight_none
4519 run drawvisible
4520 }
4521 }
4523 proc rhighlight_none {} {
4524 global rhighlights
4526 catch {unset rhighlights}
4527 unbolden
4528 }
4530 proc is_descendent {a} {
4531 global curview children descendent desc_todo
4536 set leftover {}
4537 set done 0
4542 continue
4543 }
4549 set done 1
4550 }
4551 }
4552 }
4555 return
4556 }
4557 }
4560 }
4562 proc is_ancestor {a} {
4563 global curview parents ancestor anc_todo
4568 set leftover {}
4569 set done 0
4574 continue
4575 }
4581 set done 1
4582 }
4583 }
4584 }
4587 return
4588 }
4589 }
4592 }
4594 proc askrelhighlight {row id} {
4595 global descendent highlight_related iddrawn rhighlights
4596 global selectedline ancestor
4599 set isbold 0
4604 }
4606 set isbold 1
4607 }
4612 }
4614 set isbold 1
4615 }
4616 }
4620 }
4621 }
4623 }
4625 # Graph layout functions
4627 proc shortids {ids} {
4628 set res {}
4634 } else {
4636 }
4637 }
4639 }
4641 proc ntimes {n o} {
4642 set ret {}
4647 }
4649 }
4651 }
4653 proc ordertoken {id} {
4654 global ordertok curview varcid varcstart varctok curview parents children
4655 global nullid nullid2
4659 }
4661 set todo {}
4662 while {1} {
4666 } else {
4668 }
4671 break
4672 }
4675 # it's a root
4677 break
4678 }
4681 } else {
4685 }
4687 }
4688 }
4693 }
4696 }
4698 # Work out where id should go in idlist so that order-token
4699 # values increase from left to right
4700 proc idcol {idlist id {i 0}} {
4703 set i 0
4704 }
4708 }
4710 incr i
4711 } else {
4715 }
4716 }
4718 }
4720 proc initlayout {} {
4721 global rowidlist rowisopt rowfinal displayorder parentlist
4722 global numcommits canvxmax canv
4723 global nextcolor
4724 global colormap rowtextx
4726 set numcommits 0
4727 set displayorder {}
4728 set parentlist {}
4729 set nextcolor 0
4730 set rowidlist {}
4731 set rowisopt {}
4732 set rowfinal {}
4734 catch {unset colormap}
4735 catch {unset rowtextx}
4736 setcanvscroll
4737 }
4739 proc setcanvscroll {} {
4740 global canv canv2 canv3 numcommits linespc canvxmax canvy0
4741 global lastscrollset lastscrollrows
4747 set lastscrollset [clock clicks -milliseconds]
4749 }
4751 proc visiblerows {} {
4752 global canv numcommits linespc
4760 set r0 0
4761 }
4766 }
4768 }
4770 proc layoutmore {} {
4771 global commitidx viewcomplete curview
4772 global numcommits pending_select curview
4773 global lastscrollset lastscrollrows
4777 setcanvscroll
4778 }
4779 if {[info exists pending_select] &&
4781 update
4783 }
4784 drawvisible
4785 }
4787 # With path limiting, we mightn't get the actual HEAD commit,
4788 # so ask git rev-list what is the first ancestor of HEAD that
4789 # touches a file in the path limit.
4790 proc get_viewmainhead {view} {
4791 global viewmainheadid vfilelimit viewinstances mainheadid
4793 catch {
4801 }
4802 }
4805 proc getviewhead {fd inst view} {
4806 global viewmainheadid commfd curview viewinstances showlocalchanges
4808 set id {}
4811 return 1
4812 }
4815 }
4822 }
4824 doshowlocalchanges
4825 }
4826 return 0
4827 }
4829 proc doshowlocalchanges {} {
4830 global curview viewmainheadid
4834 dodiffindex
4835 } else {
4837 }
4838 }
4840 proc dohidelocalchanges {} {
4841 global nullid nullid2 lserial curview
4845 }
4848 }
4849 incr lserial
4850 }
4852 # spawn off a process to do git diff-index --cached HEAD
4853 proc dodiffindex {} {
4854 global lserial showlocalchanges vfilelimit curview
4855 global isworktree
4858 incr lserial
4859 set cmd "|git diff-index --cached HEAD"
4862 }
4867 }
4869 proc readdiffindex {fd serial inst} {
4870 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
4871 global vfilelimit
4873 set isdiff 1
4876 return 1
4877 }
4878 set isdiff 0
4879 }
4880 # we only need to see one line and we don't really care what it says...
4884 return 0
4885 }
4887 # now see if there are any local changes not checked in to the index
4888 set cmd "|git diff-files"
4891 }
4898 # add the line for the changes in the index to the graph
4899 set hl [mc "Local changes checked in to index but not committed"]
4904 }
4909 }
4911 }
4912 return 0
4913 }
4915 proc readdifffiles {fd serial inst} {
4916 global viewmainheadid nullid nullid2 curview
4917 global commitinfo commitdata lserial
4919 set isdiff 1
4922 return 1
4923 }
4924 set isdiff 0
4925 }
4926 # we only need to see one line and we don't really care what it says...
4930 return 0
4931 }
4934 # add the line for the local diff to the graph
4935 set hl [mc "Local uncommitted changes, not checked in to index"]
4940 } else {
4942 }
4946 }
4947 return 0
4948 }
4950 proc nextuse {id row} {
4951 global curview children
4956 return -1
4957 }
4960 }
4961 }
4962 }
4965 }
4966 return -1
4967 }
4969 proc prevuse {id row} {
4970 global curview children
4972 set ret -1
4978 }
4979 }
4980 }
4982 }
4984 proc make_idlist {row} {
4985 global displayorder parentlist uparrowlen downarrowlen mingaplen
4986 global commitidx curview children
4990 set r 0
4991 }
4994 set ra 0
4995 }
4999 }
5001 set ids {}
5010 }
5011 }
5012 }
5020 }
5021 }
5022 }
5030 }
5031 }
5032 incr r
5038 }
5039 }
5040 }
5041 set idlist {}
5044 }
5046 }
5048 proc rowsequal {a b} {
5051 }
5054 }
5056 }
5058 proc makeupline {id row rend col} {
5059 global rowidlist uparrowlen downarrowlen mingaplen
5065 }
5068 }
5075 }
5076 }
5077 }
5079 proc layoutrows {row endrow} {
5080 global rowidlist rowisopt rowfinal displayorder
5081 global uparrowlen downarrowlen maxwidth mingaplen
5082 global children parentlist
5083 global commitidx viewcomplete curview
5086 set idlist {}
5092 }
5093 }
5095 }
5100 set final 1
5101 } else {
5109 # if not the first child, we have to insert a line going up
5112 }
5113 }
5114 }
5124 }
5125 }
5126 }
5133 }
5134 }
5144 }
5145 }
5153 }
5154 }
5155 }
5156 }
5157 }
5161 set final 0
5162 }
5166 lappend rowisopt 0
5172 }
5174 } else {
5181 }
5182 }
5184 }
5186 proc changedrow {row} {
5187 global displayorder iddrawn rowisopt need_redisplay
5196 }
5197 }
5198 }
5201 set need_redisplay 1
5202 }
5203 }
5205 proc insert_pad {row col npad} {
5206 global rowidlist
5215 }
5218 }
5220 proc optimize_rows {row col endrow} {
5221 global rowidlist rowisopt displayorder curview children
5224 set row 1
5225 }
5228 set haspad 0
5237 } else {
5238 set pprevidlist {}
5239 }
5240 set x0 -1
5241 set xm -1
5246 set haspad 1
5247 continue
5248 }
5252 set isarrow 0
5253 set z0 {}
5258 }
5259 }
5264 set isarrow 1
5265 }
5266 }
5269 set isarrow 1
5270 }
5271 # Looking at lines from this row to the previous row,
5272 # make them go straight up if they end in an arrow on
5273 # the previous row; otherwise make them go straight up
5274 # or at 45 degrees.
5276 # Line currently goes left too much;
5277 # insert pads in the previous row, then optimize it
5282 }
5290 }
5292 # Line currently goes right too much;
5293 # insert pads in this line
5299 set haspad 1
5300 }
5307 }
5308 }
5309 # avoid lines jigging left then immediately right
5312 incr x0
5315 }
5316 }
5318 # Find the first column that doesn't have a line going right
5324 # check if this is the link to the first child
5327 # it is, work out offset to child
5329 }
5330 }
5332 }
5333 # Insert a pad at that column as long as it has a line and
5334 # isn't the last column
5339 }
5340 }
5341 }
5342 }
5344 proc xc {row col} {
5345 global canvx0 linespc
5347 }
5349 proc yc {row} {
5350 global canvy0 linespc
5352 }
5354 proc linewidth {id} {
5355 global thickerline lthickness
5360 }
5362 }
5364 proc rowranges {id} {
5365 global curview children uparrowlen downarrowlen
5366 global rowidlist
5370 return {}
5371 }
5372 set ret {}
5377 if {![info exists prev]} {
5379 } else {
5381 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5382 }
5383 # see if the line extends the whole way from prevrow to row
5387 # it doesn't, see where it ends
5392 } else {
5395 incr r -1
5396 }
5398 # see where it starts up again
5403 } else {
5406 incr r
5407 }
5409 }
5410 }
5413 }
5416 }
5418 }
5420 proc drawlineseg {id row endrow arrowlow} {
5421 global rowidlist displayorder iddrawn linesegs
5422 global canv colormap linespc curview maxlinelen parentlist
5426 set arrowhigh 1
5427 while {1} {
5430 incr le -1
5431 break
5432 }
5436 set arrowhigh 0
5437 break
5438 }
5443 set arrowhigh 0
5444 }
5445 break
5446 }
5447 incr le
5448 }
5451 }
5453 set lines {}
5454 set i 0
5455 set joinhigh 0
5462 set joinhigh 1
5463 }
5464 break
5465 }
5466 incr i
5467 }
5468 }
5469 set joinlow 0
5474 set joinlow 1
5475 }
5476 }
5489 }
5490 } else {
5492 }
5500 set arrowlow 0
5501 }
5502 }
5510 }
5512 }
5515 # join parent line to first child
5526 } else {
5528 }
5536 }
5538 }
5540 } else {
5544 }
5552 } else {
5556 }
5558 }
5559 } else {
5565 }
5569 } else {
5570 # coalesce two pieces
5575 }
5579 }
5580 }
5584 }
5586 proc drawparentlinks {id row} {
5587 global rowidlist canv colormap curview parentlist
5588 global idpos linespc
5601 # rmx = right-most X coord used
5602 set rmx 0
5607 continue
5608 }
5612 }
5615 # drawlineseg will do this one for us
5616 continue
5617 }
5619 # should handle duplicated parents here...
5622 # if attaching to a vertical segment, draw a smaller
5623 # slant for visual distinctness
5627 } else {
5629 }
5631 # segment slants towards us already
5633 } else {
5638 }
5640 }
5641 } else {
5643 }
5648 }
5652 }
5653 }
5655 proc drawlines {id} {
5656 global canv
5659 }
5661 proc drawcmittext {id row col} {
5662 global linespc canv canv2 canv3 fgcolor curview
5663 global cmitlisted commitinfo rowidlist parentlist
5664 global rowtextx idpos idtags idheads idotherrefs
5665 global linehtag linentag linedtag selectedline
5666 global canvxmax boldids boldnameids fgcolor markedid
5667 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
5669 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
5672 set ofill red
5674 set ofill green
5676 set ofill yellow
5677 } else {
5679 }
5688 # triangle pointing left for left-side commits
5694 } else {
5695 # triangle pointing right for right-side commits
5701 }
5713 }
5714 }
5715 }
5722 }
5727 set font mainfont
5728 set nfont mainfont
5732 set font mainfontbold
5735 set nfont mainfontbold
5736 }
5737 }
5747 }
5750 }
5754 setcanvscroll
5755 }
5756 }
5758 proc drawcmitrow {row} {
5759 global displayorder rowidlist nrows_drawn
5760 global iddrawn markingmatches
5761 global commitinfo numcommits
5762 global filehighlight fhighlights findpattern nhighlights
5763 global hlview vhighlights
5764 global highlight_related rhighlights
5771 }
5774 }
5777 }
5780 }
5785 return
5786 }
5789 }
5793 incr nrows_drawn
5794 }
5797 }
5798 }
5800 proc drawcommits {row {endrow {}}} {
5801 global numcommits iddrawn displayorder curview need_redisplay
5802 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
5805 set row 0
5806 }
5809 }
5812 }
5816 set rl1 0
5817 }
5820 set ro1 0
5821 }
5825 }
5830 }
5832 }
5833 }
5836 }
5839 clear_display
5840 }
5842 # make the lines join to already-drawn rows either side
5846 }
5851 }
5866 # see if this is the first child of any of its parents
5869 # make this line extend up to the child
5871 }
5872 }
5873 } else {
5875 }
5876 }
5877 }
5878 }
5880 proc undolayout {row} {
5881 global uparrowlen mingaplen downarrowlen
5882 global rowidlist rowisopt rowfinal need_redisplay
5886 set r 0
5887 }
5889 incr r -1
5893 set need_redisplay 1
5894 run drawvisible
5895 }
5896 }
5898 proc drawvisible {} {
5899 global canv linespc curview vrowmod selectedline targetrow targetid
5900 global need_redisplay cscroll numcommits
5910 if {[info exists targetid]} {
5914 # Fix up the scrollregion and change the scrolling position
5915 # now that our target row has moved.
5918 setcanvscroll
5926 set need_redisplay 1
5927 }
5928 } else {
5929 unset targetid
5930 }
5931 }
5937 }
5941 } elseif {[info exists targetid]} {
5943 }
5944 if {[info exists targetrow]} {
5947 }
5949 }
5951 }
5953 proc clear_display {} {
5954 global iddrawn linesegs need_redisplay nrows_drawn
5955 global vhighlights fhighlights nhighlights rhighlights
5956 global linehtag linentag linedtag boldids boldnameids
5958 allcanvs delete all
5959 catch {unset iddrawn}
5960 catch {unset linesegs}
5961 catch {unset linehtag}
5962 catch {unset linentag}
5963 catch {unset linedtag}
5964 set boldids {}
5965 set boldnameids {}
5966 catch {unset vhighlights}
5967 catch {unset fhighlights}
5968 catch {unset nhighlights}
5969 catch {unset rhighlights}
5970 set need_redisplay 0
5971 set nrows_drawn 0
5972 }
5974 proc findcrossings {id} {
5975 global rowidlist parentlist numcommits displayorder
5977 set cross {}
5978 set ccross {}
5982 }
6001 }
6002 }
6003 }
6004 }
6005 }
6007 }
6009 proc assigncolor {id} {
6010 global colormap colors nextcolor
6011 global parents children children curview
6017 } else {
6018 set kids {}
6019 }
6025 return
6026 }
6027 }
6028 set badcolors {}
6029 set origbad {}
6032 # delimiter between corner crossings and other crossings
6035 }
6039 }
6040 }
6043 }
6050 }
6055 }
6056 }
6057 }
6060 }
6061 }
6065 set nextcolor 0
6066 }
6068 }
6070 }
6072 proc bindline {t id} {
6073 global canv
6079 }
6081 proc drawtags {id x xt y1} {
6082 global idtags idheads idotherrefs mainhead
6083 global linespc lthickness
6084 global canv rowtextx curview fgcolor bgcolor ctxbut
6086 set marks {}
6087 set ntags 0
6088 set nheads 0
6092 }
6096 }
6099 }
6102 }
6107 set xvals {}
6108 set wvals {}
6109 set i -1
6111 incr i
6114 } else {
6116 }
6120 }
6127 set font mainfont
6128 if {[incr ntags -1] >= 0} {
6129 # draw a tag
6135 } else {
6136 # draw a head or other ref
6137 if {[incr nheads -1] >= 0} {
6138 set col green
6140 set font mainfontbold
6141 }
6142 } else {
6143 set col "#ddddff"
6144 }
6155 }
6156 }
6163 }
6164 }
6166 }
6168 proc xcoord {i level ln} {
6169 global canvx0 xspc1 xspc2
6176 }
6178 }
6180 proc show_status {msg} {
6181 global canv fgcolor
6183 clear_display
6186 }
6188 # Don't change the text pane cursor if it is currently the hand cursor,
6189 # showing that we are over a sha1 ID link.
6190 proc settextcursor {c} {
6191 global ctext curtextcursor
6195 }
6197 }
6199 proc nowbusy {what {name {}}} {
6200 global isbusy busyname statusw
6202 if {[array names isbusy] eq {}} {
6203 . config -cursor watch
6204 settextcursor watch
6205 }
6210 }
6211 }
6213 proc notbusy {what} {
6214 global isbusy maincursor textcursor busyname statusw
6216 catch {
6221 }
6222 }
6223 if {[array names isbusy] eq {}} {
6226 }
6227 }
6229 proc findmatches {f} {
6230 global findtype findstring
6233 } else {
6238 }
6239 set matches {}
6240 set i 0
6245 }
6246 }
6248 }
6250 proc dofind {{dirn 1} {wrap 1}} {
6251 global findstring findstartline findcurline selectedline numcommits
6252 global gdttype filehighlight fh_serial find_dirn findallowwrap
6254 if {[info exists find_dirn]} {
6256 stopfinding
6257 }
6258 focus .
6262 } else {
6264 }
6266 nowbusy finding [mc "Searching"]
6270 }
6273 run findmore
6274 }
6276 proc stopfinding {} {
6277 global find_dirn findcurline fprogcoord
6279 if {[info exists find_dirn]} {
6280 unset find_dirn
6281 unset findcurline
6282 notbusy finding
6283 set fprogcoord 0
6284 adjustprogress
6285 }
6286 stopblaming
6287 }
6289 proc findmore {} {
6290 global commitdata commitinfo numcommits findpattern findloc
6291 global findstartline findcurline findallowwrap
6292 global find_dirn gdttype fhighlights fprogcoord
6293 global curview varcorder vrownum varccommits vrowmod
6295 if {![info exists find_dirn]} {
6296 return 0
6297 }
6298 set fldtypes [list [mc "Headline"] [mc "Author"] [mc "Date"] [mc "Committer"] [mc "CDate"] [mc "Comments"]]
6300 set moretodo 0
6302 incr l
6304 set l 0
6305 }
6308 } else {
6311 }
6312 } else {
6315 }
6316 incr l -1
6319 } else {
6320 set lim -1
6322 }
6323 }
6326 set n 500
6327 set moretodo 1
6328 }
6331 }
6332 set found 0
6333 set domore 1
6347 }
6349 # shouldn't happen unless git log doesn't give all the commits...
6352 continue
6353 }
6356 }
6361 set found 1
6362 break
6363 }
6364 }
6366 }
6367 } else {
6375 }
6380 }
6383 break
6384 }
6387 set domore 0
6389 }
6390 }
6391 }
6392 }
6394 unset findcurline
6395 unset find_dirn
6396 notbusy finding
6397 set fprogcoord 0
6398 adjustprogress
6401 } else {
6402 bell
6403 }
6404 return 0
6405 }
6407 flushhighlights
6408 } else {
6410 }
6414 }
6416 adjustprogress
6418 }
6420 proc findselectline {l} {
6421 global findloc commentend ctext findcurline markingmatches gdttype
6428 # highlight the matches in the comments
6435 }
6436 }
6437 drawvisible
6438 }
6440 # mark the bits of a headline or author that match a find string
6441 proc markmatches {canv l str tag matches font row} {
6442 global selectedline
6460 }
6461 }
6462 }
6464 proc unmarkmatches {} {
6465 global markingmatches
6467 allcanvs delete matches
6468 set markingmatches 0
6469 stopfinding
6470 }
6472 proc selcanvline {w x y} {
6473 global canv canvy0 ctext linespc
6474 global rowtextx
6481 set l 0
6482 }
6487 }
6488 unmarkmatches
6490 }
6492 proc commit_descriptor {p} {
6493 global commitinfo
6496 }
6497 set l "..."
6500 }
6502 }
6504 # append some text to the ctext widget, and make any SHA1 ID
6505 # that we know about be a clickable link.
6506 proc appendwithlinks {text tags} {
6507 global ctext linknum curview
6516 incr e
6520 incr linknum
6521 }
6522 }
6524 proc setlink {id lk} {
6525 global curview ctext pendinglinks
6527 set known 0
6532 set known 1
6534 }
6535 } else {
6537 }
6543 } else {
6546 }
6547 }
6549 proc appendshortlink {id {pre {}} {post {}}} {
6550 global ctext linknum
6557 incr linknum
6558 }
6560 proc makelink {id} {
6561 global pendinglinks
6566 }
6568 }
6570 proc linkcursor {w inc} {
6571 global linkentercount curtextcursor
6575 } else {
6578 set linkentercount 0
6579 }
6580 }
6581 }
6583 proc viewnextline {dir} {
6584 global canv linespc
6592 set newtop 0
6595 }
6597 }
6599 # add a list of tag or branch names at position pos
6600 # returns the number of names inserted
6601 proc appendrefs {pos ids var} {
6605 return 0
6606 }
6609 set tags {}
6613 }
6614 }
6617 } else {
6619 set sep {}
6623 incr linknum
6628 set sep ", "
6629 }
6630 }
6633 }
6635 # called when we have finished computing the nearby tags
6636 proc dispneartags {delay} {
6637 global selectedline currentid showneartags tagphase
6640 after cancel dispnexttag
6642 after 200 dispnexttag
6643 set tagphase -1
6644 } else {
6645 after idle dispnexttag
6646 set tagphase 0
6647 }
6648 }
6650 proc dispnexttag {} {
6651 global selectedline currentid showneartags tagphase ctext
6655 0 {
6659 }
6660 }
6661 1 {
6665 }
6666 }
6667 2 {
6672 # turn "Branch" into "Branches"
6676 }
6677 }
6678 }
6679 }
6680 if {[incr tagphase] <= 2} {
6681 after idle dispnexttag
6682 }
6683 }
6685 proc make_secsel {id} {
6686 global linehtag linentag linedtag canv canv2 canv3
6701 }
6703 proc make_idmark {id} {
6704 global linehtag canv fgcolor
6711 }
6713 proc selectline {l isnew {desired_loc {}}} {
6714 global canv ctext commitinfo selectedline
6715 global canvy0 linespc parents children curview
6716 global currentid sha1entry
6717 global commentend idtags linknum
6718 global mergemax numcommits pending_select
6719 global cmitmode showneartags allcommits
6720 global targetrow targetid lastscrollrows
6721 global autoselect jump_to_here
6723 catch {unset pending_select}
6725 normalline
6726 unsel_reflist
6727 stopfinding
6735 setcanvscroll
6736 }
6750 } else {
6754 }
6755 }
6759 } else {
6763 }
6764 }
6765 }
6768 set newtop 0
6769 }
6771 drawvisible
6772 }
6778 }
6785 }
6789 clear_ctext
6790 set linknum 0
6793 }
6803 }
6805 }
6807 set headers {}
6810 set np 0
6813 set tag mmax
6814 } else {
6816 }
6819 incr np
6820 }
6821 } else {
6824 }
6825 }
6829 }
6831 # make anything that looks like a SHA1 ID be a clickable link
6834 if {![info exists allcommits]} {
6835 getallcommits
6836 }
6847 dispneartags 1
6848 }
6853 }
6861 init_flist [mc "Comments"]
6866 } else {
6868 }
6869 }
6871 proc selfirstline {} {
6872 unmarkmatches
6873 selectline 0 1
6874 }
6876 proc sellastline {} {
6877 global numcommits
6878 unmarkmatches
6881 }
6883 proc selnextline {dir} {
6884 global selectedline
6885 focus .
6888 unmarkmatches
6890 }
6892 proc selnextpage {dir} {
6893 global canv linespc selectedline numcommits
6897 set lpp 1
6898 }
6900 drawvisible
6904 set l 0
6907 }
6908 unmarkmatches
6910 }
6912 proc unselectline {} {
6913 global selectedline currentid
6915 set selectedline {}
6916 catch {unset currentid}
6917 allcanvs delete secsel
6918 rhighlight_none
6919 }
6921 proc reselectline {} {
6922 global selectedline
6926 }
6927 }
6929 proc addtohistory {cmd} {
6930 global history historyindex curview
6935 return
6936 }
6940 } else {
6942 }
6943 incr historyindex
6945 .tf.bar.leftbut conf -state normal
6946 } else {
6947 .tf.bar.leftbut conf -state disabled
6948 }
6949 .tf.bar.rightbut conf -state disabled
6950 }
6952 proc godo {elt} {
6953 global curview
6959 }
6961 }
6963 proc goback {} {
6964 global history historyindex
6965 focus .
6968 incr historyindex -1
6970 .tf.bar.rightbut conf -state normal
6971 }
6973 .tf.bar.leftbut conf -state disabled
6974 }
6975 }
6977 proc goforw {} {
6978 global history historyindex
6979 focus .
6983 incr historyindex
6985 .tf.bar.leftbut conf -state normal
6986 }
6988 .tf.bar.rightbut conf -state disabled
6989 }
6990 }
6992 proc gettree {id} {
6993 global treefilelist treeidlist diffids diffmergeid treepending
6994 global nullid nullid2
6997 catch {unset diffmergeid}
6999 if {![info exists treepending]} {
7001 set cmd [list | git ls-files]
7003 set cmd [list | git ls-files --stage -t]
7004 } else {
7006 }
7008 return
7009 }
7015 }
7016 } else {
7018 }
7019 }
7021 proc gettreeline {gtf id} {
7022 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7024 set nl 0
7028 } else {
7036 }
7039 }
7042 }
7045 }
7047 unset treepending
7049 if {![info exists diffmergeid]} {
7051 }
7054 } else {
7056 }
7057 return 0
7058 }
7060 proc showfile {f} {
7061 global treefilelist treeidlist diffids nullid nullid2
7062 global ctext_file_names ctext_file_lines
7063 global ctext commentend
7068 return
7069 }
7073 return
7074 }
7075 } else {
7079 return
7080 }
7081 }
7092 settabs 0
7093 }
7095 proc getblobline {bf id} {
7096 global diffids cmitmode ctext
7100 return 0
7101 }
7103 set nl 0
7106 }
7108 global jump_to_here ctext_file_names commentend
7110 # delete last newline
7118 }
7119 return 0
7120 }
7123 }
7125 proc mark_ctext_line {lnum} {
7126 global ctext markbgcolor
7132 }
7134 proc mergediff {id} {
7135 global diffmergeid
7136 global diffids treediffs
7137 global parents curview
7145 }
7147 proc startdiff {ids} {
7148 global treediffs diffids treepending diffmergeid nullid nullid2
7150 settabs 1
7152 catch {unset diffmergeid}
7156 if {![info exists treepending]} {
7158 }
7159 } else {
7161 }
7162 }
7164 proc path_filter {filter name} {
7169 return 1
7170 }
7171 } else {
7175 return 1
7176 }
7177 }
7178 }
7179 return 0
7180 }
7182 proc addtocflist {ids} {
7183 global treediffs
7187 }
7189 proc diffcmd {ids flags} {
7190 global nullid nullid2
7196 # comparing working directory with some specific revision
7200 } else {
7202 }
7203 } else {
7204 # comparing working directory with index
7207 lappend cmd -R
7208 }
7209 }
7213 # comparing index with specific revision
7216 } else {
7218 }
7219 } else {
7220 # comparing index with HEAD
7221 lappend cmd HEAD
7222 }
7223 } else {
7225 }
7227 }
7229 proc gettreediffs {ids} {
7230 global treediff treepending
7235 set treediff {}
7238 }
7240 proc gettreediffline {gdtf ids} {
7241 global treediff treediffs treepending diffids diffmergeid
7242 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7244 set nr 0
7245 set sublist {}
7246 set max 1000
7248 # cache_gitattr is slow, and even slower on win32 where we
7249 # have to invoke it for only about 30 paths at a time
7250 set max 500
7251 if {[tk windowingsystem] == "win32"} {
7252 set max 120
7253 }
7254 }
7261 }
7266 }
7267 }
7268 }
7271 }
7274 }
7277 set flist {}
7281 }
7282 }
7284 } else {
7286 }
7287 unset treepending
7291 if {![info exists diffmergeid]} {
7293 }
7294 } else {
7296 }
7297 return 0
7298 }
7300 # empty string or positive integer
7301 proc diffcontextvalidate {v} {
7303 }
7305 proc diffcontextchange {n1 n2 op} {
7306 global diffcontextstring diffcontext
7311 reselectline
7312 }
7313 }
7314 }
7316 proc changeignorespace {} {
7317 reselectline
7318 }
7320 proc getblobdiffs {ids} {
7321 global blobdifffd diffids env
7322 global diffinhdr treediffs
7323 global diffcontext
7324 global ignorespace
7325 global limitdiffs vfilelimit curview
7326 global diffencoding targetline diffnparents
7327 global git_version
7329 set textconv {}
7331 set textconv "--textconv"
7332 }
7335 append cmd " -w"
7336 }
7339 }
7342 return
7343 }
7344 set targetline {}
7345 set diffnparents 0
7346 set diffinhdr 0
7347 set diffencoding [get_path_encoding {}]
7351 }
7353 proc setinlist {var i val} {
7358 }
7361 } else {
7363 }
7364 }
7366 proc makediffhdr {fname ids} {
7367 global ctext curdiffstart treediffs diffencoding
7368 global ctext_file_names jump_to_here targetline diffline
7375 }
7380 set targetline {}
7383 }
7384 set diffline 0
7385 }
7387 proc getblobdiffline {bdf ids} {
7388 global diffids blobdifffd ctext curdiffstart
7389 global diffnexthead diffnextnote difffilestart
7390 global ctext_file_names ctext_file_lines
7391 global diffinhdr treediffs mergemax diffnparents
7392 global diffencoding jump_to_here targetline diffline
7394 set nr 0
7399 return 0
7400 }
7405 continue
7406 }
7407 # start of a new file
7408 set diffinhdr 1
7411 lappend ctext_file_names ""
7416 # start of a new file in a merge diff
7421 }
7423 } else {
7425 # If the name hasn't changed the length will be odd,
7426 # the middle char will be a space, and the two bits either
7427 # side will be a/name and b/name, or "a/name" and "b/name".
7428 # If the name has changed we'll get "rename from" and
7429 # "rename to" or "copy from" and "copy to" lines following
7430 # this, and we'll use them to get the filenames.
7431 # This complexity is necessary because spaces in the
7432 # filename(s) don't get escaped.
7438 continue
7439 }
7440 # unescape if quoted and chop off the a/ from the front
7443 } else {
7445 }
7446 }
7459 }
7467 }
7469 set diffinhdr 0
7476 }
7481 }
7487 }
7490 # do nothing
7491 continue
7493 set diffinhdr 0
7494 continue
7495 }
7498 } else {
7499 set line [string map {\x1A ^Z} \
7501 # parse the prefix - one ' ', '-' or '+' for each parent
7505 # prefix only has " ", "-" and "+" in it: normal diff line
7510 set num "max"
7511 }
7513 } else {
7514 set tags {}
7516 # added line
7522 set num "max"
7523 }
7525 }
7526 }
7527 }
7531 set targetline {}
7532 } else {
7533 incr diffline
7534 }
7535 }
7537 }
7538 } else {
7539 # "\ No newline at end of file",
7540 # or something else we don't recognize
7542 }
7543 }
7544 }
7545 if {[info exists seehere]} {
7547 }
7551 return 0
7552 }
7554 }
7556 proc changediffdisp {} {
7557 global ctext diffelide
7561 }
7563 proc highlightfile {loc cline} {
7564 global ctext cflist cflist_top
7571 }
7573 proc prevfile {} {
7574 global difffilestart ctext cmitmode
7577 set prev 0.0
7578 set prevline 1
7583 return
7584 }
7586 incr prevline
7587 }
7589 }
7591 proc nextfile {} {
7592 global difffilestart ctext cmitmode
7596 set line 1
7598 incr line
7601 return
7602 }
7603 }
7604 }
7606 proc clear_ctext {{first 1.0}} {
7607 global ctext smarktop smarkbot
7608 global ctext_file_names ctext_file_lines
7609 global pendinglinks
7614 }
7617 }
7620 catch {unset pendinglinks}
7621 }
7622 set ctext_file_names {}
7623 set ctext_file_lines {}
7624 }
7626 proc settabs {{firstab {}}} {
7627 global firsttabstop tabstop ctext have_tk85
7631 }
7632 set w [font measure textfont "0"]
7638 } else {
7640 }
7641 }
7643 proc incrsearch {name ix op} {
7644 global ctext searchstring searchdirn
7648 # no anchor set, use start of selection, or of visible area
7654 } else {
7656 }
7657 }
7662 }
7663 searchmarkvisible 1
7664 }
7665 }
7667 proc dosearch {} {
7668 global sstring ctext searchstring searchdirn
7672 set searchdirn -forwards
7678 set start "@0,0"
7679 }
7683 bell
7684 return
7685 }
7690 }
7691 }
7693 proc dosearchback {} {
7694 global sstring ctext searchstring searchdirn
7698 set searchdirn -backwards
7705 }
7709 bell
7710 return
7711 }
7716 }
7717 }
7719 proc searchmark {first last} {
7720 global ctext searchstring
7723 while {1} {
7728 }
7729 }
7731 proc searchmarkvisible {doall} {
7732 global ctext smarktop smarkbot
7737 # no overlap with previous
7741 } else {
7745 }
7749 }
7750 }
7751 }
7753 proc scrolltext {f0 f1} {
7754 global searchstring
7758 searchmarkvisible 0
7759 }
7760 }
7762 proc setcoords {} {
7763 global linespc charspc canvx0 canvy0
7764 global xspc1 xspc2 lthickness
7766 set linespc [font metrics mainfont -linespace]
7767 set charspc [font measure mainfont "m"]
7773 }
7775 proc redisplay {} {
7776 global canv
7777 global selectedline
7782 clear_display
7783 setcanvscroll
7785 drawvisible
7789 }
7790 }
7792 proc parsefont {f n} {
7793 global fontattr
7798 set s 10
7801 }
7807 "normal" -
7809 "roman" -
7811 }
7812 }
7813 }
7815 proc fontflags {f {isbold 0}} {
7816 global fontattr
7821 }
7823 proc fontname {f} {
7824 global fontattr
7828 lappend n "bold"
7829 }
7831 lappend n "italic"
7832 }
7834 }
7836 proc incrfont {inc} {
7837 global mainfont textfont ctext canv cflist showrefstop
7838 global stopped entries fontattr
7840 unmarkmatches
7844 set s 1
7845 }
7849 set mainfont [fontname mainfont]
7853 set s 1
7854 }
7858 set textfont [fontname textfont]
7859 setcoords
7860 settabs
7861 redisplay
7862 }
7864 proc clearsha1 {} {
7865 global sha1entry sha1string
7868 }
7869 }
7871 proc sha1change {n1 n2 op} {
7872 global sha1string currentid sha1but
7875 set state disabled
7876 } else {
7877 set state normal
7878 }
7882 } else {
7884 }
7885 }
7887 proc gotocommit {} {
7888 global sha1string tagids headids curview varcid
7896 } else {
7903 return
7904 }
7906 }
7907 }
7908 }
7911 return
7912 }
7915 } else {
7917 }
7919 }
7921 proc lineenter {x y id} {
7922 global hoverx hovery hoverid hovertimer
7923 global commitinfo canv
7929 if {[info exists hovertimer]} {
7931 }
7932 set hovertimer [after 500 linehover]
7934 }
7936 proc linemotion {x y id} {
7937 global hoverx hovery hoverid hovertimer
7942 if {[info exists hovertimer]} {
7944 }
7945 set hovertimer [after 500 linehover]
7946 }
7947 }
7949 proc lineleave {id} {
7950 global hoverid hovertimer canv
7954 if {[info exists hovertimer]} {
7956 unset hovertimer
7957 }
7958 unset hoverid
7959 }
7960 }
7962 proc linehover {} {
7963 global hoverx hovery hoverid hovertimer
7964 global canv linespc lthickness
7965 global commitinfo
7978 -fill \#ffff80 -outline black -width 1 -tags hover]
7981 -font mainfont]
7983 }
7985 proc clickisonarrow {id y} {
7986 global lthickness
7995 }
7996 }
7997 return {}
7998 }
8000 proc arrowjump {id n y} {
8001 global canv
8003 # 1 <-> 2, 3 <-> 4, etc...
8013 set yfrac 0
8014 }
8016 }
8018 proc lineclick {x y id isnew} {
8019 global ctext commitinfo children canv thickerline curview
8022 unmarkmatches
8023 unselectline
8024 normalline
8026 # draw this line thicker than normal
8034 }
8038 return
8039 }
8043 }
8044 # fill the details pane with info about this line
8046 clear_ctext
8047 settabs 0
8059 set i 0
8061 incr i
8071 }
8072 }
8074 init_flist {}
8075 }
8077 proc normalline {} {
8078 global thickerline
8079 if {[info exists thickerline]} {
8081 unset thickerline
8083 }
8084 }
8086 proc selbyid {id} {
8087 global curview
8090 }
8091 }
8093 proc mstime {} {
8094 global startmstime
8095 if {![info exists startmstime]} {
8096 set startmstime [clock clicks -milliseconds]
8097 }
8099 }
8101 proc rowmenu {x y id} {
8102 global rowctxmenu selectedline rowmenuid curview
8103 global nullid nullid2 fakerowmenu mainhead markedid
8105 stopfinding
8108 set state disabled
8109 } else {
8110 set state normal
8111 }
8116 } else {
8118 }
8123 } else {
8127 }
8128 } else {
8130 }
8135 }
8137 proc markhere {} {
8138 global rowmenuid markedid canv
8142 }
8144 proc gotomark {} {
8145 global markedid
8147 if {[info exists markedid]} {
8149 }
8150 }
8152 proc replace_by_kids {l r} {
8153 global curview children
8159 }
8161 }
8163 proc find_common_desc {} {
8164 global markedid rowmenuid curview children
8166 if {![info exists markedid]} return
8169 #set t1 [clock clicks -milliseconds]
8172 while 1 {
8178 break
8179 }
8182 } else {
8184 }
8185 }
8186 #set t2 [clock clicks -milliseconds]
8188 }
8190 proc compare_commits {} {
8191 global markedid rowmenuid curview children
8193 if {![info exists markedid]} return
8197 }
8199 proc getpatchid {id} {
8200 global patchids
8204 # trim off the initial "|"
8206 if {[catch {
8209 }]} {
8211 }
8212 }
8214 }
8216 proc do_cmp_commits {a b} {
8217 global ctext curview parents children patchids commitinfo
8220 clear_ctext
8221 init_flist {}
8223 set skipa 0
8224 set skipb 0
8227 set skipa 1
8228 } else {
8230 }
8233 set skipb 1
8234 } else {
8236 }
8242 [mc " - stopping\n"]
8243 break
8244 }
8247 [mc " - stopping\n"]
8248 break
8249 }
8254 } else {
8258 }
8259 set skipa 1
8260 set skipb 1
8261 } else {
8267 break
8268 }
8269 }
8274 [mc " has %s children - stopping\n" \
8276 break
8277 }
8279 }
8283 [mc " has %s children - stopping\n" \
8285 break
8286 }
8288 }
8289 }
8291 }
8293 proc diffvssel {dirn} {
8294 global rowmenuid selectedline
8300 } else {
8303 }
8306 }
8308 proc doseldiff {oldid newid} {
8309 global ctext
8310 global commitinfo
8313 clear_ctext
8314 init_flist [mc "Top"]
8329 }
8331 proc mkpatch {} {
8332 global rowmenuid currentid commitinfo patchtop patchnum
8334 if {![info exists currentid]} return
8339 set top .patch
8369 incr patchnum
8381 }
8383 proc mkpatchrev {} {
8384 global patchtop
8390 foreach e [list fromsha1 fromhead tosha1 tohead] \
8396 }
8397 }
8399 proc mkpatchgo {} {
8400 global patchtop nullid nullid2
8406 # trim off the initial "|"
8411 }
8413 unset patchtop
8414 }
8416 proc mkpatchcan {} {
8417 global patchtop
8420 unset patchtop
8421 }
8423 proc mktag {} {
8424 global rowmenuid mktagtop commitinfo
8426 set top .maketag
8455 }
8457 proc domktag {} {
8458 global mktagtop env tagids idtags
8464 return 0
8465 }
8468 return 0
8469 }
8470 if {[catch {
8472 } err]} {
8474 return 0
8475 }
8481 dispneartags 0
8482 run refill_reflist
8483 return 1
8484 }
8486 proc redrawtags {id} {
8487 global canv linehtag idpos currentid curview cmitlisted markedid
8488 global canvxmax iddrawn circleitem mainheadid circlecolors
8494 set ofill yellow
8495 } else {
8497 }
8507 setcanvscroll
8508 }
8511 }
8514 }
8515 }
8517 proc mktagcan {} {
8518 global mktagtop
8521 unset mktagtop
8522 }
8524 proc mktaggo {} {
8525 if {![domktag]} return
8526 mktagcan
8527 }
8529 proc writecommit {} {
8530 global rowmenuid wrcomtop commitinfo wrcomcmd
8532 set top .writecommit
8565 }
8567 proc wrcomgo {} {
8568 global wrcomtop
8575 }
8577 unset wrcomtop
8578 }
8580 proc wrcomcan {} {
8581 global wrcomtop
8584 unset wrcomtop
8585 }
8587 proc mkbranch {} {
8588 global rowmenuid mkbrtop
8590 set top .makebranch
8614 }
8616 proc mkbrgo {top} {
8617 global headids idheads
8621 set cmdargs {}
8622 set old_id {}
8625 return
8626 }
8628 if {![confirm_popup [mc \
8630 return
8631 }
8633 lappend cmdargs -f
8634 }
8637 nowbusy newbranch
8638 update
8639 if {[catch {
8641 } err]} {
8642 notbusy newbranch
8644 } else {
8645 notbusy newbranch
8651 } else {
8656 }
8657 dispneartags 0
8658 run refill_reflist
8659 }
8660 }
8662 proc exec_citool {tool_args {baseid {}}} {
8663 global commitinfo env
8665 set save_env [array get env GIT_AUTHOR_*]
8670 }
8673 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
8679 }
8680 }
8684 array unset env GIT_AUTHOR_*
8686 }
8688 proc cherrypick {} {
8689 global rowmenuid curview
8690 global mainhead mainheadid
8692 set oldhead [exec git rev-parse HEAD]
8695 set ok [confirm_popup [mc "Commit %s is already\
8696 included in branch %s -- really re-apply it?" \
8699 }
8700 nowbusy cherrypick [mc "Cherry-picking"]
8701 update
8702 # Unfortunately git-cherry-pick writes stuff to stderr even when
8703 # no error occurs, and exec takes that as an indication of error...
8705 notbusy cherrypick
8706 if {[regexp -line \
8707 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
8709 error_popup [mc "Cherry-pick failed because of local changes\
8710 to file '%s'.\nPlease commit, reset or stash\
8712 } elseif {[regexp -line \
8713 {^(CONFLICT \(.*\):|Automatic cherry-pick failed)} \
8715 if {[confirm_popup [mc "Cherry-pick failed because of merge\
8716 conflict.\nDo you wish to run git citool to\
8717 resolve it?"]]} {
8718 # Force citool to read MERGE_MSG
8719 file delete [file join [gitdir] "GITGUI_MSG"]
8721 }
8722 } else {
8724 }
8725 run updatecommits
8726 return
8727 }
8728 set newhead [exec git rev-parse HEAD]
8730 notbusy cherrypick
8731 error_popup [mc "No changes committed"]
8732 return
8733 }
8736 # XXX this isn't right if we have a path limit...
8741 }
8746 }
8747 notbusy cherrypick
8748 }
8750 proc resethead {} {
8751 global mainhead rowmenuid confirm_ok resettype
8753 set confirm_ok 0
8754 set w ".confirmreset"
8760 -justify center -aspect 1000
8765 set resettype mixed
8767 -text [mc "Soft: Leave working tree and index untouched"]
8770 -text [mc "Mixed: Leave working tree untouched, reset index"]
8773 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
8784 if {[catch {set fd [open \
8787 } else {
8788 dohidelocalchanges
8790 nowbusy reset [mc "Resetting"]
8792 }
8793 }
8795 proc readresetstat {fd} {
8796 global mainhead mainheadid showlocalchanges rprogcoord
8801 adjustprogress
8802 }
8803 return 1
8804 }
8805 set rprogcoord 0
8806 adjustprogress
8807 notbusy reset
8810 }
8812 set newhead [exec git rev-parse HEAD]
8819 }
8821 doshowlocalchanges
8822 }
8823 return 0
8824 }
8826 # context menu for a head
8827 proc headmenu {x y id head} {
8828 global headmenuid headmenuhead headctxmenu mainhead
8830 stopfinding
8833 set state normal
8835 set state disabled
8836 }
8840 }
8842 proc cobranch {} {
8843 global headmenuid headmenuhead headids
8844 global showlocalchanges
8846 # check the tree is clean first??
8847 nowbusy checkout [mc "Checking out"]
8848 update
8849 dohidelocalchanges
8850 if {[catch {
8852 } err]} {
8853 notbusy checkout
8856 dodiffindex
8857 }
8858 } else {
8860 }
8861 }
8863 proc readcheckoutstat {fd newhead newheadid} {
8864 global mainhead mainheadid headids showlocalchanges progresscoords
8865 global viewmainheadid curview
8870 adjustprogress
8871 }
8872 return 1
8873 }
8874 set progresscoords {0 0}
8875 adjustprogress
8876 notbusy checkout
8879 }
8888 dodiffindex
8889 }
8890 }
8892 proc rmbranch {} {
8893 global headmenuid headmenuhead mainhead
8894 global idheads
8898 # this check shouldn't be needed any more...
8900 error_popup [mc "Cannot delete the currently checked-out branch"]
8901 return
8902 }
8905 # the stuff on this branch isn't on any other branch
8906 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
8908 }
8909 nowbusy rmbranch
8910 update
8912 notbusy rmbranch
8914 return
8915 }
8919 notbusy rmbranch
8920 dispneartags 0
8921 run refill_reflist
8922 }
8924 # Display a list of tags and heads
8925 proc showrefs {} {
8926 global showrefstop bgcolor fgcolor selectbgcolor
8927 global bglist fglist reflistfilter reflist maincursor
8929 set top .showrefs
8933 refill_reflist
8934 return
8935 }
8943 -spacing1 1 -spacing3 1 -state disabled
8954 set reflistfilter "*"
8955 trace add variable reflistfilter write reflistfilter_change
8967 set reflist {}
8968 refill_reflist
8969 }
8971 proc sel_reflist {w x y} {
8972 global showrefstop reflist headids tagids otherrefids
8982 }
8984 }
8986 proc unsel_reflist {} {
8987 global showrefstop
8991 }
8993 proc reflistfilter_change {n1 n2 op} {
8994 global reflistfilter
8996 after cancel refill_reflist
8997 after 200 refill_reflist
8998 }
9000 proc refill_reflist {} {
9001 global reflist reflistfilter showrefstop headids tagids otherrefids
9002 global curview
9005 set refs {}
9006 foreach n [array names headids] {
9010 } else {
9012 }
9013 }
9014 }
9015 foreach n [array names tagids] {
9019 } else {
9021 }
9022 }
9023 }
9024 foreach n [array names otherrefids] {
9028 } else {
9030 }
9031 }
9032 }
9040 set i 0
9041 set j 0
9050 }
9051 } else {
9052 set cmp -1
9053 }
9054 } else {
9055 set cmp 1
9056 }
9058 -1 {
9060 incr i
9061 }
9062 0 {
9063 incr i
9064 incr j
9065 }
9066 1 {
9071 incr j
9072 }
9073 }
9074 }
9076 # delete last newline
9079 }
9081 # Stuff for finding nearby tags
9082 proc getallcommits {} {
9083 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9084 global idheads idtags idotherrefs allparents tagobjid
9086 if {![info exists allcommits]} {
9087 set nextarc 0
9088 set allcommits 0
9089 set seeds {}
9090 set allcwait 0
9091 set cachedarcs 0
9092 set allccache [file join [gitdir] "gitk.cache"]
9093 if {![catch {
9095 set allcwait 1
9097 }]} return
9098 }
9101 return
9102 }
9103 set cmd [list | git rev-list --parents]
9106 set ids "--all"
9107 } else {
9108 set refs [concat [array names idheads] [array names idtags] \
9109 [array names idotherrefs]]
9110 set ids {}
9111 set tagobjs {}
9112 foreach name [array names tagobjid] {
9114 }
9119 }
9120 }
9124 }
9125 }
9126 }
9130 incr allcommits
9131 nowbusy allcommits
9133 } else {
9134 dispneartags 0
9135 }
9136 }
9138 # Since most commits have 1 parent and 1 child, we group strings of
9139 # such commits into "arcs" joining branch/merge points (BMPs), which
9140 # are commits that either don't have 1 parent or don't have 1 child.
9141 #
9142 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9143 # arcout(id) - outgoing arcs for BMP
9144 # arcids(a) - list of IDs on arc including end but not start
9145 # arcstart(a) - BMP ID at start of arc
9146 # arcend(a) - BMP ID at end of arc
9147 # growing(a) - arc a is still growing
9148 # arctags(a) - IDs out of arcids (excluding end) that have tags
9149 # archeads(a) - IDs out of arcids (excluding end) that have heads
9150 # The start of an arc is at the descendent end, so "incoming" means
9151 # coming from descendents, and "outgoing" means going towards ancestors.
9153 proc getallclines {fd} {
9154 global allparents allchildren idtags idheads nextarc
9155 global arcnos arcids arctags arcout arcend arcstart archeads growing
9156 global seeds allcommits cachedarcs allcupdate
9158 set nid 0
9162 # seen it already
9163 continue
9164 }
9165 set cachedarcs 0
9172 } else {
9178 }
9181 }
9183 # seen parent already
9186 }
9190 }
9193 continue
9194 }
9195 }
9200 }
9202 set ao {}
9205 set a [incr nextarc]
9214 # seen it already, may need to make a new branch
9217 }
9221 }
9223 }
9225 }
9227 global cached_dheads cached_dtags cached_atags
9228 catch {unset cached_dheads}
9229 catch {unset cached_dtags}
9230 catch {unset cached_atags}
9231 }
9234 }
9235 set cacheok 1
9236 if {[catch {
9239 } err]} {
9240 # got an error reading the list of commits
9241 # if we were updating, try rereading the whole thing again
9243 incr allcommits -1
9245 return
9246 }
9247 error_popup "[mc "Error reading commit topology information;\
9248 branch and preceding/following tag information\
9250 set cacheok 0
9251 }
9252 if {[incr allcommits -1] == 0} {
9253 notbusy allcommits
9255 run savecache
9256 }
9257 }
9258 dispneartags 0
9259 return 0
9260 }
9262 proc recalcarc {a} {
9263 global arctags archeads arcids idtags idheads
9265 set at {}
9266 set ah {}
9270 }
9273 }
9274 }
9277 }
9279 proc splitarc {p} {
9280 global arcnos arcids nextarc arctags archeads idtags idheads
9281 global arcstart arcend arcout allparents growing
9286 return
9287 }
9292 return
9293 }
9294 set na [incr nextarc]
9297 } else {
9301 }
9311 }
9316 } else {
9319 }
9320 }
9322 # reconstruct tags and heads lists
9326 } else {
9329 }
9330 }
9332 # Update things for a new commit added that is a child of one
9333 # existing commit. Used when cherry-picking.
9334 proc addnewchild {id p} {
9335 global allparents allchildren idtags nextarc
9336 global arcnos arcids arctags arcout arcend arcstart archeads growing
9337 global seeds allcommits
9345 set a [incr nextarc]
9353 }
9356 }
9358 # This implements a cache for the topology information.
9359 # The cache saves, for each arc, the start and end of the arc,
9360 # the ids on the arc, and the outgoing arcs from the end.
9361 proc readcache {f} {
9362 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
9363 global idtags idheads allparents cachedarcs possible_seeds seeds growing
9364 global allcwait
9370 }
9371 if {[catch {
9373 # finish reading the cache and setting up arctags, etc.
9377 foreach id [array names idtags] {
9383 }
9384 }
9385 }
9386 foreach id [array names idheads] {
9392 }
9393 }
9394 }
9398 }
9399 }
9400 set allcwait 0
9401 } else {
9411 }
9415 } else {
9419 }
9420 }
9426 }
9429 }
9432 }
9434 }
9435 } err]} {
9437 return 0
9438 }
9440 getallcommits
9441 }
9443 }
9445 proc getcache {f} {
9446 global nextarc cachedarcs possible_seeds
9448 if {[catch {
9451 # make sure it's an integer
9454 set nextarc 0
9455 set possible_seeds {}
9457 } err]} {
9459 }
9460 return 0
9461 }
9463 proc dropcache {err} {
9464 global allcwait nextarc cachedarcs seeds
9467 foreach v {arcnos arcout arcids arcstart arcend growing \
9468 arctags archeads allparents allchildren} {
9471 }
9472 set allcwait 0
9473 set nextarc 0
9474 set cachedarcs 0
9475 set seeds {}
9476 getallcommits
9477 }
9479 proc writecache {f} {
9480 global cachearc cachedarcs allccache
9481 global arcstart arcend arcnos arcids arcout
9487 }
9488 if {[catch {
9492 } else {
9494 }
9495 }
9496 } err]} {
9500 return 0
9501 }
9506 return 0
9507 }
9508 return 1
9509 }
9511 proc savecache {} {
9512 global nextarc cachedarcs cachearc allccache
9515 set cachearc 0
9517 catch {
9521 }
9522 }
9524 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
9525 # or 0 if neither is true.
9526 proc anc_or_desc {a b} {
9527 global arcout arcstart arcend arcnos cached_isanc
9530 # Both are on the same arc(s); either both are the same BMP,
9531 # or if one is not a BMP, the other is also not a BMP or is
9532 # the BMP at end of the arc (and it only has 1 incoming arc).
9533 # Or both can be BMPs with no incoming arcs.
9535 return 0
9536 }
9542 return 1
9543 } else {
9544 return -1
9545 }
9546 }
9552 } else {
9553 set aend {}
9554 }
9556 } else {
9558 }
9563 } else {
9564 set bend {}
9565 }
9567 } else {
9569 }
9571 return 1
9572 }
9574 return -1
9575 }
9578 return 1
9579 }
9580 }
9583 return -1
9584 }
9586 return 0
9587 }
9588 }
9596 continue
9597 }
9603 return 1
9607 return -1
9608 }
9614 }
9615 }
9616 }
9619 return 0
9620 }
9624 # and returns 0 if so and 1 if not.
9625 # If we subsequently discover a tag on such a growing tip, and that
9628 # isn't a good choice to display as a descendent tag of
9632 #
9633 proc is_certain {desc anc} {
9634 global arcnos arcout arcstart arcend growing problems
9636 set certain {}
9638 # tags on the same arc are certain
9640 return 1
9641 }
9646 }
9647 }
9650 } else {
9653 }
9655 return 1
9656 }
9659 set nnh 1
9660 set ngrowanc 0
9664 incr nnh -1
9665 }
9671 incr ngrowanc
9672 }
9673 } else {
9680 incr nnh -1
9681 }
9683 incr ngrowanc -1
9684 }
9694 incr nnh -1
9695 }
9697 incr ngrowanc -1
9698 }
9700 }
9701 }
9702 }
9703 }
9704 }
9705 }
9709 } else {
9712 incr nnh
9713 }
9714 }
9715 }
9716 }
9717 foreach x [array names growanc] {
9719 return 0
9720 }
9721 return 0
9722 }
9723 return 1
9724 }
9726 proc validate_arctags {a} {
9727 global arctags idtags
9729 set i -1
9732 incr i
9735 incr i -1
9736 }
9737 }
9739 }
9741 proc validate_archeads {a} {
9742 global archeads idheads
9744 set i -1
9747 incr i
9750 incr i -1
9751 }
9752 }
9754 }
9756 # Return the list of IDs that have tags that are descendents of id,
9757 # ignoring IDs that are descendents of IDs already reported.
9758 proc desctags {id} {
9759 global arcnos arcstart arcids arctags idtags allparents
9760 global growing cached_dtags
9763 return {}
9764 }
9765 set t1 [clock clicks -milliseconds]
9768 # part-way along an arc; check that arc first
9773 set tid {}
9778 }
9781 }
9782 }
9786 }
9787 }
9790 }
9795 set nc 1
9801 incr nc -1
9802 }
9803 # ignore tags on starting node
9807 set ta 1
9810 set ta 1
9811 }
9812 }
9819 }
9820 }
9829 }
9832 }
9834 incr nc -1
9835 }
9837 }
9838 }
9839 }
9844 incr nc
9845 }
9846 }
9847 }
9848 }
9849 set tags {}
9850 foreach id [array names tagloc] {
9855 }
9856 }
9857 }
9858 }
9859 set t2 [clock clicks -milliseconds]
9862 # remove tags that are descendents of other tags
9870 incr j -1
9871 incr i -1
9874 incr i -1
9875 break
9876 }
9877 }
9878 }
9880 if {[array names growing] ne {}} {
9881 # graph isn't finished, need to check if any tag could get
9882 # eclipsed by another tag coming later. Simply ignore any
9883 # tags that could later get eclipsed.
9884 set ctags {}
9888 }
9889 }
9892 } else {
9894 }
9895 } else {
9897 }
9898 set t3 [clock clicks -milliseconds]
9902 }
9904 }
9906 proc anctags {id} {
9907 global arcnos arcids arcout arcend arctags idtags allparents
9908 global growing cached_atags
9911 return {}
9912 }
9913 set t1 [clock clicks -milliseconds]
9916 # part-way along an arc; check that arc first
9925 }
9926 }
9927 }
9929 return {}
9930 }
9934 }
9935 }
9938 }
9943 set taglist {}
9944 set nc 1
9950 incr nc -1
9951 }
9952 # ignore tags on starting node
9956 set td 1
9959 set td 1
9960 }
9961 }
9967 }
9968 }
9980 }
9981 }
9984 }
9986 incr nc -1
9987 }
9989 }
9990 }
9991 }
9996 incr nc
9997 }
9998 }
9999 }
10000 }
10001 set t2 [clock clicks -milliseconds]
10003 set tags {}
10004 foreach id [array names tagloc] {
10009 }
10010 }
10011 }
10012 }
10014 # remove tags that are ancestors of other tags
10022 incr j -1
10023 incr i -1
10026 incr i -1
10027 break
10028 }
10029 }
10030 }
10032 if {[array names growing] ne {}} {
10033 # graph isn't finished, need to check if any tag could get
10034 # eclipsed by another tag coming later. Simply ignore any
10035 # tags that could later get eclipsed.
10036 set ctags {}
10040 }
10041 }
10044 } else {
10046 }
10047 } else {
10049 }
10050 set t3 [clock clicks -milliseconds]
10054 }
10056 }
10058 # Return the list of IDs that have heads that are descendents of id,
10059 # including id itself if it has a head.
10060 proc descheads {id} {
10061 global arcnos arcstart arcids archeads idheads cached_dheads
10062 global allparents
10065 return {}
10066 }
10067 set aret {}
10069 # part-way along an arc; check it first
10078 }
10079 }
10081 }
10085 set ret {}
10090 } else {
10093 }
10099 }
10100 }
10105 }
10106 }
10107 }
10108 }
10112 }
10114 proc addedtag {id} {
10115 global arcnos arcout cached_dtags cached_atags
10120 }
10121 catch {unset cached_dtags}
10122 catch {unset cached_atags}
10123 }
10125 proc addedhead {hid head} {
10126 global arcnos arcout cached_dheads
10131 }
10132 catch {unset cached_dheads}
10133 }
10135 proc removedhead {hid head} {
10136 global cached_dheads
10138 catch {unset cached_dheads}
10139 }
10141 proc movedhead {hid head} {
10142 global arcnos arcout cached_dheads
10147 }
10148 catch {unset cached_dheads}
10149 }
10151 proc changedrefs {} {
10152 global cached_dheads cached_dtags cached_atags
10153 global arctags archeads arcnos arcout idheads idtags
10155 foreach id [concat [array names idheads] [array names idtags]] {
10161 }
10162 }
10163 }
10164 catch {unset cached_dtags}
10165 catch {unset cached_atags}
10166 catch {unset cached_dheads}
10167 }
10169 proc rereadrefs {} {
10170 global idtags idheads idotherrefs mainheadid
10172 set refids [concat [array names idtags] \
10173 [array names idheads] [array names idotherrefs]]
10177 }
10178 }
10180 readrefs
10181 changedrefs
10183 [array names idheads] [array names idotherrefs]]]
10188 }
10189 }
10193 }
10194 run refill_reflist
10195 }
10197 proc listrefs {id} {
10198 global idtags idheads idotherrefs
10200 set x {}
10203 }
10204 set y {}
10207 }
10208 set z {}
10211 }
10213 }
10215 proc showtag {tag isnew} {
10216 global ctext tagcontents tagids linknum tagobjid
10220 }
10222 clear_ctext
10223 settabs 0
10224 set linknum 0
10226 catch {
10228 }
10229 }
10232 } else {
10234 }
10237 init_flist {}
10238 }
10240 proc doquit {} {
10241 global stopped
10242 global gitktmpdir
10244 set stopped 100
10245 savestuff .
10246 destroy .
10248 if {[info exists gitktmpdir]} {
10250 }
10251 }
10253 proc mkfontdisp {font top which} {
10262 }
10264 proc choosefont {font which} {
10265 global fontparam fontlist fonttop fontattr
10266 global prefstop
10274 set top .gitkfont
10277 font create sample
10284 set fontlist [lsort [font families]]
10295 -textvariable fontparam(size) \
10296 -validatecommand {string is integer -strict %s}
10298 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
10299 -variable fontparam(weight) -onvalue bold -offvalue normal
10301 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
10302 -variable fontparam(slant) -onvalue italic -offvalue roman
10306 -background white
10308 -fill black -tags text
10320 trace add variable fontparam write chg_fontparam
10321 } else {
10324 }
10329 }
10330 }
10332 proc centertext {w} {
10334 }
10336 proc fontok {} {
10337 global fontparam fontpref prefstop
10343 }
10346 }
10350 fontcan
10351 }
10353 proc fontcan {} {
10354 global fonttop fontparam
10356 if {[info exists fonttop]} {
10358 catch {font delete sample}
10359 unset fonttop
10360 unset fontparam
10361 }
10362 }
10364 proc selfontfam {} {
10365 global fonttop fontparam
10370 }
10371 }
10373 proc chg_fontparam {v sub op} {
10374 global fontparam
10377 }
10379 proc doprefs {} {
10380 global maxwidth maxgraphpct
10381 global oldprefs prefstop showneartags showlocalchanges
10382 global bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
10383 global tabstop limitdiffs autoselect extdifftool perfile_attrs
10385 set top .gitkprefs
10389 return
10390 }
10391 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10392 limitdiffs tabstop perfile_attrs} {
10394 }
10402 -font optionfont
10406 -font optionfont
10410 -font optionfont -variable showlocalchanges
10413 -font optionfont -variable autoselect
10422 -font optionfont -variable showneartags
10425 -font optionfont -variable limitdiffs
10428 -font optionfont -variable perfile_attrs
10434 -padx 10
10436 -command choose_extdiff
10463 [mc "diff hunk header"] \
10469 [mc "marked line background"] \
10493 }
10495 proc choose_extdiff {} {
10496 global extdifftool
10498 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
10501 }
10502 }
10504 proc choosecolor {v vi w x cmd} {
10513 }
10515 proc setselbg {c} {
10516 global bglist cflist
10519 }
10523 }
10525 proc setbg {c} {
10526 global bglist
10530 }
10531 }
10533 proc setfg {c} {
10534 global fglist canv
10538 }
10542 }
10544 proc prefscan {} {
10545 global oldprefs prefstop
10547 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
10548 limitdiffs tabstop perfile_attrs} {
10551 }
10553 unset prefstop
10554 fontcan
10555 }
10557 proc prefsok {} {
10558 global maxwidth maxgraphpct
10559 global oldprefs prefstop showneartags showlocalchanges
10560 global fontpref mainfont textfont uifont
10561 global limitdiffs treediffs perfile_attrs
10564 unset prefstop
10565 fontcan
10566 set fontchanged 0
10570 eval font configure mainfont [fontflags mainfont]
10571 eval font configure mainfontbold [fontflags mainfont 1]
10572 setcoords
10573 set fontchanged 1
10574 }
10578 eval font configure textfont [fontflags textfont]
10579 eval font configure textfontbold [fontflags textfont 1]
10580 }
10584 eval font configure uifont [fontflags uifont]
10585 }
10586 settabs
10589 doshowlocalchanges
10590 } else {
10591 dohidelocalchanges
10592 }
10593 }
10596 # treediffs elements are limited by path;
10597 # won't have encodings cached if perfile_attrs was just turned on
10598 catch {unset treediffs}
10599 }
10602 redisplay
10605 reselectline
10606 }
10607 }
10609 proc formatdate {d} {
10610 global datetimeformat
10613 }
10615 }
10617 # This list of encoding names and aliases is distilled from
10618 # http://www.iana.org/assignments/character-sets.
10619 # Not all of them are supported by Tcl.
10620 set encoding_aliases {
10621 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
10622 ISO646-US US-ASCII us IBM367 cp367 csASCII }
10623 { ISO-10646-UTF-1 csISO10646UTF1 }
10624 { ISO_646.basic:1983 ref csISO646basic1983 }
10625 { INVARIANT csINVARIANT }
10626 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
10627 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
10628 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
10629 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
10630 { NATS-DANO iso-ir-9-1 csNATSDANO }
10631 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
10632 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
10633 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
10634 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
10635 { ISO-2022-KR csISO2022KR }
10636 { EUC-KR csEUCKR }
10637 { ISO-2022-JP csISO2022JP }
10638 { ISO-2022-JP-2 csISO2022JP2 }
10639 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
10640 csISO13JISC6220jp }
10641 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
10642 { IT iso-ir-15 ISO646-IT csISO15Italian }
10643 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
10644 { ES iso-ir-17 ISO646-ES csISO17Spanish }
10645 { greek7-old iso-ir-18 csISO18Greek7Old }
10646 { latin-greek iso-ir-19 csISO19LatinGreek }
10647 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
10648 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
10649 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
10650 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
10651 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
10652 { BS_viewdata iso-ir-47 csISO47BSViewdata }
10653 { INIS iso-ir-49 csISO49INIS }
10654 { INIS-8 iso-ir-50 csISO50INIS8 }
10655 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
10656 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
10657 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
10658 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
10659 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
10660 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
10661 csISO60Norwegian1 }
10662 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
10663 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
10664 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
10665 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
10666 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
10667 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
10668 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
10669 { greek7 iso-ir-88 csISO88Greek7 }
10670 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
10671 { iso-ir-90 csISO90 }
10672 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
10673 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
10674 csISO92JISC62991984b }
10675 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
10676 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
10677 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
10678 csISO95JIS62291984handadd }
10679 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
10680 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
10681 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
10682 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
10683 CP819 csISOLatin1 }
10684 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
10685 { T.61-7bit iso-ir-102 csISO102T617bit }
10686 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
10687 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
10688 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
10689 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
10690 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
10691 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
10692 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
10693 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
10694 arabic csISOLatinArabic }
10695 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
10696 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
10697 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
10698 greek greek8 csISOLatinGreek }
10699 { T.101-G2 iso-ir-128 csISO128T101G2 }
10700 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
10701 csISOLatinHebrew }
10702 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
10703 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
10704 { CSN_369103 iso-ir-139 csISO139CSN369103 }
10705 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
10706 { ISO_6937-2-add iso-ir-142 csISOTextComm }
10707 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
10708 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
10709 csISOLatinCyrillic }
10710 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
10711 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
10712 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
10713 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
10714 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
10715 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
10716 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
10717 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
10718 { ISO_10367-box iso-ir-155 csISO10367Box }
10719 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
10720 { latin-lap lap iso-ir-158 csISO158Lap }
10721 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
10722 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
10723 { us-dk csUSDK }
10724 { dk-us csDKUS }
10725 { JIS_X0201 X0201 csHalfWidthKatakana }
10726 { KSC5636 ISO646-KR csKSC5636 }
10727 { ISO-10646-UCS-2 csUnicode }
10728 { ISO-10646-UCS-4 csUCS4 }
10729 { DEC-MCS dec csDECMCS }
10730 { hp-roman8 roman8 r8 csHPRoman8 }
10731 { macintosh mac csMacintosh }
10732 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
10733 csIBM037 }
10734 { IBM038 EBCDIC-INT cp038 csIBM038 }
10735 { IBM273 CP273 csIBM273 }
10736 { IBM274 EBCDIC-BE CP274 csIBM274 }
10737 { IBM275 EBCDIC-BR cp275 csIBM275 }
10738 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
10739 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
10740 { IBM280 CP280 ebcdic-cp-it csIBM280 }
10741 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
10742 { IBM284 CP284 ebcdic-cp-es csIBM284 }
10743 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
10744 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
10745 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
10746 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
10747 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
10748 { IBM424 cp424 ebcdic-cp-he csIBM424 }
10749 { IBM437 cp437 437 csPC8CodePage437 }
10750 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
10751 { IBM775 cp775 csPC775Baltic }
10752 { IBM850 cp850 850 csPC850Multilingual }
10753 { IBM851 cp851 851 csIBM851 }
10754 { IBM852 cp852 852 csPCp852 }
10755 { IBM855 cp855 855 csIBM855 }
10756 { IBM857 cp857 857 csIBM857 }
10757 { IBM860 cp860 860 csIBM860 }
10758 { IBM861 cp861 861 cp-is csIBM861 }
10759 { IBM862 cp862 862 csPC862LatinHebrew }
10760 { IBM863 cp863 863 csIBM863 }
10761 { IBM864 cp864 csIBM864 }
10762 { IBM865 cp865 865 csIBM865 }
10763 { IBM866 cp866 866 csIBM866 }
10764 { IBM868 CP868 cp-ar csIBM868 }
10765 { IBM869 cp869 869 cp-gr csIBM869 }
10766 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
10767 { IBM871 CP871 ebcdic-cp-is csIBM871 }
10768 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
10769 { IBM891 cp891 csIBM891 }
10770 { IBM903 cp903 csIBM903 }
10771 { IBM904 cp904 904 csIBBM904 }
10772 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
10773 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
10774 { IBM1026 CP1026 csIBM1026 }
10775 { EBCDIC-AT-DE csIBMEBCDICATDE }
10776 { EBCDIC-AT-DE-A csEBCDICATDEA }
10777 { EBCDIC-CA-FR csEBCDICCAFR }
10778 { EBCDIC-DK-NO csEBCDICDKNO }
10779 { EBCDIC-DK-NO-A csEBCDICDKNOA }
10780 { EBCDIC-FI-SE csEBCDICFISE }
10781 { EBCDIC-FI-SE-A csEBCDICFISEA }
10782 { EBCDIC-FR csEBCDICFR }
10783 { EBCDIC-IT csEBCDICIT }
10784 { EBCDIC-PT csEBCDICPT }
10785 { EBCDIC-ES csEBCDICES }
10786 { EBCDIC-ES-A csEBCDICESA }
10787 { EBCDIC-ES-S csEBCDICESS }
10788 { EBCDIC-UK csEBCDICUK }
10789 { EBCDIC-US csEBCDICUS }
10790 { UNKNOWN-8BIT csUnknown8BiT }
10791 { MNEMONIC csMnemonic }
10792 { MNEM csMnem }
10793 { VISCII csVISCII }
10794 { VIQR csVIQR }
10795 { KOI8-R csKOI8R }
10796 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
10797 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
10798 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
10799 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
10800 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
10801 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
10802 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
10803 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
10804 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
10805 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
10806 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
10807 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
10808 { IBM1047 IBM-1047 }
10809 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
10810 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
10811 { UNICODE-1-1 csUnicode11 }
10812 { CESU-8 csCESU-8 }
10813 { BOCU-1 csBOCU-1 }
10814 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
10815 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
10816 l8 }
10817 { ISO-8859-15 ISO_8859-15 Latin-9 }
10818 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
10819 { GBK CP936 MS936 windows-936 }
10820 { JIS_Encoding csJISEncoding }
10821 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
10822 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
10823 EUC-JP }
10824 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
10825 { ISO-10646-UCS-Basic csUnicodeASCII }
10826 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
10827 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
10828 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
10829 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
10830 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
10831 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
10832 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
10833 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
10834 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
10835 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
10836 { Adobe-Standard-Encoding csAdobeStandardEncoding }
10837 { Ventura-US csVenturaUS }
10838 { Ventura-International csVenturaInternational }
10839 { PC8-Danish-Norwegian csPC8DanishNorwegian }
10840 { PC8-Turkish csPC8Turkish }
10841 { IBM-Symbols csIBMSymbols }
10842 { IBM-Thai csIBMThai }
10843 { HP-Legal csHPLegal }
10844 { HP-Pi-font csHPPiFont }
10845 { HP-Math8 csHPMath8 }
10846 { Adobe-Symbol-Encoding csHPPSMath }
10847 { HP-DeskTop csHPDesktop }
10848 { Ventura-Math csVenturaMath }
10849 { Microsoft-Publishing csMicrosoftPublishing }
10850 { Windows-31J csWindows31J }
10851 { GB2312 csGB2312 }
10852 { Big5 csBig5 }
10853 }
10855 proc tcl_encoding {enc} {
10856 global encoding_aliases tcl_encoding_cache
10859 }
10860 set names [encoding names]
10865 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
10868 }
10869 }
10874 # look through the aliases for one that tcl knows about
10880 }
10881 }
10883 }
10884 break
10885 }
10886 }
10887 set tclenc {}
10890 }
10893 }
10895 proc gitattr {path attr default} {
10896 global path_attr_cache
10899 } else {
10900 set r "unspecified"
10903 }
10905 }
10908 }
10910 }
10912 proc cache_gitattr {attr pathlist} {
10913 global path_attr_cache
10914 set newlist {}
10918 }
10919 }
10920 set lim 1000
10921 if {[tk windowingsystem] == "win32"} {
10922 # windows has a 32k limit on the arguments to a command...
10923 set lim 30
10924 }
10933 }
10935 }
10936 }
10937 }
10938 }
10939 }
10941 proc get_path_encoding {path} {
10942 global gui_encoding perfile_attrs
10948 }
10949 }
10951 }
10953 # First check that Tcl/Tk is recent enough
10954 if {[catch {package require Tk 8.4} err]} {
10955 show_error {} . [mc "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
10956 Gitk requires at least Tcl/Tk 8.4."]
10957 exit 1
10958 }
10960 # defaults...
10961 set wrcomcmd "git diff-tree --stdin -p --pretty"
10963 set gitencoding {}
10964 catch {
10965 set gitencoding [exec git config --get i18n.commitencoding]
10966 }
10967 catch {
10968 set gitencoding [exec git config --get i18n.logoutputencoding]
10969 }
10971 set gitencoding "utf-8"
10972 }
10976 }
10978 set gui_encoding [encoding system]
10979 catch {
10980 set enc [exec git config --get gui.encoding]
10985 } else {
10987 }
10988 }
10989 }
10991 if {[tk windowingsystem] eq "aqua"} {
10992 set mainfont {{Lucida Grande} 9}
10993 set textfont {Monaco 9}
10994 set uifont {{Lucida Grande} 9 bold}
10995 } else {
10996 set mainfont {Helvetica 9}
10997 set textfont {Courier 9}
10998 set uifont {Helvetica 9 bold}
10999 }
11000 set tabstop 8
11001 set findmergefiles 0
11002 set maxgraphpct 50
11003 set maxwidth 16
11004 set revlistorder 0
11005 set fastdate 0
11006 set uparrowlen 5
11007 set downarrowlen 5
11008 set mingaplen 100
11009 set cmitmode "patch"
11010 set wrapcomment "none"
11011 set showneartags 1
11012 set maxrefs 20
11013 set maxlinelen 200
11014 set showlocalchanges 1
11015 set limitdiffs 1
11016 set datetimeformat "%Y-%m-%d %H:%M:%S"
11017 set autoselect 1
11018 set perfile_attrs 0
11020 if {[tk windowingsystem] eq "aqua"} {
11021 set extdifftool "opendiff"
11022 } else {
11023 set extdifftool "meld"
11024 }
11026 set colors {green red blue magenta darkgrey brown orange}
11027 set bgcolor white
11028 set fgcolor black
11029 set diffcolors {red "#00a000" blue}
11030 set diffcontext 3
11031 set ignorespace 0
11032 set selectbgcolor gray85
11033 set markbgcolor "#e0e0ff"
11035 set circlecolors {white blue gray blue blue}
11037 # button for popping up context menus
11038 if {[tk windowingsystem] eq "aqua"} {
11039 set ctxbut <Button-2>
11040 } else {
11041 set ctxbut <Button-3>
11042 }
11044 ## For msgcat loading, first locate the installation location.
11045 if { [info exists ::env(GITK_MSGSDIR)] } {
11046 ## Msgsdir was manually set in the environment.
11047 set gitk_msgsdir $::env(GITK_MSGSDIR)
11048 } else {
11049 ## Let's guess the prefix from argv0.
11053 unset gitk_prefix
11054 }
11056 ## Internationalization (i18n) through msgcat and gettext. See
11057 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
11058 package require msgcat
11059 namespace import ::msgcat::mc
11060 ## And eventually load the actual message catalog
11063 catch {source ~/.gitk}
11065 font create optionfont -family sans-serif -size -12
11068 eval font create mainfont [fontflags mainfont]
11069 eval font create mainfontbold [fontflags mainfont 1]
11072 eval font create textfont [fontflags textfont]
11073 eval font create textfontbold [fontflags textfont 1]
11076 eval font create uifont [fontflags uifont]
11078 setoptions
11080 # check that we can find a .git directory somewhere...
11081 if {[catch {set gitdir [gitdir]}]} {
11082 show_error {} . [mc "Cannot find a git repository here."]
11083 exit 1
11084 }
11087 exit 1
11088 }
11090 set selecthead {}
11091 set selectheadid {}
11093 set revtreeargs {}
11094 set cmdline_files {}
11095 set i 0
11096 set revtreeargscmd {}
11099 "" { }
11100 "--" {
11102 break
11103 }
11104 "--select-commit=*" {
11106 }
11107 "--argscmd=*" {
11109 }
11110 default {
11112 }
11113 }
11114 incr i
11115 }
11118 set selecthead {}
11119 }
11122 # no -- on command line, but some arguments (other than --argscmd)
11123 if {[catch {
11128 # Unfortunately git rev-parse doesn't produce an error when
11129 # something is both a revision and a filename. To be consistent
11130 # with git log and git rev-list, check revtreeargs for filenames.
11133 show_error {} . [mc "Ambiguous argument '%s': both revision\
11135 exit 1
11136 }
11137 }
11138 } err]} {
11140 # so look for "fatal:".
11144 }
11146 exit 1
11147 }
11148 }
11150 set nullid "0000000000000000000000000000000000000000"
11151 set nullid2 "0000000000000000000000000000000000000001"
11152 set nullfile "/dev/null"
11155 set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
11157 set runq {}
11158 set history {}
11159 set historyindex 0
11160 set fh_serial 0
11161 set nhl_names {}
11162 set highlight_paths {}
11163 set findpattern {}
11164 set searchdirn -forwards
11165 set boldids {}
11166 set boldnameids {}
11167 set diffelide {0 0}
11168 set markingmatches 0
11169 set linkentercount 0
11170 set need_redisplay 0
11171 set nrows_drawn 0
11172 set firsttabstop 0
11174 set nextviewnum 1
11175 set curview 0
11176 set selectedview 0
11177 set selectedhlview [mc "None"]
11178 set highlight_related [mc "None"]
11179 set highlight_files {}
11180 set viewfiles(0) {}
11181 set viewperm(0) 0
11182 set viewargs(0) {}
11183 set viewargscmd(0) {}
11185 set selectedline {}
11186 set numcommits 0
11187 set loginstance 0
11188 set cmdlineok 0
11189 set stopped 0
11190 set stuffsaved 0
11191 set patchnum 0
11192 set lserial 0
11193 set isworktree [expr {[exec git rev-parse --is-inside-work-tree] == "true"}]
11194 setcoords
11195 makewindow
11196 catch {
11197 image create photo gitlogo -width 16 -height 16
11199 image create photo gitlogominus -width 4 -height 2
11200 gitlogominus put #C00000 -to 0 0 4 2
11201 gitlogo copy gitlogominus -to 1 5
11202 gitlogo copy gitlogominus -to 6 5
11203 gitlogo copy gitlogominus -to 11 5
11204 image delete gitlogominus
11206 image create photo gitlogoplus -width 4 -height 4
11207 gitlogoplus put #008000 -to 1 0 3 4
11208 gitlogoplus put #008000 -to 0 1 4 3
11209 gitlogo copy gitlogoplus -to 1 9
11210 gitlogo copy gitlogoplus -to 6 9
11211 gitlogo copy gitlogoplus -to 11 9
11212 image delete gitlogoplus
11214 image create photo gitlogo32 -width 32 -height 32
11215 gitlogo32 copy gitlogo -zoom 2 2
11217 wm iconphoto . -default gitlogo gitlogo32
11218 }
11219 # wait for the window to become visible
11220 tkwait visibility .
11222 update
11223 readrefs
11226 # create a view for the files/dirs specified on the command line
11227 set curview 1
11228 set selectedview 1
11229 set nextviewnum 2
11230 set viewname(1) [mc "Command line"]
11234 set viewperm(1) 0
11235 set vdatemode(1) 0
11236 addviewmenu 1
11237 .bar.view entryconf [mca "Edit view..."] -state normal
11238 .bar.view entryconf [mca "Delete view"] -state normal
11239 }
11241 if {[info exists permviews]} {
11244 incr nextviewnum
11251 }
11252 }
11254 if {[tk windowingsystem] eq "win32"} {
11255 focus -force .
11256 }
11258 getcommits {}