Differences From Artifact [29a70daedf]:
- Executable file src/eskil.tcl — part of check-in [33444179f9] at 2008-02-04 07:42:45 on branch trunk — Use ttk::label. Wrapper fro label until completely changed. Se tab style fo handle 8.5 text widget. (user: peter size: 121983)
To Artifact [17ceba3bdb]:
- Executable file src/eskil.tcl — part of check-in [7d9d5a8105] at 2008-02-06 17:32:36 on branch trunk — Fixed a bug in patch view. A change last in patch was missed. (user: peter size: 122286)
| ︙ | |||
923 924 925 926 927 928 929 930 931 932 933 934 935 936 | 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 | + + + + + + + + |
if {$rmode == "+"} {
insertLine $top 2 $rline $rstr new2
emptyLine $top 1
incr rightc
addMapLines $top 1
continue
}
}
# If the patch ended with a change block, display it.
if {[llength $lblock] > 0 || [llength $rblock] > 0} {
set ::doingLine1 $lblockl
set ::doingLine2 $rblockl
addMapLines $top [insertMatchingBlocks $top $lblock $rblock]
set lblock {}
set rblock {}
}
}
# Read a patch file and display it
proc displayPatch {top} {
global Pref
|
| ︙ |