Tools__CodeHighlightingService.st
changeset 15094 7e80c05b797b
parent 14928 3c11ff12d0bc
child 15447 1bad1d4218b5
--- 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 $'
 ! !