hg/stx-libwidg: comparison EditTextView.st

equal deleted inserted replaced

-:6ad643669cc1
+:c029273f7660
 after the last line"
 |line col nLines wasOn|
 lines notNil ifTrue:[
-	wasOn := self hideCursor.
+wasOn := self hideCursor.
-	nLines := lines size.
+nLines := lines size.
-	line := cursorLine.
+line := cursorLine.
-	col := cursorCol.
+col := cursorCol.
-	lines keysAndValuesDo:[:i :l |
+lines keysAndValuesDo:[:i :l |
-	    self replaceString:l atLine:line col:col.
+self replaceString:(l ? '') atLine:line col:col.
-	    (i ~~ nLines or:[withCr]) ifTrue:[
+(i ~~ nLines or:[withCr]) ifTrue:[
-		line := line + 1.
+line := line + 1.
-		col := 1.
+col := 1.
-	    ] ifFalse:[
+] ifFalse:[
-		col := col + (l size).
+col := col + (l size).
-	    ]
+]
-	].
+].
-	self cursorLine:line col:col.
+self cursorLine:line col:col.
-	self makeCursorVisibleAndShowCursor:wasOn.
+self makeCursorVisibleAndShowCursor:wasOn.
-	"/ wasOn ifTrue:[self showCursor].
+"/ wasOn ifTrue:[self showCursor].
 ]
-"Created: / 18.5.1996 / 15:32:06 / cg"
+"Created: / 18-05-1996 / 15:32:06 / cg"
-"Modified: / 12.6.1998 / 22:05:51 / cg"
+"Modified: / 25-07-2013 / 17:00:53 / cg"
 !
 replaceSelectionBy:something
 "delete the selection (if any) and insert something, a character or string;
 leave cursor after insertion"
 ! !
 !EditTextView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.557 2013-07-08 13:43:20 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.558 2013-07-25 19:32:21 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.557 2013-07-08 13:43:20 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.558 2013-07-25 19:32:21 cg Exp $'
 ! !

changeset 4661	c029273f7660
parent 4649	1b1db54a3d29
child 4664	f09d5587253f