equal
deleted
inserted
replaced
1116 "remember that the current selection was created by a paste operation |
1116 "remember that the current selection was created by a paste operation |
1117 (as opposed to an explicit selection by the user). |
1117 (as opposed to an explicit selection by the user). |
1118 This selection will not be replaced by followup user input, |
1118 This selection will not be replaced by followup user input, |
1119 so multiple pastes will be possible." |
1119 so multiple pastes will be possible." |
1120 |
1120 |
1121 typeOfSelection := #paste |
1121 self hasSelection ifTrue:[ |
|
1122 typeOfSelection := #paste |
|
1123 ]. |
|
1124 |
|
1125 "Modified: / 02-05-2015 / 21:17:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1122 ! |
1126 ! |
1123 |
1127 |
1124 editModeHolder |
1128 editModeHolder |
1125 ^ editMode. |
1129 ^ editMode. |
1126 ! |
1130 ! |