FileApplicationNoteBook.st
changeset 13298 0e2817ce7e77
parent 13295 30d3cb0c4f6c
child 13330 02d6c2d848a0
child 13377 2f8afe7d9426
--- a/FileApplicationNoteBook.st	Tue Aug 06 10:38:10 2013 +0200
+++ b/FileApplicationNoteBook.st	Tue Aug 06 10:38:55 2013 +0200
@@ -5243,7 +5243,7 @@
     new := '<A HREF="xxx">',editView selectionAsString,'</A>'.
     editView 
         undoableDo:[
-            editView replaceSelectionBy:new
+            editView replaceSelectionBy:new keepCursor:false select:true
         ]
         info:'Add Anchor'
 
@@ -5297,7 +5297,7 @@
     ].
     editView 
         undoableDo:[
-            editView replaceSelectionBy:new
+            editView replaceSelectionBy:new keepCursor:false select:true
         ]
         info:info
 
@@ -7216,10 +7216,10 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.279 2013-08-02 16:23:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.280 2013-08-06 08:38:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.279 2013-08-02 16:23:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.280 2013-08-06 08:38:55 cg Exp $'
 ! !