equal
deleted
inserted
replaced
5278 ]. |
5278 ]. |
5279 |
5279 |
5280 key := keyArg. |
5280 key := keyArg. |
5281 |
5281 |
5282 typeOfSelection == #paste ifTrue:[ |
5282 typeOfSelection == #paste ifTrue:[ |
5283 "pasted selection will NOT be replaced by keystroke" |
5283 "Pasted selection will NOT be replaced by keystroke (non-standard, St/X feature)" |
5284 self unselect |
5284 |
|
5285 "/ After paste, the cursor is at the beginning to support |
|
5286 "/ paste-cursordown-paste. Compensate for this here - we want |
|
5287 "/ to continue editing after the end of the selection. |
|
5288 "/ This is |
|
5289 cursorLine := selectionEndLine. |
|
5290 cursorCol := selectionEndCol + 1. |
|
5291 |
|
5292 "/ Cursor position set, we can unselect. |
|
5293 self unselect. |
5285 ]. |
5294 ]. |
5286 |
5295 |
5287 selStartLine := selectionStartLine. |
5296 selStartLine := selectionStartLine. |
5288 selStartCol := self selectionStartCol. |
5297 selStartCol := self selectionStartCol. |
5289 selEndLine := selectionEndLine. |
5298 selEndLine := selectionEndLine. |
5381 ]. |
5390 ]. |
5382 ]. |
5391 ]. |
5383 self handleCompletionService |
5392 self handleCompletionService |
5384 |
5393 |
5385 "Modified (comment): / 25-01-2012 / 00:30:11 / cg" |
5394 "Modified (comment): / 25-01-2012 / 00:30:11 / cg" |
|
5395 "Modified: / 30-08-2013 / 20:10:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5386 ! |
5396 ! |
5387 |
5397 |
5388 keyPress:key x:x y:y |
5398 keyPress:key x:x y:y |
5389 "handle keyboard input" |
5399 "handle keyboard input" |
5390 |
5400 |