home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1994 June / NEBULA_SE.ISO / SourceCode / OOP_Course / Examples / ShiftInspector / ShiftInspector.m < prev    next >
Encoding:
Text File  |  1993-01-19  |  1.1 KB  |  51 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "ShiftInspector.h"
  5. #import <appkit/appkit.h>
  6.  
  7. @implementation ShiftInspector
  8.  
  9. - appDidInit:sender
  10. { 
  11.     //When app inits, install first view in Inspector.
  12.     id    aView;
  13.     aView=[[View alloc] init];  //create a new contentView
  14.     arrayView=[inspectorArray setContentView:aView];  //swap,get array of inspector views
  15.     [inspectorArray free];  //we have the view, no longer need this
  16.     [inspectorView addSubview:arrayView]; //add to inspector's view
  17.     [arrayView moveTo: 0.0 :0.0]; //start with leftmost (counter) view
  18.     [inspectorView display];
  19.     return self;
  20. }
  21.  
  22. - changeToCounter:sender
  23. {
  24.     [arrayView moveTo:0.0 :0.0]; //move view to counter 
  25.     [inspectorView display];
  26.     return self;
  27. }
  28. - changeToSquarer:sender
  29. {
  30.     [arrayView moveTo:-200.0 :0.0]; //move view to squarer
  31.     [inspectorView display];
  32.     return self;
  33. }
  34.  
  35. - count:sender
  36. {
  37.     [countDisplay setIntValue:([countDisplay intValue]+1)];
  38.     return self;
  39. }
  40.  
  41. - square:sender
  42. {
  43.     float value=[sender floatValue];
  44.     [squareRoot setFloatValue:value];
  45.     [square setFloatValue:(value*value)];
  46.     return self;
  47. }
  48.  
  49.  
  50. @end
  51.