equal
deleted
inserted
replaced
1110 |
1110 |
1111 |newCol txt| |
1111 |newCol txt| |
1112 |
1112 |
1113 newCol := cursorCol. |
1113 newCol := cursorCol. |
1114 |
1114 |
1115 (someText respondsTo:#asString) ifTrue:[ |
1115 someText notNil ifTrue:[ |
1116 txt := someText asString |
1116 (someText respondsTo:#asString) ifTrue:[ |
|
1117 txt := someText asString |
|
1118 ] |
1117 ]. |
1119 ]. |
1118 super contents:txt. |
1120 super contents:txt. |
1119 |
1121 |
1120 cursorMovementWhenUpdating == #endOfLine ifTrue:[ |
1122 cursorMovementWhenUpdating == #endOfLine ifTrue:[ |
1121 newCol := (txt size + 1). |
1123 newCol := (txt size + 1). |
1127 ] |
1129 ] |
1128 ]. |
1130 ]. |
1129 |
1131 |
1130 self cursorCol:newCol. |
1132 self cursorCol:newCol. |
1131 |
1133 |
1132 "Modified: 4.4.1997 / 21:38:24 / cg" |
1134 "Modified: / 13.11.1999 / 13:50:30 / cg" |
1133 ! |
1135 ! |
1134 |
1136 |
1135 converter |
1137 converter |
1136 "return the converter (if any)." |
1138 "return the converter (if any)." |
1137 |
1139 |
2069 ! ! |
2071 ! ! |
2070 |
2072 |
2071 !EditField class methodsFor:'documentation'! |
2073 !EditField class methodsFor:'documentation'! |
2072 |
2074 |
2073 version |
2075 version |
2074 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.145 1999-09-20 10:15:25 cg Exp $' |
2076 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.146 1999-11-13 13:17:41 cg Exp $' |
2075 ! ! |
2077 ! ! |