Bug fix: replace textView list at: with textView listAt: which cares for index being out or range.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 31 Mar 2015 14:52:45 +0100
changeset 451 ef7e8e25df63
parent 450 8b0bf216cc64
child 452 759d04e8d40d
Bug fix: replace textView list at: with textView listAt: which cares for index being out or range.
SmallSense__JavaEditSupport.st
--- a/SmallSense__JavaEditSupport.st	Fri Mar 27 18:17:08 2015 +0000
+++ b/SmallSense__JavaEditSupport.st	Tue Mar 31 14:52:45 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
 stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
 Copyright (C) 2013-2015 Jan Vrany
@@ -266,7 +268,7 @@
     "/ First, check if the cursor is at the end of line, i.e., if
     "/ there's no text after the cursor...
     lineNr := textView cursorLine.
-    line := textView list at: lineNr.
+    line := textView listAt: lineNr.
     i := line size.
     [ i > 0 and:[ (c := line at:i) isSeparator ] ] whileTrue:[ i := i - 1 ].    
     i <= textView cursorCol ifFalse:[ 
@@ -276,7 +278,8 @@
 
     "/ Search for closest non-empty line above
     lineNr := textView cursorLine.
-    [ (line := textView list at: lineNr) isEmptyOrNil and:[lineNr > 0 ] ] whileTrue:[ lineNr := lineNr - 1 ].
+    line := textView listAt: lineNr.
+    [ line isEmptyOrNil and:[lineNr > 0 ] ] whileTrue:[ lineNr := lineNr - 1 ].
     lineNr == 0 ifTrue:[ 
         "/ No such line found, givin up
         ^ false.
@@ -295,7 +298,7 @@
     ^ true
 
     "Created: / 13-08-2014 / 15:30:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 13-08-2014 / 20:38:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-03-2015 / 13:30:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaEditSupport methodsFor:'initialization'!