Fix in Tools::CodeHighlightingService>>#setHighlightedCode:elements:
Care for textView #cursorLine being nil or 0 (zero). I (JV) don't know when this
happens but apparently it can happen.
--- a/Tools__CodeHighlightingService.st Tue Jan 20 14:18:44 2015 +0100
+++ b/Tools__CodeHighlightingService.st Tue Jan 20 15:20:04 2015 +0100
@@ -364,7 +364,7 @@
textView list:newLines.
] ifFalse:[
"/ the cursor line first - that's where your eyes are ...
- (l := textView cursorLine) notNil ifTrue:[
+ ((l := textView cursorLine) notNil and:[l between: 1 and: newLines size]) ifTrue:[
l <= newLines size ifTrue:[
replaceAction value:l value:(newLines at:l)
]
@@ -385,20 +385,20 @@
"Created: / 14-02-2010 / 16:10:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (format): / 21-08-2011 / 09:38:22 / cg"
"Modified: / 01-02-2012 / 19:18:00 / jv"
- "Modified: / 16-10-2014 / 12:28:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 20-01-2015 / 15:17:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!CodeHighlightingService class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.51 2014-11-27 15:45:33 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.52 2015-01-20 14:20:04 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.51 2014-11-27 15:45:33 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.52 2015-01-20 14:20:04 vrany Exp $'
!
version_SVN
- ^ '$Id: Tools__CodeHighlightingService.st,v 1.51 2014-11-27 15:45:33 vrany Exp $'
+ ^ '$Id: Tools__CodeHighlightingService.st,v 1.52 2015-01-20 14:20:04 vrany Exp $'
! !