Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
李少辉-开发者
git
提交
5ad588de
G
git
项目概览
李少辉-开发者
/
git
与 Fork 源项目一致
从无法访问的项目Fork
通知
2
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
G
git
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
5ad588de
编写于
5月 10, 2005
作者:
P
Paul Mackerras
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Display the list of changed files in a listbox pane.
上级
0327d27a
变更
1
显示空白变更内容
内联
并排
Showing
1 changed file
with
66 addition
and
8 deletion
+66
-8
gitk
gitk
+66
-8
未找到文件。
gitk
浏览文件 @
5ad588de
...
...
@@ -7,7 +7,7 @@ exec wish "$0" -- "${1+$@}"
# and distributed under the terms of the GNU General Public Licence,
# either version 2, or
(
at your option
)
any later version.
# CVS $Revision: 1.
2
$
# CVS $Revision: 1.
3
$
set datemode 0
set boldnames 0
...
...
@@ -108,8 +108,22 @@ proc readcommit {id} {
set commitsummary
(
$id
)
[
list $headline $auname $audate
]
}
proc gettreediffs
{
id
}
{
global treediffs parents
set p
[
lindex $parents
(
$id
)
0
]
set diff
{}
foreach line
[
split
[
exec git-diff-tree -r $p $id
]
"
\n
"
]
{
set type
[
lindex $line 1
]
set file
[
lindex $line 3
]
if
{
$type
==
"blob"
}
{
lappend diff $file
}
}
set treediffs
(
$id
)
$diff
}
proc makewindow
{}
{
global canv linespc charspc ctext
global canv linespc charspc ctext
cflist
panedwindow .ctop -orient vertical
frame .ctop.clist
set canv .ctop.clist.canv
...
...
@@ -121,10 +135,15 @@ proc makewindow {} {
pack $canv -side bottom -fill both -expand 1
.ctop add .ctop.clist
#pack .ctop.clist -side top -fill both -expand 1
set ctext .ctop.ctext
text $ctext -bg white
.ctop add .ctop.ctext
panedwindow .ctop.cdet -orient horizontal
.ctop add .ctop.cdet
set ctext .ctop.cdet.ctext
text $ctext -bg white -state disabled
.ctop.cdet add $ctext
#pack $ctext -side top -fill x -expand 1
set cflist .ctop.cdet.cfiles
listbox $cflist -width 30 -bg white
.ctop.cdet add $cflist
pack .ctop -side top -fill both -expand 1
bind $canv <1>
{
selcanvline %x %y
}
...
...
@@ -138,8 +157,8 @@ proc makewindow {} {
bind . <Key-Delete>
"
$canv
yview scroll -1 p"
bind . <Key-BackSpace>
"
$canv
yview scroll -1 p"
bind . <Key-space>
"
$canv
yview scroll 1 p"
bind . <Key-Up>
"
$canv
yview scroll -1 u
"
bind . <Key-Down>
"
$canv
yview scroll 1 u
"
bind . <Key-Up>
"
selnextline -1
"
bind . <Key-Down>
"
selnextline 1
"
bind . Q
"set stopped 1; destroy ."
}
...
...
@@ -164,7 +183,7 @@ proc truncatetofit {str width font} {
proc drawgraph
{
start
}
{
global parents children nparents nchildren commits
global canv mainfont namefont canvx0 canvy0 linespc namex datex
global canv mainfont namefont canvx0 canvy0
canvy
linespc namex datex
global datemode cdate
global lineid linehtag linentag linedtag commitsummary
...
...
@@ -388,17 +407,56 @@ proc selcanvline {x y} {
set l 0
}
if
{[
info exists selectedline
]
&& $selectedline == $l
}
return
selectline $l
}
proc selectline
{
l
}
{
global canv ctext commitinfo selectedline lineid linehtag
global canvy canvy0 linespc nparents
global cflist treediffs
if
{
!
[
info exists lineid
(
$l
)]
|| !
[
info exists linehtag
(
$l
)]}
return
$canv select clear
$canv select from $linehtag
(
$l
)
0
$canv select to $linehtag
(
$l
)
end
set y
[
expr
{
$canvy0
+ $l * $linespc
}]
set ytop
[
expr
{(
$y
- $linespc / 2.0
)
/ $canvy
}]
set ybot
[
expr
{(
$y
+ $linespc / 2.0
)
/ $canvy
}]
set wnow
[
$canv
yview
]
if
{
$ytop
<
[
lindex $wnow 0
]}
{
$canv
yview moveto $ytop
}
elseif
{
$ybot
>
[
lindex $wnow 1
]}
{
set wh
[
expr
{[
lindex $wnow 1
]
-
[
lindex $wnow 0
]}]
$canv
yview moveto
[
expr
{
$ybot
- $wh
}]
}
set selectedline $l
set id $lineid
(
$l
)
$ctext conf -state normal
$ctext delete 0.0 end
set info $commitinfo
(
$id
)
$ctext insert end
"Author:
[
lindex $info 1
]
\t
[
lindex $info 2
]
\n
"
$ctext insert end
"Committer:
[
lindex $info 3
]
\t
[
lindex $info 4
]
\n
"
$ctext insert end
"
\n
"
$ctext insert end
[
lindex $info 0
]
$ctext conf -state disabled
$cflist delete 0 end
if
{
$nparents
(
$id
)
== 1
}
{
if
{
!
[
info exists treediffs
(
$id
)]}
{
gettreediffs $id
}
foreach f $treediffs
(
$id
)
{
$cflist
insert end $f
}
}
}
proc selnextline
{
dir
}
{
global selectedline
if
{
!
[
info exists selectedline
]}
return
set l
[
expr $selectedline + $dir
]
selectline $l
}
getcommits $revtreeargs
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录