--- a/ListView.st	Fri Jan 15 16:47:47 2016 +0100
+++ b/ListView.st	Fri Jan 15 16:55:13 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -41,7 +39,7 @@
 
 Object subclass:#SearchSpec
 	instanceVariableNames:'pattern match ignoreCase variable fullWord forward
-		atBeginOfLineOnly ignoreDiacritics'
+		atBeginOfLineOnly ignoreDiacritics regexMatch wrapAroundEndOfText'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:ListView
@@ -5293,6 +5291,38 @@
     forward := forwardBoolean
 !
 
+pattern:patternString ignoreCase:ignoredCaseBoolean 
+          match:matchBoolean regexMatch:regexMatchBoolean
+          variable:variableBoolen 
+          fullWord:fullWordBoolen forward:forwardBoolean
+          atBeginOfLineOnly:atBeginOfLineOnlyArg
+    pattern := patternString.
+    ignoreCase := ignoredCaseBoolean.
+    match := matchBoolean.
+    regexMatch := regexMatchBoolean.
+    variable := variableBoolen.
+    fullWord := fullWordBoolen.
+    forward := forwardBoolean.
+    atBeginOfLineOnly := atBeginOfLineOnlyArg
+!
+
+pattern:patternString ignoreCase:ignoredCaseBoolean 
+          match:matchBoolean regexMatch:regexMatchBoolean
+          variable:variableBoolen 
+          fullWord:fullWordBoolen forward:forwardBoolean
+          atBeginOfLineOnly:atBeginOfLineOnlyArg
+          wrapAroundEndOfText:wrapAroundEndOfTextArg
+    pattern := patternString.
+    ignoreCase := ignoredCaseBoolean.
+    match := matchBoolean.
+    regexMatch := regexMatchBoolean.
+    variable := variableBoolen.
+    fullWord := fullWordBoolen.
+    forward := forwardBoolean.
+    atBeginOfLineOnly := atBeginOfLineOnlyArg.
+    wrapAroundEndOfText := wrapAroundEndOfTextArg
+!
+
 pattern:patternString ignoreCase:ignoredCaseBoolean match:matchBoolean variable:variableBoolen forward:forwardBoolean
     pattern := patternString.
     ignoreCase := ignoredCaseBoolean.
@@ -5322,12 +5352,28 @@
     atBeginOfLineOnly := atBeginOfLineOnlyArg
 !
 
+regexMatch
+    ^ regexMatch
+!
+
+regexMatch:something
+    regexMatch := something.
+!
+
 variable
     ^ variable
 !
 
 variable:variableBoolean
     variable := variableBoolean
+!
+
+wrapAroundEndOfText
+    ^ wrapAroundEndOfText
+!
+
+wrapAroundEndOfText:something
+    wrapAroundEndOfText := something.
 ! !
 
 !ListView class methodsFor:'documentation'!