Differences From Artifact [85d78aef67]:
- File src/print.tcl — part of check-in [1ff1004692] at 2013-02-18 22:08:37 on branch trunk — Add .pdf to print file by default (user: peter size: 17672)
To Artifact [644f1382fd]:
- File src/print.tcl — part of check-in [58a58bc4e3] at 2013-09-26 17:04:42 on branch trunk — Fixed error printing patch with only deleted or inserted files. (user: peter size: 17775)
| ︙ | |||
94 95 96 97 98 99 100 101 102 103 104 105 106 107 | 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 | + + + + |
}
return $text
}
# Find the lastnumber in a text widget
proc FindLastNumber {w} {
set index [$w search -backwards -regexp {\d} end]
if {$index eq ""} {
# There where no numbers there, treat it like 0
return 0
}
set line [$w get "$index linestart" "$index lineend"]
#puts "X '$line' '$index'"
regexp {\d+} $line number
return $number
}
# Main print function
|
| ︙ |