Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
李少辉-开发者
git
提交
9843c307
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,发现更多精彩内容 >>
提交
9843c307
编写于
8月 30, 2005
作者:
P
Paul Mackerras
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Draw selected graph line thicker and make arrowheads active.
上级
106288cb
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
126 addition
and
19 deletion
+126
-19
gitk
gitk
+126
-19
未找到文件。
gitk
浏览文件 @
9843c307
...
...
@@ -775,6 +775,32 @@ proc bindline {t id} {
$canv bind $t <Button-1>
"lineclick %x %y
$id
1"
}
proc drawlines
{
id xtra
}
{
global mainline mainlinearrow sidelines lthickness colormap canv
$canv delete lines.$id
if
{[
info exists mainline
(
$id
)]}
{
set t
[
$canv
create line $mainline
(
$id
)
\
-width
[
expr
{(
$xtra
+ 1
)
* $lthickness
}]
\
-fill $colormap
(
$id
)
-tags lines.$id
\
-arrow $mainlinearrow
(
$id
)]
$canv
lower $t
bindline $t $id
}
if
{[
info exists sidelines
(
$id
)]}
{
foreach ls $sidelines
(
$id
)
{
set coords
[
lindex $ls 0
]
set thick
[
lindex $ls 1
]
set arrow
[
lindex $ls 2
]
set t
[
$canv
create line $coords -fill $colormap
(
$id
)
\
-width
[
expr
{(
$thick
+ $xtra
)
* $lthickness
}]
\
-arrow $arrow -tags lines.$id
]
$canv
lower $t
bindline $t $id
}
}
}
# level here is an index in displist
proc drawcommitline
{
level
}
{
global parents children nparents displist
...
...
@@ -823,23 +849,8 @@ proc drawcommitline {level} {
if
{
$mainlinearrow
(
$id
)
ne
"none"
}
{
set mainline
(
$id
)
[
trimdiagstart $mainline
(
$id
)]
}
set t
[
$canv
create line $mainline
(
$id
)
\
-width $lthickness -fill $colormap
(
$id
)
\
-arrow $mainlinearrow
(
$id
)]
$canv
lower $t
bindline $t $id
}
if
{[
info exists sidelines
(
$id
)]}
{
foreach ls $sidelines
(
$id
)
{
set coords
[
lindex $ls 0
]
set thick
[
lindex $ls 1
]
set arrow
[
lindex $ls 2
]
set t
[
$canv
create line $coords -fill $colormap
(
$id
)
\
-width
[
expr
{
$thick
* $lthickness
}]
-arrow $arrow
]
$canv
lower $t
bindline $t $id
}
}
drawlines $id 0
set orad
[
expr
{
$linespc
/ 3
}]
set t
[
$canv
create oval
[
expr $x - $orad
]
[
expr $y1 - $orad
]
\
[
expr $x + $orad - 1
]
[
expr $y1 + $orad - 1
]
\
...
...
@@ -2059,6 +2070,7 @@ proc selectline {l isnew} {
global commentend idtags idline linknum
$canv delete hover
normalline
if
{
!
[
info exists lineid
(
$l
)]
|| !
[
info exists linehtag
(
$l
)]}
return
$canv delete secsel
set t
[
eval $canv create rect
[
$canv
bbox $linehtag
(
$l
)]
-outline
{{}}
\
...
...
@@ -3127,15 +3139,102 @@ proc linehover {} {
$canv raise $t
}
proc clickisonarrow
{
id y
}
{
global mainline mainlinearrow sidelines lthickness
set thresh
[
expr
{
2 * $lthickness + 6
}]
if
{[
info exists mainline
(
$id
)]}
{
if
{
$mainlinearrow
(
$id
)
ne
"none"
}
{
if
{
abs
([
lindex $mainline
(
$id
)
1
]
- $y
)
< $thresh
}
{
return
"up"
}
}
}
if
{[
info exists sidelines
(
$id
)]}
{
foreach ls $sidelines
(
$id
)
{
set coords
[
lindex $ls 0
]
set arrow
[
lindex $ls 2
]
if
{
$arrow
eq
"first"
|| $arrow eq
"both"
}
{
if
{
abs
([
lindex $coords 1
]
- $y
)
< $thresh
}
{
return
"up"
}
}
if
{
$arrow
eq
"last"
|| $arrow eq
"both"
}
{
if
{
abs
([
lindex $coords end
]
- $y
)
< $thresh
}
{
return
"down"
}
}
}
}
return
{}
}
proc arrowjump
{
id dirn y
}
{
global mainline sidelines canv
set yt
{}
if
{
$dirn
eq
"down"
}
{
if
{[
info exists mainline
(
$id
)]}
{
set y1
[
lindex $mainline
(
$id
)
1
]
if
{
$y1
> $y
}
{
set yt $y1
}
}
if
{[
info exists sidelines
(
$id
)]}
{
foreach ls $sidelines
(
$id
)
{
set y1
[
lindex $ls 0 1
]
if
{
$y1
> $y &&
(
$yt
eq
{}
|| $y1 < $yt
)}
{
set yt $y1
}
}
}
}
else
{
if
{[
info exists sidelines
(
$id
)]}
{
foreach ls $sidelines
(
$id
)
{
set y1
[
lindex $ls 0 end
]
if
{
$y1
< $y &&
(
$yt
eq
{}
|| $y1 > $yt
)}
{
set yt $y1
}
}
}
}
if
{
$yt
eq
{}}
return
set ymax
[
lindex
[
$canv
cget -scrollregion
]
3
]
if
{
$ymax
eq
{}
|| $ymax <= 0
}
return
set view
[
$canv
yview
]
set yspan
[
expr
{[
lindex $view 1
]
-
[
lindex $view 0
]}]
set yfrac
[
expr
{
$yt
/ $ymax - $yspan / 2
}]
if
{
$yfrac
< 0
}
{
set yfrac 0
}
$canv yview moveto $yfrac
}
proc lineclick
{
x y id isnew
}
{
global ctext commitinfo children cflist canv
global ctext commitinfo children cflist canv
thickerline
unmarkmatches
unselectline
normalline
$canv delete hover
# draw this line thicker than normal
drawlines $id 1
set thickerline $id
if
{
$isnew
}
{
addtohistory
[
list lineclick $x $x $id 0
]
set ymax
[
lindex
[
$canv
cget -scrollregion
]
3
]
if
{
$ymax
eq
{}}
return
set yfrac
[
lindex
[
$canv
yview
]
0
]
set y
[
expr
{
$y
+ $yfrac * $ymax
}]
}
set dirn
[
clickisonarrow $id $y
]
if
{
$dirn
ne
{}}
{
arrowjump $id $dirn $y
return
}
if
{
$isnew
}
{
addtohistory
[
list lineclick $x $y $id 0
]
}
$canv delete hover
# fill the details pane with info about this line
$ctext conf -state normal
$ctext delete 0.0 end
...
...
@@ -3168,6 +3267,14 @@ proc lineclick {x y id isnew} {
$cflist delete 0 end
}
proc normalline
{}
{
global thickerline
if
{[
info exists thickerline
]}
{
drawlines $thickerline 0
unset thickerline
}
}
proc selbyid
{
id
}
{
global idline
if
{[
info exists idline
(
$id
)]}
{
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录