home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.mdf / Apps / DevTools / ClassBuilder / Source / Terminator.m < prev    next >
Encoding:
Text File  |  1993-01-25  |  1.3 KB  |  69 lines
  1. #pragma .h  #import <objc/Object.h> 
  2. #pragma .h  #import "Glyph.h"
  3. #import "Terminator.h"
  4. #import <appkit/Application.h>
  5. /**
  6.  ** Terminators are often called "sentinels"
  7.  ** in CS literature.  They are used stop off
  8.  ** the is, than, and ancestor pointers in
  9.  ** a glyph. They generally function a
  10.  ** the basis of recursive calls on a 
  11.  ** TTree.  There really is only one
  12.  ** Terminator, returned by the new message.
  13.  ** If we could get doesNotUnderstand: to
  14.  ** work with factory objects, 
  15.  ** then this class could be all
  16.  ** class methods.
  17.  **/ 
  18.  
  19. static id _soleInstanceOfTerminator = nil ;
  20.  
  21. @implementation Terminator: Object
  22. { 
  23. }
  24.  
  25. + new ;
  26. { if(!_soleInstanceOfTerminator)
  27.     _soleInstanceOfTerminator = [super new] ;
  28.   return _soleInstanceOfTerminator ;
  29. }
  30.  
  31. - doesNotRecognize: (SEL)aSelector ;
  32. { // if I don't recognize something,
  33.   // I just return
  34.   return self ;
  35. }
  36.  
  37. - enlist: (Glyph *) aGlyt ;
  38. { // I will terminate this Glist
  39.   aGlyt->then = (Glyph *) self ;
  40.   return aGlyt ;
  41. }
  42.  
  43. -hitTest: (NXPoint *) aPnt ;
  44. { return nil ;
  45. }
  46.  
  47. - (char *) iam ;
  48. // remove: debugging purposes only
  49. { return "Term" ;
  50. }
  51.  
  52. - (BOOL) isTerminator ;
  53. { return YES ;
  54. }
  55.  
  56. - (BOOL) precedes: (Glyph *) aGlyph ;
  57. { // Terminators cannot precede anything
  58.   return NO ;
  59. }
  60.  
  61.  
  62. - test: (int) anInt ;
  63. { // remove when you are satisfied...
  64.   [NXApp printf: "T%d\n", anInt] ;
  65.   return self ;
  66. }
  67.  
  68.  
  69. @end