class: FileApplicationNoteBook
authorClaus Gittinger <cg@exept.de>
Sat, 07 Feb 2015 15:27:49 +0100
changeset 15218 2401b6bf1879
parent 15217 d815d45f3c53
child 15219 f05465a64087
class: FileApplicationNoteBook when searching for a matched pattern, start the search from the top.
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Sat Feb 07 15:22:03 2015 +0100
+++ b/FileApplicationNoteBook.st	Sat Feb 07 15:27:49 2015 +0100
@@ -5921,6 +5921,7 @@
 
     pattern := aContentsPattern string withoutSeparators. "/ is that a good idea ?
     pattern notEmpty ifTrue:[
+        editView perform:#cursorHome ifNotUnderstood:[].
         editView rememberSearchPattern:pattern.
         editView searchFwd:pattern ignoreCase:ign.
     ]
@@ -7497,10 +7498,10 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.313 2015-02-06 23:10:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.314 2015-02-07 14:27:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.313 2015-02-06 23:10:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.314 2015-02-07 14:27:49 cg Exp $'
 ! !