--- a/TextView.st Mon Feb 13 20:48:37 2017 +0100
+++ b/TextView.st Mon Feb 13 20:48:38 2017 +0100
@@ -1687,7 +1687,7 @@
^ self
].
scanCol notNil ifTrue:[
- "/ if its an EOL comment, do it differently
+ "/ if it's an EOL comment, do it differently
ch := self characterAtLine:clickLine col:clickCol.
ch == $/ ifTrue:[
self selectFromLine:clickLine col:clickCol+1 toLine:clickLine+1 col:0.
@@ -1733,6 +1733,7 @@
"Created: / 11-09-1997 / 04:12:55 / cg"
"Modified: / 14-06-2011 / 14:04:59 / cg"
+ "Modified (format): / 13-02-2017 / 20:32:08 / cg"
!
extendSelectionToX:x y:y
@@ -3759,8 +3760,8 @@
onError:failBlock
"search for a matching parenthesis; start search with character at startLine/startCol.
- Search for the corresponding character is done forward if its an opening,
- backwards if its a closing parenthesis.
+ Search for the corresponding character is done forward if it's an opening,
+ backwards if it's a closing parenthesis.
Evaluate foundBlock with line/col as argument if found, notFoundBlock if not.
If there is a nesting error, evaluate failBlock."
@@ -3772,6 +3773,7 @@
ignoring:(parenthesisSpecification at:#ignore ifAbsent:#()) "/ #( $' $" '$[' '$]' '${' '$)' )
"Modified: / 12-04-2007 / 11:24:24 / cg"
+ "Modified (comment): / 13-02-2017 / 20:32:20 / cg"
!
searchForMatchingParenthesisFromLine:startLine col:startCol
@@ -3781,8 +3783,8 @@
ignoring:ignoreSet
"search for a matching parenthesis; start search with character at startLine/startCol.
- Search for the corresponding character is done forward if its an opening,
- backwards if its a closing parenthesis.
+ Search for the corresponding character is done forward if it's an opening,
+ backwards if it's a closing parenthesis.
Evaluate foundBlock with line/col as argument if found, notFoundBlock if not.
If there is a nesting error, evaluate failBlock."
@@ -3941,6 +3943,7 @@
"/ ^ notFoundBlock value
"Modified: / 12-04-2007 / 11:25:36 / cg"
+ "Modified (comment): / 13-02-2017 / 20:32:30 / cg"
!
searchForMatchingParenthesisFromLine:startLine col:startCol
@@ -3951,8 +3954,8 @@
closingCharacters:closingCharacters
"search for a matching parenthesis; start search with character at startLine/startCol.
- Search for the corresponding character is done forward if its an opening,
- backwards if its a closing parenthesis.
+ Search for the corresponding character is done forward if it's an opening,
+ backwards if it's a closing parenthesis.
Evaluate foundBlock with line/col as argument if found, notFoundBlock if not.
If there is a nesting error, evaluate failBlock."
@@ -4111,6 +4114,7 @@
"/ ^ notFoundBlock value
"Modified: / 12-04-2007 / 11:25:36 / cg"
+ "Modified (comment): / 13-02-2017 / 20:32:36 / cg"
!
searchForMatchingParenthesisFromLine:startLine col:startCol
@@ -4123,8 +4127,8 @@
specialEOLComment:eolCommentSequence
"search for a matching parenthesis; start search with character at startLine/startCol.
- Search for the corresponding character is done forward if its an opening,
- backwards if its a closing parenthesis.
+ Search for the corresponding character is done forward if it's an opening,
+ backwards if it's a closing parenthesis.
Evaluate foundBlock with line/col as argument if found, notFoundBlock if not.
If there is a nesting error, evaluate failBlock."
@@ -4278,7 +4282,8 @@
].
^ notFoundBlock value
- "Modified: 15.10.1996 / 12:22:30 / cg"
+ "Modified: / 15-10-1996 / 12:22:30 / cg"
+ "Modified (comment): / 13-02-2017 / 20:32:43 / cg"
!
searchFwd
@@ -5180,7 +5185,7 @@
endVisLine := self listLineToVisibleLine:endLine
].
- "/ if its only part of a line, just redraw what has to be
+ "/ if it's only part of a line, just redraw what has to be
(startLine == endLine) ifTrue:[
super redrawVisibleLine:startVisLine from:selectionStartCol to:selectionEndCol
@@ -5190,7 +5195,8 @@
].
selectStyle := nil
- "Modified: 29.5.1996 / 14:54:11 / cg"
+ "Modified: / 29-05-1996 / 14:54:11 / cg"
+ "Modified (comment): / 13-02-2017 / 20:32:49 / cg"
!
unselectWithoutRedraw