| blob | e3925716d231c619209f11c8a698d6fd0511915a |
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 }
8113 } else {
8114 set line [string map {\x1A ^Z} \
8116 # parse the prefix - one ' ', '-' or '+' for each parent
8120 set words_pre_markup ""
8121 set words_post_markup ""
8123 # prefix only has " ", "-" and "+" in it: normal diff line
8127 }
8131 set num "max"
8132 }
8135 } else {
8137 }
8140 }
8141 } else {
8142 set tags {}
8144 # added line
8150 set num "max"
8151 }
8153 }
8154 }
8155 set words_pre_markup "{+"
8156 set words_post_markup "+}"
8157 }
8161 set targetline {}
8162 } else {
8163 incr diffline
8164 }
8165 }
8168 } else {
8170 }
8173 }
8174 }
8177 } else {
8178 # "\ No newline at end of file",
8179 # or something else we don't recognize
8181 }
8182 }
8183 }
8185 proc changediffdisp {} {
8186 global ctext diffelide
8190 }
8192 proc highlightfile {cline} {
8193 global cflist cflist_top
8195 if {![info exists cflist_top]} return
8201 }
8203 proc highlightfile_for_scrollpos {topidx} {
8204 global cmitmode difffilestart
8207 if {![info exists difffilestart]} return
8211 highlightfile 0
8212 } else {
8214 }
8215 }
8217 proc prevfile {} {
8218 global difffilestart ctext cmitmode
8221 set prev 0.0
8226 return
8227 }
8229 }
8231 }
8233 proc nextfile {} {
8234 global difffilestart ctext cmitmode
8241 return
8242 }
8243 }
8244 }
8246 proc clear_ctext {{first 1.0}} {
8247 global ctext smarktop smarkbot
8248 global ctext_file_names ctext_file_lines
8249 global pendinglinks
8254 }
8257 }
8260 catch {unset pendinglinks}
8261 }
8262 set ctext_file_names {}
8263 set ctext_file_lines {}
8264 }
8266 proc settabs {{firstab {}}} {
8267 global firsttabstop tabstop ctext have_tk85
8271 }
8272 set w [font measure textfont "0"]
8278 } else {
8280 }
8281 }
8283 proc incrsearch {name ix op} {
8284 global ctext searchstring searchdirn
8287 # no anchor set, use start of selection, or of visible area
8293 } else {
8295 }
8296 }
8304 suppress_highlighting_file_for_current_scrollpos
8306 }
8307 }
8308 rehighlight_search_results
8309 }
8311 proc dosearch {} {
8312 global sstring ctext searchstring searchdirn
8316 set searchdirn -forwards
8322 set start "@0,0"
8323 }
8327 bell
8328 return
8329 }
8331 suppress_highlighting_file_for_current_scrollpos
8336 rehighlight_search_results
8337 }
8338 }
8340 proc dosearchback {} {
8341 global sstring ctext searchstring searchdirn
8345 set searchdirn -backwards
8352 }
8356 bell
8357 return
8358 }
8360 suppress_highlighting_file_for_current_scrollpos
8365 rehighlight_search_results
8366 }
8367 }
8369 proc rehighlight_search_results {} {
8370 global ctext searchstring
8376 searchmarkvisible 1
8377 }
8378 }
8380 proc searchmark {first last} {
8381 global ctext searchstring
8386 while {1} {
8392 } else {
8394 }
8395 }
8396 }
8398 proc searchmarkvisible {doall} {
8399 global ctext smarktop smarkbot
8404 # no overlap with previous
8408 } else {
8412 }
8416 }
8417 }
8418 }
8420 proc suppress_highlighting_file_for_current_scrollpos {} {
8421 global ctext suppress_highlighting_file_for_this_scrollpos
8424 }
8426 proc scrolltext {f0 f1} {
8427 global searchstring cmitmode ctext
8428 global suppress_highlighting_file_for_this_scrollpos
8431 if {![info exists suppress_highlighting_file_for_this_scrollpos]
8434 }
8436 catch {unset suppress_highlighting_file_for_this_scrollpos}
8440 searchmarkvisible 0
8441 }
8442 }
8444 proc setcoords {} {
8445 global linespc charspc canvx0 canvy0
8446 global xspc1 xspc2 lthickness
8448 set linespc [font metrics mainfont -linespace]
8449 set charspc [font measure mainfont "m"]
8455 }
8457 proc redisplay {} {
8458 global canv
8459 global selectedline
8464 clear_display
8465 setcanvscroll
8467 drawvisible
8471 }
8472 }
8474 proc parsefont {f n} {
8475 global fontattr
8480 set s 10
8483 }
8489 "normal" -
8491 "roman" -
8493 }
8494 }
8495 }
8497 proc fontflags {f {isbold 0}} {
8498 global fontattr
8503 }
8505 proc fontname {f} {
8506 global fontattr
8510 lappend n "bold"
8511 }
8513 lappend n "italic"
8514 }
8516 }
8518 proc incrfont {inc} {
8519 global mainfont textfont ctext canv cflist showrefstop
8520 global stopped entries fontattr
8522 unmarkmatches
8526 set s 1
8527 }
8531 set mainfont [fontname mainfont]
8535 set s 1
8536 }
8540 set textfont [fontname textfont]
8541 setcoords
8542 settabs
8543 redisplay
8544 }
8546 proc clearsha1 {} {
8547 global sha1entry sha1string
8550 }
8551 }
8553 proc sha1change {n1 n2 op} {
8554 global sha1string currentid sha1but
8557 set state disabled
8558 } else {
8559 set state normal
8560 }
8564 } else {
8566 }
8567 }
8569 proc gotocommit {} {
8570 global sha1string tagids headids curview varcid
8578 } else {
8585 return
8586 }
8588 }
8589 } else {
8592 return
8593 }
8594 }
8595 }
8598 return
8599 }
8602 } else {
8604 }
8606 }
8608 proc lineenter {x y id} {
8609 global hoverx hovery hoverid hovertimer
8610 global commitinfo canv
8616 if {[info exists hovertimer]} {
8618 }
8619 set hovertimer [after 500 linehover]
8621 }
8623 proc linemotion {x y id} {
8624 global hoverx hovery hoverid hovertimer
8629 if {[info exists hovertimer]} {
8631 }
8632 set hovertimer [after 500 linehover]
8633 }
8634 }
8636 proc lineleave {id} {
8637 global hoverid hovertimer canv
8641 if {[info exists hovertimer]} {
8643 unset hovertimer
8644 }
8645 unset hoverid
8646 }
8647 }
8649 proc linehover {} {
8650 global hoverx hovery hoverid hovertimer
8651 global canv linespc lthickness
8652 global linehoverbgcolor linehoverfgcolor linehoveroutlinecolor
8654 global commitinfo
8668 -width 1 -tags hover]
8673 }
8675 proc clickisonarrow {id y} {
8676 global lthickness
8685 }
8686 }
8687 return {}
8688 }
8690 proc arrowjump {id n y} {
8691 global canv
8693 # 1 <-> 2, 3 <-> 4, etc...
8703 set yfrac 0
8704 }
8706 }
8708 proc lineclick {x y id isnew} {
8709 global ctext commitinfo children canv thickerline curview
8712 unmarkmatches
8713 unselectline
8714 normalline
8716 # draw this line thicker than normal
8724 }
8728 return
8729 }
8733 }
8734 # fill the details pane with info about this line
8736 clear_ctext
8737 settabs 0
8749 set i 0
8751 incr i
8761 }
8762 }
8763 maybe_scroll_ctext 1
8765 init_flist {}
8766 }
8768 proc normalline {} {
8769 global thickerline
8770 if {[info exists thickerline]} {
8772 unset thickerline
8774 }
8775 }
8777 proc selbyid {id {isnew 1}} {
8778 global curview
8781 }
8782 }
8784 proc mstime {} {
8785 global startmstime
8786 if {![info exists startmstime]} {
8787 set startmstime [clock clicks -milliseconds]
8788 }
8790 }
8792 proc rowmenu {x y id} {
8793 global rowctxmenu selectedline rowmenuid curview
8794 global nullid nullid2 fakerowmenu mainhead markedid
8796 stopfinding
8799 set state disabled
8800 } else {
8801 set state normal
8802 }
8804 set mstate normal
8805 } else {
8806 set mstate disabled
8807 }
8812 } else {
8814 }
8818 } else {
8820 }
8827 }
8829 proc markhere {} {
8830 global rowmenuid markedid canv
8834 }
8836 proc gotomark {} {
8837 global markedid
8839 if {[info exists markedid]} {
8841 }
8842 }
8844 proc replace_by_kids {l r} {
8845 global curview children
8851 }
8853 }
8855 proc find_common_desc {} {
8856 global markedid rowmenuid curview children
8858 if {![info exists markedid]} return
8861 #set t1 [clock clicks -milliseconds]
8864 while 1 {
8870 break
8871 }
8874 } else {
8876 }
8877 }
8878 #set t2 [clock clicks -milliseconds]
8880 }
8882 proc compare_commits {} {
8883 global markedid rowmenuid curview children
8885 if {![info exists markedid]} return
8889 }
8891 proc getpatchid {id} {
8892 global patchids
8896 # trim off the initial "|"
8898 if {[catch {
8901 }]} {
8903 }
8904 }
8906 }
8908 proc do_cmp_commits {a b} {
8909 global ctext curview parents children patchids commitinfo
8912 clear_ctext
8913 init_flist {}
8915 set skipa 0
8916 set skipb 0
8919 set skipa 1
8920 } else {
8922 }
8925 set skipb 1
8926 } else {
8928 }
8934 [mc " - stopping\n"]
8935 break
8936 }
8939 [mc " - stopping\n"]
8940 break
8941 }
8946 } else {
8950 }
8951 set skipa 1
8952 set skipb 1
8953 } else {
8960 update
8962 return
8963 }
8964 }
8971 break
8972 }
8974 }
8980 break
8981 }
8983 }
8984 }
8986 }
8988 proc diffcommits {a b} {
8989 global diffcontext diffids blobdifffd diffinhdr currdiffsubmod
8991 set tmpdir [gitknewtmpdir]
8994 if {[catch {
8997 } err]} {
8999 return
9000 }
9001 if {[catch {
9003 } err]} {
9005 return
9006 }
9009 set diffinhdr 0
9010 set currdiffsubmod ""
9012 }
9014 proc diffvssel {dirn} {
9015 global rowmenuid selectedline
9021 } else {
9024 }
9027 }
9029 proc diffvsmark {dirn} {
9030 global rowmenuid markedid
9032 if {![info exists markedid]} return
9036 } else {
9039 }
9042 }
9044 proc doseldiff {oldid newid} {
9045 global ctext
9046 global commitinfo
9049 clear_ctext
9050 init_flist [mc "Top"]
9065 }
9067 proc mkpatch {} {
9068 global rowmenuid currentid commitinfo patchtop patchnum NS
9070 if {![info exists currentid]} return
9075 set top .patch
9105 incr patchnum
9117 }
9119 proc mkpatchrev {} {
9120 global patchtop
9126 foreach e [list fromsha1 fromhead tosha1 tohead] \
9132 }
9133 }
9135 proc mkpatchgo {} {
9136 global patchtop nullid nullid2
9142 # trim off the initial "|"
9147 }
9149 unset patchtop
9150 }
9152 proc mkpatchcan {} {
9153 global patchtop
9156 unset patchtop
9157 }
9159 proc mktag {} {
9160 global rowmenuid mktagtop commitinfo NS
9162 set top .maketag
9196 }
9198 proc domktag {} {
9199 global mktagtop env tagids idtags
9206 return 0
9207 }
9210 return 0
9211 }
9212 if {[catch {
9215 } else {
9217 }
9218 } err]} {
9220 return 0
9221 }
9227 dispneartags 0
9228 run refill_reflist
9229 return 1
9230 }
9232 proc redrawtags {id} {
9233 global canv linehtag idpos currentid curview cmitlisted markedid
9234 global canvxmax iddrawn circleitem mainheadid circlecolors
9235 global mainheadcirclecolor
9242 } else {
9244 }
9254 setcanvscroll
9255 }
9258 }
9261 }
9262 }
9264 proc mktagcan {} {
9265 global mktagtop
9268 unset mktagtop
9269 }
9271 proc mktaggo {} {
9272 if {![domktag]} return
9273 mktagcan
9274 }
9276 proc writecommit {} {
9277 global rowmenuid wrcomtop commitinfo wrcomcmd NS
9279 set top .writecommit
9312 }
9314 proc wrcomgo {} {
9315 global wrcomtop
9322 }
9324 unset wrcomtop
9325 }
9327 proc wrcomcan {} {
9328 global wrcomtop
9331 unset wrcomtop
9332 }
9334 proc mkbranch {} {
9335 global rowmenuid mkbrtop NS
9337 set top .makebranch
9361 }
9363 proc mkbrgo {top} {
9364 global headids idheads
9368 set cmdargs {}
9369 set old_id {}
9372 return
9373 }
9375 if {![confirm_popup [mc \
9377 return
9378 }
9380 lappend cmdargs -f
9381 }
9384 nowbusy newbranch
9385 update
9386 if {[catch {
9388 } err]} {
9389 notbusy newbranch
9391 } else {
9392 notbusy newbranch
9398 } else {
9403 }
9404 dispneartags 0
9405 run refill_reflist
9406 }
9407 }
9409 proc exec_citool {tool_args {baseid {}}} {
9410 global commitinfo env
9412 set save_env [array get env GIT_AUTHOR_*]
9417 }
9420 if {[regexp {^\s*(\S.*\S|\S)\s*<(.*)>\s*$} \
9426 }
9427 }
9431 array unset env GIT_AUTHOR_*
9433 }
9435 proc cherrypick {} {
9436 global rowmenuid curview
9437 global mainhead mainheadid
9438 global gitdir
9440 set oldhead [exec git rev-parse HEAD]
9443 set ok [confirm_popup [mc "Commit %s is already\
9444 included in branch %s -- really re-apply it?" \
9447 }
9448 nowbusy cherrypick [mc "Cherry-picking"]
9449 update
9450 # Unfortunately git-cherry-pick writes stuff to stderr even when
9451 # no error occurs, and exec takes that as an indication of error...
9453 notbusy cherrypick
9454 if {[regexp -line \
9455 {Entry '(.*)' (would be overwritten by merge|not uptodate)} \
9457 error_popup [mc "Cherry-pick failed because of local changes\
9458 to file '%s'.\nPlease commit, reset or stash\
9460 } elseif {[regexp -line \
9461 {^(CONFLICT \(.*\):|Automatic cherry-pick failed|error: could not apply)} \
9463 if {[confirm_popup [mc "Cherry-pick failed because of merge\
9464 conflict.\nDo you wish to run git citool to\
9465 resolve it?"]]} {
9466 # Force citool to read MERGE_MSG
9469 }
9470 } else {
9472 }
9473 run updatecommits
9474 return
9475 }
9476 set newhead [exec git rev-parse HEAD]
9478 notbusy cherrypick
9479 error_popup [mc "No changes committed"]
9480 return
9481 }
9484 # XXX this isn't right if we have a path limit...
9489 }
9494 }
9495 notbusy cherrypick
9496 }
9498 proc revert {} {
9499 global rowmenuid curview
9500 global mainhead mainheadid
9501 global gitdir
9503 set oldhead [exec git rev-parse HEAD]
9506 set ok [confirm_popup [mc "Commit %s is not\
9507 included in branch %s -- really revert it?" \
9510 }
9511 nowbusy revert [mc "Reverting"]
9512 update
9515 notbusy revert
9516 if [regexp {files would be overwritten by merge:(\n(( |\t)+[^\n]+\n)+)}\
9519 error_popup [mc "Revert failed because of local changes to\
9520 the following files:%s Please commit, reset or stash \
9523 if [confirm_popup [mc "Revert failed because of merge conflict.\n\
9524 Do you wish to run git citool to resolve it?"]] {
9525 # Force citool to read MERGE_MSG
9528 }
9530 run updatecommits
9531 return
9532 }
9534 set newhead [exec git rev-parse HEAD]
9536 notbusy revert
9537 error_popup [mc "No changes committed"]
9538 return
9539 }
9544 # XXX this isn't right if we have a path limit...
9549 }
9554 }
9556 notbusy revert
9557 }
9559 proc resethead {} {
9560 global mainhead rowmenuid confirm_ok resettype NS
9562 set confirm_ok 0
9563 set w ".confirmreset"
9571 set resettype mixed
9573 -text [mc "Soft: Leave working tree and index untouched"]
9576 -text [mc "Mixed: Leave working tree untouched, reset index"]
9579 -text [mc "Hard: Reset working tree and index\n(discard ALL local changes)"]
9590 if {[catch {set fd [open \
9593 } else {
9594 dohidelocalchanges
9596 nowbusy reset [mc "Resetting"]
9598 }
9599 }
9601 proc readresetstat {fd} {
9602 global mainhead mainheadid showlocalchanges rprogcoord
9607 adjustprogress
9608 }
9609 return 1
9610 }
9611 set rprogcoord 0
9612 adjustprogress
9613 notbusy reset
9616 }
9618 set newhead [exec git rev-parse HEAD]
9625 }
9627 doshowlocalchanges
9628 }
9629 return 0
9630 }
9632 # context menu for a head
9633 proc headmenu {x y id head} {
9634 global headmenuid headmenuhead headctxmenu mainhead
9636 stopfinding
9639 set state normal
9641 set state disabled
9642 }
9644 set state disabled
9645 }
9649 }
9651 proc cobranch {} {
9652 global headmenuid headmenuhead headids
9653 global showlocalchanges
9655 # check the tree is clean first??
9656 nowbusy checkout [mc "Checking out"]
9657 update
9658 dohidelocalchanges
9659 if {[catch {
9661 } err]} {
9662 notbusy checkout
9665 dodiffindex
9666 }
9667 } else {
9669 }
9670 }
9672 proc readcheckoutstat {fd newhead newheadid} {
9673 global mainhead mainheadid headids showlocalchanges progresscoords
9674 global viewmainheadid curview
9679 adjustprogress
9680 }
9681 return 1
9682 }
9683 set progresscoords {0 0}
9684 adjustprogress
9685 notbusy checkout
9688 }
9697 dodiffindex
9698 }
9699 }
9701 proc rmbranch {} {
9702 global headmenuid headmenuhead mainhead
9703 global idheads
9707 # this check shouldn't be needed any more...
9709 error_popup [mc "Cannot delete the currently checked-out branch"]
9710 return
9711 }
9714 # the stuff on this branch isn't on any other branch
9715 if {![confirm_popup [mc "The commits on branch %s aren't on any other\
9717 }
9718 nowbusy rmbranch
9719 update
9721 notbusy rmbranch
9723 return
9724 }
9728 notbusy rmbranch
9729 dispneartags 0
9730 run refill_reflist
9731 }
9733 # Display a list of tags and heads
9734 proc showrefs {} {
9735 global showrefstop bgcolor fgcolor selectbgcolor NS
9736 global bglist fglist reflistfilter reflist maincursor
9738 set top .showrefs
9742 refill_reflist
9743 return
9744 }
9752 -spacing1 1 -spacing3 1 -state disabled
9763 set reflistfilter "*"
9764 trace add variable reflistfilter write reflistfilter_change
9776 set reflist {}
9777 refill_reflist
9778 }
9780 proc sel_reflist {w x y} {
9781 global showrefstop reflist headids tagids otherrefids
9791 }
9793 }
9795 proc unsel_reflist {} {
9796 global showrefstop
9800 }
9802 proc reflistfilter_change {n1 n2 op} {
9803 global reflistfilter
9805 after cancel refill_reflist
9806 after 200 refill_reflist
9807 }
9809 proc refill_reflist {} {
9810 global reflist reflistfilter showrefstop headids tagids otherrefids
9811 global curview
9814 set refs {}
9815 foreach n [array names headids] {
9819 } else {
9821 }
9822 }
9823 }
9824 foreach n [array names tagids] {
9828 } else {
9830 }
9831 }
9832 }
9833 foreach n [array names otherrefids] {
9837 } else {
9839 }
9840 }
9841 }
9849 set i 0
9850 set j 0
9859 }
9860 } else {
9861 set cmp -1
9862 }
9863 } else {
9864 set cmp 1
9865 }
9867 -1 {
9869 incr i
9870 }
9871 0 {
9872 incr i
9873 incr j
9874 }
9875 1 {
9880 incr j
9881 }
9882 }
9883 }
9885 # delete last newline
9888 }
9890 # Stuff for finding nearby tags
9891 proc getallcommits {} {
9892 global allcommits nextarc seeds allccache allcwait cachedarcs allcupdate
9893 global idheads idtags idotherrefs allparents tagobjid
9894 global gitdir
9896 if {![info exists allcommits]} {
9897 set nextarc 0
9898 set allcommits 0
9899 set seeds {}
9900 set allcwait 0
9901 set cachedarcs 0
9903 if {![catch {
9905 set allcwait 1
9907 }]} return
9908 }
9911 return
9912 }
9913 set cmd [list | git rev-list --parents]
9916 set ids "--all"
9917 } else {
9918 set refs [concat [array names idheads] [array names idtags] \
9919 [array names idotherrefs]]
9920 set ids {}
9921 set tagobjs {}
9922 foreach name [array names tagobjid] {
9924 }
9929 }
9930 }
9934 }
9935 }
9936 }
9941 incr allcommits
9942 nowbusy allcommits
9944 } else {
9945 dispneartags 0
9946 }
9947 }
9949 # The maximum command line length for the CreateProcess function is 32767 characters, see
9950 # http://blogs.msdn.com/oldnewthing/archive/2003/12/10/56028.aspx
9951 # Be a little conservative in case Tcl adds some more stuff to the command line we do not
9952 # know about and truncate the command line at a SHA1-boundary below 32000 characters.
9953 proc limit_arg_length {cmd} {
9954 if {[tk windowingsystem] == "win32" &&
9959 }
9960 }
9962 }
9964 # Since most commits have 1 parent and 1 child, we group strings of
9965 # such commits into "arcs" joining branch/merge points (BMPs), which
9966 # are commits that either don't have 1 parent or don't have 1 child.
9967 #
9968 # arcnos(id) - incoming arcs for BMP, arc we're on for other nodes
9969 # arcout(id) - outgoing arcs for BMP
9970 # arcids(a) - list of IDs on arc including end but not start
9971 # arcstart(a) - BMP ID at start of arc
9972 # arcend(a) - BMP ID at end of arc
9973 # growing(a) - arc a is still growing
9974 # arctags(a) - IDs out of arcids (excluding end) that have tags
9975 # archeads(a) - IDs out of arcids (excluding end) that have heads
9976 # The start of an arc is at the descendent end, so "incoming" means
9977 # coming from descendents, and "outgoing" means going towards ancestors.
9979 proc getallclines {fd} {
9980 global allparents allchildren idtags idheads nextarc
9981 global arcnos arcids arctags arcout arcend arcstart archeads growing
9982 global seeds allcommits cachedarcs allcupdate
9984 set nid 0
9988 # seen it already
9989 continue
9990 }
9991 set cachedarcs 0
9998 } else {
10004 }
10007 }
10009 # seen parent already
10012 }
10016 }
10019 continue
10020 }
10021 }
10026 }
10028 set ao {}
10031 set a [incr nextarc]
10040 # seen it already, may need to make a new branch
10043 }
10047 }
10049 }
10051 }
10053 global cached_dheads cached_dtags cached_atags
10054 catch {unset cached_dheads}
10055 catch {unset cached_dtags}
10056 catch {unset cached_atags}
10057 }
10060 }
10061 set cacheok 1
10062 if {[catch {
10065 } err]} {
10066 # got an error reading the list of commits
10067 # if we were updating, try rereading the whole thing again
10069 incr allcommits -1
10071 return
10072 }
10073 error_popup "[mc "Error reading commit topology information;\
10074 branch and preceding/following tag information\
10076 set cacheok 0
10077 }
10078 if {[incr allcommits -1] == 0} {
10079 notbusy allcommits
10081 run savecache
10082 }
10083 }
10084 dispneartags 0
10085 return 0
10086 }
10088 proc recalcarc {a} {
10089 global arctags archeads arcids idtags idheads
10091 set at {}
10092 set ah {}
10096 }
10099 }
10100 }
10103 }
10105 proc splitarc {p} {
10106 global arcnos arcids nextarc arctags archeads idtags idheads
10107 global arcstart arcend arcout allparents growing
10112 return
10113 }
10118 return
10119 }
10120 set na [incr nextarc]
10123 } else {
10127 }
10137 }
10142 } else {
10145 }
10146 }
10148 # reconstruct tags and heads lists
10152 } else {
10155 }
10156 }
10158 # Update things for a new commit added that is a child of one
10159 # existing commit. Used when cherry-picking.
10160 proc addnewchild {id p} {
10161 global allparents allchildren idtags nextarc
10162 global arcnos arcids arctags arcout arcend arcstart archeads growing
10163 global seeds allcommits
10171 set a [incr nextarc]
10179 }
10182 }
10184 # This implements a cache for the topology information.
10185 # The cache saves, for each arc, the start and end of the arc,
10186 # the ids on the arc, and the outgoing arcs from the end.
10187 proc readcache {f} {
10188 global arcnos arcids arcout arcstart arcend arctags archeads nextarc
10189 global idtags idheads allparents cachedarcs possible_seeds seeds growing
10190 global allcwait
10196 }
10197 if {[catch {
10199 # finish reading the cache and setting up arctags, etc.
10203 foreach id [array names idtags] {
10209 }
10210 }
10211 }
10212 foreach id [array names idheads] {
10218 }
10219 }
10220 }
10224 }
10225 }
10226 set allcwait 0
10227 } else {
10237 }
10241 } else {
10245 }
10246 }
10252 }
10255 }
10258 }
10260 }
10261 } err]} {
10263 return 0
10264 }
10266 getallcommits
10267 }
10269 }
10271 proc getcache {f} {
10272 global nextarc cachedarcs possible_seeds
10274 if {[catch {
10277 # make sure it's an integer
10280 set nextarc 0
10281 set possible_seeds {}
10283 } err]} {
10285 }
10286 return 0
10287 }
10289 proc dropcache {err} {
10290 global allcwait nextarc cachedarcs seeds
10293 foreach v {arcnos arcout arcids arcstart arcend growing \
10294 arctags archeads allparents allchildren} {
10297 }
10298 set allcwait 0
10299 set nextarc 0
10300 set cachedarcs 0
10301 set seeds {}
10302 getallcommits
10303 }
10305 proc writecache {f} {
10306 global cachearc cachedarcs allccache
10307 global arcstart arcend arcnos arcids arcout
10313 }
10314 if {[catch {
10318 } else {
10320 }
10321 }
10322 } err]} {
10326 return 0
10327 }
10332 return 0
10333 }
10334 return 1
10335 }
10337 proc savecache {} {
10338 global nextarc cachedarcs cachearc allccache
10341 set cachearc 0
10343 catch {
10347 }
10348 }
10350 # Returns 1 if a is an ancestor of b, -1 if b is an ancestor of a,
10351 # or 0 if neither is true.
10352 proc anc_or_desc {a b} {
10353 global arcout arcstart arcend arcnos cached_isanc
10356 # Both are on the same arc(s); either both are the same BMP,
10357 # or if one is not a BMP, the other is also not a BMP or is
10358 # the BMP at end of the arc (and it only has 1 incoming arc).
10359 # Or both can be BMPs with no incoming arcs.
10361 return 0
10362 }
10368 return 1
10369 } else {
10370 return -1
10371 }
10372 }
10378 } else {
10379 set aend {}
10380 }
10382 } else {
10384 }
10389 } else {
10390 set bend {}
10391 }
10393 } else {
10395 }
10397 return 1
10398 }
10400 return -1
10401 }
10404 return 1
10405 }
10406 }
10409 return -1
10410 }
10412 return 0
10413 }
10414 }
10422 continue
10423 }
10429 return 1
10433 return -1
10434 }
10440 }
10441 }
10442 }
10445 return 0
10446 }
10450 # and returns 0 if so and 1 if not.
10451 # If we subsequently discover a tag on such a growing tip, and that
10454 # isn't a good choice to display as a descendent tag of
10458 #
10459 proc is_certain {desc anc} {
10460 global arcnos arcout arcstart arcend growing problems
10462 set certain {}
10464 # tags on the same arc are certain
10466 return 1
10467 }
10472 }
10473 }
10476 } else {
10479 }
10481 return 1
10482 }
10485 set nnh 1
10486 set ngrowanc 0
10490 incr nnh -1
10491 }
10497 incr ngrowanc
10498 }
10499 } else {
10506 incr nnh -1
10507 }
10509 incr ngrowanc -1
10510 }
10520 incr nnh -1
10521 }
10523 incr ngrowanc -1
10524 }
10526 }
10527 }
10528 }
10529 }
10530 }
10531 }
10535 } else {
10538 incr nnh
10539 }
10540 }
10541 }
10542 }
10543 foreach x [array names growanc] {
10545 return 0
10546 }
10547 return 0
10548 }
10549 return 1
10550 }
10552 proc validate_arctags {a} {
10553 global arctags idtags
10555 set i -1
10558 incr i
10561 incr i -1
10562 }
10563 }
10565 }
10567 proc validate_archeads {a} {
10568 global archeads idheads
10570 set i -1
10573 incr i
10576 incr i -1
10577 }
10578 }
10580 }
10582 # Return the list of IDs that have tags that are descendents of id,
10583 # ignoring IDs that are descendents of IDs already reported.
10584 proc desctags {id} {
10585 global arcnos arcstart arcids arctags idtags allparents
10586 global growing cached_dtags
10589 return {}
10590 }
10591 set t1 [clock clicks -milliseconds]
10594 # part-way along an arc; check that arc first
10599 set tid {}
10604 }
10607 }
10608 }
10612 }
10613 }
10616 }
10621 set nc 1
10627 incr nc -1
10628 }
10629 # ignore tags on starting node
10633 set ta 1
10636 set ta 1
10637 }
10638 }
10645 }
10646 }
10655 }
10658 }
10660 incr nc -1
10661 }
10663 }
10664 }
10665 }
10670 incr nc
10671 }
10672 }
10673 }
10674 }
10675 set tags {}
10676 foreach id [array names tagloc] {
10681 }
10682 }
10683 }
10684 }
10685 set t2 [clock clicks -milliseconds]
10688 # remove tags that are descendents of other tags
10696 incr j -1
10697 incr i -1
10700 incr i -1
10701 break
10702 }
10703 }
10704 }
10706 if {[array names growing] ne {}} {
10707 # graph isn't finished, need to check if any tag could get
10708 # eclipsed by another tag coming later. Simply ignore any
10709 # tags that could later get eclipsed.
10710 set ctags {}
10714 }
10715 }
10718 } else {
10720 }
10721 } else {
10723 }
10724 set t3 [clock clicks -milliseconds]
10728 }
10730 }
10732 proc anctags {id} {
10733 global arcnos arcids arcout arcend arctags idtags allparents
10734 global growing cached_atags
10737 return {}
10738 }
10739 set t1 [clock clicks -milliseconds]
10742 # part-way along an arc; check that arc first
10751 }
10752 }
10753 }
10755 return {}
10756 }
10760 }
10761 }
10764 }
10769 set taglist {}
10770 set nc 1
10776 incr nc -1
10777 }
10778 # ignore tags on starting node
10782 set td 1
10785 set td 1
10786 }
10787 }
10793 }
10794 }
10806 }
10807 }
10810 }
10812 incr nc -1
10813 }
10815 }
10816 }
10817 }
10822 incr nc
10823 }
10824 }
10825 }
10826 }
10827 set t2 [clock clicks -milliseconds]
10829 set tags {}
10830 foreach id [array names tagloc] {
10835 }
10836 }
10837 }
10838 }
10840 # remove tags that are ancestors of other tags
10848 incr j -1
10849 incr i -1
10852 incr i -1
10853 break
10854 }
10855 }
10856 }
10858 if {[array names growing] ne {}} {
10859 # graph isn't finished, need to check if any tag could get
10860 # eclipsed by another tag coming later. Simply ignore any
10861 # tags that could later get eclipsed.
10862 set ctags {}
10866 }
10867 }
10870 } else {
10872 }
10873 } else {
10875 }
10876 set t3 [clock clicks -milliseconds]
10880 }
10882 }
10884 # Return the list of IDs that have heads that are descendents of id,
10885 # including id itself if it has a head.
10886 proc descheads {id} {
10887 global arcnos arcstart arcids archeads idheads cached_dheads
10888 global allparents arcout
10891 return {}
10892 }
10893 set aret {}
10895 # part-way along an arc; check it first
10904 }
10905 }
10907 }
10911 set ret {}
10916 } else {
10919 }
10925 }
10926 }
10931 }
10932 }
10933 }
10934 }
10938 }
10940 proc addedtag {id} {
10941 global arcnos arcout cached_dtags cached_atags
10946 }
10947 catch {unset cached_dtags}
10948 catch {unset cached_atags}
10949 }
10951 proc addedhead {hid head} {
10952 global arcnos arcout cached_dheads
10957 }
10958 catch {unset cached_dheads}
10959 }
10961 proc removedhead {hid head} {
10962 global cached_dheads
10964 catch {unset cached_dheads}
10965 }
10967 proc movedhead {hid head} {
10968 global arcnos arcout cached_dheads
10973 }
10974 catch {unset cached_dheads}
10975 }
10977 proc changedrefs {} {
10978 global cached_dheads cached_dtags cached_atags cached_tagcontent
10979 global arctags archeads arcnos arcout idheads idtags
10981 foreach id [concat [array names idheads] [array names idtags]] {
10987 }
10988 }
10989 }
10990 catch {unset cached_tagcontent}
10991 catch {unset cached_dtags}
10992 catch {unset cached_atags}
10993 catch {unset cached_dheads}
10994 }
10996 proc rereadrefs {} {
10997 global idtags idheads idotherrefs mainheadid
10999 set refids [concat [array names idtags] \
11000 [array names idheads] [array names idotherrefs]]
11004 }
11005 }
11007 readrefs
11008 changedrefs
11010 [array names idheads] [array names idotherrefs]]]
11015 }
11016 }
11020 }
11021 run refill_reflist
11022 }
11024 proc listrefs {id} {
11025 global idtags idheads idotherrefs
11027 set x {}
11030 }
11031 set y {}
11034 }
11035 set z {}
11038 }
11040 }
11042 proc add_tag_ctext {tag} {
11043 global ctext cached_tagcontent tagids
11046 catch {
11048 }
11049 }
11053 } else {
11055 }
11057 }
11059 proc showtag {tag isnew} {
11060 global ctext cached_tagcontent tagids linknum tagobjid
11064 }
11066 clear_ctext
11067 settabs 0
11068 set linknum 0
11070 maybe_scroll_ctext 1
11072 init_flist {}
11073 }
11075 proc showtags {id isnew} {
11076 global idtags ctext linknum
11080 }
11082 clear_ctext
11083 settabs 0
11084 set linknum 0
11085 set sep {}
11089 set sep "\n\n"
11090 }
11091 maybe_scroll_ctext 1
11093 init_flist {}
11094 }
11096 proc doquit {} {
11097 global stopped
11098 global gitktmpdir
11100 set stopped 100
11101 savestuff .
11102 destroy .
11104 if {[info exists gitktmpdir]} {
11106 }
11107 }
11109 proc mkfontdisp {font top which} {
11118 }
11120 proc choosefont {font which} {
11121 global fontparam fontlist fonttop fontattr
11122 global prefstop NS
11130 set top .gitkfont
11133 font create sample
11140 set fontlist [lsort [font families]]
11151 -textvariable fontparam(size) \
11152 -validatecommand {string is integer -strict %s}
11154 -font {{Times New Roman} 12 bold} -text [mc "B"] -indicatoron 0 \
11155 -variable fontparam(weight) -onvalue bold -offvalue normal
11157 -font {{Times New Roman} 12 italic} -text [mc "I"] -indicatoron 0 \
11158 -variable fontparam(slant) -onvalue italic -offvalue roman
11162 -background white
11164 -fill black -tags text
11176 trace add variable fontparam write chg_fontparam
11177 } else {
11180 }
11185 }
11186 }
11188 proc centertext {w} {
11190 }
11192 proc fontok {} {
11193 global fontparam fontpref prefstop
11199 }
11202 }
11206 fontcan
11207 }
11209 proc fontcan {} {
11210 global fonttop fontparam
11212 if {[info exists fonttop]} {
11214 catch {font delete sample}
11215 unset fonttop
11216 unset fontparam
11217 }
11218 }
11220 if {[package vsatisfies [package provide Tk] 8.6]} {
11221 # In Tk 8.6 we have a native font chooser dialog. Overwrite the above
11222 # function to make use of it.
11223 proc choosefont {font which} {
11226 tk fontchooser show
11227 }
11228 proc on_choosefont {font which newfont} {
11229 global fontparam
11238 fontok
11239 }
11240 }
11242 proc selfontfam {} {
11243 global fonttop fontparam
11248 }
11249 }
11251 proc chg_fontparam {v sub op} {
11252 global fontparam
11255 }
11257 # Create a property sheet tab page
11258 proc create_prefs_page {w} {
11259 global NS
11263 } else {
11265 }
11266 }
11268 proc prefspage_general {notebook} {
11269 global NS maxwidth maxgraphpct showneartags showlocalchanges
11270 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11271 global hideremotes want_ttk have_ttk maxrefs
11285 -variable showlocalchanges
11288 -variable autoselect
11292 -variable hideremotes
11301 -variable showneartags
11307 -variable limitdiffs
11310 -variable perfile_attrs
11324 -text [mc "Use themed widgets"]
11327 } else {
11329 }
11332 }
11334 proc prefspage_colors {notebook} {
11335 global NS uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11366 [mc "diff hunk header"] \
11372 [mc "marked line background"] \
11380 }
11382 proc prefspage_fonts {notebook} {
11383 global NS
11391 }
11393 proc doprefs {} {
11394 global maxwidth maxgraphpct use_ttk NS
11395 global oldprefs prefstop showneartags showlocalchanges
11396 global uicolor bgcolor fgcolor ctext diffcolors selectbgcolor markbgcolor
11397 global tabstop limitdiffs autoselect autosellen extdifftool perfile_attrs
11398 global hideremotes want_ttk have_ttk
11400 set top .gitkprefs
11404 return
11405 }
11406 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11407 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11409 }
11416 } else {
11418 }
11423 set col 0
11427 } else {
11433 }
11434 }
11440 }
11457 }
11459 proc choose_extdiff {} {
11460 global extdifftool
11462 set prog [tk_getOpenFile -title [mc "External diff tool"] -multiple false]
11465 }
11466 }
11468 proc choosecolor {v vi w x cmd} {
11477 }
11479 proc setselbg {c} {
11480 global bglist cflist
11483 }
11487 }
11489 # This sets the background color and the color scheme for the whole UI.
11490 # For some reason, tk_setPalette chooses a nasty dark red for selectColor
11491 # if we don't specify one ourselves, which makes the checkbuttons and
11492 # radiobuttons look bad. This chooses white for selectColor if the
11493 # background color is light, or black if it is dark.
11494 proc setui {c} {
11495 if {[tk windowingsystem] eq "win32"} { return }
11497 set selc black
11499 set selc white
11500 }
11502 }
11504 proc setbg {c} {
11505 global bglist
11509 }
11510 }
11512 proc setfg {c} {
11513 global fglist canv
11517 }
11521 }
11523 proc prefscan {} {
11524 global oldprefs prefstop
11526 foreach v {maxwidth maxgraphpct showneartags showlocalchanges \
11527 limitdiffs tabstop perfile_attrs hideremotes want_ttk} {
11530 }
11532 unset prefstop
11533 fontcan
11534 }
11536 proc prefsok {} {
11537 global maxwidth maxgraphpct
11538 global oldprefs prefstop showneartags showlocalchanges
11539 global fontpref mainfont textfont uifont
11540 global limitdiffs treediffs perfile_attrs
11541 global hideremotes
11544 unset prefstop
11545 fontcan
11546 set fontchanged 0
11550 eval font configure mainfont [fontflags mainfont]
11551 eval font configure mainfontbold [fontflags mainfont 1]
11552 setcoords
11553 set fontchanged 1
11554 }
11558 eval font configure textfont [fontflags textfont]
11559 eval font configure textfontbold [fontflags textfont 1]
11560 }
11564 eval font configure uifont [fontflags uifont]
11565 }
11566 settabs
11569 doshowlocalchanges
11570 } else {
11571 dohidelocalchanges
11572 }
11573 }
11576 # treediffs elements are limited by path;
11577 # won't have encodings cached if perfile_attrs was just turned on
11578 catch {unset treediffs}
11579 }
11582 redisplay
11585 reselectline
11586 }
11588 rereadrefs
11589 }
11590 }
11592 proc formatdate {d} {
11593 global datetimeformat
11596 }
11598 }
11600 # This list of encoding names and aliases is distilled from
11601 # http://www.iana.org/assignments/character-sets.
11602 # Not all of them are supported by Tcl.
11603 set encoding_aliases {
11604 { ANSI_X3.4-1968 iso-ir-6 ANSI_X3.4-1986 ISO_646.irv:1991 ASCII
11605 ISO646-US US-ASCII us IBM367 cp367 csASCII }
11606 { ISO-10646-UTF-1 csISO10646UTF1 }
11607 { ISO_646.basic:1983 ref csISO646basic1983 }
11608 { INVARIANT csINVARIANT }
11609 { ISO_646.irv:1983 iso-ir-2 irv csISO2IntlRefVersion }
11610 { BS_4730 iso-ir-4 ISO646-GB gb uk csISO4UnitedKingdom }
11611 { NATS-SEFI iso-ir-8-1 csNATSSEFI }
11612 { NATS-SEFI-ADD iso-ir-8-2 csNATSSEFIADD }
11613 { NATS-DANO iso-ir-9-1 csNATSDANO }
11614 { NATS-DANO-ADD iso-ir-9-2 csNATSDANOADD }
11615 { SEN_850200_B iso-ir-10 FI ISO646-FI ISO646-SE se csISO10Swedish }
11616 { SEN_850200_C iso-ir-11 ISO646-SE2 se2 csISO11SwedishForNames }
11617 { KS_C_5601-1987 iso-ir-149 KS_C_5601-1989 KSC_5601 korean csKSC56011987 }
11618 { ISO-2022-KR csISO2022KR }
11619 { EUC-KR csEUCKR }
11620 { ISO-2022-JP csISO2022JP }
11621 { ISO-2022-JP-2 csISO2022JP2 }
11622 { JIS_C6220-1969-jp JIS_C6220-1969 iso-ir-13 katakana x0201-7
11623 csISO13JISC6220jp }
11624 { JIS_C6220-1969-ro iso-ir-14 jp ISO646-JP csISO14JISC6220ro }
11625 { IT iso-ir-15 ISO646-IT csISO15Italian }
11626 { PT iso-ir-16 ISO646-PT csISO16Portuguese }
11627 { ES iso-ir-17 ISO646-ES csISO17Spanish }
11628 { greek7-old iso-ir-18 csISO18Greek7Old }
11629 { latin-greek iso-ir-19 csISO19LatinGreek }
11630 { DIN_66003 iso-ir-21 de ISO646-DE csISO21German }
11631 { NF_Z_62-010_(1973) iso-ir-25 ISO646-FR1 csISO25French }
11632 { Latin-greek-1 iso-ir-27 csISO27LatinGreek1 }
11633 { ISO_5427 iso-ir-37 csISO5427Cyrillic }
11634 { JIS_C6226-1978 iso-ir-42 csISO42JISC62261978 }
11635 { BS_viewdata iso-ir-47 csISO47BSViewdata }
11636 { INIS iso-ir-49 csISO49INIS }
11637 { INIS-8 iso-ir-50 csISO50INIS8 }
11638 { INIS-cyrillic iso-ir-51 csISO51INISCyrillic }
11639 { ISO_5427:1981 iso-ir-54 ISO5427Cyrillic1981 }
11640 { ISO_5428:1980 iso-ir-55 csISO5428Greek }
11641 { GB_1988-80 iso-ir-57 cn ISO646-CN csISO57GB1988 }
11642 { GB_2312-80 iso-ir-58 chinese csISO58GB231280 }
11643 { NS_4551-1 iso-ir-60 ISO646-NO no csISO60DanishNorwegian
11644 csISO60Norwegian1 }
11645 { NS_4551-2 ISO646-NO2 iso-ir-61 no2 csISO61Norwegian2 }
11646 { NF_Z_62-010 iso-ir-69 ISO646-FR fr csISO69French }
11647 { videotex-suppl iso-ir-70 csISO70VideotexSupp1 }
11648 { PT2 iso-ir-84 ISO646-PT2 csISO84Portuguese2 }
11649 { ES2 iso-ir-85 ISO646-ES2 csISO85Spanish2 }
11650 { MSZ_7795.3 iso-ir-86 ISO646-HU hu csISO86Hungarian }
11651 { JIS_C6226-1983 iso-ir-87 x0208 JIS_X0208-1983 csISO87JISX0208 }
11652 { greek7 iso-ir-88 csISO88Greek7 }
11653 { ASMO_449 ISO_9036 arabic7 iso-ir-89 csISO89ASMO449 }
11654 { iso-ir-90 csISO90 }
11655 { JIS_C6229-1984-a iso-ir-91 jp-ocr-a csISO91JISC62291984a }
11656 { JIS_C6229-1984-b iso-ir-92 ISO646-JP-OCR-B jp-ocr-b
11657 csISO92JISC62991984b }
11658 { JIS_C6229-1984-b-add iso-ir-93 jp-ocr-b-add csISO93JIS62291984badd }
11659 { JIS_C6229-1984-hand iso-ir-94 jp-ocr-hand csISO94JIS62291984hand }
11660 { JIS_C6229-1984-hand-add iso-ir-95 jp-ocr-hand-add
11661 csISO95JIS62291984handadd }
11662 { JIS_C6229-1984-kana iso-ir-96 csISO96JISC62291984kana }
11663 { ISO_2033-1983 iso-ir-98 e13b csISO2033 }
11664 { ANSI_X3.110-1983 iso-ir-99 CSA_T500-1983 NAPLPS csISO99NAPLPS }
11665 { ISO_8859-1:1987 iso-ir-100 ISO_8859-1 ISO-8859-1 latin1 l1 IBM819
11666 CP819 csISOLatin1 }
11667 { ISO_8859-2:1987 iso-ir-101 ISO_8859-2 ISO-8859-2 latin2 l2 csISOLatin2 }
11668 { T.61-7bit iso-ir-102 csISO102T617bit }
11669 { T.61-8bit T.61 iso-ir-103 csISO103T618bit }
11670 { ISO_8859-3:1988 iso-ir-109 ISO_8859-3 ISO-8859-3 latin3 l3 csISOLatin3 }
11671 { ISO_8859-4:1988 iso-ir-110 ISO_8859-4 ISO-8859-4 latin4 l4 csISOLatin4 }
11672 { ECMA-cyrillic iso-ir-111 KOI8-E csISO111ECMACyrillic }
11673 { CSA_Z243.4-1985-1 iso-ir-121 ISO646-CA csa7-1 ca csISO121Canadian1 }
11674 { CSA_Z243.4-1985-2 iso-ir-122 ISO646-CA2 csa7-2 csISO122Canadian2 }
11675 { CSA_Z243.4-1985-gr iso-ir-123 csISO123CSAZ24341985gr }
11676 { ISO_8859-6:1987 iso-ir-127 ISO_8859-6 ISO-8859-6 ECMA-114 ASMO-708
11677 arabic csISOLatinArabic }
11678 { ISO_8859-6-E csISO88596E ISO-8859-6-E }
11679 { ISO_8859-6-I csISO88596I ISO-8859-6-I }
11680 { ISO_8859-7:1987 iso-ir-126 ISO_8859-7 ISO-8859-7 ELOT_928 ECMA-118
11681 greek greek8 csISOLatinGreek }
11682 { T.101-G2 iso-ir-128 csISO128T101G2 }
11683 { ISO_8859-8:1988 iso-ir-138 ISO_8859-8 ISO-8859-8 hebrew
11684 csISOLatinHebrew }
11685 { ISO_8859-8-E csISO88598E ISO-8859-8-E }
11686 { ISO_8859-8-I csISO88598I ISO-8859-8-I }
11687 { CSN_369103 iso-ir-139 csISO139CSN369103 }
11688 { JUS_I.B1.002 iso-ir-141 ISO646-YU js yu csISO141JUSIB1002 }
11689 { ISO_6937-2-add iso-ir-142 csISOTextComm }
11690 { IEC_P27-1 iso-ir-143 csISO143IECP271 }
11691 { ISO_8859-5:1988 iso-ir-144 ISO_8859-5 ISO-8859-5 cyrillic
11692 csISOLatinCyrillic }
11693 { JUS_I.B1.003-serb iso-ir-146 serbian csISO146Serbian }
11694 { JUS_I.B1.003-mac macedonian iso-ir-147 csISO147Macedonian }
11695 { ISO_8859-9:1989 iso-ir-148 ISO_8859-9 ISO-8859-9 latin5 l5 csISOLatin5 }
11696 { greek-ccitt iso-ir-150 csISO150 csISO150GreekCCITT }
11697 { NC_NC00-10:81 cuba iso-ir-151 ISO646-CU csISO151Cuba }
11698 { ISO_6937-2-25 iso-ir-152 csISO6937Add }
11699 { GOST_19768-74 ST_SEV_358-88 iso-ir-153 csISO153GOST1976874 }
11700 { ISO_8859-supp iso-ir-154 latin1-2-5 csISO8859Supp }
11701 { ISO_10367-box iso-ir-155 csISO10367Box }
11702 { ISO-8859-10 iso-ir-157 l6 ISO_8859-10:1992 csISOLatin6 latin6 }
11703 { latin-lap lap iso-ir-158 csISO158Lap }
11704 { JIS_X0212-1990 x0212 iso-ir-159 csISO159JISX02121990 }
11705 { DS_2089 DS2089 ISO646-DK dk csISO646Danish }
11706 { us-dk csUSDK }
11707 { dk-us csDKUS }
11708 { JIS_X0201 X0201 csHalfWidthKatakana }
11709 { KSC5636 ISO646-KR csKSC5636 }
11710 { ISO-10646-UCS-2 csUnicode }
11711 { ISO-10646-UCS-4 csUCS4 }
11712 { DEC-MCS dec csDECMCS }
11713 { hp-roman8 roman8 r8 csHPRoman8 }
11714 { macintosh mac csMacintosh }
11715 { IBM037 cp037 ebcdic-cp-us ebcdic-cp-ca ebcdic-cp-wt ebcdic-cp-nl
11716 csIBM037 }
11717 { IBM038 EBCDIC-INT cp038 csIBM038 }
11718 { IBM273 CP273 csIBM273 }
11719 { IBM274 EBCDIC-BE CP274 csIBM274 }
11720 { IBM275 EBCDIC-BR cp275 csIBM275 }
11721 { IBM277 EBCDIC-CP-DK EBCDIC-CP-NO csIBM277 }
11722 { IBM278 CP278 ebcdic-cp-fi ebcdic-cp-se csIBM278 }
11723 { IBM280 CP280 ebcdic-cp-it csIBM280 }
11724 { IBM281 EBCDIC-JP-E cp281 csIBM281 }
11725 { IBM284 CP284 ebcdic-cp-es csIBM284 }
11726 { IBM285 CP285 ebcdic-cp-gb csIBM285 }
11727 { IBM290 cp290 EBCDIC-JP-kana csIBM290 }
11728 { IBM297 cp297 ebcdic-cp-fr csIBM297 }
11729 { IBM420 cp420 ebcdic-cp-ar1 csIBM420 }
11730 { IBM423 cp423 ebcdic-cp-gr csIBM423 }
11731 { IBM424 cp424 ebcdic-cp-he csIBM424 }
11732 { IBM437 cp437 437 csPC8CodePage437 }
11733 { IBM500 CP500 ebcdic-cp-be ebcdic-cp-ch csIBM500 }
11734 { IBM775 cp775 csPC775Baltic }
11735 { IBM850 cp850 850 csPC850Multilingual }
11736 { IBM851 cp851 851 csIBM851 }
11737 { IBM852 cp852 852 csPCp852 }
11738 { IBM855 cp855 855 csIBM855 }
11739 { IBM857 cp857 857 csIBM857 }
11740 { IBM860 cp860 860 csIBM860 }
11741 { IBM861 cp861 861 cp-is csIBM861 }
11742 { IBM862 cp862 862 csPC862LatinHebrew }
11743 { IBM863 cp863 863 csIBM863 }
11744 { IBM864 cp864 csIBM864 }
11745 { IBM865 cp865 865 csIBM865 }
11746 { IBM866 cp866 866 csIBM866 }
11747 { IBM868 CP868 cp-ar csIBM868 }
11748 { IBM869 cp869 869 cp-gr csIBM869 }
11749 { IBM870 CP870 ebcdic-cp-roece ebcdic-cp-yu csIBM870 }
11750 { IBM871 CP871 ebcdic-cp-is csIBM871 }
11751 { IBM880 cp880 EBCDIC-Cyrillic csIBM880 }
11752 { IBM891 cp891 csIBM891 }
11753 { IBM903 cp903 csIBM903 }
11754 { IBM904 cp904 904 csIBBM904 }
11755 { IBM905 CP905 ebcdic-cp-tr csIBM905 }
11756 { IBM918 CP918 ebcdic-cp-ar2 csIBM918 }
11757 { IBM1026 CP1026 csIBM1026 }
11758 { EBCDIC-AT-DE csIBMEBCDICATDE }
11759 { EBCDIC-AT-DE-A csEBCDICATDEA }
11760 { EBCDIC-CA-FR csEBCDICCAFR }
11761 { EBCDIC-DK-NO csEBCDICDKNO }
11762 { EBCDIC-DK-NO-A csEBCDICDKNOA }
11763 { EBCDIC-FI-SE csEBCDICFISE }
11764 { EBCDIC-FI-SE-A csEBCDICFISEA }
11765 { EBCDIC-FR csEBCDICFR }
11766 { EBCDIC-IT csEBCDICIT }
11767 { EBCDIC-PT csEBCDICPT }
11768 { EBCDIC-ES csEBCDICES }
11769 { EBCDIC-ES-A csEBCDICESA }
11770 { EBCDIC-ES-S csEBCDICESS }
11771 { EBCDIC-UK csEBCDICUK }
11772 { EBCDIC-US csEBCDICUS }
11773 { UNKNOWN-8BIT csUnknown8BiT }
11774 { MNEMONIC csMnemonic }
11775 { MNEM csMnem }
11776 { VISCII csVISCII }
11777 { VIQR csVIQR }
11778 { KOI8-R csKOI8R }
11779 { IBM00858 CCSID00858 CP00858 PC-Multilingual-850+euro }
11780 { IBM00924 CCSID00924 CP00924 ebcdic-Latin9--euro }
11781 { IBM01140 CCSID01140 CP01140 ebcdic-us-37+euro }
11782 { IBM01141 CCSID01141 CP01141 ebcdic-de-273+euro }
11783 { IBM01142 CCSID01142 CP01142 ebcdic-dk-277+euro ebcdic-no-277+euro }
11784 { IBM01143 CCSID01143 CP01143 ebcdic-fi-278+euro ebcdic-se-278+euro }
11785 { IBM01144 CCSID01144 CP01144 ebcdic-it-280+euro }
11786 { IBM01145 CCSID01145 CP01145 ebcdic-es-284+euro }
11787 { IBM01146 CCSID01146 CP01146 ebcdic-gb-285+euro }
11788 { IBM01147 CCSID01147 CP01147 ebcdic-fr-297+euro }
11789 { IBM01148 CCSID01148 CP01148 ebcdic-international-500+euro }
11790 { IBM01149 CCSID01149 CP01149 ebcdic-is-871+euro }
11791 { IBM1047 IBM-1047 }
11792 { PTCP154 csPTCP154 PT154 CP154 Cyrillic-Asian }
11793 { Amiga-1251 Ami1251 Amiga1251 Ami-1251 }
11794 { UNICODE-1-1 csUnicode11 }
11795 { CESU-8 csCESU-8 }
11796 { BOCU-1 csBOCU-1 }
11797 { UNICODE-1-1-UTF-7 csUnicode11UTF7 }
11798 { ISO-8859-14 iso-ir-199 ISO_8859-14:1998 ISO_8859-14 latin8 iso-celtic
11799 l8 }
11800 { ISO-8859-15 ISO_8859-15 Latin-9 }
11801 { ISO-8859-16 iso-ir-226 ISO_8859-16:2001 ISO_8859-16 latin10 l10 }
11802 { GBK CP936 MS936 windows-936 }
11803 { JIS_Encoding csJISEncoding }
11804 { Shift_JIS MS_Kanji csShiftJIS ShiftJIS Shift-JIS }
11805 { Extended_UNIX_Code_Packed_Format_for_Japanese csEUCPkdFmtJapanese
11806 EUC-JP }
11807 { Extended_UNIX_Code_Fixed_Width_for_Japanese csEUCFixWidJapanese }
11808 { ISO-10646-UCS-Basic csUnicodeASCII }
11809 { ISO-10646-Unicode-Latin1 csUnicodeLatin1 ISO-10646 }
11810 { ISO-Unicode-IBM-1261 csUnicodeIBM1261 }
11811 { ISO-Unicode-IBM-1268 csUnicodeIBM1268 }
11812 { ISO-Unicode-IBM-1276 csUnicodeIBM1276 }
11813 { ISO-Unicode-IBM-1264 csUnicodeIBM1264 }
11814 { ISO-Unicode-IBM-1265 csUnicodeIBM1265 }
11815 { ISO-8859-1-Windows-3.0-Latin-1 csWindows30Latin1 }
11816 { ISO-8859-1-Windows-3.1-Latin-1 csWindows31Latin1 }
11817 { ISO-8859-2-Windows-Latin-2 csWindows31Latin2 }
11818 { ISO-8859-9-Windows-Latin-5 csWindows31Latin5 }
11819 { Adobe-Standard-Encoding csAdobeStandardEncoding }
11820 { Ventura-US csVenturaUS }
11821 { Ventura-International csVenturaInternational }
11822 { PC8-Danish-Norwegian csPC8DanishNorwegian }
11823 { PC8-Turkish csPC8Turkish }
11824 { IBM-Symbols csIBMSymbols }
11825 { IBM-Thai csIBMThai }
11826 { HP-Legal csHPLegal }
11827 { HP-Pi-font csHPPiFont }
11828 { HP-Math8 csHPMath8 }
11829 { Adobe-Symbol-Encoding csHPPSMath }
11830 { HP-DeskTop csHPDesktop }
11831 { Ventura-Math csVenturaMath }
11832 { Microsoft-Publishing csMicrosoftPublishing }
11833 { Windows-31J csWindows31J }
11834 { GB2312 csGB2312 }
11835 { Big5 csBig5 }
11836 }
11838 proc tcl_encoding {enc} {
11839 global encoding_aliases tcl_encoding_cache
11842 }
11843 set names [encoding names]
11848 # look for "isonnn" instead of "iso-nnn" or "iso_nnn"
11851 }
11852 }
11857 # look through the aliases for one that tcl knows about
11863 }
11864 }
11866 }
11867 break
11868 }
11869 }
11870 set tclenc {}
11873 }
11876 }
11878 proc gitattr {path attr default} {
11879 global path_attr_cache
11882 } else {
11883 set r "unspecified"
11886 }
11888 }
11891 }
11893 }
11895 proc cache_gitattr {attr pathlist} {
11896 global path_attr_cache
11897 set newlist {}
11901 }
11902 }
11903 set lim 1000
11904 if {[tk windowingsystem] == "win32"} {
11905 # windows has a 32k limit on the arguments to a command...
11906 set lim 30
11907 }
11916 }
11918 }
11919 }
11920 }
11921 }
11922 }
11924 proc get_path_encoding {path} {
11925 global gui_encoding perfile_attrs
11931 }
11932 }
11934 }
11936 # First check that Tcl/Tk is recent enough
11937 if {[catch {package require Tk 8.4} err]} {
11938 show_error {} . "Sorry, gitk cannot run with this version of Tcl/Tk.\n\
11939 Gitk requires at least Tcl/Tk 8.4." list
11940 exit 1
11941 }
11943 # on OSX bring the current Wish process window to front
11944 if {[tk windowingsystem] eq "aqua"} {
11945 exec osascript -e [format {
11946 tell application "System Events"
11947 set frontmost of processes whose unix id is %d to true
11948 end tell
11949 } [pid] ]
11950 }
11952 # Unset GIT_TRACE var if set
11953 if { [info exists ::env(GIT_TRACE)] } {
11954 unset ::env(GIT_TRACE)
11955 }
11957 # defaults...
11958 set wrcomcmd "git diff-tree --stdin -p --pretty"
11960 set gitencoding {}
11961 catch {
11962 set gitencoding [exec git config --get i18n.commitencoding]
11963 }
11964 catch {
11965 set gitencoding [exec git config --get i18n.logoutputencoding]
11966 }
11968 set gitencoding "utf-8"
11969 }
11973 }
11975 set gui_encoding [encoding system]
11976 catch {
11977 set enc [exec git config --get gui.encoding]
11982 } else {
11984 }
11985 }
11986 }
11988 set log_showroot true
11989 catch {
11990 set log_showroot [exec git config --bool --get log.showroot]
11991 }
11993 if {[tk windowingsystem] eq "aqua"} {
11994 set mainfont {{Lucida Grande} 9}
11995 set textfont {Monaco 9}
11996 set uifont {{Lucida Grande} 9 bold}
11998 # fontconfig!
11999 set mainfont {sans 9}
12000 set textfont {monospace 9}
12001 set uifont {sans 9 bold}
12002 } else {
12003 set mainfont {Helvetica 9}
12004 set textfont {Courier 9}
12005 set uifont {Helvetica 9 bold}
12006 }
12007 set tabstop 8
12008 set findmergefiles 0
12009 set maxgraphpct 50
12010 set maxwidth 16
12011 set revlistorder 0
12012 set fastdate 0
12013 set uparrowlen 5
12014 set downarrowlen 5
12015 set mingaplen 100
12016 set cmitmode "patch"
12017 set wrapcomment "none"
12018 set showneartags 1
12019 set hideremotes 0
12020 set maxrefs 20
12021 set maxlinelen 200
12022 set showlocalchanges 1
12023 set limitdiffs 1
12024 set datetimeformat "%Y-%m-%d %H:%M:%S"
12025 set autoselect 1
12026 set autosellen 40
12027 set perfile_attrs 0
12028 set want_ttk 1
12030 if {[tk windowingsystem] eq "aqua"} {
12031 set extdifftool "opendiff"
12032 } else {
12033 set extdifftool "meld"
12034 }
12036 set colors {green red blue magenta darkgrey brown orange}
12037 if {[tk windowingsystem] eq "win32"} {
12038 set uicolor SystemButtonFace
12039 set uifgcolor SystemButtonText
12040 set uifgdisabledcolor SystemDisabledText
12041 set bgcolor SystemWindow
12042 set fgcolor SystemWindowText
12043 set selectbgcolor SystemHighlight
12044 } else {
12045 set uicolor grey85
12046 set uifgcolor black
12047 set uifgdisabledcolor "#999"
12048 set bgcolor white
12049 set fgcolor black
12050 set selectbgcolor gray85
12051 }
12052 set diffcolors {red "#00a000" blue}
12053 set diffcontext 3
12054 set mergecolors {red blue green purple brown "#009090" magenta "#808000" "#009000" "#ff0080" cyan "#b07070" "#70b0f0" "#70f0b0" "#f0b070" "#ff70b0"}
12055 set ignorespace 0
12056 set worddiff ""
12057 set markbgcolor "#e0e0ff"
12059 set headbgcolor green
12060 set headfgcolor black
12061 set headoutlinecolor black
12062 set remotebgcolor #ffddaa
12063 set tagbgcolor yellow
12064 set tagfgcolor black
12065 set tagoutlinecolor black
12066 set reflinecolor black
12067 set filesepbgcolor #aaaaaa
12068 set filesepfgcolor black
12069 set linehoverbgcolor #ffff80
12070 set linehoverfgcolor black
12071 set linehoveroutlinecolor black
12072 set mainheadcirclecolor yellow
12073 set workingfilescirclecolor red
12074 set indexcirclecolor green
12075 set circlecolors {white blue gray blue blue}
12076 set linkfgcolor blue
12078 set foundbgcolor yellow
12079 set currentsearchhitbgcolor orange
12081 # button for popping up context menus
12082 if {[tk windowingsystem] eq "aqua"} {
12083 set ctxbut <Button-2>
12084 } else {
12085 set ctxbut <Button-3>
12086 }
12088 ## For msgcat loading, first locate the installation location.
12089 if { [info exists ::env(GITK_MSGSDIR)] } {
12090 ## Msgsdir was manually set in the environment.
12091 set gitk_msgsdir $::env(GITK_MSGSDIR)
12092 } else {
12093 ## Let's guess the prefix from argv0.
12097 }
12099 ## Internationalization (i18n) through msgcat and gettext. See
12100 ## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
12101 package require msgcat
12102 namespace import ::msgcat::mc
12103 ## And eventually load the actual message catalog
12106 catch {
12107 # follow the XDG base directory specification by default. See
12108 # http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html
12110 # XDG_CONFIG_HOME environment variable is set
12113 } else {
12114 # default XDG_CONFIG_HOME
12115 set config_file "~/.config/git/gitk"
12116 set config_file_tmp "~/.config/git/gitk-tmp"
12117 }
12119 # for backward compatibility use the old config file if it exists
12120 if {[file exists "~/.gitk"]} {
12121 set config_file "~/.gitk"
12122 set config_file_tmp "~/.gitk-tmp"
12125 }
12126 }
12128 }
12131 eval font create mainfont [fontflags mainfont]
12132 eval font create mainfontbold [fontflags mainfont 1]
12135 eval font create textfont [fontflags textfont]
12136 eval font create textfontbold [fontflags textfont 1]
12139 eval font create uifont [fontflags uifont]
12143 setoptions
12145 # check that we can find a .git directory somewhere...
12146 if {[catch {set gitdir [exec git rev-parse --git-dir]}]} {
12147 show_error {} . [mc "Cannot find a git repository here."]
12148 exit 1
12149 }
12151 set selecthead {}
12152 set selectheadid {}
12154 set revtreeargs {}
12155 set cmdline_files {}
12156 set i 0
12157 set revtreeargscmd {}
12160 "" { }
12161 "--" {
12163 break
12164 }
12165 "--select-commit=*" {
12167 }
12168 "--argscmd=*" {
12170 }
12171 default {
12173 }
12174 }
12175 incr i
12176 }
12179 set selecthead {}
12180 }
12183 # no -- on command line, but some arguments (other than --argscmd)
12184 if {[catch {
12189 # Unfortunately git rev-parse doesn't produce an error when
12190 # something is both a revision and a filename. To be consistent
12191 # with git log and git rev-list, check revtreeargs for filenames.
12194 show_error {} . [mc "Ambiguous argument '%s': both revision\
12196 exit 1
12197 }
12198 }
12199 } err]} {
12201 # so look for "fatal:".
12205 }
12207 exit 1
12208 }
12209 }
12211 set nullid "0000000000000000000000000000000000000000"
12212 set nullid2 "0000000000000000000000000000000000000001"
12213 set nullfile "/dev/null"
12216 if {![info exists have_ttk]} {
12217 set have_ttk [llength [info commands ::ttk::style]]
12218 }
12222 regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
12224 set show_notes {}
12226 set show_notes "--show-notes"
12227 }
12229 set appname "gitk"
12231 set runq {}
12232 set history {}
12233 set historyindex 0
12234 set fh_serial 0
12235 set nhl_names {}
12236 set highlight_paths {}
12237 set findpattern {}
12238 set searchdirn -forwards
12239 set boldids {}
12240 set boldnameids {}
12241 set diffelide {0 0}
12242 set markingmatches 0
12243 set linkentercount 0
12244 set need_redisplay 0
12245 set nrows_drawn 0
12246 set firsttabstop 0
12248 set nextviewnum 1
12249 set curview 0
12250 set selectedview 0
12251 set selectedhlview [mc "None"]
12252 set highlight_related [mc "None"]
12253 set highlight_files {}
12254 set viewfiles(0) {}
12255 set viewperm(0) 0
12256 set viewargs(0) {}
12257 set viewargscmd(0) {}
12259 set selectedline {}
12260 set numcommits 0
12261 set loginstance 0
12262 set cmdlineok 0
12263 set stopped 0
12264 set stuffsaved 0
12265 set patchnum 0
12266 set lserial 0
12267 set hasworktree [hasworktree]
12268 set cdup {}
12269 if {[expr {[exec git rev-parse --is-inside-work-tree] == "true"}]} {
12270 set cdup [exec git rev-parse --show-cdup]
12271 }
12272 set worktree [exec git rev-parse --show-toplevel]
12273 setcoords
12274 makewindow
12277 } else {
12278 catch {
12279 image create photo gitlogo -width 16 -height 16
12281 image create photo gitlogominus -width 4 -height 2
12282 gitlogominus put #C00000 -to 0 0 4 2
12283 gitlogo copy gitlogominus -to 1 5
12284 gitlogo copy gitlogominus -to 6 5
12285 gitlogo copy gitlogominus -to 11 5
12286 image delete gitlogominus
12288 image create photo gitlogoplus -width 4 -height 4
12289 gitlogoplus put #008000 -to 1 0 3 4
12290 gitlogoplus put #008000 -to 0 1 4 3
12291 gitlogo copy gitlogoplus -to 1 9
12292 gitlogo copy gitlogoplus -to 6 9
12293 gitlogo copy gitlogoplus -to 11 9
12294 image delete gitlogoplus
12296 image create photo gitlogo32 -width 32 -height 32
12297 gitlogo32 copy gitlogo -zoom 2 2
12299 wm iconphoto . -default gitlogo gitlogo32
12300 }
12301 }
12302 # wait for the window to become visible
12303 tkwait visibility .
12305 update
12306 readrefs
12309 # create a view for the files/dirs specified on the command line
12310 set curview 1
12311 set selectedview 1
12312 set nextviewnum 2
12313 set viewname(1) [mc "Command line"]
12317 set viewperm(1) 0
12318 set vdatemode(1) 0
12319 addviewmenu 1
12320 .bar.view entryconf [mca "Edit view..."] -state normal
12321 .bar.view entryconf [mca "Delete view"] -state normal
12322 }
12324 if {[info exists permviews]} {
12327 incr nextviewnum
12334 }
12335 }
12337 if {[tk windowingsystem] eq "win32"} {
12338 focus -force .
12339 }
12341 getcommits {}
12343 # Local variables:
12344 # mode: tcl
12345 # indent-tabs-mode: t
12346 # tab-width: 8
12347 # End: