|
Line
Link Here
|
| 0 |
-- ding-1.6/ding |
0 |
++ ding-1.6/ding |
|
Lines 3341-3347
Link Here
|
| 3341 |
set cmd "$t tag configure $tag -elide \[expr \[set history_fold($num)($foldcount)\]\]" |
3341 |
set cmd "$t tag configure $tag -elide \[expr \[set history_fold($num)($foldcount)\]\]" |
| 3342 |
checkbutton $t.fold$foldcount -image minus -selectimage plus \ |
3342 |
checkbutton $t.fold$foldcount -image minus -selectimage plus \ |
| 3343 |
-variable history_fold($num)($foldcount) -indicatoron 0 \ |
3343 |
-variable history_fold($num)($foldcount) -indicatoron 0 \ |
| 3344 |
-bd 0 -width 8 -height 8 -selectcolor {} \ |
3344 |
-bd 0 -width 8 -height 8 \ |
| 3345 |
-command $cmd |
3345 |
-command $cmd |
| 3346 |
$t window create end -window $t.fold$foldcount |
3346 |
$t window create end -window $t.fold$foldcount |
| 3347 |
$t insert end " [lindex $l2 $i]\n" $bgtag |
3347 |
$t insert end " [lindex $l2 $i]\n" $bgtag |
