equal
deleted
inserted
replaced
524 ]. |
524 ]. |
525 key == #Copy ifTrue:[ ^ self copySelection]. |
525 key == #Copy ifTrue:[ ^ self copySelection]. |
526 key == #Paste ifTrue:[ ^ self pasteBuffer]. |
526 key == #Paste ifTrue:[ ^ self pasteBuffer]. |
527 key == #Cmdu ifTrue:[ ^ self undoLast ]. "/ #Undo |
527 key == #Cmdu ifTrue:[ ^ self undoLast ]. "/ #Undo |
528 |
528 |
529 ( #(CursorUp CursorDown CursorRight CursorLeft) |
529 (#(CursorUp CursorDown CursorRight CursorLeft) includes:key) ifTrue:[ |
530 includes:key) ifTrue:[ |
530 sensor := self sensor. |
531 (sensor := self sensor) isNil ifTrue:[ |
531 n := 1 + (sensor compressKeyPressEventsWithKey:key). |
532 n := 1 |
532 sensor shiftDown ifTrue:[ |
533 ] ifFalse:[ |
533 n := n * 10. |
534 n := 1 + (sensor compressKeyPressEventsWithKey:key). |
|
535 sensor shiftDown ifTrue:[ |
|
536 n := n * 10. |
|
537 ]. |
|
538 ]. |
534 ]. |
539 |
535 |
540 key == #CursorUp ifTrue:[ |
536 key == #CursorUp ifTrue:[ |
541 ^ self moveSelectionUp:n |
537 ^ self moveSelectionUp:n |
542 ]. |
538 ]. |