home *** CD-ROM | disk | FTP | other *** search
/ Nebula / nebula.bin / SourceCode / LispExample / LispText.h < prev    next >
Text File  |  1989-12-18  |  859b  |  41 lines
  1. /*
  2. **    LispText.h
  3. **    A Text object to drive the Lisp object.
  4. **    Lee Boynton, NeXT, Inc., 1989
  5. */
  6.  
  7. #import <appkit/Text.h>
  8.  
  9. @interface LispText:Text
  10. {
  11.     id theLisp;
  12.     int inputPosition;
  13.     BOOL connectedToLisp;
  14.     int maxHistory;
  15.     int historyHead;
  16.     char **history;
  17. }
  18.  
  19. - lispOutput:(const char *)theString;
  20.     /*
  21.     ** Accepts the given output from lisp and merges it into the text buffer.
  22.     ** Output is always inserted just before the line of text currently being
  23.     ** edited, but after all previous input and lisp output.
  24.     */
  25.  
  26. - inputLisp:(const char *)theString;
  27. - interruptLisp;
  28.     /*
  29.     ** These messages are directly delegated to the lisp object.
  30.     */
  31.  
  32. - clearAll:sender;
  33.     /*
  34.     ** Clear all text in the LispText object. Other methods like cut: and 
  35.     ** paste: are overridden to modify on the current line.
  36.     */
  37.  
  38. @end
  39.  
  40.  
  41.