home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Source / IBPalettes / WWTCLKit / WWTextField.m < prev    next >
Encoding:
Text File  |  1995-03-22  |  4.6 KB  |  216 lines
  1.  
  2. #import "WWTextField.h"
  3. #import "WWTextFieldCell.h"
  4.  
  5. #import "avoidStupidWarnings.h"
  6.  
  7. @implementation WWTextField
  8.  
  9. static id myStoredCellClass;
  10.  
  11.  
  12. + initialize 
  13. { 
  14.   [WWTextField setVersion:1]; 
  15.  
  16.   if (self == [WWTextField class])
  17.   {  myStoredCellClass = [WWTextFieldCell class];
  18.   }
  19.  
  20.   return self; 
  21. }
  22. //
  23. + setCellClass:classID
  24. {
  25.   myStoredCellClass = classID;
  26.   return self;
  27. }
  28. ////////////////////////////////////////////////////////
  29. - initFrame:(const NXRect *)frameRect
  30. {
  31.   id          oldCell;
  32.   const char  *WDRAG_PBTYPE[] = { NXFilenamePboardType, NULL};
  33.  
  34.  
  35.   [super initFrame:frameRect];
  36.   oldCell = [self setCell:[[WWTextFieldCell alloc] init]];
  37.   [oldCell free];
  38.   [self registerForDraggedTypes:WDRAG_PBTYPE count:1];
  39.   [[self cell] setScrollable:YES];
  40.   return self;
  41. }
  42. //
  43. - init
  44. {
  45.   id  oldCell;
  46.  
  47.  
  48.   [super init];
  49.   oldCell = [self setCell:[[myStoredCellClass alloc] init]];
  50.   [oldCell free];
  51.   return self;
  52. }
  53.  
  54. - awake
  55. {
  56.   const char  *WDRAG_PBTYPE[] = { NXFilenamePboardType, NULL};
  57.  
  58.  
  59.   [super awake];
  60.   [self registerForDraggedTypes:WDRAG_PBTYPE count:1];
  61.  
  62.   return self;
  63. }
  64.  
  65. - free
  66. {
  67.    const char *fileType[] = { "" };
  68.    Pasteboard *pboard = [Pasteboard newName:NXDragPboard];
  69.  
  70.    // why doesn't this work?
  71.    [pboard declareTypes:fileType num:0 owner:nil];
  72.    [self unregisterDraggedTypes];
  73.  
  74.    return [super free];
  75. }
  76.  
  77. - sendAction:(SEL)theAction to:theTarget
  78. {
  79.   if ([cell respondsTo:@selector(updateInterp)])
  80.   {  [cell updateInterp];
  81.   }
  82.  
  83.   return [super sendAction:theAction to:theTarget];
  84. }
  85.  
  86. // need to be able to see the cell's tclVar...
  87. - setTclVar:(const char *)str { return [[self cell] setTclVar:str]; }
  88. - (const char *)tclVar { return [[self cell] tclVar]; }
  89.  
  90. // need to be able to see the cell's controlString...
  91. - setControlString:(const char *)str { return [[self cell] setControlString:str]; }
  92. - (const char *)controlString { return [[self cell] controlString]; }
  93.  
  94. // need to be able to see the cell's tclExpression...
  95. - setTclExpression:(const char *)str { return [[self cell] setTclExpression:str]; }
  96. - (const char *)tclExpression { return [[self cell] tclExpression]; }
  97.  
  98. - setInterp:newInterp {  return [[self cell] setInterp:newInterp]; }
  99. - evaluateSelf { return [[self cell] evaluateSelf]; }
  100.  
  101. ////////////////////////////////////////////////////////////////////
  102. //            Font stuff
  103. ///////////////////////////////////////////////////////////////////
  104.  
  105. - changeFont:sender
  106. {
  107.   [cell setFont:[sender convertFont:[cell font]]];
  108.   if ([cell respondsTo:@selector(updateInterp)])
  109.   {  [cell updateInterp];
  110.   }
  111.   return self;
  112. }
  113.  
  114.  
  115. - changeIBFont:sender
  116. {
  117.   [cell setFont:[sender convertFont:[cell font]]];
  118.   if ([cell respondsTo:@selector(updateInterp)])
  119.   {  [cell updateInterp];
  120.   }
  121.   return self;
  122. }
  123.  
  124.  
  125. ////////////////////////////////////////////////////////////////////
  126. //            Dragging stuff
  127. ///////////////////////////////////////////////////////////////////
  128.  
  129.  
  130. - (NXDragOperation)draggingEntered:(id <NXDraggingInfo>)sender
  131. {
  132.     Pasteboard    *pboard;
  133.     const NXAtom  *theType;
  134.  
  135.  
  136.     pboard = [sender draggingPasteboard];
  137.     theType = [pboard types];
  138.  
  139.     if (*theType != NXFilenamePboardType)
  140.     {  fprintf(stderr, "Right type: acknowledging dragging starting...\n");
  141.        fflush(stderr);
  142.        return NX_DragOperationCopy;
  143.     }
  144.     fprintf(stderr, "Wrong type: unable to acknowledge dragging starting.\n");
  145.     fflush(stderr);
  146.  
  147.     return NX_DragOperationNone;
  148. }
  149.  
  150. - (NXDragOperation)draggingUpdated:(id <NXDraggingInfo>)sender
  151. {
  152.     return NX_DragOperationCopy;
  153. }
  154.  
  155.  
  156. - (BOOL)performDragOperation:(id <NXDraggingInfo>)sender
  157. {
  158.     Pasteboard    *pboard;
  159.     char          *argv;
  160.     int           len;
  161.     const NXAtom  *theType;
  162.  
  163.  
  164.     pboard = [sender draggingPasteboard];
  165.     theType = [pboard types];
  166.  
  167.     if (*theType != NXFilenamePboardType)
  168.     {  if ([pboard readType:NXFilenamePboardType data:&argv length:&len] == nil)
  169.        {  fprintf(stderr, "unable to read filename from pasteboard.\n"); fflush(stderr);
  170.       return NO;
  171.        }
  172.        else
  173.        {  [self setStringValue:(const char *)argv];
  174.       [self display];
  175.           return YES;
  176.        }
  177.     }
  178.     else
  179.     {  fprintf(stderr, "The type of the dragged object isn't a filename.\n"); fflush(stderr);
  180.        return NO;
  181.     }
  182. }
  183.  
  184. // IB stuff
  185. - (const char *)getInspectorClassName 
  186. {  
  187.    NXEvent  *event = [NXApp currentEvent];
  188.  
  189.    if (event->flags & NX_ALTERNATEMASK)
  190.    {  return [super getInspectorClassName];
  191.    }
  192.    
  193.    return "WWTextFieldIBInspector"; 
  194. }
  195.  
  196. - write:(NXTypedStream *)stream 
  197. {
  198.    [super write:stream];
  199.    return self;
  200. }
  201. //
  202. - read:(NXTypedStream *)stream 
  203. {
  204.    int version;
  205.  
  206.    [super read:stream];
  207.  
  208.    version = NXTypedStreamClassVersion(stream, "WWTextField");
  209.    if (version == 1)
  210.    {  
  211.    }
  212.    return self;
  213. }
  214.  
  215. @end
  216.