#FEATURE
authorClaus Gittinger <cg@exept.de>
Fri, 15 Jan 2016 20:08:18 +0100
changeset 5544 50fae0f51891
parent 5543 39eb7c59b271
child 5545 4b4d80af79c2
#FEATURE class: ListView wrap search flag
ListView.st
--- a/ListView.st	Fri Jan 15 17:59:06 2016 +0100
+++ b/ListView.st	Fri Jan 15 20:08:18 2016 +0100
@@ -39,7 +39,7 @@
 
 Object subclass:#SearchSpec
 	instanceVariableNames:'pattern match ignoreCase variable fullWord forward
-		atBeginOfLineOnly ignoreDiacritics regexMatch wrapAroundEndOfText'
+		atBeginOfLineOnly ignoreDiacritics regexMatch wrapAtEndOfText'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:ListView
@@ -5311,7 +5311,7 @@
           variable:variableBoolen 
           fullWord:fullWordBoolen forward:forwardBoolean
           atBeginOfLineOnly:atBeginOfLineOnlyArg
-          wrapAroundEndOfText:wrapAroundEndOfTextArg
+          wrapAtEnd:wrapAtEndOfTextArg
     pattern := patternString.
     ignoreCase := ignoredCaseBoolean.
     match := matchBoolean.
@@ -5320,7 +5320,7 @@
     fullWord := fullWordBoolen.
     forward := forwardBoolean.
     atBeginOfLineOnly := atBeginOfLineOnlyArg.
-    wrapAroundEndOfText := wrapAroundEndOfTextArg
+    wrapAtEndOfText := wrapAtEndOfTextArg.
 !
 
 pattern:patternString ignoreCase:ignoredCaseBoolean match:matchBoolean variable:variableBoolen forward:forwardBoolean
@@ -5368,12 +5368,12 @@
     variable := variableBoolean
 !
 
-wrapAroundEndOfText
-    ^ wrapAroundEndOfText
-!
-
-wrapAroundEndOfText:something
-    wrapAroundEndOfText := something.
+wrapAtEndOfText
+    ^ wrapAtEndOfText
+!
+
+wrapAtEndOfText:aBoolean
+    wrapAtEndOfText := aBoolean.
 ! !
 
 !ListView class methodsFor:'documentation'!