Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed mark only when target is located |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 28d704bd29a1e39833d723861e2a675d867bc05b |
| User & Date: | dennis 2000-06-18 00:37:53 |
Context
|
2000-07-27
| ||
| 21:32 | Added support for wrapping check-in: e7c784832e user: dennis tags: trunk | |
|
2000-06-18
| ||
| 00:37 | Fixed mark only when target is located check-in: 28d704bd29 user: dennis tags: trunk | |
|
2000-06-17
| ||
| 22:54 | New stylish look check-in: e6a7a0269b user: dennis tags: trunk | |
Changes
Changes to lib/flist.tcl.
34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
}
}
proc mark {w tag} {
global lasttag c
c $tag
set y [expr [lindex [$w coords $tag] 1]-2]
$w itemconfigure $lasttag -fill $c(color-listtext)
$w delete marking
$w create rectangle 1 $y 800 [expr $y+15] -tag marking -fill $c(color-listactivebg) -outline $c(color-listactivebg)
$w lower marking
$w itemconfigure $tag -fill $c(color-listactivetext)
set lasttag $tag
}
proc click {w tag} {
c
mark $w $tag
}
|
> > > |
34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 |
}
}
proc mark {w tag} {
global lasttag c
c $tag
set y [expr [lindex [$w coords $tag] 1]-2]
if {$y>=0} {
$w itemconfigure $lasttag -fill $c(color-listtext)
$w delete marking
$w create rectangle 1 $y 800 [expr $y+15] -tag marking -fill $c(color-listactivebg) -outline $c(color-listactivebg)
$w lower marking
$w itemconfigure $tag -fill $c(color-listactivetext)
set lasttag $tag
}
}
proc click {w tag} {
c
mark $w $tag
}
|