home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.bin / SourceCode / Tutorial / Cookbook / 03d.outlets / MyObject.m < prev    next >
Encoding:
Text File  |  1993-01-18  |  850 b   |  65 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "MyObject.h"
  5. #import <appkit/Control.h>
  6.  
  7. @implementation MyObject
  8.  
  9. - setSliderIn:anObject
  10. {
  11.     sliderIn = anObject;
  12.     return self;
  13. }
  14.  
  15. - setSwitchIn:anObject
  16. {
  17.     switchIn = anObject;
  18.     return self;
  19. }
  20.  
  21. - setTextOut:anObject
  22. {
  23.     textOut = anObject;
  24.     return self;
  25. }
  26.  
  27. - setSliderOut:anObject
  28. {
  29.     sliderOut = anObject;
  30.     return self;
  31. }
  32.  
  33. - setFieldIn:anObject
  34. {
  35.     fieldIn = anObject;
  36.     return self;
  37. }
  38.  
  39. - setFieldOut:anObject
  40. {
  41.     fieldOut = anObject;
  42.     return self;
  43. }
  44.  
  45. - doIt:sender
  46. {
  47. const char *strptr;
  48.  
  49.     myFloat = [sliderIn floatValue];
  50.     [sliderOut setFloatValue:myFloat];
  51.  
  52.     strptr = [fieldIn stringValue];
  53.     [fieldOut setStringValue:strptr];
  54.  
  55.     myInt = [switchIn intValue];
  56.     if (myInt)
  57.         [textOut setStringValue:"ON"];
  58.     else
  59.         [textOut setStringValue:"OFF"];
  60.     return self;
  61. }
  62.  
  63.  
  64. @end
  65.