equal
deleted
inserted
replaced
1231 |
1231 |
1232 keyPress:key x:x y:y |
1232 keyPress:key x:x y:y |
1233 "if keyHandler is defined, pass input; otherwise check for leave |
1233 "if keyHandler is defined, pass input; otherwise check for leave |
1234 keys" |
1234 keys" |
1235 |
1235 |
1236 <resource: #keyboard (#DeleteLine #EndOfText)> |
1236 <resource: #keyboard (#Tab #Return #Find #FindNext #FindPrev |
|
1237 #DeleteLine #GotoLine #EndOfLine #EndOfText)> |
1237 |
1238 |
1238 |leave xCol newOffset newWidth s| |
1239 |leave xCol newOffset newWidth s| |
1239 |
1240 |
1240 enabled ifFalse:[ |
1241 enabled ifFalse:[ |
1241 ^ self |
1242 ^ self |
1314 super keyPress:#EndOfLine x:x y:y. |
1315 super keyPress:#EndOfLine x:x y:y. |
1315 ]. |
1316 ]. |
1316 |
1317 |
1317 self resizeOrScroll. |
1318 self resizeOrScroll. |
1318 |
1319 |
1319 "Modified: 6.3.1996 / 15:21:49 / cg" |
1320 "Modified: 7.3.1996 / 13:16:20 / cg" |
1320 ! |
1321 ! |
1321 |
1322 |
1322 resizeOrScroll |
1323 resizeOrScroll |
1323 "helper for keyPress. |
1324 "helper for keyPress. |
1324 Extracted for easier subclass redefinition." |
1325 Extracted for easier subclass redefinition." |
1604 ! ! |
1605 ! ! |
1605 |
1606 |
1606 !EditField class methodsFor:'documentation'! |
1607 !EditField class methodsFor:'documentation'! |
1607 |
1608 |
1608 version |
1609 version |
1609 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.50 1996-03-06 15:21:09 cg Exp $' |
1610 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.51 1996-03-07 12:36:07 cg Exp $' |
1610 ! ! |
1611 ! ! |