equal
deleted
inserted
replaced
931 list:something |
931 list:something |
932 "position cursor home when setting contents" |
932 "position cursor home when setting contents" |
933 |
933 |
934 |prevCursorLine prevCursorCol| |
934 |prevCursorLine prevCursorCol| |
935 |
935 |
|
936 undoList := redoList := transaction := nil. |
|
937 |
936 prevCursorLine := cursorLine. |
938 prevCursorLine := cursorLine. |
937 prevCursorCol := cursorCol. |
939 prevCursorCol := cursorCol. |
938 |
940 |
939 super list:something. |
941 super list:something. |
940 |
942 |
955 ^ self cursorLine:prevCursorLine col:1. |
957 ^ self cursorLine:prevCursorLine col:1. |
956 ]. |
958 ]. |
957 |
959 |
958 "/ default: stay where it was |
960 "/ default: stay where it was |
959 "/ self cursorLine:prevCursorLine col:prevCursorCol. |
961 "/ self cursorLine:prevCursorLine col:prevCursorCol. |
960 |
|
961 ! |
962 ! |
962 |
963 |
963 setContents:something |
964 setContents:something |
964 |selType| |
965 |selType| |
|
966 |
|
967 undoList := redoList := transaction := nil. |
965 |
968 |
966 selType := typeOfSelection. |
969 selType := typeOfSelection. |
967 super setContents:something. |
970 super setContents:something. |
968 typeOfSelection := selType. |
971 typeOfSelection := selType. |
969 |
972 |
6008 ! ! |
6011 ! ! |
6009 |
6012 |
6010 !EditTextView class methodsFor:'documentation'! |
6013 !EditTextView class methodsFor:'documentation'! |
6011 |
6014 |
6012 version |
6015 version |
6013 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.347 2004-04-01 21:46:57 cg Exp $' |
6016 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.348 2004-04-01 22:00:19 cg Exp $' |
6014 ! ! |
6017 ! ! |