home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 (1993) / nebula.bin / SourceCode / MiniExamples / PerformanceTuning / VisibleView-01 / Appender.m < prev    next >
Encoding:
Text File  |  1991-10-18  |  743 b   |  38 lines
  1. //
  2. //    An Object to Append Text to IB's Default ScrollView
  3. //    Randy Nelson—Copyright NeXT 1990
  4. //    Not for release or reuse
  5. //
  6.  
  7. #import "Appender.h"
  8. #import <appkit/ScrollView.h>
  9. #import <appkit/Text.h>
  10.  
  11. @implementation Appender
  12.  
  13. //initializes the outlet
  14. - setScrollView:anObject
  15. {
  16.     scrollView = anObject;
  17.     docView = [scrollView docView];
  18.     return self;
  19. }
  20.  
  21. //prints the doc view of the scroll view
  22. - print:sender
  23. {
  24.     [docView printPSCode:self];
  25.     return self;
  26. }
  27.  
  28. //appends the string passed to the doc view of the scroll view
  29. - appendToText:(const char *)newText
  30. {
  31.     int currentLength = [docView textLength];
  32.     [docView setSel:currentLength :currentLength];
  33.     [docView replaceSel:newText];
  34.     [docView scrollSelToVisible];
  35.     return self;
  36. }
  37. @end
  38.