home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.0 / NeXTSTEP3.0.iso / NextDeveloper / Examples / SoundAndMusic / SoundKit / SoundEditor / ScrollingSound.m < prev    next >
Text File  |  1990-10-13  |  1KB  |  44 lines
  1. /*
  2.  * You may freely copy, distribute and reuse the code in this example.  
  3.  * NeXT disclaims any warranty of any kind, expressed or implied, as to 
  4.  * its fitness for any icular use.
  5.  */
  6.  
  7.  
  8. #import "ScrollingSound.h"
  9. #import <soundkit/soundkit.h>
  10.  
  11. @implementation ScrollingSound
  12.  
  13. - initFrame:(NXRect const *)theFrame
  14. {
  15.     NXRect tempRect = *theFrame;
  16.     id theSoundView;
  17.     int borderType = NX_NOBORDER;
  18.     
  19.     [ScrollView getContentSize:&tempRect.size forFrameSize:&theFrame->size
  20.             horizScroller:YES vertScroller:NO borderType:borderType];
  21.     theSoundView = [[SoundView alloc] initFrame:&tempRect];
  22.     [theSoundView setReductionFactor:32.0];
  23.     [super initFrame:theFrame];
  24.     [self setBorderType:borderType];
  25.     [self setHorizScrollerRequired:YES];
  26.     [self setDynamicScrolling:YES];
  27.     [self setDocView:theSoundView];
  28.     [self setBackgroundGray:NX_WHITE];
  29.     [self setAutoresizeSubviews:YES];
  30.     [self setAutosizing:NX_WIDTHSIZABLE|NX_HEIGHTSIZABLE];
  31.     [[theSoundView superview] setAutoresizeSubviews:YES];
  32.     [theSoundView setAutosizing:NX_HEIGHTSIZABLE];
  33.     return self;
  34. }
  35.  
  36. - play:sender {return [[self docView] play:sender];}
  37. - stop:sender {return [[self docView] stop:sender];}
  38. - record:sender {return [[self docView] record:sender];}
  39.  
  40.  
  41. @end
  42.  
  43.  
  44.