--- a/ListView.st	Fri Sep 26 12:25:34 2014 +0200
+++ b/ListView.st	Sat Nov 22 11:38:13 2014 +0100
@@ -9,6 +9,8 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+'From Smalltalk/X, Version:6.2.5.0 on 22-11-2014 at 11:34:28'                   !
+
 "{ Package: 'stx:libwidg' }"
 
 View subclass:#ListView
@@ -36,7 +38,8 @@
 !
 
 Object subclass:#SearchSpec
-	instanceVariableNames:'pattern match ignoreCase variable fullWord forward'
+	instanceVariableNames:'pattern match ignoreCase variable fullWord forward
+		atBeginOfLineOnly'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:ListView
@@ -5197,6 +5200,14 @@
 
 !ListView::SearchSpec methodsFor:'accessing'!
 
+atBeginOfLineOnly
+    ^ atBeginOfLineOnly ? false
+!
+
+atBeginOfLineOnly:something
+    atBeginOfLineOnly := something.
+!
+
 forward
     ^ forward ? true
 !
@@ -5256,6 +5267,18 @@
     forward := forwardBoolean
 !
 
+pattern:patternString ignoreCase:ignoredCaseBoolean match:matchBoolean variable:variableBoolen 
+                      fullWord:fullWordBoolen forward:forwardBoolean
+                      atBeginOfLineOnly:atBeginOfLineOnlyArg
+    pattern := patternString.
+    ignoreCase := ignoredCaseBoolean.
+    match := matchBoolean.
+    variable := variableBoolen.
+    fullWord := fullWordBoolen.
+    forward := forwardBoolean.
+    atBeginOfLineOnly := atBeginOfLineOnlyArg
+!
+
 variable
     ^ variable
 !
@@ -5267,10 +5290,10 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.391.2.2 2014-09-26 10:25:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.391.2.3 2014-11-22 10:38:13 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.391.2.2 2014-09-26 10:25:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.391.2.3 2014-11-22 10:38:13 stefan Exp $'
 ! !