mirror of
https://github.com/gnustep/libs-gui.git
synced 2025-04-23 03:11:18 +00:00
Implemented moveBackwardsAndModifySelection: and moveForwardAndModifySelection:
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gui/trunk@12410 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
parent
9532b29b88
commit
f1dd23a32f
1 changed files with 45 additions and 0 deletions
|
@ -2551,6 +2551,51 @@ afterString in order over charRange. */
|
|||
[self setSelectedRange: NSMakeRange (newLocation, 0)];
|
||||
}
|
||||
|
||||
- (void) moveBackwardAndModifySelection: (id)sender
|
||||
{
|
||||
NSRange newRange;
|
||||
|
||||
/* Do nothing if we are at beginning of text. */
|
||||
if (_selected_range.location == 0)
|
||||
{
|
||||
return;
|
||||
}
|
||||
|
||||
/* Turn to select by character. */
|
||||
[self setSelectionGranularity: NSSelectByCharacter];
|
||||
|
||||
/* Extend the selection on the left. */
|
||||
newRange = NSMakeRange (_selected_range.location - 1,
|
||||
_selected_range.length + 1);
|
||||
|
||||
newRange = [self selectionRangeForProposedRange: newRange
|
||||
granularity: NSSelectByCharacter];
|
||||
|
||||
[self setSelectedRange: newRange];
|
||||
}
|
||||
|
||||
- (void) moveForwardAndModifySelection: (id)sender
|
||||
{
|
||||
unsigned int length = [_textStorage length];
|
||||
NSRange newRange;
|
||||
|
||||
/* Do nothing if we are at end of text */
|
||||
if (_selected_range.location == length)
|
||||
return;
|
||||
|
||||
/* Turn to select by character. */
|
||||
[self setSelectionGranularity: NSSelectByCharacter];
|
||||
|
||||
/* Extend the selection on the right. */
|
||||
newRange = NSMakeRange (_selected_range.location,
|
||||
_selected_range.length + 1);
|
||||
|
||||
newRange = [self selectionRangeForProposedRange: newRange
|
||||
granularity: NSSelectByCharacter];
|
||||
|
||||
[self setSelectedRange: newRange];
|
||||
}
|
||||
|
||||
- (void) moveToBeginningOfDocument: (id)sender
|
||||
{
|
||||
[self setSelectedRange: NSMakeRange (0, 0)];
|
||||
|
|
Loading…
Reference in a new issue