home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Source / IBPalettes / WWTCLKit / WWThumbWheel.m < prev    next >
Encoding:
Text File  |  1995-03-22  |  4.4 KB  |  191 lines
  1.  
  2. #import "WWThumbWheel.h"
  3. #import "WWThumbWheelCell.h"
  4.  
  5. @implementation WWThumbWheel
  6.  
  7. static id myStoredCellClass;
  8.  
  9.  
  10. + initialize 
  11. { 
  12.   [WWThumbWheel setVersion:1]; 
  13.  
  14.   if (self == [WWThumbWheel class])
  15.   {  myStoredCellClass = [WWThumbWheelCell class];
  16.   }
  17.  
  18.   return self; 
  19. }
  20. //
  21. + setCellClass:classID
  22. {
  23.   myStoredCellClass = classID;
  24.   return self;
  25. }
  26. ////////////////////////////////////////////////////////
  27. //
  28. - initFrame:(const NXRect *)frameRect
  29. {
  30.   id  oldCell;
  31.  
  32.  
  33.   [super initFrame:frameRect];
  34.   oldCell = [self setCell:[[myStoredCellClass alloc] init]];
  35.   [oldCell free];
  36.  
  37.   return self;
  38. }
  39. //
  40. - awakeFromNib
  41. {
  42.   [visibleMinText setFloatValue:[self visibleMin]];
  43.   [visibleMaxText setFloatValue:[self visibleMax]];
  44.   [absoluteMinText setFloatValue:[self absoluteMin]];
  45.   [absoluteMaxText setFloatValue:[self absoluteMax]];
  46.   [valText setFloatValue:[self floatValue]];
  47.   [relativeValText setFloatValue:[self relativeFloatValue]];
  48.   return self;
  49. }
  50. //
  51. - setVisibleMin:(float)value
  52. {
  53.    [visibleMinText setFloatValue:value];
  54.    return [super setVisibleMin:value];
  55. }
  56. //
  57. - setVisibleMax:(float)value
  58. {
  59.    [visibleMaxText setFloatValue:value];
  60.    return [super setVisibleMax:value];
  61. }
  62. //
  63. - setAbsoluteMin:(float)value
  64. {
  65.    [absoluteMinText setFloatValue:value];
  66.    return [super setAbsoluteMin:value];
  67. }
  68. //
  69. - setAbsoluteMax:(float)value
  70. {
  71.    [absoluteMaxText setFloatValue:value];
  72.    return [super setAbsoluteMax:value];
  73. }
  74. // need this because there is no equivalent to awakeFromNib inside of IB...
  75. static BOOL oTheHorrorOfItAll = YES;
  76.  
  77. - sendAction:(SEL)theAction to:theTarget
  78. {
  79.   if (oTheHorrorOfItAll)
  80.   {  oTheHorrorOfItAll = NO;
  81.      [visibleMaxText setFloatValue:[self visibleMax]];
  82.      [visibleMinText setFloatValue:[self visibleMin]];
  83.      [absoluteMaxText setFloatValue:[self absoluteMax]];
  84.      [absoluteMinText setFloatValue:[self absoluteMin]];
  85.   }
  86.   [valText setFloatValue:[self floatValue]];
  87.   [relativeValText setFloatValue:[self relativeFloatValue]];
  88.   if ([cell respondsTo:@selector(updateInterp)])
  89.   {  [cell updateInterp];
  90.   }
  91.   return [super sendAction:theAction to:theTarget];
  92. }
  93.  
  94. - setStringValue:(const char *)str
  95. {
  96.   char  *theStr;
  97.  
  98.   [super setStringValue:str];
  99.   theStr = (char *)[self stringValue];
  100.   [visibleMaxText setStringValue:theStr];
  101.   [visibleMinText setStringValue:theStr];
  102.   [absoluteMaxText setStringValue:theStr];
  103.   [absoluteMinText setStringValue:theStr];
  104.   [valText setStringValue:theStr];
  105.   [relativeValText setStringValue:theStr];
  106.   [self display];
  107.   return self;
  108. }
  109.  
  110. - setIntValue:(int)val
  111. {
  112.   int   theVal;
  113.  
  114.  
  115.   [super setIntValue:val];
  116.   theVal = [self intValue];
  117.   [visibleMaxText setIntValue:theVal];
  118.   [visibleMinText setIntValue:theVal];
  119.   [absoluteMaxText setIntValue:theVal];
  120.   [absoluteMinText setIntValue:theVal];
  121.   [valText setIntValue:theVal];
  122.   [relativeValText setIntValue:theVal];
  123.   [self display];
  124.   return self;
  125. }
  126.  
  127. - setFloatValue:(float)val
  128. {
  129.   float  theVal;
  130.  
  131.  
  132.   [super setFloatValue:val];
  133.   theVal = [self floatValue];
  134.   [visibleMaxText setFloatValue:theVal];
  135.   [visibleMinText setFloatValue:theVal];
  136.   [absoluteMaxText setFloatValue:theVal];
  137.   [absoluteMinText setFloatValue:theVal];
  138.   [valText setFloatValue:theVal];
  139.   [relativeValText setFloatValue:theVal];
  140.   [self display];
  141.   return self;
  142. }
  143.  
  144. // need to be able to see the cell's tclVar...
  145. - setTclVar:(const char *)str { return [[self cell] setTclVar:str]; }
  146. - (const char *)tclVar { return [[self cell] tclVar]; }
  147.  
  148. // need to be able to see the cell's controlString...
  149. - setControlString:(const char *)str { return [[self cell] setControlString:str]; }
  150. - (const char *)controlString { return [[self cell] controlString]; }
  151.  
  152. // need to be able to see the cell's tclExpression...
  153. - setTclExpression:(const char *)str { return [[self cell] setTclExpression:str]; }
  154. - (const char *)tclExpression { return [[self cell] tclExpression]; }
  155.  
  156. - setInterp:newInterp {  return [[self cell] setInterp:newInterp]; }
  157. - evaluateSelf { [[self cell] evaluateSelf]; return [self display]; }
  158.  
  159. // IB stuff
  160. - (const char *)getInspectorClassName 
  161. {  
  162.    NXEvent  *event = [NXApp currentEvent];
  163.  
  164.    if (event->flags & NX_ALTERNATEMASK)
  165.    {  return [super getInspectorClassName];
  166.    }
  167.    
  168.    return "WWThumbWheelIBInspector"; 
  169. }
  170.  
  171. - write:(NXTypedStream *)stream 
  172. {
  173.    [super write:stream];
  174.    return self;
  175. }
  176. //
  177. - read:(NXTypedStream *)stream 
  178. {
  179.    int version;
  180.  
  181.    [super read:stream];
  182.  
  183.    version = NXTypedStreamClassVersion(stream, "WWThumbWheel");
  184.    if (version == 1)
  185.    {  
  186.    }
  187.    return self;
  188. }
  189.  
  190. @end
  191.