Return to TextSelection.m CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / Draw / textUndo.subproj

Annotation of Examples/AppKit/Draw/textUndo.subproj/TextSelection.m, revision 1.1

1.1     ! root        1: #import "textundo.h"
        !             2: 
        !             3: @implementation TextSelection
        !             4: 
        !             5: /*
        !             6:  * The TextSelection class takes a snapshot of the current selection of
        !             7:  * a Text object. It remembers the position of the selection and records
        !             8:  * the characters in the selection with an RTF stream.
        !             9:  */
        !            10: 
        !            11: - initText:aView
        !            12: {
        !            13:     NXSelPt selStart, selEnd;
        !            14: 
        !            15:     [aView getSel:&selStart :&selEnd];
        !            16:     return [self initText:aView start:selStart.cp end:selEnd.cp];
        !            17: }
        !            18: 
        !            19: - initText:aView start:(int)startPos end:(int)endPos
        !            20: {
        !            21:     [super init];
        !            22: 
        !            23:     text = aView;
        !            24:     start = startPos;
        !            25:     end = endPos;
        !            26: 
        !            27:     selectionChars = (NXStream *) 0;
        !            28: 
        !            29:     if (start == 0 && end == [text textLength]) {
        !            30:        allText = YES;
        !            31:     } else {
        !            32:        allText = NO;
        !            33:     }
        !            34: 
        !            35:     [text getFrame:&frame];
        !            36: 
        !            37:     return self;
        !            38: }
        !            39: 
        !            40: - free
        !            41: {
        !            42:     if (selectionChars) {
        !            43:        NXCloseMemory(selectionChars, NX_FREEBUFFER);
        !            44:     }
        !            45: 
        !            46:     return [super free];
        !            47: }
        !            48: 
        !            49: - (int)clickCount
        !            50: {
        !            51:     return clickCount;
        !            52: }
        !            53: 
        !            54: - setClickCount:(int)value
        !            55: {
        !            56:     clickCount = value;
        !            57:     return self;
        !            58: }
        !            59: 
        !            60: /*
        !            61:  * The Text object doesn't save everything out in writeRichText:from:to: even
        !            62:  * if the bounds specify the entire contents of the object. Things like tab
        !            63:  * stops and margins are missing. However, writeRichText: does a better job,
        !            64:  * although not perfect.
        !            65:  */
        !            66: 
        !            67: - capture
        !            68: {
        !            69:     clickCount = [text clickCount];
        !            70: 
        !            71:     if (start < end || allText) {
        !            72:        selectionChars = NXOpenMemory(NULL, 0, NX_READWRITE);
        !            73:        if (allText) {
        !            74:            [text writeRichText:selectionChars];
        !            75:        } else {
        !            76:            [text writeRichText:selectionChars from:start to:end];
        !            77:        }
        !            78:     }
        !            79: 
        !            80:     return self;
        !            81: }
        !            82: 
        !            83: - install
        !            84: {
        !            85:     [text setSel:start :start];
        !            86:     [text setFrame:&frame];
        !            87: 
        !            88:     if (selectionChars) {
        !            89:        NXSeek(selectionChars, 0, NX_FROMSTART);
        !            90: 
        !            91:        if (allText) {
        !            92:            [text readRichText:selectionChars];
        !            93:            [text display];
        !            94:        } else {
        !            95:            [text replaceSelWithRichText:selectionChars];
        !            96:        }
        !            97: 
        !            98:        [text setSel:start :end];
        !            99: 
        !           100:     }
        !           101: 
        !           102:     return self;
        !           103: }
        !           104: 
        !           105: - remove
        !           106: {
        !           107:     [text setSel:start :end];
        !           108:     [text setClickCount:clickCount];
        !           109:     [text eraseSelection];
        !           110: 
        !           111:     return self;
        !           112: }
        !           113: 
        !           114: @end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.