| blob | 90764e8948f1f95aaddfb381664ecede328bc863 |
1 #!/bin/sh
2 # Tcl ignores the next line -*- tcl -*- \
5 # Copyright © 2005-2014 Paul Mackerras. All rights reserved.
6 # This program is free software; it may be used, copied, modified
7 # and distributed under the terms of the GNU General Public Licence,
8 # either version 2, or (at your option) any later version.
10 package require Tk
12 proc hasworktree {} {
15 }
17 proc reponame {} {
18 global gitdir
22 }
24 }
26 proc gitworktree {} {
27 variable _gitworktree
30 }
31 # v1.7.0 introduced --show-toplevel to return the canonical work-tree
33 # try to set work tree from environment, core.worktree or use
34 # cdup to obtain a relative path to the top of the worktree. If
35 # run from the top, the ./ prefix ensures normalize expands pwd.
40 }
41 }
42 }
44 }
46 # A simple scheduler for compute-intensive stuff.
47 # The aim is to make sure that event handlers for GUI actions can
48 # run at least every 50-100 ms. Unfortunately fileevent handlers are
49 # run before X event handlers, so reading from a fast source can
50 # make the GUI completely unresponsive.
51 proc run args {
52 global isonrunq runq currunq
57 after idle dorunq
58 }
61 }
65 }
68 global runq currunq
72 after idle dorunq
73 }
75 }
78 global runq
84 incr i
85 }
86 }
87 }
89 proc dorunq {} {
90 global isonrunq runq currunq
100 unset currunq
105 # script returns 1 if it wants to be readded
106 # file readers return 2 if they could do more straight away
110 }
113 }
116 }
118 after idle dorunq
119 }
120 }
123 global commfd leftover loginstance
129 }
132 global nr_unmerged
134 # find the list of unmerged files
141 exit 1
142 }
148 incr nr_unmerged
151 }
152 }
155 }
157 proc parseviewargs {n arglist} {
158 global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
159 global vinlinediff
160 global worddiff git_version
165 set glflags {}
166 set diffargs {}
167 set nextisval 0
168 set revargs {}
170 set allknown 1
171 set filtered 0
172 set i -1
174 incr i
177 set nextisval 0
178 continue
179 }
181 "-d" -
182 "--date-order" {
184 # remove from origargs in case we hit an unknown option
186 incr i -1
187 }
188 "-[puabwcrRBMC]" -
189 "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
190 "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
191 "--src-prefix=*" - "--dst-prefix=*" - "--no-prefix" -
192 "-O*" - "--text" - "--full-diff" - "--ignore-space-at-eol" -
193 "--ignore-space-change" - "-U*" - "--unified=*" {
194 # These request or affect diff output, which we don't want.
195 # Some could be used to set our defaults for diff display.
196 lappend diffargs $arg
197 }
205 # These cause our parsing of git log's output to fail, or else
206 # they're options we want to set ourselves, so ignore them.
207 }
209 # These trigger a word diff in the console interface,
210 # so help the user by enabling our own support
213 }
214 }
218 }
219 }
224 # These are harmless, and some are even useful
225 lappend glflags $arg
226 }
234 # These mean that we get a subset of the commits
236 lappend glflags $arg
237 }
239 # Line-log with 'stuck' argument (unstuck form is
240 # not supported)
244 lappend glflags $arg
245 }
247 # This appears to be the only one that has a value as a
248 # separate word following it
251 lappend glflags $arg
252 }
254 lappend revargs $arg
255 }
258 # git rev-parse doesn't understand --merge
259 lappend revargs --gitk-symmetric-diff-marker MERGE_HEAD...HEAD
260 }
263 }
265 # Other flag arguments including -<n>
269 # a flag argument that we don't recognize;
270 # that means we can't optimize
272 }
273 lappend glflags $arg
274 }
275 default {
276 # Non-flag arguments specify commits or ranges of commits
278 lappend revargs --gitk-symmetric-diff-marker
279 }
280 lappend revargs $arg
281 }
282 }
283 }
290 }
293 global vposids vnegids
296 set revs HEAD
297 }
299 # we get stdout followed by stderr in $err
300 # for an unknown rev, git rev-parse echoes it and then errors out
313 }
316 }
317 break
318 }
319 lappend badrev $line
320 }
321 }
324 }
334 lappend ret $id
337 }
338 }
342 lappend ret $id
345 }
346 lappend pos $id
347 }
348 incr sdm -1
349 }
353 }
355 # Start off a git log process and arrange to read its output
357 global startmsecs commitidx viewcomplete curview
358 global tclencoding
359 global viewargs viewargscmd viewfiles vfilelimit
360 global showlocalchanges
361 global viewactive viewinstances vmergeonly
362 global mainheadid viewmainheadid viewmainheadid_orig
363 global vcanopt vflags vrevs vorigargs
364 global show_notes
368 # these are set this way for the error exits
371 varcinit $view
380 }
382 }
389 global nr_unmerged
396 }
398 }
399 }
406 }
410 }
418 }
424 get_viewmainhead $view
425 }
428 }
432 }
438 }
441 global commfd leftover
444 catch {
451 }
452 }
454 nukefile $fd
457 }
459 proc stop_backends {} {
460 global commfd
463 stop_instance $inst
464 }
465 }
468 global viewinstances
471 stop_instance $inst
472 }
474 }
477 global pending_select mainheadid selectheadid
485 }
486 }
489 global canv curview need_redisplay viewactive
491 initlayout
493 reset_pending_select $selid
498 }
499 }
501 proc updatecommits {} {
502 global curview vcanopt vorigargs vfilelimit viewinstances
503 global viewactive viewcomplete tclencoding
504 global startmsecs showneartags showlocalchanges
505 global mainheadid viewmainheadid viewmainheadid_orig pending_select
506 global hasworktree
507 global varcid vposids vnegids vflags vrevs
508 global show_notes
511 rereadrefs
515 dohidelocalchanges
516 }
520 get_viewmainhead $view
521 }
522 }
524 doshowlocalchanges
525 }
531 return
532 }
533 # note: getting the delta when negative refs change is hard,
534 # and could require multiple git log invocations, so in that
535 # case we ask git log for all the commits (not just the delta)
539 # take out positive refs that we asked for before or
540 # that we have already seen
545 lappend newrevs $rev
546 incr npos
547 }
549 lappend $newrevs $rev
550 }
551 }
555 }
559 }
565 return
566 }
569 }
575 }
579 reset_pending_select {}
582 getallcommits
583 }
584 }
586 proc reloadcommits {} {
587 global curview viewcomplete selectedline currentid thickerline
588 global showneartags treediffs commitinterest cached_commitrow
589 global targetid
594 }
597 stop_rev_list $curview
598 }
599 resetvarcs $curview
604 readrefs
605 changedrefs
607 getallcommits
608 }
609 clear_display
613 setcanvscroll
614 getcommits $selid
616 }
618 # This makes a string representation of a positive integer which
619 # sorts as a string in numerical order
627 }
629 }
631 # Procedures used in reordering commits from git log (without
632 # --topo-order) into the order for display.
635 global varcstart vupptr vdownptr vleftptr vbackptr varctok varcrow
636 global vtokmod varcmod vrowmod varcix vlastins
650 }
653 global varcid varccommits parents children vseedcount ordertok
654 global vshortids
660 }
663 }
664 # some commits might have children but haven't been seen yet
667 }
670 }
673 }
675 }
677 # returns a list of the commits with no children
679 global vdownptr vleftptr varcstart
686 }
688 }
691 global varcid varctok parents children vdatemode
692 global vupptr vdownptr vleftptr vbackptr varcrow varcix varcstart
693 global commitdata commitinfo vseedcount varccommits vlastins
700 }
704 }
707 }
713 }
722 }
723 }
728 }
735 }
739 }
746 }
752 }
761 }
764 global varcid varcstart varccommits varctok vtokmod
765 global vupptr vdownptr vleftptr vbackptr varcix varcrow vlastins
773 # "%" sorts before "0"...
783 }
793 }
795 modify_arc $v $oa
796 }
797 }
800 global parents children varctok varcstart varccommits
801 global vupptr vdownptr vleftptr vbackptr vlastins varcid vtokmod vdatemode
810 lappend todo $a
815 }
816 }
817 }
818 incr ntot
825 }
826 }
828 }
835 }
841 }
850 }
851 }
856 }
858 continue
859 }
866 }
867 }
872 modify_arc $v $ka
873 }
875 modify_arc $v $b
876 }
883 }
886 }
889 }
898 }
903 }
910 }
914 }
916 }
917 }
922 }
923 }
925 #puts "renumbervarc did [llength $todo] of $ntot arcs in [expr {$t2-$t1}]ms"
926 }
928 # Fix up the graph after we have found out that in view $v,
929 # $p (a commit that we have already seen) is actually the parent
930 # of the last commit in arc $a.
932 global varcid varcstart varctok vupptr
936 splitvarc $p $v
938 }
939 # seeds always need to be renumbered
943 renumbervarc $pa $v
944 }
945 }
948 global cmitlisted children parents varcid varctok vtokmod
949 global varccommits ordertok commitidx numcommits curview
950 global targetid targetrow vshortids
952 readcommit $id
961 modify_arc $v $a
962 }
968 }
969 fix_reversal $p $a $v
973 setcanvscroll
976 incr targetrow
977 }
978 }
979 }
980 }
983 global varcid varccommits parents children cmitlisted
984 global commitidx varctok vtokmod targetid targetrow curview numcommits
991 return
992 }
999 # note we deliberately don't update varcstart($v) even if $i == 0
1001 modify_arc $v $a $i
1004 incr targetrow
1005 }
1006 }
1007 setcanvscroll
1008 drawvisible
1009 }
1012 global varcid varccommits parents children commitidx
1013 global varctok vtokmod cmitlisted currentid selectedline
1014 global targetid curview numcommits
1019 return
1020 }
1026 return
1027 }
1037 }
1038 modify_arc $v $a $i
1040 unset currentid
1042 }
1045 }
1046 setcanvscroll
1047 drawvisible
1048 }
1051 global children nullid nullid2
1056 lappend kids $id
1057 }
1058 }
1060 }
1063 global children nullid nullid2
1068 }
1069 }
1071 }
1074 global children nullid nullid2
1081 }
1082 }
1084 }
1087 global varctok varcid
1091 }
1093 # This assumes that if lim is not given, the caller has checked that
1094 # arc a's token is less than $vtokmod($v)
1096 global varctok vtokmod varcmod varcrow vupptr curview vrowmod varccommits
1104 }
1105 }
1112 }
1117 }
1119 }
1121 undolayout $r
1122 }
1123 }
1126 global vtokmod varcmod vrowmod varcrow commitidx currentid selectedline
1127 global varcid vrownum varcorder varcix varccommits
1128 global vupptr vdownptr vleftptr varctok
1129 global displayorder parentlist curview cached_commitrow
1136 }
1138 }
1142 # go up the tree until we find something that has a row number,
1143 # or we get to a seed
1145 }
1160 }
1162 }
1166 # go down if possible
1169 # if not, go left, or go up until we can go left
1174 }
1176 }
1178 incr arcn
1183 }
1189 }
1190 }
1192 # Test whether view $v contains commit $id
1194 global varcid
1197 }
1199 # Return the row number for commit $id in the current view
1201 global varcid varccommits varcrow curview cached_commitrow
1202 global varctok vtokmod
1208 }
1211 update_arcrows $v
1212 }
1215 }
1220 }
1224 }
1226 # Returns 1 if a is on an earlier row than b, otherwise 0
1228 global varcid varctok curview
1234 }
1238 }
1240 }
1245 }
1257 }
1258 }
1260 }
1262 # Make sure rows $start..$end-1 are valid in displayorder and parentlist
1264 global vrownum curview commitidx displayorder parentlist
1265 global varccommits varcorder parents vrowmod varcrow
1266 global d_valid_start d_valid_end
1269 update_arcrows $curview
1270 }
1286 }
1288 lappend displayorder $id
1290 }
1294 lset displayorder $i $id
1296 incr i
1297 }
1298 }
1299 incr r $al
1300 }
1301 }
1304 global displayorder
1310 }
1312 }
1315 global varctok varccommits varcid parents children
1316 global cmitlisted commitidx vtokmod
1325 # add p as a new commit
1326 incr missing_parents
1334 }
1337 modify_arc $v $b
1338 }
1342 }
1343 }
1347 }
1348 }
1349 }
1351 # Use $rwid as a substitute for $id, i.e. reparent $id's children to $rwid
1352 # Assumes we already have an arc for $rwid.
1354 global children parents varcid varctok vtokmod varccommits
1357 # make $rwid be $ch's parent in place of $id
1361 }
1363 # add $ch to $rwid's children and sort the list if necessary
1367 }
1368 # fix the graph after joining $id to $rwid
1370 fix_reversal $rwid $a $v
1371 # parentlist is wrong for the last element of arc $a
1372 # even if displayorder is right, hence the 3rd arg here
1374 }
1375 }
1377 # Mechanism for registering a command to be executed when we come
1378 # across a particular commit. To handle the case when only the
1379 # prefix of the commit is known, the commitinterest array is now
1380 # indexed by the first 4 characters of the ID. Each element is a
1381 # list of id, cmd pairs.
1383 global commitinterest
1386 }
1389 global commitinterest
1398 lappend newlist $i $script
1399 }
1400 }
1405 }
1406 }
1408 }
1411 global cmitlisted leftover
1412 global commitidx commitdata vdatemode
1413 global parents children curview hlview
1414 global idpending ordertok
1415 global varccommits varcid varctok vtokmod vfilelimit vshortids
1418 # git log doesn't terminate the last commit with a null...
1421 }
1425 }
1426 global commfd viewcomplete viewactive viewname
1427 global viewinstances
1432 }
1433 # set it blocking so we wait for the process to terminate
1439 }
1442 bad arguments to git log."
1444 append err \
1445 " (Note: arguments to gitk are passed to git log\
1446 to allow selection of commits to be displayed.)"
1447 }
1450 }
1451 error_popup $err
1452 }
1455 # Check if we have seen any ids listed as parents that haven't
1456 # appeared in the list
1457 closevarcs $view
1458 notbusy $view
1459 }
1461 run chewcommits
1462 }
1464 }
1472 break
1473 }
1480 }
1493 }
1495 }
1500 break
1501 }
1502 }
1503 }
1508 }
1510 exit 1
1511 }
1520 # when doing path limiting, so work around that here
1521 # by working out the rewritten parent with git rev-list
1522 # and if we already know about it, using the rewritten
1523 # parent as a substitute parent for $id's children.
1527 }]} {
1529 # use $rwid in place of $id
1530 rewrite_commit $view $id $rwid
1531 continue
1532 }
1533 }
1534 }
1540 }
1545 }
1557 }
1558 }
1560 # new arc
1562 }
1564 modify_arc $view $a
1565 }
1570 }
1581 }
1583 fix_reversal $p $a $view
1584 }
1585 }
1586 incr i
1587 }
1591 }
1593 global numcommits hlview
1597 run chewcommits
1598 }
1600 # we never actually get here...
1601 run vhighlightmore
1602 }
1605 }
1606 }
1608 }
1610 proc chewcommits {} {
1611 global curview hlview viewcomplete
1612 global pending_select
1614 layoutmore
1616 global commitidx varctok
1617 global numcommits startmsecs
1620 update
1621 reset_pending_select {}
1628 }
1629 }
1631 #set ms [expr {[clock clicks -milliseconds] - $startmsecs}]
1632 #puts "overall $ms ms for $numcommits commits"
1633 #puts "[llength $varctok($view)] arcs, $commitidx($view) commits"
1636 }
1637 notbusy layout
1638 }
1640 }
1643 global tclencoding
1645 # Invoke git-log to handle automatic encoding conversion
1647 # Read the results using i18n.logoutputencoding
1651 }
1653 close $fd
1654 # Remove the heading line
1658 }
1663 }
1666 global commitinfo
1677 # should never happen...
1679 }
1691 }
1692 }
1694 # take the first non-blank line of the comment as the headline
1699 }
1704 }
1706 # git log indents the comment by 4 spaces;
1707 # if we got this via git cat-file, add the indentation
1710 append newcomment " "
1711 append newcomment $line
1713 }
1715 }
1718 # If there is diff output shown in the git-log stream, split it
1719 # out. But get rid of the empty line that always precedes the
1720 # diff.
1725 }
1728 }
1731 global commitdata commitinfo
1736 readcommit $id
1739 }
1740 }
1742 }
1744 # Expand an abbreviated commit ID to a list of full 40-char IDs that match
1745 # and are present in the current view.
1746 # This is fairly slow...
1748 global varcid curview vshortids
1757 lappend ids $id
1759 }
1760 }
1761 }
1762 }
1767 }
1768 }
1770 }
1772 proc readrefs {} {
1773 global tagids idtags headids idheads tagobjid
1774 global otherrefids idotherrefs mainhead mainheadid
1775 global selecthead selectheadid
1776 global hideremotes
1780 }
1792 }
1798 # this lets refs/tags/foo^{} overwrite refs/tags/foo,
1799 # which is what we want since the former is the commit ID
1805 }
1811 }
1812 }
1816 catch {
1821 }
1822 }
1825 catch {
1827 }
1828 }
1829 }
1831 # skip over fake commits
1832 proc first_real_row {} {
1833 global nullid nullid2 numcommits
1838 break
1839 }
1840 }
1842 }
1844 # update things for a head moved to a child of its previous location
1846 global headids idheads
1851 }
1853 # update things when a head has been removed
1855 global headids idheads
1863 }
1864 }
1866 }
1869 global use_ttk
1873 }
1875 }
1878 global have_tk85
1880 # In MacOS Tk 8.4 transient appears to work by setting
1881 # overrideredirect, which is utterly useless, since the
1882 # windows get no border, and are not even kept above
1883 # the parent.
1886 wm transient $window $origin
1888 # Windows fails to place transient windows normally, so
1889 # schedule a callback to center them on the parent.
1892 }
1893 }
1896 global NS
1907 tkwait window $top
1908 }
1915 set w .error
1916 ttk_toplevel $w
1917 make_transient $w $owner
1918 show_error $w $w $msg
1919 }
1920 }
1923 global confirm_ok NS
1925 set w .confirm
1926 ttk_toplevel $w
1927 make_transient $w $owner
1939 tkwait window $w
1941 }
1943 proc setoptions {} {
1946 option add *Panedwindow.sashRelief raised startupFile
1948 option add *Menu.font uifont startupFile
1949 }
1952 }
1953 option add *Button.font uifont startupFile
1954 option add *Checkbutton.font uifont startupFile
1955 option add *Radiobutton.font uifont startupFile
1956 option add *Menubutton.font uifont startupFile
1957 option add *Label.font uifont startupFile
1958 option add *Message.font uifont startupFile
1959 option add *Entry.font textfont startupFile
1960 option add *Text.font textfont startupFile
1961 option add *Labelframe.font uifont startupFile
1962 option add *Spinbox.font textfont startupFile
1963 option add *Listbox.font mainfont startupFile
1964 }
1966 # Make a menu and submenus.
1967 # m is the window name for the menu, items is the list of menu items to add.
1968 # Each item is a list {mc label type description options...}
1969 # mc is ignored; it's so we can put mc there to alert xgettext
1970 # label is the string that appears in the menu
1971 # type is cascade, command or radiobutton (should add checkbutton)
1972 # description depends on type; it's the sublist for cascade, the
1973 # command to invoke for command, or {variable value} for radiobutton
1975 menu $m
1977 set Meta1 Cmd
1979 set Meta1 Ctrl
1980 }
1991 }
1992 }
1997 }
2000 }
2004 }
2005 }
2011 }
2012 }
2013 }
2015 # translate string and remove ampersands
2018 }
2022 }
2024 global use_ttk
2030 }
2035 } else {
2037 }
2039 }
2041 proc makewindow {} {
2042 global canv canv2 canv3 linespc charspc ctext cflist cscroll
2043 global tabstop
2044 global findtype findtypemenu findloc findstring fstring geometry
2045 global entries sha1entry sha1string sha1but
2046 global diffcontextstring diffcontext
2047 global ignorespace
2048 global maincursor textcursor curtextcursor
2049 global rowctxmenu fakerowmenu mergemax wrapcomment
2050 global highlight_files gdttype
2051 global searchstring sstring
2052 global bgcolor fgcolor bglist fglist diffcolors selectbgcolor
2053 global uifgcolor uifgdisabledcolor
2054 global filesepbgcolor filesepfgcolor
2055 global mergecolors foundbgcolor currentsearchhitbgcolor
2056 global headctxmenu progresscanv progressitem progresscoords statusw
2057 global fprogitem fprogcoord lastprogupdate progupdatepending
2058 global rprogitem rprogcoord rownumsel numcommits
2059 global have_tk85 use_ttk NS
2060 global git_version
2061 global worddiff
2063 # The "mc" arguments here are purely so that xgettext
2064 # sees the following string as needing to be translated
2065 set file {
2066 mc "File" cascade {
2067 {mc "Update" command updatecommits -accelerator F5}
2068 {mc "Reload" command reloadcommits -accelerator Shift-F5}
2069 {mc "Reread references" command rereadrefs}
2070 {mc "List references" command showrefs -accelerator F2}
2071 {xx "" separator}
2072 {mc "Start git gui" command {exec git gui &}}
2073 {xx "" separator}
2074 {mc "Quit" command doquit -accelerator Meta1-Q}
2075 }}
2076 set edit {
2077 mc "Edit" cascade {
2078 {mc "Preferences" command doprefs}
2079 }}
2080 set view {
2081 mc "View" cascade {
2082 {mc "New view..." command {newview 0} -accelerator Shift-F4}
2083 {mc "Edit view..." command editview -state disabled -accelerator F4}
2084 {mc "Delete view" command delview -state disabled}
2085 {xx "" separator}
2086 {mc "All files" radiobutton {selectedview 0} -command {showview 0}}
2087 }}
2088 if {[tk windowingsystem] ne "aqua"} {
2089 set help {
2090 mc "Help" cascade {
2091 {mc "About gitk" command about}
2092 {mc "Key bindings" command keys}
2093 }}
2095 } else {
2096 proc ::tk::mac::ShowPreferences {} {doprefs}
2097 proc ::tk::mac::Quit {} {doquit}
2099 set apple {
2100 xx "Apple" cascade {
2101 {mc "About gitk" command about}
2102 {xx "" separator}
2103 }}
2104 set help {
2105 mc "Help" cascade {
2106 {mc "Key bindings" command keys}
2107 }}
2109 }
2111 . configure -menu .bar
2114 # cover the non-themed toplevel with a themed frame.
2115 place [ttk::frame ._main_background] -x 0 -y 0 -relwidth 1 -relheight 1
2116 }
2118 # the gui has upper and lower half, parts of a paned window.
2121 # possibly use assumed geometry
2122 if {![info exists geometry(pwsash0)]} {
2129 }
2131 # the upper half will have a paned window, a scroll bar to the right, and some stuff below
2136 .tf.histframe.pwclist configure -sashpad 0 -handlesize 4
2137 }
2139 # create three canvases
2140 set cscroll .tf.histframe.csb
2141 set canv .tf.histframe.pwclist.canv
2147 set canv2 .tf.histframe.pwclist.canv2
2152 set canv3 .tf.histframe.pwclist.canv3
2158 bind .tf.histframe.pwclist <Map> {
2159 bind %W <Map> {}
2160 .tf.histframe.pwclist sashpos 1 [lindex $::geometry(pwsash1) 0]
2161 .tf.histframe.pwclist sashpos 0 [lindex $::geometry(pwsash0) 0]
2162 }
2163 } else {
2166 }
2168 # a scroll bar to rule them
2172 bind .tf.histframe.pwclist <Configure> {resizeclistpanes %W %w}
2174 pack .tf.histframe.pwclist -fill both -expand 1 -side left
2176 # we have two button bars at bottom of top frame. Bar 1
2180 set sha1entry .tf.bar.sha1
2182 set sha1but .tf.bar.sha1label
2184 -command gotocommit -width 8
2186 pack .tf.bar.sha1label -side left
2188 trace add variable sha1string write sha1change
2191 set bm_left_data {
2192 #define left_width 16
2193 #define left_height 16
2194 static unsigned char left_bits[] = {
2195 0x00, 0x00, 0xc0, 0x01, 0xe0, 0x00, 0x70, 0x00, 0x38, 0x00, 0x1c, 0x00,
2196 0x0e, 0x00, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x0e, 0x00, 0x1c, 0x00,
2197 0x38, 0x00, 0x70, 0x00, 0xe0, 0x00, 0xc0, 0x01};
2198 }
2199 set bm_right_data {
2200 #define right_width 16
2201 #define right_height 16
2202 static unsigned char right_bits[] = {
2203 0x00, 0x00, 0xc0, 0x01, 0x80, 0x03, 0x00, 0x07, 0x00, 0x0e, 0x00, 0x1c,
2204 0x00, 0x38, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x00, 0x38, 0x00, 0x1c,
2205 0x00, 0x0e, 0x00, 0x07, 0x80, 0x03, 0xc0, 0x01};
2206 }
2214 .tf.bar.leftbut configure -image [list bm-left disabled bm-left-gray]
2215 } else {
2216 .tf.bar.leftbut configure -image bm-left
2217 }
2218 pack .tf.bar.leftbut -side left -fill y
2221 .tf.bar.rightbut configure -image [list bm-right disabled bm-right-gray]
2222 } else {
2223 .tf.bar.rightbut configure -image bm-right
2224 }
2225 pack .tf.bar.rightbut -side left -fill y
2228 set rownumsel {}
2230 -relief sunken -anchor e
2233 -relief sunken -anchor e
2234 pack .tf.bar.rowlabel .tf.bar.rownum .tf.bar.rowlabel2 .tf.bar.numcommits \
2235 -side left
2238 }
2239 global selectedline
2240 trace add variable selectedline write selectedline_change
2242 # Status label and progress bar
2243 set statusw .tf.bar.status
2247 set progresscanv [ttk::progressbar .tf.bar.progress]
2248 } else {
2249 set h [expr {[font metrics uifont -linespace] + 2}]
2250 set progresscanv .tf.bar.progress
2255 }
2257 set progresscoords {0 0}
2258 set fprogcoord 0
2259 set rprogcoord 0
2261 set lastprogupdate [clock clicks -milliseconds]
2262 set progupdatepending 0
2264 # build up the bottom bar of upper window
2267 set bm_down_data {
2268 #define down_width 16
2269 #define down_height 16
2270 static unsigned char down_bits[] = {
2271 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2272 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2273 0x87, 0xe1, 0x8e, 0x71, 0x9c, 0x39, 0xb8, 0x1d,
2274 0xf0, 0x0f, 0xe0, 0x07, 0xc0, 0x03, 0x80, 0x01};
2275 }
2278 .tf.lbar.fnext configure -image bm-down
2280 set bm_up_data {
2281 #define up_width 16
2282 #define up_height 16
2283 static unsigned char up_bits[] = {
2284 0x80, 0x01, 0xc0, 0x03, 0xe0, 0x07, 0xf0, 0x0f,
2285 0xb8, 0x1d, 0x9c, 0x39, 0x8e, 0x71, 0x87, 0xe1,
2286 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
2287 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01};
2288 }
2291 .tf.lbar.fprev configure -image bm-up
2295 pack .tf.lbar.flabel .tf.lbar.fnext .tf.lbar.fprev .tf.lbar.flab2 \
2296 -side left -fill y
2297 set gdttype [mc "containing:"]
2298 set gm [makedroplist .tf.lbar.gdttype gdttype \
2299 [mc "containing:"] \
2300 [mc "touching paths:"] \
2301 [mc "adding/removing string:"] \
2302 [mc "changing lines matching:"]]
2303 trace add variable gdttype write gdttype_change
2304 pack .tf.lbar.gdttype -side left -fill y
2306 set findstring {}
2307 set fstring .tf.lbar.findstring
2310 trace add variable findstring write find_change
2311 set findtype [mc "Exact"]
2312 set findtypemenu [makedroplist .tf.lbar.findtype \
2313 findtype [mc "Exact"] [mc "IgnCase"] [mc "Regexp"]]
2314 trace add variable findtype write findcom_change
2315 set findloc [mc "All fields"]
2316 makedroplist .tf.lbar.findloc findloc [mc "All fields"] [mc "Headline"] \
2317 [mc "Comments"] [mc "Author"] [mc "Committer"]
2318 trace add variable findloc write find_change
2319 pack .tf.lbar.findloc -side right
2320 pack .tf.lbar.findtype -side right
2323 # Finish putting the upper half of the viewer together
2324 pack .tf.lbar -in .tf -side bottom -fill x
2325 pack .tf.bar -in .tf -side bottom -fill x
2326 pack .tf.histframe -fill both -side top -expand 1
2327 .ctop add .tf
2331 }
2333 # now build up the bottom
2336 # lower left, a text box over search bar, scroll bar to the right
2337 # if we know window height, then that will set the lower text height, otherwise
2338 # we set lower text height which will drive window height
2339 if {[info exists geometry(main)]} {
2341 } else {
2343 }
2349 pack .bleft.top.search -side left -padx 5
2350 set sstring .bleft.top.sstring
2351 set searchstring ""
2354 trace add variable searchstring write incrsearch
2357 -command changediffdisp -variable diffelide -value {0 0}
2359 -command changediffdisp -variable diffelide -value {0 1}
2361 -command changediffdisp -variable diffelide -value {1 0}
2363 pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left
2364 spinbox .bleft.mid.diffcontext -width 5 \
2365 -from 0 -increment 1 -to 10000000 \
2366 -validate all -validatecommand "diffcontextvalidate %P" \
2367 -textvariable diffcontextstring
2369 trace add variable diffcontextstring write diffcontextchange
2370 lappend entries .bleft.mid.diffcontext
2371 pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2373 -command changeignorespace -variable ignorespace
2374 pack .bleft.mid.ignspace -side left -padx 5
2376 set worddiff [mc "Line diff"]
2378 makedroplist .bleft.mid.worddiff worddiff [mc "Line diff"] \
2379 [mc "Markup words"] [mc "Color words"]
2380 trace add variable worddiff write changeworddiff
2381 pack .bleft.mid.worddiff -side left -padx 5
2382 }
2384 set ctext .bleft.bottom.ctext
2386 -state disabled -font textfont \
2387 -yscrollcommand scrolltext -wrap none \
2388 -xscrollcommand ".bleft.bottom.sbhorizontal set"
2391 }
2394 pack .bleft.top -side top -fill x
2395 pack .bleft.mid -side top -fill x
2397 grid .bleft.bottom.sbhorizontal -sticky ew
2398 grid columnconfigure .bleft.bottom 0 -weight 1
2399 grid rowconfigure .bleft.bottom 0 -weight 1
2400 grid rowconfigure .bleft.bottom 1 -weight 0
2401 pack .bleft.bottom -side top -fill both -expand 1
2427 set mergemax 16
2435 .pwbottom add .bleft
2438 }
2440 # lower right
2444 -command reselectline -variable cmitmode -value "patch"
2446 -command reselectline -variable cmitmode -value "tree"
2447 grid .bright.mode.patch .bright.mode.tree -sticky ew
2448 pack .bright.mode -side top -fill x
2449 set cflist .bright.cfiles
2450 set indent [font measure mainfont "nn"]
2454 -font mainfont \
2456 -yscrollcommand ".bright.sb set" \
2457 -cursor [. cget -cursor] \
2458 -spacing1 1 -spacing3 1
2462 pack .bright.sb -side right -fill y
2468 .pwbottom add .bright
2469 .ctop add .pwbottom
2471 # restore window width & height if known
2472 if {[info exists geometry(main)]} {
2475 set w [winfo screenwidth .]
2476 }
2478 set h [winfo screenheight .]
2479 }
2481 }
2482 }
2486 }
2488 if {[tk windowingsystem] eq {aqua}} {
2489 set M1B M1
2490 set ::BM "3"
2491 } else {
2492 set M1B Control
2493 set ::BM "2"
2494 }
2497 bind .ctop <Map> {
2498 bind %W <Map> {}
2499 %W sashpos 0 $::geometry(topheight)
2500 }
2501 bind .pwbottom <Map> {
2502 bind %W <Map> {}
2503 %W sashpos 0 $::geometry(botwidth)
2504 }
2505 }
2507 bind .pwbottom <Configure> {resizecdetpanes %W %w}
2508 pack .ctop -fill both -expand 1
2509 bindall <1> {selcanvline %W %x %y}
2510 #bindall <B1-Motion> {selcanvline %W %x %y}
2511 if {[tk windowingsystem] == "win32"} {
2512 bind . <MouseWheel> { windows_mousewheel_redirector %W %X %Y %D }
2514 } else {
2515 bindall <ButtonRelease-4> "allcanvs yview scroll -5 units"
2516 bindall <ButtonRelease-5> "allcanvs yview scroll 5 units"
2517 if {[tk windowingsystem] eq "aqua"} {
2518 bindall <MouseWheel> {
2519 set delta [expr {- (%D)}]
2521 }
2522 bindall <Shift-MouseWheel> {
2523 set delta [expr {- (%D)}]
2525 }
2526 }
2527 }
2528 bindall <$::BM> "canvscan mark %W %x %y"
2529 bindall <B$::BM-Motion> "canvscan dragto %W %x %y"
2532 bindkey <Home> selfirstline
2533 bindkey <End> sellastline
2534 bind . <Key-Up> "selnextline -1"
2535 bind . <Key-Down> "selnextline 1"
2536 bind . <Shift-Key-Up> "dofind -1 0"
2537 bind . <Shift-Key-Down> "dofind 1 0"
2538 bindkey <Key-Right> "goforw"
2539 bindkey <Key-Left> "goback"
2540 bind . <Key-Prior> "selnextpage -1"
2541 bind . <Key-Next> "selnextpage 1"
2551 bindkey p "selnextline -1"
2552 bindkey n "selnextline 1"
2553 bindkey z "goback"
2554 bindkey x "goforw"
2555 bindkey k "selnextline -1"
2556 bindkey j "selnextline 1"
2557 bindkey h "goback"
2558 bindkey l "goforw"
2559 bindkey b prevfile
2564 bindkey <Key-Return> {dofind 1 1}
2565 bindkey ? {dofind -1 1}
2566 bindkey f nextfile
2567 bind . <F5> updatecommits
2568 bindmodfunctionkey Shift 5 reloadcommits
2569 bind . <F2> showrefs
2570 bindmodfunctionkey Shift 4 {newview 0}
2571 bind . <F4> edit_or_newview
2582 wm protocol . WM_DELETE_WINDOW doquit
2583 bind . <Destroy> {stop_backends}
2584 bind . <Button-1> "click %W"
2591 global ctxbut
2597 set maincursor [. cget -cursor]
2601 set rowctxmenu .rowctxmenu
2603 {mc "Diff this -> selected" command {diffvssel 0}}
2604 {mc "Diff selected -> this" command {diffvssel 1}}
2605 {mc "Make patch" command mkpatch}
2606 {mc "Create tag" command mktag}
2607 {mc "Write commit to file" command writecommit}
2608 {mc "Create new branch" command mkbranch}
2609 {mc "Cherry-pick this commit" command cherrypick}
2610 {mc "Reset HEAD branch to here" command resethead}
2611 {mc "Mark this commit" command markhere}
2612 {mc "Return to mark" command gotomark}
2613 {mc "Find descendant of this and mark" command find_common_desc}
2614 {mc "Compare with marked commit" command compare_commits}
2615 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2616 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2617 {mc "Revert this commit" command revert}
2618 }
2621 set fakerowmenu .fakerowmenu
2623 {mc "Diff this -> selected" command {diffvssel 0}}
2624 {mc "Diff selected -> this" command {diffvssel 1}}
2625 {mc "Make patch" command mkpatch}
2626 {mc "Diff this -> marked commit" command {diffvsmark 0}}
2627 {mc "Diff marked commit -> this" command {diffvsmark 1}}
2628 }
2631 set headctxmenu .headctxmenu
2633 {mc "Check out this branch" command cobranch}
2634 {mc "Remove this branch" command rmbranch}
2635 }
2638 global flist_menu
2639 set flist_menu .flistctxmenu
2641 {mc "Highlight this too" command {flist_hl 0}}
2642 {mc "Highlight this only" command {flist_hl 1}}
2643 {mc "External diff" command {external_diff}}
2644 {mc "Blame parent commit" command {external_blame 1}}
2645 }
2648 global diff_menu
2649 set diff_menu .diffctxmenu
2651 {mc "Show origin of this line" command show_line_source}
2652 {mc "Run git gui blame on this line" command {external_blame_diff}}
2653 }
2655 }
2657 # Windows sends all mouse wheel events to the current focused window, not
2658 # the one where the mouse hovers, so bind those events here and redirect
2659 # to the correct window
2660 proc windows_mousewheel_redirector {W X Y D} {
2661 global canv canv2 canv3
2667 } else {
2668 catch {
2670 }
2671 }
2672 }
2673 }
2675 # Update row number label when selectedline changes
2676 proc selectedline_change {n1 n2 op} {
2677 global selectedline rownumsel
2680 set rownumsel {}
2681 } else {
2683 }
2684 }
2686 # mouse-2 makes all windows scan vertically, but only the one
2687 # the cursor is in scans horizontally
2688 proc canvscan {op w x y} {
2689 global canv canv2 canv3
2693 } else {
2695 }
2696 }
2697 }
2699 proc scrollcanv {cscroll f0 f1} {
2701 drawvisible
2702 flushhighlights
2703 }
2705 # when we make a key binding for the toplevel, make sure
2706 # it doesn't get triggered when that key is pressed in the
2707 # find string entry widget.
2708 proc bindkey {ev script} {
2709 global entries
2713 set escript [bind Entry <Key>]
2714 }
2717 }
2718 }
2720 proc bindmodfunctionkey {mod n script} {
2723 }
2725 # set the focus back to the toplevel for any click outside
2726 # the entry widgets
2727 proc click {w} {
2728 global ctext entries
2731 }
2732 focus .
2733 }
2735 # Adjust the progress bar for a change in requested extent or canvas size
2736 proc adjustprogress {} {
2737 global progresscanv progressitem progresscoords
2738 global fprogitem fprogcoord lastprogupdate progupdatepending
2739 global rprogitem rprogcoord use_ttk
2743 return
2744 }
2753 set now [clock clicks -milliseconds]
2755 set progupdatepending 0
2756 update
2758 set progupdatepending 1
2760 }
2761 }
2763 proc doprogupdate {} {
2764 global lastprogupdate progupdatepending
2767 set progupdatepending 0
2768 set lastprogupdate [clock clicks -milliseconds]
2769 update
2770 }
2771 }
2773 proc savestuff {w} {
2774 global canv canv2 canv3 mainfont textfont uifont tabstop
2775 global stuffsaved findmergefiles maxgraphpct
2776 global maxwidth showneartags showlocalchanges
2777 global viewname viewfiles viewargs viewargscmd viewperm nextviewnum
2778 global cmitmode wrapcomment datetimeformat limitdiffs
2779 global colors uicolor bgcolor fgcolor diffcolors diffcontext selectbgcolor
2780 global uifgcolor uifgdisabledcolor
2781 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
2782 global tagbgcolor tagfgcolor tagoutlinecolor
2783 global reflinecolor filesepbgcolor filesepfgcolor
2784 global mergecolors foundbgcolor currentsearchhitbgcolor
2785 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor circlecolors
2786 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
2787 global linkfgcolor circleoutlinecolor
2788 global autoselect autosellen extdifftool perfile_attrs markbgcolor use_ttk
2789 global hideremotes want_ttk maxrefs
2790 global config_file config_file_tmp
2793 if {![winfo viewable .]} return
2794 catch {
2797 }
2799 if {$::tcl_platform(platform) eq {windows}} {
2801 }
2862 } else {
2865 }
2873 }
2874 }
2878 }
2879 set stuffsaved 1
2880 }
2882 proc resizeclistpanes {win w} {
2883 global oldwidth use_ttk
2888 } else {
2891 }
2895 } else {
2900 set sash0 30
2901 }
2904 }
2909 }
2910 }
2911 }
2915 } else {
2918 }
2919 }
2921 }
2923 proc resizecdetpanes {win w} {
2924 global oldwidth use_ttk
2928 } else {
2930 }
2933 } else {
2937 set sash0 45
2938 }
2941 }
2942 }
2945 } else {
2947 }
2948 }
2950 }
2952 proc allcanvs args {
2953 global canv canv2 canv3
2957 }
2959 proc bindall {event action} {
2960 global canv canv2 canv3
2964 }
2966 proc about {} {
2967 global uifont NS
2968 set w .about
2971 return
2972 }
2977 Gitk - a commit viewer for git
2979 Copyright \u00a9 2005-2014 Paul Mackerras
2981 Use and redistribute under the terms of the GNU General Public License"] \
2982 -justify center -aspect 400 -border 2 -bg white -relief groove
2990 }
2992 proc keys {} {
2993 global NS
2994 set w .keys
2997 return
2998 }
2999 if {[tk windowingsystem] eq {aqua}} {
3000 set M1T Cmd
3001 } else {
3002 set M1T Ctrl
3003 }
3008 [mc "Gitk key bindings:"]
3012 [mc "<Home> Move to first commit"]
3013 [mc "<End> Move to last commit"]
3014 [mc "<Up>, p, k Move up one commit"]
3015 [mc "<Down>, n, j Move down one commit"]
3016 [mc "<Left>, z, h Go back in history list"]
3017 [mc "<Right>, x, l Go forward in history list"]
3018 [mc "<PageUp> Move up one page in commit list"]
3019 [mc "<PageDown> Move down one page in commit list"]
3026 [mc "<Shift-Up> Find backwards (upwards, later commits)"]
3027 [mc "<Shift-Down> Find forwards (downwards, earlier commits)"]
3028 [mc "<Delete>, b Scroll diff view up one page"]
3029 [mc "<Backspace> Scroll diff view up one page"]
3030 [mc "<Space> Scroll diff view down one page"]
3031 [mc "u Scroll diff view up 18 lines"]
3032 [mc "d Scroll diff view down 18 lines"]
3035 [mc "<Return> Move to next find hit"]
3036 [mc "/ Focus the search box"]
3037 [mc "? Move to previous find hit"]
3038 [mc "f Scroll diff view to next file"]
3045 [mc "<F5> Update"]
3046 " \
3047 -justify left -bg white -border 2 -relief groove
3055 }
3057 # Procedures for manipulating the file list window at the
3058 # bottom right of the overall window.
3060 proc treeview {w l openlevs} {
3061 global treecontents treediropen treeheight treeparent treeindex
3063 set ix 0
3064 set treeindex() 0
3065 set lev 0
3066 set prefix {}
3067 set prefixend -1
3068 set prefendstack {}
3069 set htstack {}
3070 set ht 0
3071 set treecontents() {}
3078 }
3085 incr lev -1
3086 }
3090 set ht 0
3102 set ht 1
3107 set str "\n"
3115 }
3116 incr lev
3117 }
3120 incr ht
3121 set str "\n"
3125 }
3127 }
3128 }
3136 }
3138 }
3140 proc linetoelt {l} {
3141 global treeheight treecontents
3143 set y 2
3144 set prefix {}
3145 while {1} {
3149 }
3150 set n 1
3155 incr y
3156 break
3157 }
3158 }
3160 }
3161 }
3162 }
3164 proc highlight_tree {y prefix} {
3165 global treeheight treecontents cflist
3171 }
3172 incr y
3175 }
3176 }
3178 }
3180 proc treeclosedir {w dir} {
3181 global treediropen treeheight treeparent treeindex
3193 }
3194 }
3196 proc treeopendir {w dir} {
3197 global treediropen treeheight treeparent treecontents treeindex
3204 set lev 0
3205 set str "\n"
3208 incr lev
3209 append str "\t"
3211 }
3226 } else {
3229 }
3230 }
3243 }
3245 }
3246 }
3248 proc treeclick {w x y} {
3249 global treediropen cmitmode ctext cflist cflist_top
3252 if {![info exists cflist_top]} return
3259 return
3260 }
3266 } else {
3268 }
3269 }
3271 proc setfilelist {id} {
3272 global treefilelist cflist jump_to_here
3279 }
3280 }
3281 }
3283 image create bitmap tri-rt -background black -foreground blue -data {
3284 #define tri-rt_width 13
3285 #define tri-rt_height 13
3286 static unsigned char tri-rt_bits[] = {
3287 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x30, 0x00, 0x70, 0x00, 0xf0, 0x00,
3288 0xf0, 0x01, 0xf0, 0x00, 0x70, 0x00, 0x30, 0x00, 0x10, 0x00, 0x00, 0x00,
3289 0x00, 0x00};
3290 } -maskdata {
3291 #define tri-rt-mask_width 13
3292 #define tri-rt-mask_height 13
3293 static unsigned char tri-rt-mask_bits[] = {
3294 0x08, 0x00, 0x18, 0x00, 0x38, 0x00, 0x78, 0x00, 0xf8, 0x00, 0xf8, 0x01,
3295 0xf8, 0x03, 0xf8, 0x01, 0xf8, 0x00, 0x78, 0x00, 0x38, 0x00, 0x18, 0x00,
3296 0x08, 0x00};
3297 }
3298 image create bitmap tri-dn -background black -foreground blue -data {
3299 #define tri-dn_width 13
3300 #define tri-dn_height 13
3301 static unsigned char tri-dn_bits[] = {
3302 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x07, 0xf8, 0x03,
3303 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3304 0x00, 0x00};
3305 } -maskdata {
3306 #define tri-dn-mask_width 13
3307 #define tri-dn-mask_height 13
3308 static unsigned char tri-dn-mask_bits[] = {
3309 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0xfe, 0x0f, 0xfc, 0x07,
3310 0xf8, 0x03, 0xf0, 0x01, 0xe0, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00,
3311 0x00, 0x00};
3312 }
3314 image create bitmap reficon-T -background black -foreground yellow -data {
3315 #define tagicon_width 13
3316 #define tagicon_height 9
3317 static unsigned char tagicon_bits[] = {
3318 0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x07,
3319 0xfc, 0x07, 0xf8, 0x07, 0xf0, 0x07, 0x00, 0x00, 0x00, 0x00};
3320 } -maskdata {
3321 #define tagicon-mask_width 13
3322 #define tagicon-mask_height 9
3323 static unsigned char tagicon-mask_bits[] = {
3324 0x00, 0x00, 0xf0, 0x0f, 0xf8, 0x0f, 0xfc, 0x0f,
3325 0xfe, 0x0f, 0xfc, 0x0f, 0xf8, 0x0f, 0xf0, 0x0f, 0x00, 0x00};
3326 }
3327 set rectdata {
3328 #define headicon_width 13
3329 #define headicon_height 9
3330 static unsigned char headicon_bits[] = {
3331 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0xf8, 0x07,
3332 0xf8, 0x07, 0xf8, 0x07, 0xf8, 0x07, 0x00, 0x00, 0x00, 0x00};
3333 }
3334 set rectmask {
3335 #define headicon-mask_width 13
3336 #define headicon-mask_height 9
3337 static unsigned char headicon-mask_bits[] = {
3338 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3339 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3340 }
3341 image create bitmap reficon-H -background black -foreground green \
3343 image create bitmap reficon-o -background black -foreground "#ddddff" \
3346 proc init_flist {first} {
3347 global cflist cflist_top difffilestart
3353 set cflist_top 1
3355 } else {
3356 catch {unset cflist_top}
3357 }
3359 set difffilestart {}
3360 }
3362 proc highlight_tag {f} {
3363 global highlight_paths
3367 return "bold"
3368 }
3369 }
3370 return {}
3371 }
3373 proc highlight_filelist {} {
3374 global cmitmode cflist
3383 }
3384 }
3385 } else {
3386 highlight_tree 2 {}
3387 }
3389 }
3391 proc unhighlight_filelist {} {
3392 global cflist
3397 }
3399 proc add_flist {fl} {
3400 global cflist
3406 }
3408 }
3410 proc sel_flist {w x y} {
3411 global ctext difffilestart cflist cflist_top cmitmode
3414 if {![info exists cflist_top]} return
3421 } else {
3423 }
3424 suppress_highlighting_file_for_current_scrollpos
3425 }
3427 proc pop_flist_menu {w X Y x y} {
3428 global ctext cflist cmitmode flist_menu flist_menu_file
3429 global treediffs diffids
3431 stopfinding
3437 } else {
3439 }
3441 set xdiffstate "normal"
3443 set xdiffstate "disabled"
3444 }
3445 # Disable "External diff" item in tree mode
3448 }
3450 proc find_ctext_fileinfo {line} {
3451 global ctext_file_names ctext_file_lines
3457 return {}
3458 } else {
3460 }
3461 }
3463 proc pop_diff_menu {w X Y x y} {
3464 global ctext diff_menu flist_menu_file
3465 global diff_menu_txtpos diff_menu_line
3466 global diff_menu_filebase
3470 # don't pop up the menu on hunk-separator or file-separator lines
3472 return
3473 }
3474 stopfinding
3480 }
3482 proc flist_hl {only} {
3483 global flist_menu_file findstring gdttype
3488 } else {
3490 }
3491 set gdttype [mc "touching paths:"]
3492 }
3494 proc gitknewtmpdir {} {
3495 global diffnum gitktmpdir gitdir
3497 if {![info exists gitktmpdir]} {
3501 unset gitktmpdir
3502 return {}
3503 }
3504 set diffnum 0
3505 }
3506 incr diffnum
3510 return {}
3511 }
3513 }
3515 proc save_file_from_commit {filename output what} {
3516 global nullfile
3521 }
3523 return {}
3524 }
3526 }
3528 proc external_diff_get_one_file {diffid filename diffdir} {
3529 global nullid nullid2 nullfile
3530 global worktree
3536 }
3538 }
3542 }
3546 }
3548 proc external_diff {} {
3549 global nullid nullid2
3550 global flist_menu_file
3551 global diffids
3552 global extdifftool
3555 # no reference commit given
3558 # diffing working copy with index
3561 # diffing index with HEAD
3562 set diffidfrom "HEAD"
3563 } else {
3564 # use first parent commit
3565 global parentlist selectedline
3567 }
3568 } else {
3571 }
3573 # make sure that several diffs wont collide
3574 set diffdir [gitknewtmpdir]
3577 # gather files to diff
3586 } else {
3589 }
3590 }
3591 }
3593 proc find_hunk_blamespec {base line} {
3594 global ctext
3596 # Find and parse the hunk header
3602 s_line old_specs osz osz1 new_line nsz]} {
3603 return
3604 }
3606 # base lines for the parents
3610 old_spec old_line osz]} {
3611 return
3612 }
3614 }
3616 # Now scan the lines to determine offset within the hunk
3618 set dline 0
3621 # Determine if the line is removed
3625 # Choose a parent index
3628 } else {
3632 } else {
3633 # blame the current commit
3634 set parent -1
3635 }
3636 }
3637 # then count other lines that belong to it
3640 # Determine if the line is removed
3645 incr dline
3646 }
3647 } else {
3649 incr dline
3650 }
3651 }
3652 }
3653 incr parent
3654 } else {
3655 set parent 0
3656 }
3660 }
3662 proc external_blame_diff {} {
3663 global currentid cmitmode
3664 global diff_menu_txtpos diff_menu_line
3665 global diff_menu_filebase flist_menu_file
3668 set parent_idx 0
3670 } else {
3675 } else {
3676 set parent_idx 0
3677 set line 0
3678 }
3679 }
3682 }
3685 # at stage 0 or 2
3686 proc index_sha1 {fname} {
3694 }
3695 }
3697 return {}
3698 }
3700 # Turn an absolute path into one relative to the current directory
3701 proc make_relative {f} {
3704 }
3706 set here [file split [pwd]]
3707 set ei 0
3708 set hi 0
3709 set res {}
3712 lappend res ".."
3713 } else {
3714 incr ei
3715 }
3716 incr hi
3717 }
3720 }
3722 proc external_blame {parent_idx {line {}}} {
3723 global flist_menu_file cdup
3724 global nullid nullid2
3725 global parentlist selectedline currentid
3729 } else {
3731 }
3734 error_popup [mc "No such commit"]
3735 return
3736 }
3738 set cmdline [list git gui blame]
3741 }
3743 # Unfortunately it seems git gui blame doesn't like
3744 # being given an absolute path...
3749 }
3750 }
3752 proc show_line_source {} {
3753 global cmitmode currentid parents curview blamestuff blameinst
3754 global diff_menu_line diff_menu_filebase flist_menu_file
3755 global nullid nullid2 gitdir cdup
3757 set from_index {}
3761 } else {
3767 return
3768 }
3769 incr pi -1
3772 # must be a merge in progress...
3773 if {[catch {
3774 # get the last line from .git/MERGE_HEAD
3778 } err]} {
3780 return
3781 }
3783 # need to do the blame from the index
3784 if {[catch {
3786 } err]} {
3788 return
3789 }
3790 } else {
3792 }
3793 } else {
3795 }
3797 }
3798 set blameargs {}
3801 }
3804 lappend blameargs --contents -
3805 } else {
3807 }
3809 if {[catch {
3811 } err]} {
3813 return
3814 }
3815 nowbusy blaming [mc "Searching"]
3821 }
3823 proc stopblaming {} {
3824 global blameinst
3826 if {[info exists blameinst]} {
3828 unset blameinst
3829 notbusy blaming
3830 }
3831 }
3833 proc read_line_source {fd inst} {
3834 global blamestuff curview commfd blameinst nullid nullid2
3838 }
3840 return 1
3841 }
3843 unset blameinst
3844 notbusy blaming
3848 return 0
3849 }
3851 set fname {}
3857 # look for "filename" line
3861 break
3862 }
3863 }
3864 }
3866 # all looks good, select it
3868 # blame uses all-zeroes to mean not committed,
3869 # which would mean a change in the index
3871 }
3874 } else {
3875 error_popup [mc "That line comes from commit %s, \
3877 }
3878 } else {
3879 puts "oops couldn't parse git blame output"
3880 }
3881 return 0
3882 }
3885 proc delete_at_eof {f dir} {
3890 }
3892 return 0
3893 }
3894 return 1
3895 }
3897 # Functions for adding and removing shell-type quoting
3899 proc shellquote {str} {
3902 }
3905 }
3908 }
3910 }
3912 proc shellarglist {l} {
3913 set str {}
3916 append str " "
3917 }
3919 }
3921 }
3923 proc shelldequote {str} {
3924 set ret {}
3925 set used -1
3926 while {1} {
3927 incr used
3931 break
3932 }
3938 }
3940 incr used
3944 error "unmatched single-quote"
3945 }
3948 continue
3949 }
3952 error "trailing backslash"
3953 }
3955 continue
3956 }
3957 # here ch == "\""
3958 while {1} {
3960 error "unmatched double-quote"
3961 }
3967 }
3969 incr used
3971 incr used
3972 }
3973 }
3975 }
3977 proc shellsplit {str} {
3978 set l {}
3979 while {1} {
3987 }
3989 }
3991 # Code to implement multiple views
3993 proc newview {ishighlight} {
3994 global nextviewnum newviewname newishighlight
3995 global revtreeargs viewargscmd newviewopts curview
3998 set top .gitkview
4001 return
4002 }
4008 }
4010 set known_view_options {
4011 {perm b . {} {mc "Remember this view"}}
4012 {reflabel l + {} {mc "References (space separated list):"}}
4013 {refs t15 .. {} {mc "Branches & tags:"}}
4014 {allrefs b *. "--all" {mc "All refs"}}
4015 {branches b . "--branches" {mc "All (local) branches"}}
4016 {tags b . "--tags" {mc "All tags"}}
4017 {remotes b . "--remotes" {mc "All remote-tracking branches"}}
4018 {commitlbl l + {} {mc "Commit Info (regular expressions):"}}
4019 {author t15 .. "--author=*" {mc "Author:"}}
4020 {committer t15 . "--committer=*" {mc "Committer:"}}
4021 {loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
4022 {allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
4023 {changes_l l + {} {mc "Changes to Files:"}}
4024 {pickaxe_s r0 . {} {mc "Fixed String"}}
4025 {pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
4026 {pickaxe t15 .. "-S*" {mc "Search string:"}}
4027 {datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
4028 {since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
4029 {until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
4030 {limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
4031 {limit t10 *. "--max-count=*" {mc "Number to show:"}}
4032 {skip t10 . "--skip=*" {mc "Number to skip:"}}
4033 {misc_lbl l + {} {mc "Miscellaneous options:"}}
4034 {dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
4035 {lright b . "--left-right" {mc "Mark branch sides"}}
4036 {first b . "--first-parent" {mc "Limit to first parent"}}
4037 {smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
4038 {args t50 *. {} {mc "Additional arguments to git log:"}}
4039 {allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
4040 {cmd t50= + {} {mc "Command to generate more commits to include:"}}
4041 }
4044 proc encode_view_opts {n} {
4045 global known_view_options newviewopts
4047 set rargs [list]
4057 }
4063 }
4064 } else {
4070 }
4071 }
4072 }
4075 }
4078 proc decode_view_opts {n view_args} {
4079 global known_view_options newviewopts
4084 # Checkboxes
4085 set val 0
4087 # Radiobuttons
4089 set val 0
4090 } else {
4091 # Text fields
4092 set val {}
4093 }
4095 }
4096 set oargs [list]
4097 set refargs [list]
4100 && ![info exists found(limit)]} {
4102 set found(limit) 1
4103 continue
4104 }
4105 catch { unset val }
4112 # Check buttons
4113 set val 1
4115 # Radio buttons
4118 } else {
4119 # Text input fields
4122 }
4125 break
4126 }
4127 if {[info exists val]} break
4128 }
4129 if {[info exists val]} continue
4132 } else {
4134 }
4135 }
4138 }
4140 proc edit_or_newview {} {
4141 global curview
4144 editview
4145 } else {
4146 newview 0
4147 }
4148 }
4150 proc editview {} {
4151 global curview
4152 global viewname viewperm newviewname newviewopts
4153 global viewargs viewargscmd
4158 return
4159 }
4165 }
4167 proc vieweditor {top n title} {
4168 global newviewname newviewopts viewfiles bgcolor
4169 global known_view_options NS
4175 # View name
4183 # View options
4185 set cexpand 0
4186 set cnt 0
4192 set lxpad 0
4196 incr cnt
4202 incr cnt
4206 } else {
4207 set lxpad 5
4208 }
4242 }
4245 }
4247 }
4248 }
4263 }
4265 proc doviewmenu {m first cmd op argv} {
4270 break
4271 }
4272 }
4273 }
4275 proc allviewmenus {n op args} {
4276 # global viewhlmenu
4280 }
4282 proc newviewok {top n {apply 0}} {
4283 global nextviewnum newviewperm newviewname newishighlight
4284 global viewname viewfiles viewperm selectedview curview
4285 global viewargs viewargscmd newviewopts viewhlmenu
4287 if {[catch {
4289 } err]} {
4291 return
4292 }
4293 set files {}
4298 }
4299 }
4301 # creating a new view
4302 incr nextviewnum
4311 } else {
4313 }
4314 } else {
4315 # editing an existing view
4323 }
4330 run reloadcommits
4331 }
4332 }
4333 }
4336 }
4338 proc delview {} {
4339 global curview viewperm hlview selectedhlview
4343 set selectedhlview [mc "None"]
4344 unset hlview
4345 }
4348 showview 0
4349 }
4351 proc addviewmenu {n} {
4352 global viewname viewhlmenu
4358 }
4360 proc showview {n} {
4361 global curview cached_commitrow ordertok
4362 global displayorder parentlist rowidlist rowisopt rowfinal
4363 global colormap rowtextx nextcolor canvxmax
4364 global numcommits viewcomplete
4365 global selectedline currentid canv canvy0
4366 global treediffs
4367 global pending_select mainheadid
4368 global commitidx
4369 global selectedview
4370 global hlview selectedhlview commitinterest
4373 set selid {}
4384 }
4385 } elseif {[info exists pending_select]} {
4387 unset pending_select
4388 }
4389 unselectline
4390 normalline
4391 catch {unset treediffs}
4392 clear_display
4394 unset hlview
4395 set selectedhlview [mc "None"]
4396 }
4397 catch {unset commitinterest}
4398 catch {unset cached_commitrow}
4399 catch {unset ordertok}
4406 run refill_reflist
4409 return
4410 }
4412 set displayorder {}
4413 set parentlist {}
4414 set rowidlist {}
4415 set rowisopt {}
4416 set rowfinal {}
4419 catch {unset colormap}
4420 catch {unset rowtextx}
4421 set nextcolor 0
4424 set row 0
4425 setcanvscroll
4426 set yf 0
4427 set row {}
4430 # try to get the selected row in the same position on the screen
4434 set ytop 0
4435 }
4437 }
4439 drawvisible
4444 } else {
4445 reset_pending_select {}
4449 } else {
4450 set row [first_real_row]
4453 }
4454 }
4455 }
4458 show_status [mc "Reading commits..."]
4459 }
4461 show_status [mc "No commits selected"]
4462 }
4463 }
4465 # Stuff relating to the highlighting facility
4467 proc ishighlighted {id} {
4468 global vhighlights fhighlights nhighlights rhighlights
4472 }
4475 }
4478 }
4481 }
4482 return 0
4483 }
4485 proc bolden {id font} {
4486 global canv linehtag currentid boldids need_redisplay markedid
4488 # need_redisplay = 1 means the display is stale and about to be redrawn
4495 -outline {{}} -tags secsel \
4498 }
4501 }
4502 }
4504 proc bolden_name {id font} {
4505 global canv2 linentag currentid boldnameids need_redisplay
4513 -outline {{}} -tags secsel \
4516 }
4517 }
4519 proc unbolden {} {
4520 global boldids
4522 set stillbold {}
4526 } else {
4528 }
4529 }
4531 }
4533 proc addvhighlight {n} {
4534 global hlview viewcomplete curview vhl_done commitidx
4536 if {[info exists hlview]} {
4537 delvhighlight
4538 }
4542 }
4545 drawvisible
4546 }
4547 }
4549 proc delvhighlight {} {
4550 global hlview vhighlights
4552 if {![info exists hlview]} return
4553 unset hlview
4554 catch {unset vhighlights}
4555 unbolden
4556 }
4558 proc vhighlightmore {} {
4559 global hlview vhl_done commitidx vhighlights curview
4562 set vr [visiblerows]
4572 }
4574 }
4575 }
4576 }
4578 return 0
4579 }
4581 proc askvhighlight {row id} {
4582 global hlview vhighlights iddrawn
4587 }
4589 } else {
4591 }
4592 }
4594 proc hfiles_change {} {
4595 global highlight_files filehighlight fhighlights fh_serial
4596 global highlight_paths
4598 if {[info exists filehighlight]} {
4599 # delete previous highlights
4601 unset filehighlight
4602 catch {unset fhighlights}
4603 unbolden
4604 unhighlight_filelist
4605 }
4606 set highlight_paths {}
4608 incr fh_serial
4611 }
4612 }
4614 proc gdttype_change {name ix op} {
4615 global gdttype highlight_files findstring findpattern
4617 stopfinding
4621 set highlight_files {}
4622 hfiles_change
4623 }
4624 findcom_change
4625 } else {
4627 set findpattern {}
4628 findcom_change
4629 }
4631 hfiles_change
4632 }
4633 drawvisible
4634 }
4635 # enable/disable findtype/findloc menus too
4636 }
4638 proc find_change {name ix op} {
4639 global gdttype findstring highlight_files
4641 stopfinding
4643 findcom_change
4644 } else {
4647 hfiles_change
4648 }
4649 }
4650 drawvisible
4651 }
4653 proc findcom_change args {
4654 global nhighlights boldnameids
4655 global findpattern findtype findstring gdttype
4657 stopfinding
4658 # delete previous highlights, if any
4661 }
4662 set boldnameids {}
4663 catch {unset nhighlights}
4664 unbolden
4665 unmarkmatches
4667 set findpattern {}
4670 } else {
4671 set e [string map {"*" "\\*" "?" "\\?" "\[" "\\\[" "\\" "\\\\"} \
4674 }
4675 }
4677 proc makepatterns {l} {
4678 set ret {}
4683 } else {
4686 }
4687 }
4689 }
4691 proc do_file_hl {serial} {
4692 global highlight_files filehighlight highlight_paths gdttype fhl_list
4693 global cdup findtype
4696 # If "exact" match then convert backslashes to forward slashes.
4697 # Most useful to support Windows-flavoured file paths.
4700 }
4703 highlight_filelist
4704 set relative_paths {}
4707 }
4713 } else {
4714 # must be "containing:", i.e. we're searching commit info
4715 return
4716 }
4721 set fhl_list {}
4722 drawvisible
4723 flushhighlights
4724 }
4726 proc flushhighlights {} {
4727 global filehighlight fhl_list
4729 if {[info exists filehighlight]} {
4730 lappend fhl_list {}
4733 }
4734 }
4736 proc askfilehighlight {row id} {
4737 global filehighlight fhighlights fhl_list
4742 }
4744 proc readfhighlight {} {
4745 global filehighlight fhighlights curview iddrawn
4746 global fhl_list find_dirn
4748 if {![info exists filehighlight]} {
4749 return 0
4750 }
4751 set nr 0
4759 }
4765 }
4767 }
4769 # strange...
4770 puts "oops, git diff-tree died"
4772 unset filehighlight
4773 return 0
4774 }
4775 if {[info exists find_dirn]} {
4776 run findmore
4777 }
4778 return 1
4779 }
4781 proc doesmatch {f} {
4782 global findtype findpattern
4788 } else {
4790 }
4791 }
4793 proc askfindhighlight {row id} {
4794 global nhighlights commitinfo iddrawn
4795 global findloc
4796 global markingmatches
4800 }
4802 set isbold 0
4803 set fldtypes [list [mc Headline] [mc Author] "" [mc Committer] "" [mc Comments]]
4809 set isbold 2
4810 break
4811 }
4812 set isbold 1
4813 }
4814 }
4820 }
4821 }
4824 }
4825 }
4827 }
4829 proc markrowmatches {row id} {
4830 global canv canv2 linehtag linentag commitinfo findloc
4841 }
4842 }
4848 }
4849 }
4850 }
4852 proc vrel_change {name ix op} {
4853 global highlight_related
4855 rhighlight_none
4857 run drawvisible
4858 }
4859 }
4861 # prepare for testing whether commits are descendents or ancestors of a
4862 proc rhighlight_sel {a} {
4863 global descendent desc_todo ancestor anc_todo
4864 global highlight_related
4866 catch {unset descendent}
4868 catch {unset ancestor}
4871 rhighlight_none
4872 run drawvisible
4873 }
4874 }
4876 proc rhighlight_none {} {
4877 global rhighlights
4879 catch {unset rhighlights}
4880 unbolden
4881 }
4883 proc is_descendent {a} {
4884 global curview children descendent desc_todo
4889 set leftover {}
4890 set done 0
4895 continue
4896 }
4902 set done 1
4903 }
4904 }
4905 }
4908 return
4909 }
4910 }
4913 }
4915 proc is_ancestor {a} {
4916 global curview parents ancestor anc_todo
4921 set leftover {}
4922 set done 0
4927 continue
4928 }
4934 set done 1
4935 }
4936 }
4937 }
4940 return
4941 }
4942 }
4945 }
4947 proc askrelhighlight {row id} {
4948 global descendent highlight_related iddrawn rhighlights
4949 global selectedline ancestor
4952 set isbold 0
4957 }
4959 set isbold 1
4960 }
4965 }
4967 set isbold 1
4968 }
4969 }
4973 }
4974 }
4976 }
4978 # Graph layout functions
4980 proc shortids {ids} {
4981 set res {}
4987 } else {
4989 }
4990 }
4992 }
4994 proc ntimes {n o} {
4995 set ret {}
5000 }
5002 }
5004 }
5006 proc ordertoken {id} {
5007 global ordertok curview varcid varcstart varctok curview parents children
5008 global nullid nullid2
5012 }
5014 set todo {}
5015 while {1} {
5019 } else {
5021 }
5024 break
5025 }
5028 # it's a root
5030 break
5031 }
5034 } else {
5038 }
5040 }
5041 }
5046 }
5049 }
5051 # Work out where id should go in idlist so that order-token
5052 # values increase from left to right
5053 proc idcol {idlist id {i 0}} {
5056 set i 0
5057 }
5061 }
5063 incr i
5064 } else {
5068 }
5069 }
5071 }
5073 proc initlayout {} {
5074 global rowidlist rowisopt rowfinal displayorder parentlist
5075 global numcommits canvxmax canv
5076 global nextcolor
5077 global colormap rowtextx
5079 set numcommits 0
5080 set displayorder {}
5081 set parentlist {}
5082 set nextcolor 0
5083 set rowidlist {}
5084 set rowisopt {}
5085 set rowfinal {}
5087 catch {unset colormap}
5088 catch {unset rowtextx}
5089 setcanvscroll
5090 }
5092 proc setcanvscroll {} {
5093 global canv canv2 canv3 numcommits linespc canvxmax canvy0
5094 global lastscrollset lastscrollrows
5100 set lastscrollset [clock clicks -milliseconds]
5102 }
5104 proc visiblerows {} {
5105 global canv numcommits linespc
5113 set r0 0
5114 }
5119 }
5121 }
5123 proc layoutmore {} {
5124 global commitidx viewcomplete curview
5125 global numcommits pending_select curview
5126 global lastscrollset lastscrollrows
5130 setcanvscroll
5131 }
5132 if {[info exists pending_select] &&
5134 update
5136 }
5137 drawvisible
5138 }
5140 # With path limiting, we mightn't get the actual HEAD commit,
5141 # so ask git rev-list what is the first ancestor of HEAD that
5142 # touches a file in the path limit.
5143 proc get_viewmainhead {view} {
5144 global viewmainheadid vfilelimit viewinstances mainheadid
5146 catch {
5154 }
5155 }
5158 proc getviewhead {fd inst view} {
5159 global viewmainheadid commfd curview viewinstances showlocalchanges
5161 set id {}
5164 return 1
5165 }
5168 }
5175 }
5177 doshowlocalchanges
5178 }
5179 return 0
5180 }
5182 proc doshowlocalchanges {} {
5183 global curview viewmainheadid
5187 dodiffindex
5188 } else {
5190 }
5191 }
5193 proc dohidelocalchanges {} {
5194 global nullid nullid2 lserial curview
5198 }
5201 }
5202 incr lserial
5203 }
5205 # spawn off a process to do git diff-index --cached HEAD
5206 proc dodiffindex {} {
5207 global lserial showlocalchanges vfilelimit curview
5208 global hasworktree
5211 incr lserial
5212 set cmd "|git diff-index --cached HEAD"
5215 }
5220 }
5222 proc readdiffindex {fd serial inst} {
5223 global viewmainheadid nullid nullid2 curview commitinfo commitdata lserial
5224 global vfilelimit
5226 set isdiff 1
5229 return 1
5230 }
5231 set isdiff 0
5232 }
5233 # we only need to see one line and we don't really care what it says...
5237 return 0
5238 }
5240 # now see if there are any local changes not checked in to the index
5241 set cmd "|git diff-files"
5244 }
5251 # add the line for the changes in the index to the graph
5252 set hl [mc "Local changes checked in to index but not committed"]
5257 }
5262 }
5264 }
5265 return 0
5266 }
5268 proc readdifffiles {fd serial inst} {
5269 global viewmainheadid nullid nullid2 curview
5270 global commitinfo commitdata lserial
5272 set isdiff 1
5275 return 1
5276 }
5277 set isdiff 0
5278 }
5279 # we only need to see one line and we don't really care what it says...
5283 return 0
5284 }
5287 # add the line for the local diff to the graph
5288 set hl [mc "Local uncommitted changes, not checked in to index"]
5293 } else {
5295 }
5299 }
5300 return 0
5301 }
5303 proc nextuse {id row} {
5304 global curview children
5309 return -1
5310 }
5313 }
5314 }
5315 }
5318 }
5319 return -1
5320 }
5322 proc prevuse {id row} {
5323 global curview children
5325 set ret -1
5331 }
5332 }
5333 }
5335 }
5337 proc make_idlist {row} {
5338 global displayorder parentlist uparrowlen downarrowlen mingaplen
5339 global commitidx curview children
5343 set r 0
5344 }
5347 set ra 0
5348 }
5352 }
5354 set ids {}
5363 }
5364 }
5365 }
5373 }
5374 }
5375 }
5383 }
5384 }
5385 incr r
5391 }
5392 }
5393 }
5394 set idlist {}
5397 }
5399 }
5401 proc rowsequal {a b} {
5404 }
5407 }
5409 }
5411 proc makeupline {id row rend col} {
5412 global rowidlist uparrowlen downarrowlen mingaplen
5418 }
5421 }
5428 }
5429 }
5430 }
5432 proc layoutrows {row endrow} {
5433 global rowidlist rowisopt rowfinal displayorder
5434 global uparrowlen downarrowlen maxwidth mingaplen
5435 global children parentlist
5436 global commitidx viewcomplete curview
5439 set idlist {}
5445 }
5446 }
5448 }
5453 set final 1
5454 } else {
5462 # if not the first child, we have to insert a line going up
5465 }
5466 }
5467 }
5477 }
5478 }
5479 }
5486 }
5487 }
5497 }
5498 }
5506 }
5507 }
5508 }
5509 }
5510 }
5514 set final 0
5515 }
5519 lappend rowisopt 0
5525 }
5527 } else {
5534 }
5535 }
5537 }
5539 proc changedrow {row} {
5540 global displayorder iddrawn rowisopt need_redisplay
5549 }
5550 }
5551 }
5554 set need_redisplay 1
5555 }
5556 }
5558 proc insert_pad {row col npad} {
5559 global rowidlist
5568 }
5571 }
5573 proc optimize_rows {row col endrow} {
5574 global rowidlist rowisopt displayorder curview children
5577 set row 1
5578 }
5581 set haspad 0
5590 } else {
5591 set pprevidlist {}
5592 }
5593 set x0 -1
5594 set xm -1
5599 set haspad 1
5600 continue
5601 }
5605 set isarrow 0
5606 set z0 {}
5611 }
5612 }
5617 set isarrow 1
5618 }
5619 }
5622 set isarrow 1
5623 }
5624 # Looking at lines from this row to the previous row,
5625 # make them go straight up if they end in an arrow on
5626 # the previous row; otherwise make them go straight up
5627 # or at 45 degrees.
5629 # Line currently goes left too much;
5630 # insert pads in the previous row, then optimize it
5635 }
5643 }
5645 # Line currently goes right too much;
5646 # insert pads in this line
5652 set haspad 1
5653 }
5660 }
5661 }
5662 # avoid lines jigging left then immediately right
5665 incr x0
5668 }
5669 }
5671 # Find the first column that doesn't have a line going right
5677 # check if this is the link to the first child
5680 # it is, work out offset to child
5682 }
5683 }
5685 }
5686 # Insert a pad at that column as long as it has a line and
5687 # isn't the last column
5692 }
5693 }
5694 }
5695 }
5697 proc xc {row col} {
5698 global canvx0 linespc
5700 }
5702 proc yc {row} {
5703 global canvy0 linespc
5705 }
5707 proc linewidth {id} {
5708 global thickerline lthickness
5713 }
5715 }
5717 proc rowranges {id} {
5718 global curview children uparrowlen downarrowlen
5719 global rowidlist
5723 return {}
5724 }
5725 set ret {}
5730 if {![info exists prev]} {
5732 } else {
5734 puts "oops children of [shortids $id] out of order [shortids $child] $row <= [shortids $prev] $prevrow"
5735 }
5736 # see if the line extends the whole way from prevrow to row
5740 # it doesn't, see where it ends
5745 } else {
5748 incr r -1
5749 }
5751 # see where it starts up again
5756 } else {
5759 incr r
5760 }
5762 }
5763 }
5766 }
5769 }
5771 }
5773 proc drawlineseg {id row endrow arrowlow} {
5774 global rowidlist displayorder iddrawn linesegs
5775 global canv colormap linespc curview maxlinelen parentlist
5779 set arrowhigh 1
5780 while {1} {
5783 incr le -1
5784 break
5785 }
5789 set arrowhigh 0
5790 break
5791 }
5796 set arrowhigh 0
5797 }
5798 break
5799 }
5800 incr le
5801 }
5804 }
5806 set lines {}
5807 set i 0
5808 set joinhigh 0
5815 set joinhigh 1
5816 }
5817 break
5818 }
5819 incr i
5820 }
5821 }
5822 set joinlow 0
5827 set joinlow 1
5828 }
5829 }
5842 }
5843 } else {
5845 }
5853 set arrowlow 0
5854 }
5855 }
5863 }
5865 }
5868 # join parent line to first child
5879 } else {
5881 }
5889 }
5891 }
5893 } else {
5897 }
5905 } else {
5909 }
5911 }
5912 } else {
5918 }
5922 } else {
5923 # coalesce two pieces
5928 }
5932 }
5933 }
5937 }
5939 proc drawparentlinks {id row} {
5940 global rowidlist canv colormap curview parentlist
5941 global idpos linespc
5954 # rmx = right-most X coord used
5955 set rmx 0
5960 continue
5961 }
5965 }
5968 # drawlineseg will do this one for us
5969 continue
5970 }
5972 # should handle duplicated parents here...
5975 # if attaching to a vertical segment, draw a smaller
5976 # slant for visual distinctness
5980 } else {
5982 }
5984 # segment slants towards us already
5986 } else {
5991 }
5993 }
5994 } else {
5996 }
6001 }
6005 }
6006 }
6008 proc drawlines {id} {
6009 global canv
6012 }
6014 proc drawcmittext {id row col} {
6015 global linespc canv canv2 canv3 fgcolor curview
6016 global cmitlisted commitinfo rowidlist parentlist
6017 global rowtextx idpos idtags idheads idotherrefs
6018 global linehtag linentag linedtag selectedline
6019 global canvxmax boldids boldnameids fgcolor markedid
6020 global mainheadid nullid nullid2 circleitem circlecolors ctxbut
6021 global mainheadcirclecolor workingfilescirclecolor indexcirclecolor
6022 global circleoutlinecolor
6024 # listed is 0 for boundary, 1 for normal, 2 for negative, 3 for left, 4 for right
6032 } else {
6034 }
6043 # triangle pointing left for left-side commits
6049 } else {
6050 # triangle pointing right for right-side commits
6056 }
6068 }
6069 }
6070 }
6077 }
6080 }
6085 set font mainfont
6086 set nfont mainfont
6090 set font mainfontbold
6093 set nfont mainfontbold
6094 }
6095 }
6105 }
6108 }
6112 setcanvscroll
6113 }
6114 }
6116 proc drawcmitrow {row} {
6117 global displayorder rowidlist nrows_drawn
6118 global iddrawn markingmatches
6119 global commitinfo numcommits
6120 global filehighlight fhighlights findpattern nhighlights
6121 global hlview vhighlights
6122 global highlight_related rhighlights
6129 }
6132 }
6135 }
6138 }
6143 return
6144 }
6147 }
6151 incr nrows_drawn
6152 }
6155 }
6156 }
6158 proc drawcommits {row {endrow {}}} {
6159 global numcommits iddrawn displayorder curview need_redisplay
6160 global parentlist rowidlist rowfinal uparrowlen downarrowlen nrows_drawn
6163 set row 0
6164 }
6167 }
6170 }
6174 set rl1 0
6175 }
6178 set ro1 0
6179 }
6183 }
6188 }
6190 }
6191 }
6194 }
6197 clear_display
6198 }
6200 # make the lines join to already-drawn rows either side
6204 }
6209 }
6224 # see if this is the first child of any of its parents
6227 # make this line extend up to the child
6229 }
6230 }
6231 } else {
6233 }
6234 }
6235 }
6236 }
6238 proc undolayout {row} {
6239 global uparrowlen mingaplen downarrowlen
6240 global rowidlist rowisopt rowfinal need_redisplay
6244 set r 0
6245 }
6247 incr r -1
6251 set need_redisplay 1
6252 run drawvisible
6253 }
6254 }
6256 proc drawvisible {} {
6257 global canv linespc curview vrowmod selectedline targetrow targetid
6258 global need_redisplay cscroll numcommits
6268 if {[info exists targetid]} {
6272 # Fix up the scrollregion and change the scrolling position
6273 # now that our target row has moved.
6276 setcanvscroll
6284 set need_redisplay 1
6285 }
6286 } else {
6287 unset targetid
6288 }
6289 }
6295 }
6299 } elseif {[info exists targetid]} {
6301 }
6302 if {[info exists targetrow]} {
6305 }
6307 }
6309 }
6311 proc clear_display {} {
6312 global iddrawn linesegs need_redisplay nrows_drawn
6313 global vhighlights fhighlights nhighlights rhighlights
6314 global linehtag linentag linedtag boldids boldnameids
6316 allcanvs delete all
6317 catch {unset iddrawn}
6318 catch {unset linesegs}
6319 catch {unset linehtag}
6320 catch {unset linentag}
6321 catch {unset linedtag}
6322 set boldids {}
6323 set boldnameids {}
6324 catch {unset vhighlights}
6325 catch {unset fhighlights}
6326 catch {unset nhighlights}
6327 catch {unset rhighlights}
6328 set need_redisplay 0
6329 set nrows_drawn 0
6330 }
6332 proc findcrossings {id} {
6333 global rowidlist parentlist numcommits displayorder
6335 set cross {}
6336 set ccross {}
6340 }
6359 }
6360 }
6361 }
6362 }
6363 }
6365 }
6367 proc assigncolor {id} {
6368 global colormap colors nextcolor
6369 global parents children children curview
6375 } else {
6376 set kids {}
6377 }
6383 return
6384 }
6385 }
6386 set badcolors {}
6387 set origbad {}
6390 # delimiter between corner crossings and other crossings
6393 }
6397 }
6398 }
6401 }
6408 }
6413 }
6414 }
6415 }
6418 }
6419 }
6423 set nextcolor 0
6424 }
6426 }
6428 }
6430 proc bindline {t id} {
6431 global canv
6437 }
6439 proc graph_pane_width {} {
6440 global use_ttk
6443 set g [.tf.histframe.pwclist sashpos 0]
6444 } else {
6445 set g [.tf.histframe.pwclist sash coord 0]
6446 }
6448 }
6450 proc totalwidth {l font extra} {
6451 set tot 0
6454 }
6456 }
6458 proc drawtags {id x xt y1} {
6459 global idtags idheads idotherrefs mainhead
6460 global linespc lthickness
6461 global canv rowtextx curview fgcolor bgcolor ctxbut
6462 global headbgcolor headfgcolor headoutlinecolor remotebgcolor
6463 global tagbgcolor tagfgcolor tagoutlinecolor
6464 global reflinecolor
6466 set marks {}
6467 set ntags 0
6468 set nheads 0
6469 set singletag 0
6470 set maxtags 3
6471 set maxtagpct 25
6481 # show just a single "n tags..." tag
6482 set singletag 1
6484 set marks [list "tag..."]
6485 } else {
6487 }
6488 set ntags 1
6489 }
6490 }
6494 }
6497 }
6500 }
6504 set xvals {}
6505 set wvals {}
6506 set i -1
6508 incr i
6511 } else {
6513 }
6517 }
6525 set font mainfont
6526 if {[incr ntags -1] >= 0} {
6527 # draw a tag
6534 } else {
6536 }
6539 } else {
6540 # draw a head or other ref
6541 if {[incr nheads -1] >= 0} {
6544 set font mainfontbold
6545 }
6546 } else {
6547 set col "#ddddff"
6548 }
6559 }
6560 }
6567 }
6568 }
6570 }
6572 proc drawnotesign {xt y} {
6573 global linespc canv fgcolor
6581 }
6583 proc xcoord {i level ln} {
6584 global canvx0 xspc1 xspc2
6591 }
6593 }
6595 proc show_status {msg} {
6596 global canv fgcolor
6598 clear_display
6601 }
6603 # Don't change the text pane cursor if it is currently the hand cursor,
6604 # showing that we are over a sha1 ID link.
6605 proc settextcursor {c} {
6606 global ctext curtextcursor
6610 }
6612 }
6614 proc nowbusy {what {name {}}} {
6615 global isbusy busyname statusw
6617 if {[array names isbusy] eq {}} {
6618 . config -cursor watch
6619 settextcursor watch
6620 }
6625 }
6626 }
6628 proc notbusy {what} {
6629 global isbusy maincursor textcursor busyname statusw
6631 catch {
6636 }
6637 }
6638 if {[array names isbusy] eq {}} {
6641 }
6642 }
6644 proc findmatches {f} {
6645 global findtype findstring
6648 } else {
6653 }
6654 set matches {}
6655 set i 0
6660 }
6661 }
6663 }
6665 proc dofind {{dirn 1} {wrap 1}} {
6666 global findstring findstartline findcurline selectedline numcommits
6667 global gdttype filehighlight fh_serial find_dirn findallowwrap
6669 if {[info exists find_dirn]} {
6671 stopfinding
6672 }
6673 focus .
6677 } else {
6679 }
6681 nowbusy finding [mc "Searching"]
6685 }
6688 run findmore
6689 }
6691 proc stopfinding {} {
6692 global find_dirn findcurline fprogcoord
6694 if {[info exists find_dirn]} {
6695 unset find_dirn
6696 unset findcurline
6697 notbusy finding
6698 set fprogcoord 0
6699 adjustprogress
6700 }
6701 stopblaming
6702 }
6704 proc findmore {} {
6705 global commitdata commitinfo numcommits findpattern findloc
6706 global findstartline findcurline findallowwrap
6707 global find_dirn gdttype fhighlights fprogcoord
6708 global curview varcorder vrownum varccommits vrowmod
6710 if {![info exists find_dirn]} {
6711 return 0
6712 }
6713 set fldtypes [list [mc "Headline"] [mc "Author"] "" [mc "Committer"] "" [mc "Comments"]]
6715 set moretodo 0
6717 incr l
6719 set l 0
6720 }
6723 } else {
6726 }
6727 } else {
6730 }
6731 incr l -1
6734 } else {
6735 set lim -1
6737 }
6738 }
6741 set n 500
6742 set moretodo 1
6743 }
6746 }
6747 set found 0
6748 set domore 1
6762 }
6764 # shouldn't happen unless git log doesn't give all the commits...
6767 continue
6768 }
6771 }
6777 set found 1
6778 break
6779 }
6780 }
6782 }
6783 } else {
6791 }
6796 }
6799 break
6800 }
6803 set domore 0
6805 }
6806 }
6807 }
6808 }
6810 unset findcurline
6811 unset find_dirn
6812 notbusy finding
6813 set fprogcoord 0
6814 adjustprogress
6817 } else {
6818 bell
6819 }
6820 return 0
6821 }
6823 flushhighlights
6824 } else {
6826 }
6830 }
6832 adjustprogress
6834 }
6836 proc findselectline {l} {
6837 global findloc commentend ctext findcurline markingmatches gdttype
6844 # highlight the matches in the comments
6851 }
6852 }
6853 drawvisible
6854 }
6856 # mark the bits of a headline or author that match a find string
6857 proc markmatches {canv l str tag matches font row} {
6858 global selectedline
6876 }
6877 }
6878 }
6880 proc unmarkmatches {} {
6881 global markingmatches
6883 allcanvs delete matches
6884 set markingmatches 0
6885 stopfinding
6886 }
6888 proc selcanvline {w x y} {
6889 global canv canvy0 ctext linespc
6890 global rowtextx
6897 set l 0
6898 }
6903 }
6904 unmarkmatches
6906 }
6908 proc commit_descriptor {p} {
6909 global commitinfo
6912 }
6913 set l "..."
6916 }
6918 }
6920 # append some text to the ctext widget, and make any SHA1 ID
6921 # that we know about be a clickable link.
6922 proc appendwithlinks {text tags} {
6923 global ctext linknum curview
6932 incr e
6936 incr linknum
6937 }
6938 }
6940 proc setlink {id lk} {
6941 global curview ctext pendinglinks
6942 global linkfgcolor
6946 }
6948 set known 0
6953 set known 1
6955 }
6956 } else {
6958 }
6964 } else {
6967 }
6968 }
6970 proc appendshortlink {id {pre {}} {post {}}} {
6971 global ctext linknum
6978 incr linknum
6979 }
6981 proc makelink {id} {
6982 global pendinglinks
6987 }
6989 }
6991 proc linkcursor {w inc} {
6992 global linkentercount curtextcursor
6996 } else {
6999 set linkentercount 0
7000 }
7001 }
7002 }
7004 proc viewnextline {dir} {
7005 global canv linespc
7013 set newtop 0
7016 }
7018 }
7020 # add a list of tag or branch names at position pos
7021 # returns the number of names inserted
7022 proc appendrefs {pos ids var} {
7026 return 0
7027 }
7030 set tags {}
7034 }
7035 }
7037 set sep {}
7039 set nutags 0
7042 # If we are displaying heads, and there are too many,
7043 # see if there are some important heads to display.
7044 # Currently this means "master" and the current head.
7045 set itags {}
7047 set utags {}
7054 } else {
7056 }
7057 }
7059 }
7061 set str [mc "and many more"]
7062 set sep " "
7063 } else {
7064 set str [mc "many"]
7065 }
7069 }
7074 incr linknum
7079 set sep ", "
7080 }
7084 }
7086 # called when we have finished computing the nearby tags
7087 proc dispneartags {delay} {
7088 global selectedline currentid showneartags tagphase
7091 after cancel dispnexttag
7093 after 200 dispnexttag
7094 set tagphase -1
7095 } else {
7096 after idle dispnexttag
7097 set tagphase 0
7098 }
7099 }
7101 proc dispnexttag {} {
7102 global selectedline currentid showneartags tagphase ctext
7106 0 {
7110 }
7111 }
7112 1 {
7116 }
7117 }
7118 2 {
7123 # turn "Branch" into "Branches"
7127 }
7128 }
7129 }
7130 }
7131 if {[incr tagphase] <= 2} {
7132 after idle dispnexttag
7133 }
7134 }
7136 proc make_secsel {id} {
7137 global linehtag linentag linedtag canv canv2 canv3
7152 }
7154 proc make_idmark {id} {
7155 global linehtag canv fgcolor
7162 }
7164 proc selectline {l isnew {desired_loc {}}} {
7165 global canv ctext commitinfo selectedline
7166 global canvy0 linespc parents children curview
7167 global currentid sha1entry
7168 global commentend idtags linknum
7169 global mergemax numcommits pending_select
7170 global cmitmode showneartags allcommits
7171 global targetrow targetid lastscrollrows
7172 global autoselect autosellen jump_to_here
7173 global vinlinediff
7175 catch {unset pending_select}
7177 normalline
7178 unsel_reflist
7179 stopfinding
7187 setcanvscroll
7188 }
7202 } else {
7206 }
7207 }
7211 } else {
7215 }
7216 }
7217 }
7220 set newtop 0
7221 }
7223 drawvisible
7224 }
7230 }
7236 }
7240 clear_ctext
7241 set linknum 0
7244 }
7254 }
7256 }
7258 set headers {}
7261 set np 0
7264 set tag mmax
7265 } else {
7267 }
7270 incr np
7271 }
7272 } else {
7275 }
7276 }
7280 }
7282 # make anything that looks like a SHA1 ID be a clickable link
7285 if {![info exists allcommits]} {
7286 getallcommits
7287 }
7298 dispneartags 1
7299 }
7304 }
7312 init_flist [mc "Comments"]
7319 } else {
7321 }
7322 }
7324 proc selfirstline {} {
7325 unmarkmatches
7326 selectline 0 1
7327 }
7329 proc sellastline {} {
7330 global numcommits
7331 unmarkmatches
7334 }
7336 proc selnextline {dir} {
7337 global selectedline
7338 focus .
7341 unmarkmatches
7343 }
7345 proc selnextpage {dir} {
7346 global canv linespc selectedline numcommits
7350 set lpp 1
7351 }
7353 drawvisible
7357 set l 0
7360 }
7361 unmarkmatches
7363 }
7365 proc unselectline {} {
7366 global selectedline currentid
7368 set selectedline {}
7369 catch {unset currentid}
7370 allcanvs delete secsel
7371 rhighlight_none
7372 }
7374 proc reselectline {} {
7375 global selectedline
7379 }
7380 }
7382 proc addtohistory {cmd {saveproc {}}} {
7383 global history historyindex curview
7385 unset_posvars
7386 save_position
7390 return
7391 }
7395 } else {
7397 }
7398 incr historyindex
7400 .tf.bar.leftbut conf -state normal
7401 } else {
7402 .tf.bar.leftbut conf -state disabled
7403 }
7404 .tf.bar.rightbut conf -state disabled
7405 }
7407 # save the scrolling position of the diff display pane
7408 proc save_position {} {
7409 global historyindex history
7416 }
7417 }
7419 proc unset_posvars {} {
7420 global last_posvars
7422 if {[info exists last_posvars]} {
7426 }
7427 unset last_posvars
7428 }
7429 }
7431 proc godo {elt} {
7432 global curview last_posvars
7439 }
7440 unset_posvars
7444 }
7447 }
7449 proc goback {} {
7450 global history historyindex
7451 focus .
7454 save_position
7455 incr historyindex -1
7457 .tf.bar.rightbut conf -state normal
7458 }
7460 .tf.bar.leftbut conf -state disabled
7461 }
7462 }
7464 proc goforw {} {
7465 global history historyindex
7466 focus .
7469 save_position
7471 incr historyindex
7473 .tf.bar.leftbut conf -state normal
7474 }
7476 .tf.bar.rightbut conf -state disabled
7477 }
7478 }
7480 proc gettree {id} {
7481 global treefilelist treeidlist diffids diffmergeid treepending
7482 global nullid nullid2
7485 catch {unset diffmergeid}
7487 if {![info exists treepending]} {
7489 set cmd [list | git ls-files]
7491 set cmd [list | git ls-files --stage -t]
7492 } else {
7494 }
7496 return
7497 }
7503 }
7504 } else {
7506 }
7507 }
7509 proc gettreeline {gtf id} {
7510 global treefilelist treeidlist treepending cmitmode diffids nullid nullid2
7512 set nl 0
7516 } else {
7524 }
7527 }
7530 }
7533 }
7535 unset treepending
7537 if {![info exists diffmergeid]} {
7539 }
7542 } else {
7544 }
7545 return 0
7546 }
7548 proc showfile {f} {
7549 global treefilelist treeidlist diffids nullid nullid2
7550 global ctext_file_names ctext_file_lines
7551 global ctext commentend
7556 return
7557 }
7561 return
7562 }
7563 } else {
7567 return
7568 }
7569 }
7580 settabs 0
7581 }
7583 proc getblobline {bf id} {
7584 global diffids cmitmode ctext
7588 return 0
7589 }
7591 set nl 0
7594 }
7596 global jump_to_here ctext_file_names commentend
7598 # delete last newline
7606 }
7608 return 0
7609 }
7612 }
7614 proc mark_ctext_line {lnum} {
7615 global ctext markbgcolor
7621 }
7623 proc mergediff {id} {
7624 global diffmergeid
7625 global diffids treediffs
7626 global parents curview
7634 }
7636 proc startdiff {ids} {
7637 global treediffs diffids treepending diffmergeid nullid nullid2
7639 settabs 1
7641 catch {unset diffmergeid}
7645 if {![info exists treepending]} {
7647 }
7648 } else {
7650 }
7651 }
7653 proc showinlinediff {ids} {
7654 global commitinfo commitdata ctext
7655 global treediffs
7661 initblobdiffvars
7662 set treediff {}
7664 set inhdr 0
7667 set inhdr 1
7669 # offset also accounts for the b/ prefix
7671 set inhdr 0
7672 }
7673 }
7681 }
7682 maybe_scroll_ctext 1
7684 }
7686 # If the filename (name) is under any of the passed filter paths
7687 # then return true to include the file in the listing.
7688 proc path_filter {filter name} {
7689 set worktree [gitworktree]
7694 return 1
7695 }
7696 }
7697 return 0
7698 }
7700 proc addtocflist {ids} {
7701 global treediffs
7705 }
7707 proc diffcmd {ids flags} {
7708 global log_showroot nullid nullid2
7714 # comparing working directory with some specific revision
7718 } else {
7720 }
7721 } else {
7722 # comparing working directory with index
7725 lappend cmd -R
7726 }
7727 }
7731 # comparing index with specific revision
7734 } else {
7736 }
7737 } else {
7738 # comparing index with HEAD
7739 lappend cmd HEAD
7740 }
7741 } else {
7743 lappend flags --root
7744 }
7746 }
7748 }
7750 proc gettreediffs {ids} {
7751 global treediff treepending limitdiffs vfilelimit curview
7756 }
7760 set treediff {}
7763 }
7765 proc gettreediffline {gdtf ids} {
7766 global treediff treediffs treepending diffids diffmergeid
7767 global cmitmode vfilelimit curview limitdiffs perfile_attrs
7769 set nr 0
7770 set sublist {}
7771 set max 1000
7773 # cache_gitattr is slow, and even slower on win32 where we
7774 # have to invoke it for only about 30 paths at a time
7775 set max 500
7776 if {[tk windowingsystem] == "win32"} {
7777 set max 120
7778 }
7779 }
7786 }
7791 }
7792 }
7793 }
7796 }
7799 }
7802 unset treepending
7806 if {![info exists diffmergeid]} {
7808 }
7809 } else {
7811 }
7812 return 0
7813 }
7815 # empty string or positive integer
7816 proc diffcontextvalidate {v} {
7818 }
7820 proc diffcontextchange {n1 n2 op} {
7821 global diffcontextstring diffcontext
7826 reselectline
7827 }
7828 }
7829 }
7831 proc changeignorespace {} {
7832 reselectline
7833 }
7835 proc changeworddiff {name ix op} {
7836 reselectline
7837 }
7839 proc initblobdiffvars {} {
7840 global diffencoding targetline diffnparents
7841 global diffinhdr currdiffsubmod diffseehere
7842 set targetline {}
7843 set diffnparents 0
7844 set diffinhdr 0
7845 set diffencoding [get_path_encoding {}]
7846 set currdiffsubmod ""
7847 set diffseehere -1
7848 }
7850 proc getblobdiffs {ids} {
7851 global blobdifffd diffids env
7852 global treediffs
7853 global diffcontext
7854 global ignorespace
7855 global worddiff
7856 global limitdiffs vfilelimit curview
7857 global git_version
7859 set textconv {}
7861 set textconv "--textconv"
7862 }
7863 set submodule {}
7865 set submodule "--submodule"
7866 }
7869 append cmd " -w"
7870 }
7872 append cmd " --word-diff=porcelain"
7873 }
7876 }
7879 return
7880 }
7883 initblobdiffvars
7885 }
7887 proc savecmitpos {} {
7888 global ctext cmitmode
7891 return {}
7892 }
7894 }
7896 proc savectextpos {} {
7897 global ctext
7900 }
7902 proc maybe_scroll_ctext {ateof} {
7903 global ctext target_scrollpos
7905 if {![info exists target_scrollpos]} return
7908 / [font metrics textfont -linespace]}]
7910 }
7912 unset target_scrollpos
7913 }
7915 proc setinlist {var i val} {
7920 }
7923 } else {
7925 }
7926 }
7928 proc makediffhdr {fname ids} {
7929 global ctext curdiffstart treediffs diffencoding
7930 global ctext_file_names jump_to_here targetline diffline
7937 }
7942 set targetline {}
7945 }
7946 set diffline 0
7947 }
7949 proc blobdiffmaybeseehere {ateof} {
7950 global diffseehere
7953 }
7955 }
7957 proc getblobdiffline {bdf ids} {
7958 global diffids blobdifffd
7959 global ctext
7961 set nr 0
7966 return 0
7967 }
7969 }
7974 return 0
7975 }
7977 }
7979 proc parseblobdiffline {ids line} {
7980 global ctext curdiffstart
7981 global diffnexthead diffnextnote difffilestart
7982 global ctext_file_names ctext_file_lines
7983 global diffinhdr treediffs mergemax diffnparents
7984 global diffencoding jump_to_here targetline diffline currdiffsubmod
7985 global worddiff diffseehere
7991 continue
7992 }
7993 # start of a new file
7994 set diffinhdr 1
7997 lappend ctext_file_names ""
8002 # start of a new file in a merge diff
8007 }
8009 } else {
8011 # If the name hasn't changed the length will be odd,
8012 # the middle char will be a space, and the two bits either
8013 # side will be a/name and b/name, or "a/name" and "b/name".
8014 # If the name has changed we'll get "rename from" and
8015 # "rename to" or "copy from" and "copy to" lines following
8016 # this, and we'll use them to get the filenames.
8017 # This complexity is necessary because spaces in the
8018 # filename(s) don't get escaped.
8024 return
8025 }
8026 # unescape if quoted and chop off the a/ from the front
8029 } else {
8031 }
8032 }
8045 }
8053 }
8055 set diffinhdr 0
8058 # start of a new submodule
8061 } else {
8063 }
8066 }
8068 lappend ctext_file_names ""
8074 } else {
8076 }
8090 }
8095 }
8101 }
8104 # do nothing
8105 return
8107 set diffinhdr 0
8108 return
8109 }
8112 } else {
8113 set line [string map {\x1A ^Z} \
8115 # parse the prefix - one ' ', '-' or '+' for each parent
8119 set words_pre_markup ""
8120 set words_post_markup ""
8122 # prefix only has " ", "-" and "+" in it: normal diff line
8126 }
8130 set num "max"
8131 }
8134 } else {
8136 }
8139 }
8140 } else {
8141 set tags {}
8143 # added line
8149 set num "max"
8150 }
8152 }
8153 }
8154 set words_pre_markup "{+"
8155 set words_post_markup "+}"
8156 }
8160 set targetline {}
8161 } else {
8162 incr diffline
8163 }
8164 }
8167 } else {
8169 }
8172 }
8173 }
8176 } else {
8177 # "\ No newline at end of file",
8178 # or something else we don't recognize
8180 }
8181 }
8182 }
8184 proc changediffdisp {} {
8185 global ctext diffelide
8189 }
8191 proc highlightfile {cline} {
8192 global cflist cflist_top
8194 if {![info exists cflist_top]} return
8200 }
8202 proc highlightfile_for_scrollpos {topidx} {
8203 global cmitmode difffilestart
8206 if {![info exists difffilestart]} return
8210 highlightfile 0
8211 } else {
8213 }
8214 }
8216 proc prevfile {} {
8217 global difffilestart ctext cmitmode
8220 set prev 0.0
8225 return
8226 }
8228 }
8230 }
8232 proc nextfile {} {
8233 global difffilestart ctext cmitmode
8240 return
8241 }
8242 }
8243 }
8245 proc clear_ctext {{first 1.0}} {
8246 global ctext smarktop smarkbot
8247 global ctext_file_names ctext_file_lines
8248 global pendinglinks
8253 }
8256 }
8259 catch {unset pendinglinks}
8260 }
8261 set ctext_file_names {}
8262 set ctext_file_lines {}
8263 }
8265 proc settabs {{firstab {}}} {
8266 global firsttabstop tabstop ctext have_tk85
8270 }
8271 set w [font measure textfont "0"]
8277 } else {
8279 }
8280 }
8282 proc incrsearch {name ix op} {
8283 global ctext searchstring searchdirn
8286 # no anchor set, use start of selection, or of visible area
8292 } else {
8294 }
8295 }
8303 suppress_highlighting_file_for_current_scrollpos
8305 }
8306 }
8307 rehighlight_search_results
8308 }
8310 proc dosearch {} {
8311 global sstring ctext searchstring searchdirn
8315 set searchdirn -forwards
8321 set start "@0,0"
8322 }
8326 bell
8327 return
8328 }
8330 suppress_highlighting_file_for_current_scrollpos
8335 rehighlight_search_results
8336 }
8337 }
8339 proc dosearchback {} {
8340 global sstring ctext searchstring searchdirn
8344 set searchdirn -backwards
8351 }
8355 bell
8356 return
8357 }
8359 suppress_highlighting_file_for_current_scrollpos
8364 rehighlight_search_results
8365 }
8366 }
8368 proc rehighlight_search_results {} {
8369 global ctext searchstring
8375 searchmarkvisible 1
8376 }
8377 }
8379 proc searchmark {first last} {
8380 global ctext searchstring
8385 while {1} {
8391 } else {
8393 }
8394 }
8395 }
8397 proc searchmarkvisible {doall} {
8398 global ctext smarktop smarkbot
8403 # no overlap with previous
8407 } else {
8411 }
8415 }
8416 }
8417 }
8419 proc suppress_highlighting_file_for_current_scrollpos {} {
8420 global ctext suppress_highlighting_file_for_this_scrollpos
8423 }
8425 proc scrolltext {f0 f1} {
8426 global searchstring cmitmode ctext
8427 global suppress_highlighting_file_for_this_scrollpos
8430 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8433 }
8435 catch {unset suppress_highlighting_file_for_this_scrollpos}
8439 searchmarkvisible 0
8440 }
8441 }
8443 proc setcoords {} {
8444 global linespc charspc canvx0 canvy0
8445 global xspc1 xspc2 lthickness
8447 set linespc [font metrics mainfont -linespace]
8448 set charspc [font measure mainfont "m"]
8454 }
8456 proc redisplay {} {
8457 global canv
8458 global selectedline
8463 clear_display
8464 setcanvscroll
8466 drawvisible
8470 }
8471 }
8473 proc parsefont {f n} {
8474 global fontattr
8479 set s 10
8482 }
8488 "normal" -
8490 "roman" -
8492 }
8493 }
8494 }
8496 proc fontflags {f {isbold 0}} {
8497 global fontattr
8502 }
8504 proc fontname {f} {
8505 global fontattr
8509 lappend n "bold"
8510 }
8512 lappend n "italic"
8513 }
8515 }
8517 proc incrfont {inc} {
8518 global mainfont textfont ctext canv cflist showrefstop
8519 global stopped entries fontattr
8521 unmarkmatches
8525 set s 1
8526 }
8530 set mainfont [fontname mainfont]
8534 set s 1
8535 }
8539 set textfont [fontname textfont]
8540 setcoords
8541 settabs
8542 redisplay
8543 }
8545 proc clearsha1 {} {
8546 global sha1entry sha1string
8549 }
8550 }
8552 proc sha1change {n1 n2 op} {
8553 global sha1string currentid sha1but
8556 set state disabled
8557 } else {
8558 set state normal
8559 }
8563 } else {
8565 }
8566 }
8568 proc gotocommit {} {
8569 global sha1string tagids headids curview varcid
8577 } else {
8584 return
8585 }
8587 }
8588 } else {
8591 return
8592 }
8593 }
8594 }
8597 return
8598 }
8601 } else {
8603 }
8605 }
8607 proc lineenter {x y id} {
8608 global hoverx hovery hoverid hovertimer
8609 global commitinfo canv
8615 if {[info exists hovertimer]} {
8617 }
8618 set hovertimer [after 500 linehover]
8620 }
8622 proc linemotion {x y id} {
8623 global hoverx hovery hoverid hovertimer
8628 if {[info exists hovertimer]} {
8630 }
8631 set hovertimer [after 500 linehover]
8632 }
8633 }
8635 proc lineleave {id} {
8636 global hoverid hovertimer canv
8640 if {[info exists hovertimer]} {
8642 unset hovertimer
8643 }
8644 unset hoverid
8645 }
8646 }
8648 proc linehover {} {
8649 global hoverx hovery hoverid hovertimer
8650 global canv linespc lthickness
8651 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8653 global commitinfo
8667 -width 1 -tags hover]
8672 }
8674 proc clickisonarrow {id y} {
8675 global lthickness
8684 }
8685 }
8686 return {}
8687 }
8689 proc arrowjump {id n y} {
8690 global canv
8692 # 1 <-> 2, 3 <-> 4, etc...
8702 set yfrac 0
8703 }
8705 }
8707 proc lineclick {x y id isnew} {
8708 global ctext commitinfo children canv thickerline curview
8711 unmarkmatches
8712 unselectline
8713 normalline
8715 # draw this line thicker than normal
8723 }
8727 return
8728 }
8732 }
8733 # fill the details pane with info about this line
8735 clear_ctext
8736 settabs 0
8748 set i 0
8750 incr i
8760 }
8761 }
8762 maybe_scroll_ctext 1
8764 init_flist {}
8765 }
8767 proc normalline {} {
8768 global thickerline
8769 if {[info exists thickerline]} {
8771 unset thickerline
8773 }
8774 }
8776 proc selbyid {id {isnew 1}} {
8777 global curview
8780 }
8781 }
8783 proc mstime {} {
8784 global startmstime
8785 if {![info exists startmstime]} {
8786 set startmstime [clock clicks -milliseconds]
8787 }
8789 }
8791 proc rowmenu {x y id} {
8792 global rowctxmenu selectedline rowmenuid curview
8793 global nullid nullid2 fakerowmenu mainhead markedid
8795 stopfinding
8798 set state disabled
8799 } else {
8800 set state normal
8801 }
8803 set mstate normal
8804 } else {
8805 set mstate disabled
8806 }
8811 } else {
8813 }
8817 } else {
8819 }
8826 }
8828 proc markhere {} {
8829 global rowmenuid markedid canv
8833 }
8835 proc gotomark {} {
8836 global markedid
8838 if {[info exists markedid]} {
8840 }
8841 }
8843 proc replace_by_kids {l r} {
8844 global curview children
8850 }
8852 }
8854 proc find_common_desc {} {
8855 global markedid rowmenuid curview children
8857 if {![info exists markedid]} return
8860 #set t1 [clock clicks -milliseconds]
8863 while 1 {
8869 break
8870 }
8873 } else {
8875 }
8876 }
8877 #set t2 [clock clicks -milliseconds]
8879 }
8881 proc compare_commits {} {
8882 global markedid rowmenuid curview children
8884 if {![info exists markedid]} return
8888 }
8890 proc getpatchid {id} {
8891 global patchids
8895 # trim off the initial "|"
8897 if {[catch {
8900 }]} {
8902 }
8903 }
8905 }
8907 proc do_cmp_commits {a b} {
8908 global ctext curview parents children patchids commitinfo
8911 clear_ctext
8912 init_flist {}
8914 set skipa 0
8915 set skipb 0
8918 set skipa 1
8919 } else {
8921 }
8924 set skipb 1
8925 } else {
8927 }
8933 [mc " - stopping\n"]
8934 break
8935 }
8938 [mc " - stopping\n"]
8939 break
8940 }
8945 } else {
8949 }
8950 set skipa 1
8951 set skipb 1
8952 } else {
8959 update
8961 return
8962 }
8963 }
8970 break
8971 }
8973 }
8979 break
8980 }
8982 }
8983 }
8985 }
8987 proc diffcommits {a b} {
8988 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8990 set tmpdir [gitknewtmpdir]
8993 if {[catch {
8996 } err]} {
8998 return
8999 }
9000 if {[catch {
9002 } err]} {
9004 return
9005 }
9008 set diffinhdr 0
9009 set currdiffsubmod ""
9011 }
9013 proc diffvssel {dirn} {
9014 global rowmenuid selectedline
9020 } else {
9023 }
9026 }
9028 proc diffvsmark {dirn} {
9029 global rowmenuid markedid
9031 if {![info exists markedid]} return
9035 } else {
9038 }
9041 }
9043 proc doseldiff {oldid newid} {
9044 global ctext
9045 global commitinfo
9048 clear_ctext
9049 init_flist [mc "Top"]
9064 }
9066 proc mkpatch {} {
9067 global rowmenuid currentid commitinfo patchtop patchnum NS
9069 if {![info exists currentid]} return
9074 set top .patch
9104 incr patchnum
9116 }
9118 proc mkpatchrev {} {
9119 global patchtop
9125 foreach e [list fromsha1 fromhead tosha1 tohead] \
9131 }
9132 }
9134 proc mkpatchgo {} {
9135 global patchtop nullid nullid2
9141 # trim off the initial "|"
9146 }
9148 unset patchtop
9149 }
9151 proc mkpatchcan {} {
9152 global patchtop
9155 unset patchtop
9156 }
9158 proc mktag {} {
9159 global rowmenuid mktagtop commitinfo NS
9161 set top .maketag
9195 }
9197 proc domktag {} {
9198 global mktagtop env tagids idtags
9205 return 0
9206 }
9209 return 0
9210 }
9211 if {[catch {
9214 } else {
9216 }
9217 } err]} {
9219 return 0
9220 }
9226 dispneartags 0
9227 run refill_reflist
9228 return 1
9229 }
9231 proc redrawtags {id} {
9232 global canv linehtag idpos currentid curview cmitlisted markedid
9233 global canvxmax iddrawn circleitem mainheadid circlecolors
9234 global mainheadcirclecolor
9241 } else {
9243 }
9253 setcanvscroll
9254 }
9257 }
9260 }
9261 }
9263 proc mktagcan {} {
9264 global mktagtop
9267 unset mktagtop
9268 }
9270 proc mktaggo {} {
9271 if {![domktag]} return
9272 mktagcan
9273 }
9275 proc writecommit {} {
9276 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9278 set top .writecommit
9311 }
9313 proc wrcomgo {} {
9314 global wrcomtop
9321 }
9323 unset wrcomtop
9324 }
9326 proc wrcomcan {} {
9327 global wrcomtop
9330 unset wrcomtop
9331 }
9333 proc mkbranch {} {
9334 global rowmenuid mkbrtop NS
9336 set top .makebranch
9360 }
9362 proc mkbrgo {top} {
9363 global headids idheads
9367 set cmdargs {}
9368 set old_id {}
9371 return
9372 }
9374 if {![confirm_popup [mc \
9376 return
9377 }
9379 lappend cmdargs -f
9380 }
9383 nowbusy newbranch
9384 update
9385 if {[catch {
9387 } err]} {
9388 notbusy newbranch
9390 } else {
9391 notbusy newbranch
9397 } else {
9402 }
9403 dispneartags 0
9404 run refill_reflist
9405 }
9406 }
9408 proc exec_citool {tool_args {baseid {}}} {
9409 global commitinfo env
9411 set save_env [array get env GIT_AUTHOR_*]
9416 }
9419 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9425 }
9426 }
9430 array unset env GIT_AUTHOR_*
9432 }
9434 proc cherrypick {} {
9435 global rowmenuid curview
9436 global mainhead mainheadid
9437 global gitdir
9439 set oldhead [exec git rev-parse HEAD]
9442 set ok [confirm_popup [mc "Commit %s is already\
9443 included in branch %s -- really re-apply it?" \
9446 }
9447 nowbusy cherrypick [mc "Cherry-picking"]
9448 update
9449 # Unfortunately git-cherry-pick writes stuff to stderr even when
9450 # no error occurs, and exec takes that as an indication of error...
9452 notbusy cherrypick
9453 if {[regexp -line \
9454 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9456 error_popup [mc "Cherry-pick failed because of local changes\
9457 to file '%s'.\nPlease commit, reset or stash\
9459 } elseif {[regexp -line \
9460 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9462 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9463 conflict.\nDo you wish to run git citool to\
9464 resolve it?"]]} {
9465 # Force citool to read MERGE_MSG
9468 }
9469 } else {
9471 }
9472 run updatecommits
9473 return
9474 }
9475 set newhead [exec git rev-parse HEAD]
9477 notbusy cherrypick
9478 error_popup [mc "No changes committed"]
9479 return
9480 }
9483 # XXX this isn't right if we have a path limit...
9488 }
9493 }
9494 notbusy cherrypick
9495 }
9497 proc revert {} {
9498 global rowmenuid curview
9499 global mainhead mainheadid
9500 global gitdir
9502 set oldhead [exec git rev-parse HEAD]
9505 set ok [confirm_popup [mc "Commit %s is not\
9506 included in branch %s -- really revert it?" \
9509 }
9510 nowbusy revert [mc "Reverting"]
9511 update
9514 notbusy revert
9515 if [regexp {files would be overwritten by merge:(\n(( |\t)+[^\n]+\n)+)}\
9518 error_popup [mc "Revert failed because of local changes to\
9519 the following files:%s Please commit, reset or stash \
9522 if [confirm_popup [mc "Revert failed because of merge conflict.\n\
9523 Do you wish to run git citool to resolve it?"]] {
9524 # Force citool to read MERGE_MSG
9527 }
9529 run updatecommits
9530 return
9531 }
9533 set newhead [exec git rev-parse HEAD]
9535 notbusy revert
9536 error_popup [mc "No changes committed"]
9537 return
9538 }
9543 # XXX this isn't right if we have a path limit...
9548 }
9553 }
9555 notbusy revert
9556 }
9558 proc resethead {} {
9559 global mainhead rowmenuid confirm_ok resettype NS
9561 set confirm_ok 0
9562 set w ".confirmreset"
9570 set resettype mixed
9572 -text [mc "Soft: Leave working tree and index untouched"]
9575 -text [mc "Mixed: Leave working tree untouched, reset index"]
9578 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9589 if {[catch {set fd [open \
9592 } else {
9593 dohidelocalchanges
9595 nowbusy reset [mc "Resetting"]
9597 }
9598 }
9600 proc readresetstat {fd} {
9601 global mainhead mainheadid showlocalchanges rprogcoord
9606 adjustprogress
9607 }
9608 return 1
9609 }
9610 set rprogcoord 0
9611 adjustprogress
9612 notbusy reset
9615 }
9617 set newhead [exec git rev-parse HEAD]
9624 }
9626 doshowlocalchanges
9627 }
9628 return 0
9629 }
9631 # context menu for a head
9632 proc headmenu {x y id head} {
9633 global headmenuid headmenuhead headctxmenu mainhead
9635 stopfinding
9638 set state normal
9640 set state disabled
9641 }
9643 set state disabled
9644 }
9648 }
9650 proc cobranch {} {
9651 global headmenuid headmenuhead headids
9652 global showlocalchanges
9654 # check the tree is clean first??
9655 nowbusy checkout [mc "Checking out"]
9656 update
9657 dohidelocalchanges
9658 if {[catch {
9660 } err]} {
9661 notbusy checkout
9664 dodiffindex
9665 }
9666 } else {
9668 }
9669 }
9671 proc readcheckoutstat {fd newhead newheadid} {
9672 global mainhead mainheadid headids showlocalchanges progresscoords
9673 global viewmainheadid curview
9678 adjustprogress
9679 }
9680 return 1
9681 }
9682 set progresscoords {0 0}
9683 adjustprogress
9684 notbusy checkout
9687 }
9696 dodiffindex
9697 }
9698 }
9700 proc rmbranch {} {
9701 global headmenuid headmenuhead mainhead
9702 global idheads
9706 # this check shouldn't be needed any more...
9708 error_popup [mc "Cannot delete the currently checked-out branch"]
9709 return
9710 }
9713 # the stuff on this branch isn't on any other branch
9714 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9716 }
9717 nowbusy rmbranch
9718 update
9720 notbusy rmbranch
9722 return
9723 }
9727 notbusy rmbranch
9728 dispneartags 0
9729 run refill_reflist
9730 }
9732 # Display a list of tags and heads
9733 proc showrefs {} {
9734 global showrefstop bgcolor fgcolor selectbgcolor NS
9735 global bglist fglist reflistfilter reflist maincursor
9737 set top .showrefs
9741 refill_reflist
9742 return
9743 }
9751 -spacing1 1 -spacing3 1 -state disabled
9762 set reflistfilter "*"
9763 trace add variable reflistfilter write reflistfilter_change
9775 set reflist {}
9776 refill_reflist
9777 }
9779 proc sel_reflist {w x y} {
9780 global showrefstop reflist headids tagids otherrefids
9790 }
9792 }
9794 proc unsel_reflist {} {
9795 global showrefstop
9799 }
9801 proc reflistfilter_change {n1 n2 op} {
9802 global reflistfilter
9804 after cancel refill_reflist
9805 after 200 refill_reflist
9806 }
9808 proc refill_reflist {} {
9809 global reflist reflistfilter showrefstop headids tagids otherrefids
9810 global curview
9813 set refs {}
9814 foreach n [array names headids] {
9818 } else {
9820 }
9821 }
9822 }
9823 foreach n [array names tagids] {
9827 } else {
9829 }
9830 }
9831 }
9832 foreach n [array names otherrefids] {
9836 } else {
9838 }
9839 }
9840 }
9848 set i 0
9849 set j 0
9858 }
9859 } else {
9860 set cmp -1
9861 }
9862 } else {
9863 set cmp 1
9864 }
9866 -1 {
9868 incr i
9869 }
9870 0 {
9871 incr i
9872 incr j
9873 }
9874 1 {
9879 incr j
9880 }
9881 }
9882 }
9884 # delete last newline
9887 }
9889 # Stuff for finding nearby tags
9890 proc getallcommits {} {
9891 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9892 global idheads idtags idotherrefs allparents tagobjid
9893 global gitdir
9895 if {![info exists allcommits]} {
9896 set nextarc 0
9897 set allcommits 0
9898 set seeds {}
9899 set allcwait 0
9900 set cachedarcs 0
9902 if {![catch {
9904 set allcwait 1
9906 }]} return
9907 }
9910 return
9911 }
9912 set cmd [list | git rev-list --parents]
9915 set ids "--all"
9916 } else {
9917 set refs [concat [array names idheads] [array names idtags] \
9918 [array names idotherrefs]]
9919 set ids {}
9920 set tagobjs {}
9921 foreach name [array names tagobjid] {
9923 }
9928 }
9929 }
9933 }
9934 }
9935 }
9939 incr allcommits
9940 nowbusy allcommits
9942 } else {
9943 dispneartags 0
9944 }
9945 }
9947 # Since most commits have 1 parent and 1 child, we group strings of
9948 # such commits into "arcs" joining branch/merge points (BMPs), which
9949 # are commits that either don't have 1 parent or don't have 1 child.
9950 #
9951 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9952 # arcout(id) - outgoing arcs for BMP
9953 # arcids(a) - list of IDs on arc including end but not start
9954 # arcstart(a) - BMP ID at start of arc
9955 # arcend(a) - BMP ID at end of arc
9956 # growing(a) - arc a is still growing
9957 # arctags(a) - IDs out of arcids (excluding end) that have tags
9958 # archeads(a) - IDs out of arcids (excluding end) that have heads
9959 # The start of an arc is at the descendent end, so "incoming" means
9960 # coming from descendents, and "outgoing" means going towards ancestors.
9962 proc getallclines {fd} {
9963 global allparents allchildren idtags idheads nextarc
9964 global arcnos arcids arctags arcout arcend arcstart archeads growing
9965 global seeds allcommits cachedarcs allcupdate
9967 set nid 0
9971 # seen it already
9972 continue
9973 }
9974 set cachedarcs 0
9981 } else {
9987 }
9990 }
9992 # seen parent already
9995 }
9999 }
10002 continue
10003 }
10004 }
10009 }
10011 set ao {}
10014 set a [incr nextarc]
10023 # seen it already, may need to make a new branch
10026 }
10030 }
10032 }
10034 }
10036 global cached_dheads cached_dtags cached_atags
10037 catch {unset cached_dheads}
10038 catch {unset cached_dtags}
10039 catch {unset cached_atags}
10040 }
10043 }
10044 set cacheok 1
10045 if {[catch {
10048 } err]} {
10049 # got an error reading the list of commits
10050 # if we were updating, try rereading the whole thing again
10052 incr allcommits -1
10054 return
10055 }
10056 error_popup "[mc "Error reading commit topology information;\
10057 branch and preceding/following tag information\
10059 set cacheok 0
10060 }
10061 if {[incr allcommits -1] == 0} {
10062 notbusy allcommits
10064 run savecache
10065 }
10066 }
10067 dispneartags 0
10068 return 0
10069 }
10071 proc recalcarc {a} {
10072 global arctags archeads arcids idtags idheads
10074 set at {}
10075 set ah {}
10079 }
10082 }
10083 }
10086 }
10088 proc splitarc {p} {
10089 global arcnos arcids nextarc arctags archeads idtags idheads
10090 global arcstart arcend arcout allparents growing
10095 return
10096 }
10101 return
10102 }
10103 set na [incr nextarc]
10106 } else {
10110 }
10120 }
10125 } else {
10128 }
10129 }
10131 # reconstruct tags and heads lists
10135 } else {
10138 }
10139 }
10141 # Update things for a new commit added that is a child of one
10142 # existing commit. Used when cherry-picking.
10143 proc addnewchild {id p} {
10144 global allparents allchildren idtags nextarc
10145 global arcnos arcids arctags arcout arcend arcstart archeads growing
10146 global seeds allcommits
10154 set a [incr nextarc]
10162 }
10165 }
10167 # This implements a cache for the topology information.
10168 # The cache saves, for each arc, the start and end of the arc,
10169 # the ids on the arc, and the outgoing arcs from the end.
10170 proc readcache {f} {
10171 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
10172 global idtags idheads allparents cachedarcs possible_seeds seeds growing
10173 global allcwait
10179 }
10180 if {[catch {
10182 # finish reading the cache and setting up arctags, etc.
10186 foreach id [array names idtags] {
10192 }
10193 }
10194 }
10195 foreach id [array names idheads] {
10201 }
10202 }
10203 }
10207 }
10208 }
10209 set allcwait 0
10210 } else {
10220 }
10224 } else {
10228 }
10229 }
10235 }
10238 }
10241 }
10243 }
10244 } err]} {
10246 return 0
10247 }
10249 getallcommits
10250 }
10252 }
10254 proc getcache {f} {
10255 global nextarc cachedarcs possible_seeds
10257 if {[catch {
10260 # make sure it's an integer
10263 set nextarc 0
10264 set possible_seeds {}
10266 } err]} {
10268 }
10269 return 0
10270 }
10272 proc dropcache {err} {
10273 global allcwait nextarc cachedarcs seeds
10276 foreach v {arcnos arcout arcids arcstart arcend growing \
10277 arctags archeads allparents allchildren} {
10280 }
10281 set allcwait 0
10282 set nextarc 0
10283 set cachedarcs 0
10284 set seeds {}
10285 getallcommits
10286 }
10288 proc writecache {f} {
10289 global cachearc cachedarcs allccache
10290 global arcstart arcend arcnos arcids arcout
10296 }
10297 if {[catch {
10301 } else {
10303 }
10304 }
10305 } err]} {
10309 return 0
10310 }
10315 return 0
10316 }
10317 return 1
10318 }
10320 proc savecache {} {
10321 global nextarc cachedarcs cachearc allccache
10324 set cachearc 0
10326 catch {
10330 }
10331 }
10333 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10334 # or 0 if neither is true.
10335 proc anc_or_desc {a b} {
10336 global arcout arcstart arcend arcnos cached_isanc
10339 # Both are on the same arc(s); either both are the same BMP,
10340 # or if one is not a BMP, the other is also not a BMP or is
10341 # the BMP at end of the arc (and it only has 1 incoming arc).
10342 # Or both can be BMPs with no incoming arcs.
10344 return 0
10345 }
10351 return 1
10352 } else {
10353 return -1
10354 }
10355 }
10361 } else {
10362 set aend {}
10363 }
10365 } else {
10367 }
10372 } else {
10373 set bend {}
10374 }
10376 } else {
10378 }
10380 return 1
10381 }
10383 return -1
10384 }
10387 return 1
10388 }
10389 }
10392 return -1
10393 }
10395 return 0
10396 }
10397 }
10405 continue
10406 }
10412 return 1
10416 return -1
10417 }
10423 }
10424 }
10425 }
10428 return 0
10429 }
10433 # and returns 0 if so and 1 if not.
10434 # If we subsequently discover a tag on such a growing tip, and that
10437 # isn't a good choice to display as a descendent tag of
10441 #
10442 proc is_certain {desc anc} {
10443 global arcnos arcout arcstart arcend growing problems
10445 set certain {}
10447 # tags on the same arc are certain
10449 return 1
10450 }
10455 }
10456 }
10459 } else {
10462 }
10464 return 1
10465 }
10468 set nnh 1
10469 set ngrowanc 0
10473 incr nnh -1
10474 }
10480 incr ngrowanc
10481 }
10482 } else {
10489 incr nnh -1
10490 }
10492 incr ngrowanc -1
10493 }
10503 incr nnh -1
10504 }
10506 incr ngrowanc -1
10507 }
10509 }
10510 }
10511 }
10512 }
10513 }
10514 }
10518 } else {
10521 incr nnh
10522 }
10523 }
10524 }
10525 }
10526 foreach x [array names growanc] {
10528 return 0
10529 }
10530 return 0
10531 }
10532 return 1
10533 }
10535 proc validate_arctags {a} {
10536 global arctags idtags
10538 set i -1
10541 incr i
10544 incr i -1
10545 }
10546 }
10548 }
10550 proc validate_archeads {a} {
10551 global archeads idheads
10553 set i -1
10556 incr i
10559 incr i -1
10560 }
10561 }
10563 }
10565 # Return the list of IDs that have tags that are descendents of id,
10566 # ignoring IDs that are descendents of IDs already reported.
10567 proc desctags {id} {
10568 global arcnos arcstart arcids arctags idtags allparents
10569 global growing cached_dtags
10572 return {}
10573 }
10574 set t1 [clock clicks -milliseconds]
10577 # part-way along an arc; check that arc first
10582 set tid {}
10587 }
10590 }
10591 }
10595 }
10596 }
10599 }
10604 set nc 1
10610 incr nc -1
10611 }
10612 # ignore tags on starting node
10616 set ta 1
10619 set ta 1
10620 }
10621 }
10628 }
10629 }
10638 }
10641 }
10643 incr nc -1
10644 }
10646 }
10647 }
10648 }
10653 incr nc
10654 }
10655 }
10656 }
10657 }
10658 set tags {}
10659 foreach id [array names tagloc] {
10664 }
10665 }
10666 }
10667 }
10668 set t2 [clock clicks -milliseconds]
10671 # remove tags that are descendents of other tags
10679 incr j -1
10680 incr i -1
10683 incr i -1
10684 break
10685 }
10686 }
10687 }
10689 if {[array names growing] ne {}} {
10690 # graph isn't finished, need to check if any tag could get
10691 # eclipsed by another tag coming later. Simply ignore any
10692 # tags that could later get eclipsed.
10693 set ctags {}
10697 }
10698 }
10701 } else {
10703 }
10704 } else {
10706 }
10707 set t3 [clock clicks -milliseconds]
10711 }
10713 }
10715 proc anctags {id} {
10716 global arcnos arcids arcout arcend arctags idtags allparents
10717 global growing cached_atags
10720 return {}
10721 }
10722 set t1 [clock clicks -milliseconds]
10725 # part-way along an arc; check that arc first
10734 }
10735 }
10736 }
10738 return {}
10739 }
10743 }
10744 }
10747 }
10752 set taglist {}
10753 set nc 1
10759 incr nc -1
10760 }
10761 # ignore tags on starting node
10765 set td 1
10768 set td 1
10769 }
10770 }
10776 }
10777 }
10789 }
10790 }
10793 }
10795 incr nc -1
10796 }
10798 }
10799 }
10800 }
10805 incr nc
10806 }
10807 }
10808 }
10809 }
10810 set t2 [clock clicks -milliseconds]
10812 set tags {}
10813 foreach id [array names tagloc] {
10818 }
10819 }
10820 }
10821 }
10823 # remove tags that are ancestors of other tags
10831 incr j -1
10832 incr i -1
10835 incr i -1
10836 break
10837 }
10838 }
10839 }
10841 if {[array names growing] ne {}} {
10842 # graph isn't finished, need to check if any tag could get
10843 # eclipsed by another tag coming later. Simply ignore any
10844 # tags that could later get eclipsed.
10845 set ctags {}
10849 }
10850 }
10853 } else {
10855 }
10856 } else {
10858 }
10859 set t3 [clock clicks -milliseconds]
10863 }
10865 }
10867 # Return the list of IDs that have heads that are descendents of id,
10868 # including id itself if it has a head.
10869 proc descheads {id} {
10870 global arcnos arcstart arcids archeads idheads cached_dheads
10871 global allparents arcout
10874 return {}
10875 }
10876 set aret {}
10878 # part-way along an arc; check it first
10887 }
10888 }
10890 }
10894 set ret {}
10899 } else {
10902 }
10908 }
10909 }
10914 }
10915 }
10916 }
10917 }
10921 }
10923 proc addedtag {id} {
10924 global arcnos arcout cached_dtags cached_atags
10929 }
10930 catch {unset cached_dtags}
10931 catch {unset cached_atags}
10932 }
10934 proc addedhead {hid head} {
10935 global arcnos arcout cached_dheads
10940 }
10941 catch {unset cached_dheads}
10942 }
10944 proc removedhead {hid head} {
10945 global cached_dheads
10947 catch {unset cached_dheads}
10948 }
10950 proc movedhead {hid head} {
10951 global arcnos arcout cached_dheads
10956 }
10957 catch {unset cached_dheads}
10958 }
10960 proc changedrefs {} {
10961 global cached_dheads cached_dtags cached_atags cached_tagcontent
10962 global arctags archeads arcnos arcout idheads idtags
10964 foreach id [concat [array names idheads] [array names idtags]] {
10970 }
10971 }
10972 }
10973 catch {unset cached_tagcontent}
10974 catch {unset cached_dtags}
10975 catch {unset cached_atags}
10976 catch {unset cached_dheads}
10977 }
10979 proc rereadrefs {} {
10980 global idtags idheads idotherrefs mainheadid
10982 set refids [concat [array names idtags] \
10983 [array names idheads] [array names idotherrefs]]
10987 }
10988 }
10990 readrefs
10991 changedrefs
10993 [array names idheads] [array names idotherrefs]]]
10998 }
10999 }
11003 }
11004 run refill_reflist
11005 }
11007 proc listrefs {id} {
11008 global idtags idheads idotherrefs
11010 set x {}
11013 }
11014 set y {}
11017 }
11018 set z {}
11021 }
11023 }
11025 proc add_tag_ctext {tag} {
11026 global ctext cached_tagcontent tagids
11029 catch {
11031 }
11032 }
11036 } else {
11038 }
11040 }
11042 proc showtag {tag isnew} {
11043 global ctext cached_tagcontent tagids linknum tagobjid
11047 }
11049 clear_ctext
11050 settabs 0
11051 set linknum 0
11053 maybe_scroll_ctext 1
11055 init_flist {}
11056 }
11058 proc showtags {id isnew} {
11059 global idtags ctext linknum
11063 }
11065 clear_ctext
11066 settabs 0
11067 set linknum 0
11068 set sep {}
11072 set sep "\n\n"
11073 }
11074 maybe_scroll_ctext 1
11076 init_flist {}
11077 }
11079 proc doquit {} {
11080 global stopped
11081 global gitktmpdir
11083 set stopped 100
11084 savestuff .
11085 destroy .
11087 if {[info exists gitktmpdir]} {
11089 }
11090 }
11092 proc mkfontdisp {font top which} {
11101 }
11103 proc choosefont {font which} {
11104 global fontparam fontlist fonttop fontattr
11105 global prefstop NS
11113 set top .gitkfont
11116 font create sample
11123 set fontlist [lsort [font families]]
11134 -textvariable fontparam(size) \
11135 -validatecommand {string is integer -strict %s}
11137 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
11138 -variable fontparam(weight) -onvalue bold -offvalue normal
11140 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
11141 -variable fontparam(slant) -onvalue italic -offvalue roman
11145 -background white
11147 -fill black -tags text
11159 trace add variable fontparam write chg_fontparam
11160 } else {
11163 }
11168 }
11169 }
11171 proc centertext {w} {
11173 }
11175 proc fontok {} {
11176 global fontparam fontpref prefstop
11182 }
11185 }
11189 fontcan
11190 }
11192 proc fontcan {} {
11193 global fonttop fontparam
11195 if {[info exists fonttop]} {
11197 catch {font delete sample}
11198 unset fonttop
11199 unset fontparam
11200 }
11201 }
11203 if {[package vsatisfies [package provide Tk] 8.6]} {
11204 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
11205 # function to make use of it.
11206 proc choosefont {font which} {
11209 tk fontchooser show
11210 }
11211 proc on_choosefont {font which newfont} {
11212 global fontparam
11221 fontok
11222 }
11223 }
11225 proc selfontfam {} {
11226 global fonttop fontparam
11231 }
11232 }
11234 proc chg_fontparam {v sub op} {
11235 global fontparam
11238 }
11240 # Create a property sheet tab page
11241 proc create_prefs_page {w} {
11242 global NS
11246 } else {
11248 }
11249 }
11251 proc prefspage_general {notebook} {
11252 global NS maxwidth maxgraphpct showneartags showlocalchanges
11253 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11254 global hideremotes want_ttk have_ttk maxrefs
11268 -variable showlocalchanges
11271 -variable autoselect
11275 -variable hideremotes
11284 -variable showneartags
11290 -variable limitdiffs
11293 -variable perfile_attrs
11307 -text [mc "Use themed widgets"]
11310 } else {
11312 }
11315 }
11317 proc prefspage_colors {notebook} {
11318 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11349 [mc "diff hunk header"] \
11355 [mc "marked line background"] \
11363 }
11365 proc prefspage_fonts {notebook} {
11366 global NS
11374 }
11376 proc doprefs {} {
11377 global maxwidth maxgraphpct use_ttk NS
11378 global oldprefs prefstop showneartags showlocalchanges
11379 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11380 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11381 global hideremotes want_ttk have_ttk
11383 set top .gitkprefs
11387 return
11388 }
11389 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11390 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11392 }
11399 } else {
11401 }
11406 set col 0
11410 } else {
11416 }
11417 }
11423 }
11440 }
11442 proc choose_extdiff {} {
11443 global extdifftool
11445 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11448 }
11449 }
11451 proc choosecolor {v vi w x cmd} {
11460 }
11462 proc setselbg {c} {
11463 global bglist cflist
11466 }
11470 }
11472 # This sets the background color and the color scheme for the whole UI.
11473 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11474 # if we don't specify one ourselves, which makes the checkbuttons and
11475 # radiobuttons look bad. This chooses white for selectColor if the
11476 # background color is light, or black if it is dark.
11477 proc setui {c} {
11478 if {[tk windowingsystem] eq "win32"} { return }
11480 set selc black
11482 set selc white
11483 }
11485 }
11487 proc setbg {c} {
11488 global bglist
11492 }
11493 }
11495 proc setfg {c} {
11496 global fglist canv
11500 }
11504 }
11506 proc prefscan {} {
11507 global oldprefs prefstop
11509 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11510 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11513 }
11515 unset prefstop
11516 fontcan
11517 }
11519 proc prefsok {} {
11520 global maxwidth maxgraphpct
11521 global oldprefs prefstop showneartags showlocalchanges
11522 global fontpref mainfont textfont uifont
11523 global limitdiffs treediffs perfile_attrs
11524 global hideremotes
11527 unset prefstop
11528 fontcan
11529 set fontchanged 0
11533 eval font configure mainfont [fontflags mainfont]
11534 eval font configure mainfontbold [fontflags mainfont 1]
11535 setcoords
11536 set fontchanged 1
11537 }
11541 eval font configure textfont [fontflags textfont]
11542 eval font configure textfontbold [fontflags textfont 1]
11543 }
11547 eval font configure uifont [fontflags uifont]
11548 }
11549 settabs
11552 doshowlocalchanges
11553 } else {
11554 dohidelocalchanges
11555 }
11556 }
11559 # treediffs elements are limited by path;
11560 # won't have encodings cached if perfile_attrs was just turned on
11561 catch {unset treediffs}
11562 }
11565 redisplay
11568 reselectline
11569 }
11571 rereadrefs
11572 }
11573 }
11575 proc formatdate {d} {
11576 global datetimeformat
11579 }
11581 }
11583 # This list of encoding names and aliases is distilled from
11584 # http://www.iana.org/assignments/character-sets.
11585 # Not all of them are supported by Tcl.
11586 set encoding_aliases {
11587 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11588 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11589 { ISO-10646-UTF-1 csISO10646UTF1 }
11590 { ISO_646.basic:1983 ref csISO646basic1983 }
11591 { INVARIANT csINVARIANT }
11592 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11593 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11594 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11595 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11596 { NATS-DANO iso-ir-9-1 csNATSDANO }
11597 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11598 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11599 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11600 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11601 { ISO-2022-KR csISO2022KR }
11602 { EUC-KR csEUCKR }
11603 { ISO-2022-JP csISO2022JP }
11604 { ISO-2022-JP-2 csISO2022JP2 }
11605 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11606 csISO13JISC6220jp }
11607 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11608 { IT iso-ir-15 ISO646-IT csISO15Italian }
11609 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11610 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11611 { greek7-old iso-ir-18 csISO18Greek7Old }
11612 { latin-greek iso-ir-19 csISO19LatinGreek }
11613 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11614 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11615 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11616 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11617 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11618 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11619 { INIS iso-ir-49 csISO49INIS }
11620 { INIS-8 iso-ir-50 csISO50INIS8 }
11621 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11622 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11623 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11624 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11625 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11626 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11627 csISO60Norwegian1 }
11628 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11629 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11630 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11631 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11632 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11633 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11634 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11635 { greek7 iso-ir-88 csISO88Greek7 }
11636 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11637 { iso-ir-90 csISO90 }
11638 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11639 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11640 csISO92JISC62991984b }
11641 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11642 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11643 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11644 csISO95JIS62291984handadd }
11645 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11646 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11647 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11648 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11649 CP819 csISOLatin1 }
11650 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11651 { T.61-7bit iso-ir-102 csISO102T617bit }
11652 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11653 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11654 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11655 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11656 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11657 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11658 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11659 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11660 arabic csISOLatinArabic }
11661 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11662 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11663 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11664 greek greek8 csISOLatinGreek }
11665 { T.101-G2 iso-ir-128 csISO128T101G2 }
11666 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11667 csISOLatinHebrew }
11668 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11669 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11670 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11671 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11672 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11673 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11674 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11675 csISOLatinCyrillic }
11676 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11677 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11678 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11679 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11680 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11681 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11682 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11683 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11684 { ISO_10367-box iso-ir-155 csISO10367Box }
11685 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11686 { latin-lap lap iso-ir-158 csISO158Lap }
11687 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11688 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11689 { us-dk csUSDK }
11690 { dk-us csDKUS }
11691 { JIS_X0201 X0201 csHalfWidthKatakana }
11692 { KSC5636 ISO646-KR csKSC5636 }
11693 { ISO-10646-UCS-2 csUnicode }
11694 { ISO-10646-UCS-4 csUCS4 }
11695 { DEC-MCS dec csDECMCS }
11696 { hp-roman8 roman8 r8 csHPRoman8 }
11697 { macintosh mac csMacintosh }
11698 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11699 csIBM037 }
11700 { IBM038 EBCDIC-INT cp038 csIBM038 }
11701 { IBM273 CP273 csIBM273 }
11702 { IBM274 EBCDIC-BE CP274 csIBM274 }
11703 { IBM275 EBCDIC-BR cp275 csIBM275 }
11704 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11705 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11706 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11707 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11708 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11709 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11710 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11711 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11712 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11713 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11714 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11715 { IBM437 cp437 437 csPC8CodePage437 }
11716 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11717 { IBM775 cp775 csPC775Baltic }
11718 { IBM850 cp850 850 csPC850Multilingual }
11719 { IBM851 cp851 851 csIBM851 }
11720 { IBM852 cp852 852 csPCp852 }
11721 { IBM855 cp855 855 csIBM855 }
11722 { IBM857 cp857 857 csIBM857 }
11723 { IBM860 cp860 860 csIBM860 }
11724 { IBM861 cp861 861 cp-is csIBM861 }
11725 { IBM862 cp862 862 csPC862LatinHebrew }
11726 { IBM863 cp863 863 csIBM863 }
11727 { IBM864 cp864 csIBM864 }
11728 { IBM865 cp865 865 csIBM865 }
11729 { IBM866 cp866 866 csIBM866 }
11730 { IBM868 CP868 cp-ar csIBM868 }
11731 { IBM869 cp869 869 cp-gr csIBM869 }
11732 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11733 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11734 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11735 { IBM891 cp891 csIBM891 }
11736 { IBM903 cp903 csIBM903 }
11737 { IBM904 cp904 904 csIBBM904 }
11738 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11739 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11740 { IBM1026 CP1026 csIBM1026 }
11741 { EBCDIC-AT-DE csIBMEBCDICATDE }
11742 { EBCDIC-AT-DE-A csEBCDICATDEA }
11743 { EBCDIC-CA-FR csEBCDICCAFR }
11744 { EBCDIC-DK-NO csEBCDICDKNO }
11745 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11746 { EBCDIC-FI-SE csEBCDICFISE }
11747 { EBCDIC-FI-SE-A csEBCDICFISEA }
11748 { EBCDIC-FR csEBCDICFR }
11749 { EBCDIC-IT csEBCDICIT }
11750 { EBCDIC-PT csEBCDICPT }
11751 { EBCDIC-ES csEBCDICES }
11752 { EBCDIC-ES-A csEBCDICESA }
11753 { EBCDIC-ES-S csEBCDICESS }
11754 { EBCDIC-UK csEBCDICUK }
11755 { EBCDIC-US csEBCDICUS }
11756 { UNKNOWN-8BIT csUnknown8BiT }
11757 { MNEMONIC csMnemonic }
11758 { MNEM csMnem }
11759 { VISCII csVISCII }
11760 { VIQR csVIQR }
11761 { KOI8-R csKOI8R }
11762 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11763 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11764 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11765 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11766 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11767 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11768 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11769 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11770 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11771 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11772 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11773 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11774 { IBM1047 IBM-1047 }
11775 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11776 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11777 { UNICODE-1-1 csUnicode11 }
11778 { CESU-8 csCESU-8 }
11779 { BOCU-1 csBOCU-1 }
11780 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11781 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11782 l8 }
11783 { ISO-8859-15 ISO_8859-15 Latin-9 }
11784 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11785 { GBK CP936 MS936 windows-936 }
11786 { JIS_Encoding csJISEncoding }
11787 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11788 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11789 EUC-JP }
11790 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11791 { ISO-10646-UCS-Basic csUnicodeASCII }
11792 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11793 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11794 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11795 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11796 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11797 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11798 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11799 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11800 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11801 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11802 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11803 { Ventura-US csVenturaUS }
11804 { Ventura-International csVenturaInternational }
11805 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11806 { PC8-Turkish csPC8Turkish }
11807 { IBM-Symbols csIBMSymbols }
11808 { IBM-Thai csIBMThai }
11809 { HP-Legal csHPLegal }
11810 { HP-Pi-font csHPPiFont }
11811 { HP-Math8 csHPMath8 }
11812 { Adobe-Symbol-Encoding csHPPSMath }
11813 { HP-DeskTop csHPDesktop }
11814 { Ventura-Math csVenturaMath }
11815 { Microsoft-Publishing csMicrosoftPublishing }
11816 { Windows-31J csWindows31J }
11817 { GB2312 csGB2312 }
11818 { Big5 csBig5 }
11819 }
11821 proc tcl_encoding {enc} {
11822 global encoding_aliases tcl_encoding_cache
11825 }
11826 set names [encoding names]
11831 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11834 }
11835 }
11840 # look through the aliases for one that tcl knows about
11846 }
11847 }
11849 }
11850 break
11851 }
11852 }
11853 set tclenc {}
11856 }
11859 }
11861 proc gitattr {path attr default} {
11862 global path_attr_cache
11865 } else {
11866 set r "unspecified"
11869 }
11871 }
11874 }
11876 }
11878 proc cache_gitattr {attr pathlist} {
11879 global path_attr_cache
11880 set newlist {}
11884 }
11885 }
11886 set lim 1000
11887 if {[tk windowingsystem] == "win32"} {
11888 # windows has a 32k limit on the arguments to a command...
11889 set lim 30
11890 }
11899 }
11901 }
11902 }
11903 }
11904 }
11905 }
11907 proc get_path_encoding {path} {
11908 global gui_encoding perfile_attrs
11914 }
11915 }
11917 }
11919 # First check that Tcl/Tk is recent enough
11920 if {[catch {package require Tk 8.4} err]} {
11921 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11922 Gitk requires at least Tcl/Tk 8.4." list
11923 exit 1
11924 }
11926 # on OSX bring the current Wish process window to front
11927 if {[tk windowingsystem] eq "aqua"} {
11928 exec osascript -e [format {
11929 tell application "System Events"
11930 set frontmost of processes whose unix id is %d to true
11931 end tell
11932 } [pid] ]
11933 }
11935 # Unset GIT_TRACE var if set
11936 if { [info exists ::env(GIT_TRACE)] } {
11937 unset ::env(GIT_TRACE)
11938 }
11940 # defaults...
11941 set wrcomcmd "git diff-tree --stdin -p --pretty"
11943 set gitencoding {}
11944 catch {
11945 set gitencoding [exec git config --get i18n.commitencoding]
11946 }
11947 catch {
11948 set gitencoding [exec git config --get i18n.logoutputencoding]
11949 }
11951 set gitencoding "utf-8"
11952 }
11956 }
11958 set gui_encoding [encoding system]
11959 catch {
11960 set enc [exec git config --get gui.encoding]
11965 } else {
11967 }
11968 }
11969 }
11971 set log_showroot true
11972 catch {
11973 set log_showroot [exec git config --bool --get log.showroot]
11974 }
11976 if {[tk windowingsystem] eq "aqua"} {
11977 set mainfont {{Lucida Grande} 9}
11978 set textfont {Monaco 9}
11979 set uifont {{Lucida Grande} 9 bold}
11981 # fontconfig!
11982 set mainfont {sans 9}
11983 set textfont {monospace 9}
11984 set uifont {sans 9 bold}
11985 } else {
11986 set mainfont {Helvetica 9}
11987 set textfont {Courier 9}
11988 set uifont {Helvetica 9 bold}
11989 }
11990 set tabstop 8
11991 set findmergefiles 0
11992 set maxgraphpct 50
11993 set maxwidth 16
11994 set revlistorder 0
11995 set fastdate 0
11996 set uparrowlen 5
11997 set downarrowlen 5
11998 set mingaplen 100
11999 set cmitmode "patch"
12000 set wrapcomment "none"
12001 set showneartags 1
12002 set hideremotes 0
12003 set maxrefs 20
12004 set maxlinelen 200
12005 set showlocalchanges 1
12006 set limitdiffs 1
12007 set datetimeformat "%Y-%m-%d %H:%M:%S"
12008 set autoselect 1
12009 set autosellen 40
12010 set perfile_attrs 0
12011 set want_ttk 1
12013 if {[tk windowingsystem] eq "aqua"} {
12014 set extdifftool "opendiff"
12015 } else {
12016 set extdifftool "meld"
12017 }
12019 set colors {green red blue magenta darkgrey brown orange}
12020 if {[tk windowingsystem] eq "win32"} {
12021 set uicolor SystemButtonFace
12022 set uifgcolor SystemButtonText
12023 set uifgdisabledcolor SystemDisabledText
12024 set bgcolor SystemWindow
12025 set fgcolor SystemWindowText
12026 set selectbgcolor SystemHighlight
12027 } else {
12028 set uicolor grey85
12029 set uifgcolor black
12030 set uifgdisabledcolor "#999"
12031 set bgcolor white
12032 set fgcolor black
12033 set selectbgcolor gray85
12034 }
12035 set diffcolors {red "#00a000" blue}
12036 set diffcontext 3
12037 set mergecolors {red blue green purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
12038 set ignorespace 0
12039 set worddiff ""
12040 set markbgcolor "#e0e0ff"
12042 set headbgcolor green
12043 set headfgcolor black
12044 set headoutlinecolor black
12045 set remotebgcolor #ffddaa
12046 set tagbgcolor yellow
12047 set tagfgcolor black
12048 set tagoutlinecolor black
12049 set reflinecolor black
12050 set filesepbgcolor #aaaaaa
12051 set filesepfgcolor black
12052 set linehoverbgcolor #ffff80
12053 set linehoverfgcolor black
12054 set linehoveroutlinecolor black
12055 set mainheadcirclecolor yellow
12056 set workingfilescirclecolor red
12057 set indexcirclecolor green
12058 set circlecolors {white blue gray blue blue}
12059 set linkfgcolor blue
12061 set foundbgcolor yellow
12062 set currentsearchhitbgcolor orange
12064 # button for popping up context menus
12065 if {[tk windowingsystem] eq "aqua"} {
12066 set ctxbut <Button-2>
12067 } else {
12068 set ctxbut <Button-3>
12069 }
12071 ## For msgcat loading, first locate the installation location.
12072 if { [info exists ::env(GITK_MSGSDIR)] } {
12073 ## Msgsdir was manually set in the environment.
12074 set gitk_msgsdir $::env(GITK_MSGSDIR)
12075 } else {
12076 ## Let's guess the prefix from argv0.
12080 unset gitk_prefix
12081 }
12083 ## Internationalization (i18n) through msgcat and gettext. See
12084 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
12085 package require msgcat
12086 namespace import ::msgcat::mc
12087 ## And eventually load the actual message catalog
12090 catch {
12091 # follow the XDG base directory specification by default. See
12092 # http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html
12094 # XDG_CONFIG_HOME environment variable is set
12097 } else {
12098 # default XDG_CONFIG_HOME
12099 set config_file "~/.config/git/gitk"
12100 set config_file_tmp "~/.config/git/gitk-tmp"
12101 }
12103 # for backward compatibility use the old config file if it exists
12104 if {[file exists "~/.gitk"]} {
12105 set config_file "~/.gitk"
12106 set config_file_tmp "~/.gitk-tmp"
12109 }
12110 }
12112 }
12115 eval font create mainfont [fontflags mainfont]
12116 eval font create mainfontbold [fontflags mainfont 1]
12119 eval font create textfont [fontflags textfont]
12120 eval font create textfontbold [fontflags textfont 1]
12123 eval font create uifont [fontflags uifont]
12127 setoptions
12129 # check that we can find a .git directory somewhere...
12130 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
12131 show_error {} . [mc "Cannot find a git repository here."]
12132 exit 1
12133 }
12135 set selecthead {}
12136 set selectheadid {}
12138 set revtreeargs {}
12139 set cmdline_files {}
12140 set i 0
12141 set revtreeargscmd {}
12144 "" { }
12145 "--" {
12147 break
12148 }
12149 "--select-commit=*" {
12151 }
12152 "--argscmd=*" {
12154 }
12155 default {
12157 }
12158 }
12159 incr i
12160 }
12163 set selecthead {}
12164 }
12167 # no -- on command line, but some arguments (other than --argscmd)
12168 if {[catch {
12173 # Unfortunately git rev-parse doesn't produce an error when
12174 # something is both a revision and a filename. To be consistent
12175 # with git log and git rev-list, check revtreeargs for filenames.
12178 show_error {} . [mc "Ambiguous argument '%s': both revision\
12180 exit 1
12181 }
12182 }
12183 } err]} {
12185 # so look for "fatal:".
12189 }
12191 exit 1
12192 }
12193 }
12195 set nullid "0000000000000000000000000000000000000000"
12196 set nullid2 "0000000000000000000000000000000000000001"
12197 set nullfile "/dev/null"
12200 if {![info exists have_ttk]} {
12201 set have_ttk [llength [info commands ::ttk::style]]
12202 }
12206 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
12208 set show_notes {}
12210 set show_notes "--show-notes"
12211 }
12213 set appname "gitk"
12215 set runq {}
12216 set history {}
12217 set historyindex 0
12218 set fh_serial 0
12219 set nhl_names {}
12220 set highlight_paths {}
12221 set findpattern {}
12222 set searchdirn -forwards
12223 set boldids {}
12224 set boldnameids {}
12225 set diffelide {0 0}
12226 set markingmatches 0
12227 set linkentercount 0
12228 set need_redisplay 0
12229 set nrows_drawn 0
12230 set firsttabstop 0
12232 set nextviewnum 1
12233 set curview 0
12234 set selectedview 0
12235 set selectedhlview [mc "None"]
12236 set highlight_related [mc "None"]
12237 set highlight_files {}
12238 set viewfiles(0) {}
12239 set viewperm(0) 0
12240 set viewargs(0) {}
12241 set viewargscmd(0) {}
12243 set selectedline {}
12244 set numcommits 0
12245 set loginstance 0
12246 set cmdlineok 0
12247 set stopped 0
12248 set stuffsaved 0
12249 set patchnum 0
12250 set lserial 0
12251 set hasworktree [hasworktree]
12252 set cdup {}
12253 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
12254 set cdup [exec git rev-parse --show-cdup]
12255 }
12256 set worktree [exec git rev-parse --show-toplevel]
12257 setcoords
12258 makewindow
12259 catch {
12260 image create photo gitlogo -width 16 -height 16
12262 image create photo gitlogominus -width 4 -height 2
12263 gitlogominus put #C00000 -to 0 0 4 2
12264 gitlogo copy gitlogominus -to 1 5
12265 gitlogo copy gitlogominus -to 6 5
12266 gitlogo copy gitlogominus -to 11 5
12267 image delete gitlogominus
12269 image create photo gitlogoplus -width 4 -height 4
12270 gitlogoplus put #008000 -to 1 0 3 4
12271 gitlogoplus put #008000 -to 0 1 4 3
12272 gitlogo copy gitlogoplus -to 1 9
12273 gitlogo copy gitlogoplus -to 6 9
12274 gitlogo copy gitlogoplus -to 11 9
12275 image delete gitlogoplus
12277 image create photo gitlogo32 -width 32 -height 32
12278 gitlogo32 copy gitlogo -zoom 2 2
12280 wm iconphoto . -default gitlogo gitlogo32
12281 }
12282 # wait for the window to become visible
12283 tkwait visibility .
12285 update
12286 readrefs
12289 # create a view for the files/dirs specified on the command line
12290 set curview 1
12291 set selectedview 1
12292 set nextviewnum 2
12293 set viewname(1) [mc "Command line"]
12297 set viewperm(1) 0
12298 set vdatemode(1) 0
12299 addviewmenu 1
12300 .bar.view entryconf [mca "Edit view..."] -state normal
12301 .bar.view entryconf [mca "Delete view"] -state normal
12302 }
12304 if {[info exists permviews]} {
12307 incr nextviewnum
12314 }
12315 }
12317 if {[tk windowingsystem] eq "win32"} {
12318 focus -force .
12319 }
12321 getcommits {}
12323 # Local variables:
12324 # mode: tcl
12325 # indent-tabs-mode: t
12326 # tab-width: 8
12327 # End: